THE EIGHT TIMES TABLE
Loops
10 PRINT “THE EIGHT TIMES TABLE” : PRINT: PRINT
20 FOR J = 1 TO 2
35 FOR N = 8 TO 96
40 PRINT J: “ *8= “; N
50 NEXT: NEXT
60 GOTO 60
FROGS
Random Numbers
10 PRINT “MOST FROGS LIVE IN WET PLACES. YOU ARE NEAR THE RIVER WITH YOUR COMPUTER. NEAR YOU THERE ARE MANY FROGS. HOW MANY FROGS ARE THERE? YOU HAVE 5 GUESSES.”
20 LET A = INT (RND*8+1)
30 FOR N=1TO 5
40 INPUT G
50 IF G=A THEN LET N=5
60 GOTO 100
70 PRINT “WRONG”
80 NEXT N
90 PRINT “SORRY YOU DIDN’T SEE THEM.’
95 GOTO 90
100 PRINT “RIGHT. NOW PADDLE FAST AWAY.”
110 GOTO 110
PINK PANTHER
Graphics: Using Arcs
10 VS 4: CLSL COLOUR 4,15 PAPER 15: INK 1
20 FOR N = 1 TO 10 STEP 1: CIRCLE 100,140, N: NEXT
30 FOR N = 1 TO 10 STEP 1: CIRCLE 140,140, N: NEXT
40 FOR N = 1 TO 5 STEP 1: CIRCLE 120,110, N: NEXT
50 INK 6: FOR Y = 100 TO 110
60 PLOT 115, Y: NEXT
70 ANGLE 0: PHI / PI/8: PLOT 125, 90: ARC 31,33, PI
80 INK 13: ANGLE 0: PHI PHI/2: PLOT 120,145 : ARC 60, PI: ANGLE 0 PHI PI/8
90 PLOT 160,145: ARC 60, PI: LINE 9, 75, 135, 75: LINE 95, 75, 95, 90
100 LINE 135, 75, 135, 90: ANGLE 0: PHI PI/3
110 PLOT 90, 160: ARC 15. 7, PI
120 LINE 80, 145, 80, 165: LINE 162, 145, 162, 165
140 ANGLE 0; PHI PI/3 : PLOT 160, 160 : ARC 5.7,PI
200 GOTO 200