home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b034 / gz.img / BCBDE-1B.PRG < prev    next >
Encoding:
Text File  |  1980-01-03  |  1.2 KB  |  38 lines

  1. *░δ│╔╞╖╢¿╢ε╝╞╦π╫╙│╠╨≥╓«╥╗B:CBHS-1B.PRG
  2. @ 4,10 say xg(125-qbl2)+' ---- 1'
  3. @ 5,10 say xg(126-qbl2)+' ---- 2'
  4. @ 6,10 say xg(127-qbl2)+' ---- 3'
  5. @ 7,10 say xg(128-qbl2)+' ---- 4'
  6. @ 8,10 say xg(129-qbl2)+' ---- 5'
  7. @ 9,10 say xg(130-qbl2)+' ---- 6'
  8. @ 10,10 say xg(131-qbl2)+' ---- 7'
  9. @ 11,10 say xg(132-qbl2)+' ---- 8'
  10. @ 12,10 say xg(133-qbl2)+' ---- 9'
  11. @ 13,10 say xg(134-qbl2)+' ---- 10'
  12. @ 14,10 say xg(135-qbl2)+' ---- 11'
  13. @ 15,10 say xg(136-qbl2)+' ---- 12'
  14. @ 16,10 say xg(137-qbl2)+' ---- 13'
  15. @ 17,10 say xg(138-qbl2)+' ---- 14'
  16. @ 18,10 say xg(139-qbl2)+' ---- 15'
  17. @ 19,10 say xg(140-qbl2)+' ---- 16'
  18. @ 4,45 say xg(141-qbl2)+' -- 17'
  19. @ 5,45 say xg(142-qbl2)+' -- 18'
  20. @ 6,45 say xg(143-qbl2)+' -- 19'
  21. @ 7,45 say xg(144-qbl2)+' -- 20'
  22. @ 8,45 say xg(145-qbl2)+' ---- 21'
  23. @ 9,45 say xg(146-qbl2)+' ---- 22'
  24. @ 10,45 say xg(147-qbl2)+' ---- 23'
  25. @ 11,45 say xg(148-qbl2)+' ---- 24'
  26. @ 12,45 say xg(149-qbl2)+' ---- 25'
  27. @ 13,45 say xg(150-qbl2)+' ---- 26'
  28. @ 14,45 say xg(151-qbl2)+' ---- 27'
  29. @ 15,45 say xg(152-qbl2)+' ---- 28'
  30. @ 16,45 say xg(153-qbl2)+' ---- 29'
  31. @ 17,45 say xg(154-qbl2)+' ---- 30'
  32. @ 18,45 say xg(155-qbl2)+' ---- 31'
  33. @ 19,45 say xg(156-qbl2)+' ---- 32'
  34. @ 21,15 say '╟δ╩Σ╚δ─·╥¬╤í╘±╡─╣ª─▄▒α║┼' get bh
  35.      read
  36. return
  37.  
  38.