:59468,12> MUSIC! COPYRIGHT (C) 1980 BRIAN SAWYERW 1310 DOVER HILL RDt SANTA BARBARA CA 93103z: CURSOR #20 MAY 80 BOX 550, GOLETA, CA. 93017: AS OF 6 JUN 80ZPG$"MUSIC!":NM$"20":62000dFD1: I/O DEVICE&eMS10: # OF 38 NOTE STRINGSJfC$(MS),V$(20):N118:V$(N):]hN%(26),H%(26)nB$""pCL$":":(50000)(59130)158CL$";": CHECK FOR B.KB.sML76:NW4:LW32:PLLWNW:LWLW5 xD$""BzL$"":PP59464YC$,N,H:C$""170tT(C$)64:C$":"T0N%(T)N:H%(T)H:13059467,0:59466,0:PP,0"DO YOU WANT TO:" 1 WRITE NEW MUSIC" 2 PLAY MUSIC" 3 LOAD MUSIC FROM FILE7" 4 SAVE MUSIC TO FILEH" 5 QUITNv"ENTER NUMBER: ";:60000:U(IN$)U1U5"ENTER A NUMBER FROM 1 TO 5.":210U3U1G0:N70MS:C$(N7)"":U260,530,1250,1350,1440170 720:1240:S5:D0.(C$(G))MLGG1:GMS480AX$:X$""280ZA$X$:X$CL$A$"@"m"X$"@"A$CL$,P(QP):P255P2566SH0@A$(13)JA$(20)810:270h910:N0270rPP,N|TI$"000000"(QP)P390 TTI:PP,0 T111T1110 C$(G)C$(G)(T61)A$: 1100C 270e D$;"NO ROOM FOR MORE MUSIC.w I1800:I: 1240 &720:S5:G0:D0 +C$(0)""660 0J1(C$(G))2 :A$(C$(G),J,2):T(A$)61:A$(A$,1) X910:PP,N b1100 lTI$"000000" vTIT630( {PP,0: Z$:Z$""@ ` GG1:GMSC$(G)""560 GG1:GMS(C$(G))ML "WANT TO ADD MORE? A$:A$""670 A$"Y" "                 "% 270:+ : "";:LN4G N11LNT ""L$"k N13:""L$"":x ""L$" ""B$ N1:"";  *(C$(G))0GG1:G0810 4G0G0: 9S5D0 >S5DD6:SLW CSSNW H""(D$,D1)S);, MI15:"";:I9 R" ";a WX$(C$(G),2):T(X$)61:X$(X$,1) \(X$"A"X$"Q")T56"";(" ",2(D18),1);""; aC$(G)(C$(G),1,(C$(G))2) fG1G:I(C$(G1))2PL:I0G1G11:G10II(C$(G1))1 kI08906 pX$(C$(G1),I1,2):T(X$)61:X$(X$,1)c uD0(X$"A"X$"Q")T56"";n z"": A$" "N0:H5: I(A$)64:I0I26N1: NN%(I):HH%(I):SH(N0):N(N) N0N1  A1:DT0:N01140 1100:T12A11-T11T28A7:T20DT1LT27T56A3:T40DT1lT55T112A1:T80DT1ZH2:Z(Z)AA1H3A3AA2 1060T12A18T11T24A17T23T48A16T48T112A15$P$" ":H9P$"")SHP$"#"/.H3A3P$P$""?8P$P$V$(A)Q=DTP$P$"."WBnLA1:DT0:N01140}QT12A11VT11T28A7:T20DT1[T27T56A3:T40DT1`T55T112A1:T80DT1eZH2:Z(Z)AA1 jH3A3AA2o1160"tT12A186yT11T24A17J~T23T48A16_T48T112A15|""(D$,(H2)D1)S);SH"#";DT".";"";V$(A);"SSNW:SLWS5:DD6D23LN1:"";D$:740:DD6:118559467,16:59466,15:PP,0:&""_"NAME OF FILE TO READ? ";:60000:FI$IN$:IN$""z DR0:3800:ER012701,GN0G(1,C$:C$(N)(C$,2)-".";2N<1:15:F""P"NAME OF FILE TO WRITE? ";:60000:FI$IN$:IN$""#ZDR1:3800:ER013607n1,G;CR$;:3700BxN0G^1,"*";C$(N);CR$;:3700h".";oN|1:15:"ϥ","","̥","","ϥ"""," ",""," """V" ",""," ",""v"","","((",""A,237,10,Q,-224,10,S,211,9,W,-199,9,D,188,8,E,177,7F,177,7,R,-167,7,G,157,6,T,-149,6,H,140,5,Y,-132,5&J,124,4,U,117,3,K,117,3,I,-111,3,L,104,2,O,-99,2,":",93,12P,87,0:,,RtTIZ920FD83790a~FD23760o59411,53~ZZ160:59411,61379059456,(59456)239ZZ160:59456,(59456)16Z9TI:FD83900+"PLEASE REWIND TAPE";FD;",":"AND THEN PRESS RETURN?Z$:Z$""3820SQB,122:QB1,2lFD2QB,58:QB1,3}1,FD,DR,FI$ ZPTI:<FL$"0:"FI$:15,8,15:DR115,"S";FL$FFL$FL$",S,"("RW",DR1,1):1,8,2,FL$P15,ER,ER$,TK,SC ZER0ER$"":_ER6240001d""ER;ER$;TK;SC:1Xn"FIX PROBLEM AND TYPE 'CONT'.":bx3910"CAN'T OPEN ";FI$;" ON DRIVE ";(FL$,1);".1:15`IN$" ":ZTTI:ZC2:ZD$(20)jZ$:Z$""60070 tZTTI(" ",ZC,1);"";:ZC3ZC:ZTTI15~60010FZ(Z$):ZL(IN$):(Z127)32" ";:60110vFL(Z127)64(Z127)91Z$((Z128)255)ZL25460010IN$IN$Z$:Z$;ZD$;Z$;Z13IN$(IN$,2):CR$;:Z20ZL1IN$(IN$,ZL1):"";:60010!Z141Z$(20(ZL1)):Z2ZL:Z$;:Z:60000,60010<(PN060250G-60500jQP515:QB243:QC625:CR$(13)(50000)0QP151:QB214TI110:"";:I:0"";9);"CURSOR #";NM$;" ";PG$:" COPYRIGHT (C) 1980 BY BRIAN SAWYERD60500*N"THE COMPUTER AGE TOY PIANOK"PRESS RETURN TO BEGIN`Z$:Z$""62090w""::60400:100