d ::A%(1000) i N0 .n X,YB,YT:1000 Ax Y,XL,XR:1200 T X,YT,YB:1100 g Y,XR,XL:1300 v N960110   
BUILD MACHINE LANGUAGE SPIRAL SHIFT
  S3  5000:5100:5200:5300  1054:RING BELL  10000:  
POKE ADDRESS
 D	AH(A256):ALAAH256:L1,AL:L2,AH:LL3:1588,256(1588): m	 
MOVE DOWN COLUMN X FROM YB TO YT
 	C$"D":YYBYT1 	Y1:2000:: 	L 
MOVE UP COLUMN X FROM YT TO YB
 	VC$"U":YYTYB:Y1:2000:: 
 
MOVE LEFT ROW Y FROM XL TO XR
 *
C$"L":Y1:XXLXR:2000:: Q
 
MOVE RIGHT ROW Y FROM XR TO XL
 w
C$"R":Y1:XXRXL1:2000:: 
 
POST ADDRESS
 
A(40)(41)256X:A%(N)A:NN1:A,(C$)128 
 
 0,23,0,   0,1,39,   39,1,23,  23,38,1  1,22,1,   1,2,38,   38,2,22,  22,37,2 I 2,21,2,   2,3,37,   37,3,21,  21,36,3 u 3,20,3,   3,4,36,   36,4,20,  20,35,4  4,19,4,   4,5,35,   35,5,19,  19,34,5  5,18,5,   5,6,34,   34,6,18,  18,33,6  6,17,6,   6,7,33,   33,7,17,  17,32,7 % 7,16,7,   7,8,32,   32,8,16,  16,31,8 Q 8,15,8,   8,9,31,   31,9,15,  15,30,9 ~ 9,14,9,   9,10,30,  30,10,14, 14,29,10 10,13,10, 10,11,29,  29,11,13, 13,28,11 &11,12,11, 11,12,28,  28,12,12, 12,27,12  
COMPILE PROLOGUE
 
T65536960S:TH(T256):TLTTH256 4
10000,162:10001,TH M
10002,160:10003,TL S
 q
 
COMPILE LDA-STA PAIRS
 
L10004:I0957:L,173:AA%(IS):500 
 L,141:AA%(I):500: 

 
P 
COMPILE CLEAR S BYTES 
 
ZL,169:L1,160:LL2 dI1S:L,141:AA%(960I):500:  n : 
COMPILE POSTLOGUE
 QI09:A:LI,A: W |200,208,4,232,208,1,96,76,20,39   
