*20
/KALEID
/PDP12 VERSION OF 
/KALEIDOSCOPE
/SCOPE PATTERN CHANGES
/BY SAM7 + SAM10
/PATTERN WILL CHANGE WITH
/PREAMP INPUT INTO A-D 10
/CREATED ON 7-12-69 BY
/MICHAEL I. GAGE
*4020
LMODE
A, LDA I
0000
SCR 0
COM 
ADM
.+7
BCL I
4000
STC 1
ADD .+12
DIS 1
LDA I
1777
SCR 0
ADM
.-16
ADA I
-6377
STA I
0000
DIS 1
SAM 7
STC .+3
SAM 10
ADA I
SAM 7
APO
JMP A
BCL I
7774
AZE I
JMP A
ADA I
SCR 0
STA
A+2
STC A+15
JMP A