Session end : 12h00m00s | Hide picture Sexe : OFF | Donations 2024 : 870.48 € |
1 MODE 1:PRINT "MAZE by PAUL WATERMAN":PEN #1,5:PRINT "Please Wait":CALL &BC02:INK 4,6:INK 8,26,0:INK 9,0,26:INK 6,16:FOR a=&9000 TO &90B3:READ a$:POKE a,VAL("&"+a$):tot=tot+VAL("&"+a$):NEXT:IF tot<>20896 THEN PRINT "ERROR in DATA":END
2 MODE 0:FOR t=1 TO 500:i%=RND*4:IF i%=1 THEN x%=0:y%=4 ELSE IF i%=2 THEN x%=0:y%=-4 ELSE IF i%=3 THEN x%=8:y%=0 ELSE IF i%=4 THEN x%=-8:y%=0:DATA c3,67,90,c3,4a,90,c3,2c,90,c3,0f,90,c3,85,90,06,80,21,40,c1,11,00,c0,c5,d5,01,28,00,ed,b0,e1,cd
1 RANDOMIZE TIME:RANDOMIZE RND:MODE 1:PRINT "MAZE by PAUL WATERMAN":PEN #1,5:PRINT "Please Wait":CALL &BC02:INK 4,6:INK 8,26,0:INK 6,16:FOR a=&9000 TO &90B3:READ a$:POKE a,VAL("&"+a$):tot=tot+VAL("&"+a$):NEXT:IF tot<>20896 THEN PRINT "ERROR in DATA":END
2 MODE 0:INK 9,0,26:FOR t=1 TO 500:i%=RND*4:IF i%=1 THEN x%=0:y%=4 ELSE IF i%=2 THEN x%=0:y%=-4 ELSE IF i%=3 THEN x%=8:y%=0 ELSE IF i%=4 THEN x%=-8:y%=0:DATA c3,67,90,c3,4a,90,c3,2c,90,c3,0f,90,c3,85,90,06,80,21,40,c1,11,00,c0,c5,d5,01,28,00,ed,b0,e1,cd