書き込みます100 REM LINE PROCESS SET($7000-$71FE) 110 FOR I = 0 TO $1FE 120 READ D$ 130 D = VAL("$"+D$) 140 POKE $7000 + I, D 150 NEXT I 300 REM LINE SAMPLE 310 RANDOMIZE 320 FOR I = 0 TO 50 330 FOR J = 0 TO 7 340 C = J:POKE $71FA,C 350 X0 = VAL("$"+HEX$(INT(RND(1) * 64))) 360 Y0 = VAL("$"+HEX$(INT(RND(1) * 64))) 370 POKE $71FB,X0:POKE $71FC,Y0 380 X1 = VAL("$"+HEX$(INT(RND(1) * 64))) 390 Y1 = VAL("$"+HEX$(INT(RND(1) * 64))) 400 POKE $71FD,X1:POKE $71FE,Y1 410 A = USR($7000) 420 NEXT J:NEXT I 500 REM PLOT TEST 500 REM A = USR($70DF) 510 END
1010 DATA B6,71,FD,B0,71,FB,2D,0A 1020 DATA B7,71,EC,86,01,B7,71,F0 1030 DATA 20,0E,B6,71,FB,B0,71,FD 1040 DATA B7,71,EC,86,FF,B7,71,F0 1050 DATA B6,71,FE,B0,71,FC,2D,0A 1060 DATA B7,71,ED,86,01,B7,71,F1 1070 DATA 20,0E,B6,71,FC,B0,71,FE 1080 DATA B7,71,ED,86,FF,B7,71,F1 1090 DATA B6,71,EC,B1,71,ED,2D,4B 1100 DATA B6,71,EC,48,B7,71,EE,B6 1110 DATA 71,ED,48,B7,71,EF,4F,B0 1120 DATA 71,EC,B7,71,F2,4F,B1,71 1130 DATA EC,2E,7B,36,BD,70,DF,32 1140 DATA F6,71,FB,FB,71,F0,F7,71 1150 DATA FB,F6,71,F2,FB,71,EF,F7 1160 DATA 71,F2,C1,00,2D,12,F6,71 1170 DATA FC,FB,71,F1,F7,71,FC,F6 1180 DATA 71,F2,F0,71,EE,F7,71,F2 1190 DATA 4C,20,CB,B6,71,EC,48,B7 1200 DATA 71,EE,B6,71,ED,48,B7,71 1210 DATA EF,4F,B0,71,ED,B7,71,F2 1220 DATA 4F,B1,71,ED,2E,30,36,BD 1230 DATA 70,DF,32,F6,71,FC,FB,71 1240 DATA F1,F7,71,FC,F6,71,F2,FB 1250 DATA 71,EE,F7,71,F2,C1,00,2D 1260 DATA 12,F6,71,FB,FB,71,F0,F7 1270 DATA 71,FB,F6,71,F2,F0,71,EF 1280 DATA F7,71,F2,4C,20,CB,39,B6 1290 DATA 71,FB,81,00,2D,0F,81,40 1300 DATA 2C,0B,B6,71,FC,81,00,2D
1310 DATA 04,81,30,2D,01,39,B6,71 1320 DATA FC,85,01,26,07,86,C1,B7 1330 DATA 71,F6,20,05,86,C5,B7,71 1340 DATA F6,5F,B6,71,FC,44,85,01 1350 DATA 27,02,CB,20,44,85,01,27 1360 DATA 02,CB,40,44,85,01,27,02 1370 DATA CB,80,44,BB,71,F6,B7,71 1380 DATA F6,F7,71,F7,86,F8,B7,71 1390 DATA F3,B6,71,FB,85,01,27,05 1400 DATA 86,C7,B7,71,F3,F6,71,FA 1410 DATA B6,71,FB,85,01,27,03,58 1420 DATA 58,58,CB,C0,F7,71,F4,44 1430 DATA BB,71,F7,B7,71,F7,FE,71 1440 DATA F6,FF,71,F8,B6,71,F6,81 1450 DATA C5,2C,46,B6,71,F8,8B,04 1460 DATA B7,71,F8,FE,71,F8,A6,00 1470 DATA 81,C0,25,0F,FE,71,F6,A6 1480 DATA 00,B4,71,F3,BA,71,F4,A7 1490 DATA 00,20,68,84,38,16,44,44 1500 DATA 44,8A,C0,B7,71,F5,FA,71
1510 DATA F5,F7,71,F5,F4,71,F3,FA 1520 DATA 71,F4,FE,71,F6,E7,00,B6 1530 DATA 71,F5,FE,71,F8,A7,00,20 1540 DATA 42,FE,71,F8,A6,00,81,C0 1550 DATA 25,0D,B4,71,F3,BA,71,F4 1560 DATA FE,71,F6,A7,00,20,2C,84 1570 DATA 38,16,44,44,44,8A,C0,B7 1580 DATA 71,F5,FA,71,F5,F7,71,F5 1590 DATA F4,71,F3,FA,71,F4,FE,71 1600 DATA F6,E7,00,B6,71,F8,80,04 1610 DATA B7,71,F8,B6,71,F5,FE,71 1620 DATA F8,A7,00,39,00,00,00,00 1630 DATA 00,00,00,00,00,00,00,00 1640 DATA 00,00,00,00,00,00,00 run