### Appears on

Assembled by Tim Ward from many sources. Contains programs 10252 – 10293.

### Source Code

10 LET U=0 20 FAST 30 FOR B=2 TO 28 STEP 2 40 FOR A=0 TO 19 50 PRINT AT A,B;"% " 60 NEXT A 70 PRINT AT RND*14+3,B;" " 80 NEXT B 90 FOR A=0 TO 30 100 PRINT AT 0,A;"\@@";AT 19,A;"\@@" 110 NEXT A 120 FOR B=1 TO 18 130 PRINT AT B,0;"\@@";AT B,30;"\@@" 140 NEXT B 150 GOSUB 440 160 GOTO 210 170 PRINT AT A,B;"%$" 180 LET Z=Z-673 190 PRINT AT 20,0;"SCORE: ";Z;" " 200 RETURN 210 LET Z$=INKEY$ 220 IF Z$="" THEN LET Z$=A$ 230 LET Z=Z-50 240 LET Y=A 250 LET X=B 260 LET A=A+(Z$="Z")-(Z$="Q") 270 LET B=B+(Z$="L") 280 PRINT AT Y,X;" " 290 IF PEEK (PEEK 16396+256*PEEK 16397+33*A+B+1)=128 THEN GOSUB 170 300 PRINT AT A,B;"$" 310 IF A>18 OR A<2 OR B<1 THEN LET Z=INT (Z/3) 320 IF A>18 OR A<2 OR B<1 OR B>29 THEN GOTO 350 330 LET A$=Z$ 340 GOTO 160 350 PRINT AT 20,0;"END OF ROUND SCORE: ";Z 360 IF Z>U THEN LET U=Z 370 FOR G=1 TO 6 380 PRINT AT 21,3;"BEST SO FAR: ";U 390 PRINT AT A,B;"%$";AT A,B;"$";AT A,B;"%$" 400 PRINT AT 21,3;"%B%E%S%T" 410 NEXT G 420 CLS 430 GOTO 20 440 LET A=10 450 LET B=1 460 LET Z=20000 470 LET Y=A 480 LET X=B 490 LET A$="Z" 500 SLOW 510 RETURN 520 CLEAR 530 SAVE "1028%8" 540 RUN