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

Text File | 1979-12-31 | 1.7 KB | 107 lines

clear
set talk off
set device to screen
close database
use gz
a='        '
c1='         '
@ 4,10 say "╟δ╩Σ╚δ╣╩╒╧╖ó─Ω╘┬:" get a pict 'xx.xx'
@ 5,10 say "╔Φ▒╕▒α║┼" get c1
read
j1=substr(a,4,2)
j2='01'
j3=substr(a,1,2)
a=j1+'/'+j2+'/'+j3
a=ctod(a)
c2=month(a)
if c2<=7
if c2=2
c3=a+27
else
c2=c2/2
c3=int(c2)
c2=c2-c3
if c2<>0
c3=a+30
else
c3=a+29
endif
endif
else
c2=c2/2
c3=int(c2)
c2=c2-c3
if c2<>0
c3=a+29
else
c3=a+30
endif
endif
loca for gz1=c1 .and. gz3>=a .and. gz3<=c3
if eof()
clear
@ 4,10 say "┤╦╚╒─┌╬▐╣╩╒╧╖ó╔·"
wait '░┤╚╬╥Γ╝ⁿ╖╡╗╪' to w
close database
retu
endif
do while .not. eof()
k1=gz1
k2=gz2
k3=dtoc(gz3)
j1=substr(k3,7,2)
j2=substr(k3,1,2)
j3=substr(k3,4,2)
k3=j1+'.'+j2+'.'+j3
k4=gz4
k5=gz5
k6=gz6
k7=gz7
k8=gz8
k9=gz9
k10=gz10
k11=gz11
k12=gz12
k13=gz13
k14=gz14
k15=gz15
clear
@ 1,1 say "╔Φ▒╕▒α║┼" get k1
@ 2,1 say "╣╩╒╧▓┐╬╗┬δ" get k2
@ 3,1 say "╡Ñ╬╗┤·┬δ" get k14
@ 4,1 say "╣╩╒╧╖ó╔·╞┌" get k3
@ 5,1 say "═ú╗·╦≡╩º" get k4
@ 6,1 say "╝╞╗«╣ñ╩▒" get k5
@ 7,1 say "═ú╗·╩▒╝Σ" get k6
@ 8,1 say "╩╡╝╩╣ñ╩▒" get k7
@ 1,50 say "╞Σ╓╨═ú╣ñ┤²┴╧╩▒╝Σ" get k8
@ 2,50 say "╣ñ╩▒╖╤" get k9
@ 3,50 say "▒╕╝■╖╤" get k10
@ 4,50 say "▓─┴╧╖╤" get k11
@ 5,50 say "═Γ╬»╝╙╣ñ╖╤" get k12
@ 6,50 say "╞Σ╦ⁿ╖╤" get k13
@ 7,50 say "╣╩╒╧┤╬╩²" get k15
@ 9,1 clear
wait '╟δ╤í╘±ú║╨▐╕─ú╪ú¼╔╛│²ú╙ú¼╝╠╨°úτú¼═╦│÷ú╥ú║ ' to w
do case
case w='x'
y=recno()
do gz7.prg
exit
case w='s'
y=recno()
do gz8.prg
exit
case w='g'
cont
case w='r'
close database
retu
endcase
enddo
a1=.t.
retu