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

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

STORE 'Y' TO D
STORE '        ' TO SB11R
STORE '        ' TO SB10R
STORE '        ' TO SB12R
USE SB index sb1
DO WHILE .NOT. D='N'
CLEAR
@ 4,25 SAY '╟δ╩Σ╚δ╔Φ▒╕▒α║┼:' GET C
READ
seek c
IF EOF()
CLEAR
@ 5,25 SAY '╬▐┤╦▒α║┼╔Φ▒╕╝╟┬╝:'+C
ELSE
CLEAR
*STORE 'Y' TO CD
*DO WHILE CD='Y'
STORE SB28 TO SB28R
STORE SB24 TO SB24R
STORE DTOC(SB11) TO SB11R1
STORE SUBS(SB11R1,7,2) TO SB11R2
STORE SUBS(SB11R1,1,2) TO SB11R3
STORE SUBS(SB11R1,4,2) TO SB11R4
STORE SB11R2+'.'+SB11R3+'.'+SB11R4 TO SB11R
STORE DTOC(SB12) TO SB12R1
STORE SUBS(SB12R1,7,2) TO SB12R2
STORE SUBS(SB12R1,1,2) TO SB12R3
STORE SUBS(SB12R1,4,2) TO SB12R4
STORE SB12R2+'.'+SB12R3+'.'+SB12R4 TO SB12R
STORE DTOC(SB10) TO SB10R1
STORE SUBS(SB10R1,7,2) TO SB10R2
STORE SUBS(SB10R1,1,2) TO SB10R3
STORE SUBS(SB10R1,4,2) TO SB10R4
STORE SB10R2+'.'+SB10R3+'.'+SB10R4 TO SB10R
@ 1,1 SAY '╔Φ▒╕▒α║┼:'+SB1
@ 1,25 SAY '╣ñ╥╡╞╒▓Θ║┼:'+SB2
@ 1,50 SAY '╔Φ▒╕├√│╞:'+SB3
@ 2,1 SAY '╨═║┼:'+SB4
@ 2,25 SAY '╣µ╕±:'+SB5
@ 2,50 SAY '╓╪┴┐:'+STR(SB6,6,2)
@ 3,1 SAY '═Γ╨╬│▀┤τ:'+SB7
@ 3,25 SAY '╓╞╘∞│º:'+SB8
@ 3,50 SAY '╓╞╘∞║┼:'+SB9
@ 4,1 SAY '│÷│º╚╒╞┌:'+SB10R
@ 4,25 SAY '╚δ┐Γ╚╒╞┌:'+SB11R
@ 4,50 SAY '╞⌠╙├╚╒╞┌:'+SB12R
@ 5,1 SAY '╗·F:'+STR(SB13,4,1)
@ 5,25 SAY '╡τF:'+STR(SB14,5,1)
@ 5,50 SAY 'ԭ  ֵ:'+STR(SB15,10,2)
@ 6,1 SAY '╒█╛╔─Ω╧▐:'+STR(SB16,2,0)
@ 6,25 SAY '╡τ╗·╩²┴┐:'+STR(SB20,2,0)
@ 6,50 SAY '╓≈╡τ╗·╚▌┴┐:'+STR(SB21,6,1)
@ 7,1 SAY '╫▄╣ª┬╩:'+STR(SB22,7,2)
@ 7,25 SAY '╓≈╢»┴ª╘┤:'+SB23
@ 7,50 SAY '╛╗▓╨╓╡┬╩:'+STR(SB26,6,4)
@ 8,1 SAY '░▓╫░╡╪╡π:'+SB29
WAIT '╟δ░┤╚╬╥Γ╝ⁿ╖¡╥│'
*@ 9,30 SAY '╩Σ╚δ╒²╚╖┬≡?(Y/N)' GET CD
*READ
*ENDDO
CLEAR
*STORE 'N' TO CD
*DO WHILE CD='N'
@ 1,5 SAY '╔Φ▒╕└α╩⌠║┼:'+SB24
@ 2,5 SAY '╣▄╩⌠║┼:'+SB25
@ 3,5 SAY '╓╪╥¬│╠╢╚:'+SB27
@ 4,5 SAY '╩╣╙├╡Ñ╬╗▒α║┼:'+SB28
@ 1,25 SAY '╛▓├▄╖Γ╡π╩²:'+STR(SB35,4,0)
@ 1,50 SAY '╢»├▄╖Γ╡π╩²:'+STR(SB36,4,0)
@ 2,25 SAY '└█╝╞┐¬╢»╠¿╩▒:'+STR(SB30,8,0)
@ 2,50 SAY '░▓╚½╝α╗ñ▒Ω╓╛:'+SB34
STORE SB1 TO SB1R
STORE SB24 TO SB24R
STORE SB28 TO SB28R
@ 7,25 SAY '╩╟╥¬╔╛│²┤╦╠⌡╝╟┬╝┬≡?' GET D
READ
STORE UPPE(D) TO D
IF D='Y'
DELE
USE TJ
LOCAT FOR TJ1=SB28R .AND. TJ2=SB24R
IF TJ1=SB28R .AND. TJ2=SB24R
REPL TJ3 WITH TJ3-1
ENDIF
USE SM
LOCAT FOR SM1=SB1R
IF SM1=SB1R
DELE
PACK
ENDIF
ENDIF
USE SB index sb1
ENDIF
@ 9,25 SAY '╗╣╝╠╨°╔╛│²┬≡?' GET D
READ
STORE UPPE(D) TO D
IF D='Y'
GOTO TOP
STORE '         ' TO C
LOOP
ENDIF
PACK
ENDDO
RETURN