HARMONIZER.128

00000000: 01 40 13 40 0A 00 8B CE  09 28 32 29 B2 38 30 A7  |.@.@.....(2).80.|
00000010: 31 30 30 00 52 40 14 00  99 C7 28 31 34 32 29 22  |100.R@....(142)"|
00000020: 93 0B 11 11 11 11 11 11  11 99 20 54 48 49 53 20  |.......... THIS |
00000030: 50 52 4F 47 52 41 4D 20  49 53 20 46 4F 52 20 38  |PROGRAM IS FOR 8|
00000040: 30 20 43 4F 4C 55 4D 4E  20 4D 4F 4E 49 54 4F 52  |0 COLUMN MONITOR|
00000050: 53 22 00 7F 40 19 00 99  22 11 20 20 20 49 46 20  |S"..@...".   IF |
00000060: 59 4F 55 20 48 41 56 45  20 41 4E 20 38 30 20 43  |YOU HAVE AN 80 C|
00000070: 4F 4C 55 4D 4E 20 4D 4F  4E 49 54 4F 52 2C 22 00  |OLUMN MONITOR,".|
00000080: AE 40 1E 00 99 22 43 48  41 4E 47 45 20 49 54 20  |.@..."CHANGE IT |
00000090: 54 4F 20 38 30 20 43 4F  4C 55 4D 4E 53 20 41 4E  |TO 80 COLUMNS AN|
000000A0: 44 20 50 52 45 53 53 20  53 50 41 43 45 22 00 CD  |D PRESS SPACE"..|
000000B0: 40 28 00 99 22 11 20 20  20 20 20 20 20 20 20 20  |@(..".          |
000000C0: 20 20 20 20 20 2D 2D 20  4F 52 20 2D 2D 00 FE 40  |     -- OR --..@|
000000D0: 32 00 99 22 11 50 52 45  53 53 20 5B 52 45 54 55  |2..".PRESS [RETU|
000000E0: 52 4E 5D 20 54 4F 20 52  45 54 55 52 4E 20 54 4F  |RN] TO RETURN TO|
000000F0: 20 4C 4F 41 44 53 54 41  52 20 31 32 38 22 00 1A  | LOADSTAR 128"..|
00000100: 41 3C 00 41 B2 C2 28 32  31 32 29 3A 8B 41 B3 B1  |A<.A..(212):.A..|
00000110: 31 AF 41 B3 B1 36 30 A7  36 30 00 28 41 46 00 8B  |1.A..60.60.(AF..|
00000120: 41 B2 36 30 A7 31 30 30  00 50 41 50 00 F5 20 22  |A.60.100.PAP.. "|
00000130: 31 32 38 20 4D 45 4E 55  22 20 A4 20 22 31 32 38  |128 MENU" . "128|
00000140: 20 4D 45 4E 55 22 3A 8B  44 53 B3 B1 36 33 A7 80  | MENU":.DS..63..|
00000150: 00 8A 41 55 00 DE 30 3A  99 22 93 11 11 11 11 11  |..AU..0:."......|
00000160: 11 11 11 11 11 11 11 20  20 20 20 20 20 52 45 54  |.......      RET|
00000170: 55 52 4E 49 4E 47 20 54  4F 20 4C 4F 41 44 53 54  |URNING TO LOADST|
00000180: 41 52 20 31 32 38 2E 2E  2E 22 00 9B 41 5A 00 8A  |AR 128..."..AZ..|
00000190: 20 22 31 32 38 20 4D 45  4E 55 22 00 A9 41 64 00  | "128 MENU"..Ad.|
000001A0: DE 35 2C 31 3A E7 36 2C  31 00 E7 41 69 00 59 45  |.5,1:.6,1..Ai.YE|
000001B0: 4C 24 B2 C7 28 31 35 38  29 3A 52 45 44 24 B2 C7  |L$..(158):RED$..|
000001C0: 28 32 38 29 3A 42 4C 55  24 B2 C7 28 33 31 29 3A  |(28):BLU$..(31):|
000001D0: 47 52 4E 24 B2 C7 28 31  35 33 29 3A 43 59 4E 24  |GRN$..(153):CYN$|
000001E0: B2 C7 28 31 35 39 29 00  0F 42 6E 00 53 4F 24 B2  |..(159)..Bn.SO$.|
000001F0: C7 28 31 38 29 AA 22 2A  2A 20 53 45 4C 45 43 54  |.(18)."** SELECT|
00000200: 20 4F 4E 45 20 2A 2A 22  AA C7 28 31 34 36 29 00  | ONE **"..(146).|
00000210: 3F 42 73 00 50 54 24 B2  C7 28 31 35 29 AA C7 28  |?Bs.PT$..(15)..(|
00000220: 39 35 29 AA C7 28 31 34  33 29 3A 54 50 B2 31 3A  |95)..(143):TP.1:|
00000230: 56 4D B2 31 3A 86 20 4D  53 24 28 31 30 30 29 00  |VM.1:. MS$(100).|
00000240: 77 42 78 00 FE 1A 30 2C  30 2C 37 39 2C 32 34 2C  |wBx...0,0,79,24,|
00000250: 31 3A 99 59 45 4C 24 C7  28 31 34 36 29 3A E0 31  |1:.YEL$.(146):.1|
00000260: 2C 37 2C 32 2C 22 2A 2A  2A 20 4D 45 4E 55 20 2A  |,7,2,"*** MENU *|
00000270: 2A 2A 22 3A 99 3A 99 00  A6 42 7D 00 99 A3 31 29  |**":.:...B}...1)|
00000280: 3B 52 45 44 24 3B 22 31  2E 20 22 3B 43 59 4E 24  |;RED$;"1. ";CYN$|
00000290: 3B 22 4C 4F 41 44 20 53  4F 4E 47 20 46 52 4F 4D  |;"LOAD SONG FROM|
000002A0: 20 44 49 53 4B 22 00 D5  42 82 00 99 3A 99 A3 31  | DISK"..B...:..1|
000002B0: 29 3B 52 45 44 24 3B 22  32 2E 20 22 3B 43 59 4E  |);RED$;"2. ";CYN|
000002C0: 24 3B 22 53 41 56 45 20  53 4F 4E 47 20 54 4F 20  |$;"SAVE SONG TO |
000002D0: 44 49 53 4B 22 00 05 43  87 00 99 3A 99 A3 31 29  |DISK"..C...:..1)|
000002E0: 3B 52 45 44 24 3B 22 33  2E 20 22 3B 43 59 4E 24  |;RED$;"3. ";CYN$|
000002F0: 3B 22 53 54 41 52 54 20  41 20 53 4F 4E 47 20 45  |;"START A SONG E|
00000300: 4E 54 52 59 22 00 34 43  8C 00 99 3A 99 A3 31 29  |NTRY".4C...:..1)|
00000310: 3B 52 45 44 24 3B 22 34  2E 20 22 3B 43 59 4E 24  |;RED$;"4. ";CYN$|
00000320: 3B 22 41 44 44 20 4E 4F  54 45 53 20 54 4F 20 53  |;"ADD NOTES TO S|
00000330: 4F 4E 47 22 00 69 43 91  00 99 3A 99 A3 31 29 3B  |ONG".iC...:..1);|
00000340: 52 45 44 24 3B 22 35 2E  20 22 3B 43 59 4E 24 3B  |RED$;"5. ";CYN$;|
00000350: 22 52 45 2D 57 52 49 54  45 20 41 20 53 4F 4E 47  |"RE-WRITE A SONG|
00000360: 20 4D 45 41 53 55 52 45  22 00 91 43 96 00 99 3A  | MEASURE"..C...:|
00000370: 99 A3 31 29 3B 52 45 44  24 3B 22 36 2E 20 22 3B  |..1);RED$;"6. ";|
00000380: 43 59 4E 24 3B 22 53 45  54 20 46 49 4C 54 45 52  |CYN$;"SET FILTER|
00000390: 22 00 C6 43 9B 00 99 3A  99 A3 31 29 3B 52 45 44  |"..C...:..1);RED|
000003A0: 24 3B 22 37 2E 20 22 3B  43 59 4E 24 3B 22 43 48  |$;"7. ";CYN$;"CH|
000003B0: 41 4E 47 45 20 56 4F 49  43 45 20 50 41 52 41 4D  |ANGE VOICE PARAM|
000003C0: 45 54 45 52 53 22 00 F4  43 A0 00 99 3A 99 A3 31  |ETERS"..C...:..1|
000003D0: 29 3B 52 45 44 24 3B 22  38 2E 20 22 3B 43 59 4E  |);RED$;"8. ";CYN|
000003E0: 24 3B 22 53 45 54 20 4E  45 57 20 45 4E 56 45 4C  |$;"SET NEW ENVEL|
000003F0: 4F 50 45 22 00 1F 44 A5  00 99 3A 99 A3 31 29 3B  |OPE"..D...:..1);|
00000400: 52 45 44 24 3B 22 39 2E  20 22 3B 43 59 4E 24 3B  |RED$;"9. ";CYN$;|
00000410: 22 50 4C 41 59 42 41 43  4B 20 53 4F 4E 47 22 00  |"PLAYBACK SONG".|
00000420: 4D 44 A6 00 99 3A 99 59  45 4C 24 A3 31 29 22 50  |MD...:.YEL$.1)"P|
00000430: 52 45 53 53 20 27 45 53  43 27 20 54 4F 20 52 45  |RESS 'ESC' TO RE|
00000440: 54 55 52 4E 20 54 4F 20  4D 45 4E 55 22 00 65 44  |TURN TO MENU".eD|
00000450: AA 00 99 47 52 4E 24 3A  E0 31 2C 35 2C 32 34 2C  |...GRN$:.1,5,24,|
00000460: 53 4F 24 2C 31 00 B1 44  AF 00 A1 F9 20 41 24 3A  |SO$,1..D.... A$:|
00000470: 8B 41 24 B2 C7 28 32 37  29 A7 99 22 93 11 11 11  |.A$..(27).."....|
00000480: 11 11 11 11 22 A3 32 32  29 22 43 48 41 4E 47 45  |....".22)"CHANGE|
00000490: 20 59 4F 55 52 20 4D 4F  4E 49 54 4F 52 20 54 4F  | YOUR MONITOR TO|
000004A0: 20 34 30 20 43 4F 4C 55  4D 4E 53 21 22 3A 89 38  | 40 COLUMNS!":.8|
000004B0: 30 00 CD 44 B1 00 41 B2  C6 28 41 24 29 AB 34 38  |0..D..A..(A$).48|
000004C0: 3A 8B 41 B3 31 B0 41 B1  39 A7 31 37 35 00 F8 44  |:.A.1.A.9.175..D|
000004D0: B4 00 91 41 89 31 38 35  2C 32 35 35 2C 33 33 30  |...A.185,255,330|
000004E0: 2C 35 30 30 2C 36 32 30  2C 35 35 35 2C 35 32 35  |,500,620,555,525|
000004F0: 2C 37 33 30 2C 36 37 35  00 1D 45 B9 00 8F 20 20  |,730,675..E...  |
00000500: 2A 2A 2A 20 4C 4F 41 44  20 41 20 53 4F 4E 47 20  |*** LOAD A SONG |
00000510: 46 52 4F 4D 20 44 49 53  4B 20 2A 2A 2A 00 31 45  |FROM DISK ***.1E|
00000520: BE 00 E0 31 2C 32 35 2C  32 AA 32 AC 41 2C 50 54  |...1,25,2.2.A,PT|
00000530: 24 00 5C 45 C3 00 8D 39  32 30 3A 99 52 45 44 24  |$.\E...920:.RED$|
00000540: A3 35 29 22 4C 4F 41 44  20 41 20 53 4F 4E 47 20  |.5)"LOAD A SONG |
00000550: 46 52 4F 4D 20 44 49 53  4B 22 3A 99 00 82 45 C8  |FROM DISK":...E.|
00000560: 00 99 59 45 4C 24 A3 35  29 22 45 4E 54 45 52 20  |..YEL$.5)"ENTER |
00000570: 4E 41 4D 45 20 4F 46 20  53 4F 4E 47 2E 2E 2E 22  |NAME OF SONG..."|
00000580: 3A 99 00 98 45 CD 00 99  A3 35 29 3B 3A 8D 38 33  |:...E....5);:.83|
00000590: 30 3A 4E 53 24 B2 42 24  00 A7 45 D2 00 FE 0D 23  |0:NS$.B$..E....#|
000005A0: 32 2C 28 4E 53 24 29 00  C9 45 D7 00 99 3A 99 A3  |2,(NS$)..E...:..|
000005B0: 35 29 43 59 4E 24 22 4C  4F 41 44 49 4E 47 20 27  |5)CYN$"LOADING '|
000005C0: 22 3B 4E 53 24 3B 22 27  22 00 DF 45 DC 00 84 32  |";NS$;"'"..E...2|
000005D0: 2C 4D 4D 2C 54 50 2C 56  4D 2C 53 45 2C 4E 52 00  |,MM,TP,VM,SE,NR.|
000005E0: F6 45 E1 00 84 32 2C 43  46 2C 4C 50 2C 42 50 2C  |.E...2,CF,LP,BP,|
000005F0: 48 50 2C 52 45 53 00 06  46 E6 00 8B 20 53 45 B2  |HP,RES..F... SE.|
00000600: 30 20 A7 32 34 30 00 41  46 EB 00 81 4C B2 31 A4  |0 .240.AF...L.1.|
00000610: 4E 52 3A 84 32 2C 45 56  28 4C 29 2C 41 54 28 4C  |NR:.2,EV(L),AT(L|
00000620: 29 2C 44 59 28 4C 29 2C  53 4E 28 4C 29 2C 52 4C  |),DY(L),SN(L),RL|
00000630: 28 4C 29 2C 57 46 28 4C  29 2C 50 57 28 4C 29 3A  |(L),WF(L),PW(L):|
00000640: 82 00 58 46 F0 00 81 4B  B2 31 A4 33 3A 84 32 2C  |..XF...K.1.3:.2,|
00000650: 56 4F 24 28 4B 29 3A 82  00 70 46 F5 00 81 49 B2  |VO$(K):..pF...I.|
00000660: 31 A4 4D 4D 3A 84 32 2C  4D 53 24 28 49 29 3A 82  |1.MM:.2,MS$(I):.|
00000670: 00 7E 46 FA 00 FE 0F 23  32 3A 89 31 32 30 00 A5  |.~F....#2:.120..|
00000680: 46 FF 00 8F 20 2A 2A 2A  20 53 41 56 45 20 41 20  |F... *** SAVE A |
00000690: 53 4F 4E 47 20 46 49 4C  45 20 54 4F 20 44 49 53  |SONG FILE TO DIS|
000006A0: 4B 20 2A 2A 2A 00 B9 46  04 01 E0 31 2C 32 35 2C  |K ***..F...1,25,|
000006B0: 32 AA 32 AC 41 2C 50 54  24 00 E2 46 09 01 8D 39  |2.2.A,PT$..F...9|
000006C0: 32 30 3A 99 52 45 44 24  A3 35 29 22 53 41 56 45  |20:.RED$.5)"SAVE|
000006D0: 20 41 20 53 4F 4E 47 20  54 4F 20 44 49 53 4B 22  | A SONG TO DISK"|
000006E0: 3A 99 00 08 47 0E 01 99  59 45 4C 24 A3 35 29 22  |:...G...YEL$.5)"|
000006F0: 45 4E 54 45 52 20 4E 41  4D 45 20 4F 46 20 53 4F  |ENTER NAME OF SO|
00000700: 4E 47 2E 2E 2E 22 3A 99  00 28 47 13 01 99 A3 35  |NG...":..(G....5|
00000710: 29 3B 3A 8D 38 33 30 3A  4E 53 24 B2 42 24 3A 43  |);:.830:NS$.B$:C|
00000720: 52 24 B2 C7 28 31 33 29  00 59 47 18 01 8B 4D 4D  |R$..(13).YG...MM|
00000730: B2 30 A7 99 47 52 4E 24  3A 99 A3 35 29 22 4E 4F  |.0..GRN$:..5)"NO|
00000740: 20 46 49 4C 45 20 49 4E  20 4D 45 4D 4F 52 59 22  | FILE IN MEMORY"|
00000750: 3A FE 0B 32 3A 89 31 32  30 00 6E 47 1D 01 FE 0D  |:..2:.120.nG....|
00000760: 23 32 2C 22 40 22 AA 28  4E 53 24 29 2C 57 00 8F  |#2,"@".(NS$),W..|
00000770: 47 22 01 99 3A 99 A3 35  29 43 59 4E 24 22 53 41  |G"..:..5)CYN$"SA|
00000780: 56 49 4E 47 20 27 22 3B  4E 53 24 3B 22 27 22 00  |VING '";NS$;"'".|
00000790: B5 47 27 01 98 32 2C 4D  4D 3B 43 52 24 3B 54 50  |.G'..2,MM;CR$;TP|
000007A0: 3B 43 52 24 3B 56 4D 3B  43 52 24 3B 53 45 3B 43  |;CR$;VM;CR$;SE;C|
000007B0: 52 24 3B 4E 52 00 DC 47  2C 01 98 32 2C 43 46 3B  |R$;NR..G,..2,CF;|
000007C0: 43 52 24 3B 4C 50 3B 43  52 24 3B 42 50 3B 43 52  |CR$;LP;CR$;BP;CR|
000007D0: 24 3B 48 50 3B 43 52 24  3B 52 45 53 00 EC 47 31  |$;HP;CR$;RES..G1|
000007E0: 01 8B 20 53 45 B2 30 20  A7 33 31 35 00 3F 48 36  |.. SE.0 .315.?H6|
000007F0: 01 81 4C B2 31 A4 4E 52  3A 98 32 2C 45 56 28 4C  |..L.1.NR:.2,EV(L|
00000800: 29 3B 43 52 24 3B 41 54  28 4C 29 3B 43 52 24 3B  |);CR$;AT(L);CR$;|
00000810: 44 59 28 4C 29 3B 43 52  24 3B 53 4E 28 4C 29 3B  |DY(L);CR$;SN(L);|
00000820: 43 52 24 3B 52 4C 28 4C  29 3B 43 52 24 3B 57 46  |CR$;RL(L);CR$;WF|
00000830: 28 4C 29 3B 43 52 24 3B  50 57 28 4C 29 3A 82 00  |(L);CR$;PW(L):..|
00000840: 56 48 3B 01 81 4B B2 31  A4 33 3A 98 32 2C 56 4F  |VH;..K.1.3:.2,VO|
00000850: 24 28 4B 29 3A 82 00 6E  48 40 01 81 49 B2 31 A4  |$(K):..nH@..I.1.|
00000860: 4D 4D 3A 98 32 2C 4D 53  24 28 49 29 3A 82 00 7C  |MM:.2,MS$(I):..||
00000870: 48 45 01 FE 0F 23 32 3A  89 31 32 30 00 A1 48 4A  |HE...#2:.120..HJ|
00000880: 01 8F 20 2A 2A 2A 20 53  54 41 52 54 20 41 20 4E  |.. *** START A N|
00000890: 45 57 20 53 4F 4E 47 20  45 4E 54 52 59 20 2A 2A  |EW SONG ENTRY **|
000008A0: 2A 00 B5 48 4F 01 E0 31  2C 32 35 2C 32 AA 32 AC  |*..HO..1,25,2.2.|
000008B0: 41 2C 50 54 24 00 DD 48  54 01 8D 39 32 30 3A 99  |A,PT$..HT..920:.|
000008C0: A3 39 29 52 45 44 24 22  53 54 41 52 54 20 41 20  |.9)RED$"START A |
000008D0: 53 4F 4E 47 20 45 4E 54  52 59 22 3A 99 00 0B 49  |SONG ENTRY":...I|
000008E0: 59 01 99 A3 31 29 59 45  4C 24 22 31 2E 20 55 53  |Y...1)YEL$"1. US|
000008F0: 45 20 44 45 46 41 55 4C  54 20 56 4F 49 43 45 20  |E DEFAULT VOICE |
00000900: 50 41 52 41 4D 45 54 45  52 53 22 00 2E 49 5E 01  |PARAMETERS"..I^.|
00000910: 99 A3 36 29 22 28 50 49  41 4E 4F 20 57 49 54 48  |..6)"(PIANO WITH|
00000920: 20 4E 4F 20 46 49 4C 54  45 52 29 22 3A 99 00 56  | NO FILTER)":..V|
00000930: 49 63 01 99 A3 31 29 22  32 2E 20 53 45 54 20 4E  |Ic...1)"2. SET N|
00000940: 45 57 20 56 4F 49 43 45  20 50 41 52 41 4D 45 54  |EW VOICE PARAMET|
00000950: 45 52 53 22 3A 99 00 6C  49 68 01 99 47 52 4E 24  |ERS":..lIh..GRN$|
00000960: 3A E0 31 2C 31 30 2C 39  2C 53 4F 24 00 8E 49 6D  |:.1,10,9,SO$..Im|
00000970: 01 A1 F9 20 41 24 3A 41  B2 C6 28 41 24 29 AB 34  |... A$:A..(A$).4|
00000980: 38 3A 8B 41 B3 31 B0 41  B1 32 A7 33 36 35 00 9D  |8:.A.1.A.2.365..|
00000990: 49 72 01 91 41 89 33 37  35 2C 34 30 35 00 B6 49  |Ir..A.375,405..I|
000009A0: 77 01 E0 31 2C 33 33 2C  31 AA 32 AC 41 2C 50 54  |w..1,33,1.2.A,PT|
000009B0: 24 3A 8D 39 32 35 00 F0  49 7C 01 56 4F 24 28 31  |$:.925..I|.VO$(1|
000009C0: 29 B2 22 56 31 20 54 30  20 58 30 22 3A 56 4F 24  |)."V1 T0 X0":VO$|
000009D0: 28 32 29 B2 22 56 32 20  54 30 20 58 30 22 3A 56  |(2)."V2 T0 X0":V|
000009E0: 4F 24 28 33 29 B2 22 56  33 20 54 30 20 58 30 22  |O$(3)."V3 T0 X0"|
000009F0: 00 12 4A 81 01 FE 04 20  56 4F 24 28 31 29 3A FE  |..J.... VO$(1):.|
00000A00: 04 20 56 4F 24 28 32 29  3A FE 04 20 56 4F 24 28  |. VO$(2):.. VO$(|
00000A10: 33 29 00 3B 4A 86 01 99  52 45 44 24 A3 35 29 22  |3).;J...RED$.5)"|
00000A20: 44 45 46 41 55 4C 54 20  56 4F 49 43 45 20 50 41  |DEFAULT VOICE PA|
00000A30: 52 41 4D 45 54 45 52 53  22 3A 99 00 6E 4A 8B 01  |RAMETERS":..nJ..|
00000A40: 81 49 B2 31 A4 33 3A 99  47 52 4E 24 3B A3 35 29  |.I.1.3:.GRN$;.5)|
00000A50: 22 27 50 4C 41 59 27 20  53 54 52 24 28 22 49 22  |"'PLAY' STR$("I"|
00000A60: 29 3D 20 22 56 4F 24 28  49 29 3A 99 3A 82 00 7C  |)= "VO$(I):.:..||
00000A70: 4A 90 01 FE 0B 32 3A 20  89 34 35 30 00 A3 4A 95  |J....2: .450..J.|
00000A80: 01 8F 20 2A 2A 2A 20 53  45 54 20 4E 45 57 20 56  |.. *** SET NEW V|
00000A90: 4F 49 43 45 20 50 41 52  41 4D 45 54 45 52 53 20  |OICE PARAMETERS |
00000AA0: 2A 2A 2A 00 B7 4A 9A 01  E0 31 2C 33 33 2C 32 AA  |***..J...1,33,2.|
00000AB0: 32 AC 41 2C 50 54 24 00  E1 4A 9F 01 8D 39 32 35  |2.A,PT$..J...925|
00000AC0: 3A 99 A3 33 29 22 53 45  54 20 4E 45 57 20 56 4F  |:..3)"SET NEW VO|
00000AD0: 49 43 45 20 50 41 52 41  4D 45 54 45 52 53 22 3A  |ICE PARAMETERS":|
00000AE0: 99 00 1A 4B A4 01 81 49  B2 31 A4 33 3A 99 A3 33  |...K...I.1.3:..3|
00000AF0: 29 22 56 4F 49 43 45 22  49 22 45 4E 56 45 4C 4F  |)"VOICE"I"ENVELO|
00000B00: 50 45 20 23 28 30 2D 39  29 2E 2E 2E 20 22 3B 3A  |PE #(0-9)... ";:|
00000B10: 8D 38 33 30 3A 54 24 B2  42 24 00 4F 4B A9 01 99  |.830:T$.B$.OK...|
00000B20: A3 33 29 22 56 4F 49 43  45 22 49 22 46 49 4C 54  |.3)"VOICE"I"FILT|
00000B30: 45 52 20 4F 4E 2F 4F 46  46 28 31 2F 30 29 2E 2E  |ER ON/OFF(1/0)..|
00000B40: 2E 20 22 3B 3A 8D 38 33  30 3A 46 24 B2 42 24 00  |. ";:.830:F$.B$.|
00000B50: 85 4B AE 01 56 4F 24 28  49 29 B2 22 22 3A 56 4F  |.K..VO$(I)."":VO|
00000B60: 24 28 49 29 B2 22 56 22  AA C9 28 C4 28 49 29 2C  |$(I)."V"..(.(I),|
00000B70: 31 29 AA 22 20 22 AA 22  54 22 AA 54 24 AA 22 20  |1)." "."T".T$." |
00000B80: 58 22 AA 46 24 00 B6 4B  B3 01 99 47 52 4E 24 3B  |X".F$..K...GRN$;|
00000B90: A3 33 29 22 27 50 4C 41  59 27 20 53 54 52 24 28  |.3)"'PLAY' STR$(|
00000BA0: 22 49 22 29 20 3D 20 22  56 4F 24 28 49 29 3A 99  |"I") = "VO$(I):.|
00000BB0: 43 59 4E 24 3A 82 00 DC  4B B8 01 FE 04 20 56 4F  |CYN$:...K.... VO|
00000BC0: 24 28 31 29 3A FE 04 20  56 4F 24 28 32 29 3A FE  |$(1):.. VO$(2):.|
00000BD0: 04 20 56 4F 24 28 33 29  3A FE 0B 32 00 FD 4B BD  |. VO$(3):..2..K.|
00000BE0: 01 8F 20 2A 2A 2A 20 53  45 54 20 56 4F 4C 55 4D  |.. *** SET VOLUM|
00000BF0: 45 20 26 20 54 45 4D 50  4F 20 2A 2A 2A 00 29 4C  |E & TEMPO ***.)L|
00000C00: C2 01 8D 39 33 30 3A 99  A3 35 29 52 45 44 24 22  |...930:..5)RED$"|
00000C10: 53 45 54 20 56 4F 4C 55  4D 45 20 41 4E 44 20 54  |SET VOLUME AND T|
00000C20: 45 4D 50 4F 22 3A 99 3A  99 00 63 4C C7 01 99 A3  |EMPO":.:..cL....|
00000C30: 32 29 59 45 4C 24 22 53  45 54 20 56 4F 4C 55 4D  |2)YEL$"SET VOLUM|
00000C40: 45 20 28 30 2D 31 35 29  2E 2E 2E 20 22 3B 3A 8D  |E (0-15)... ";:.|
00000C50: 38 33 30 3A 56 4D B2 C5  28 42 24 29 3A DB 20 56  |830:VM..(B$):. V|
00000C60: 4D 3A 99 00 98 4C CC 01  99 A3 32 29 22 53 45 54  |M:...L....2)"SET|
00000C70: 20 54 45 4D 50 4F 20 28  30 2D 32 35 35 29 2E 2E  | TEMPO (0-255)..|
00000C80: 2E 20 22 3B 3A 8D 38 33  30 3A 54 50 B2 C5 28 42  |. ";:.830:TP..(B|
00000C90: 24 29 3A FE 05 20 54 50  00 AF 4C D1 01 8B 20 46  |$):.. TP..L... F|
00000CA0: 4C B2 31 20 A7 20 46 4C  B2 30 3A 89 31 32 30 00  |L.1 . FL.0:.120.|
00000CB0: D6 4C D6 01 FE 0B 32 3A  FE 1A 30 2C 30 2C 37 39  |.L....2:..0,0,79|
00000CC0: 2C 32 34 2C 31 3A FE 1A  31 39 2C 34 2C 36 30 2C  |,24,1:..19,4,60,|
00000CD0: 32 30 3A 49 B2 31 00 08  4D DB 01 EB 3A 99 52 45  |20:I.1..M...:.RE|
00000CE0: 44 24 C7 28 31 34 37 29  A3 31 30 29 22 2A 2A 2A  |D$.(147).10)"***|
00000CF0: 20 45 4E 54 45 52 20 41  20 4E 45 57 20 53 4F 4E  | ENTER A NEW SON|
00000D00: 47 20 2A 2A 2A 22 3A 99  00 2F 4D E0 01 99 43 59  |G ***":../M...CY|
00000D10: 4E 24 A3 31 35 29 22 45  4E 54 45 52 20 4D 45 41  |N$.15)"ENTER MEA|
00000D20: 53 55 52 45 20 22 49 3A  99 3A 99 59 45 4C 24 00  |SURE "I:.:.YEL$.|
00000D30: 50 4D E2 01 99 22 1E 45  4E 54 45 52 20 9E 45 4E  |PM...".ENTER .EN|
00000D40: 44 1E 20 54 4F 20 45 4E  44 20 45 4E 54 52 59 22  |D. TO END ENTRY"|
00000D50: 00 63 4D E5 01 8D 38 33  30 3A 4D 53 24 28 49 29  |.cM...830:MS$(I)|
00000D60: B2 42 24 00 7A 4D EA 01  49 B2 49 AA 31 3A EC 20  |.B$.zM..I.I.1:. |
00000D70: FC 20 42 24 B2 22 45 4E  44 22 00 8A 4D EF 01 4D  |. B$."END"..M..M|
00000D80: 4D B2 49 AB 32 3A 89 31  32 30 00 AC 4D F4 01 8F  |M.I.2:.120..M...|
00000D90: 20 2A 2A 2A 20 41 44 44  20 4E 4F 54 45 53 20 54  | *** ADD NOTES T|
00000DA0: 4F 20 41 20 53 4F 4E 47  20 2A 2A 2A 00 BC 4D F9  |O A SONG ***..M.|
00000DB0: 01 E0 31 2C 32 35 2C 32  AA 32 AC 41 00 DB 4D FE  |..1,25,2.2.A..M.|
00000DC0: 01 FE 1A 30 2C 30 2C 37  39 2C 32 34 2C 31 3A FE  |...0,0,79,24,1:.|
00000DD0: 1A 20 39 2C 34 2C 36 30  2C 32 30 00 1C 4E 03 02  |. 9,4,60,20..N..|
00000DE0: 8B 4D 4D B2 30 A7 20 99  A3 31 35 29 C7 28 31 35  |.MM.0. ..15).(15|
00000DF0: 29 22 54 48 45 52 45 20  49 53 20 4E 4F 20 53 4F  |)"THERE IS NO SO|
00000E00: 4E 47 20 49 4E 20 4D 45  4D 4F 52 59 22 C7 28 31  |NG IN MEMORY".(1|
00000E10: 34 33 29 3A FE 0B 33 3A  89 31 32 30 00 2C 4E 08  |43):..3:.120.,N.|
00000E20: 02 49 B2 4D 4D AA 31 3A  89 34 37 35 00 53 4E 0D  |.I.MM.1:.475.SN.|
00000E30: 02 8F 20 2A 2A 2A 20 53  45 54 20 4E 45 57 20 56  |.. *** SET NEW V|
00000E40: 4F 49 43 45 20 50 41 52  41 4D 45 54 45 52 53 20  |OICE PARAMETERS |
00000E50: 2A 2A 2A 00 6C 4E 12 02  E0 31 2C 32 38 2C 32 AA  |***.lN...1,28,2.|
00000E60: 32 AC 41 2C 50 54 24 3A  8D 39 32 30 00 95 4E 17  |2.A,PT$:.920..N.|
00000E70: 02 99 52 45 44 24 A3 35  29 22 53 45 54 20 4E 45  |..RED$.5)"SET NE|
00000E80: 57 20 56 4F 49 43 45 20  50 41 52 41 4D 45 54 45  |W VOICE PARAMETE|
00000E90: 52 53 22 3A 99 00 B9 4E  1C 02 99 A3 37 29 59 45  |RS":...N....7)YE|
00000EA0: 4C 24 22 56 4F 49 43 45  20 50 41 52 41 4D 45 54  |L$"VOICE PARAMET|
00000EB0: 45 52 53 20 41 52 45 3A  22 00 E2 4E 21 02 81 4B  |ERS ARE:"..N!..K|
00000EC0: B2 31 A4 33 3A 99 A3 38  29 47 52 4E 24 22 56 4F  |.1.3:..8)GRN$"VO|
00000ED0: 24 28 22 4B 22 29 20 3D  20 22 56 4F 24 28 4B 29  |$("K") = "VO$(K)|
00000EE0: 3A 82 00 F4 4E 26 02 FE  0B 33 3A 46 4C B2 31 3A  |:...N&...3:FL.1:|
00000EF0: 8D 34 31 35 00 0D 4F 2B  02 8F 20 2A 2A 2A 20 53  |.415..O+.. *** S|
00000F00: 45 54 20 46 49 4C 54 45  52 20 2A 2A 2A 00 21 4F  |ET FILTER ***.!O|
00000F10: 30 02 E0 31 2C 32 30 2C  32 AA 32 AC 41 2C 50 54  |0..1,20,2.2.A,PT|
00000F20: 24 00 42 4F 35 02 8D 39  32 30 3A 99 52 45 44 24  |$.BO5..920:.RED$|
00000F30: A3 31 30 29 22 53 45 54  20 46 49 4C 54 45 52 22  |.10)"SET FILTER"|
00000F40: 3A 99 00 7B 4F 3A 02 99  59 45 4C 24 A3 31 29 22  |:..{O:..YEL$.1)"|
00000F50: 43 55 54 4F 46 46 20 46  52 45 51 20 28 30 2D 32  |CUTOFF FREQ (0-2|
00000F60: 30 34 37 29 3F 2E 2E 2E  20 22 3B 3A 8D 38 33 30  |047)?... ";:.830|
00000F70: 3A 43 46 B2 C5 28 42 24  29 3A 99 00 B3 4F 3F 02  |:CF..(B$):...O?.|
00000F80: 99 A3 31 29 22 4C 2F 50  20 46 49 4C 54 45 52 20  |..1)"L/P FILTER |
00000F90: 28 4F 4E 2D 31 3B 4F 46  46 2D 30 29 3F 2E 2E 2E  |(ON-1;OFF-0)?...|
00000FA0: 20 22 3B 3A 8D 38 33 30  3A 4C 50 B2 C5 28 42 24  | ";:.830:LP..(B$|
00000FB0: 29 3A 99 00 EB 4F 44 02  99 A3 31 29 22 42 2F 50  |):...OD...1)"B/P|
00000FC0: 20 46 49 4C 54 45 52 20  28 4F 4E 2D 31 3B 4F 46  | FILTER (ON-1;OF|
00000FD0: 46 2D 30 29 3F 2E 2E 2E  20 22 3B 3A 8D 38 33 30  |F-0)?... ";:.830|
00000FE0: 3A 42 50 B2 C5 28 42 24  29 3A 99 00 23 50 49 02  |:BP..(B$):..#PI.|
00000FF0: 99 A3 31 29 22 48 2F 50  20 46 49 4C 54 45 52 20  |..1)"H/P FILTER |
00001000: 28 4F 4E 2D 31 3B 4F 46  46 2D 30 29 3F 2E 2E 2E  |(ON-1;OFF-0)?...|
00001010: 20 22 3B 3A 8D 38 33 30  3A 48 50 B2 C5 28 42 24  | ";:.830:HP..(B$|
00001020: 29 3A 99 00 55 50 4E 02  99 A3 31 29 22 52 45 53  |):..UPN...1)"RES|
00001030: 4F 4E 41 4E 43 45 20 28  30 2D 31 35 29 3F 2E 2E  |ONANCE (0-15)?..|
00001040: 2E 20 22 3B 3A 8D 38 33  30 3A 52 45 53 B2 C5 28  |. ";:.830:RES..(|
00001050: 42 24 29 3A 99 00 81 50  53 02 99 47 52 4E 24 A3  |B$):...PS..GRN$.|
00001060: 33 29 22 46 49 4C 54 45  52 22 43 46 22 2C 22 4C  |3)"FILTER"CF","L|
00001070: 50 22 2C 22 42 50 22 2C  22 48 50 22 2C 22 52 45  |P","BP","HP","RE|
00001080: 53 00 98 50 58 02 FE 03  20 43 46 2C 4C 50 2C 42  |S..PX... CF,LP,B|
00001090: 50 2C 48 50 2C 52 45 53  00 A5 50 5D 02 FE 0B 33  |P,HP,RES..P]...3|
000010A0: 3A 8D 39 32 35 00 14 51  62 02 99 43 59 4E 24 A3  |:.925..Qb..CYN$.|
000010B0: 33 29 22 59 4F 55 20 4D  55 53 54 20 54 55 52 4E  |3)"YOU MUST TURN|
000010C0: 20 4F 4E 20 46 49 4C 54  45 52 20 46 4F 52 22 3A  | ON FILTER FOR":|
000010D0: 99 A3 33 29 22 56 4F 49  43 45 20 55 53 49 4E 47  |..3)"VOICE USING|
000010E0: 20 45 4E 56 45 4C 4F 50  45 22 45 56 3B 22 55 53  | ENVELOPE"EV;"US|
000010F0: 49 4E 47 22 3A 99 A3 33  29 22 4F 50 54 49 4F 4E  |ING":..3)"OPTION|
00001100: 20 37 2E 20 44 4F 4E 27  54 20 46 4F 52 47 45 54  | 7. DON'T FORGET|
00001110: 21 21 21 22 00 22 51 67  02 FE 0B 20 34 3A 89 31  |!!!"."Qg... 4:.1|
00001120: 32 30 00 48 51 6C 02 8F  20 2A 2A 2A 20 52 45 2D  |20.HQl.. *** RE-|
00001130: 57 52 49 54 45 20 41 20  53 4F 4E 47 20 4D 45 41  |WRITE A SONG MEA|
00001140: 53 55 52 45 20 2A 2A 2A  00 73 51 71 02 E0 31 2C  |SURE ***.sQq..1,|
00001150: 32 35 2C 32 AA 32 AC 41  3A FE 1A 30 2C 30 2C 37  |25,2.2.A:..0,0,7|
00001160: 39 2C 32 34 2C 31 3A FE  1A 31 39 2C 34 2C 36 30  |9,24,1:..19,4,60|
00001170: 2C 32 30 00 B6 51 76 02  8B 4D 4D B2 30 A7 99 47  |,20..Qv..MM.0..G|
00001180: 52 4E 24 C7 28 31 35 29  A3 35 29 22 54 48 45 52  |RN$.(15).5)"THER|
00001190: 45 20 49 53 20 4E 4F 20  53 4F 4E 47 20 49 4E 20  |E IS NO SONG IN |
000011A0: 4D 45 4D 4F 52 59 22 C7  28 31 34 33 29 3A FE 0B  |MEMORY".(143):..|
000011B0: 33 3A 89 31 32 30 00 E9  51 7B 02 99 A3 35 29 47  |3:.120..Q{...5)G|
000011C0: 52 4E 24 22 54 48 45 20  48 49 47 48 45 53 54 20  |RN$"THE HIGHEST |
000011D0: 4E 55 4D 42 45 52 45 44  20 4D 45 41 53 55 52 45  |NUMBERED MEASURE|
000011E0: 20 49 53 20 22 4D 4D 3A  99 00 0E 52 80 02 99 A3  | IS "MM:...R....|
000011F0: 31 30 29 52 45 44 24 22  45 44 49 54 20 41 20 53  |10)RED$"EDIT A S|
00001200: 4F 4E 47 20 4D 45 41 53  55 52 45 22 3A 99 00 3B  |ONG MEASURE":..;|
00001210: 52 85 02 99 A3 31 30 29  22 45 4E 54 45 52 20 4D  |R....10)"ENTER M|
00001220: 45 41 53 55 52 45 20 23  2E 2E 2E 20 22 3B 3A 8D  |EASURE #... ";:.|
00001230: 38 33 30 3A 49 B2 C5 28  42 24 29 00 4F 52 8A 02  |830:I..(B$).OR..|
00001240: FE 1A 20 31 39 2C 34 2C  36 30 2C 32 30 2C 31 00  |.. 19,4,60,20,1.|
00001250: 87 52 8F 02 99 43 59 4E  24 A3 35 29 22 54 48 45  |.R...CYN$.5)"THE|
00001260: 20 4E 4F 54 45 20 53 54  52 24 20 46 4F 52 20 4D  | NOTE STR$ FOR M|
00001270: 45 41 53 55 52 45 22 49  22 49 53 3A 22 3A 99 4D  |EASURE"I"IS:":.M|
00001280: 53 24 28 49 29 3A 99 00  AE 52 94 02 99 59 45 4C  |S$(I):...R...YEL|
00001290: 24 A3 35 29 22 45 4E 54  45 52 20 4E 45 57 20 4E  |$.5)"ENTER NEW N|
000012A0: 4F 54 45 20 53 54 52 24  2E 2E 2E 22 3A 99 00 C1  |OTE STR$...":...|
000012B0: 52 99 02 8D 38 33 30 3A  4D 53 24 28 49 29 B2 42  |R...830:MS$(I).B|
000012C0: 24 00 CA 52 9E 02 89 31  32 30 00 E6 52 A3 02 8F  |$..R...120..R...|
000012D0: 20 2A 2A 2A 20 50 4C 41  59 42 41 43 4B 20 53 4F  | *** PLAYBACK SO|
000012E0: 4E 47 20 2A 2A 2A 00 FA  52 A8 02 E0 31 2C 32 32  |NG ***..R...1,22|
000012F0: 2C 32 AA 32 AC 41 2C 50  54 24 00 34 53 AD 02 8D  |,2.2.A,PT$.4S...|
00001300: 39 31 35 3A 8B 4D 4D B2  30 A7 20 99 A3 31 29 22  |915:.MM.0. ..1)"|
00001310: 54 48 45 52 45 20 49 53  20 4E 4F 20 53 4F 4E 47  |THERE IS NO SONG|
00001320: 20 49 4E 20 4D 45 4D 4F  52 59 22 3A FE 0B 33 3A  | IN MEMORY":..3:|
00001330: 89 31 32 30 00 50 53 B2  02 99 A3 31 29 22 50 4C  |.120.PS....1)"PL|
00001340: 41 59 49 4E 47 20 27 22  3B 4E 53 24 3B 22 27 22  |AYING '";NS$;"'"|
00001350: 00 61 53 B7 02 8B 20 53  45 B2 30 20 A7 20 37 30  |.aS... SE.0 . 70|
00001360: 35 00 9F 53 BC 02 81 20  4B B2 31 20 A4 20 4E 52  |5..S... K.1 . NR|
00001370: 3A FE 0A 20 45 56 28 4B  29 2C 41 54 28 4B 29 2C  |:.. EV(K),AT(K),|
00001380: 44 59 28 4B 29 2C 53 4E  28 4B 29 2C 52 4C 28 4B  |DY(K),SN(K),RL(K|
00001390: 29 2C 57 46 28 4B 29 2C  50 57 28 4B 29 3A 82 00  |),WF(K),PW(K):..|
000013A0: B6 53 C1 02 FE 03 20 43  46 2C 4C 50 2C 42 50 2C  |.S.... CF,LP,BP,|
000013B0: 48 50 2C 52 45 53 00 C5  53 C6 02 DB 20 56 4D 3A  |HP,RES..S... VM:|
000013C0: FE 05 20 54 50 00 DC 53  CB 02 81 4B B2 31 A4 33  |.. TP..S...K.1.3|
000013D0: 3A FE 04 20 56 4F 24 28  4B 29 3A 82 00 F4 53 D0  |:.. VO$(K):...S.|
000013E0: 02 81 49 B2 31 A4 4D 4D  3A FE 04 20 4D 53 24 28  |..I.1.MM:.. MS$(|
000013F0: 49 29 3A 82 00 FD 53 D5  02 89 31 32 30 00 1C 54  |I):...S...120..T|
00001400: DA 02 8F 20 2A 2A 2A 20  53 45 54 20 4E 45 57 20  |... *** SET NEW |
00001410: 45 4E 56 45 4C 4F 50 45  20 2A 2A 2A 00 30 54 DF  |ENVELOPE ***.0T.|
00001420: 02 E0 31 2C 32 35 2C 32  AA 32 AC 41 2C 50 54 24  |..1,25,2.2.A,PT$|
00001430: 00 63 54 E4 02 8D 39 32  30 3A 99 47 52 4E 24 A3  |.cT...920:.GRN$.|
00001440: 31 29 22 59 4F 55 20 43  41 4E 20 43 48 41 4E 47  |1)"YOU CAN CHANG|
00001450: 45 20 44 45 46 41 55 4C  54 20 53 45 54 54 49 4E  |E DEFAULT SETTIN|
00001460: 47 53 22 00 82 54 E9 02  99 A3 37 29 22 4F 4E 20  |GS"..T....7)"ON |
00001470: 55 50 20 54 4F 20 33 20  45 4E 56 45 4C 4F 50 45  |UP TO 3 ENVELOPE|
00001480: 53 22 00 C3 54 EE 02 99  3A 99 43 59 4E 24 A3 31  |S"..T...:.CYN$.1|
00001490: 29 22 45 4E 54 45 52 20  48 4F 57 20 4D 41 4E 59  |)"ENTER HOW MANY|
000014A0: 2E 2E 2E 20 22 3B 3A 8D  38 33 30 3A 4E 52 B2 C5  |... ";:.830:NR..|
000014B0: 28 42 24 29 3A 8B 4E 52  B3 31 B0 4E 52 B1 33 A7  |(B$):.NR.1.NR.3.|
000014C0: 37 34 30 00 D1 54 F3 02  FE 0B 20 32 3A 53 45 B2  |740..T.... 2:SE.|
000014D0: 31 00 FF 54 F8 02 81 4B  B2 31 20 A4 20 4E 52 3A  |1..T...K.1 . NR:|
000014E0: 8D 39 32 35 3A 99 52 45  44 24 A3 38 29 22 53 45  |.925:.RED$.8)"SE|
000014F0: 54 20 4E 45 57 20 45 4E  56 45 4C 4F 50 45 22 00  |T NEW ENVELOPE".|
00001500: 3C 55 FD 02 99 59 45 4C  24 A3 31 29 22 45 4E 56  |<U...YEL$.1)"ENV|
00001510: 45 4C 4F 50 45 20 23 20  28 30 2D 39 29 3F 20 2E  |ELOPE # (0-9)? .|
00001520: 2E 2E 2E 2E 2E 2E 20 22  3B 3A 8D 38 33 30 3A 45  |...... ";:.830:E|
00001530: 56 28 4B 29 B2 C5 28 42  24 29 3A 99 00 75 55 02  |V(K)..(B$):..uU.|
00001540: 03 99 A3 31 29 22 41 54  54 41 43 4B 20 52 41 54  |...1)"ATTACK RAT|
00001550: 45 20 28 30 2D 31 35 29  3F 20 2E 2E 2E 2E 2E 20  |E (0-15)? ..... |
00001560: 22 3B 3A 8D 38 33 30 3A  41 54 28 4B 29 B2 C5 28  |";:.830:AT(K)..(|
00001570: 42 24 29 3A 99 00 AE 55  07 03 99 A3 31 29 22 44  |B$):...U....1)"D|
00001580: 45 43 41 59 20 52 41 54  45 20 28 30 2D 31 35 29  |ECAY RATE (0-15)|
00001590: 3F 20 2E 2E 2E 2E 2E 2E  20 22 3B 3A 8D 38 33 30  |? ...... ";:.830|
000015A0: 3A 44 59 28 4B 29 B2 C5  28 42 24 29 3A 99 00 E7  |:DY(K)..(B$):...|
000015B0: 55 0C 03 99 A3 31 29 22  53 55 53 54 41 49 4E 20  |U....1)"SUSTAIN |
000015C0: 4C 45 56 45 4C 20 28 30  2D 31 35 29 3F 20 2E 2E  |LEVEL (0-15)? ..|
000015D0: 2E 20 22 3B 3A 8D 38 33  30 3A 53 4E 28 4B 29 B2  |. ";:.830:SN(K).|
000015E0: C5 28 42 24 29 3A 99 00  20 56 11 03 99 A3 31 29  |.(B$):.. V....1)|
000015F0: 22 52 45 4C 45 41 53 45  20 52 41 54 45 20 28 30  |"RELEASE RATE (0|
00001600: 2D 31 35 29 3F 20 2E 2E  2E 2E 20 22 3B 3A 8D 38  |-15)? .... ";:.8|
00001610: 33 30 3A 52 4C 28 4B 29  B2 C5 28 42 24 29 3A 99  |30:RL(K)..(B$):.|
00001620: 00 50 56 16 03 99 47 52  4E 24 A3 31 29 22 57 2F  |.PV...GRN$.1)"W/|
00001630: 46 20 28 30 3D 54 52 49  20 2D 20 31 3D 53 41 57  |F (0=TRI - 1=SAW|
00001640: 20 54 4F 4F 54 48 20 2D  20 32 3D 53 51 52 29 22  | TOOTH - 2=SQR)"|
00001650: 00 A3 56 1B 03 99 59 45  4C 24 A3 31 29 22 57 41  |..V...YEL$.1)"WA|
00001660: 56 45 20 46 4F 52 4D 20  28 30 2D 32 29 3F 20 2E  |VE FORM (0-2)? .|
00001670: 2E 2E 2E 2E 2E 2E 2E 20  22 3B 3A 8D 38 33 30 3A  |....... ";:.830:|
00001680: 57 46 28 4B 29 B2 C5 28  42 24 29 3A 99 3A 8B 57  |WF(K)..(B$):.:.W|
00001690: 46 28 4B 29 B3 32 A7 50  57 28 4B 29 B2 30 3A 89  |F(K).2.PW(K).0:.|
000016A0: 38 30 35 00 DA 56 20 03  99 A3 31 29 22 50 55 4C  |805..V ...1)"PUL|
000016B0: 53 45 20 57 49 44 54 48  20 28 30 2D 34 30 39 35  |SE WIDTH (0-4095|
000016C0: 29 3F 20 2E 2E 2E 20 22  3B 3A 8D 38 33 30 3A 50  |)? ... ";:.830:P|
000016D0: 57 28 4B 29 B2 C5 28 42  24 29 00 EE 56 25 03 FE  |W(K)..(B$)..V%..|
000016E0: 0B 20 32 3A 82 3A FE 0B  32 3A 8D 39 33 30 00 10  |. 2:.:..2:.930..|
000016F0: 57 2A 03 99 52 45 44 24  A3 39 29 22 54 48 45 20  |W*..RED$.9)"THE |
00001700: 4E 45 57 20 45 4E 56 45  4C 4F 50 45 53 22 3A 99  |NEW ENVELOPES":.|
00001710: 00 5A 57 2F 03 81 20 4B  B2 31 20 A4 20 4E 52 3A  |.ZW/.. K.1 . NR:|
00001720: 99 47 52 4E 24 A3 31 29  22 45 4E 56 45 4C 4F 50  |.GRN$.1)"ENVELOP|
00001730: 45 22 45 56 28 4B 29 22  2C 22 41 54 28 4B 29 22  |E"EV(K)","AT(K)"|
00001740: 2C 22 44 59 28 4B 29 22  2C 22 53 4E 28 4B 29 22  |,"DY(K)","SN(K)"|
00001750: 2C 22 52 4C 28 4B 29 22  2C 22 00 74 57 34 03 99  |,"RL(K)",".tW4..|
00001760: A3 31 29 57 46 28 4B 29  22 2C 22 50 57 28 4B 29  |.1)WF(K)","PW(K)|
00001770: 3A 99 3A 82 00 9E 57 39  03 E0 31 2C 31 30 2C 31  |:.:...W9..1,10,1|
00001780: 35 2C 22 50 52 45 53 53  20 41 4E 59 20 4B 45 59  |5,"PRESS ANY KEY|
00001790: 22 2C 31 3A A1 F9 20 41  24 3A 89 31 32 30 00 BE  |",1:.. A$:.120..|
000017A0: 57 3E 03 8F 20 2A 2A 2A  20 49 4E 50 55 54 20 53  |W>.. *** INPUT S|
000017B0: 55 42 2D 52 4F 55 54 49  4E 45 20 2A 2A 2A 00 D6  |UB-ROUTINE ***..|
000017C0: 57 43 03 42 24 B2 22 22  3A 41 24 B2 22 22 3A 46  |WC.B$."":A$."":F|
000017D0: 4D B2 B8 28 31 29 00 DE  57 48 03 A1 41 24 00 F6  |M..(1)..WH..A$..|
000017E0: 57 4D 03 99 C7 28 31 35  29 C7 28 31 36 34 29 C7  |WM...(15).(164).|
000017F0: 28 31 35 37 29 3B 00 08  58 52 03 8B 41 24 B2 C7  |(157);..XR..A$..|
00001800: 28 32 37 29 A7 31 32 30  00 34 58 57 03 8B 42 24  |(27).120.4XW..B$|
00001810: B2 22 22 AF 41 24 B2 C7  28 31 33 29 A7 42 24 B2  |."".A$..(13).B$.|
00001820: C7 28 31 34 33 29 AA 22  2D 22 3A 99 42 24 3B 3A  |.(143)."-":.B$;:|
00001830: 89 38 36 35 00 65 58 5C  03 8B 41 24 B2 22 2C 22  |.865.eX\..A$.","|
00001840: B0 41 24 B2 22 3A 22 B0  41 24 B2 22 3B 22 A7 38  |.A$.":".A$.";".8|
00001850: 34 30 3A 8F 20 50 55 4E  43 54 20 4C 49 4D 49 54  |40:. PUNCT LIMIT|
00001860: 41 54 49 4F 4E 00 89 58  61 03 8B 41 24 B2 C7 28  |ATION..Xa..A$..(|
00001870: 31 33 29 B0 41 24 B2 C7  28 32 30 29 B0 41 24 B2  |13).A$..(20).A$.|
00001880: C7 28 33 32 29 A7 38 37  35 00 A4 58 66 03 8B 41  |.(32).875..Xf..A|
00001890: 24 B3 C7 28 33 35 29 B0  41 24 B1 C7 28 39 33 29  |$..(35).A$..(93)|
000018A0: A7 38 34 30 00 BB 58 6B  03 8B 41 24 B2 C7 28 31  |.840..Xk..A$..(1|
000018B0: 33 29 A7 99 C7 28 33 32  29 3A 8E 00 CB 58 70 03  |3)...(32):...Xp.|
000018C0: 99 C7 28 31 34 33 29 AA  41 24 3B 00 F9 58 75 03  |..(143).A$;..Xu.|
000018D0: 42 24 B2 42 24 AA 41 24  3A 4C B2 C3 28 42 24 29  |B$.B$.A$:L..(B$)|
000018E0: 3A 8B 45 45 B2 31 AF 42  24 B2 22 45 58 49 54 22  |:.EE.1.B$."EXIT"|
000018F0: A7 99 C7 28 33 32 29 3A  8E 00 14 59 7A 03 8B 41  |...(32):...Yz..A|
00001900: 24 B2 C7 28 32 30 29 A7  42 24 B2 C8 28 42 24 2C  |$..(20).B$..(B$,|
00001910: 4C AB 32 29 00 1D 59 7F  03 89 38 34 30 00 3F 59  |L.2)..Y...840.?Y|
00001920: 84 03 8B 45 45 B2 31 AF  42 24 B3 B1 22 45 4E 44  |...EE.1.B$.."END|
00001930: 22 A7 8B 41 24 B2 C7 28  31 33 29 A7 38 34 30 00  |"..A$..(13).840.|
00001940: 69 59 89 03 8F 20 2A 2A  2A 20 53 45 54 20 43 4F  |iY... *** SET CO|
00001950: 4C 4F 52 20 26 20 53 49  5A 45 20 4F 46 20 57 49  |LOR & SIZE OF WI|
00001960: 4E 44 4F 57 53 20 2A 2A  2A 00 8F 59 8E 03 99 59  |NDOWS ***..Y...Y|
00001970: 45 4C 24 3A 58 31 B2 33  35 3A 59 31 B2 31 3A 58  |EL$:X1.35:Y1.1:X|
00001980: 32 B2 37 35 3A 59 32 B2  32 33 3A 89 39 33 35 00  |2.75:Y2.23:.935.|
00001990: B6 59 93 03 99 59 45 4C  24 3A 58 31 B2 34 30 3A  |.Y...YEL$:X1.40:|
000019A0: 59 31 B2 31 30 3A 58 32  B2 36 37 3A 59 32 B2 31  |Y1.10:X2.67:Y2.1|
000019B0: 32 3A 89 39 33 35 00 DC  59 98 03 99 59 45 4C 24  |2:.935..Y...YEL$|
000019C0: 3A 58 31 B2 33 35 3A 59  31 B2 33 3A 58 32 B2 37  |:X1.35:Y1.3:X2.7|
000019D0: 30 3A 59 32 B2 31 39 3A  89 39 33 35 00 02 5A 9D  |0:Y2.19:.935..Z.|
000019E0: 03 99 43 59 4E 24 3A 58  31 B2 33 37 3A 59 31 B2  |..CYN$:X1.37:Y1.|
000019F0: 34 3A 58 32 B2 37 32 3A  59 32 B2 32 30 3A 89 39  |4:X2.72:Y2.20:.9|
00001A00: 33 35 00 28 5A A2 03 99  47 52 4E 24 3A 58 31 B2  |35.(Z...GRN$:X1.|
00001A10: 33 39 3A 59 31 B2 35 3A  58 32 B2 37 34 3A 59 32  |39:Y1.5:X2.74:Y2|
00001A20: B2 32 31 3A 89 39 33 35  00 4D 5A A7 03 8F 20 2A  |.21:.935.MZ... *|
00001A30: 2A 2A 20 57 49 4E 44 4F  57 20 57 49 54 48 20 42  |** WINDOW WITH B|
00001A40: 4F 52 44 45 52 20 53 2F  52 20 2A 2A 2A 00 6A 5A  |ORDER S/R ***.jZ|
00001A50: AC 03 FE 1A 20 58 31 2C  59 31 2C 58 32 2C 59 32  |.... X1,Y1,X2,Y2|
00001A60: 3A 99 C7 28 32 37 29 22  4D 22 00 7E 5A B1 03 58  |:..(27)"M".~Z..X|
00001A70: B2 CE 09 28 31 29 3A 59  B2 CE 09 28 30 29 00 A5  |...(1):Y...(0)..|
00001A80: 5A B6 03 42 54 24 B2 22  22 3A 81 43 4F 4C B2 31  |Z..BT$."":.COL.1|
00001A90: A4 58 AB 31 3A 42 54 24  B2 42 54 24 AA C7 28 31  |.X.1:BT$.BT$..(1|
00001AA0: 37 35 29 3A 82 00 CC 5A  BB 03 54 50 24 B2 22 22  |75):...Z..TP$.""|
00001AB0: 3A 81 43 4F 4C B2 31 A4  58 AB 31 3A 54 50 24 B2  |:.COL.1.X.1:TP$.|
00001AC0: 54 50 24 AA C7 28 31 38  33 29 3A 82 00 E9 5A C0  |TP$..(183):...Z.|
00001AD0: 03 99 C7 28 31 34 37 29  C7 28 31 31 31 29 3B 54  |...(147).(111);T|
00001AE0: 50 24 3B C7 28 31 31 32  29 00 0F 5B C5 03 81 52  |P$;.(112)..[...R|
00001AF0: 4F 57 B2 31 A4 59 AB 31  3A 99 C7 28 31 38 30 29  |OW.1.Y.1:..(180)|
00001B00: 3B A6 58 AB 31 29 3B C7  28 31 37 30 29 3A 82 00  |;.X.1);.(170):..|
00001B10: 2D 5B CA 03 99 C7 28 31  30 38 29 3B 42 54 24 3B  |-[....(108);BT$;|
00001B20: C7 28 31 38 36 29 3B 3A  99 3A 99 3A 8E 00 00 00  |.(186);:.:.:....|

.@.@...N.(2).80.100.R@...G(142)"........
.. THIS PROGRAM IS FOR 80 COLUMN MONITOR
S".@...".   IF YOU HAVE AN 80 COLUMN MO
NITOR,"..@..."CHANGE IT TO 80 COLUMNS AN
D PRESS SPACE".M@(..".               -- 
OR --..@2..".PRESS [RETURN] TO RETURN TO
 LOADSTAR 128"..A<.A.B(212):.A..1.A..60.
60.(AF..A.60.100.PAP.. "128 MENU" . "128
 MENU":.DS..63....AU..0:."............. 
     RETURNING TO LOADSTAR 128..."..AZ..
 "128 MENU"..AD..5,1:.6,1..AI.YEL$.G(158
):RED$.G(28):BLU$.G(31):GRN$.G(153):CYN$
.G(159)..BN.SO$.G(18)."** SELECT ONE **"
.G(146).?BS.PT$.G(15).G(95).G(143):TP.1:
VM.1:. MS$(100).WBX...0,0,79,24,1:.YEL$G
(146):.1,7,2,"*** MENU ***":.:...B}...1)
;RED$;"1. ";CYN$;"LOAD SONG FROM DISK".U
B...:..1);RED$;"2. ";CYN$;"SAVE SONG TO 
DISK"..C...:..1);RED$;"3. ";CYN$;"START 
A SONG ENTRY".4C...:..1);RED$;"4. ";CYN$
;"ADD NOTES TO SONG".IC...:..1);RED$;"5.
 ";CYN$;"RE-WRITE A SONG MEASURE"..C...:
