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

Text File | 1980-01-01 | 3.4 KB | 151 lines

STORE 'Y' TO D
STORE '        ' TO SB11R
STORE '        ' TO SB12R
USE SB index sb1
DO WHILE .NOT. D='N'
CLEAR
@ 4,25 SAY '╟δ╩Σ╚δ╔Φ▒╕▒α║┼:' GET C
READ
SET EXACT ON
seek c
IF EOF()
CLEAR
@ 5,25 SAY '╬▐┤╦▒α║┼╔Φ▒╕╝╟┬╝:'+C
ELSE
CLEAR
STORE SB28 TO SB28R
STORE SB24 TO SB24R
USE TJ
SET EXACT ON
LOCAT FOR TJ1=SB28R .AND. TJ2=SB24R
IF TJ1=SB28R .AND. TJ2=SB24R
REPLA TJ3 WITH TJ3-1
IF TJ3=0
DELE
PACK
ENDIF
ENDIF
USE SB index sb1
seek c
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,5 SAY '╔Φ▒╕▒α║┼' GET SB1
@ 1,25 SAY '╣ñ╥╡╞╒▓Θ║┼' GET SB2
@ 1,50 SAY '╔Φ▒╕├√│╞' GET SB3
@ 2,5 SAY '╨═║┼' GET SB4
@ 2,30 SAY '╣µ╕±' GET SB5
@ 2,55 SAY '╓╪┴┐' GET SB6
@ 3,5 SAY '═Γ╨╬│▀┤τ' GET SB7
@ 3,35 SAY '╓╞╘∞│º' GET SB8
@ 3,60 SAY '╓╞╘∞║┼' GET SB9
@ 4,5 SAY '│÷│º╚╒╞┌' GET SB10R PICT '99.99.99'
@ 4,25 SAY '╚δ┐Γ╚╒╞┌' GET SB11R PICT '99.99.99'
@ 4,45 SAY '╞⌠╙├╚╒╞┌' GET SB12R PICT '99.99.99'
@ 4,65 SAY '╗·F' GET SB13
@ 5,5 SAY '╡τF' GET SB14
@ 5,20 SAY 'ԭ  ֵ' GET SB15
@ 5,50 SAY '╒█╛╔─Ω╧▐' GET SB16
@ 6,5 SAY '╡τ╗·╩²┴┐' GET SB20
@ 6,25 SAY '╓≈╡τ╗·╚▌┴┐' GET SB21
@ 6,50 SAY '╫▄╣ª┬╩' GET SB22
@ 7,5 SAY '╓≈╢»┴ª╘┤' GET SB23
@ 7,30 SAY '╛╗▓╨╓╡┬╩' GET SB26
@ 7,55 SAY '░▓╫░╡╪╡π' GET SB29
@ 8,5 say "╒█╛╔┬╩úÑ" get sb19
@ 8,30 say "╛╗  ╓╡" get sb17
READ
STORE SUBS(SB10R,4,2) TO SB10S1
STORE SUBS(SB10R,7,2) TO SB10S2
STORE SUBS(SB10R,1,2) TO SB10S3
STORE SB10S1+'/'+SB10S2+'/'+SB10S3 TO SB10S4
STORE CTOD(SB10S4) TO SB10S
REPL SB10 WITH SB10S
STORE SUBS(SB11R,1,2) TO BS1
STORE SUBS(SB11R,4,2) TO BS2
STORE SUBS(SB11R,7,2) TO BS3
STORE BS2+'/'+BS3+'/'+BS1 TO BS4
STORE CTOD(BS4) TO BS5
REPL SB11 WITH BS5
STORE SUBS(SB12R,1,2) TO BS6
STORE SUBS(SB12R,4,2) TO BS7
STORE SUBS(SB12R,7,2) TO BS8
STORE BS7+'/'+BS8+'/'+BS6 TO BS9
STORE CTOD(BS9) TO BS10
REPL SB12 WITH BS10
CLEAR
@ 1,5 SAY '╔Φ▒╕└α╩⌠║┼' GET SB24
@ 2,5 SAY '╣▄╩⌠║┼' GET SB25
@ 3,5 SAY '╓╪╥¬│╠╢╚' GET SB27
@ 4,5 SAY '╩╣╙├╡Ñ╬╗▒α║┼' GET SB28
@ 1,25 SAY '╛▓├▄╖Γ╡π╩²' GET SB35
@ 1,50 SAY '╢»├▄╖Γ╡π╩²' GET SB36
READ
STORE DTOC(SB12) TO SB12R1
STORE SUBS(SB12R1,7,2) TO SB12R2
STORE SUBS(SB12R1,1,2) TO SB12R3
STORE 12-VAL(SB12R3) TO SB12R4
IF VAL(SB12R2)>87
REPL SB18 WITH 0
REPL SB17 WITH SB15
ENDIF
STORE SB28 TO SB28R
STORE SB24 TO SB24R
STORE SB1 TO SB1R
STORE SB15 TO SB15R
USE TJ
SET EXACT ON
LOCAT FOR TJ1=SB28R .AND. TJ2=SB24R
IF EOF()
APPE BLANK
REPL TJ1 WITH SB28R,TJ2 WITH SB24R
REPL TJ3 WITH 1
ELSE
REPL TJ3 WITH TJ3+1
ENDIF
USE SM
SET EXACT ON
LOCAT FOR SM1=C
IF SM1=C
IF SM2+SM3+SM4+SM5<>SB15R
CLEAR
REPLACE SM1 WITH SB1R
@ 1,5 SAY '╟δ╨▐╕─╩┘├ⁿ╓▄╞┌╖╤╙├┐Γ╦─╧ε╖╤╙├'
@ 2,5 SAY '╡≈╤╨╖╤' GET SM2
@ 3,5 SAY '╔Φ╝╞╖╤' GET SM3
@ 4,5 SAY '╣║╓├(╓╞╘∞)╖╤' GET SM4
@ 5,5 SAY '░▓╫░╡≈╩╘╖╤' GET SM5
READ
ELSE
REPL SM1 WITH SB1R
ENDIF
ENDIF
STORE '        ' TO SB1J
STORE '        ' TO SB11R
STORE '        ' TO SB12R
USE SB
ENDIF
@ 9,25 SAY '╗╣╝╠╨°╨▐╕─┬≡?' GET D
READ
STORE UPPE(D) TO D
IF D='Y'
GOTO TOP
STORE '         ' TO C
use sb index sb1
LOOP
ENDIF
ENDDO
RETURN