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

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

clear
set talk off
set device to screen
close database
use sg
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
c2=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 sg1=c1 .and. sg2>=a .and. sg2<=c3
if eof()
clear
@ 4,10 say "┤╦╚╒╬▐╩┬╣╩╖ó╔·"
@ 6,50 clear
wait "░┤╚╬╥Γ╝ⁿ╖╡╗╪" to w
retu
endif
do while .not. eof()
k1=sg1
k2=dtoc(sg2)
j1=substr(k2,7,2)
j2=substr(k2,1,2)
j3=substr(k2,4,2)
k2=j1+'.'+j2+'.'+j3
k3=sg3
k4=sg4
k5=sg5
k6=sg6
k7=sg7
k8=sg8
k9=sg9
k10=sg10
k11=sg11
k12=sg12
k13=sg13
a2=.t.
clear
@ 1,1 say "╔Φ▒╕▒α║┼"get k1
@ 1,30 say "╩┬╣╩╘¡╥≥┬δ" get k3
@ 2,1 say "╩┬╣╩╖ó╔·╩▒╝Σ" get k2
@ 2,30 say "╩┬╣╩└α▒≡┬δú¿╠╪┤≤ú▒ú⌐,ú¿╓╪┤≤ú▓ú⌐,ú¿╥╗░πú│ú⌐" get k4
@ 3,1 say "╩┬╣╩╘≡╚╬╒▀" get k5
@ 3,30 say "╫▄═ú╗·╩▒╝Σ"get k6
@ 4,1 say "╞Σ╓╨╙░╧∞╔·▓·╩▒╝Σ" get k7
@ 4,30 say "╓▒╜╙╦≡╩º" get k9
@ 5,1 say "╝Σ╜╙╦≡╩º" get k10
@ 5,30 say "╨▐└φ╖╤" get k11
@ 6,1 say "╩┬╣╩╖ó╔·╛¡╣²╝≥╩÷" get k8
@ 7,1 say "┤ª└φ╛÷╢¿" get k12
@ 8,1 say "╜±║≤╖└╖╢┤δ╩⌐" get k13
wait '╟δ╤í╘±ú║╨▐╕─ú╪ú¼╔╛│²ú╙ú¼╝╠╨°úτú¼═╦│÷ú╥ú║ ' to w
do case
case w='x'
y=recno()
do sg5.prg
exit
case w='s'
y=recno()
do sg6.prg
exit
case w='g'
cont
case w='r'
retu
endcase
enddo
retu