1179 REM length of snake 1180 LET e=5 ... 7929 REM we ate an apple 7930 LET e=e+5
999 REM arrays 1000 DIM x(400) 1010 DIM y(400) ... 4999 REM 1-based 5000 LET y(1)=y(1)-1
1260 FOR n=1 TO e 1270 LET x(n)=10 1280 LET y(n)=9+n 1290 NEXT n
IF...THEN
2520 IF x(1)=x(n) THEN PRINT "Died!": STOP
IF...THEN...GOTO
5040 IF x(1)=a AND y(1)=b THEN GOTO 7900
10 REM "while" loop 20 LET i=0 30 IF i>10 THEN GOTO 100 40 PRINT i 50 LET i=i+1 60 GOTO 30 100 PRINT "finished!"
5040 IF x(1)=a AND y(1)=b THEN GO SUB 7900 ... 7900 REM SUB eat apple 7910 LET e=e+5 7920 GO SUB 8000 7930 RETURN
Backward looping:
4500 FOR n=e+1 TO 2 STEP -1
PRINT AT:
2077 PRINT AT y(1),x(1);"*"
Logical operator composition:
2400 IF x(1)<1 OR x(1)>18 OR y(1)<1 ...
":" statement separator:
... THEN PRINT "Died!": STOP
Random numbers
900 RANDOMIZE ... 8010 LET a=INT (1+RND*17)
This work is licensed under a
Creative Commons
This work is licensed under a
Creative Commons
