H]()BTC U/W-FOCAL:AXISET15.10.78?MB.BJT "THIS PROGRAM DRAWS X,Y AXES"!;O O PLOT.TM?M?CDBTO S;T "ENTER X-AXIS LABEL:";D 2;S =	X?MC[B^O R O;Y C,C(I);F K=,I;S FOUT(C(K));N;O S?MC0B(A "LENGTH
 "L,"ORIGIN
 "O,"RANGE
 "R?MDHB2O R O;T %6.02:FOUT(),L,O,O+R;Y ;O S;T ?M?D
B<T "ENTER Y-AXIS LABEL:";D 2,.3,.4,.5;O C?MD7CFS $R=0,$F=1,$S=2;P,-12,-1;P,2,-1;L G AXIS?M?D;CPR?M?EWDJZ C,I,K;O I;T !;C LINE EDITOR ROUTINE FOR UWF, V4?M?E2DTS C=FIN();I (C-255),.6;I (C-149),.1;I (223-C).4?M?FND^J (C-137).9,.7,-.8;I (C-192).4;S C=C+K;CA
E SHIFT?M?F*D(Y I;S C(I)=FOUT(C)+C;I (C-141).2,,.2; O I,E;X I;R?M?F-D2?MGID<I (I),.2;Y -I;G .2+FOUT(92); RUBOUT ONE CHARACTER?M?G%EFS K=32*FSGN(32-K);R .2;C TOGGLE LOWER CASE OFFSET?M?HAEPT ;C RECOGNIZES: RUBOUT, LF, FF, CTRL/U & CTRL/K?M?EZI (I),,FOUT(14
);F C=1,I;I (I),,FOUT(C(C));N;R .2?M?2?L D AXISET;L S AXISET?M?P 4.44,2.92;T "^";P 4,Y;T "S?)?:?% 3";S $D=6?MI]EPP 2.55,3.1;T "^";S $D=2;P 2,Y;T "S?)?:?% 5";S $D=6?MI4EZP .6,3.1;T "^";S $D=2;P,Y;T "S?)?:?% 4"?M?JMFJS $D=1;P 3.6,7.1,,16

Note: Lines longer than 256 characters were wrapped