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

Text File | 1979-12-31 | 1.3 KB | 52 lines

STORE '        ' TO GD4R
STORE '        ' TO GD18R
STORE 'Y' TO C
DO WHILE .NOT. C='N'
APPEND BLANK
CLEAR
STORE 'N' TO CD
DO WHILE CD='N'
CLEAR
@ 1,0 SAY '╣▄╡└▒α║┼' GET GD1
@ 1,23 SAY '╣▄╡└├√│╞' GET GD2
@ 1,48 SAY '╣µ╕±╨═║┼' GET GD3
@ 2,0 SAY '═╢▓·╚╒╞┌' GET GD4R PICT '99.99.99'
@ 2,23 SAY '▓─    ╓╩' GET GD5
@ 2,48 SAY '═╝ ╓╜ ║┼' GET GD6
@ 3,0 SAY '╣ñ╫≈╤╣┴ª' GET GD7
@ 3,23 SAY '╣ñ╫≈╬┬╢╚' GET GD8
@ 3,48 SAY '╣ñ╫≈╜Θ╓╩' GET GD9
@ 4,0 SAY '╖└╕»▓─┴╧' GET GD10
@ 4,23 SAY '─Ω╕»╩┤┴┐' GET GD11
@ 4,48 SAY '▒ú╬┬▓─┴╧' GET GD12
@ 5,0 SAY '╤╒    ╔½' GET GD13
@ 5,23 SAY '╣▄╡└│ñ╢╚' GET GD14
@ 5,48 SAY '╝∞▓Γ╓▄╞┌' GET GD15
@ 6,0 SAY '╞╠╔Φ╖╜╩╜' GET GD16
@ 6,23 SAY '░▓╚½▒┌║±' GET GD17
@ 6,48 SAY '╔╧┤╬╝∞▓Γ╗≥╕ⁿ╗╗╞┌' GET GD18R PICT '99.99.99'
@ 7,0 SAY '╛▓├▄╖Γ╡π╩²' GET GD19
@ 7,48 SAY '▒┌    ║±' GET GD20
READ
STORE SUBS(GD4R,1,2) TO DG1
STORE SUBS(GD4R,4,2) TO DG2
STORE SUBS(GD4R,7,2) TO DG3
STORE DG2+'/'+DG3+'/'+DG1 TO DG4
STORE CTOD(DG4) TO DG5
REPL GD4 WITH DG5,GD18 WITH DG5
STORE SUBS(GD18R,1,2) TO DG6
STORE SUBS(GD18R,4,2) TO DG7
STORE SUBS(GD18R,7,2) TO DG8
STORE DG7+'/'+DG8+'/'+DG6 TO DG9
STORE CTOD(DG9) TO DG10
REPLA GD18 WITH DG10
@ 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