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

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

clear
set talk off
set device to screen
close database
use ht
a='         '
@ 4,10 say "╟δ╩Σ╚δ║╧═¼▒α║┼" get a
read
loca for ht1=a
if eof()
clear
@ 3,26 say '====================='
@ 4,26 say '  ╬▐┤╦║╧═¼,╟δ░┤╗╪│╡'
@ 5,26 say '====================='
wait ' '
else
do while .not. eof()
clear
@ 0,3 say "║╧═¼▒α║┼" get ht1
@ 1,3 say "╔Φ▒╕├√│╞" get ht2
@ 2,3 say "╔Φ▒╕╨═║┼" get ht3
@ 3,3 say "╣µ    ╕±" get ht4
@ 4,3 say "╡Ñ    ╝█" get ht5
@ 5,3 say "╩²    ┴┐" get ht6
@ 6,3 say "╣⌐╗⌡╡Ñ╬╗" get ht7
k8=dtoc(ht8)
j1=substr(k8,7,2)
j2=substr(k8,1,2)
j3=substr(k8,4,2)
k8=j1+'.'+j2+'.'+j3
@ 7,3 say "╢⌐╗⌡╚╒╞┌" get k8
k9=dtoc(ht9)
j1=substr(k9,7,2)
j2=substr(k9,1,2)
j3=substr(k9,4,2)
k9=j1+'.'+j2+'.'+j3
@ 8,3 say "╙ª╡╜╗⌡╞┌" get k9
@ 0,40 say "╜╗╗⌡╡╪╡π" get ht10
@ 1,40 say "╘╦╩Σ╖╜╩╜" get ht11
@ 2,40 say "╜ß╦π╖╜╩╜" get ht11a
@ 3,40 say "╥╤╡╜╗⌡┴┐" get ht12
@ 4,40 say "╒╩    ║┼" get ht13
@ 5,40 say "╡τ    ╗░" get ht14
@ 6,40 say "╡τ▒¿╣╥║┼" get ht15
@ 7,40 say "┤· ▒φ ╚╦" get ht16
@ 8,40 say "║╧═¼╕╜╫ó" get ht17
wait '                         *** ░┤╗╪│╡ ***' to w
cont
enddo
endif
set devi to screen
retu