Directory of image this file is from
This file as a plain text file

100 REM THIS IS TO PROGRAM THE TEKTRONIX TERMINAL
105 DIM D1(100),D2(100),A(2,100),B(2,100)
110 PRINT "X RANGE? ";
115 INPUT R1
120 PRINT "Y RANGE? ";
125 INPUT R2
130 PRINT "HOW MANY POINTS? ";
135 INPUT N1
140 FOR I=1 TO N1
150 INPUT D1(I),D2(I)
160 NEXT I
170 FOR I=1 TO N1 
180 D1(I) = INT(D1(I)*1023/R1)
190 D2(I)=INT(D2(I)*780/R2)
200 NEXT I
210 FOR I=1 TO N1
220 P1=D1(I)
230 P2=D2(I)
240 GOSUB 2000
250 A(1,I)=T1
260 A(2,I)=T2
270 B(1,I)=T3
280 B(2,I)=T4
290 NEXT I
300 FOR I=1 TO N1
310 GOSUB 3000
320 NEXT I
330 GOTO 3050
2000 REM SUBROUTINE TO CONVERT DATA POINTS TO RANGE OF
2010 REM THE TEKTRONIX TERMINAL
2020 T1=P1/32
2030 T2=(1000*T1-INT(T1)*1000)/1000
2040 T3 =P2/32
2050 T4 = (1000*T3-INT(T3)*1000)/1000
2060 T1=T1+32
2070 T2=T2*32+64
2080 T3 = T3+32
2090 T4 = T4*32+64
2100 RETURN
3000 REM SUBROUTINE TO PLOT A POINT ON SCOPE
3010 PRINT CHR$(29);
3020 PRINT CHR$(B(1,I));CHR$(B(2,I));CHR$(A(1,I));CHR$(A(2,I));
3030 PRINT CHR$(31)
3040 RETURN
3050 END