home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / lambda / soundpot / f / kpgraph.lbr / GRAP2.BZS / GRAP2.BAS
Encoding:
BASIC Source File  |  1993-10-26  |  1.1 KB  |  73 lines
  1. $INCLUDE GRAPH1
  2. CLEAR.SCREEN
  3. VAR W1,D1,C1 = INTEGER
  4. LINEON 2,6,86,6
  5. LINEON 86,6,86,150
  6. BAR 84,8,65,10,6,1,-1,1
  7. BAR 84,26,60,10,6,1,-1,1
  8. BAR 84,44,49,10,6,1,-1,1
  9. BAR 84,62,24,10,6,1,-1,1
  10. BAR 84,80,61,10,6,1,-1,1
  11. BAR 84,98,55,10,6,1,-1,1
  12. BAR 84,116,36,10,6,1,-1,1
  13. BAR 84,134,49,10,6,1,-1,1
  14. POSITION 23,4
  15. PRINT"ANAD"
  16. POSITION 23,13
  17. PRINT"CCAD"
  18. POSITION 23,22
  19. PRINT"LEAD"
  20. POSITION 23,31
  21. PRINT"RRAD"
  22. POSITION 23,40
  23. PRINT"SAAD"
  24. POSITION 23,49
  25. PRINT"SHAD"
  26. POSITION 23,58
  27. PRINT"TEAD"
  28. POSITION 23,67
  29. PRINT"TOAD"
  30. POSITION 1,1
  31. PRINT"NO"
  32. POSITION 3,1
  33. PRINT"76"
  34. POSITION 4,1
  35. PRINT"72"
  36. POSITION 5,1
  37. PRINT"68"
  38. POSITION 6,1
  39. PRINT"64"
  40. POSITION 7,1
  41. PRINT"60"
  42. POSITION 8,1
  43. PRINT"56"
  44. POSITION 9,1
  45. PRINT"52"
  46. POSITION 10,1
  47. PRINT"48"
  48. POSITION 11,1
  49. PRINT"44"
  50. POSITION 12,1
  51. PRINT"40"
  52. POSITION 13,1
  53. PRINT"36"
  54. POSITION 14,1
  55. PRINT"32"
  56. POSITION 15,1
  57. PRINT"28"
  58. POSITION 16,1
  59. PRINT"24"
  60. POSITION 17,1
  61. PRINT"20"
  62. POSITION 18,1
  63. PRINT"16"
  64. POSITION 19,1
  65. PRINT"12"
  66. POSITION 20,1
  67. PRINT"08"
  68. POSITION 21,1
  69. PRINT"04"
  70. POSITION 1,28
  71. PRINT"MINORITY GS-7 AND ABOVE"
  72. NEXT_VIEW
  73.