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

Text File | 1980-01-01 | 1.3 KB | 61 lines

STORE '        ' TO JF3R
STORE 'Y' 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 '╔Φ▒╕▒α║┼' GET JF1
@ 1,35 SAY '╨▐└φ└α▒≡' GET JF2
@ 1,50 SAY '╨▐└φ╚╒╞┌' GET JF3R PICT '99.99.99'
@ 2,10 SAY '╟»╣ñ╣ñ╩▒' GET JF4
@ 2,30 SAY '╡τ╣ñ╣ñ╩▒' GET JF5
@ 3,10 SAY '╞≡╓╪╣ñ╩▒' GET JF6
@ 3,30 SAY '║╕╣ñ╣ñ╩▒' GET JF7
@ 4,10 SAY '╩╡═ú╨¬╠∞╩²' GET JF8
@ 4,30 SAY '╞Σ╦ⁿ╣ñ╩▒' GET JF9
@ 5,10 SAY '▒╕╝■╖╤' GET JF10
@ 5,30 SAY '▓─┴╧╖╤' GET JF11
@ 6,10 SAY '╣ñ╩▒╖╤' GET JF12
@ 6,30 SAY '═Γ╬»╝╙╣ñ╖╤' GET JF13
@ 7,10 SAY '╞Σ╦ⁿ╖╤' GET JF14
@ 8,25 SAY '╩╟╒Γ╠⌡╝╟┬╝┬≡?' GET CD
READ
STORE SUBS(JF3R,4,2) TO JF3S1
STORE SUBS(JF3R,7,2) TO JF3S2
STORE SUBS(JF3R,1,2) TO JF3S3
STORE JF3S1+'/'+JF3S2+'/'+JF3S3 TO JF3S4
STORE CTOD(JF3S4) TO JF3S5
REPL JF3 WITH JF3S5
STORE UPPE(CD) TO CD
CONT
IF CD='N'
IF EOF()=.T.
@ 9,25 SAY '╘┘╬▐┤╦▒α║┼╨┼╧ó'
ENDIF
ENDIF
ENDDO
ENDIF
@ 0,25 SAY '╗╣╝╠╨°╨▐╕─╞Σ╦ⁿ▒α║┼╨┼╧ó' GET D
READ
STORE UPPE(D) TO D
IF D='Y'
GOTO TOP
STORE '         ' TO C
LOOP
ENDIF
ENDDO
RETURN