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

Text File | 1979-12-31 | 2.5 KB | 97 lines

use yl
STORE '        ' TO YL7R
STORE '        ' TO YL9R
STORE '        ' TO YL31R
STORE '        ' TO YL32R
STORE '        ' TO YL33R
STORE ' ' TO D
DO WHILE .NOT. D='N'
CLEAR
c='         '
@ 4,25 SAY '╟δ╩Σ╚δ╚▌╞≈▒α║┼' GET C
READ
LOCAT FOR YL1=C
IF EOF()
CLEAR
@ 4,25 SAY '╬▐┤╦╝╟┬╝  '+C
ELSE
CLEAR
STORE DTOC(YL7) TO YL7R1
STORE SUBS(YL7R1,7,2) TO YL7R2
STORE SUBS(YL7R1,1,2) TO YL7R3
STORE SUBS(YL7R1,4,2) TO YL7R4
STORE YL7R2+'.'+YL7R3+'.'+YL7R4 TO YL7R
STORE DTOC(YL9) TO YL9R1
STORE SUBS(YL9R1,7,2) TO YL9R2
STORE SUBS(YL9R1,1,2) TO YL9R3
STORE SUBS(YL9R1,4,2) TO YL9R4
STORE YL9R2+'.'+YL9R3+'.'+YL9R4 TO YL9R
STORE DTOC(YL31) TO YL31R1
STORE SUBS(YL31R1,7,2) TO YL31R2
STORE SUBS(YL31R1,1,2) TO YL31R3
STORE SUBS(YL31R1,4,2) TO YL31R4
STORE YL31R2+'.'+YL31R3+'.'+YL31R4 TO YL31R
STORE DTOC(YL32) TO YL32R1
STORE SUBS(YL32R1,7,2) TO YL32R2
STORE SUBS(YL32R1,1,2) TO YL32R3
STORE SUBS(YL32R1,4,2) TO YL32R4
STORE YL32R2+'.'+YL32R3+'.'+YL32R4 TO YL32R
STORE DTOC(YL33) TO YL33R1
STORE SUBS(YL33R1,7,2) TO YL33R2
STORE SUBS(YL33R1,1,2) TO YL33R3
STORE SUBS(YL33R1,4,2) TO YL33R4
STORE YL33R2+'.'+YL33R3+'.'+YL33R4 TO YL33R
clear
@ 0,5 SAY '╚▌╞≈▒α║┼:'+YL1
@ 0,20 SAY '╚▌╞≈├√│╞:'+YL2
@ 0,45 SAY '└α▒≡:'+YL3
@ 0,55 SAY '╩╣╙├╡Ñ╬╗▒α║┼:'+YL4
@ 1,5 SAY '╝╝╩⌡╫╩┴╧║┼:'+YL5
@ 1,20 SAY '╓╞╘∞│º:'+YL6
@ 1,45 SAY '╓╞╘∞╚╒╞┌:'+YL7R
@ 1,62 SAY '│÷│º▒α║┼:'+YL18
@ 2,5 SAY '╩╣╙├╚╒╞┌:'+YL9R
@ 2,25 SAY '╔Φ╝╞╩╣╙├─Ω╧▐:'+STR(YL10,2,0)
@ 2,45 SAY '─┌╛╢(MM):'+STR(YL11,4,0)
@ 2,60 SAY '▒┌║±(MM):'+STR(YL12,3,0)
@ 3,5 SAY '│ñ(╕▀)(MM):'+STR(YL13,5,0)
@ 3,30 SAY '╚▌╗²(M^):'+STR(YL14,4,0)
@ 3,50 SAY '╫▄╓╪:'+STR(YL15,6,0)
@ 4,5 SAY '═▓╠σ▓─┴╧:'+YL16
@ 4,30 SAY '╖Γ═╖▓─┴╧:'+YL17
@ 4,55 SAY '╓≈┬▌╦¿▓─┴╧:'+YL18
@ 5,5 SAY '─┌▒┌╖└╕»┤δ╩⌐:'+YL19
@ 5,31 SAY '═Γ▒┌╖└╕»┤δ╩⌐:'+YL20
@ 5,57 SAY '╤╣┴ª:'+STR(YL21,3,0)
@ 5,66 SAY '╬┬╢╚:'+STR(YL22,3,0)
@ 6,5 SAY '╜Θ╓╩:'+YL23
@ 6,25 SAY '▒┌╬┬:'+STR(YL24,3,0)
@ 6,35 SAY '╙├═╛:'+YL25
@ 6,65 SAY '╩╘╤Θ╤╣┴ª:'+STR(YL30,3,0)
@ 7,5 SAY '═Γ╝∞╓▄╞┌:'+STR(YL26,1,0)
@ 7,20 SAY '─┌╝∞╓▄╞┌:'+STR(YL27,1,0)
@ 7,35 SAY '╚½├µ╝∞▓Θ╓▄╞┌:'+STR(YL28,1,0)
@ 7,55 SAY '░┤╫░╡╪╡π:'+YL29
@ 8,5 SAY '╔╧┤╬═Γ╝∞╩▒╝Σ:'+YL31R
@ 8,30 SAY '╔╧┤╬─┌╝∞╩▒╝Σ:'+YL32R
@ 8,53 SAY '╔╧┤╬╚½├µ╝∞▓Θ╩▒╝Σ:'+YL33R
set cons on
wait '╩╟╥¬╔╛│²▒╛╝╟┬╝┬≡?(Y/N)' to D
STORE UPPE(D) TO D
IF D='Y'
DELE
ENDIF
ENDIF
CLEAR
@ 4,25 SAY '╗╣╥¬╔╛│²╞Σ╦ⁿ╝╟┬╝┬≡?(Y/N)' GET D
READ
STORE UPPE(D) TO D
IF D='Y'
GOTO TOP
STORE "    " TO C
LOOP
ENDIF
PACK
ENDDO
RETURN