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

Text File | 1979-12-31 | 2.7 KB | 125 lines

set talk off
set device to screen
close database
use ht
a='        '
clear
@ 4,13 say "╟δ╩Σ╚δ╡▒╟░╚╒╞┌" get a 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)
loca for ht6>ht12 .and. ht9<=a
if eof()
clear
@ 3,26 say '============================='
@ 4,26 say "  ╬▐╤╙╞┌╜╗╗⌡╡─║╧═¼,╟δ░┤╗╪│╡"
@ 5,26 say '============================='
wait '  '
retu
endif
clear
@ 0,1 say "╢⌐╗⌡╡Ñ║┼  ╔Φ▒╕├√│╞        ╢⌐╗⌡╩²┴┐  ╥╤╡╜╗⌡┴┐  ╙ª╜╗╗⌡╞┌  ╣²╞┌╠∞╩²     │º╖╜"
l=1
do while .not. eof()
@ l,0 say " "+ht1
@ l,9 say " "+ht2
@ l,26 say " "+str(ht6,4)
@ l,36 say " "+str(ht12,4)
b=dtoc(ht9)
j1=substr(b,7,2)
j2=substr(b,1,2)
j3=substr(b,4,2)
b=j1+'.'+j2+'.'+j3
@ l,45 say " "+b
c=a-ht9
@ l,54 say " "+str(c,6)
@ l,63 say " "+ht7
l=l+1
cont
if eof().or.l>=9
wait '                               ***░┤╗╪│╡***'
exit
endif
enddo
clear
w=' '
@ 4,26 say  '┤≥╙í┬≡(Y/N)' get w
read
if w<>'y'
retu
endif
clear
@ 3,26 say '===================='
@ 4,26 say ' ╟δ─·╔╘║ε,╒²╘┌┤≥╙í'
@ 5,26 say '===================='
set device to print
set print on
set cons off
? chr(27)+"IJ"
set cons on
set print off
loca all for ht6>ht12 .and. ht9<=a
d=recno()
p=1
do while .not.eof()
@ prow()+1,50 say '╔Φ▒╕║╧═¼┤▀╗⌡╡Ñ'
@ prow()+1,1 say "                   "
@ prow()+1,105 say "╡┌"+str(p,2)+"╥│"
@ prow()+1,1 say ì
"=================================================================ì
======================================================="
@ prow()+1,1 say "|╢⌐╗⌡╡Ñ║┼ |╔Φ▒╕├√│╞        |╨═║┼                ì
|╡Ñ╝█    ì
|╢⌐╗⌡╩²┴┐|╥╤╡╜╗⌡┴┐|╢⌐╗⌡╚╒╞┌|╙ª╡╜╗⌡╞┌|╣²╞┌╠∞╩²|╣⌐╙ª│º╖╜        |"
@ prow()+1,1 say ì
"|---------|----------------|--------------------|--------|-------ì
-|--------|--------|--------|--------|-----------ì
-----|"
l=1
do while .not. eof().and.l<=50
@ prow()+1,1 say "|"+ht1
@ prow(),11 say "|"+ht2
@ prow(),28 say "|"+ht3
@ prow(),49 say "|"+str(ht5,8,2)
@ prow(),58 say "|"+str(ht6,4)
@ prow(),67 say "|"+str(ht12,4)
b=dtoc(ht8)
j1=substr(b,7,2)
j2=substr(b,1,2)
j3=substr(b,4,2)
b=j1+'.'+j2+'.'+j3
@ prow(),76 say "|"+b
b=dtoc(ht9)
j1=substr(b,7,2)
j2=substr(b,1,2)
j3=substr(b,4,2)
b=j1+'.'+j2+'.'+j3
@ prow(),85 say "|"+b
c=a-ht9
@ prow(),94 say "|"+str(c,6)
@ prow(),103 say "|"+ht7+"|"
cont
if l=50.or.eof()
@ prow()+1,1 say ì
"=================================================================ì
======================================================="
@ prow()+3,0 say ' '
else
@ prow()+1,1 say ì
"|---------|----------------|--------------------|--------|-------ì
-|--------|--------|--------|--------|----------------|"
endif
l=l+1
enddo
p=p+1
l=1
enddo
set print on
? chr(13)
set print off
set device to screen
retu