Appears on
Assembled by Tim Ward from many sources. Contains programs 10051 – 10121.
Source Code
1 LET A$="\.'\:.%"%." 2 POKE 16418,0 4 FOR X=0 TO 22 5 PRINT AT X,0;"% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % \''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''" 6 NEXT X 7 FOR C=1 TO 5 8 LET A=INT (RND*15)+3 9 LET B=INT (RND*25)+3 14 FOR Y=1 TO 4 15 PRINT AT A,B;A$(Y) 20 FOR Z=1 TO 3 21 PRINT AT A,B-Z;A$(Y);AT A,B+Z;A$(Y);AT A-Z,B;A$(Y);AT A+Z,B;A$(Y);AT A-Z,B-Z;A$(Y);AT A-Z,B+Z;A$(Y);AT A+Z,B-Z;A$(Y);AT A+Z,B+Z;A$(Y) 22 NEXT Z 26 NEXT Y 27 NEXT C 28 GOTO 40 30 SAVE "1009%5" 31 GOTO 1 40 FOR Y=1 TO 4 41 PRINT AT 10,15;A$(Y) 42 FOR Z=1 TO 8 43 PRINT AT 10,15-Z;A$(Y);AT 10,15+Z;A$(Y);AT 10-Z,15;A$(Y);AT 10+Z,15;A$(Y);AT 10-Z,15-Z;A$(Y);AT 10-Z,15+Z;A$(Y);AT 10+Z,15-Z;A$(Y);AT 10+Z,15+Z;A$(Y) 44 NEXT Z 45 NEXT Y 46 GOTO 2