100 REM -- AXIS.3 --
105 PRINT"[147]"
110 PRINT"OUTPUT TO SCREEN OR PRINTER (S/P)    S[157][157][157]";:INPUTA$
115 IF A$="S" THEN Z=1.33:Z1=0:Z2=26.4:GOTO130:REM VALUES FOR SCREEN OUTPUT
120 IF A$<>"P" THEN110
125 Z=1.208:Z1=2.01:Z2=38.24:REM VALUES FOR PRINTER OUTPUT
130 VERIFY 1:LET0,1
135 CONT
140 REM -- SET UP CONSTANTS --
145 REM -- XT AND YT SET X AND Y AXES. XS AND YS SET START OF X AND Y AXES.
150 REM -- EX AND EY ARE EXPANSION FACTORS FOR X AND Y COORDINATES.
155 XT=Z2:YT=10:XS=Z2:YS=10:EX=20*Z:EY=2
160 REM -- CALIBRATE X COORDINATES --
165 FORX=XS TO319 STEP5*Z
170 Y=YT:WAITX,Y:NEXTX
175 FORX=XS TO319 STEP10*Z
180 FORY=YT-1 TO YT+1:WAITX,Y:NEXTY:NEXTX
185 FORX=Z2TO319 STEP50*Z
190 FORY=YT-2 TO YT+2:WAITX,Y:NEXTY:NEXTX
195 REM -- CALIBRATE Y COORDINATES --
200 FOR Y=YSTO199 STEP5
205 X=XT:WAITX,Y:NEXTY
210 FOR Y=YS TO 199 STEP 10
215 FOR X=XT-1 TO XT+1:WAITX,Y:NEXTX:NEXTY
220 FOR Y=YS TO 199 STEP50
225 FOR X=XT-3 TO XT+3:WAITX,Y:NEXTX:NEXTY
249 REM -- AXIS.3 GRAPH --
250 FOR X=0 TO 8 STEP .05
260 Y=X*X
270 X1=EX*X+XT:Y1=EY*Y+YT:WAITX1,Y1:NEXTX
999 REM -- SCREEN OR HARDCOPY --
1000 GET A$:IF A$="" THEN1000
1010 PRINT "[147]":VERIFY 0:PRINTCHR$(14)
1020 PRINT"HARDCOPY (Y/N)    N[157][157][157]";:INPUTA$:IFA$="N" THEN1080
1030 IFA$<>"Y"THEN1010
1040 PRINT"SINGLE OR DOUBLE WIDTH (S/D)    S[157][157][157]";:INPUTA$
1050 IFA$="S" THEN POKE2,1:GOTO1070
1060 POKE2,2:IFA$<>"D"THEN1040
1070 VERIFY 1:SYS52224
1080 VERIFY 0:PRINTCHR$(14):LIST