home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b034 / gz.img / CBHS.PRG < prev    next >
Encoding:
Text File  |  1991-08-06  |  4.0 KB  |  179 lines
  1. *│╔▒╛║╦╦π╫╙│╠╨≥:CBHS.PRG
  2. set talk off
  3. clear
  4. public mo1,mo2,mo3,mo11,mo22,mo33,qbl1,qbl2,qbl3,qbl4,qbl5,qbl6,qbl7,qbl8,qbl9,qbl10,qbl11,w3,ys,bcbl,qbl50,qbl51,qbl52
  5. cj=0
  6. clear
  7. @ 2,28 say '│╔▒╛║╦╦π▓┐├┼'
  8. @ 3,28 say '============'
  9. @ 5,25 say '╙═╞ß│╡╝Σ ------- 1'
  10. @ 7,25 say '│σ╤╣│╡╝Σ ------- 2'
  11. @ 9,25 say '╟░▓µ│╡╝Σ ------- 3'
  12. @ 11,25 say '▒╕┴╧│╡╝Σ ------- 4'
  13. @ 13,25 say '╗·─ú│╡╝Σ ------- 5'
  14. @ 15,25 say '╨┬▓·╞╖│╡╝Σ ----- 6'
  15. @ 17,18 say '╟δ╩Σ╚δ╥¬║╦╦π▓┐├┼╡─▒α║┼: ' get cj
  16.      read
  17. do case
  18. case cj=1
  19.    dimension xg(1,156)
  20.    restore from a:cpmck1.mem
  21.    w3='╙═╞ß'
  22.    ys='4'
  23.    bcbl=0
  24.    qbl1=0
  25.    qbl2=0
  26.    qbl3='a:fpl1.dbf'
  27.    qbl4='a:scfp1.dbf'
  28.    qbl5='a:cbzc1.dbf'
  29.    qbl6='a:sjcb1.dbf'
  30.    qbl7='c:cbhs-71a.prg'
  31.    qbl8='c:cbhs-21a.prg'
  32.    qbl9='c:cbhs-21b.prg'
  33.    qbl10='a:cpmck1.mem'
  34.    qbl11='c:cbhs-71b.prg'
  35.    qbl12='c:bcbde-1b.prg'
  36.    qbl13='a:bcbde.dbf'
  37.    qbl50='c:cbhs-21c.prg'
  38.    qbl51='a:lyfpk-a1.dbf'
  39.    qbl52='a:lyfpk-a2.dbf'
  40.    qbl53='a:lyfpk-a3'
  41.    qbl54='a:lyfpk-a4.dbf'
  42.    qbl55='c:cbhs-21d.prg'
  43. case cj=2
  44.    dimension xg(1,64)
  45.    restore from a:cpmck2.mem
  46.    w3='│σ╤╣'
  47.    ys='2'
  48.    bcbl=0
  49.    qbl1=60
  50.    qbl2=60
  51.    qbl3='a:fpl2.dbf'
  52.    qbl4='a:scfp2.dbf'
  53.    qbl5='a:cbzc2.dbf'
  54.    qbl6='a:sjcb2.dbf'
  55.    qbl7='c:cbhs-73a.prg'
  56.    qbl8='c:cbhs-23a.prg'
  57.    qbl9='c:cbhs-23b.prg'
  58.    qbl10='a:cpmck2.mem'
  59.    qbl11='c:cbhs-71b.prg'
  60.    qbl50='c:cbhs-23c.prg'
  61.    qbl51='a:lyfpk-b1.dbf'
  62.    qbl52='a:lyfpk-b2.dbf'
  63.    qbl53='a:lyfpk-b3'
  64.    qbl54='a:lyfpk-b4.dbf'
  65. case cj=3
  66.    dimension xg(1,34)
  67.    restore from a:cpmck3.mem
  68.    w3='╟░▓µ'
  69.    ys='1'
  70.    bcbl=8
  71.    qbl1=90
  72.    qbl2=90
  73.    qbl3='a:fpl3.dbf'
  74.    qbl4='a:scfp3.dbf'
  75.    qbl5='a:cbzc3.dbf'
  76.    qbl6='a:sjcb3.dbf'
  77.    qbl7='c:cbhs-72a.prg'
  78.    qbl8='c:cbhs-22a.prg'
  79.    qbl9='c:cbhs-22b.prg'
  80.    qbl10='a:cpmck6.mem'
  81.    qbl11='c:cbhs-71b.prg'
  82.    qbl50='c:cbhs-22c.prg'
  83.    qbl51='a:lyfpk-c1.dbf'
  84.    qbl52='a:lyfpk-c2.dbf'
  85.    qbl53='a:lyfpk-c3'
  86.    qbl54='a:lyfpk-c4.dbf'
  87. case cj=6
  88.    dimension xg(1,34)
  89.    restore from a:cpmck6.mem
  90.    w3='╨┬▓·╞╖'
  91.    ys='1'
  92.    bcbl=8
  93.    qbl1=90
  94.    qbl2=90
  95.    qbl3='a:fpl6.dbf'
  96.    qbl4='a:scfp6.dbf'
  97.    qbl5='a:cbzc6.dbf'
  98.    qbl6='a:sjcb6.dbf'
  99.    qbl7='c:cbhs-72a.prg'
  100.    qbl8='c:cbhs-22a.prg'
  101.    qbl9='c:cbhs-22b.prg'
  102.    qbl10='a:cpmck6.mem'
  103.    qbl11='c:cbhs-71b.prg'
  104.    qbl12='c:bcbde-1b.prg'
  105.    qbl13='a:bcbde6.dbf'
  106.    qbl50='c:cbhs-22c.prg'
  107.    qbl51='a:lyfpk-f1.dbf'
  108.    qbl52='a:lyfpk-f2.dbf'
  109.    qbl53='a:lyfpk-f3'
  110.    qbl54='a:lyfpk-f4.dbf'
  111.    qbl55='c:cbhs-22d.prg'
  112. endcase
  113. clear
  114. dm='      '
  115. az=.t.
  116. do while az
  117. az=.f.
  118. mo1=year(date())
  119. mo11=str(mo1,4,0)
  120. mo2=month(date())
  121. mo22=str(mo2,2,0)
  122. mo3=day(date())
  123. mo33=str(mo3,2,0)
  124. @ 8,25 say '╜±╠∞╩╟:'
  125. @ 9,32 say mo11+'─Ω'+mo22+'╘┬'+mo33+'╚╒'
  126. @ 12,25 say '╔╧├µ╡─╚╒╞┌╢╘┬≡(Y/N)?  ' get dm
  127.      read
  128. if dm='N'.or.dm='n'
  129.    az=.t.
  130.    run date
  131.    clear
  132. endif
  133. enddo
  134. cp=0
  135. answer=.t.
  136. do while answer
  137. clear
  138. @ 4,22 say '│╔▒╛║╦╦π╫╙│╠╨≥╟σ╡Ñ╬¬─·╠ß╣⌐╥╘╧┬╖■╬±'
  139. @ 5,22 say '=================================='
  140. @ 07,22 say '░δ│╔╞╖╢¿╢ε▒φ╡─╝╞╦π-------------- 1'
  141. @ 08,22 say '╗∙▒╛╔·▓·╖╓┼Σ▒φ╡─╝╞╦π------------ 2'
  142. @ 09,22 say '▓·╞╖│╔▒╛▒φ(░ⁿ│╔▒╛╫¬│÷▒φ)╡─╝╞╦π-- 3'
  143. @ 10,22 say '└√╚≤╖╓┼Σ▒φ╝╞╦π------------------ 4'
  144. @ 11,22 say '│⌡╩╝╗»-------------------------- 5'
  145. @ 12,22 say '┤≥╙í╕≈▒¿▒φ---------------------- 6'
  146. @ 13,22 say '▓Θ╕≈▓·╞╖─│╩▒╞┌╡─│╔▒╛╩²---------- 7'
  147. @ 14,22 say '╓╞╫≈└·╩╖╫╩┴╧-------------------- 8'
  148. @ 15,22 say '╨▐╕─---------------------------- 9'
  149. @ 17,22 say '═╦│÷---------------------------- 10'
  150. @ 19,15 say '╟δ╩Σ╚δ─·╥¬╤í╘±╡─╣ª─▄▒α║┼' get cp
  151.     read
  152.    do case
  153.       case cp=1
  154.            do c:bcbde
  155.       case cp=2
  156.            do c:cbhs-1
  157.       case cp=3
  158.            do c:cbhs-2
  159.       case cp=4
  160.            do c:cbhs-9
  161.       case cp=5
  162.            do c:cbhs-3
  163.       case cp=6
  164.            do c:cbhs-4
  165.       case cp=7
  166.            do c:cbhs-5
  167.       case cp=8
  168.            do c:cbhs-6
  169.       case cp=9
  170.            do c:cbhs-7
  171.       case cp=10
  172.            answer=.f.
  173.     endcase
  174. enddo
  175. set talk on
  176. release all
  177. return
  178.  
  179.