Check E3B43DEA
Auto 8224

# Run-time Variables

Var b: Num = 1
Var p: Num = 7
Var a: 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 by your esteemed CSSCGC host!
  52 REM This is now safe to play to the under-fives...
 100 RESTORE 450: BORDER 1: PAPER 1: INK 7: CLS
 105 LET m$="GGDDEEDCCBBAAGDDCCBBADDCCBBAGGDDEEDCCBBAAG"
 110 PLOT 90,90: GO SUB 500
 120 PRINT AT 0,0; FLASH 1;"**TWINKLE TWINKLE LITTLE STAR**"
 240 PRINT AT 13,0: LET b=1
 250 FOR a=1 TO 42
 255 READ p
 260 PRINT m$(a);CHR$ 32;: BEEP .5+(.5 AND a/7=INT (a/7)),p
 265 LET b=b+1: IF b>7 THEN PRINT ': LET b=1
 270 NEXT a
 400 STOP
 450 DATA 7,7,14,14,16,16,14,12,12,11,11,9,9,7,14,14,12,12,11,11,9,14,14,12,12,11,11,9,7,7,14,14,16,16,14,12,12,11,11,9,9,7
 500 DRAW 40,40: DRAW 40,-40: DRAW -90,20: DRAW 100,0: DRAW -90,-20: RETURN
