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