..1);RED$;"6. ";CYN$;"SET FILTER".FC...:
..1);RED$;"7. ";CYN$;"CHANGE VOICE PARAM
ETERS"..C ..:..1);RED$;"8. ";CYN$;"SET N
EW ENVELOPE"..D...:..1);RED$;"9. ";CYN$;
"PLAYBACK SONG".MD...:.YEL$.1)"PRESS 'ES
C' TO RETURN TO MENU".ED...GRN$:.1,5,24,
SO$,1..D.... A$:.A$.G(27).."........".22
)"CHANGE YOUR MONITOR TO 40 COLUMNS!":.8
0.MD..A.F(A$).48:.A.1.A.9.175..D...A.185
,255,330,500,620,555,525,730,675..E...  
*** LOAD A SONG FROM DISK ***.1E...1,25,
2.2.A,PT$.\EC..920:.RED$.5)"LOAD A SONG 
FROM DISK":...EH..YEL$.5)"ENTER NAME OF 
SONG...":...EM...5);:.830:NS$.B$..ER...#
2,(NS$).IEW..:..5)CYN$"LOADING '";NS$;"'
"..E...2,MM,TP,VM,SE,NR..E...2,CF,LP,BP,
HP,RES..F... SE.0 .240.AF...L.1.NR:.2,EV
(L),AT(L),DY(L),SN(L),RL(L),WF(L),PW(L):
..XF...K.1.3:.2,VO$(K):..PF...I.1.MM:.2,
MS$(I):..~F....#2:.120..F... *** SAVE A 
SONG FILE TO DISK ***..F...1,25,2.2.A,PT
$..F...920:.RED$.5)"SAVE A SONG TO DISK"
:...G...YEL$.5)"ENTER NAME OF SONG...":.
.(G....5);:.830:NS$.B$:CR$.G(13).YG...MM
.0..GRN$:..5)"NO FILE IN MEMORY":..2:.12
0.NG....#2,"@".(NS$),W..G"..:..5)CYN$"SA
VING '";NS$;"'"..G'..2,MM;CR$;TP;CR$;VM;
CR$;SE;CR$;NR..G,..2,CF;CR$;LP;CR$;BP;CR
$;HP;CR$;RES..G1.. SE.0 .315.?H6..L.1.NR
:.2,EV(L);CR$;AT(L);CR$;DY(L);CR$;SN(L);
CR$;RL(L);CR$;WF(L);CR$;PW(L):..VH;..K.1
.3:.2,VO$(K):..NH@..I.1.MM:.2,MS$(I):..|
HE...#2:.120..HJ.. *** START A NEW SONG 
ENTRY ***..HO..1,25,2.2.A,PT$..HT..920:.
.9)RED$"START A SONG ENTRY":...IY...1)YE
L$"1. USE DEFAULT VOICE PARAMETERS"..I^.
..6)"(PIANO WITH NO FILTER)":..VIC...1)"
2. SET NEW VOICE PARAMETERS":..LIH..GRN$
:.1,10,9,SO$..IM... A$:A.F(A$).48:.A.1.A
.2.365..IR..A.375,405..IW..1,33,1.2.A,PT
$:.925..I|.VO$(1)."V1 T0 X0":VO$(2)."V2 
T0 X0":VO$(3)."V3 T0 X0"..J.... VO$(1):.
. VO$(2):.. VO$(3).;J...RED$.5)"DEFAULT 
VOICE PARAMETERS":..NJ...I.1.3:.GRN$;.5)
"'PLAY' STR$("I")= "VO$(I):.:..|J....2: 
.450..J... *** SET NEW VOICE PARAMETERS 
***..J...1,33,2.2.A,PT$..J...925:..3)"SE
T NEW VOICE PARAMETERS":...K...I.1.3:..3
)"VOICE"I"ENVELOPE #(0-9)... ";:.830:T$.
B$.OK....3)"VOICE"I"FILTER ON/OFF(1/0)..
. ";:.830:F$.B$..K..VO$(I)."":VO$(I)."V"
.I(D(I),1)." "."T".T$." X".F$..K...GRN$;
.3)"'PLAY' STR$("I") = "VO$(I):.CYN$:...
K.... VO$(1):.. VO$(2):.. VO$(3):..2..K.
.. *** SET VOLUME & TEMPO ***.)LB..930:.
.5)RED$"SET VOLUME AND TEMPO":.:..CLG...
2)YEL$"SET VOLUME (0-15)... ";:.830:VM.E
(B$):. VM:...LL...2)"SET TEMPO (0-255)..
. ";:.830:TP.E(B$):.. TP..LQ.. FL.1 . FL
.0:.120.VLV...2:..0,0,79,24,1:..19,4,60,
20:I.1..M...:.RED$G(147).10)"*** ENTER A
 NEW SONG ***":../M...CYN$.15)"ENTER MEA
