Retro Computers

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