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

Text File | 1980-01-01 | 2.4 KB | 102 lines

STORE '        ' TO FJ9R
STORE '        ' TO FJ10R
STORE 'Y' TO D
DO WHILE .NOT. D='N'
CLEAR
@ 4,25 SAY '╟δ╩Σ╚δ╓≈╗·▒α║┼' GET C
READ
SET EXACT ON
LOCAT FOR FJ1=C
IF EOF()
CLEAR
@ 4,25 SAY '╬▐┤╦╕¿╗·╝╟┬╝  '+C
ELSE
STORE 'N' TO CD
DO WHILE .NOT. EOF().AND.CD='N'
CLEAR
STORE DTOC(FJ9) TO FJ9R1
STORE SUBS(FJ9R1,7,2) TO FJ9R2
STORE SUBS(FJ9R1,1,2) TO FJ9R3
STORE SUBS(FJ9R1,4,2) TO FJ9R4
STORE FJ9R2+'.'+FJ9R3+'.'+FJ9R4 TO FJ9R
STORE DTOC(FJ10) TO FJ10R1
STORE SUBS(FJ10R1,7,2) TO FJ10R2
STORE SUBS(FJ10R1,1,2) TO FJ10R3
STORE SUBS(FJ10R1,4,2) TO FJ10R4
STORE FJ10R2+'.'+FJ10R3+'.'+FJ10R4 TO FJ10R
@ 1,10 SAY '╓≈╗·▒α║┼:'+FJ1
@ 1,40 SAY '╕¿╗·├√│╞:'+FJ2
@ 2,10 SAY '╨═║┼:'+FJ3
@ 2,40 SAY '╣µ╕±:'+FJ4
@ 3,10 SAY '╔·▓·─▄┴ª:'+FJ5
@ 3,40 SAY '╬╗║┼:'+FJ6
@ 4,10 SAY '╓╞╘∞│º:'+FJ7
@ 4,40 SAY '│÷│º║┼:'+FJ8
@ 5,10 SAY '░▓╫░╚╒╞┌:'+FJ9R
@ 5,40 SAY '═╢▓·╚╒╞┌:'+FJ10R
@ 6,10 SAY '═╝║┼:'+FJ11
@ 6,40 SAY '╩²┴┐:'+STR(FJ12,2,0)
@ 7,10 SAY '╦┘▒╚:'+FJ13
@ 7,40 SAY '╕¿╗·╘¡╓╡:'+STR(FJ14,10,2)
@ 8,25 SAY '╩╟╒Γ╠⌡╝╟┬╝┬≡?(Y/N)' GET CD
READ
STORE UPPE(CD) TO CD
STORE RECNO() TO A
CONT
IF CD='N' .AND. EOF()
CLEAR
@ 4,25 SAY '╘┘╬▐┤╦╝╟┬╝'
ENDIF
IF CD='Y'
GO A
CLEAR
STORE DTOC(FJ9) TO FJ9R1
STORE SUBS(FJ9R1,7,2) TO FJ9R2
STORE SUBS(FJ9R1,1,2) TO FJ9R3
STORE SUBS(FJ9R1,4,2) TO FJ9R4
STORE FJ9R2+'.'+FJ9R3+'.'+FJ9R4 TO FJ9R
STORE DTOC(FJ10) TO FJ10R1
STORE SUBS(FJ10R1,7,2) TO FJ10R2
STORE SUBS(FJ10R1,1,2) TO FJ10R3
STORE SUBS(FJ10R1,4,2) TO FJ10R4
STORE FJ10R2+'.'+FJ10R3+'.'+FJ10R4 TO FJ10R
@ 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 FJ9S1
STORE SUBS(FJ9R,7,2) TO FJ9S2
STORE SUBS(FJ9R,1,2) TO FJ9S3
STORE FJ9S1+'/'+FJ9S2+'/'+FJ9S3 TO FJ9S4
STORE CTOD(FJ9S4) TO FJ9S5
STORE SUBS(FJ10R,4,2) TO FJ10S1
STORE SUBS(FJ10R,7,2) TO FJ10S2
STORE SUBS(FJ10R,1,2) TO FJ10S3
STORE FJ10S1+'/'+FJ10S2+'/'+FJ10S3 TO FJ10S4
STORE CTOD(FJ10S4) TO FJ10S5
REPL FJ9 WITH FJ9S5,FJ10 WITH FJ10S5
ENDIF
ENDIF
ENDDO
@ 9,25 SAY '╗╣╝╠╨°╨▐╕─┬≡?' GET D
READ
STORE UPPE(D) TO D
IF D='Y'
GOTO TOP
STORE '         ' TO C
LOOP
ENDIF
ENDDO
RETURN