[SQUARE
[NEW SQUARE
$1
SET i 15
RCG
ZZZ i
JMP 1F
SET i 15
RCG u
#1F SET i 16 
7300
JMP 20
$20
[VERT
#1E SET i 2
-40
SET i 1
0
SET i 3
777
LDA i
-377
#1A DIS 1
DIS 3
ADA i
#1C 20
XSK i 2
JMP 1A
[HORIZ
SET i 2
-37
SET i 1
20
LDA i
377
STC 1B
#1D LDA i
377
DIS 1
COM
DIS 1
LDA i
-20
ADM i
#1B
DIS 1
COM
DIS 1
LDA i
20
ADM
1
XSK i 2
JMP 1D
KST
JMP 1E
KBD
JMP 15