SURE "I:.:.YEL$.PM...".ENTER .END. TO EN
D ENTRY".CM...830:MS$(I).B$.ZM..I.I.1:. 
. B$."END"..M..MM.I.2:.120..M... *** ADD
 NOTES TO A SONG ***..M...1,25,2.2.A..M.
...0,0,79,24,1:.. 9,4,60,20..N...MM.0. .
.15)G(15)"THERE IS NO SONG IN MEMORY"G(1
43):..3:.120.,N..I.MM.1:.475.SN... *** S
ET NEW VOICE PARAMETERS ***.LN...1,28,2.
2.A,PT$:.920..N...RED$.5)"SET NEW VOICE 
PARAMETERS":...N....7)YEL$"VOICE PARAMET
ERS ARE:"..N!..K.1.3:..8)GRN$"VO$("K") =
 "VO$(K):...N&...3:FL.1:.415..O+.. *** S
ET FILTER ***.!O0..1,20,2.2.A,PT$.BO5..9
20:.RED$.10)"SET FILTER":..{O:..YEL$.1)"
CUTOFF FREQ (0-2047)?... ";:.830:CF.E(B$
):...O?...1)"L/P FILTER (ON-1;OFF-0)?...
 ";:.830:LP.E(B$):...OD...1)"B/P FILTER 
