[PLOTCAL
$1
JMP 20
$20
#1D OPR 1
CLR
STC 1S
LDAi
215
OPRi2
LDAi
212
OPRi2
#1P OPRi1
OPRi2
BCLi
7760
SHDi
1500   [CAR RET
JMP 1C
SHDi
1700   [DEL
JMP 1D
STAi
#1R 000
LDAi
#1S 000
ROL 3
ADD 1R
STC 1S
JMP 1P
#1C LDA
1S
BSEi
7000
STC p+2
RDCu
7000
[PLOT
CLR
STC 1Y
SETi1
3377
OPR 14
SETi2
0
MUL 3
XSKi2
JMP p-2
#1A LDAi1
COM
ADAi
#1Y 000
APO
JMP 1F
#1G AZEi
JMP 1B
ADAi
-1
OPR 7
JMP 1T
JMP 1G
#1F AZEi
JMP 1B
ADAi
1
OPR 10
JMP 1T
JMP 1F
#1B LDA 1
STC 1Y
OPR 11
JMP 1T
XSK 1
JMP 1A
OPR 13
JMP 1D
HLT
HLT
HLT
#1T SET 17
0
SETi2
-600
XSKi2
JMP p-1
JMP 17
[END PLOTCAL
[23 MARCH 71