Content
Image Gallery
Tilt Board
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
People
No people associated with this content.