1 IF PEEK(49152)<>96 THEN LOAD"GRAFIX RTNS",8,1
100 BA=49153:K=48:DR=BA+12
110 SYS BA,9,3,1,7
120 FORX=0TO48STEP8:P=3+(X=48)
130 SYS DR,X,X,X,160-X,P
140 SYS DR,X,X,192-X,X,P
150 SYS DR,X,160-X,192-X,160-X,P
160 SYS DR,192-X,X,192-X,160-X,P
170 NEXTX
180 SYS DR,0,159,192,159,3
190 SYS DR,193,0,200,0,0
200 FORX=0TO8
210 K1=K+8*X
220 SYS DR,0,20*X,K,K1,3
230 SYS DR,146,K1,192,20*X,3
240 SYS DR,K,K1,146,K1,2
250 NEXTX
260 FORX=1TO11
270 K1=K+8*X
280 SYS DR,X*16,0,48+X*8,48,3
290 SYS DR,K1,K,K1,112,2
300 SYS DR,K1,112,X*16,160,3
310 NEXTX
320 GETI$:IFI$=""THEN320
330 SYS BA+9:PRINT"[147]":LIST-310