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

Text File | 1979-12-31 | 1.4 KB | 64 lines

set talk off
set device to screen
close database
use ht
a='        '
b='        '
clear
@ 3,15 say "╟δ╩Σ╚δ╞≡╩╝╚╒╞┌" get a pict 'xx.xx.xx'
@ 4,15 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 ht8>=a .and. ht8<=b
clear
if eof()
@ 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
retu