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

Text File | 1980-01-01 | 1.5 KB | 71 lines

clear
if eof()
@ 3,27 say '-------------------'
@ 4,27 say ' ╬▐ ┤╦ú¿└αú⌐╔Φ ▒╕'
@ 5,27 say '-------------------'
else
cf=recno()
@ 0,30 say '╔Φ▒╕╠¿╒╩╧╘╩╛┐¿'
@ 1,0 say ì
'-----------------------------------------------------------------ì
-----------'
@ 2,0 say '╔Φ▒╕▒α║┼: '+sb1
@ 2,27 say  '╣ñ╥╡╞╒▓Θ║┼: '+sb2
@ 2,54 say  '╔Φ▒╕├√│╞: '+sb3
@ 3,0 say '╨═    ║┼: '+sb4
@ 3,27 say '╣µ    ╕±: '+sb5
@ 3,54 say '╓╪    ┴┐: '+str(sb6,6,2)
@ 4,0  say '═Γ╨═│▀┤τ: '+sb7
@ 4,27 say '╓╞ ╘∞ │º: '+sb8
@ 4,54 say '╓╞ ╘∞ ║┼: '+sb9
a5=dtoc(sb10)
j1=substr(a5,7,2)
j2=substr(a5,1,2)
j3=substr(a5,4,2)
a5=j1+'.'+j2+'.'+j3
@ 5,0  say '│÷│º╚╒╞┌: '+a5
a5=dtoc(sb12)
j1=substr(a5,7,2)
j2=substr(a5,1,2)
j3=substr(a5,4,2)
a5=j1+'.'+j2+'.'+j3
@ 5,27 say '╞⌠╙├╚╒╞┌: '+a5
@ 5,54 say 'ú╞    ╗·: '+str(sb13,4,1)
@ 6,0  say 'ú╞    ╡τ: '+str(sb14,5,1)
@ 6,27 say 'ԭ    ֵ: '+str(sb15,10,2)
@ 6,54 say '╒█╛╔─Ω╧▐: '+str(sb16,2)
@ 7,0  say '╡τ╗·╩²┴┐: '+str(sb20,2)
@ 7,27 say '╫▄ ╣ª ┬╩: '+str(sb22,7,2)
stor sb24 to a
sele 2
use ls index lssy
seek a
p1=ls2
sele 1
@ 7,54 say '└α    ╩⌠: '+p1
stor sb25 to b
sele 2
use gs index gssy
seek b
p1=gs2
sele 1
@ 8,0 say '╣▄    ╩⌠: '+p1
stor sb27 to c
sele 2
use jdx index jdxsy
seek c
p1=jdx2
sele 1
@ 8,27 say '╓╪╥¬│╠╢╚: '+p1
stor sb28 to d
sele 2
use dw index dw1
seek d
p1=dw2
sele 1
@ 8,54  say '╩╣╙├╡Ñ╬╗: '+p1
@ 9,0   say  '░▓╫░╡╪╡π: '+sb29
wait '                        * * * ░┤╗╪│╡ * * *'
endif
return