graphfirst
10    print "entering pre-multigraph function generator - 6/11/78 version"
20    print
30    print "  this will generate print & def statements from one input of";
40    print "	a(x)=. . .etc"
50    print "  you may change a function by retyping the line"
60    print "  terminate input by typing a line comprising a single dot  (.)"
70    print "  new users are initially reccommended to use 'multigraph' without 'graphfirst'"
80    rem - multigraph must not have program lines in the areas generated by this program
90    rem - this program originated from d.c.wood. comp. lab. staff, ukc
100   dim a$(26)
110   let l$ = "abcdefghijklmnopqrstuvwxyz"
120   print
130   print "give a filename where graphfunctions may be held :";
140   input b$
150   file *1: b$
160   let q$ = chr$(127)
170   print *1: "10 rem - this file generated by 'graphfirst'"
180   for i = 1 to 26
190    let a$(i) = ""
200   next i
210   print "enter function :";
220   linput f$
230   let i = pos(l$,seg$(f$,1,1))
240   if i = 0 thenxz