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

Text File | 1980-01-01 | 811 b | 32 lines

clear
@ 0,25 say '&m1'+'║┼╓≈╗·╡─╕¿╗·╠¿╒╩╧╘╩╛┐¿'
@ 1,0 say ì
'-----------------------------------------------------------------ì
-----------'
@ 2,5 say '╓≈╗·▒α║┼: '+fj1
@ 2,40 say  '╔Φ▒╕├√│╞: '+fj2
@ 3,5 say '╨═    ║┼: '+fj3
@ 3,40 say '╣µ    ╕±: '+fj4
@ 4,5 say '╔·▓·─▄┴ª: '+fj5
@ 4,40 say '╬╗    ║┼: '+fj6
@ 5,5 say '╓╞ ╘∞ │º: '+fj7
@ 5,40 say '│÷ │º ║┼: '+fj8
a5=dtoc(fj9)
j1=substr(a5,7,2)
j2=substr(a5,1,2)
j3=substr(a5,4,2)
a5=j1+'.'+j2+'.'+j3
a6=dtoc(fj10)
j1=substr(a6,7,2)
j2=substr(a6,1,2)
j3=substr(a6,4,2)
a6=j1+'.'+j2+'.'+j3
@ 6,5  say '░▓╫░╚╒╞┌: '+a5
@ 6,40 say '═╢▓·╚╒╞┌: '+a6
@ 7,5  say '═╝    ║┼: '+fj11
@ 7,40 say '╩²    ┴┐: '+str(fj12,2)
@ 8,5 say '╦┘    ▒╚: '+fj13
@ 8,40 say '╕¿╗·╘¡╓╡: '+str(fj14,10,2)
wait '                        * * * ░┤╗╪│╡ * * *'
return