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

Text File | 1979-12-31 | 1.1 KB | 45 lines

STORE 'Y' TO C
STORE '        ' TO FJ9R
STORE '        ' TO FJ10R
DO WHILE .NOT. C='N'
APPEND BLANK
CLEAR
STORE 'N' TO CD
DO WHILE CD='N'
@ 1,10 SAY '╓≈╗·▒α║┼' GET FJ1
@ 1,40 SAY '╕¿╗·├√│╞' GET FJ2
@ 2,10 SAY '╨═    ║┼' GET FJ3
@ 2,40 SAY '╣µ    ╕±' GET FJ4
@ 3,10 SAY '╔·▓·─▄┴ª' GET FJ5
@ 3,40 SAY '╬╗    ║┼' GET FJ6
@ 4,10 SAY '╓╞ ╘∞ │º' GET FJ7
@ 4,40 SAY '│÷ │º ║┼' GET FJ8
@ 5,10 SAY '░▓╫░╚╒╞┌' GET FJ9R PICT "99.99.99"
@ 5,40 SAY '═╢▓·╚╒╞┌' GET FJ10R PICT "99.99.99"
@ 6,10 SAY '═╝    ║┼' GET FJ11
@ 6,40 SAY '╩²    ┴┐' GET FJ12
@ 7,10 SAY '╦┘    ▒╚' GET FJ13
@ 7,40 SAY '╕¿╗·╘¡╓╡' GET FJ14
READ
STORE SUBS(FJ9R,4,2) TO FJ9R1
STORE SUBS(FJ9R,7,2) TO FJ9R2
STORE SUBS(FJ9R,1,2) TO FJ9R3
STORE FJ9R1+'/'+FJ9R2+'/'+FJ9R3 TO FJ9R4
STORE CTOD (FJ9R4) TO FJ9R5
REPL FJ9 WITH FJ9R5
STORE SUBS(FJ10R,4,2) TO FJ10R1
STORE SUBS(FJ10R,7,2) TO FJ10R2
STORE SUBS(FJ10R,1,2) TO FJ10R3
STORE FJ10R1+'/'+FJ10R2+'/'+FJ10R3 TO FJ10R4
STORE CTOD(FJ10R4) TO FJ10R5
REPL FJ10 WITH FJ10R5
@ 8,25 SAY '╩Σ╚δ╒²╚╖┬≡?(Y/N)' GET CD
READ
STORE UPPE(CD) TO CD
ENDDO
@ 9,25 SAY '╗╣╝╠╨°╩Σ╚δ┬≡?' GET C
READ
STORE UPPE(C) TO C
ENDDO
RETURN