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

Text File | 1979-12-31 | 1.9 KB | 67 lines

STORE '        ' TO BJH6R
STORE '        ' TO BJH8R
STORE '        ' TO BJH10R
STORE '        ' TO BJH12R
STORE 'Y' TO C
DO WHILE .NOT. C='N'
APPEND BLANK
CLEAR
STORE 'N' TO CD
DO WHILE CD='N'
@ 0,8 SAY '╔Φ▒╕▒α║┼' GET BJH1
@ 1,8 SAY '┤≤╨▐╓▄╞┌(╠∞)' GET BJH2
@ 2,8 SAY '╓╨╨▐╓▄╞┌(╠∞)' GET BJH3
@ 3,8 SAY '╨í╨▐╓▄╞┌(╠∞)' GET BJH4
@ 4,8 SAY '╢■▒ú╓▄╞┌(╠∞)' GET BJH5
@ 5,8 SAY '╔╧┤╬┤≤╨▐╚╒╞┌' GET BJH6R PICT '99.99.99'
@ 6,8 SAY '╔╧┤╬╓╨╨▐╚╒╞┌' GET BJH8R PICT '99.99.99'
@ 7,8 SAY '╔╧┤╬╨í╨▐╚╒╞┌' GET BJH10R PICT '99.99.99'
@ 8,8 SAY '╔╧┤╬╢■▒ú╚╒╞┌' GET BJH12R PICT '99.99.99'
@ 0,40 SAY '╔╧┤╬┤≤╨▐║≤└█╝╞┐¬╢»╠¿╩▒' GET BJH7
@ 1,40 SAY '╔╧┤╬╓╨╨▐║≤└█╝╞┐¬╢»╠¿╩▒' GET BJH9
@ 2,40 SAY '╔╧┤╬╨í╨▐║≤└█╝╞┐¬╢»╠¿╩▒' GET BJH11
@ 3,40 SAY '╔╧┤╬╢■▒ú║≤└█╝╞┐¬╢»╠¿╩▒' GET BJH13
@ 4,40 SAY '═Ω║├▒Ω╓╛(Y═Ω║├N▓╗═Ω║├)' GET BJH14
@ 5,40 SAY '╖Γ┤µ▒Ω╓╛(F╖Γ 0▓╗)' GET BJH18
@ 6,40 SAY '╩╣╙├╡Ñ╬╗┤·║┼' GET BJH15
@ 7,40 SAY '╣ñ╫≈░α╓╞' GET BJH17
@ 7,60 SAY '╓╪╥¬│╠╢╚' GET BJH16
READ
STORE SUBS(BJH6R,1,2) TO A1S
STORE SUBS(BJH6R,4,2) TO A2S
STORE SUBS(BJH6R,7,2) TO A3S
STORE A2S+'/'+A3S+'/'+A1S TO A4S
STORE CTOD(A4S) TO A5S
REPL BJH6 WITH A5S
STORE SUBS(BJH8R,1,2) TO B1S
STORE SUBS(BJH8R,4,2) TO B2S
STORE SUBS(BJH8R,7,2) TO B3S
STORE B2S+'/'+B3S+'/'+B1S TO B4S
STORE CTOD(B4S) TO B5S
REPL BJH8 WITH B5S
STORE SUBS(BJH10R,1,2) TO C1S
STORE SUBS(BJH10R,4,2) TO C2S
STORE SUBS(BJH10R,7,2) TO C3S
STORE C2S+'/'+C3S+'/'+C1S TO C4S
STORE CTOD(C4S) TO C5S
REPL BJH10 WITH C5S
STORE SUBS(BJH12R,1,2) TO D1S
STORE SUBS(BJH12R,4,2) TO D2S
STORE SUBS(BJH12R,7,2) TO D3S
STORE D2S+'/'+D3S+'/'+D1S TO D4S
STORE CTOD(D4S) TO D5S
REPL BJH12 WITH D5S
@ 9,25 SAY '╩Σ╚δ╒²╚╖┬≡ ? (Y/N)' GET CD
READ
STORE UPPE(CD) TO CD
ENDDO
@ 9,25 SAY '╗╣╝╠╨°╩Σ╚δ┬≡?(Y/N)' GET C
READ
STORE '        ' TO BJH6R
STORE '        ' TO BJH8R
STORE '        ' TO BJH10R
c=uppe(c)
ENDDO
STORE '        ' TO BJH12R
RETURN