+$/
[ISOSET
[PART 1
#1C CLR
STC1A
STC1S
STC1A+4
STC1B
STC1B+4
STC1F
SETI6
1377
SETI7
1577
LDAI
-2000
STAI6
XSKI7
JMP.-2
LDAI
2000
STAI6
XSK6
JMP.-2
[PART 2
#1D OPR13
JMP1E
LDA
1S
STC1B
LDAI
#1F IV
STC1A
JMP1P
OPR14
LDAI
#1G 10
ADMI
#1S
LDA
1G
SCR2
COM
STA
7
ADAI
1377
STC6
LDAI
-2000
STAI6
XSKI7
JMP.-2
LDA
1G
SCR2
COM
STA
7
ADAI
1577
STC6
LDAI
2000
STAI6
XSKI7
JMP.-2
LDA
1G
SCR2
COM
ADAI
ADD1777
STC.+5
LDAI
STC1777
STC.+3
CLR
ADDX-7
STCX
LDAI
-1
ADM
.-5
LDAI
-1
ADM
.-10
SAEI
5377
JMP.-15
SETI6
1377
SETI7
1577
SETI5
#1R -400
CLR
STC1T
STC1U
LDAI
3777
STC1K