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

Text File | 1980-01-01 | 776 b | 34 lines

STORE '        ' TO DX8R
STORE 'Y' TO C
DO WHILE .NOT. C='N'
APPEND BLANK
CLEAR
STORE 'N' TO CD
DO WHILE CD='N'
@ 2,8 SAY '├√    │╞' GET DX1
@ 2,40 SAY '╣µ    ╕±' GET DX2
@ 3,8 SAY '╨═    ║┼' GET DX3
@ 3,40 SAY '╞╠╔Φ╖╜╩╜' GET DX4
@ 4,8 SAY '╩╘╤Θ╓▄╞┌' GET DX5
@ 4,40 SAY '╩╘╤Θ╡τ╤╣' GET DX6
@ 5,8 SAY '╔╧┤╬╩╘╤Θ╚╒╞┌' GET DX8R PICT '99.99.99'
@ 5,40 SAY '╜ß╣√(║╧╕±▒Ω╓╛)' GET DX9
@ 6,8 SAY '┤ª└φ╥Γ╝√' GET DX10
@ 6,40 SAY '▒α    ║┼' GET DX7
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
@ 8,25 SAY '╩Σ╚δ╒²╚╖┬≡?(Y/N)' GET CD
READ
STORE UPPE(CD) TO CD
ENDDO
@ 8,25 SAY '╗╣╝╠╨°╩Σ╚δ┬≡?(Y/N)' GET C
READ
STORE UPPE(C) TO C
ENDDO
RETURN