Tilt Board

Gallery

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