NP0: 60: 202"":53280,0:53281,0:_" î"" MUSIC MAN 128 "" ս VERSION 7 "" ó"" ʮ WRITTEN BY "K" LORD CRUE / OZZY OZBOURNE "x" î " " ս " " ñ" "T0FGDFGDCDEFGAB": I1 20 C((1)15): C1 C15 C142 4,C: 0,C:"C"@ I: 6,3U"": 4,1: 0,1^ 50d DS "" "ERROR: "DS$2"->SELECT INSTRUMENT<-" 4 "->INSTRUMENT (0-9 :? FOR LIST)->";IN$+5 (IN$)9 IN$"?" 2000>6 R0 1950G8""dd ->SET UP SOUND TABLE<-jnp""9)"           "#"            " (" THE  2 3 5 6 7 9 0 - \ S "= 2"KEYBOARD ݠݠݠݠݠݠݠݠݠݠݠ "k 7" ݠݠݠݠݠݠݠݠݠݠݠ " <9)"QWERTYUIOP@*^ " e 1900 iSU$"O3T"IN$"U"V$ nSU$ s"TEMPO:"T!x "INSTRUMENT #:"IN$>!y " VOLUME:"V$k!z "NOTES PLAYED:"NP!{"MUSIC MAN"!|"128"! K$: K$"" 1409! K$"Q" N$"C":NT$"C"" K$"W" N$"D":NT$"D"!" K$"E" N$"E":NT$"E"?" K$"R" N$"F":NT$"F"]" K$"T" N$"G":NT$"G"{" K$"Y" N$"A":NT$"A"" K$"U" N$"B":NT$"B"" K$"I" N$"O4CO3":NT$"O4CO3"" K$"O" N$"O4DO3":NT$"O4DO3" # K$"P" N$"O4EO3":NT$"O4EO3"0# K$"@" N$"O4FO3":NT$"O4FO3"V# K$"*" N$"O4GO3":NT$"O4GO3"|# K$"^" N$"O4AO3":NT$"O4AO3"# K$"2" N$"#C":NT$"# K$"3" N$"#D"# K$"5" N$"#F"#" K$"6" N$"#G"#, K$"7" N$"#A"$6 K$"9" N$"O4#CO3"+$@ K$"0" N$"O4#DO3"=$J K$"S" 50Q$O K$"B" 6000s$T K$"V" N$"O4CO3": 1950$^ K$(27) "":6,1:$_ K$"-" N$"O4#FO3"$` K$"" N$"O4#AO3"$a K$"\" N$"O4#GO3"$b K$"K" 3000 %c K$"D" 4000%d K$"A" 5000<%e K$"Z" NP0:"": 140P%f K$"F" 8000d%g K$"X" 9000y%h K$"K" 10400%i K$"M" 10300%j K$"G" 10500%k K$"N" 10103%l K$"L" 10000%m K$"C" 10600%]N$:NPNP1%b 1395+&l" ->SELECTIONS<-"Z&o"A=TEMPO ADJUST  X=SAVE ENVELOPE "&p"B=CREATE VOICE L=LOAD ENVELOPE "&q"D=DEMO  M=SAVE FILTER "&s"F=ALTER FILTER K=LOAD FILTER "'{"S=SELECT INSTRUMENT N=DIR. OF ENVELOPES"L'|"V=VOLUME SELECT G=DIR. OF FILTERS "'}"Z=0 NOTES PLAYED C=DISK COMMANDS "'"ESC=EXIT"''"->VOLUME SELECT<-"' "->VOLUME(0=LOW-8=HIGH)<->";V$"(""3( R0 5000<(""F( 110( " ->INSTRUMENTS<-"(""(" ->0=PIANO"(" ->1=ACCORDIAN")" ->2=CALLIOPE" )" ->3=DRUM(BRUSH)"6) " ->4=FLUTE"M)" ->5=GUITAR"i) " ->6=HARPSICHORD")*" ->7=ORGAN")4" ->8=TRUMPET")>" ->9=XYLOPHONE")?"->INSTRUMENT(0-9 )";: IN$)@"": 54) 110<*" ->MUSIC MAN DEMO-----1 MESURE OF INVENTION 13 BY BACH<-"E* 6X*"V1O4T7U8X0"k*"V2O4T0U8X0"*A$"V2O1IAV1O3IEV2O2QAV1O3SAO4CO3BEV2O2I#GV1O3SBO4DV1O4ICV2O2SAEM"*"B$"V1O4IEV2O2SAO3CV1O3I#GV2O2SBEV1O4IEV2O2SBO3DV1O4QCQ"*, A$: B$8+6"AGAIN(Y/N)";: A$: A$"Y" "": T: 110C+@ 4000p+"->TEMPO ADJUST<-"+ "ENTER TEMPO(1-255)";: T+ T+"":R1: 110+p">=->CREATE VOICE<-=<"C,"WARNING!! ONCE YOU SET AN ENVELOPE, YOU MUST EXIT TO RESET THE ENVELOPS!!"q,"ARE YOU SURE YOU WANT TO DO THIS? ->";, A$: A$"" 6022, A$"N" "NO <- ": 110,"YES!! <-","ENTER ENVELOPE # TO BE DEFINED....->";: E-"ENTER NEW ATTACK RATE(0-15).......->";: AL-"ENTER NEW DECAY RATE(0-15)........->";: D}-"ENTER NEW SUSTAIN RATE(0-15)......->";: S-"ENTER NEW RELEASE RATE(0-15)......->";: R-"ENTER WAVEFORM OR ? FOR MENU......->";: WF$. WF$"?" 7000 W(WF$).W(WF$)G. W 2 "ENTER NEW PULSE WIDTH(0-4095).....->";PZ. W 2 P0o."YOU ENTERED:"."ENVELOPE #......................."E."ATTACK..........................."A."DECAY............................"D/"SUSTAIN.........................."SB/"RELEASE.........................."Rl/"WAVEFORM........................."W/"PULSE WIDTH......................"P/ "IS THIS CORRECT";: C$/ C$"N" 6020/ E,A,D,S,R,W,P/$"": 1400X"WAVEFORMS ->""0b" ->0 - TRIANGLE"=0l" ->1 - SAWTOOTH"f0v" ->2 - VARIABLE PULSE(SQUARE)"~0" ->3 - NOISE"0" ->4 - RING MODULATION"0 60800@" -> ALTER FILTER <-"1J"ENTER NEW CUTOFF FREQUENCY(0-2047)->";: CF@1T"ENTER LOW PASS FILTER(1-ON 0-OFF) ->";: LPr1^"ENTER BAND PASS FILTER(1-ON 0-OFF)->";: BP1h"ENTER HIGH PASS FILTER(1-ON 0-OFF)->";: HP1r"ENTER NEW RESONANCE (0-15) ->";: R1|"YOU ENTERED :"2"FILTER "CF","LP","BP","HP","R" "32"IS THIS CORRECT?";: C$J2 C$"Y" 8000_2 CF,LP,BP,HP,Rn2"": 1402(#"SAVE ENVELOPE"22#"WHAT IS YOUR FILE NAME ";: E$2<#"SAVING"2F# 2,8,2,"E."E$",S,W"2K#2,E:2,A:2,D:2,S:2,R:2,W:2,P3P# 23U#"": 110'3'"GET ENVELOPE"-3'm3'"WHAT IS YOUR FILENAME (WITH OUT THE PREFIX)";: E$3' 2,8,2,"E."E$",S,R"3'2,E:2,A:2,D:2,S:2,R:2,W:2,P3$'23&'" YOU ENTERED:"3)'"ENVELOPE #......................."E!4.'"ATTACK..........................."AK43'"DECAY............................"Du48'"SUSTAIN.........................."S4='"RELEASE.........................."R4B'"WAVEFORM........................."W4G'"PULSE WIDTH......................"P5L'"DID YA SCREW UP";: C$,5Q' C$"Y" "": 110A5V' E,A,D,S,R,W,PP5['"": 110p5w'"ENVELOPES ON YOUR DISK:"5x'"DISK NAME--> ";: "E.*"5y' 100015'"FILTERS ON YOUR DISK:"5'"DISK NAME--> ";: "E.*"5' 100015<("SAVE FILTER"6A("WHAT IS YOUR FILENAME";: E$76F(2,8,2,"F."E$",S,W"X6K(2,CF:2,LP:2,BP:2,HP:2,R`6P( 2o6U("": 1106("LOAD FILTER"6(6("WHAT IS YOUR FILE NAME (WITH OUT THE PREFIX)";: E$6(2,8,2,"F."E$",S,R"7(2,CF:2,LP:2,BP:2,HP:2,R 7(2 7("YOU ENTERED->"A7("CUTOFF FREQ. .........."CFb7("LOW PASS FILTER(1-ON).."LP7("BAND PASS FILTER(1-ON)."BP7("HIGH PASS FILTER(1-ON)."R7("DID YA SCREW UP";: C$7( C$"Y" "": 1107( CF,LP,BP,R7("": 1108)"FILTERS ON YOUR DISK:"98 )"DISK NAME -->";: "E.*"E8) 10401b8h)" ->DISK COMMANDS<-"y8r)"F=FORMAT DISK"8w)"S=SCRATCH FILE"8|)"R=RENAME FILE"8)"V=VALIDATE DISK"8)"D=DISK DIRECTORY"8)"I=INITIALIZE" 9)"4=SWITCH TO 1541/1 SIDED MODE"19)"7=SWITCH TO 1571/2 SIDED MODE"L9)"E=EXIT TO MUSIC MAN"h9)"YOUR SELECTION-->";9) Q$: Q$"" 106609)Q$9) Q$"F" 200009) Q$"S" 110009) Q$"R" 111009) Q$"V" 112009) Q$"D" 11300:) Q$"I" 11400:) Q$"4" 115001:) Q$"7" 11600K:) Q$"E" "": 110u:)"THAT IS NOT A SELECTION!:GOTO 10610:*"FILENAME TO SCRATCH";: F$:* (F$):DS$: 2: 10600:\+"OLD FILENAME";: OF$:a+"NEW FILENAME";: NF$:f+ (OF$) (NF$);k+DS$: 2: 10600(;+"VALIDATING..."E;+: 2:DS$: 2: 10600\;$,"DISK DIRECTORY";%,"PRESS NO SCROLL TO PAUSE/RESUME";),"NAME OF DISK -->";:;.,"PRESS ANY KEY TO CONTINUE.";3, A$: A$"" 11315;8, 10600 <,"INITIALIZING FROM ERRORS "%<, 15,8,15:15,"I":156<, 1: 10600U<,"SWITCHING TO 1541 MODE"r<,15,8,15:15,"U0>M0":15<,DS$: 2: 10600M1":15N 10600