---
title: "MUSIcomp Version 1.1"
type: "article"
slug: "musicomp-version-1-1"
url: "http://localhost/article/musicomp-version-1-1/"
markdown_url: "http://localhost/article/musicomp-version-1-1.md"
published_at: "2026-01-25T21:19:48+00:00"
modified_at: "2026-01-25T21:19:49+00:00"
featured_image:
  url: "http://localhost/wp-content/uploads/2022/04/20230809-041332.jpg"
excerpt: "This program will allow you to create musics and play them back with the BEEP command! DATA compatible with original MUSIcomp (NOV'86) FULL INSTRUCTIONS IN PROGRAM! A working file is included so you'll have an idea how to write music. There is also a demo player to show how to play the music."
category:
  - name: "Byte Power"
    slug: "byte-power"
    taxonomy: "category"
    url: "http://localhost/category/periodicals/byte-power/"
post_tag:
  - name: "Downloadable"
    slug: "downloadable"
    taxonomy: "post_tag"
    url: "http://localhost/tag/downloadable/"
  - name: "TS 2068"
    slug: "ts2068"
    taxonomy: "post_tag"
    url: "http://localhost/tag/ts2068/"
model:
  - name: "Timex/Sinclair 2068"
    slug: "ts-2068"
    taxonomy: "model"
    url: "http://localhost/model/ts-2068/"
indiv:
  - name: "Eric Boisvert"
    slug: "boisvert-eric"
    taxonomy: "indiv"
    url: "http://localhost/indiv/boisvert-eric/"
publication_r:
  id: 38570
  title: "Byte Power 1st Class Magazine"
  type: "periodical"
  url: "http://localhost/periodical/byte-power-1st-class/"
authors_r:
  - name: "Eric Boisvert"
    slug: "boisvert-eric"
    taxonomy: "indiv"
    url: "http://localhost/indiv/boisvert-eric/"
issues_articles:
  - id: 38576
    title: "Byte Power Feb 1987"
    type: "issue"
    url: "http://localhost/issue/byte-power-6/"
pubdate: "February 1987"
archive_link: true
article_media:
  - id: 63200
    title: "Musicomp 1"
    type: "computer_media"
    url: "http://localhost/computer_media/musicomp-1/"
---

# MUSIcomp Version 1.1

This program will allow you to create musics and play them back with the BEEP command!

DATA compatible with original MUSIcomp (NOV’86)

FULL INSTRUCTIONS IN PROGRAM!

A working file is included so you’ll have an idea how to write music.

There is also a demo player to show how to play the music.

## Source Code: Musicomp 1

```
 10 REM                                  MUSIcomp version 1.1            By Eric Boisvert                ©1987 BYTE POWER                                       
   20 PRINT AT 0,0;: RANDOMIZE USR 43914
   30 LET len=PEEK 65533+256*PEEK 65534: GO TO PEEK 65535
  100 REM QUIT
  110 CLEAR 65535: NEW 
  150 REM SAVE
  160 GO SUB 300
  165 IF N$="" THEN GO TO 150
  170 SAVE n$CODE 51485,len: PRINT "VERIFY ";n$: VERIFY n$CODE 
  180 GO TO 10
  200 REM LOAD
  210 GO SUB 300
  220 LOAD N$CODE 51485
  230 GO TO 10
  250 REM SAVE DATA
  260 GO SUB 300: IF N$="" THEN GO TO 250
  270 SAVE n$CODE 6E4,len-59999: PRINT "VERIFY ";n$: VERIFY n$CODE 
  280 GO TO 10
  300 REM INPUT NAME
  310 CLS : INPUT "FILE NAME:"; LINE n$: IF LEN n$>10 THEN GO TO 310
  320 RETURN 
 9000 REM LOADER
 9010 BORDER 7: INK 7: PAPER 7: CLEAR 39999: PRINT AT 10,0; INK 0;"STILL LOADING...": LOAD "MUSIcodes"CODE 4e4: INK 0
 9015 IF PEEK 23681<>0 THEN POKE 23658,8: PRINT AT 0,0;: RANDOMIZE USR 43651: GO TO 30
 9020 CLEAR : LIST 9999: STOP 
 9999 SAVE "MUSIcomp" LINE 9000: SAVE "MUSIcodes"CODE 4e4,11155: VERIFY "": VERIFY ""CODE : REM   USE 'RUN 9015' TO RUN PROGRAM
```