(ON-1;OFF-0)?... ";:.830:BP.E(B$):..#PI.
..1)"H/P FILTER (ON-1;OFF-0)?... ";:.830
:HP.E(B$):..UPN...1)"RESONANCE (0-15)?..
. ";:.830:RES.E(B$):...PS..GRN$.3)"FILTE
R"CF","LP","BP","HP","RES..PX... CF,LP,B
P,HP,RES..P]...3:.925..QB..CYN$.3)"YOU M
UST TURN ON FILTER FOR":..3)"VOICE USING
 ENVELOPE"EV;"USING":..3)"OPTION 7. DON'
T FORGET!!!"."QG... 4:.120.HQL.. *** RE-
WRITE A SONG MEASURE ***.SQQ..1,25,2.2.A
:..0,0,79,24,1:..19,4,60,20..QV..MM.0..G
RN$G(15).5)"THERE IS NO SONG IN MEMORY"G
(143):..3:.120..Q{...5)GRN$"THE HIGHEST 
NUMBERED MEASURE IS "MM:...R....10)RED$"
EDIT A SONG MEASURE":..;R....10)"ENTER M
EASURE #... ";:.830:I.E(B$).OR.... 19,4,
60,20,1..R...CYN$.5)"THE NOTE STR$ FOR M
EASURE"I"IS:":.MS$(I):...R...YEL$.5)"ENT
ER NEW NOTE STR$...":..AR...830:MS$(I).B
$.JR...120..R... *** PLAYBACK SONG ***..
R...1,22,2.2.A,PT$.4S...915:.MM.0. ..1)"
THERE IS NO SONG IN MEMORY":..3:.120.PS.
...1)"PLAYING '";NS$;"'".AS... SE.0 . 70
5..S... K.1 . NR:.. EV(K),AT(K),DY(K),SN
(K),RL(K),WF(K),PW(K):...SA... CF,LP,BP,
HP,RES.ESF.. VM:.. TP..SK..K.1.3:.. VO$(
K):...SP..I.1.MM:.. MS$(I):...SU..120..T
Z.. *** SET NEW ENVELOPE ***.0T...1,25,2
.2.A,PT$.CT...920:.GRN$.1)"YOU CAN CHANG
E DEFAULT SETTINGS"..T....7)"ON UP TO 3 
ENVELOPES".CT...:.CYN$.1)"ENTER HOW MANY
... ";:.830:NR.E(B$):.NR.1.NR.3.740.QT..
.. 2:SE.1..T...K.1 . NR:.925:.RED$.8)"SE
T NEW ENVELOPE".<U...YEL$.1)"ENVELOPE # 
(0-9)? ....... ";:.830:EV(K).E(B$):..UU.
...1)"ATTACK RATE (0-15)? ..... ";:.830:
AT(K).E(B$):...U....1)"DECAY RATE (0-15)
? ...... ";:.830:DY(K).E(B$):...U....1)"
SUSTAIN LEVEL (0-15)? ... ";:.830:SN(K).
E(B$):.. V....1)"RELEASE RATE (0-15)? ..
.. ";:.830:RL(K).E(B$):..PV...GRN$.1)"W/
F (0=TRI - 1=SAW TOOTH - 2=SQR)"..V...YE
L$.1)"WAVE FORM (0-2)? ........ ";:.830:
WF(K).E(B$):.:.WF(K).2.PW(K).0:.805.ZV .
..1)"PULSE WIDTH (0-4095)? ... ";:.830:P
W(K).E(B$)..V%... 2:.:..2:.930..W*..RED$
.9)"THE NEW ENVELOPES":..ZW/.. K.1 . NR:
.GRN$.1)"ENVELOPE"EV(K)","AT(K)","DY(K)"
,"SN(K)","RL(K)",".TW4...1)WF(K)","PW(K)
:.:...W9..1,10,15,"PRESS ANY KEY",1:.. A
$:.120..W>.. *** INPUT SUB-ROUTINE ***.V
WC.B$."":A$."":FM..(1)..WH..A$..WM..G(15
)G(164)G(157);..XR..A$.G(27).120.4XW..B$
."".A$.G(13).B$.G(143)."-":.B$;:.865.EX\
..A$.",".A$.":".A$.";".840:. PUNCT LIMIT
ATION..XA..A$.G(13).A$.G(20).A$.G(32).87
5..XF..A$.G(35).A$.G(93).840..XK..A$.G(1
3)..G(32):..KXP..G(143).A$;..XU.B$.B$.A$
:L.C(B$):.EE.1.B$."EXIT"..G(32):...YZ..A
$.G(20).B$.H(B$,L.2)..Y..840.?Y...EE.1.
B$.."END"..A$.G(13).840.IY... *** SET CO
LOR & SIZE OF WINDOWS ***..Y...YEL$:X1.3
5:Y1.1:X2.75:Y2.23:.935..Y...YEL$:X1.40:
Y1.10:X2.67:Y2.12:.935..Y...YEL$:X1.35:Y
1.3:X2.70:Y2.19:.935..Z...CYN$:X1.37:Y1.
4:X2.72:Y2.20:.935.(Z...GRN$:X1.39:Y1.5:
X2.74:Y2.21:.935.MZ... *** WINDOW WITH B
ORDER S/R ***.JZ.... X1,Y1,X2,Y2:.G(27)"
M".~Z..X.N.(1):Y.N.(0)..Z..BT$."":.COL.1
.X.1:BT$.BT$.G(175):..LZ..TP$."":.COL.1.
X.1:TP$.TP$.G(183):...Z...G(147)G(111);T
P$;G(112)..[E..ROW.1.Y.1:.G(180);.X.1);G
(170):..-[J..G(108);BT$;G(186);:.:.:....

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL