0 GOSUB500
1 POKE 53280,0:POKE 53281,0
5 DIM D(15):PRINT""
10 PRINTCHR$(147)
20 INPUT "[197]NTER NAME OF TABLE";A$
30 INPUT "[211]TEP BETWEEN THE 10 HORIZONTAL LINES";B
35 INPUT "[200]OW MANY SUBJECTS ON X AXIS(15)";F
36 IF F>15 THEN GOTO 35
37 FOR V =1 TO F
38 PRINT "[197]NTER AMOUNT";V;"(LIMIT";B*10;")";:INPUT"";D(V)
39 IF D(V) > 10*B THEN GOTO 38
40 NEXT V:POKE 53280,0:POKE 53281,0
45 PRINTCHR$(142)
50 PRINT "[147][154]      ";A$
70 FOR X =  1 TO 10
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] ";
90 PRINT"      [180]                               [170] ";
110 NEXT X
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]";
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]";
130 PRINT"[145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]"
140 FOR X = 10 TO 0STEP-.5:PRINT X;"";
150 NEXT X
160 PRINT"[145]";"[158]";   :FOR X = 1 TO F
165 IF D(X)= 0 THEN PRINT "[169][146][169][157]";:GOTO 180
170 PRINT"";:FORG=1TO(D(X)*2)/B:PRINT" [145][157]";:NEXTG
171 PRINT"[169][146][169][157]";"";
173 IF D(X) <B THEN PRINT "[145]";
174 FORG=(D(X)*2)/BTO2STEP-1:PRINT" [157]";
175 NEXT G
180 PRINT"";
190 NEXT X:PRINT
195 PRINT"            <PRESS A KEY>"
220 POKE198,0:WAIT198,1:PRINTCHR$(14)"[147] [215]OULD YOU LIKE TO DO ANOTHER?";
222 POKE198,0:WAIT198,1:GETA$:IFA$="Y"THEN10
230 GOTO63000
500 REM    INTRO
501 PRINTCHR$(14)
510 PRINT"[147][144]":POKE53281,5:POKE53280,6
520 PRINT"[147]       [212]OM'S [207]UTSTANDING [199]RAPHER"
530 PRINT:PRINTSPC(18)"BY"
535 PRINT:PRINTSPC(13)"[212]OMMY [211]AFFLE"
540 POKE783,PEEK(783)AND254
550 POKE781,23:POKE782,13:SYS65520
560 PRINT"<PRESS A KEY>"
570 POKE198,0:WAIT198,1:GETA$
580 PRINT"[147]  [212]HIS PROGRAM IS DESIGNED TO CREATE":PRINT
590 PRINT"A BAR-TYPE GRAPH FROM THE DATA WHICH ":PRINT
600 PRINT"YOU INPUT.":PRINT
610 PRINT"  [217]OU CAN TITLE YOUR GRAPH AND DETERMINE"
620 PRINT"WHAT THE 'UNIT' IS.":PRINT:PRINT
630 PRINT"  [193]FTER INPUT OF YOUR DATA, THE PROGRAM":PRINT
640 PRINT"WILL DRAW A GRAPH OF THAT INPUT."
650 POKE783,PEEK(783)AND254
660 POKE781,23:POKE782,13:SYS65520
670 PRINT"<PRESS A KEY>"
680 POKE198,0:WAIT198,1:GETA$
690 RETURN
9999 END
60000 :
63000 REM    CONNECT BACK
63002 PRINT"[147]LOAD"CHR$(34)"PAYLOAD"CHR$(34)",8":PRINT"RUN"
63004 POKE198,0:POKE631,13:POKE632,13:POKE198,2:END