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

Text File | 1980-01-01 | 1.0 KB | 50 lines

use dx
STORE '        ' TO DX8R
STORE 'Y' TO D
DO WHILE .NOT. D='N'
c='         '
CLEAR
@ 4,25 SAY '╟δ╩Σ╚δ╡τ╞≈╧▀┬╖▒α║┼' GET C
READ
LOCAT FOR DX7=C
IF EOF()
CLEAR
@ 6,25 SAY '╬▐┤╦╠⌡╧▀┬╖  '+C
ELSE
CLEAR
STORE DTOC(DX8) TO DX8R1
STORE SUBS(DX8R1,7,2) TO DX8R2
STORE SUBS(DX8R1,1,2) TO DX8R3
STORE SUBS(DX8R1,4,2) TO DX8R4
STORE DX8R2+'.'+DX8R3+'.'+DX8R4 TO DX8R
@ 2,10 SAY '├√│╞' GET DX1
@ 2,40 SAY '╣µ╕±' GET DX2
@ 3,10 SAY '╨═║┼' GET DX3
@ 3,40 SAY '╞╠╔Φ╖╜╩╜' GET DX4
@ 4,10 SAY '╩╘╤Θ╓▄╞┌' GET DX5
@ 4,40 SAY '╩╘╤Θ╡τ╤╣' GET DX6
@ 5,10 SAY '╔╧┤╬╩╘╤Θ╚╒╞┌' GET DX8R PICT '99.99.99'
@ 5,40 SAY '╜ß╣√(║╧╕±▒Ω╓╛)' GET DX9
@ 6,10 SAY '┤ª└φ╥Γ╝√' GET DX10
@ 6,40 SAY '╧▀┬╖▒α║┼' GET DX7
@ 7,10 say "░▓╫░╡╪╡π" get dx12
READ
STORE SUBS(DX8R,1,2) TO XD1
STORE SUBS(DX8R,4,2) TO XD2
STORE SUBS(DX8R,7,2) TO XD3
STORE XD2+'/'+XD3+'/'+XD1 TO XD4
STORE CTOD(XD4) TO XD5
REPL DX8 WITH XD5
ENDIF
@ 9,25 SAY '╗╣╝╠╨°╨▐╕─┬≡?' GET D
READ
STORE UPPE(D) TO D
IF D='Y'
GOTO TOP
STORE '          ' TO C
LOOP
ENDIF
ENDDO
RETURN