home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 7 / 007.d81 / grapher (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  64 lines
  1. 0 gosub500
  2. 1 poke 53280,0:poke 53281,0
  3. 5 dim d(15):print""
  4. 10 printchr$(147)
  5. 20 input "[197]nter name of table";a$
  6. 30 input "[211]tep between the 10 horizontal lines";b
  7. 35 input "[200]ow many subjects on x axis(15)";f
  8. 36 if f>15 then goto 35
  9. 37 for v =1 to f
  10. 38 print "[197]nter amount";v;"(limit";b*10;")";:input"";d(v)
  11. 39 if d(v) > 10*b then goto 38
  12. 40 next v:poke 53280,0:poke 53281,0
  13. 45 printchr$(142)
  14. 50 print "[147][154]      ";a$
  15. 70 for x =  1 to 10
  16. 80 print"      [207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208] ";
  17. 90 print"      [180]                               [170] ";
  18. 110 next x
  19. 120 print"     /[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][206]";
  20. 125 print"      [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][145]";
  21. 130 print"[145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]"
  22. 140 for x = 10 to 0step-.5:print x;"";
  23. 150 next x
  24. 160 print"[145]";"[158]";   :for x = 1 to f
  25. 165 if d(x)= 0 then print "[169][146][169][157]";:goto 180
  26. 170 print"";:forg=1to(d(x)*2)/b:print" [145][157]";:nextg
  27. 171 print"[169][146][169][157]";"";
  28. 173 if d(x) <b then print "[145]";
  29. 174 forg=(d(x)*2)/bto2step-1:print" [157]";
  30. 175 next g
  31. 180 print"";
  32. 190 next x:print
  33. 195 print"            <press a key>"
  34. 220 poke198,0:wait198,1:printchr$(14)"[147] [215]ould you like to do another?";
  35. 222 poke198,0:wait198,1:geta$:ifa$="y"then10
  36. 230 goto63000
  37. 500 rem    intro
  38. 501 printchr$(14)
  39. 510 print"[147][144]":poke53281,5:poke53280,6
  40. 520 print"[147]       [212]om's [207]utstanding [199]rapher"
  41. 530 print:printspc(18)"by"
  42. 535 print:printspc(13)"[212]ommy [211]affle"
  43. 540 poke783,peek(783)and254
  44. 550 poke781,23:poke782,13:sys65520
  45. 560 print"<press a key>"
  46. 570 poke198,0:wait198,1:geta$
  47. 580 print"[147]  [212]his program is designed to create":print
  48. 590 print"a bar-type graph from the data which ":print
  49. 600 print"you input.":print
  50. 610 print"  [217]ou can title your graph and determine"
  51. 620 print"what the 'unit' is.":print:print
  52. 630 print"  [193]fter input of your data, the program":print
  53. 640 print"will draw a graph of that input."
  54. 650 poke783,peek(783)and254
  55. 660 poke781,23:poke782,13:sys65520
  56. 670 print"<press a key>"
  57. 680 poke198,0:wait198,1:geta$
  58. 690 return
  59. 9999 end
  60. 60000 :
  61. 63000 rem    connect back
  62. 63002 print"[147]load"chr$(34)"payload"chr$(34)",8":print"run"
  63. 63004 poke198,0:poke631,13:poke632,13:poke198,2:end
  64.