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

Text File | 1979-12-31 | 2.4 KB | 88 lines

STORE '        ' TO YL7R
STORE '        ' TO YL9R
STORE '        ' TO YL31R
STORE '        ' TO YL32R
STORE '        ' TO YL33R
STORE 'Y' TO C
DO WHILE .NOT. C='N'
APPEND BLANK
CLEAR
STORE 'N' TO CD
DO WHILE CD='N'
CLEAR
@ 0,3 SAY '╚▌╞≈▒α║┼' GET YL1
@ 1,3 SAY '╚▌╞≈├√│╞' GET YL2
@ 2,3 SAY '└α    ▒≡' GET YL3
@ 3,3 SAY '╩╣╙├╡Ñ╬╗║┼' GET YL4
@ 4,3 SAY '╝╝╩⌡╫╩┴╧║┼' GET YL5
@ 5,3 SAY '╓╞ ╘∞ │º' GET YL6
@ 6,3 SAY '╓╞╘∞╚╒╞┌' GET YL7R PICT '99.99.99'
@ 7,3 SAY '│÷│º▒α║┼' GET YL8
@ 8,3 SAY '╩╣╙├╚╒╞┌' GET YL9R PICT '99.99.99'
@ 0,40 SAY '╔Φ╝╞╩╣╙├─Ω╧▐' GET YL10
@ 1,40 SAY '─┌╛╢(MM)' GET YL11
@ 2,40 SAY '▒┌║±(MM)' GET YL12
@ 3,40 SAY '│ñ(╕▀)(MM)' GET YL13
@ 4,40 SAY '╚▌╗²(M^)' GET YL14
@ 5,40 SAY '╫▄╓╪(KG)' GET YL15
@ 6,40 SAY '═▓╠σ▓─┴╧' GET YL16
@ 7,40 SAY '╖Γ═╖▓─┴╧' GET YL17
@ 8,40 SAY '╓≈┬▌╦¿▓─┴╧' GET YL18
READ
CLEAR
@ 1,3 SAY '─┌▒┌╖└╕»┤δ╩⌐' GET YL19
@ 2,3 SAY '═Γ▒┌╖└╕»┤δ╩⌐' GET YL20
@ 3,3 SAY '╤╣    ┴ª' GET YL21
@ 4,3 SAY '╬┬    ╢╚' GET YL22
@ 5,3 SAY '╜Θ    ╓╩' GET YL23
@ 6,3 SAY '▒┌    ╬┬' GET YL24
@ 7,3 SAY '╙├    ═╛' GET YL25
@ 8,3 SAY '═Γ╝∞╓▄╞┌' GET YL26
@ 1,40 SAY '─┌╝∞╓▄╞┌' GET YL27
@ 2,40 SAY '╚½├µ╝∞▓Θ╓▄╞┌' GET YL28
@ 3,40 SAY '░┤╫░╡╪╡π' GET YL29
@ 4,40 SAY '╩╘╤Θ╤╣┴ª' GET YL30
@ 5,40 SAY '╔╧┤╬═Γ╝∞╩▒╝Σ' GET YL31R PICT '99.99.99'
@ 6,40 SAY '╔╧┤╬─┌╝∞╩▒╝Σ' GET YL32R PICT '99.99.99'
@ 7,40 SAY '╔╧┤╬╚½├µ╝∞▓Θ╩▒╝Σ' GET YL33R PICT '99.99.99'
READ
STOR SUBS(YL7R,1,2) TO LY16
STOR SUBS(YL7R,4,2) TO LY17
STOR SUBS(YL7R,7,2) TO LY18
STOR LY17+'/'+LY18+'/'+LY16 TO LY19
STOR CTOD(LY19) TO LY20
REPL YL7 WITH LY20
STOR SUBS(YL9R,1,2) TO LY21
STOR SUBS(YL9R,4,2) TO LY22
STOR SUBS(YL9R,7,2) TO LY23
STOR LY22+'/'+LY23+'/'+LY21 TO LY24
STOR 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
@ 9,25 SAY '╩Σ╚δ╒²╚╖┬≡ ?(Y/N)' GET CD
READ
STORE UPPE(CD) TO CD
ENDDO
@ 9,25 SAY '╗╣╝╠╨°╩Σ╚δ┬≡?' GET C
READ
STORE UPPE(C) TO C
ENDDO
RETURN