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

Text File | 1979-12-31 | 953 b | 48 lines

clear
set talk off
set device to screen
close database
use bh
a='         '
@ 4,10 say "╟δ╩Σ╚δ╢⌐╗⌡╡Ñ║┼" get a
read
loca for h1=a
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