0201名無し~3.EXE
2015/09/17(木) 14:34:17.36ID:5cBHRWcI1170 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