MusicBox4

Date: 198x
Type: Program
Platform(s): TS 2068
Tags: Music

MusicBox4 is a music player program that stores and plays back up to five musical compositions using the SOUND command for three-voice synthesis and BEEP for single-note melody. Each composition’s data is stored in numbered DATA blocks starting at offsets of 1000 (e.g., line 5000 for composition 5, line 6000 for composition 6), with each note record containing six chip-register values (AF, AC, BF, BC, CF, CC), a frequency value (F), and a velocity/division value (V). When F equals 99, the program issues a PAUSE instead of a BEEP, functioning as a rest. The program uses ON ERR to detect the end of a composition’s DATA and supports adjustable tempo via a user-input multiplier (TT), continuous playback mode, and the ability to loop a composition from an alternate RESTORE point.

Program Structure

The program is organized into a menu shell (lines 10–320) and large DATA blocks beginning at line 5000. The control flow is driven by user input at key decision points, with the music engine looping through a READ/play cycle at lines 130–170.

LinesRole
10–40Title screen: scrolling header, press ENTER prompt
50–70Composition menu: reads track names from DATA, displays list
80–90Initializes tempo (TT=10), computes tick duration T, configures noise via SOUND
100–120“Now Playing” display with centered track name
130–170Main playback loop: reads note data, dispatches to SOUND or BEEP/PAUSE
180–230ON ERR handler: end-of-data detection, post-play menu
240–310Input handler for repeat, continuous, tempo change, or new selection
320SAVE command
5000–5370DATA for composition 5 (“STARLIGHT WALTZ”)
6000–6070DATA for composition 6 (“MEDIEVAL FRENCH SONG”)

Composition Data Format

Each composition begins with a header DATA record: a name string and a base rate R. The effective tick duration is T = R * TT. Subsequent records each contain eight values read into AF, AC, BF, BC, CF, CC, F, V:

  • AF, AC — channel A frequency (low/high byte) and amplitude for SOUND
  • BF, BC — channel B frequency and amplitude
  • CF, CC — channel C frequency and amplitude
  • F — BEEP pitch semitones offset, or 99 to indicate a rest/chord-only step
  • V — duration divisor; BEEP T/V, F or PAUSE T/V*60

A negative value for AF (specifically -1) is used throughout the data as a sentinel to suppress the SOUND call: line 130 checks IF AF<0 THEN GO TO 150, skipping the three-channel chip write and proceeding directly to the BEEP/PAUSE dispatch.

Playback Engine

The core loop at lines 130–170 reads one note record per iteration. If AF >= 0, it writes all six channel parameters to the sound chip via SOUND 0,AF;1,AC;2,BF;3,BC;4,CF;5,CC. It then checks whether F = 99: if so, a PAUSE T/V*60 holds for the chord duration without adding a BEEP pitch; otherwise BEEP T/V, F plays the melodic note. The loop returns to line 130 unconditionally via GO TO 130.

End-of-data is detected implicitly: when READ exhausts the DATA, ON ERR fires and redirects to line 180. This is a common Sinclair BASIC idiom for terminating data-driven loops without an explicit sentinel count.

Tempo and Continuous Play

The variable TT (default 10) scales all durations. The user can enter any positive number at line 310; a smaller value speeds up playback, a larger value slows it. This scales both BEEP and PAUSE durations uniformly since both use T/V as their time argument.

Continuous play (option “2”) is handled at line 180: if Z$="2", the program restores to N*1000+1010 (skipping the header record at offset +1000) and jumps back to line 130, re-reading the music data without returning to the menu. This allows seamless looping of a composition.

Composition Indexing

Track selection uses the formula N*1000+1000 to compute the RESTORE target. For N=5 this gives line 6000, and for N=6, line 7000. The menu at line 60 reads names using the same formula: RESTORE I*1000+1000 for I=1 TO 5, meaning the five selectable compositions would nominally live at lines 2000, 3000, 4000, 5000, and 6000. In this listing only compositions at 5000 (“STARLIGHT WALTZ”) and 6000 (“MEDIEVAL FRENCH SONG”) are present; the other three DATA blocks are absent, so selecting N=1 through N=3 would cause an ON ERR condition immediately.

