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

Text File | 1980-01-01 | 1.4 KB | 69 lines

STORE '        ' TO FJ9R
STORE '        ' TO FJ10R
STORE ' ' TO D
DO WHILE .NOT. D='N'
CLEAR
@ 4,25 SAY '╟δ╩Σ╚δ╓≈╗·▒α║┼' GET C
READ
LOCAT FOR FJ1=C
IF EOF()
CLEAR
@ 4,25 SAY '╬▐┤╦╕¿╗·╝╟┬╝  '+C
ELSE
STORE 'Y' TO CD
DO WHILE .NOT.EOF().AND.CD='Y'
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
IF CD='Y'
DELE
ENDIF
STORE 'Y' TO CD
@ 9,25 SAY '╗╣╥¬╔╛│²┤╦╓≈╗·╞Σ╦ⁿ╕¿╗·╝╟┬╝┬≡?(Y/N)' GET CD
READ
STORE UPPE(CD) TO CD
CONT
IF CD='Y'.AND.EOF()
CLEAR
@ 4,25 SAY '╘┘╬▐╕¿╗·'
ENDIF
ENDDO
ENDIF
@ 9,25 SAY '╗╣╥¬╔╛│²╞Σ╦ⁿ╝╟┬╝┬≡?(Y/N)' GET D
READ
STORE UPPE(D) TO D
IF D='Y'
GOTO TOP
STORE '         ' TO C
LOOP
ENDIF
PACK
ENDIF
ENDDO
RETURN