Liren Large Software Subsidy 6/06.iso/b/b077/1.img/SBGL.ZIP/SC14.PRG

Text File | 1980-01-01 | 1.2 KB | 59 lines

STORE "        " TO JF3R
STORE ' ' TO D
DO WHILE .NOT. D='N'
CLEAR
@ 4,25 SAY '╟δ╩Σ╚δ╔Φ▒╕▒α║┼' GET C
READ
LOCAT FOR JF1=C
IF EOF()
CLEAR
@ 6,25 SAY '╬▐┤╦▒α║┼╔Φ▒╕╙Φ╨▐╖┤└í╨┼╧ó  '+C
ELSE
STORE 'N' TO CD
DO WHILE .NOT. EOF() .AND. CD='N'
CLEAR
STORE DTOC(JF3) TO JF3R1
STORE SUBS(JF3R1,7,2) TO JF3R2
STORE SUBS(JF3R1,1,2) TO JF3R3
STORE SUBS(JF3R1,4,2) TO JF3R4
STORE JF3R2+'.'+JF3R3+'.'+JF3R4 TO JF3R
@ 1,10 SAY '╔Φ▒╕▒α║┼:'+JF1
@ 1,35 SAY '╨▐└φ└α▒≡:'+JF2
@ 1,50 SAY '╨▐└φ╚╒╞┌:'+JF3R
@ 2,10 SAY '╟»╣ñ╣ñ╩▒:'+STR(JF4,3,0)
@ 2,30 SAY '╡τ╣ñ╣ñ╩▒:'+STR(JF5,3,0)
@ 3,10 SAY '╞≡╓╪╣ñ╩▒:'+STR(JF6,3,0)
@ 3,30 SAY '║╕╣ñ╣ñ╩▒:'+STR(JF7,3,0)
@ 4,10 SAY '╩╡═ú╨¬╠∞╩²:'+STR(JF8,3,0)
@ 4,30 SAY '╞Σ╦ⁿ╣ñ╩▒:'+STR(JF9,3,0)
@ 5,10 SAY '▒╕╝■╖╤:'+STR(JF10,8,2)
@ 5,30 SAY '▓─┴╧╖╤:'+STR(JF11,8,2)
@ 6,10 SAY '╣ñ╩▒╖╤:'+STR(JF12,8,2)
@ 6,30 SAY '═Γ╬»╝╙╣ñ╖╤:'+STR(JF13,8,2)
@ 7,10 SAY '╞Σ╦ⁿ╖╤:'+STR(JF14,8,2)
@ 8,25 SAY '╩╟╥¬╔╛│²╒Γ╠⌡╝╟┬╝┬≡?(Y/N)' GET CD
READ
STORE UPPE(CD) TO CD
CONT
IF CD='N'
IF EOF()=.T.
@ 9,25 SAY '╘┘╬▐┤╦▒α║┼╨┼╧ó'
ENDIF
ENDIF
IF CD='Y'
DELE
ENDIF
ENDDO
ENDIF
@ 0,25 SAY '╗╣╝╠╨°╔╛│²╞Σ╦ⁿ▒α║┼╨┼╧ó┬≡?' GET D
READ
STORE UPPE(D) TO D
IF D='Y'
GOTO TOP
STORE '         ' TO C
LOOP
ENDIF
PACK
ENDDO
RETURN