Notable Techniques and Anomalies

  • ON ERR as loop terminator: Rather than counting notes or embedding a sentinel value in the data stream, the program relies on ON ERR to catch the “out of DATA” error, a concise but somewhat fragile technique — any other runtime error in the playback loop would also be caught and treated as end-of-track.
  • ON ERR RESET at line 180: After handling the end-of-data condition, the error handler is cleared with ON ERR RESET before re-entering the playback loop for continuous mode, preventing the handler from immediately re-triggering.
  • Centered title display: Line 110 uses AT 10,(31-LEN N$)/2 to horizontally center the track name on a 32-character display.
  • SOUND initialization: Line 90 uses SOUND 7,56;8,15;9,15;10,15 to configure the noise enable register and amplitude envelopes before playback begins.
  • Data anomaly in line 5220: The sequence 99,8,162,19,8,162,1,46,2,151,2 appears to contain a malformed record — 162,19 instead of the expected 162,1 followed by a complete 8-value group. This is likely a transcription error in the DATA that would cause incorrect playback or an early error at that point in “STARLIGHT WALTZ.”
  • Data anomaly in line 5250: The sequence ends with 216,136,6,99,8,162,1,46,2,151,2, where 216 appears as a spurious extra value, again suggesting a DATA entry error.
  • Title screen mismatch: The PRINT statements at lines 20 and 100 display “MUSIC BOX 3” while the SAVE command at line 320 uses filename “BOX 3”, and the program is titled “MusicBox4” — suggesting this is a revision of an earlier program in a series.

Content

Appears On

Related Products

Related Articles

Related Content

Image Gallery

