10  FILES GRAP1
12  J=0
15  DIM S$[10]
17  S$="0123456789"
20  DIM W$[3]
30  PRINT "WANT LISTING OF ACTUAL DATA POINTS";
40  INPUT W$
50  IF W$="NO" THEN 100
55  READ #1;A,B
60  IF  END #1 THEN 100
70  PRINT A,B
75  GOTO 55
100  PRINT "TYPE OF GRAPH: LINE = 1"
110  PRINT "               BAR  = 2"
120  PRINT "               STEP = 3"
130  PRINT "               POINT= 4"
140  INPUT W
145  PRINT "PLTL"
147  READ #1,1
150  IF W=2 THEN 500
160  IF W=3 THEN 1000
170  IF W=4 THEN 1500
200  READ #1;A,B
210  IF  END #1 THEN 2900
220  H=INT(9999*(A+.2)/30)
230  V=INT(9999*B/100)
240  GOSUB 3200
250  GOTO 200
500  READ #1;A,B
510  IF  END #1 THEN 2900
520  H=H1=INT(9999*A/30)
530  V=0
540  GOSUB 3200
545  H=H1
550  V=INT(9999*B/100)
560  GOSUB 3200
570  H=H1+133
580  GOSUB 3200
585  H=H1+133
590  V=0
600  GOSUB 3200
610  GOTO 500
1000  READ #1;A,B
1010  IF  END #1 THEN 2900
1020  H=H1=INT(9999*A/30)
1050  V=INT(9999*B/100)
1060  GOSUB 3200
1070  H=H1+333
1080  GOSUB 3200
1110  GOTO 1000
1500  READ #1;A,B
1510  IF  END #1 THEN 2900
1520  H1=INT(9999*(A+.2)/30)
1530  V=INT(9999*B/100)
1540  J=1
1550  H=H1-60
1560  V=V+60
1570  GOSUB 3200
1580  J=0
1590  H=H1+60
1600  V=V-120
1610  GOSUB 3200
1620  J=1
1630  H=H1-60
1640  GOSUB 3200
1650  J=0
1660  H=H1+60
1670  V=V+120
1680  GOSUB 3200
1690  GOTO 1500
2900  PRINT "       PLTT"
2910  PRINT "ANOTHER GRAPH";
2920  INPUT W$
2930  IF W$="NO" THEN 5000
2935  READ #1,1
2940  GOTO 100
3200  DIM O$[9]
3210  O$="         "
3220  P=1
3230  U=0
3240  FOR I=1 TO 4
3250  Q[I]=INT((H-U)/10^(4-I))
3260  U=U+Q[I]*10^(4-I)
3270  O$[P,P]=S$[Q[I]+1,Q[I]+1]
3280  P=P+1
3290  NEXT I
3300  IF P>9 THEN 3331
3310  H=V
3320  P=6
3330  GOTO 3230
3331  IF  NOT J THEN 3340
3332  DIM P$[10]
3333  P$=O$
3334  P$[10]="^"
3335  PRINT P$
3336  GOTO 3350
3340  PRINT O$
3350  RETURN 
5000  END 
