Data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · cb5bb5e222
commit cb5bb5e222
parent 7387c8f97b
199093 changed files with 3378972 additions and 0 deletions
--- a/Task/Metronome/BBC-BASIC/metronome.basic
+++ b/Task/Metronome/BBC-BASIC/metronome.basic
@ -0,0 +1,21 @@
+      BeatPattern$ = "HLLL"
+      Tempo% = 100
+
+      *font Arial,36
+      REPEAT
+        FOR beat% = 1 TO LEN(BeatPattern$)
+          IF MID$(BeatPattern$, beat%, 1) = "H" THEN
+            SOUND 1,-15,148,1
+          ELSE
+            SOUND 1,-15,100,1
+          ENDIF
+          VDU 30
+          COLOUR 2
+          PRINT LEFT$(BeatPattern$,beat%-1);
+          COLOUR 9
+          PRINT MID$(BeatPattern$,beat%,1);
+          COLOUR 2
+          PRINT MID$(BeatPattern$,beat%+1);
+          WAIT 6000/Tempo%
+        NEXT
+      UNTIL FALSE