home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b034 / gz.img / CBHS-73A.PRG < prev    next >
Encoding:
Text File  |  1980-01-03  |  1.7 KB  |  60 lines

  1. *│╔▒╛║╦╦π╫╙│╠╨≥╓«╞▀╢■:CBHS-72.PRG
  2. @ 4,0 say xg(1)+' ---- 1'
  3. @ 5,0 say xg(2)+' ---- 2'
  4. @ 6,0 say xg(3)+' ---- 3'
  5. @ 7,0 say xg(4)+' ---- 4'
  6. @ 8,0 say xg(5)+' ---- 5'
  7. @ 9,0 say xg(6)+' ---- 6'
  8. @ 10,0 say xg(7)+' ---- 7'
  9. @ 11,0 say xg(8)+' ---- 8'
  10. @ 12,0 say xg(9)+' ---- 9'
  11. @ 13,0 say xg(10)+' ---- 10'
  12. @ 14,0 say xg(11)+' ---- 11'
  13. @ 15,0 say xg(12)+' ---- 12'
  14. @ 16,0 say xg(13)+' ---- 13'
  15. @ 17,0 say xg(14)+' ---- 14'
  16. @ 18,0 say xg(15)+' ---- 15'
  17. @ 19,0 say xg(16)+' ---- 16'
  18. @ 20,0 say xg(17)+' ---- 17'
  19. @ 21,0 say xg(18)+' ---- 18'
  20. @ 4,27 say xg(19)+' ---- 19'
  21. @ 5,27 say xg(20)+' ---- 20'
  22. @ 6,27 say xg(21)+' ---- 21'
  23. @ 7,27 say xg(22)+' ---- 22'
  24. @ 8,27 say xg(23)+' ---- 23'
  25. @ 9,27 say xg(24)+' ---- 24'
  26. @ 10,27 say xg(25)+' ---- 25'
  27. @ 11,27 say xg(26)+' ---- 26'
  28. @ 12,27 say xg(27)+' ---- 27'
  29. @ 13,27 say xg(28)+' ---- 28'
  30. @ 14,27 say xg(29)+' ---- 29'
  31. @ 15,27 say xg(30)+' ---- 30'
  32. @ 16,27 say xg(31)+' ---- 31'
  33. @ 17,27 say xg(32)+' ---- 32'
  34. @ 18,27 say xg(33)+' ---- 33'
  35. @ 19,27 say xg(34)+' ---- 34'
  36. @ 20,27 say xg(35)+' ---- 35'
  37. @ 21,27 say xg(36)+' ---- 36'
  38. @ 4,54 say xg(37)+' ---- 37'
  39. @ 5,54 say xg(38)+' ---- 38'
  40. @ 6,54 say xg(39)+' ---- 39'
  41. @ 7,54 say xg(40)+' ---- 40'
  42. @ 8,54 say xg(41)+' ---- 41'
  43. @ 9,54 say xg(42)+' ---- 42'
  44. @ 10,54 say xg(43)+' ---- 43'
  45. @ 11,54 say xg(44)+' ---- 44'
  46. @ 12,54 say xg(45)+' ---- 45'
  47. @ 13,54 say xg(46)+' ---- 46'
  48. @ 14,54 say xg(47)+' ---- 47'
  49. @ 15,54 say xg(48)+' ---- 48'
  50. @ 16,54 say xg(49)+' ---- 49'
  51. @ 17,54 say xg(50)+' ---- 50'
  52. @ 18,54 say xg(51)+' ---- 51'
  53. @ 19,54 say xg(52)+' ---- 52'
  54. @ 20,54 say xg(53)+' ---- 53'
  55. @ 21,54 say xg(54)+' ---- 54'
  56. @ 23,20 say '╟δ╩Σ╚δ─·╥¬╤í╘±╡─╣ª─▄▒α║┼' get bh
  57.      read
  58. return
  59.  
  60.