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

Text File | 1979-12-31 | 1.5 KB | 77 lines

clear
set talk off
set device to screen
close database
use cr
a='      '
@ 4,15 say "╟δ╩Σ╚δ─Ω,╘┬" get a pict '99.99'
read
q=a
j1=substr(a,4,2)
j2='01'
j3=substr(a,1,2)
a=j1+'/'+j2+'/'+j3
a=ctod(a)
c=month(a)
d=c/2
e=int(d)
if c<=7
if c=2
b=a+27
endif
if d-e<>0
b=a+30
else
b=a+29
endif
else
if d-e<>0
b=a+29
else
b=a+30
endif
endif
sum l3*l4 to x for l10='r' .and. l2>=a .and. l2<=b
sum l3*l4 to y for l10='c' .and. l2>=a .and. l2<=b
sum l3*l4 to z for l10='h' .and. l2>=a .and. l2<=b
@ 1,30 say " "+q+"╡─│÷╚δ┐Γ╟Θ┐÷(╡Ñ╬╗:╘¬)"
@ 3,1 say "    ╜°┐Γ╜≡╢ε            │÷┐Γ╜≡╢ε            ╗╪╩╒╜≡╢ε        ì
    ╫▄╞╜║Γ"
@ 5,1 say " "+str(x,10,2)
@ 5,20 say " "+str(y,10,2)
@ 5,40 say " "+str(z,10,2)
u=x+z-y
@ 5,60 say " "+str(u,10,2)
wait '┤≥╙í┬≡(Y/N)' to w
if w<>'y'
close database
retu
endif
clear
@ 4,20 say "╒²╘┌┤≥╙íú¼╟δ╔╘║≥úí"
set cons off
set device to print
set print on
? chr(27)+"IJ"
set print off
@ prow()+1,20 say " "+q+"╡─╜°│÷┐Γ╟Θ┐÷(╡Ñ╬╗:╘¬)"
@ prow()+1,1 say "                    "
@ prow()+1,1 say ì
"====================================================="
@ prow()+1,1 say "|╜°┐Γ╜≡╢ε    |│÷┐Γ╜≡╢ε    |╗╪╩╒╜≡╢ε    |╫▄╞╜║Γ    ì
  |"
@ prow()+1,1 say ì
"|------------|------------|------------|------------|"
@ prow()+1,1 say "|"+str(x,10,2)
@ prow(),14 say "|"+str(y,10,2)
@ prow(),27 say "|"+str(z,10,2)
@ prow(),40 say "|"+str(u,10,2)+"  |"
@ prow()+1,1 say ì
"====================================================="
set print on
? chr(13)
set print off
set device to screen
set cons on
retu