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

Text File | 1979-12-31 | 1.2 KB | 60 lines

clear
set talk off
set device to screen
close database
use bh
a='        '
b='        '
@ 4,10 say "╟δ╩Σ╚δ╞≡╩╝╚╒╞┌" get a pict 'xx.xx.xx'
@ 5,10 say "╓╒╓╣╚╒╞┌" get b pict 'xx.xx.xx'
read
j1=substr(a,4,2)
j2=substr(a,7,2)
j3=substr(a,1,2)
a=j1+'/'+j2+'/'+j3
a=ctod(a)
j1=substr(b,4,2)
j2=substr(b,7,2)
j3=substr(b,1,2)
b=j1+'/'+j2+'/'+j3
b=ctod(b)
loca for h8>=a .and. h8<=b
do while .not. eof()
clear
@ 1,1 say "╢⌐╗⌡╡Ñ║┼" get h1
@ 2,1 say "▒╕╝■▒α║┼" get h2
@ 3,1 say "▒╕╝■├√│╞" get h4
@ 4,1 say "╣µ╕±" get h5
@ 5,1 say "╡Ñ╝█" get h6
@ 6,1 say "╩²┴┐" get h7
@ 7,1 say "│º╖╜" get h3
k8=dtoc(h8)
j1=substr(k8,7,2)
j2=substr(k8,1,2)
j3=substr(k8,4,2)
k8=j1+'.'+j2+'.'+j3
@ 8,1 say "╢⌐╗⌡╚╒╞┌" get k8
k9=dtoc(h9)
j1=substr(k9,7,2)
j2=substr(k9,1,2)
j3=substr(k9,4,2)
k9=j1+'.'+j2+'.'+j3
@ 1,50 say "╙ª╡╜╗⌡╞┌" get k9
@ 2,50 say "╜╗╗⌡╡╪╡π" get h15
@ 3,50 say "╘╦╩Σ╖╜╩╜" get h16
@ 4,50 say "╥╤╡╜╗⌡┴┐" get h10
@ 5,50 say "╡τ┤½" get h11
@ 6,50 say "╡τ╗░" get h12
@ 7,50 say "╡τ▒¿╣╥║┼" get h13
@ 8,50 say "┴¬╧╡╚╦" get h14
@ 9,1 clear
wait '░┤╚╬╥Γ╝ⁿ╧╘╩╛┤╦╖╢╬º─┌╡─╞Σ╦ⁿ▒╕╝■' to w
cont
enddo
retu