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

Text File | 1980-01-01 | 1.9 KB | 72 lines

STORE '        ' TO BJH6R
STORE '        ' TO BJH8R
STORE '        ' TO BJH10R
STORE '        ' TO BJH12R
STORE 'Y' TO D
DO WHILE .NOT. D='N'
CLEAR
@ 9,30 SAY '╟δ╩Σ╚δ╔Φ▒╕▒α║┼' GET C
READ
LOCAT FOR BJH1=C
IF EOF()
CLEAR
@ 8,30 SAY '╬▐┤╦▒α║┼╔Φ▒╕    '+C
ELSE
CLEAR
STORE DTOC(BJH6) TO BJH6R1
STORE SUBS(BJH6R1,7,2) TO BJH6R2
STORE SUBS(BJH6R1,1,2) TO BJH6R3
STORE SUBS(BJH6R1,4,2) TO BJH6R4
STORE BJH6R2+'.'+BJH6R3+'.'+BJH6R4 TO BJH6R
STORE DTOC(BJH8) TO BJH8R1
STORE SUBS(BJH8R1,7,2) TO BJH8R2
STORE SUBS(BJH8R1,1,2) TO BJH8R3
STORE SUBS(BJH8R1,4,2) TO BJH8R4
STORE BJH8R2+'.'+BJH8R3+'.'+BJH8R4 TO BJH8R
STORE DTOC(BJH10) TO BJH10R1
STORE SUBS(BJH10R1,7,2) TO BJH10R2
STORE SUBS(BJH10R1,1,2) TO BJH10R3
STORE SUBS(BJH10R1,4,2) TO BJH10R4
STORE BJH10R2+'.'+BJH10R3+'.'+BJH10R4 TO BJH10R
STORE DTOC(BJH12) TO BJH12R1
STORE SUBS(BJH12R1,7,2) TO BJH12R2
STORE SUBS(BJH12R1,1,2) TO BJH12R3
STORE SUBS(BJH12R1,4,2) TO BJH12R4
STORE BJH12R2+'.'+BJH12R3+'.'+BJH12R4 TO BJH12R
STORE 'Y' TO CD
@ 1,10 SAY '╔Φ▒╕▒α║┼:'+BJH1
@ 1,30 SAY '┤≤╨▐╓▄╞┌(╠∞):'+STR(BJH2,2,0)
@ 1,50 SAY '╓╨╨▐╓▄╞┌(╠∞):'+STR(BJH3,2,0)
@ 2,10 SAY '╨í╨▐╓▄╞┌(╠∞):'+STR(BJH4,2,0)
@ 2,30 SAY '╢■▒ú╓▄╞┌(╠∞):'+STR(BJH5,2,0)
@ 2,50 SAY '╔╧┤╬┤≤╨▐╚╒╞┌:'+BJH6R
@ 3,10 SAY '┤≤╨▐║≤└█╝╞┐¬╢»╠¿╩▒:'+STR(BJH7,5,0)
@ 3,40 SAY '╔╧┤╬╓╨╨▐╚╒╞┌:'+BJH8R
@ 4,10 SAY '╔╧┤╬╓╨╨▐└█╝╞┐¬╢»╠¿╩▒:'+STR(BJH9,5,0)
@ 4,40 SAY '╔╧┤╬╨í╨▐╚╒╞┌:'+BJH10R
@ 5,10 SAY '╔╧┤╬╨í╨▐└█╝╞┐¬╢»╠¿╩▒:'+STR(BJH11,5,0)
@ 5,40 SAY '╔╧┤╬╢■▒ú╚╒╞┌:'+BJH12R
@ 6,10 SAY '╢■▒ú║≤└█╝╞┐¬╢»╠¿╩▒:'+STR(BJH13,5,0)
@ 6,40 SAY '═Ω║├▒Ω╓╛(0═Ω║├1▓╗═Ω║├):'+BJH14
@ 7,10 SAY '╖Γ┤µ▒Ω╓╛(F╖Γ 0▓╗):'+BJH18
@ 7,40 SAY '╣ñ╫≈░α╓╞:'+STR(BJH17,1,0)
@ 7,55 SAY '╓╪╥¬│╠╢╚:'+BJH16
@ 8,25 SAY '╩╟╥¬╔╛│²╒Γ╠⌡╝╟┬╝┬≡?' GET CD
READ
STORE UPPE(CD) TO CD
IF CD='Y'
DELE
ENDIF
ENDIF
@ 9,30 SAY '╗╣╔╛│²╞Σ╦ⁿ╝╟┬╝┬≡?' GET D
READ
STORE UPPE(D) TO D
IF D='Y'
GOTO TOP
STORE '         ' TO C
LOOP
ENDIF
PACK
ENDDO
RETURN