Musician Royal Demo

Products: Musician Royal
Developer(s): Oleg D. Jefimenko
Date: 1986
Type: Program
Platform(s): TS 2068
Tags: Music

Musician Royal Demo is a music playback program that presents six musical compositions in a “demo album” format, allowing the user to select and play them individually, in sequence, or on continuous loop. The six pieces are Tico-Tico (S. Abreu), Magic Flute (W. Mozart), Waltz (F. Chopin), Dorothy Dance (S. Smith), Dance With Me (Humperdinck), and Washington Post (J. Sousa). Each composition is encoded as pairs of pitch and duration values in DATA statements anchored at 200-unit intervals starting at line 1000, with special sentinel values: 99 signals a rest, 100/100 triggers a section repeat, and −1 is used as a pitch value for certain chromatic notes. The playback engine at lines 220–260 reads these pairs via RESTORE and uses BEEP with the formula BEEP T/V, F, where T is a tempo divisor stored per-section and V is the note’s denominator value, allowing variable tempo across sections of a piece. The program uses ON ERR to handle end-of-DATA conditions as a natural loop terminator, jumping to the inter-composition pause at line 270.

Program Analysis

Program Structure

The program is organized into four functional regions:

  1. Lines 1–30: Splash screen, array initialization, and title display.
  2. Lines 40–180: Album menu — lists compositions, prompts for selection count and order, and optionally requests a pause duration between pieces.
  3. Lines 190–300: Playback engine — iterates over the user’s playlist, drives BEEP output, and presents a post-play menu (play again, continuous, reselect, exit).
  4. Lines 1000–2011 + 7000–7030: Music data (six compositions) and the “Now Playing” subroutine.

Array Layout and Initialization

Line 10 allocates six arrays in a single DIM block:

  • P(6) — playlist order (up to 6 entries)
  • N(6) — note count per composition
  • A(6) — number of tempo sections per composition
  • C(10,6) — tempo divisor values, up to 10 sections × 6 compositions
  • D(6) — display name length (used to center the title on screen)
  • T(10,6) — working copy of tempo divisors for the current playlist run
  • C$(6,28) — fixed-length string array holding composition titles (28 chars each)

Data Format and RESTORE Addressing

Each composition’s data begins at a predictable line: RESTORE I*200+800 for composition I gives start lines 1000, 1200, 1400, 1600, 1800, and 2000. The header record at each anchor line holds the title string, total note count (NOT), and the number of tempo sections (tc). Following the header are tc pairs of (boundary-note-index, tempo-divisor), after which the note data begins at offset +1 within the same DATA stream.

Playback at line 210 uses RESTORE 800+200*P(O)+1 to skip the header record and land directly on the first tempo-section pair, then starts reading note pairs F, V (pitch semitone offset, duration denominator).

Playback Engine

The core loop spans lines 220–260:

  • T = T(1,O) — loads the current section’s tempo divisor.
  • READ F, V — reads the next note pair from DATA.
  • If F = 100 (and implicitly V = 100), the section counter I increments and the new tempo divisor is loaded: this is the section-change sentinel.
  • If F = 99, a rest is inserted via PAUSE T/V*60.
  • Otherwise, BEEP T/V, F plays the note. Duration is computed as T/V seconds, where T is the tempo scalar and V is the note’s denominator (e.g., 8 = eighth note, 4 = quarter note at that tempo).
  • End-of-DATA is detected by ON ERR GO TO 270, which falls through to the inter-composition pause and playlist advancement.

INKEY$ is polled on every note at line 230; a keypress immediately exits to the post-play menu at line 280.

Tempo Scaling

Each composition can have up to 10 tempo sections. The tempo divisor T acts as a scaling constant: a larger value stretches all note durations, producing a slower tempo for that section. Different sections of the same piece can thus have different tempos without reprogramming the note durations. For example, Tico-Tico (line 1000) has 2 sections, while the Waltz (line 1400) has 10.

Composition Summary

SlotTitleData startSectionsNote count
1Tico-Tico (S. Abreu)10002934
2Magic Flute (W. Mozart)12001188
3Waltz (F. Chopin)140010268
4Dorothy Dance (S. Smith)16002212
5Dance With Me (Humperdinck)1800182
6Washington Post (J. Sousa)20001198

Menu and Navigation Logic

