Check 15459E27
Auto 8224

# Run-time Variables

Var a: Num = 9
Var b: Num = 11
Var c: Num = 12
Var d: Num = 14
Var e: Num = 16
Var g: Num = 7
Var p: Num = 7
Var n: NumFOR = 43, 42, 1, 250, 2
Var m$: Str = "GGDDEEDCCBBAAGDDCCBBADDCCBBAGGDDEEDCCBBAAG"

# End Run-time Variables

  50 REM Original by Dave 'Maestro' Hughes 2021 for the CSSCGC2021.
  51 REM Fixed... and further improved by your esteemed CSSCGC host!
  52 REM This is now safe to play to the under-fives...
 100 BORDER 1: PAPER 1: INK 7: CLS
 105 LET m$="GGDDEEDCCBBAAGDDCCBBADDCCBBAGGDDEEDCCBBAAG": LET a=9: LET b=11: LET c=12: LET d=14: LET e=16: LET g=7
 110 PLOT 90,90: GO SUB 500
 120 PRINT AT 0,0; FLASH 1;"**TWINKLE TWINKLE LITTLE STAR**"
 240 PRINT AT 13,0
 250 FOR n=1 TO 42
 260 PRINT m$(n);CHR$ 32;: BEEP .5+(.5 AND n/7=INT (n/7)),VAL m$(n)
 265 IF n/7=INT (n/7) THEN PRINT '
 270 NEXT n
 400 STOP
 500 DRAW 40,40: DRAW 40,-40: DRAW -90,20: DRAW 100,0: DRAW -90,-20: RETURN
