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

Text File | 1979-12-31 | 3.5 KB | 123 lines

clos data
use yl
STORE '        ' TO YL7R
STORE '        ' TO YL9R
STORE '        ' TO YL31R
STORE '        ' TO YL32R
STORE '        ' TO YL33R
STORE 'Y' TO D
DO WHILE .NOT. D='N'
CLEAR
c='         '
@ 4,25 SAY '╟δ╩Σ╚δ╚▌╞≈▒α║┼' GET C
READ
SET EXACT ON
SET EXACT ON
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
@ 1,5 SAY '╚▌╞≈▒α║┼' GET YL1
@ 1,20 SAY '╚▌╞≈├√│╞' GET YL2
@ 1,45 SAY '└α▒≡' GET YL3
@ 1,55 SAY '╩╣╙├╡Ñ╬╗▒α║┼' GET YL4
@ 2,5 SAY '╝╝╩⌡╫╩┴╧║┼' GET YL5
@ 2,20 SAY '╓╞╘∞│º' GET YL6
@ 2,45 SAY '╓╞╘∞╚╒╞┌' GET YL7R PICT '99.99.99'
@ 2,62 SAY '│÷│º▒α║┼' GET YL8
@ 3,5 SAY '╩╣╙├╚╒╞┌' GET YL9R PICT '99.99.99'
@ 3,25 SAY '╔Φ╝╞╩╣╙├─Ω╧▐' GET YL10
@ 3,45 SAY '─┌╛╢(MM)' GET YL11
@ 3,60 SAY '▒┌║±(MM)' GET YL12
@ 4,5 SAY '│ñ(╕▀)(MM)' GET YL13
@ 4,30 SAY '╚▌╗²(M^)' GET YL14
@ 4,50 SAY '╫▄╓╪(KG)' GET YL15
@ 5,5 SAY '═▓╠σ▓─┴╧' GET YL16
@ 5,30 SAY '╖Γ═╖▓─┴╧' GET YL17
@ 5,55 SAY '╓≈┬▌╦¿▓─┴╧' GET YL18
@ 6,5 SAY '─┌▒┌╖└╕»┤δ╩⌐' GET YL19
@ 6,31 SAY '═Γ▒┌╖└╕»┤δ╩⌐' GET YL20
@ 6,57 SAY '╤╣┴ª' GET YL21
@ 6,66 SAY '╬┬╢╚' GET YL22
@ 7,5 SAY '╜Θ╓╩' GET YL23
@ 7,25 SAY '▒┌╬┬' GET YL24
@ 7,35 SAY '╙├═╛' GET YL25
@ 7,65 SAY '╩╘╤Θ╤╣┴ª' GET YL30
@ 8,5 SAY '═Γ╝∞╓▄╞┌' GET YL26
@ 8,20 SAY '─┌╝∞╓▄╞┌' GET YL27
@ 8,35 SAY '╚½├µ╝∞▓Θ╓▄╞┌' GET YL28
@ 8,55 SAY '░┤╫░╡╪╡π' GET YL29
@ 9,5 SAY '╔╧┤╬═Γ╝∞╩▒╝Σ' GET YL31R PICT '99.99.99'
@ 9,30 SAY '╔╧┤╬─┌╝∞╩▒╝Σ' GET YL32R PICT '99.99.99'
@ 9,55 SAY '╔╧┤╬╚½├µ╝∞▓Θ╩▒╝Σ' GET YL33R PICT '99.99.99'
READ
STORE SUBS(YL7R,1,2) TO LY16
STORE SUBS(YL7R,4,2) TO LY17
STORE SUBS(YL7R,7,2) TO LY18
STORE LY17+'/'+LY18+'/'+LY16 TO LY19
STORE CTOD(LY19) TO LY20
REPL YL7 WITH LY20
STORE SUBS(YL9R,1,2) TO LY21
STORE SUBS(YL9R,4,2) TO LY22
STORE SUBS(YL9R,7,2) TO LY23
STORE LY22+'/'+LY23+'/'+LY21 TO LY24
STORE CTOD(LY24) TO LY25
REPL YL9 WITH LY25
STORE SUBS(YL31R,1,2) TO LY1
STORE SUBS(YL31R,4,2) TO LY2
STORE SUBS(YL31R,7,2) TO LY3
STORE LY2+'/'+LY3+'/'+LY1 TO LY4
STORE CTOD(LY4) TO LY5
REPL YL31 WITH LY5
STORE SUBS(YL32R,1,2) TO LY6
STORE SUBS(YL32R,4,2) TO LY7
STORE SUBS(YL32R,7,2) TO LY8
STORE LY7+'/'+LY8+'/'+LY6 TO LY9
STORE CTOD(LY9) TO LY10
REPL YL32 WITH LY10
STORE SUBS(YL33R,1,2) TO LY11
STORE SUBS(YL33R,4,2) TO LY12
STORE SUBS(YL33R,7,2) TO LY13
STORE LY12+'/'+LY13+'/'+LY11 TO LY14
STORE CTOD(LY14) TO LY15
REPL YL33 WITH LY15
ENDIF
CLEAR
@ 8,25 SAY '╗╣╝╠╨°╨▐╕─┬≡?' GET D
READ
STORE UPPE(D) TO D
IF D='Y'
GOTO TOP
STORE '    ' TO C
LOOP
ENDIF
ENDDO
RETURN