On first entry (X=0), line 115 bypasses the interactive selection and auto-queues all six compositions in order, then sets X=1 so subsequent visits present the full menu. After playback, line 300 uses arithmetic on Boolean values to compute the branch target:

  • Z$="1" or Z$="2": adds −90 to 300, jumping to line 190 (play again / continuous).
  • Z$="0": adds −210 to 300, jumping to line 90 (new selection).
  • Z$="X" or Z$="x": executes NEW, clearing the program.

Continuous play is handled by the flag Z$="2" tested at line 270, which loops back to line 190 without returning to the menu.

Notable Techniques

  • ON ERR as loop terminator: Rather than counting notes or using a sentinel at a known position, the program relies on the error generated when READ exhausts the DATA to signal end-of-composition. This is an efficient but fragile technique — any other runtime error during playback would also trigger the jump to line 270.
  • Boolean arithmetic for GO TO targeting: Line 300 computes branch offsets using BASIC’s −1 true / 0 false convention, multiplied by integer constants, to select from several destinations without a chain of IF statements.
  • RESTORE + fixed-offset addressing: Compositions are anchored at exact 200-line intervals, making RESTORE arithmetic trivially predictable and eliminating the need for a separate index table.
  • Negative pitch values: Semitone offsets below middle C (e.g., −1, −3, −5, −12) are used freely in the DATA, exploiting BEEP’s signed pitch argument to reach lower notes.
  • Title centering: D(I) = LEN N$ stores each title’s character count, and line 200 uses (31 - D(E)) / 2 as the AT column to horizontally center the title on a 32-column display.

Anomalies and Observations

  • The variable NOT (line 90) shadows the BASIC keyword NOT. While BASIC allows this in some contexts since variable names take priority when an assignment target is expected, it is an unusual and potentially confusing choice.
  • Line 1014 contains a fractional duration value of 15 for note 14 (14,15) among otherwise integer denominators, which produces a slightly elongated note — likely intentional for a dotted-note effect.
  • The ON ERR GO TO 10 at line 1 provides a global safety net that restarts the program on any unhandled error outside the playback loop.
  • The BEEP .1,0 at line 30 and the short beeps at other points serve as audio feedback for button presses and section transitions, distinct from the musical data.

Content

Appears On

Related Products

Music transcription/performance program. Uses the BEEP command, so only one voice is available. Holds up to 2000 notes total in...

Related Articles

Related Content

Image Gallery

Musician Royal Demo