Source Code

   10  BORDER 4:PAPER 6:CLS :FOR A=0 TO 12
   20 PRINT TAB 3; INK 1;"MUSIC BOX 3"; TAB 18; INK 3;"MUSIC BOX 3":NEXT A
   30 PRINT AT 15,0; PAPER 5;''"THIS IS YOUR MUSIC BOX 3.  PRESS ""ENTER"" TO SEE THE CONTENTS.  " 
   40 PAUSE 0
   50 CLS :PRINT PAPER 5;"********* BOX CONTENTS *********":PRINT ''
   60 FOR I=1 TO 5:RESTORE I*1000+1000:READ N$:PRINT I; TAB 4;N$:NEXT I
   70 PRINT PAPER 5; AT 20,0;"ENTER THE NUMBER OF THE COMPOSI-TION  THAT YOU WANT TO PLAY      "
   80 INPUT N:CLS :LET TT=10:LET Z$=""
   90 RESTORE N*1000+1000:READ N$,R:LET T=R*TT:SOUND 7,56;8,15;9,15;10,15
  100 CLS :PRINT PAPER 5;"********* NOW PLAYING **********"; AT 21,0;"********* NOW PLAYING **********"
  110 PRINT AT 10,(31- LEN N$)/2;N$
  120 PRINT PAPER 3; INK 7; AT 20,0;"TO STOP, PRESS ""SHIFT"" + ""BREAK"""
  130 READ AF,AC,BF,BC,CF,CC,F,V:ON ERR GO TO 180:IF AF<0 THEN GO TO 150
  140 SOUND 0,AF;1,AC;2,BF;3,BC;4,CF;5,CC
  150 IF F <>99 THEN GO TO 170
  160 PAUSE T/V*60:GO TO 130
  170 BEEP T/V,F:GO TO 130
  180 ON ERR RESET :IF Z$="2" THEN RESTORE N*1000+1010:GO TO 130
  190 SOUND 7,63:CLS :PAPER 7:PRINT AT 7,0;"PRESS ""1"" TO PLAY AGAIN.        "
  200 PRINT  "PRESS ""2"" TO PLAY CONTINUOUSLY. "
  210 PRINT ;"PRESS ""3"" TO PLAY DIFFERENTLY.  "
  220 PRINT ;"PRESS ""0"" TO PLAY ANOTHER       "
  230 PRINT "COMPOSITION.":PAPER 6
  240 PAUSE 0:LET Z$= INKEY$:IF Z$="1" OR Z$="2" THEN GO TO 90
  250 IF Z$="0" THEN GO TO 50
  260 CLS :PRINT AT 6,0;"INPUT A NUMBER FOR THE DESIRED"
  270 PRINT "TEMPO.  THE PROGRAMMED TEMPO IS"
  280 PRINT "10. A SMALLER NUMBER WILL MAKE"
  290 PRINT "THE TEMPO FASTER; A LARGER"
  300 PRINT "NUMBER WILL MAKE IT SLOWER."
  310 INPUT TT:GO TO 90
  320 SAVE "BOX 3" LINE 10
 5000 DATA "STARLIGHT WALTZ",.2
 5010 DATA 0,0,0,0,0,0,7,8,0,0,0,0,0,0,9,8,46,2,92,4,92,4,11,8,116,1,186,1,0,0,99,8,116,1,186,1,0,0,11,8,232,2,209,5,209,5,12,8,162,1,241,1,79,2,99,8,162,1,241,1,79,2,9,8,46,2,92,4,92,4,16,8,116,1,186,1,0,0,14,8
 5020 DATA 116,1,186,1,0,0,99,8,46,2,92,4,92,4,99,8,116,1,186,1,0,0,99,8,116,1,186,1,0,0,11,8,232,2,209,5,209,5,14,8,162,1,241,1,79,2,12,8,162,1,241,1,79,2,99,8,232,2,209,5,209,5,99,8,162,1,241,1,79,2,99,8,162,1,241,1,79,2,9,8
 5030 DATA 46,2,92,4,92,4,12,8,116,1,186,1,0,0,11,8,116,1,186,1,0,0,99,8,46,2,92,4,92,4,99,8,116,1,186,1,0,0,7,8,116,1,186,1,0,0,9,8,46,2,92,4,92,4,11,8,116,1,186,1,0,0,99,8,116,1,186,1,0,0,11,8,232,2,209,5,209,5,12,8
 5040 DATA 162,1,241,1,79,2,99,8,162,1,241,1,79,2,9,8,46,2,92,4,92,4,16,8,116,1,186,1,0,0,14,8,116,1,186,1,0,0,99,8,46,2,92,4,92,4,99,8,116,1,186,1,0,0,99,8,116,1,186,1,0,0,11,8,232,2,209,5,209,5,14,8,162,1,241,1,79,2,12,8
 5050 DATA 162,1,241,1,79,2,99,8,232,2,209,5,209,5,99,8,162,1,241,1,79,2,99,8,162,1,241,1,79,2,6,8,46,2,92,4,92,4,7,8,116,1,186,1,0,0,99,8,116,1,186,1,0,0,99,8,46,2,92,4,92,4,99,8,116,1,186,1,0,0,7,8,116,1,186,1,0,0,9,8
 5060 DATA 23,1,46,2,92,4,11,8,116,1,186,1,0,0,99,8,23,1,116,1,186,1,11,8,248,0,232,2,209,5,12,8,162,1,241,1,79,2,99,8,162,1,241,1,79,2,9,8,209,0,46,2,92,4,16,8,221,0,116,1,186,1,14,8,116,1,186,1,0,0,99,8,46,2,92,4,92,4,99,8
 5070 DATA 116,1,186,1,0,0,99,8,23,1,116,1,186,1,11,8,221,0,232,2,209,5,14,8,248,0,162,1,248,0,12,8,162,1,241,1,79,2,99,8,232,2,209,5,209,5,99,8,162,1,241,1,79,2,99,8,39,1,162,1,241,1,9,8,248,0,46,2,92,4,12,8,23,1,116,1,186,1,11,8
 5080 DATA 116,1,186,1,0,0,99,8,46,2,92,4,92,4,99,8,116,1,186,1,0,0,7,8,116,1,186,1,0,0,9,8,23,1,46,2,92,4,11,8,116,1,196,1,0,0,99,8,23,1,116,1,186,1,11,8,248,0,232,2,209,5,12,8,162,1,241,1,79,2,99,8,162,1,241,1,79,2,9,8
 5090 DATA 209,0,46,2,92,4,16,8,221,0,116,1,186,1,14,8,116,1,186,1,0,0,99,8,46,2,92,4,92,4,99,8,116,1,186,1,0,0,99,8,23,1,116,1,186,1,11,8,221,0,232,2,209,5,14,8,248,0,162,1,248,0,12,8,162,1,241,1,79,2,99,8,232,2,209,5,209,5,99,8
 5100 DATA 162,1,241,1,79,2,4,8,162,1,241,1,79,2,6,8,46,2,92,4,92,4,7,8,116,1,186,1,0,0,99,8,116,1,186,1,0,0,99,8,46,2,92,4,0,0,99,4,0,0,0,0,0,0,99,8,186,0,68,3,136,6,19,8,162,1,46,2,151,2,99,8,162,1,46,2,151,2,99,8
 5110 DATA 68,3,136,6,136,6,99,8,186,0,162,1,46,2,18,8,209,0,162,1,46,2,16,8,209,0,46,2,92,4,16,8,221,0,116,1,186,1,14,8,116,1,186,1,0,0,99,8,46,2,92,4,92,4,99,8,116,1,186,1,0,0,99,8,23,1,116,1,186,1,11,8,221,0,232,2,209,5,14,8
 5120 DATA 248,0,162,1,241,1,12,8,162,1,241,1,79,2,99,8,232,2,209,5,209,5,99,8,162,1,241,1,79,2,99,8,39,1,162,1,241,1,9,8,248,0,46,2,92,4,12,8,23,1,116,1,186,1,11,8,116,1,186,1,0,0,99,8,46,2,92,4,92,4,99,8,116,1,186,1,0,0,99,8
 5130 DATA 23,1,116,1,186,1,11,8,186,0,68,3,136,6,19,8,162,1,46,2,151,2,99,8,162,1,46,2,151,2,99,8,68,3,136,6,136,6,99,8,186,0,162,1,46,2,18,8,209,0,162,1,46,2,16,8,209,0,46,2,92,4,16,8,221,0,116,1,186,1,14,8,116,1,186,1,0,0,99,8
 5140 DATA 46,2,92,4,92,4,99,8,116,1,186,1,0,0,99,8,23,1,116,1,186,1,11,8,221,0,232,2,209,5,14,8,248,0,162,1,241,1,12,8,162,1,241,1,79,2,99,8,232,2,209,5,209,5,99,8,162,1,241,1,79,2,4,8,162,1,241,1,79,2,6,8,46,2,92,4,92,4,7,8
 5150 DATA 116,1,186,1,0,0,99,8,116,1,186,1,0,0,99,8,46,2,92,4,92,4,99,8,0,0,0,0,0,0,7,8,46,2,92,4,92,4,9,8,46,2,92,4,92,4,11,16,-1,1,186,1,0,0,7,16,116,1,186,1,0,0,6,16,-1,1,186,1,0,0,7,16,116,1,186,1,0,0,9,16
 5160 DATA -1,2,209,5,209,5,11,16,232,2,209,5,209,5,12,16,-1,1,241,1,79,2,9,16,162,1,241,1,114,2,8,16,-1,1,241,1,79,2,9,16,162,1,241,1,114,2,11,16,-1,1,241,1,79,2,12,16,46,2,92,4,92,4,16,8,116,1,186,1,0,0,14,8,116,1,186,1,0,0,99,8
 5170 DATA 46,2,92,4,92,4,99,8,186,1,0,0,0,0,2,16,-1,0,0,0,0,0,7,16,116,1,186,1,0,0,11,16,-1,0,0,0,0,0,14,16,232,2,209,5,209,5,14,8,162,1,241,1,114,2,12,8,162,1,241,1,114,2,99,8,232,2,209,5,209,5,99,8,162,1,241,1,114,2,2,16
 5180 DATA -1,1,241,1,79,2,6,16,162,1,241,1,114,2,9,16,-1,1,241,1,79,2,12,16,46,2,92,4,92,4,12,8,116,1,186,1,0,0,11,8,116,1,186,1,0,0,99,8,46,2,92,4,92,4,99,8,116,1,196,1,0,0,7,8,116,1,186,1,0,0,9,8,46,2,92,4,92,2,11,16
 5190 DATA -1,0,0,0,0,0,7,16,116,1,186,1,0,0,6,16,-1,0,0,0,0,0,7,16,116,1,186,1,0,0,9,16,-1,0,0,0,0,0,11,16,232,2,209,5,209,5,12,16,-1,1,241,1,79,2,9,16,162,1,241,1,114,2,8,16,-1,1,241,1,79,2,9,16,162,1,241,1,114,2,11,16
 5200 DATA -1,1,241,1,79,2,12,16,46,2,92,4,92,4,16,8,116,1,186,1,0,0,14,8,116,1,186,1,0,0,99,8,46,2,92,4,92,4,99,8,186,1,0,0,0,0,2,16,-1,0,0,0,0,0,7,16,116,1,186,1,0,0,11,16,-1,0,0,0,0,0,14,16,232,2,209,5,209,5,14,8
 5210 DATA 162,1,241,1,114,2,12,8,162,1,241,1,114,2,99,8,232,2,209,5,209,5,99,8,162,1,241,1,114,2,1,16,-1,1,241,1,79,2,2,16,162,1,241,1,114,2,11,16,-1,1,241,1,79,2,9,16,46,2,92,4,92,4,7,8,116,1,186,1,0,0,99,8,116,1,186,1,0,0,99,8
 5220 DATA 46,2,92,4,92,4,99,4,-1,1,186,1,0,0,99,8,165,0,68,3,136,6,19,8,162,1,46,2,151,2,99,8,162,19,8,162,1,46,2,151,2,99,8,162,1,46,2,151,2,99,8,68,3,136,6,136,6,99,8,162,1,46,2,151,2,21,16,-1,0,0,0,0,0,19,16,162,1,46,2,151,2,18,16,-1,0,0,0,0,0,16,16
 5230 DATA 209,0,46,2,92,4,16,8,116,1,186,1,0,0,14,8,116,1,186,1,0,0,99,8,46,2,92,4,92,4,99,8,186,1,186,1,186,1,2,16,46,2,186,1,186,1,7,16,116,1,186,1,186,1,11,16,116,1,162,1,241,1,14,16,232,2,209,5,209,5,14,8,162,1,241,1,79,2,12,8
 5240 DATA 162,1,241,1,79,2,99,8,232,2,209,5,209,5,99,8,162,1,241,1,79,2,2,16,-1,0,46,2,92,4,6,16,162,1,241,1,79,2,9,16,-1,0,0,0,0,0,12,16,209,0,46,2,92,4,12,8,116,1,186,1,0,0,11,8,116,1,186,1,0,0,99,8,46,2,92,4,92,4,99,8
 5250 DATA 116,1,186,1,92,4,99,8,116,1,186,1,92,4,7,6,165,0,68,3,136,6,19,8,162,1,46,2,151,2,99,8,162,1,46,2,151,2,99,8,68,3,136,6,136,6,99,8,162,1,46,2,151,2,216,136,6,99,8,162,1,46,2,151,2,21,16,-1,0,0,0,0,0,19,16,162,1,46,2,151,2,18,16,-1,0,0,0,0,0,16,16
 5260 DATA 209,0,46,2,92,4,16,8,116,1,186,1,0,0,14,8,116,1,186,1,0,0,99,8,46,2,92,4,92,4,99,8,186,1,0,0,0,0,2,16,-1,0,232,2,209,5,7,16,116,1,186,1,241,1,11,16,-1,0,162,1,241,1,14,16,232,2,209,5,209,5,14,8,162,1,241,1,79,2,12,8
 5270 DATA 162,1,241,1,79,2,99,8,232,2,209,5,209,5,99,8,162,1,241,1,79,2,1,16,-1,0,46,2,92,4,2,16,162,1,241,1,79,2,11,16,-1,0,0,0,0,0,9,16,46,2,92,4,92,4,7,8,116,1,186,1,0,0,99,8,116,1,186,1,0,0,99,8,46,2,92,4,92,4,99,8,0,0,0,0,0,0,99,8
 5280 DATA 0,0,0,0,0,0,7,8,0,0,0,0,0,0,9,8,46,2,92,4,92,4,11,8,116,1,186,1,0,0,99,8,116,1,186,1,0,0,11,8,232,2,209,5,209,5,12,8,162,1,241,1,79,2,99,8,162,1,241,1,79,2,9,8,46,2,92,4,92,4,16,8,116,1,186,1,0,0,14,8
 5290 DATA 116,1,186,1,0,0,99,8,46,2,92,4,92,4,99,8,116,1,186,1,0,0,99,8,116,1,186,1,0,0,11,8,232,2,209,5,209,5,14,8,162,1,241,1,79,2,12,8,162,1,241,1,79,2,99,8,132,2,209,5,209,5,99,8,162,1,241,1,79,2,99,8,162,1,241,1,79,2,9,8
 5300 DATA 46,2,92,4,92,4,12,8,116,1,186,1,0,0,11,8,116,1,186,1,0,0,99,8,46,2,92,4,92,4,99,8,116,1,186,1,0,0,7,8,116,1,186,1,0,0,9,8,46,2,92,4,92,4,11,8,116,1,186,1,0,0,99,8,116,1,186,1,0,0,11,8,232,2,209,5,209,5,12,8
 5310 DATA 162,1,241,1,79,2,99,8,162,1,241,1,79,2,9,8,46,2,92,4,92,4,16,8,116,1,186,1,0,0,14,8,116,1,186,1,0,0,99,8,46,2,92,4,92,4,99,8,116,1,186,1,0,0,99,8,116,1,186,1,0,0,11,8,232,2,209,5,209,5,14,8,162,1,241,1,79,2,12,8
 5320 DATA 162,1,241,1,79,2,99,8,232,2,209,5,209,5,99,8,162,1,241,1,79,2,99,8,162,1,241,1,79,2,6,8,46,2,92,4,92,4,7,8,116,1,186,1,0,0,99,8,116,1,186,1,0,0,99,8,46,2,92,4,92,4,99,8,116,1,186,1,0,0,7,8,116,1,186,1,0,0,9,8
 5330 DATA 23,1,46,2,92,4,11,8,116,1,186,1,0,0,99,8,23,1,116,1,186,1,11,8,248,0,232,2,209,5,12,8,162,1,241,1,79,2,99,8,162,1,241,1,79,2,9,8,209,0,46,2,92,4,16,8,221,0,116,1,186,1,14,8,116,1,186,1,0,0,99,8,46,2,92,4,92,4,99,8
 5340 DATA 116,1,186,1,0,0,99,8,23,1,116,1,186,1,11,8,221,0,232,2,209,5,14,8,248,0,162,1,248,0,12,8,162,1,241,1,79,2,99,8,232,2,209,5,209,5,99,8,162,1,241,1,79,2,99,8,39,1,162,1,241,1,9,8,248,0,46,2,92,4,12,8,23,1,116,1,186,1,11,8
 5350 DATA 116,1,186,1,0,0,99,8,46,2,92,4,92,4,99,8,116,1,186,1,0,0,7,8,116,1,186,1,0,0,9,8,23,1,46,2,92,4,11,8,116,1,186,1,0,0,99,8,23,1,116,1,186,1,11,8,248,0,232,2,209,5,12,8,162,1,241,1,79,2,99,8,162,1,241,1,79,2,9,8
 5360 DATA 209,0,46,2,92,4,16,8,221,0,116,1,186,1,14,8,116,1,186,1,0,0,99,8,46,2,92,4,92,4,99,8,116,1,186,1,0,0,99,8,23,1,116,1,186,1,11,8,221,0,232,2,209,5,14,8,248,0,162,1,248,0,12,8,162,1,241,1,79,2,99,8,232,2,209,5,209,5,99,8
 5370 DATA 162,1,241,1,79,2,4,8,162,1,241,1,79,2,6,8,46,2,92,4,92,4,7,8,116,1,186,1,0,0,99,8,116,1,186,1,0,0,99,8,46,2,92,4,0,0,99,4,0,0,0,0,0,0,99,8
 6000 DATA "MEDIEVAL FRENCH SONG",.2
 6010 DATA 0,0,0,0,0,0,11,8,-1,0,0,0,0,0,13,8,39,1,186,1,186,1,14,2,-1,0,0,0,0,0,14,4,-1,0,0,0,0,0,16,8,-1,0,0,0,0,0,14,8,75,1,186,1,186,1,13,2,-1,0,0,0,0,0,13,4,-1,0,0,0,0,0,14,8,-1,0,0,0,0,0,13,8
 6020 DATA 116,1,116,1,116,1,11,4,-1,0,0,0,0,0,11,4,186,1,186,1,186,1,11,4,-1,0,0,0,0,0,14,4,213,1,213,1,213,1,13,2,79,2,79,2,79,2,99,4,-1,0,0,0,0,0,11,8,-1,0,0,0,0,0,13,8,39,1,186,1,186,1,14,2,-1,0,0,0,0,0,14,4
 6030 DATA -1,0,0,0,0,0,16,8,-1,0,0,0,0,0,14,8,75,1,186,1,186,1,13,2,-1,0,0,0,0,0,13,4,-1,0,0,0,0,0,14,8,-1,0,0,0,0,0,13,8,116,1,186,1,186,1,11,4,-1,0,0,0,0,0,13,4,75,1,186,1,186,1,13,2.67,-1,0,0,0,0,0,11,8
 6040 DATA 116,1,186,1,186,1,11,2,0,0,0,0,0,0,99,4,-1,0,0,0,0,0,14,8,-1,0,0,0,0,0,16,8,248,0,116,1,116,1,18,2,-1,0,0,0,0,0,18,4,-1,0,0,0,0,0,19,8,-1,0,0,0,0,0,18,8,23,1,241,1,241,1,16,2,-1,0,0,0,0,0,16,4
 6050 DATA -1,0,0,0,0,0,18,8,-1,0,0,0,0,0,16,8,39,1,186,1,186,1,14,4,-1,0,0,0,0,0,14,4,23,1,75,1,75,1,13,4,-1,0,0,0,0,0,11,4,39,1,79,2,79,2,10,2,0,0,0,0,0,0,99,4,-1,0,0,0,0,0,11,8,-1,0,0,0,0,0,13,8
 6060 DATA 39,1,186,1,186,1,14,2,-1,0,0,0,0,0,14,4,-1,0,0,0,0,0,16,8,-1,0,0,0,0,0,14,8,75,1,186,1,186,1,13,2,-1,0,0,0,0,0,13,4,-1,0,0,0,0,0,14,8,-1,0,0,0,0,0,13,8,116,1,186,1,186,1,11,4,-1,0,0,0,0,0,13,4
 6070 DATA 75,1,186,1,186,1,13,2.67,-1,0,0,0,0,0,11,8,116,1,186,1,186,1,11,1.33

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

Tags

Archived Media Downloadable TS 2068 Music

People

No people associated with this content.

Scroll to Top