100 N=256 105 I1=1024/N 110 CALL "INIT" 120 PRINT "ADC AQUISITION FROM POT 0. HIT RETURN TO START." 125 INPUT C$ 130 CALL "ADC"(0,Y0)\Y0=Y0*1023/4096+10 150 Y9=1023\S9=1023/768 160 CALL "SCAL"(0,-20,1023,Y9*S9) 170 CALL "APNT"(0,Y0,-1,-4) 180 R=.65 190 FOR I=0 TO N-1 200 CALL "ADC"(0,Y) 205 Y=Y*1023/4096 210 CALL "VECT"(I1,Y-Y0+R,1) 215 Y0=Y 217 FOR I9=0 TO 50\I8=I9*I9\NEXT I9 220 NEXT I 225 CALL "APNT"(200,950,0,-5) 240 PRINT "TITLE ";\INPUT T$\CALL "TEXT"(T$) 250 GO TO 290 260 CALL "LPEN"(H,T,X,Y)\IF H<>1GO TO 260 270 FOR K9=0 TO 100\Z=Z*Z\NEXT K9 280 CALL "ERAS"(1)\CALL "SAVE" 290 CALL "SUBP"(1)\CALL "APNT"(X,Y-25,-1,-5) 300 CALL "VECT"(0,50,-1,8)\CALL "APNT"(200,920,-1,-6) 310 CALL "TEXT"("X= ",STR$(X)," Y= ",STR$(Y)) 320 CALL "ESUB"\GO TO 260 9999 END