1160 DEF SEG=&HA800:A=PEEK(AD):B=PEEK(AD+1):AD=AD+2
1170 DEF SEG=&HB000:POKE AD1,A:POKE AD1+1,B:AD1=AD1+3
1180 NEXT X
1190 NEXT Y
1200 DEF SEG=&HB000:BSAVE F$+".MP",0,XLO*YLO*3+4-1
1210 RETURN
1220 DATA S0,S1,S2,S3,S4,S5,S6,S7,S8,S9,S10,S11,S12,S13,S14,S15

1250 INPUT #1,A:POKE AD,A MOD 256:POKE AD+1,A \ 256:AD=AD+2 ' X
1260 INPUT #1,A:POKE