Session end : 12h00m00s | Hide picture Sexe : OFF | ![]() | ![]() | ![]() | ![]() | Donations 2025 : 170.00 € |
80 PRINT"Poking Sprites - Please Wait":SYMBOL AFTER 255:MEMORY &7FFF:ADDR=&8000:FOR G=1 TO 20:CHK=0:FOR H=1 TO 14:READ A$:D=VAL("&"+A$):POKE ADDR,D:CHK=CHK+D:ADDR=ADDR+1:NEXT:READ CHK2$:IF VAL("&"+CHK2$)<>CHK THEN PRINT"ERROR IN LINE"G*10+90:END
80 PRINT"Poking Sprites - Please Wait":SYMBOL AFTER 255:MEMORY &7FFF:ADDR=&8000:FOR G=1 TO 20:CHK=0:FOR H=1 TO 14:READ A$:D=VAL("&"+A$):POKE ADDR,D:CHK=CHK+D:ADDR=ADDR+1:NEXT:READ CHK2$:IF VAL("&"+CHK2$)<>CHK THEN PRINT"ERROR IN LINE"G*10+80:END
330 FOR g=1 TO 18:m(g,0)=1:NEXT:LOCATE 2,1:PEN 5:PRINT STRING$(18,"");:PEN 1
670 SYMBOL 255,48,254,22,60,116,210,254,16:LOCATE 20,25:PRINT";
330 FOR g=1 TO 18:m(g,0)=1:NEXT:LOCATE 2,1:PEN 5:PRINT STRING$(18,"▀");:PEN 1
670 SYMBOL 255,48,254,22,60,116,210,254,16:LOCATE 20,25:PRINT"↔";
870 WEND
870 WEND:IF a$<>"" THEN 890