Appears on
Assembled by Tim Ward from many sources. Contains programs 10051 – 10121.
Source Code
1 DIM P(3) 2 LET P(1)=17531 3 LET P(2)=17210 4 LET P(3)=17484 5 DIM C(3) 6 LET C(1)=27 7 LET C(2)=23 8 LET C(3)=00 10 FOR X=1 TO 3 20 FOR Y=1 TO 3 25 POKE P(X),C(Y) 30 FOR Z=1 TO 3 31 POKE P(X)+Z,C(Y) 32 POKE P(X)-Z,C(Y) 33 POKE P(X)-33*Z,C(Y) 34 POKE P(X)+33*Z,C(Y) 35 POKE P(X)-Z-33*Z,C(Y) 36 POKE P(X)-Z+33*Z,C(Y) 37 POKE P(X)+Z-33*Z,C(Y) 38 POKE P(X)+Z+33*Z,C(Y) 39 NEXT Z 40 NEXT Y 50 NEXT X 60 RUN 70 SAVE "1009%4" 80 RUN