Panowie,
To zupełnie nie tak... wasz kod jest zupełnie nieczytelny i niezrozumiały... to musi być tak:
10 GOSUB 1000:GRAPHICS 5+16
15 POKE 708,200:POKE 709,56
20 IF O<>Q THEN PUT #6,125:O=Q
25 COLOR 2:IF PEEK(644) THEN COLOR 1
30 X=40:Y=20:PLOT X,Y
35 Q=PEEK(632)
40 IF USR(1536,Q,4)=0 THEN X=X-20
41 IF USR(1536,Q,8)=0 THEN X=X+20
50 IF USR(1536,Q,1)=0 THEN Y=Y-20
51 IF USR(1536,Q,2)=0 THEN Y=Y+20
60 DRAWTO X,Y
90 GOTO 20
999 END
1000 RESTORE 1001:FOR I=1536 TO 1551:READ D:POKE I,D:NEXT I:RETURN
1001 DATA 104,104,104,133,212,104,104,37,212,133,212,169,0,133,213,96
;-)
EDIT: Wersja 1.1, poprawiona :) poprzednio zapomniałem o Fire! :P
Ostatnio edytowany przez seban (2013-09-15 00:53:45)