[PLANDISP
[AJH  27 FEB.1969
$20
SETi2
3777    [DATA
SETi7
0       [LEFT EDGE
SETi5
-300    [LOWER EDGE
SETi6
-40     [NUMBER OF ROWS
SAM 0   [AMPLITUDE
ADAi
200
SCR 5
ADAi
SCR
STC 1A
SETi3
-40     [NUMBER OF COLUMNS
SET 1
7       [X AXIS
LDAi2
#1A SCR 0
ADD 5
DIS 1
LDAi
17      [X INCREMENT
ADM
1
XSKi3
JMP 1A-1
LDAi
11      [Y INCREMENT
ADM
5
LDAi
11      [X ORIGIN INCREMENT
ADM
7
XSKi6
JMP 1A-5
JMP 20
[END PLANDISP