Liren Large Software Subsidy 6/06.iso/b/b032/6.img/31/GYC11.PRG

Text File | 1987-08-27 | 1.9 KB | 91 lines

@ 2,0 clear
@ 4,11 say "╘┌┐¬╩╝╤º╧░╓«╟░, ╟δ─·╧╚╓╕╢¿╥¬╤º╧░╙δ▓Γ╩╘╡─╙ó╙∩╡Ñ┤╩╖╢╬º:"
ssqsc=1
ssqsk=1
sszzc=1
sszzk=1
if file("fwbl.mem")
 rest from "fwbl.mem" addi
 if ssqsc<7
  qcs="┤╙:│⌡╓╨╡┌ ("+str(ssqsc,1)+") ▓ß, ╡┌ ("+str(ssqsk,2)+") ┐╬"
 else
  qcs="┤╙:╕▀╓╨╡┌ ("+str(ssqsc-6,1)+") ▓ß, ╡┌ ("+str(ssqsk,2)+") ┐╬"
 endif
 if sszzc<7
  zcs="╡╜:│⌡╓╨╡┌ ("+str(sszzc,1)+") ▓ß, ╡┌ ("+str(sszzk,2)+") ┐╬"
 else
  zcs="╡╜:╕▀╓╨╡┌ ("+str(sszzc-6,1)+") ▓ß, ╡┌ ("+str(sszzk,2)+") ┐╬"
 endif
 do case
  case ssfwh=1
   fws="╖╢╬º╓╨╡─╚╬╥Γ┤╩"
  case ssfwh=2
   fws="╧▐╢¿╬¬╗∙▒╛┤╩╗π"
  case ssfwh=3
   fws="╧▐╢¿╬¬╢╠╙∩┤╩╗π"
  other
   loop
 endcase
 @ 9,28 say "╔╧┤╬╓╕╢¿╡─╖╢╬º╩╟:"
 @ 11,24 say qcs
 @ 13,24 say zcs
 @ 15,30 say fws
 do fk1 with 7,16,18,58,"í⌠"
 @ 20,1 say "   "
 wait "                    ─·╥¬╓╪╨┬╓╕╢¿╡Ñ┤╩╡─╤º╧░╖╢╬º┬≡(y/n)?" to yn0
 if yn0="y".or.yn0="Y"
  @ 3,0 clear
 else
  @ 3,0 clear
  do tsh
  retu
 endif
endif
do fk1 with 5,10,15,70,"í∙"
do while .t.
@ 7,18 say "╞≡╩╝▓ß:" get ssqsc range 1,9
@ 7,40 say "╞≡╩╝┐╬:" get ssqsk range 1,20
@ 9,18 say "╓╒╓╣▓ß:" get sszzc range 1,9
@ 9,40 say "╓╒╓╣┐╬:" get sszzk range 1,20
@ 11,16 say "│⌡╓╨┴∙▓ß, ╕▀╓╨╚²▓ß, ▒α║┼:1-9, ┐╬╩²▒α║┼: 1-20"
@ 13,24 say "╞≡╩╝▓ßíó║┼ í▄ ╓╒╓╣▓ßíó║┼"
read
jdz=sszzc*100+sszzk
jxz=ssqsc*100+ssqsk
if jdz<jxz
 loop
else
 exit
endif
enddo
sele 2
use cdk110
zxcx="gyc110"
ssfwh=1
do fk1 with 17,10,21,70,"í≥"
do cd01 with "xm",19,22,14,3,1,1
@ 23,20 say "╒²╘┌╔╕╤í─·╦∙╥¬╡─╙ó╙∩╡Ñ┤╩, ╟δ╔╘╡╚í¡í¡"
do case
 case ssfwh=1
  use yydc
  erase lsk1.dbf
  copy to lsk1 for cc*100+ks>=jxz.and.cc*100+ks<=jdz
 case ssfwh=2
  use yydc
  erase lsk1.dbf
  copy to lsk1 for cc*100+ks>=jxz.and.cc*100+ks<=jdz.and.gc=0
 case ssfwh=3
  use dydc
  erase lsk1.dbf
  copy to lsk1 for cc*100+ks>=jxz.and.cc*100+ks<=jdz
 other
endcase
@ 2,0 clear
do tsh
use
erase "fwbl.mem"
save to "fwbl.mem" all like ss*
sele 1
zxcx="gyc10"
retu