Source Code

    1 ON ERR GO TO 10: PAPER 6: BORDER 4: CLS : PAUSE 30: PRINT AT 10,9; PAPER 1; INK 7; FLASH 1;"stop the tape": BEEP .1,0: PAUSE 300
   10 CLS : DIM P(6): DIM N(6): DIM A(6): DIM C(10,6): DIM D(6): DIM T(10,6): DIM C$(6,28)
   20 PRINT : FOR A=1 TO 10: PRINT TAB 2; INK 1;"DEMO  ALBUM";TAB 19; INK 3;"DEMO  ALBUM": NEXT A
   30 BEEP .1,16: BEEP .1,20: BEEP .1,23: BEEP .1,16: PRINT ' PAPER 5;" mr * mr * mr **** mr * mr * mr "
   40 PRINT INK 0;'" MUSICIAN ROYAL  MUSICIAN ROYAL "; PAPER 7;''" \* 1986 Electret Scientific Co. "
   50 PRINT PAPER 5;''" THIS IS YOUR DEMO ALBUM. PRESS   ""ENTER"" TO SEE THE CONTENTS.  "
   60 PAUSE 0: LET X=0
   70 CLS : PRINT PAPER 5;"******** ALBUM CONTENTS ********": PRINT 
   80 LET Z$="": FOR I=1 TO 6
   90 RESTORE I*200+800: READ N$,NOT,TC: LET N(I)=NOT: LET C$(I)=N$: LET A(I)=TC: LET D(I)=LEN N$
  100 FOR J=1 TO A(I): READ B,BB: LET C(J,I)=BB: NEXT J
  110 PRINT AT 2*I+2,1;I;TAB 3;N$: NEXT I
  115 IF X=0 THEN PRINT PAPER 5;AT 20,0;"     PRESS ""ENTER"" TO PLAY.     ": PAUSE 0: LET N=6: LET D=2: LET P(1)=1: LET P(2)=2: LET P(3)=3: LET P(4)=4: LET P(5)=5: LET P(6)=6: LET X=1: GO TO 190
  120 PRINT PAPER 5;AT 20,0;"  HOW MANY COMPOSITIONS DO YOU           WANT TO PLAY?          "
  130 INPUT N: IF N<1 OR N>6 OR INT N<>N THEN BEEP .2,-24: GO TO 120
  140 IF N=1 THEN BEEP .2,12: PRINT PAPER 5;AT 20,0;"ENTER THE NUMBER OF THE COMPOSI-       TION TO BE PLAYED     ": FOR I=1 TO N: GO TO 160
  150 FOR I=1 TO N: BEEP .2,12: PRINT PAPER 5;AT 20,0;"ENTER THE NUMBER OF THE COMPOSI-TION TO BE PLAYED AS NO. ";I;"      "
  160 INPUT P(I): IF P(I)<1 OR P(I)>6 THEN BEEP .2,-24: GO TO 160
  170 NEXT I
  180 LET D=0: IF N>1 THEN BEEP .1,12: BEEP .1,12: PRINT PAPER 7;AT 20,0;"   INPUT THE DESIRED PAUSE IN   SECONDS BETWEEN THE COMPOSITIONS": INPUT D
  190 CLS : FOR O=1 TO N: LET E=P(O): LET I=1: GO SUB 7000
  200 PRINT AT 10,(31-D(E))/2;C$(E): FOR J=1 TO A(E): LET T(J,O)=C(J,E): NEXT J
  210 RESTORE 800+200*P(O)+1
  220 LET T=T(1,O)
  230 READ F,V: ON ERR GO TO 270: IF INKEY$<>"" THEN GO TO 280
  240 IF F=100 THEN LET I=I+1: LET T=T(I,O): GO TO 230
  250 IF F=99 THEN PAUSE T/V*60: GO TO 230
  260 BEEP T/V,F: GO TO 230
  270 PAUSE D*60+.6: NEXT O: IF Z$="2" THEN GO TO 190
  280 ON ERR GO TO 10: CLS : PAPER 5: PRINT AT 9,0;"PRESS ""1"" TO PLAY AGAIN.","PRESS ""2"" TO PLAY CONTINUOUSLY. "
  290 PRINT "PRESS ""0"" TO MAKE NEW SELECTION.PRESS ""X"" TO EXIT DEMO ALBUM.   ": PAPER 6: PAUSE 0: LET Z$=INKEY$: IF Z$="X" OR Z$="x" THEN NEW 
  300 GO TO 280+(-90 AND (Z$="1" OR Z$="2"))+(-210 AND Z$="0")
 1000 DATA "Tico-Tico by S. Abreu",934,2,12,2,934,1
 1001 DATA 28,16,26,8,24,16,23,8,21,8,20,8,23,8,24,8,26,8,28,2.67,99,8,28,2,100,100,99,16,16,16,15,16,16,16,17,16,16,8,21,16
 1002 DATA 99,16,16,16,15,16,16,16,17,16,16,8,20,16,99,16,16,16,15,16,16,16,17,16,16,16,26,16,23,16,20,16,16,16,14,16,13,16
 1003 DATA 12,4,99,16,21,16,20,16,19,16,17,16,21,16,26,16,17,16,26,16,24,16,21,16,17,16,16,16,21,16,24,16,16,16,21,16,24,16
 1004 DATA 23,16,22,16,23,16,-1,16,6,16,11,16,15,16,18,16,23,16,21,16,20,16,28,8,28,16,99,16,4,16,3,16,4,16,5,16,4,8
 1005 DATA 16,16,99,16,4,16,3,16,4,16,5,16,4,8,16,16,99,16,4,16,3,16,4,16,8,16,4,16,14,16,11,16,8,16,4,16,2,16
 1006 DATA 1,16,99,16,9,8,9,16,99,16,9,16,8,16,7,16,5,16,9,16,14,16,2,16,14,16,12,16,11,16,9,16,4,16,9,16,12,16
 1007 DATA 4,16,12,16,12,16,11,16,10,16,11,16,4,16,8,16,11,16,16,16,14,16,12,16,11,16,9,4,21,16,16,16,15,16,16,16,17,16
 1008 DATA 16,8,21,16,99,16,16,16,15,16,16,16,17,16,16,8,20,16,99,16,16,16,15,16,16,16,17,16,16,16,26,16,23,16,20,16,16,16
 1009 DATA 14,16,13,16,12,4,99,16,21,16,20,16,19,16,17,16,21,16,26,16,17,16,26,16,24,16,21,16,17,16,16,16,21,16,24,16,16,16
 1010 DATA 21,16,24,16,23,16,22,16,23,16,-1,16,6,16,11,16,15,16,18,16,23,16,21,16,20,16,28,8,28,16,99,16,4,16,3,16,4,16
 1011 DATA 5,16,4,8,16,16,99,16,4,16,3,16,4,16,5,16,4,8,16,16,99,16,4,16,3,16,4,16,8,16,4,16,14,16,11,16,8,16
 1012 DATA 4,16,2,16,1,16,99,16,9,8,9,16,99,16,9,16,8,16,7,16,5,16,9,16,14,16,2,16,14,16,12,16,11,16,9,16,4,16
 1013 DATA 9,16,12,16,4,16,12,16,12,16,11,16,10,16,11,16,4,16,8,16,11,16,16,16,14,16,12,16,11,16,9,4,21,16,9,16,13,16
 1014 DATA 16,16,21,16,9,16,13,16,20,8,9,16,13,16,18,16,18,16,9,16,13,16,16,8,9,16,13,16,18,16,18,16,9,16,13,16,16,8
 1015 DATA 9,16,13,16,18,16,18,16,11,16,14,15,16,8,14,16,16,16,18,16,21,16,11,16,14,16,20,8,14,16,16,16,18,16,18,16,11,16
 1016 DATA 14,16,16,8,14,16,16,16,18,16,21,16,11,16,14,16,20,8,14,16,16,16,18,16,18,16,9,16,13,16,16,8,9,16,13,16,16,16
 1017 DATA 21,16,9,16,13,16,20,8,9,16,13,16,18,16,18,16,9,16,13,16,16,8,9,16,13,16,16,16,18,16,16,16,13,16,10,16,18,16
 1018 DATA 16,16,13,16,10,16,11,16,10,16,11,16,13,16,14,8,99,8,14,16,13,16,14,16,16,16,18,16,20,16,21,16,23,16,25,16,26,16
 1019 DATA 27,16,28,16,30,16,28,16,26,16,25,16,23,16,21,16,20,16,18,16,16,16,14,16,13,16,11,16,9,4,21,16,9,16,13,16,16,16
 1020 DATA 21,16,9,16,13,16,20,8,9,16,13,16,18,16,18,16,9,16,13,16,16,8,9,16,13,16,18,16,18,16,9,16,13,16,16,8,9,16
 1021 DATA 13,16,18,16,18,16,11,16,14,16,16,8,14,16,16,16,18,16,21,16,11,16,14,16,20,8,14,16,16,16,18,16,18,16,11,16,14,16
 1022 DATA 16,8,14,16,16,16,18,16,21,16,11,16,14,16,20,8,14,16,16,16,18,16,18,16,9,16,13,16,16,8,9,16,13,16,16,16,21,16
 1023 DATA 9,16,13,16,20,8,9,16,13,16,18,16,18,16,9,16,13,16,16,8,9,16,13,16,16,16,18,16,16,16,13,16,10,16,18,16,16,16
 1024 DATA 13,16,10,16,11,16,10,16,11,16,13,16,14,8,99,8,14,16,13,16,14,16,16,16,18,16,20,16,21,16,23,16,25,16,26,16,27,16
 1025 DATA 28,16,30,16,28,16,26,16,25,16,23,16,21,16,20,16,18,16,16,16,14,16,13,16,11,16,9,4,21,16,9,16,16,16,15,16,16,16
 1026 DATA 17,16,16,8,21,16,99,16,16,16,15,16,16,16,17,16,16,8,20,16,99,16,16,16,15,16,16,16,17,16,16,16,26,16,23,16,20,16
 1027 DATA 16,16,14,16,13,16,12,4,99,16,21,16,20,16,19,16,17,16,21,16,26,16,17,16,26,16,24,16,21,16,17,16,16,16,21,16,24,16
 1028 DATA 16,16,21,16,24,16,23,16,22,16,23,16,-1,16,6,16,11,16,15,16,18,16,23,16,21,16,20,16,28,8,28,16,99,16,4,16,3,16
 1029 DATA 4,16,5,16,4,8,16,16,99,16,4,16,3,16,4,16,5,16,4,8,16,16,99,16,4,16,3,16,4,16,8,16,4,16,14,16,11,16
 1030 DATA 8,16,4,16,2,16,1,16,99,16,9,8,9,16,99,16,9,16,8,16,7,16,5,16,9,16,14,16,2,16,14,16,12,16,11,16,9,16
 1031 DATA 4,16,9,16,12,16,4,16,12,16,12,16,11,16,10,16,11,16,4,16,8,16,11,16,16,16,14,16,12,16,11,16,9,4,21,16,11,16
 1032 DATA 9,16,8,16,7,16,0,16,4,16,7,16,12,16,16,16,19,16,20,16,21,8,17,8,99,16,11,16,9,16,8,16,7,16,-1,16,5,16
 1033 DATA 7,16,11,16,14,16,17,16,19,16,21,8,16,8,99,16,24,16,24,16,24,16,24,16,23,16,23,16,23,16,23,16,21,16,21,16,21,16
 1034 DATA 21,8,17,8,99,16,23,16,23,16,23,16,23,16,21,16,21,16,21,16,21,16,19,16,19,16,19,16,21,16,19,16,16,16,12,16,7,16
 1035 DATA 4,16,0,16,-3,16,-5,16,0,16,4,16,7,16,12,16,16,16,19,16,20,16,21,8,17,8,99,16,11,16,9,16,8,16,7,16,-1,16
 1036 DATA 5,16,7,16,11,16,14,16,17,16,19,16,21,8,16,8,99,16,12,16,11,16,10,16,9,16,8,16,9,16,11,16,14,16,12,16,11,16
 1037 DATA 12,16,16,16,7,16,12,16,16,16,19,16,18,16,17,16,16,16,14,16,12,16,11,16,9,16,7,16,5,16,4,16,2,16,0,8,99,8
 1038 DATA 12,16,11,16,9,16,8,16,7,16,0,16,4,16,7,16,12,16,16,16,19,16,20,16,21,8,17,8,99,16,11,16,9,16,8,16,7,16
 1039 DATA -1,16,5,16,7,16,11,16,14,16,17,16,19,16,21,8,16,8,99,16,24,16,24,16,24,16,24,16,23,16,23,16,23,16,23,16,21,16
 1040 DATA 21,16,21,16,21,8,17,8,99,16,23,16,23,16,23,16,23,16,21,16,21,16,21,16,21,16,19,16,19,16,19,16,21,16,19,16,16,16
 1041 DATA 12,16,7,16,4,16,0,16,-3,16,-5,16,0,16,4,16,7,16,12,16,16,16,19,16,20,16,21,8,17,8,99,16,11,16,9,16,8,16
 1042 DATA 7,16,-1,16,5,16,7,16,11,16,14,16,17,16,19,16,21,8,16,8,99,16,12,16,11,16,10,16,9,16,8,16,9,16,11,16,14,16
 1043 DATA 12,16,11,16,12,16,16,16,7,16,12,16,16,16,19,16,18,16,17,16,16,16,14,16,12,16,11,16,9,16,7,16,5,16,4,16,2,16,0,4
 1044 DATA 16,4,16,16,15,16,16,16,17,16,16,8,21,16,99,16,16,16,15,16,16,16,17,16,16,8,20,16,99,16,16,16,15,16,16,16,17,16
 1045 DATA 16,16,26,16,23,16,20,16,16,16,14,16,13,16,12,4,99,16,21,16,20,16,19,16,17,16,21,16,26,16,17,16,26,16,24,16,21,16
 1046 DATA 17,16,16,16,21,16,24,16,16,16,21,16,24,16,23,16,22,16,23,16,-1,16,6,16,11,16,15,16,18,16,23,16,21,16,20,16,28,8
 1047 DATA 28,16,99,16,4,16,3,16,4,16,5,16,4,8,16,16,99,16,4,16,3,16,4,16,5,16,4,8,16,16,99,16,4,16,3,16,4,16
 1048 DATA 8,16,4,16,14,16,11,16,8,16,4,16,2,16,1,16,99,16,9,8,9,16,99,16,9,16,8,16,7,16,5,16,9,16,14,16,2,16
 1049 DATA 14,16,12,16,11,16,9,16,4,16,9,16,12,16,4,16,12,16,12,16,11,16,10,16,11,16,4,16,8,16,11,16,16,16,14,16,12,16
 1050 DATA 11,16,9,4,21,16
 1200 DATA "Magic Flute by W. Mozart",188,1,188,1
 1201 DATA 14,8,12,8,11,4,19,4,23,4,14,8,11,8,12,4,21,4,24,4,12,8,11,8,9,4,18,4,21,4,18,4,19,8,23,8,19,8
 1202 DATA 23,8,19,4,14,8,12,8,11,4,14,8,19,8,23,4,14,8,11,8,12,4,16,8,21,8,24,4,16,8,12,8,11,8,14,8,19,4
 1203 DATA 9,8,14,8,18,4,19,4,23,4,19,4,14,8,12,8,11,4,19,4,23,4,14,8,11,8,12,4,21,4,24,4,12,8,11,8,9,4
 1204 DATA 18,4,21,4,18,4,19,8,23,8,19,8,23,8,19,4,14,8,12,8,11,4,14,8,19,8,23,4,14,8,11,8,12,4,16,8,21,8
 1205 DATA 24,4,16,8,12,8,11,8,14,8,19,8,23,8,9,8,14,8,18,8,21,8,19,4,23,4,19,4,12,8,11,8,9,4,18,4,21,4
 1206 DATA 9,8,12,8,11,4,19,4,23,4,11,8,14,8,12,4,21,4,24,4,18,4,19,8,23,8,19,8,23,8,26,4,11,8,12,8,14,4
 1207 DATA 19,4,23,4,14,8,11,8,16,4,19,4,24,4,16,8,12,8,11,8,14,8,19,4,9,8,14,8,18,4,19,4,23,4,19,4,12,8
 1208 DATA 11,8,9,8,14,8,18,8,14,8,21,4,9,8,12,8,11,8,14,8,19,8,14,8,23,4,11,8,14,8,12,8,18,8,21,8,18,8
 1209 DATA 24,4,18,8,21,8,19,8,23,8,19,8,23,8,26,4,11,8,12,8,14,4,19,8,14,8,23,4,14,8,11,8,16,4,19,8,16,8
 1210 DATA 24,4,16,8,12,8,11,8,14,8,19,8,23,8,9,8,14,8,18,8,21,8,19,8,14,8,19,8,23,8,19,4,99,4
 1400 DATA "Waltz by F. Chopin",268,10,62,1.4,68,1.6,117,1.4,130,1.6,162,1.2,174,1.4,190,1.2,199,1.5,255,1.3,268,1.7
 1401 DATA 18,2.67,19,8,18,8,13,8,14,8,11,8,10,2,18,2.67,19,8,18,8,13,8,16,8,14,8,11,2,18,2.67,19,8,17,8,18,8,23,8
 1402 DATA 26,2.67,17,4,26,2,16,4,25,2.67,23,8,22,8,19,8,18,8,13,8,14,8,19,8,18,8,13,8,14,8,11,8,10,2,18,2.67,19,8
 1403 DATA 18,8,13,8,16,8,14,8,11,2,18,2.67,30,8,25,8,26,8,22,8,23,8,21,8,19,8,11,8,13,8,14,8,16,8,19,8,18,8
 1404 DATA 11,8,14,8,13,8,6,8,11,8,100,100,5,8,6,8,10,8,11,8,13,8,14,8,100,100,19,8,18,8,13,8,14,8,11,8,10,2,18,2.67,19,8
 1405 DATA 18,8,13,8,16,8,14,8,11,2,18,2.67,19,8,17,8,18,8,23,8,26,2.67,17,4,26,2,16,4,25,2.67,23,8,22,8,19,8,18,8
 1406 DATA 13,8,14,8,19,8,18,8,13,8,14,8,11,8,10,2,18,2.67,19,8,18,8,13,8,16,8,14,8,11,2,18,4,30,8,25,8,26,8
 1407 DATA 22,8,23,8,18,8,100,100,21,8,19,8,11,8,13,8,16,8,19,8,19,8,18,8,11,8,14,8,13,8,6,8,11,2.67,100,100,6,8,11,8,10,8
 1408 DATA 10,2.67,9,8,13,8,16,8,19,2.67,18,8,13,8,14,8,18,2.67,16,8,11,8,13,8,16,2.67,14,8,13,8,11,8,11,2.67,9,8,13,8
 1409 DATA 16,8,19,2.67,18,8,13,8,14,8,18,2.67,16,8,11,8,13,8,10,2.67,100,100,13,8,11,8,13,8,6,2.67,10,8,13,8,16,8,19,2.67,18,8
 1410 DATA 13,8,14,8,18,2.67,100,100,16,8,11,8,13,8,16,2.67,14,8,13,8,11,8,11,2.67,9,8,13,8,16,8,19,2.67,18,8,13,8,14,8,18,2.67
 1411 DATA 100,100,16,8,30,8,28,8,26,8,25,8,24,8,23,8,22,8,21,8,100,100,20,8,19,8,18,8,13,8,14,8,11,8,10,2.67,99,8,21,4,20,8
 1412 DATA 19,8,18,8,13,8,16,8,14,8,11,2.67,99,8,21,4,20,8,19,8,17,8,18,8,23,8,26,2.67,17,4,26,2,16,4,25,4,24,8
 1413 DATA 23,8,22,8,21,8,20,8,19,8,18,8,17,8,16,8,14,8,13,8,11,8,10,2,19,4,18,8,19,8,18,8,13,8,16,8,14,8
 1414 DATA 11,2,18,4,30,8,25,8,26,8,22,8,23,8,18,8,100,100,21,8,19,8,11,8,13,8,16,8,19,8,19,8,18,8,11,8,14,8,13,8,6,8,11,2
 1600 DATA "Dorothy Dance by S. Smith",212,2,201,1.5,212,2
 1601 DATA -11,32,-10,2.13,1,32,2,2.13,13,32,14,2.13,25,32,26,2.13,99,8,14,3.8,7,3.8,16,3.8,9,3.8,12,8,14,16,12,16,11,8,9,8,7,8,11,8
 1602 DATA 2,4,4,8,7,8,2,8,7,8,4,8,7,8,2,8,7,8,12,3.8,11,3.8,9,1.9,14,3.8,7,3.8,16,3.8,9,3.8,12,8,14,16,12,16
 1603 DATA 11,8,9,8,7,8,11,8,2,4,4,8,6,8,7,8,9,8,11,8,12,8,14,8,16,8,19,3.8,18,3.8,19,1.8,14,3.8,7,3.8,16,3.8
 1604 DATA 9,3.8,12,8,14,16,12,16,11,8,9,8,7,8,11,8,2,4,4,8,7,8,2,8,7,8,4,8,7,8,2,8,7,8,12,3.8,11,3.8
 1605 DATA 9,1.8,14,3.8,7,3.8,16,3.8,9,3.8,12,8,14,16,12,16,11,8,9,8,7,8,11,8,2,4,4,8,6,8,7,8,9,8,11,8,12,8
 1606 DATA 14,8,16,8,19,4,18,4,19,2,11,8,12,8,11,8,10,8,11,8,16,8,19,8,23,8,21,8,19,8,18,8,23,8,19,4,16,4
 1607 DATA 0,8,-1,8,-3,8,0,8,-1,8,-3,8,-5,8,-1,8,-3,8,-5,8,-6,8,-1,8,-5,4,-8,4,11,8,12,8,11,8,10,8,11,8
 1608 DATA 16,8,19,8,23,8,21,8,19,8,18,8,23,8,19,4,16,4,0,8,-1,8,-3,8,0,8,-1,8,-3,8,-5,8,-1,8,-3,8,-5,8
 1609 DATA -6,8,-1,8,-8,1.8,14,3.8,7,3.8,16,3.8,9,3.8,12,8,14,16,12,16,11,8,9,8,7,8,11,8,2,4,4,8,7,8,2,8,7,8
 1610 DATA 4,8,7,8,2,8,7,8,12,3.8,11,3.8,9,1.8,14,3.8,7,3.8,16,3.8,9,3.8,12,8,14,16,12,16,11,8,9,8,7,8,11,8,2,4
 1611 DATA 4,8,6,8,7,8,9,8,11,8,12,8,14,8,16,8,19,3.8,18,3.8,19,1,100,100,4,8,6,8,7,8,9,8,11,8,12,8,14,8,16,8,19,3.8,18,3.8,19,1.8
 1800 DATA "Dance With Me by Humperdinck",82,1,82,1.5
 1801 DATA 12,5.33,14,16,12,8,10,8,9,8,7,8,5,4,7,5.33,9,16,7,8,5,8,4,8,2,8,0,4,9,8,5,8,12,4,10,8,7,8
 1802 DATA 14,4,16,5.33,14,16,12,8,10,8,9,8,7,8,5,4,14,5.33,9,16,9,8,14,8,12,8,10,8,9,4,9,5.33,4,16,4,8,9,8
 1803 DATA 5,8,4,8,2,4,9,8,11,8,12,8,7,8,9,8,11,8,12,4,12,8,14,8,16,8,12,8,17,8,11,8,12,4,-12,8,-7,8
 1804 DATA -3,8,-7,8,0,8,0,8,0,4,-12,8,-7,8,-3,8,-7,8,2,8,2,8,2,4,10,8,7,8,16,4,12,8,9,8,17,4,16,5.33,14,16,12,8,10,8,9,8,7,8,5,4
 2000 DATA "Washington Post by J. Sousa",198,1,198,1.2
 2001 DATA 14,12,13,12,14,12,16,3.8,16,3.8,18,3.8,18,3.8,21,3.8,19,3.8,99,8,19,8,19,12,18,12,16,12,14,5.33,15,16,16,5.33,15,16,14,5.33
 2002 DATA 14,16,14,12,14,12,14,12,14,5.33,15,16,16,5.33,15,16,14,5.33,14,16,14,12,14,12,14,12,16,3.8,16,3.8,18,3.8,18,3.8,21,3.8,19,3.8
 2003 DATA 99,8,19,8,19,12,18,12,19,12,18,5.33,18,16,18,12,19,12,20,12,21,5.33,21,16,21,12,23,12,25,12,26,5.33,25,16,26,5.33,25,16
 2004 DATA 26,3.8,2,3.8,2,3.8,6,5.33,9,16,16,3.8,16,3.8,16,1.8,99,8,14,8,14,12,11,12,14,12,16,1.8,99,8,12,8,12,12,9,12,12,12
 2005 DATA 16,1.8,99,8,14,16,11,5.33,7,16,2,3.8,6,5.33,9,16,16,3.8,16,3.8,16,1.8,99,8,14,8,14,12,11,12,14,12,19,3.8,7,5.33,9,16
 2006 DATA 11,3.8,7,3.8,9,2,7,3.8,14,12,13,12,14,12,16,3.8,16,3.8,18,3.8,18,3.8,21,3.8,19,3.8,99,8,19,8,19,12,18,12,16,12,14,5.33
 2007 DATA 15,16,16,5.33,15,16,14,5.33,14,16,14,12,14,12,14,12,14,5.33,15,16,16,5.33,15,16,14,5.33,14,16,14,12,13,12,14,12,16,3.8,16,3.8
 2008 DATA 18,3.8,18,3.8,21,3.8,19,3.8,99,8,19,8,19,12,18,12,19,12,18,5.33,18,16,18,12,19,12,20,12,21,5.33,21,16,21,12,23,12,25,12
 2009 DATA 26,5.33,25,16,26,5.33,25,16,26,3.8,2,3.8,2,3.8,6,5.33,9,16,16,3.8,16,3.8,16,1.8,99,8,14,8,14,12,11,12,14,12,16,1.8,99,8
 2010 DATA 12,8,12,12,9,12,12,12,16,1.8,99,8,14,16,11,5.33,7,16,2,3.8,6,5.33,9,16,16,3.8,16,3.8,16,1.8,99,8,14,8,14,12,11,12
 2011 DATA 14,12,19,3.8,7,5.33,9,16,11,3.8,7,3.8,9,1.8,7,12,7,6
 7000 CLS : PRINT AT 0,0; PAPER 5;"********* NOW PLAYING **********"
 7010 PRINT PAPER 7;AT 20,0;"     PRESS ""ENTER"" TO STOP      "
 7020 PRINT PAPER 5;"********* NOW PLAYING **********"
 7030 RETURN

Note: Type-in program listings on this website use ZMAKEBAS notation for graphics characters.

Tags

Archived Media Downloadable Electret Scientific Company TS 2068 Music
Scroll to Top