MIDIBASIC.ASS

00000000: D8 1F E6 1F 0A 00 2E 42  41 20 24 38 30 30 30 00  |.......BA $8000.|
00000010: F5 1F 14 00 3B 2E 4C 49  20 33 2C 34 2C 30 00 04  |....;.LI 3,4,0..|
00000020: 20 1E 00 3B 2E 53 59 20  33 2C 34 2C 30 00 20 20  | ..;.SY 3,4,0.  |
00000030: 28 00 3B 2E 4F 42 22 4D  49 44 49 42 41 53 49 43  |(.;.OB"MIDIBASIC|
00000040: 2E 45 58 45 2C 50 2C 57  22 00 26 20 32 00 3B 00  |.EXE,P,W".& 2.;.|
00000050: 49 20 3C 00 3B 20 20 20  20 B0 C0 C0 C0 C0 C0 C0  |I <.;    .......|
00000060: C0 C0 C0 C0 C0 C0 C0 C0  C0 C0 C0 C0 C0 C0 C0 C0  |................|
00000070: C0 AE 00 6C 20 46 00 3B  20 20 20 20 DD 3E 3E 20  |...l F.;    .>> |
00000080: 4D 20 49 20 44 20 49 20  42 20 41 20 53 20 49 20  |M I D I B A S I |
00000090: 43 20 3C 3C DD 00 8F 20  50 00 3B 20 20 20 20 AB  |C <<... P.;    .|
000000A0: C0 C0 C0 C0 C0 C0 C0 C0  C0 C0 C0 C0 C0 C0 C0 C0  |................|
000000B0: C0 C0 C0 C0 C0 C0 C0 B3  00 B2 20 5A 00 3B 20 20  |.......... Z.;  |
000000C0: 20 20 DD 2D 3E 20 20 50  52 4F 47 52 41 4D 4D 45  |  .->  PROGRAMME|
000000D0: 44 20 31 39 39 30 20 20  3C 2D DD 00 D5 20 64 00  |D 1990  <-... d.|
000000E0: 3B 20 20 20 20 DD 2D 3E  20 42 59 20 20 52 41 49  |;    .-> BY  RAI|
000000F0: 4E 45 52 20 42 55 43 48  54 59 20 3C 2D DD 00 F8  |NER BUCHTY <-...|
00000100: 20 6E 00 3B 20 20 20 20  AD C0 C0 C0 C0 C0 C0 C0  | n.;    ........|
00000110: C0 C0 C0 C0 C0 C0 C0 C0  C0 C0 C0 C0 C0 C0 C0 C0  |................|
00000120: BD 00 FE 20 78 00 3B 00  17 21 82 00 3B 2A 2A 2A  |... x.;..!..;***|
00000130: 20 44 45 43 4C 41 52 41  54 49 4F 4E 20 2A 2A 2A  | DECLARATION ***|
00000140: 00 1D 21 8C 00 3B 00 34  21 96 00 2E 45 51 20 43  |..!..;.4!...EQ C|
00000150: 48 4B 43 4F 4D 20 3D 20  24 41 45 46 44 00 4B 21  |HKCOM = $AEFD.K!|
00000160: A0 00 2E 45 51 20 47 45  54 42 59 54 20 3D 20 24  |...EQ GETBYT = $|
00000170: 42 37 39 45 00 62 21 AA  00 2E 45 51 20 50 55 54  |B79E.b!...EQ PUT|
00000180: 43 48 52 20 3D 20 24 45  37 31 36 00 79 21 B4 00  |CHR = $E716.y!..|
00000190: 2E 45 51 20 53 54 52 4F  55 54 20 3D 20 24 41 42  |.EQ STROUT = $AB|
000001A0: 31 45 00 91 21 BE 00 2E  45 51 20 42 31 20 20 20  |1E..!...EQ B1   |
000001B0: 20 20 3D 20 42 55 46 46  45 52 00 AB 21 C8 00 2E  |  = BUFFER..!...|
000001C0: 45 51 20 42 32 20 20 20  20 20 3D 20 42 55 46 46  |EQ B2     = BUFF|
000001D0: 45 52 2B 31 00 C5 21 D2  00 2E 45 51 20 42 33 20  |ER+1..!...EQ B3 |
000001E0: 20 20 20 20 3D 20 42 55  46 46 45 52 2B 32 00 DF  |    = BUFFER+2..|
000001F0: 21 DC 00 2E 45 51 20 42  34 20 20 20 20 20 3D 20  |!...EQ B4     = |
00000200: 42 55 46 46 45 52 2B 33  00 F4 21 E6 00 2E 45 51  |BUFFER+3..!...EQ|
00000210: 20 4D 42 50 20 20 20 20  3D 20 24 46 42 00 09 22  | MBP    = $FB.."|
00000220: F0 00 2E 45 51 20 52 42  50 20 20 20 20 3D 20 24  |...EQ RBP    = $|
00000230: 46 44 00 0F 22 FA 00 3B  00 35 22 04 01 2E 57 4F  |FD.."..;.5"...WO|
00000240: 20 52 45 53 43 42 4D 2C  53 45 54 4B 45 59 20 20  | RESCBM,SETKEY  |
00000250: 20 20 20 20 20 20 3B 56  45 43 54 4F 52 53 00 59  |      ;VECTORS.Y|
00000260: 22 0E 01 2E 42 59 20 24  43 33 2C 24 43 32 2C 24  |"...BY $C3,$C2,$|
00000270: 43 44 2C 24 33 38 2C 24  33 30 20 20 3B 43 42 4D  |CD,$38,$30  ;CBM|
00000280: 38 30 00 5F 22 18 01 3B  00 7B 22 22 01 3B 2A 2A  |80._"..;.{"".;**|
00000290: 2A 20 52 45 53 45 54 20  2B 20 43 4F 44 49 4E 47  |* RESET + CODING|
000002A0: 20 2A 2A 2A 00 81 22 2C  01 3B 00 95 22 36 01 53  | ***..",.;.."6.S|
000002B0: 45 54 4B 4F 4E 20 4A 4D  50 24 46 45 37 32 00 AE  |ETKON JMP$FE72..|
000002C0: 22 40 01 53 45 54 4B 45  59 20 4A 53 52 24 46 36  |"@.SETKEY JSR$F6|
000002D0: 42 43 3B 43 4F 50 59 00  C0 22 4A 01 20 4A 53 52  |BC;COPY.."J. JSR|
000002E0: 24 46 46 45 31 3B 20 4F  46 00 D5 22 54 01 20 42  |$FFE1; OF.."T. B|
000002F0: 4E 45 53 45 54 4B 4F 4E  3B 20 52 4F 4D 2D 00 E8  |NESETKON; ROM-..|
00000300: 22 5E 01 20 4A 53 52 24  46 44 31 35 3B 20 4E 4D  |"^. JSR$FD15; NM|
00000310: 49 00 F6 22 68 01 20 4A  53 52 24 46 44 41 33 00  |I.."h. JSR$FDA3.|
00000320: 04 23 72 01 20 4A 53 52  24 45 35 31 38 00 0D 23  |.#r. JSR$E518..#|
00000330: 7C 01 20 53 45 49 00 22  23 86 01 20 4C 44 41 45  ||. SEI."#.. LDAE|
00000340: 4E 44 49 52 51 2B 31 3B  53 45 54 00 3B 23 90 01  |NDIRQ+1;SET.;#..|
00000350: 20 4C 44 59 45 4E 44 49  52 51 2B 32 3B 20 53 45  | LDYENDIRQ+2; SE|
00000360: 43 4F 4E 44 00 4A 23 9A  01 20 4C 44 58 23 33 3B  |COND.J#.. LDX#3;|
00000370: 20 49 52 00 5D 23 A4 01  20 53 54 41 24 30 33 31  | IR.]#.. STA$031|
00000380: 34 3B 20 41 4E 44 00 72  23 AE 01 20 53 54 59 24  |4; AND.r#.. STY$|
00000390: 30 33 31 35 3B 20 52 45  53 45 54 00 86 23 B8 01  |0315; RESET..#..|
000003A0: 20 53 54 58 24 44 45 30  34 3B 20 41 43 49 41 00  | STX$DE04; ACIA.|
000003B0: 95 23 C2 01 20 53 54 58  4D 44 49 4D 44 45 00 9E  |.#.. STXMDIMDE..|
000003C0: 23 CC 01 20 43 4C 49 00  B1 23 D6 01 20 4C 44 41  |#.. CLI..#.. LDA|
000003D0: 53 43 52 45 45 4E 3B 53  45 54 00 CA 23 E0 01 20  |SCREEN;SET..#.. |
000003E0: 4C 44 58 53 43 52 45 45  4E 2B 31 3B 20 43 4F 4C  |LDXSCREEN+1; COL|
000003F0: 4F 52 53 00 DB 23 EA 01  20 4C 44 59 53 43 52 45  |ORS..#.. LDYSCRE|
00000400: 45 4E 2B 32 00 E9 23 F4  01 20 53 54 41 35 33 32  |EN+2..#.. STA532|
00000410: 38 30 00 F7 23 FE 01 20  53 54 58 35 33 32 38 31  |80..#.. STX53281|
00000420: 00 03 24 08 02 20 53 54  59 36 34 36 00 11 24 12  |..$.. STY646..$.|
00000430: 02 20 4C 44 41 52 50 54  2B 31 00 1D 24 1C 02 20  |. LDARPT+1..$.. |
00000440: 53 54 41 36 35 30 00 32  24 26 02 20 4A 4D 50 24  |STA650.2$&. JMP$|
00000450: 45 33 37 42 3B 49 45 52  52 4F 52 00 38 24 30 02  |E37B;IERROR.8$0.|
00000460: 3B 00 47 24 3A 02 57 53  20 4C 44 41 23 24 33 36  |;.G$:.WS LDA#$36|
00000470: 00 53 24 44 02 20 53 54  41 24 30 31 00 64 24 4E  |.S$D. STA$01.d$N|
00000480: 02 20 4A 4D 50 24 45 33  38 42 3B 57 53 00 6A 24  |. JMP$E38B;WS.j$|
00000490: 58 02 3B 00 86 24 62 02  52 45 53 43 42 4D 20 4A  |X.;..$b.RESCBM J|
000004A0: 53 52 24 46 44 35 30 3B  52 41 4D 49 4E 49 54 00  |SR$FD50;RAMINIT.|
000004B0: 9A 24 6C 02 20 4A 53 52  24 46 44 31 35 3B 49 4F  |.$l. JSR$FD15;IO|
000004C0: 52 45 53 00 B0 24 76 02  20 4A 53 52 24 46 44 41  |RES..$v. JSR$FDA|
000004D0: 33 3B 49 52 51 49 4E 49  54 00 C5 24 80 02 20 4A  |3;IRQINIT..$.. J|
000004E0: 53 52 24 46 46 35 42 3B  56 49 43 52 45 53 00 CE  |SR$FF5B;VICRES..|
000004F0: 24 8A 02 20 43 4C 49 00  E4 24 94 02 20 4A 53 52  |$.. CLI..$.. JSR|
00000500: 24 45 33 42 46 3B 42 41  53 49 4E 49 54 00 EF 24  |$E3BF;BASINIT..$|
00000510: 9E 02 20 4C 44 59 23 30  00 04 25 A8 02 20 53 54  |.. LDY#0..%.. ST|
00000520: 59 24 30 32 38 33 3B 42  41 53 45 4E 44 00 10 25  |Y$0283;BASEND..%|
00000530: B2 02 20 53 54 59 24 46  42 00 23 25 BC 02 20 53  |.. STY$FB.#%.. S|
00000540: 54 59 24 33 37 3B 42 41  53 45 4E 44 00 36 25 C6  |TY$37;BASEND.6%.|
00000550: 02 20 4C 44 41 53 43 52  45 45 4E 3B 53 45 54 00  |. LDASCREEN;SET.|
00000560: 4C 25 D0 02 20 53 54 41  35 33 32 38 30 3B 20 43  |L%.. STA53280; C|
00000570: 4F 4C 4F 52 53 00 5D 25  DA 02 20 4C 44 41 53 43  |OLORS.]%.. LDASC|
00000580: 52 45 45 4E 2B 31 00 6B  25 E4 02 20 53 54 41 35  |REEN+1.k%.. STA5|
00000590: 33 32 38 31 00 7C 25 EE  02 20 4C 44 41 53 43 52  |3281.|%.. LDASCR|
000005A0: 45 45 4E 2B 32 00 88 25  F8 02 20 53 54 41 36 34  |EEN+2..%.. STA64|
000005B0: 36 00 9A 25 02 03 20 4C  44 41 23 24 41 30 3B 43  |6..%.. LDA#$A0;C|
000005C0: 4F 50 59 00 AB 25 0C 03  20 53 54 41 24 46 43 3B  |OPY..%.. STA$FC;|
000005D0: 20 52 4F 4D 00 BC 25 16  03 20 4C 44 58 23 24 32  | ROM..%.. LDX#$2|
000005E0: 30 3B 20 54 4F 00 D7 25  20 03 52 4F 4D 43 50 59  |0; TO..% .ROMCPY|
000005F0: 20 4C 44 41 28 24 46 42  29 2C 59 3B 20 52 41 4D  | LDA($FB),Y; RAM|
00000600: 00 E7 25 2A 03 20 53 54  41 28 24 46 42 29 2C 59  |..%*. STA($FB),Y|
00000610: 00 F0 25 34 03 20 44 45  59 00 FF 25 3E 03 20 42  |..%4. DEY..%>. B|
00000620: 4E 45 52 4F 4D 43 50 59  00 0B 26 48 03 20 49 4E  |NEROMCPY..&H. IN|
00000630: 43 24 46 43 00 14 26 52  03 20 44 45 58 00 23 26  |C$FC..&R. DEX.#&|
00000640: 5C 03 20 42 4E 45 52 4F  4D 43 50 59 00 37 26 66  |\. BNEROMCPY.7&f|
00000650: 03 20 4C 44 41 23 24 33  36 3B 45 4E 41 42 4C 45  |. LDA#$36;ENABLE|
00000660: 00 48 26 70 03 20 53 54  41 24 30 31 3B 20 52 41  |.H&p. STA$01; RA|
00000670: 4D 00 5C 26 7A 03 20 4C  44 41 23 24 38 30 3B 42  |M.\&z. LDA#$80;B|
00000680: 41 53 45 4E 44 00 6E 26  84 03 20 53 54 41 24 33  |ASEND.n&.. STA$3|
00000690: 38 3B 20 48 49 47 48 00  7C 26 8E 03 20 53 54 41  |8; HIGH.|&.. STA|
000006A0: 24 30 32 38 34 00 91 26  98 03 20 53 54 41 24 41  |$0284..&.. STA$A|
000006B0: 36 30 36 3B 4D 4F 44 49  46 59 00 A5 26 A2 03 20  |606;MODIFY..&.. |
000006C0: 4C 44 41 23 24 34 43 3B  20 42 41 53 49 43 00 B3  |LDA#$4C; BASIC..|
000006D0: 26 AC 03 20 53 54 41 24  41 36 30 34 00 C7 26 B6  |&.. STA$A604..&.|
000006E0: 03 20 4C 44 41 23 3C 28  42 45 46 43 4F 44 45 29  |. LDA#<(BEFCODE)|
000006F0: 00 D5 26 C0 03 20 53 54  41 24 41 36 30 35 00 E7  |..&.. STA$A605..|
00000700: 26 CA 03 20 4C 44 41 23  37 3B 4B 49 4C 4C 20 31  |&.. LDA#7;KILL 1|
00000710: 00 FC 26 D4 03 20 53 54  41 24 41 33 36 39 3B 20  |..&.. STA$A369; |
00000720: 53 50 41 43 45 00 0B 27  DE 03 20 4C 44 58 23 35  |SPACE..'.. LDX#5|
00000730: 3B 4E 45 57 00 28 27 E8  03 41 44 52 4C 4F 50 20  |;NEW.('..ADRLOP |
00000740: 4C 44 41 4E 45 57 41 44  52 2C 58 3B 20 4C 4F 41  |LDANEWADR,X; LOA|
00000750: 44 00 3E 27 F2 03 20 53  54 41 24 41 30 33 32 2C  |D.>'.. STA$A032,|
00000760: 58 3B 20 53 41 56 45 00  4F 27 FC 03 20 44 45 58  |X; SAVE.O'.. DEX|
00000770: 3B 20 56 45 52 49 46 2E  00 5E 27 06 04 20 42 50  |; VERIF..^'.. BP|
00000780: 4C 41 44 52 4C 4F 50 00  6E 27 10 04 52 50 54 20  |LADRLOP.n'..RPT |
00000790: 4C 44 41 23 31 32 38 00  7A 27 1A 04 20 53 54 41  |LDA#128.z'.. STA|
000007A0: 36 35 30 00 8E 27 24 04  20 4C 44 41 23 3C 28 45  |650..'$. LDA#<(E|
000007B0: 49 4E 54 45 58 54 29 00  A2 27 2E 04 20 4C 44 59  |INTEXT)..'.. LDY|
000007C0: 23 3E 28 45 49 4E 54 45  58 54 29 00 B8 27 38 04  |#>(EINTEXT)..'8.|
000007D0: 20 4A 53 52 24 45 34 32  44 3B 4D 45 53 53 41 47  | JSR$E42D;MESSAG|
000007E0: 45 00 CF 27 42 04 20 4A  53 52 43 50 59 56 45 43  |E..'B. JSRCPYVEC|
000007F0: 3B 56 45 43 54 4F 52 53  00 E3 27 4C 04 20 4A 53  |;VECTORS..'L. JS|
00000800: 52 41 55 53 3B 41 43 49  41 2B 49 52 00 F9 27 56  |RAUS;ACIA+IR..'V|
00000810: 04 20 4A 53 52 44 45 56  53 45 54 3B 44 45 56 49  |. JSRDEVSET;DEVI|
00000820: 43 45 00 0D 28 60 04 20  4A 4D 50 24 45 33 39 44  |CE..(`. JMP$E39D|
00000830: 3B 53 54 2B 57 53 00 2F  28 6A 04 4E 45 57 41 44  |;ST+WS./(j.NEWAD|
00000840: 52 20 2E 57 4F 4C 4F 41  44 2D 31 2C 53 41 56 45  |R .WOLOAD-1,SAVE|
00000850: 2D 31 2C 56 45 52 2D 31  00 35 28 74 04 3B 00 4F  |-1,VER-1.5(t.;.O|
00000860: 28 7E 04 43 50 59 56 45  43 20 4C 44 58 23 24 31  |(~.CPYVEC LDX#$1|
00000870: 32 3B 56 45 43 54 4F 52  00 6D 28 88 04 56 45 43  |2;VECTOR.m(..VEC|
00000880: 4C 4F 41 44 20 4C 44 41  56 45 43 54 41 42 2C 58  |LOAD LDAVECTAB,X|
00000890: 3B 20 43 4F 50 59 00 7D  28 92 04 20 53 54 41 24  |; COPY.}(.. STA$|
000008A0: 30 33 30 30 2C 58 00 86  28 9C 04 20 44 45 58 00  |0300,X..(.. DEX.|
000008B0: 96 28 A6 04 20 42 50 4C  56 45 43 4C 4F 41 44 00  |.(.. BPLVECLOAD.|
000008C0: 9F 28 B0 04 20 52 54 53  00 A5 28 BA 04 3B 00 BF  |.(.. RTS..(..;..|
000008D0: 28 C4 04 49 4C 49 4E 45  20 4C 44 41 23 24 33 36  |(..ILINE LDA#$36|
000008E0: 3B 49 4E 50 55 54 20 31  00 D3 28 CE 04 20 53 54  |;INPUT 1..(.. ST|
000008F0: 41 24 30 31 3B 20 42 41  53 49 43 2D 00 E7 28 D8  |A$01; BASIC-..(.|
00000900: 04 20 4A 4D 50 24 41 34  38 33 3B 20 4C 49 4E 45  |. JMP$A483; LINE|
00000910: 00 ED 28 E2 04 3B 00 05  29 EC 04 42 45 46 43 4F  |..(..;..)..BEFCO|
00000920: 44 45 20 4C 44 59 23 24  30 30 3B 45 4E 2D 00 19  |DE LDY#$00;EN-..|
00000930: 29 F6 04 20 53 54 59 24  30 42 3B 20 43 4F 44 49  |).. STY$0B; CODI|
00000940: 4E 47 00 2A 29 00 05 20  44 45 59 3B 20 4F 46 20  |NG.*).. DEY; OF |
00000950: 54 48 45 00 38 29 0A 05  20 44 45 58 3B 20 4E 45  |THE.8).. DEX; NE|
00000960: 57 00 4A 29 14 05 43 44  31 20 49 4E 59 3B 20 43  |W.J)..CD1 INY; C|
00000970: 4F 4D 2D 00 5A 29 1E 05  20 49 4E 58 3B 20 4D 41  |OM-.Z).. INX; MA|
00000980: 4E 44 53 00 6D 29 28 05  43 44 32 20 4C 44 41 24  |NDS.m)(.CD2 LDA$|
00000990: 30 32 30 30 2C 58 00 76  29 32 05 20 53 45 43 00  |0200,X.v)2. SEC.|
000009A0: 8E 29 3C 05 20 53 42 43  42 45 46 54 41 42 2C 59  |.)<. SBCBEFTAB,Y|
000009B0: 3B 53 45 41 52 43 48 00  9A 29 46 05 20 42 45 51  |;SEARCH..)F. BEQ|
000009C0: 43 44 31 00 AF 29 50 05  20 43 4D 50 23 24 38 30  |CD1..)P. CMP#$80|
000009D0: 3B 54 41 42 45 4E 44 3F  00 BB 29 5A 05 20 42 4E  |;TABEND?..)Z. BN|
000009E0: 45 43 44 33 00 C4 29 64  05 20 43 4C 43 00 D0 29  |ECD3..)d. CLC..)|
000009F0: 6E 05 20 4C 44 41 24 30  42 00 E1 29 78 05 20 41  |n. LDA$0B..)x. A|
00000A00: 44 43 23 24 43 43 3B 53  45 54 00 F6 29 82 05 20  |DC#$CC;SET..).. |
00000A10: 4A 4D 50 24 41 35 43 37  3B 20 54 4F 4B 45 4E 00  |JMP$A5C7; TOKEN.|
00000A20: 05 2A 8C 05 43 44 33 20  4C 44 58 24 37 41 00 11  |.*..CD3 LDX$7A..|
00000A30: 2A 96 05 20 49 4E 43 24  30 42 00 1D 2A A0 05 43  |*.. INC$0B..*..C|
00000A40: 44 34 20 49 4E 59 00 34  2A AA 05 20 4C 44 41 42  |D4 INY.4*.. LDAB|
00000A50: 45 46 54 41 42 2D 31 2C  59 3B 43 4D 44 00 46 2A  |EFTAB-1,Y;CMD.F*|
00000A60: B4 05 20 42 50 4C 43 44  34 3B 20 45 4E 44 3F 00  |.. BPLCD4; END?.|
00000A70: 5D 2A BE 05 20 4C 44 41  42 45 46 54 41 42 2C 59  |]*.. LDABEFTAB,Y|
00000A80: 3B 54 41 42 4C 45 00 6F  2A C8 05 20 42 4E 45 43  |;TABLE.o*.. BNEC|
00000A90: 44 32 3B 20 45 4E 44 3F  00 87 2A D2 05 20 4C 44  |D2; END?..*.. LD|
00000AA0: 41 24 30 32 30 30 2C 58  3B 42 41 43 4B 20 54 4F  |A$0200,X;BACK TO|
00000AB0: 00 9A 2A DC 05 20 4A 4D  50 24 41 36 30 37 3B 20  |..*.. JMP$A607; |
00000AC0: 52 4F 4D 00 A0 2A E6 05  3B 00 BA 2A F0 05 44 45  |ROM..*..;..*..DE|
00000AD0: 43 4F 44 45 20 42 4D 49  45 43 32 3B 44 45 43 4F  |CODE BMIEC2;DECO|
00000AE0: 44 45 53 00 CF 2A FA 05  45 43 31 20 4A 4D 50 24  |DES..*..EC1 JMP$|
00000AF0: 41 36 46 33 3B 4E 45 57  00 E6 2A 04 06 45 43 32  |A6F3;NEW..*..EC2|
00000B00: 20 43 4D 50 23 24 46 46  3B 54 4F 4B 45 4E 53 00  | CMP#$FF;TOKENS.|
00000B10: F2 2A 0E 06 20 42 45 51  45 43 31 00 FE 2A 18 06  |.*.. BEQEC1..*..|
00000B20: 20 42 49 54 24 30 46 00  0A 2B 22 06 20 42 4D 49  | BIT$0F..+". BMI|
00000B30: 45 43 31 00 1B 2B 2C 06  20 43 4D 50 23 24 43 43  |EC1..+,. CMP#$CC|
00000B40: 3B 4E 45 57 00 2F 2B 36  06 20 42 43 53 45 43 33  |;NEW./+6. BCSEC3|
00000B50: 3B 20 54 4F 4B 45 4E 3F  00 42 2B 40 06 20 4A 4D  |; TOKEN?.B+@. JM|
00000B60: 50 24 41 37 32 34 3B 4C  49 53 54 00 4E 2B 4A 06  |P$A724;LIST.N+J.|
00000B70: 45 43 33 20 53 45 43 00  5F 2B 54 06 20 53 42 43  |EC3 SEC._+T. SBC|
00000B80: 23 24 43 42 3B 47 45 54  00 6D 2B 5E 06 20 54 41  |#$CB;GET.m+^. TA|
00000B90: 58 3B 20 50 4F 53 00 7D  2B 68 06 20 53 54 59 24  |X; POS.}+h. STY$|
00000BA0: 34 39 3B 20 49 4E 00 91  2B 72 06 20 4C 44 59 23  |49; IN..+r. LDY#|
00000BB0: 24 46 46 3B 20 54 41 42  4C 45 00 9D 2B 7C 06 45  |$FF; TABLE..+|.E|
00000BC0: 43 34 20 44 45 58 00 A9  2B 86 06 20 42 45 51 45  |C4 DEX..+.. BEQE|
00000BD0: 43 36 00 B9 2B 90 06 45  43 35 20 49 4E 59 3B 47  |C6..+..EC5 INY;G|
00000BE0: 45 54 00 CF 2B 9A 06 20  4C 44 41 42 45 46 54 41  |ET..+.. LDABEFTA|
00000BF0: 42 2C 59 3B 20 43 4D 44  00 DF 2B A4 06 20 42 50  |B,Y; CMD..+.. BP|
00000C00: 4C 45 43 35 3B 43 4D 44  00 F1 2B AE 06 20 42 4D  |LEC5;CMD..+.. BM|
00000C10: 49 45 43 34 3B 20 45 4E  44 3F 00 FD 2B B8 06 45  |IEC4; END?..+..E|
00000C20: 43 36 20 49 4E 59 00 0E  2C C2 06 20 4C 44 41 42  |C6 INY..,.. LDAB|
00000C30: 45 46 54 41 42 2C 59 00  1A 2C CC 06 20 42 50 4C  |EFTAB,Y..,.. BPL|
00000C40: 45 43 37 00 2F 2C D6 06  20 4A 4D 50 24 41 36 45  |EC7./,.. JMP$A6E|
00000C50: 46 3B 43 48 52 4F 55 54  00 44 2C E0 06 45 43 37  |F;CHROUT.D,..EC7|
00000C60: 20 4A 53 52 24 41 42 34  37 3B 45 4E 44 00 50 2C  | JSR$AB47;END.P,|
00000C70: EA 06 20 42 4E 45 45 43  36 00 56 2C F4 06 3B 00  |.. BNEEC6.V,..;.|
00000C80: 6F 2C FE 06 47 45 54 41  44 44 52 20 4A 53 52 24  |o,..GETADDR JSR$|
00000C90: 30 30 37 33 3B 47 45 54  00 83 2C 08 07 20 4A 53  |0073;GET..,.. JS|
00000CA0: 52 54 41 31 3B 41 44 44  52 45 53 53 00 98 2C 12  |RTA1;ADDRESS..,.|
00000CB0: 07 20 4A 4D 50 24 41 37  41 45 3B 4F 46 20 54 48  |. JMP$A7AE;OF TH|
00000CC0: 45 00 AF 2C 1C 07 54 41  31 20 42 4E 45 54 41 32  |E..,..TA1 BNETA2|
00000CD0: 3B 4E 45 57 20 43 4D 44  00 B8 2C 26 07 20 52 54  |;NEW CMD..,&. RT|
00000CE0: 53 00 D0 2C 30 07 54 41  32 20 53 42 43 23 24 38  |S..,0.TA2 SBC#$8|
00000CF0: 30 3B 55 4E 53 48 49 46  54 00 DC 2C 3A 07 20 42  |0;UNSHIFT..,:. B|
00000D00: 43 43 54 41 34 00 ED 2C  44 07 20 43 4D 50 23 24  |CCTA4..,D. CMP#$|
00000D10: 34 43 3B 4E 45 57 00 01  2D 4E 07 20 42 43 53 54  |4C;NEW..-N. BCST|
00000D20: 41 36 3B 20 54 4F 4B 45  4E 3F 00 13 2D 58 07 20  |A6; TOKEN?..-X. |
00000D30: 43 4D 50 23 24 32 33 3B  47 4F 54 4F 00 1F 2D 62  |CMP#$23;GOTO..-b|
00000D40: 07 20 42 43 53 54 41 35  00 28 2D 6C 07 20 41 53  |. BCSTA5.(-l. AS|
00000D50: 4C 00 31 2D 76 07 20 54  41 59 00 49 2D 80 07 20  |L.1-v. TAY.I-.. |
00000D60: 4C 44 41 24 41 30 30 44  2C 59 3B 42 41 53 49 43  |LDA$A00D,Y;BASIC|
00000D70: 56 32 00 59 2D 8A 07 20  50 48 41 3B 20 54 41 42  |V2.Y-.. PHA; TAB|
00000D80: 4C 45 00 69 2D 94 07 20  4C 44 41 24 41 30 30 43  |LE.i-.. LDA$A00C|
00000D90: 2C 59 00 72 2D 9E 07 20  50 48 41 00 83 2D A8 07  |,Y.r-.. PHA..-..|
00000DA0: 54 41 33 20 4A 4D 50 24  30 30 37 33 00 98 2D B2  |TA3 JMP$0073..-.|
00000DB0: 07 54 41 34 20 4A 4D 50  24 41 39 41 35 3B 4C 45  |.TA4 JMP$A9A5;LE|
00000DC0: 54 00 AE 2D BC 07 54 41  35 20 4A 4D 50 24 41 38  |T..-..TA5 JMP$A8|
00000DD0: 30 45 3B 47 4F 54 4F 00  BA 2D C6 07 54 41 36 20  |0E;GOTO..-..TA6 |
00000DE0: 53 45 43 00 C7 2D D0 07  20 53 42 43 23 24 34 43  |SEC..-.. SBC#$4C|
00000DF0: 00 D0 2D DA 07 20 41 53  4C 00 D9 2D E4 07 20 54  |..-.. ASL..-.. T|
00000E00: 41 59 00 F3 2D EE 07 20  4C 44 41 42 45 46 41 44  |AY..-.. LDABEFAD|
00000E10: 52 2B 31 2C 59 3B 4D 42  41 53 49 43 00 03 2E F8  |R+1,Y;MBASIC....|
00000E20: 07 20 50 48 41 3B 20 54  41 42 4C 45 00 14 2E 02  |. PHA; TABLE....|
00000E30: 08 20 4C 44 41 42 45 46  41 44 52 2C 59 00 1D 2E  |. LDABEFADR,Y...|
00000E40: 0C 08 20 50 48 41 00 29  2E 16 08 20 4A 4D 50 54  |.. PHA.)... JMPT|
00000E50: 41 33 00 2F 2E 20 08 3B  00 49 2E 2A 08 3B 2A 2A  |A3./. .;.I.*.;**|
00000E60: 2A 20 4D 49 44 49 2D 53  55 50 50 4F 52 54 20 2A  |* MIDI-SUPPORT *|
00000E70: 2A 2A 00 4F 2E 34 08 3B  00 62 2E 3E 08 41 4E 20  |**.O.4.;.b.>.AN |
00000E80: 4C 44 41 23 33 3B 52 45  53 45 54 00 76 2E 48 08  |LDA#3;RESET.v.H.|
00000E90: 20 53 54 41 24 44 45 30  34 3B 20 36 38 35 30 00  | STA$DE04; 6850.|
00000EA0: 8A 2E 52 08 20 4C 44 41  23 24 39 32 3B 52 58 2D  |..R. LDA#$92;RX-|
00000EB0: 49 52 51 00 9C 2E 5C 08  20 53 54 41 24 44 45 30  |IRQ...\. STA$DE0|
00000EC0: 34 3B 20 4F 4E 00 AB 2E  66 08 20 53 54 41 4D 44  |4; ON...f. STAMD|
00000ED0: 49 4D 44 45 00 B8 2E 70  08 20 4C 44 41 23 24 30  |IMDE...p. LDA#$0|
00000EE0: 30 00 C5 2E 7A 08 20 4C  44 59 23 24 45 30 00 D5  |0...z. LDY#$E0..|
00000EF0: 2E 84 08 20 53 54 41 4D  42 50 3B 49 52 51 00 EB  |... STAMBP;IRQ..|
00000F00: 2E 8E 08 20 53 54 59 4D  42 50 2B 31 3B 20 42 55  |... STYMBP+1; BU|
00000F10: 46 46 45 52 00 FB 2E 98  08 20 53 54 41 52 42 50  |FFER..... STARBP|
00000F20: 3B 55 53 52 00 11 2F A2  08 20 53 54 59 52 42 50  |;USR../.. STYRBP|
00000F30: 2B 31 3B 20 42 55 46 46  45 52 00 1E 2F AC 08 20  |+1; BUFFER../.. |
00000F40: 53 45 49 3B 53 45 54 00  39 2F B6 08 20 4C 44 58  |SEI;SET.9/.. LDX|
00000F50: 23 3C 28 4E 45 57 49 52  51 29 3B 20 52 58 2D 49  |#<(NEWIRQ); RX-I|
00000F60: 52 51 00 54 2F C0 08 20  4C 44 59 23 3E 28 4E 45  |RQ.T/.. LDY#>(NE|
00000F70: 57 49 52 51 29 3B 20 56  45 43 54 4F 52 00 62 2F  |WIRQ); VECTOR.b/|
00000F80: CA 08 20 53 54 58 24 30  33 31 34 00 70 2F D4 08  |.. STX$0314.p/..|
00000F90: 20 53 54 59 24 30 33 31  35 00 79 2F DE 08 20 43  | STY$0315.y/.. C|
00000FA0: 4C 49 00 82 2F E8 08 20  52 54 53 00 88 2F F2 08  |LI../.. RTS../..|
00000FB0: 3B 00 97 2F FC 08 4E 45  57 49 52 51 20 53 45 49  |;../..NEWIRQ SEI|
00000FC0: 00 AA 2F 06 09 20 4C 44  41 24 44 45 30 36 3B 44  |../.. LDA$DE06;D|
00000FD0: 41 54 41 00 BB 2F 10 09  20 4C 53 52 3B 20 52 58  |ATA../.. LSR; RX|
00000FE0: 27 45 44 3F 00 CD 2F 1A  09 20 42 43 43 45 4E 44  |'ED?../.. BCCEND|
00000FF0: 49 52 51 3B 4E 4F 00 E3  2F 24 09 20 4C 44 41 24  |IRQ;NO../$. LDA$|
00001000: 44 45 30 37 3B 47 45 54  20 44 54 41 00 EE 2F 2E  |DE07;GET DTA../.|
00001010: 09 20 4C 44 59 23 30 00  04 30 38 09 20 53 54 41  |. LDY#0..08. STA|
00001020: 28 4D 42 50 29 2C 59 3B  53 54 4F 52 45 00 12 30  |(MBP),Y;STORE..0|
00001030: 42 09 20 4C 44 58 4D 42  50 2B 31 00 25 30 4C 09  |B. LDXMBP+1.%0L.|
00001040: 20 4C 44 59 4D 42 50 3B  49 4E 43 52 45 2D 00 34  | LDYMBP;INCRE-.4|
00001050: 30 56 09 20 49 4E 59 3B  20 4D 45 4E 54 00 49 30  |0V. INY; MENT.I0|
00001060: 60 09 20 42 4E 45 53 45  54 4D 42 50 3B 20 50 4E  |`. BNESETMBP; PN|
00001070: 54 52 00 52 30 6A 09 20  49 4E 58 00 66 30 74 09  |TR.R0j. INX.f0t.|
00001080: 20 43 50 58 23 24 30 30  3B 45 4E 44 20 4F 46 00  | CPX#$00;END OF.|
00001090: 7C 30 7E 09 20 42 4E 45  53 45 54 4D 42 50 3B 20  ||0~. BNESETMBP; |
000010A0: 42 55 46 52 3F 00 95 30  88 09 49 52 51 53 45 54  |BUFR?..0..IRQSET|
000010B0: 20 4C 44 58 23 24 45 30  3B 53 54 41 52 54 00 AD  | LDX#$E0;START..|
000010C0: 30 92 09 53 45 54 4D 42  50 20 53 54 58 4D 42 50  |0..SETMBP STXMBP|
000010D0: 2B 31 3B 53 45 54 00 BF  30 9C 09 20 53 54 59 4D  |+1;SET..0.. STYM|
000010E0: 42 50 3B 20 50 4E 54 52  00 D4 30 A6 09 20 4A 4D  |BP; PNTR..0.. JM|
000010F0: 50 24 45 41 38 31 3B 45  4E 44 20 49 52 00 E9 30  |P$EA81;END IR..0|
00001100: B0 09 45 4E 44 49 52 51  20 4A 4D 50 4B 45 59 49  |..ENDIRQ JMPKEYI|
00001110: 52 51 00 EF 30 BA 09 3B  00 06 31 C4 09 4B 45 59  |RQ..0..;..1..KEY|
00001120: 49 52 51 20 4C 44 41 24  39 44 3B 50 52 47 2D 00  |IRQ LDA$9D;PRG-.|
00001130: 1B 31 CE 09 20 42 45 51  4B 45 59 45 4E 44 3B 20  |.1.. BEQKEYEND; |
00001140: 4D 44 45 3F 00 2A 31 D8  09 20 4C 44 41 24 44 34  |MDE?.*1.. LDA$D4|
00001150: 3B 22 2D 00 3F 31 E2 09  20 42 4E 45 4B 45 59 45  |;"-.?1.. BNEKEYE|
00001160: 4E 44 3B 20 4D 44 45 3F  00 4F 31 EC 09 20 4C 44  |ND; MDE?.O1.. LD|
00001170: 59 23 33 3B 4B 45 59 3D  00 69 31 F6 09 4B 45 59  |Y#3;KEY=.i1..KEY|
00001180: 4C 4F 50 20 43 50 59 24  43 35 3B 20 46 2D 4B 45  |LOP CPY$C5; F-KE|
00001190: 59 3F 00 77 31 00 0A 20  42 45 51 4B 45 59 4F 4E  |Y?.w1.. BEQKEYON|
000011A0: 00 80 31 0A 0A 20 49 4E  59 00 8B 31 14 0A 20 43  |..1.. INY..1.. C|
000011B0: 50 59 23 37 00 9A 31 1E  0A 20 42 4E 45 4B 45 59  |PY#7..1.. BNEKEY|
000011C0: 4C 4F 50 00 AC 31 28 0A  20 4C 44 41 23 30 3B 45  |LOP..1(. LDA#0;E|
000011D0: 4E 41 42 4C 45 00 C2 31  32 0A 20 53 54 41 44 55  |NABLE..12. STADU|
000011E0: 4D 4D 59 3B 20 46 2D 4B  45 59 53 00 D6 31 3C 0A  |MMY; F-KEYS..1<.|
000011F0: 4B 45 59 45 4E 44 20 4A  4D 50 24 45 41 33 31 00  |KEYEND JMP$EA31.|
00001200: DC 31 46 0A 3B 00 F6 31  50 0A 4B 45 59 4F 4E 20  |.1F.;..1P.KEYON |
00001210: 4C 44 41 44 55 4D 4D 59  3B 46 2D 4B 45 59 53 00  |LDADUMMY;F-KEYS.|
00001220: 0D 32 5A 0A 20 42 4E 45  4B 45 59 45 4E 44 3B 20  |.2Z. BNEKEYEND; |
00001230: 45 4E 41 42 4C 3F 00 1D  32 64 0A 20 54 59 41 3B  |ENABL?..2d. TYA;|
00001240: 43 52 45 41 54 45 00 2C  32 6E 0A 20 53 45 43 3B  |CREATE.,2n. SEC;|
00001250: 20 50 4E 54 52 00 37 32  78 0A 20 53 42 43 23 33  | PNTR.72x. SBC#3|
00001260: 00 4C 32 82 0A 20 4C 44  59 24 30 32 38 45 3B 53  |.L2.. LDY$028E;S|
00001270: 48 49 46 54 3F 00 5C 32  8C 0A 20 42 45 51 55 4E  |HIFT?.\2.. BEQUN|
00001280: 53 48 49 46 54 00 69 32  96 0A 20 43 4C 43 3B 41  |SHIFT.i2.. CLC;A|
00001290: 44 44 00 7C 32 A0 0A 20  41 44 43 23 34 3B 20 4F  |DD.|2.. ADC#4; O|
000012A0: 46 46 53 45 54 00 8C 32  AA 0A 55 4E 53 48 49 46  |FFSET..2..UNSHIF|
000012B0: 54 20 41 53 4C 00 95 32  B4 0A 20 54 41 59 00 AA  |T ASL..2.. TAY..|
000012C0: 32 BE 0A 20 4C 44 41 4B  45 59 41 44 52 2C 59 3B  |2.. LDAKEYADR,Y;|
000012D0: 47 45 54 00 C3 32 C8 0A  20 53 54 41 4B 45 59 50  |GET..2.. STAKEYP|
000012E0: 41 52 2B 31 3B 20 4B 45  59 54 58 54 00 D6 32 D2  |AR+1; KEYTXT..2.|
000012F0: 0A 20 4C 44 41 4B 45 59  41 44 52 2B 31 2C 59 00  |. LDAKEYADR+1,Y.|
00001300: E7 32 DC 0A 20 53 54 41  4B 45 59 50 41 52 2B 32  |.2.. STAKEYPAR+2|
00001310: 00 F2 32 E6 0A 20 4C 44  59 23 30 00 0E 33 F0 0A  |..2.. LDY#0..3..|
00001320: 4B 45 59 50 41 52 20 4C  44 41 24 30 30 30 30 2C  |KEYPAR LDA$0000,|
00001330: 59 3B 57 52 49 54 45 00  22 33 FA 0A 20 42 45 51  |Y;WRITE."3.. BEQ|
00001340: 45 4F 46 4C 4E 3B 20 54  45 58 54 00 38 33 04 0B  |EOFLN; TEXT.83..|
00001350: 20 53 54 41 24 30 32 37  37 2C 59 3B 20 49 4E 54  | STA$0277,Y; INT|
00001360: 4F 00 4C 33 0E 0B 20 43  4D 50 23 31 33 3B 20 4B  |O.L3.. CMP#13; K|
00001370: 45 59 42 46 52 00 59 33  18 0B 20 42 45 51 43 52  |EYBFR.Y3.. BEQCR|
00001380: 4C 4E 00 62 33 22 0B 20  49 4E 59 00 71 33 2C 0B  |LN.b3". INY.q3,.|
00001390: 20 4A 4D 50 4B 45 59 50  41 52 00 86 33 36 0B 43  | JMPKEYPAR..36.C|
000013A0: 52 4C 4E 20 49 4E 59 3B  45 4D 55 4C 41 54 45 00  |RLN INY;EMULATE.|
000013B0: 9F 33 40 0B 45 4F 46 4C  4E 20 53 54 59 24 43 36  |.3@.EOFLN STY$C6|
000013C0: 3B 20 4B 45 59 50 52 53  00 B2 33 4A 0B 20 4C 44  |; KEYPRS..3J. LD|
000013D0: 58 23 31 3B 44 49 53 41  42 4C 45 00 C8 33 54 0B  |X#1;DISABLE..3T.|
000013E0: 20 53 54 58 44 55 4D 4D  59 3B 20 46 2D 4B 45 59  | STXDUMMY; F-KEY|
000013F0: 53 00 D6 33 5E 0B 20 4A  4D 50 24 45 41 33 31 00  |S..3^. JMP$EA31.|
00001400: DC 33 68 0B 3B 00 EB 33  72 0B 44 55 4D 4D 59 20  |.3h.;..3r.DUMMY |
00001410: 2E 42 59 30 00 05 34 7C  0B 4B 45 59 41 44 52 20  |.BY0..4|.KEYADR |
00001420: 2E 57 4F 46 37 2C 46 31  2C 46 33 2C 46 35 00 19  |.WOF7,F1,F3,F5..|
00001430: 34 86 0B 20 2E 57 4F 46  38 2C 46 32 2C 46 34 2C  |4.. .WOF8,F2,F4,|
00001440: 46 36 00 1F 34 90 0B 3B  00 31 34 9A 0B 46 31 20  |F6..4..;.14..F1 |
00001450: 2E 54 58 22 93 4C 49 53  54 22 00 4E 34 A4 0B 2E  |.TX".LIST".N4...|
00001460: 42 59 20 31 33 2C 30 2C  30 2C 30 2C 30 2C 30 2C  |BY 13,0,0,0,0,0,|
00001470: 30 2C 30 2C 30 2C 30 00  54 34 AE 0B 3B 00 65 34  |0,0,0,0.T4..;.e4|
00001480: B8 0B 46 33 20 2E 54 58  22 52 55 4E 3A 22 00 84  |..F3 .TX"RUN:"..|
00001490: 34 C2 0B 2E 42 59 20 31  33 2C 30 2C 30 2C 30 2C  |4...BY 13,0,0,0,|
000014A0: 30 2C 30 2C 30 2C 30 2C  30 2C 30 2C 30 00 8A 34  |0,0,0,0,0,0,0..4|
000014B0: CC 0B 3B 00 9B 34 D6 0B  46 35 20 2E 54 58 22 4C  |..;..4..F5 .TX"L|
000014C0: 4F 41 44 22 00 BC 34 E0  0B 2E 42 59 20 33 34 2C  |OAD"..4...BY 34,|
000014D0: 32 30 2C 33 34 2C 30 2C  30 2C 30 2C 30 2C 30 2C  |20,34,0,0,0,0,0,|
000014E0: 30 2C 30 2C 30 00 C2 34  EA 0B 3B 00 D3 34 F4 0B  |0,0,0..4..;..4..|
000014F0: 46 37 20 2E 54 58 22 93  44 49 52 22 00 F2 34 FE  |F7 .TX".DIR"..4.|
00001500: 0B 2E 42 59 20 31 33 2C  30 2C 30 2C 30 2C 30 2C  |..BY 13,0,0,0,0,|
00001510: 30 2C 30 2C 30 2C 30 2C  30 2C 30 00 F8 34 08 0C  |0,0,0,0,0,0..4..|
00001520: 3B 00 0B 35 12 0C 46 32  20 2E 54 58 22 93 48 45  |;..5..F2 .TX".HE|
00001530: 4C 50 3A 22 00 26 35 1C  0C 2E 42 59 20 31 33 2C  |LP:".&5...BY 13,|
00001540: 30 2C 30 2C 30 2C 30 2C  30 2C 30 2C 30 2C 30 00  |0,0,0,0,0,0,0,0.|
00001550: 2C 35 26 0C 3B 00 47 35  30 0C 46 34 20 2E 54 58  |,5&.;.G50.F4 .TX|
00001560: 22 53 59 53 34 30 39 36  2A 31 32 3A 9D 9D 9D 22  |"SYS4096*12:..."|
00001570: 00 51 35 3A 0C 2E 42 59  20 30 00 57 35 44 0C 3B  |.Q5:..BY 0.W5D.;|
00001580: 00 68 35 4E 0C 46 36 20  2E 54 58 22 53 41 56 45  |.h5N.F6 .TX"SAVE|
00001590: 22 00 89 35 58 0C 2E 42  59 20 33 34 2C 32 30 2C  |"..5X..BY 34,20,|
000015A0: 33 34 2C 30 2C 30 2C 30  2C 30 2C 30 2C 30 2C 30  |34,0,0,0,0,0,0,0|
000015B0: 2C 30 00 8F 35 62 0C 3B  00 A2 35 6C 0C 46 38 20  |,0..5b.;..5l.F8 |
000015C0: 2E 54 58 22 46 4C 4F 50  50 59 22 00 BF 35 76 0C  |.TX"FLOPPY"..5v.|
000015D0: 2E 42 59 20 33 34 2C 32  30 2C 33 34 2C 30 2C 30  |.BY 34,20,34,0,0|
000015E0: 2C 30 2C 30 2C 30 2C 30  00 C5 35 80 0C 3B 00 D9  |,0,0,0,0..5..;..|
000015F0: 35 8A 0C 41 55 53 20 4C  44 41 23 33 3B 52 45 53  |5..AUS LDA#3;RES|
00001600: 45 54 00 ED 35 94 0C 20  53 54 41 24 44 45 30 34  |ET..5.. STA$DE04|
00001610: 3B 20 36 38 35 30 00 FC  35 9E 0C 20 53 54 41 4D  |; 6850..5.. STAM|
00001620: 44 49 4D 44 45 00 15 36  A8 0C 20 4C 44 41 45 4E  |DIMDE..6.. LDAEN|
00001630: 44 49 52 51 2B 31 3B 53  45 54 20 32 4E 44 00 2A  |DIRQ+1;SET 2ND.*|
00001640: 36 B2 0C 20 4C 44 59 45  4E 44 49 52 51 2B 32 3B  |6.. LDYENDIRQ+2;|
00001650: 20 49 52 00 33 36 BC 0C  20 53 45 49 00 41 36 C6  | IR.36.. SEI.A6.|
00001660: 0C 20 53 54 41 24 30 33  31 34 00 4F 36 D0 0C 20  |. STA$0314.O6.. |
00001670: 53 54 59 24 30 33 31 35  00 58 36 DA 0C 20 43 4C  |STY$0315.X6.. CL|
00001680: 49 00 61 36 E4 0C 20 52  54 53 00 67 36 EE 0C 3B  |I.a6.. RTS.g6..;|
00001690: 00 85 36 F8 0C 46 4B 4F  4E 20 4C 44 41 23 3C 28  |..6..FKON LDA#<(|
000016A0: 4B 45 59 49 52 51 29 3B  45 4E 41 42 4C 45 00 98  |KEYIRQ);ENABLE..|
000016B0: 36 02 0D 20 4C 44 59 23  3E 28 4B 45 59 49 52 51  |6.. LDY#>(KEYIRQ|
000016C0: 29 00 A6 36 0C 0D 20 4A  4D 50 46 4B 49 52 51 00  |)..6.. JMPFKIRQ.|
000016D0: C0 36 16 0D 46 4B 4F 46  46 20 4C 44 41 23 24 33  |.6..FKOFF LDA#$3|
000016E0: 31 3B 44 49 53 41 42 4C  45 00 D5 36 20 0D 20 4C  |1;DISABLE..6 . L|
000016F0: 44 59 23 24 45 41 3B 20  46 2D 4B 45 59 53 00 E3  |DY#$EA; F-KEYS..|
00001700: 36 2A 0D 46 4B 49 52 51  20 53 45 49 00 F4 36 34  |6*.FKIRQ SEI..64|
00001710: 0D 20 53 54 41 45 4E 44  49 52 51 2B 31 00 05 37  |. STAENDIRQ+1..7|
00001720: 3E 0D 20 53 54 59 45 4E  44 49 52 51 2B 32 00 0E  |>. STYENDIRQ+2..|
00001730: 37 48 0D 20 43 4C 49 00  22 37 52 0D 20 4A 4D 50  |7H. CLI."7R. JMP|
00001740: 41 55 53 3B 49 4E 49 54  20 49 52 00 28 37 5C 0D  |AUS;INIT IR.(7\.|
00001750: 3B 00 40 37 66 0D 52 45  53 45 54 20 4C 44 58 23  |;.@7f.RESET LDX#|
00001760: 32 35 35 3B 4D 49 44 49  2D 00 52 37 70 0D 20 4A  |255;MIDI-.R7p. J|
00001770: 53 52 54 58 3B 20 52 45  53 45 54 00 5E 37 7A 0D  |SRTX; RESET.^7z.|
00001780: 20 4A 53 52 4F 46 46 00  69 37 84 0D 20 4A 4D 50  | JSROFF.i7.. JMP|
00001790: 41 4E 00 6F 37 8E 0D 3B  00 86 37 98 0D 4F 46 46  |AN.o7..;..7..OFF|
000017A0: 20 4C 44 59 23 31 35 3B  41 4C 4C 4E 4F 46 46 00  | LDY#15;ALLNOFF.|
000017B0: 98 37 A2 0D 4F 46 46 4C  4F 4F 50 20 53 54 59 42  |.7..OFFLOOP STYB|
000017C0: 31 00 AA 37 AC 0D 20 4C  44 41 23 31 37 36 3B 43  |1..7.. LDA#176;C|
000017D0: 54 52 4C 00 B3 37 B6 0D  20 54 41 58 00 BE 37 C0  |TRL..7.. TAX..7.|
000017E0: 0D 20 4A 53 52 54 58 00  CF 37 CA 0D 20 4C 44 58  |. JSRTX..7.. LDX|
000017F0: 23 31 32 33 3B 4F 46 46  00 DA 37 D4 0D 20 4A 53  |#123;OFF..7.. JS|
00001800: 52 54 58 00 EA 37 DE 0D  20 4C 44 58 23 30 3B 44  |RTX..7.. LDX#0;D|
00001810: 41 54 41 00 F5 37 E8 0D  20 4A 53 52 54 58 00 FE  |ATA..7.. JSRTX..|
00001820: 37 F2 0D 20 44 45 59 00  0E 38 FC 0D 20 42 4E 45  |7.. DEY..8.. BNE|
00001830: 4F 46 46 4C 4F 4F 50 00  17 38 06 0E 20 52 54 53  |OFFLOOP..8.. RTS|
00001840: 00 1D 38 10 0E 3B 00 37  38 1A 0E 50 4F 4C 59 20  |..8..;.78..POLY |
00001850: 4A 53 52 47 45 54 43 48  4E 3B 50 4C 59 4D 44 45  |JSRGETCHN;PLYMDE|
00001860: 00 49 38 24 0E 20 4C 44  41 23 31 37 36 3B 43 54  |.I8$. LDA#176;CT|
00001870: 52 4C 00 58 38 2E 0E 20  4A 53 52 4D 4B 45 43 48  |RL.X8.. JSRMKECH|
00001880: 4E 00 6A 38 38 0E 20 4C  44 58 23 31 32 37 3B 50  |N.j88. LDX#127;P|
00001890: 4F 4C 59 00 79 38 42 0E  5A 45 52 4F 20 4A 53 52  |OLY.y8B.ZERO JSR|
000018A0: 54 58 00 89 38 4C 0E 20  4C 44 58 23 30 3B 44 41  |TX..8L. LDX#0;DA|
000018B0: 54 41 00 94 38 56 0E 20  4A 4D 50 54 58 00 9A 38  |TA..8V. JMPTX..8|
000018C0: 60 0E 3B 00 B3 38 6A 0E  42 4E 44 20 4A 53 52 47  |`.;..8j.BND JSRG|
000018D0: 45 54 43 48 4E 3B 50 49  54 43 48 2D 00 C6 38 74  |ETCHN;PITCH-..8t|
000018E0: 0E 20 4C 44 41 23 32 32  34 3B 20 42 45 4E 44 00  |. LDA#224; BEND.|
000018F0: D5 38 7E 0E 20 4A 53 52  4D 4B 45 43 48 4E 00 E4  |.8~. JSRMKECHN..|
00001900: 38 88 0E 20 4C 44 58 23  30 3B 4C 53 42 00 EF 38  |8.. LDX#0;LSB..8|
00001910: 92 0E 20 4A 53 52 54 58  00 FC 38 9C 0E 20 4A 4D  |.. JSRTX..8.. JM|
00001920: 50 47 45 54 31 00 02 39  A6 0E 3B 00 1C 39 B0 0E  |PGET1..9..;..9..|
00001930: 42 52 43 20 4A 53 52 47  45 54 43 48 4E 3B 42 52  |BRC JSRGETCHN;BR|
00001940: 45 41 54 48 2D 00 2F 39  BA 0E 20 4C 44 41 23 31  |EATH-./9.. LDA#1|
00001950: 37 36 3B 20 43 54 52 4C  00 3E 39 C4 0E 20 4A 53  |76; CTRL.>9.. JS|
00001960: 52 4D 4B 45 43 48 4E 00  4D 39 CE 0E 20 4C 44 58  |RMKECHN.M9.. LDX|
00001970: 23 32 3B 42 52 43 00 5B  39 D8 0E 43 54 58 20 4A  |#2;BRC.[9..CTX J|
00001980: 53 52 54 58 00 67 39 E2  0E 20 4A 53 52 47 45 54  |SRTX.g9.. JSRGET|
00001990: 00 72 39 EC 0E 20 4A 4D  50 54 58 00 78 39 F6 0E  |.r9.. JMPTX.x9..|
000019A0: 3B 00 92 39 00 0F 4D 4F  4E 4F 20 4A 53 52 47 45  |;..9..MONO JSRGE|
000019B0: 54 43 48 4E 3B 4D 4E 4F  4D 44 45 00 A4 39 0A 0F  |TCHN;MNOMDE..9..|
000019C0: 20 4C 44 41 23 31 37 36  3B 43 54 52 4C 00 B3 39  | LDA#176;CTRL..9|
000019D0: 14 0F 20 4A 53 52 4D 4B  45 43 48 4E 00 C5 39 1E  |.. JSRMKECHN..9.|
000019E0: 0F 20 4C 44 58 23 31 32  36 3B 4D 4F 4E 4F 00 D1  |. LDX#126;MONO..|
000019F0: 39 28 0F 20 4A 4D 50 43  54 58 00 D7 39 32 0F 3B  |9(. JMPCTX..92.;|
00001A00: 00 F0 39 3C 0F 4D 57 4C  20 4A 53 52 47 45 54 43  |..9<.MWL JSRGETC|
00001A10: 48 4E 3B 4D 57 48 45 45  4C 00 02 3A 46 0F 20 4C  |HN;MWHEEL..:F. L|
00001A20: 44 41 23 31 37 36 3B 43  54 52 4C 00 11 3A 50 0F  |DA#176;CTRL..:P.|
00001A30: 20 4A 53 52 4D 4B 45 43  48 4E 00 22 3A 5A 0F 20  | JSRMKECHN.":Z. |
00001A40: 4C 44 58 23 31 3B 57 48  45 45 4C 00 2E 3A 64 0F  |LDX#1;WHEEL..:d.|
00001A50: 20 4A 4D 50 43 54 58 00  34 3A 6E 0F 3B 00 4C 3A  | JMPCTX.4:n.;.L:|
00001A60: 78 0F 50 44 4C 20 4A 53  52 47 45 54 43 48 4E 3B  |x.PDL JSRGETCHN;|
00001A70: 50 45 44 41 4C 00 5E 3A  82 0F 20 4C 44 41 23 31  |PEDAL.^:.. LDA#1|
00001A80: 37 36 3B 43 54 52 4C 00  6D 3A 8C 0F 20 4A 53 52  |76;CTRL.m:.. JSR|
00001A90: 4D 4B 45 43 48 4E 00 7E  3A 96 0F 20 4C 44 58 23  |MKECHN.~:.. LDX#|
00001AA0: 34 3B 50 45 44 41 4C 00  8A 3A A0 0F 20 4A 4D 50  |4;PEDAL..:.. JMP|
00001AB0: 43 54 58 00 90 3A AA 0F  3B 00 A9 3A B4 0F 56 4F  |CTX..:..;..:..VO|
00001AC0: 4C 20 4A 53 52 47 45 54  43 48 4E 3B 56 4F 4C 55  |L JSRGETCHN;VOLU|
00001AD0: 4D 45 00 BB 3A BE 0F 20  4C 44 41 23 31 37 36 3B  |ME..:.. LDA#176;|
00001AE0: 43 54 52 4C 00 CA 3A C8  0F 20 4A 53 52 4D 4B 45  |CTRL..:.. JSRMKE|
00001AF0: 43 48 4E 00 DC 3A D2 0F  20 4C 44 58 23 37 3B 56  |CHN..:.. LDX#7;V|
00001B00: 4F 4C 55 4D 45 00 E8 3A  DC 0F 20 4A 4D 50 43 54  |OLUME..:.. JMPCT|
00001B10: 58 00 EE 3A E6 0F 3B 00  08 3B F0 0F 4F 4D 4E 49  |X..:..;..;..OMNI|
00001B20: 20 4A 53 52 47 45 54 43  48 4E 3B 4F 4D 4E 4D 44  | JSRGETCHN;OMNMD|
00001B30: 45 00 1A 3B FA 0F 20 4C  44 41 23 31 37 36 3B 43  |E..;.. LDA#176;C|
00001B40: 54 52 4C 00 29 3B 04 10  20 4A 53 52 4D 4B 45 43  |TRL.);.. JSRMKEC|
00001B50: 48 4E 00 35 3B 0E 10 20  4A 53 52 47 45 54 00 44  |HN.5;.. JSRGET.D|
00001B60: 3B 18 10 20 42 4E 45 4F  4D 4E 49 4F 4E 00 55 3B  |;.. BNEOMNION.U;|
00001B70: 22 10 20 4C 44 58 23 31  32 34 3B 4F 46 46 00 62  |". LDX#124;OFF.b|
00001B80: 3B 2C 10 20 4A 4D 50 5A  45 52 4F 00 78 3B 36 10  |;,. JMPZERO.x;6.|
00001B90: 4F 4D 4E 49 4F 4E 20 4C  44 58 23 31 32 35 3B 4F  |OMNION LDX#125;O|
00001BA0: 4E 00 85 3B 40 10 20 4A  4D 50 5A 45 52 4F 00 8B  |N..;@. JMPZERO..|
00001BB0: 3B 4A 10 3B 00 A3 3B 54  10 43 50 52 20 4A 53 52  |;J.;..;T.CPR JSR|
00001BC0: 47 45 54 43 48 4E 3B 43  48 4E 4C 2D 00 B7 3B 5E  |GETCHN;CHNL-..;^|
00001BD0: 10 20 4C 44 41 23 31 30  34 3B 20 50 52 45 53 2D  |. LDA#104; PRES-|
00001BE0: 00 CF 3B 68 10 45 54 58  20 4A 53 52 4D 4B 45 43  |..;h.ETX JSRMKEC|
00001BF0: 48 4E 3B 20 53 55 52 45  00 DB 3B 72 10 20 4A 53  |HN; SURE..;r. JS|
00001C00: 52 47 45 54 00 E6 3B 7C  10 20 4A 4D 50 54 58 00  |RGET..;|. JMPTX.|
00001C10: EC 3B 86 10 3B 00 FE 3B  90 10 50 52 47 20 4A 53  |.;..;..;..PRG JS|
00001C20: 52 47 45 54 43 48 4E 00  13 3C 9A 10 20 4C 44 41  |RGETCHN..<.. LDA|
00001C30: 23 31 39 32 3B 50 52 4F  47 52 41 4D 00 1F 3C A4  |#192;PROGRAM..<.|
00001C40: 10 20 4A 4D 50 45 54 58  00 25 3C AE 10 3B 00 3D  |. JMPETX.%<..;.=|
00001C50: 3C B8 10 43 4C 4E 20 4A  53 52 47 45 54 43 48 4E  |<..CLN JSRGETCHN|
00001C60: 3B 53 49 4D 55 2D 00 50  3C C2 10 20 4A 53 52 47  |;SIMU-.P<.. JSRG|
00001C70: 45 54 3B 20 4C 41 54 45  44 00 60 3C CC 10 20 53  |ET; LATED.`<.. S|
00001C80: 54 58 42 32 3B 20 41 4C  4C 00 7A 3C D6 10 42 32  |TXB2; ALL.z<..B2|
00001C90: 4C 4F 4F 50 20 4C 44 59  23 31 32 37 3B 20 4E 4F  |LOOP LDY#127; NO|
00001CA0: 54 45 53 00 91 3C E0 10  59 4C 4F 4F 50 20 4C 44  |TES..<..YLOOP LD|
00001CB0: 41 23 31 32 38 3B 20 4F  46 46 00 A0 3C EA 10 20  |A#128; OFF..<.. |
00001CC0: 4A 53 52 4D 4B 45 43 48  4E 00 A9 3C F4 10 20 54  |JSRMKECHN..<.. T|
00001CD0: 59 41 00 B2 3C FE 10 20  54 41 58 00 C1 3C 08 11  |YA..<.. TAX..<..|
00001CE0: 20 4A 53 52 54 58 3B 4B  45 59 00 D2 3C 12 11 20  | JSRTX;KEY..<.. |
00001CF0: 4C 44 58 23 31 32 37 3B  56 45 4C 00 DD 3C 1C 11  |LDX#127;VEL..<..|
00001D00: 20 4A 53 52 54 58 00 EA  3C 26 11 20 44 45 59 3B  | JSRTX..<&. DEY;|
00001D10: 44 45 43 00 FD 3C 30 11  20 42 4E 45 59 4C 4F 4F  |DEC..<0. BNEYLOO|
00001D20: 50 3B 20 4B 45 59 00 08  3D 3A 11 20 44 45 43 42  |P; KEY..=:. DECB|
00001D30: 32 00 17 3D 44 11 20 42  4E 45 42 32 4C 4F 4F 50  |2..=D. BNEB2LOOP|
00001D40: 00 20 3D 4E 11 20 52 54  53 00 26 3D 58 11 3B 00  |. =N. RTS.&=X.;.|
00001D50: 3E 3D 62 11 43 54 52 4C  20 4A 53 52 47 45 54 43  |>=b.CTRL JSRGETC|
00001D60: 48 4E 3B 54 58 20 41 00  51 3D 6C 11 20 4C 44 41  |HN;TX A.Q=l. LDA|
00001D70: 23 31 37 36 3B 20 43 4F  4E 2D 00 6A 3D 76 11 4F  |#176; CON-.j=v.O|
00001D80: 54 58 20 4A 53 52 4D 4B  45 43 48 4E 3B 20 54 52  |TX JSRMKECHN; TR|
00001D90: 4F 4C 2D 00 7C 3D 80 11  20 4A 4D 50 47 45 54 32  |OL-.|=.. JMPGET2|
00001DA0: 3B 20 4C 45 52 00 82 3D  8A 11 3B 00 9A 3D 94 11  |; LER..=..;..=..|
00001DB0: 50 50 52 20 4A 53 52 47  45 54 43 48 4E 3B 50 4F  |PPR JSRGETCHN;PO|
00001DC0: 4C 59 2D 00 AE 3D 9E 11  20 4C 44 41 23 31 36 30  |LY-..=.. LDA#160|
00001DD0: 3B 20 50 52 45 53 2D 00  C0 3D A8 11 20 4A 4D 50  |; PRES-..=.. JMP|
00001DE0: 4F 54 58 3B 20 53 55 52  45 00 C6 3D B2 11 3B 00  |OTX; SURE..=..;.|
00001DF0: DF 3D BC 11 4B 45 59 20  4A 53 52 47 45 54 43 48  |.=..KEY JSRGETCH|
00001E00: 4E 3B 4E 4F 54 45 4F 4E  00 EC 3D C6 11 20 4C 44  |N;NOTEON..=.. LD|
00001E10: 41 23 31 34 34 00 F8 3D  D0 11 20 4A 4D 50 4F 54  |A#144..=.. JMPOT|
00001E20: 58 00 FE 3D DA 11 3B 00  1A 3E E4 11 4E 4F 4B 45  |X..=..;..>..NOKE|
00001E30: 59 20 4A 53 52 47 45 54  43 48 4E 3B 4E 4F 54 45  |Y JSRGETCHN;NOTE|
00001E40: 4F 46 46 00 27 3E EE 11  20 4C 44 41 23 31 32 38  |OFF.'>.. LDA#128|
00001E50: 00 33 3E F8 11 20 4A 4D  50 4F 54 58 00 39 3E 02  |.3>.. JMPOTX.9>.|
00001E60: 12 3B 00 52 3E 0C 12 4D  54 58 20 4A 53 52 47 45  |.;.R>..MTX JSRGE|
00001E70: 54 42 59 54 3B 54 58 20  4F 4E 45 00 63 3E 16 12  |TBYT;TX ONE.c>..|
00001E80: 20 4A 4D 50 54 58 3B 20  42 59 54 45 00 69 3E 20  | JMPTX; BYTE.i> |
00001E90: 12 3B 00 7E 3E 2A 12 3B  2A 2A 2A 20 55 54 49 4C  |.;.~>*.;*** UTIL|
00001EA0: 49 54 59 20 2A 2A 2A 00  84 3E 34 12 3B 00 9A 3E  |ITY ***..>4.;..>|
00001EB0: 3E 12 43 4F 4C 20 4A 53  52 47 45 54 42 59 54 3B  |>.COL JSRGETBYT;|
00001EC0: 53 45 54 00 B0 3E 48 12  20 53 54 58 35 33 32 38  |SET..>H. STX5328|
00001ED0: 30 3B 20 43 4F 4C 4F 52  53 00 BF 3E 52 12 20 4A  |0; COLORS..>R. J|
00001EE0: 53 52 4B 4F 4D 42 59 54  00 CD 3E 5C 12 20 53 54  |SRKOMBYT..>\. ST|
00001EF0: 58 35 33 32 38 31 00 DC  3E 66 12 20 4A 53 52 4B  |X53281..>f. JSRK|
00001F00: 4F 4D 42 59 54 00 E8 3E  70 12 20 53 54 58 36 34  |OMBYT..>p. STX64|
00001F10: 36 00 F1 3E 7A 12 20 52  54 53 00 F7 3E 84 12 3B  |6..>z. RTS..>..;|
00001F20: 00 11 3F 8E 12 52 45 50  45 41 54 20 4A 53 52 47  |..?..REPEAT JSRG|
00001F30: 45 54 42 59 54 3B 4B 45  59 2D 00 23 3F 98 12 20  |ETBYT;KEY-.#?.. |
00001F40: 4C 44 41 23 30 3B 20 42  4F 41 52 44 00 36 3F A2  |LDA#0; BOARD.6?.|
00001F50: 12 20 43 50 58 23 30 3B  20 52 45 50 45 41 54 00  |. CPX#0; REPEAT.|
00001F60: 45 3F AC 12 20 42 45 51  52 50 54 53 45 54 00 52  |E?.. BEQRPTSET.R|
00001F70: 3F B6 12 20 4C 44 41 23  31 32 38 00 64 3F C0 12  |?.. LDA#128.d?..|
00001F80: 52 50 54 53 45 54 20 53  54 41 36 35 30 00 6D 3F  |RPTSET STA650.m?|
00001F90: CA 12 20 52 54 53 00 73  3F D4 12 3B 00 8E 3F DE  |.. RTS.s?..;..?.|
00001FA0: 12 52 45 53 54 41 52 54  20 4C 44 41 23 31 36 3B  |.RESTART LDA#16;|
00001FB0: 52 45 53 54 41 52 54 00  A1 3F E8 12 20 53 54 41  |RESTART..?.. STA|
00001FC0: 42 32 3B 20 4D 42 41 53  49 43 00 B3 3F F2 12 20  |B2; MBASIC..?.. |
00001FD0: 4A 4D 50 43 4C 4F 53 45  4D 49 44 49 00 B9 3F FC  |JMPCLOSEMIDI..?.|
00001FE0: 12 3B 00 D7 3F 06 13 45  58 49 54 20 4C 44 41 23  |.;..?..EXIT LDA#|
00001FF0: 3C 28 45 58 54 58 54 29  3B 52 45 51 55 45 53 54  |<(EXTXT);REQUEST|
00002000: 00 E9 3F 10 13 20 4C 44  59 23 3E 28 45 58 54 58  |..?.. LDY#>(EXTX|
00002010: 54 29 00 F8 3F 1A 13 20  4A 53 52 53 54 52 4F 55  |T)..?.. JSRSTROU|
00002020: 54 00 0B 40 24 13 20 4C  44 41 23 30 3B 47 45 54  |T..@$. LDA#0;GET|
00002030: 20 4B 45 59 00 17 40 2E  13 20 53 54 41 24 39 39  | KEY..@.. STA$99|
00002040: 00 25 40 38 13 20 4A 53  52 24 46 46 43 46 00 32  |.%@8. JSR$FFCF.2|
00002050: 40 42 13 20 43 4D 50 23  22 4A 22 00 3F 40 4C 13  |@B. CMP#"J".?@L.|
00002060: 20 42 45 51 51 55 49 54  00 48 40 56 13 20 52 54  | BEQQUIT.H@V. RT|
00002070: 53 00 5E 40 60 13 51 55  49 54 20 4C 44 41 23 31  |S.^@`.QUIT LDA#1|
00002080: 36 3B 4C 45 41 56 45 00  71 40 6A 13 20 53 54 41  |6;LEAVE.q@j. STA|
00002090: 42 32 3B 20 4D 42 41 53  49 43 00 84 40 74 13 20  |B2; MBASIC..@t. |
000020A0: 53 54 41 24 38 30 30 35  3B 4B 49 4C 4C 00 96 40  |STA$8005;KILL..@|
000020B0: 7E 13 20 4A 53 52 41 4E  3B 20 43 42 4D 38 30 00  |~. JSRAN; CBM80.|
000020C0: B4 40 88 13 43 4C 4F 53  45 4D 49 44 49 20 4A 53  |.@..CLOSEMIDI JS|
000020D0: 52 42 32 4C 4F 4F 50 3B  52 45 53 45 54 00 C6 40  |RB2LOOP;RESET..@|
000020E0: 92 13 20 4A 53 52 41 55  53 3B 20 4D 49 44 49 00  |.. JSRAUS; MIDI.|
000020F0: D8 40 9C 13 20 4A 4D 50  24 46 43 45 32 3B 42 59  |.@.. JMP$FCE2;BY|
00002100: 45 00 F9 40 A6 13 45 58  54 58 54 20 2E 54 58 22  |E..@..EXTXT .TX"|
00002110: 53 49 4E 44 20 53 49 45  20 53 49 43 48 45 52 3F  |SIND SIE SICHER?|
00002120: 20 22 00 03 41 B0 13 20  2E 42 59 30 00 09 41 BA  | "..A.. .BY0..A.|
00002130: 13 3B 00 25 41 C4 13 4C  4F 43 41 54 45 20 4A 53  |.;.%A..LOCATE JS|
00002140: 52 47 45 54 42 59 54 3B  4C 4F 43 41 54 45 00 39  |RGETBYT;LOCATE.9|
00002150: 41 CE 13 20 43 50 58 23  32 35 3B 20 43 55 52 53  |A.. CPX#25; CURS|
00002160: 4F 52 00 4C 41 D8 13 20  42 43 53 4C 4F 43 45 52  |OR.LA.. BCSLOCER|
00002170: 52 3B 20 4F 4E 00 60 41  E2 13 20 53 54 58 32 31  |R; ON.`A.. STX21|
00002180: 34 3B 20 53 43 52 45 45  4E 00 6F 41 EC 13 20 4A  |4; SCREEN.oA.. J|
00002190: 53 52 4B 4F 4D 42 59 54  00 7B 41 F6 13 20 43 50  |SRKOMBYT.{A.. CP|
000021A0: 58 23 34 31 00 8A 41 00  14 20 42 43 53 4C 4F 43  |X#41..A.. BCSLOC|
000021B0: 45 52 52 00 96 41 0A 14  20 53 54 58 32 31 31 00  |ERR..A.. STX211.|
000021C0: A4 41 14 14 20 4A 4D 50  24 45 35 36 43 00 B8 41  |.A.. JMP$E56C..A|
000021D0: 1E 14 4C 4F 43 45 52 52  20 4A 4D 50 49 4C 4C 51  |..LOCERR JMPILLQ|
000021E0: 55 00 BE 41 28 14 3B 00  D6 41 32 14 43 4C 53 20  |U..A(.;..A2.CLS |
000021F0: 4A 4D 50 24 45 35 34 34  3B 43 4C 52 53 43 52 00  |JMP$E544;CLRSCR.|
00002200: DC 41 3C 14 3B 00 EE 41  46 14 44 49 52 20 4C 44  |.A<.;..AF.DIR LD|
00002210: 41 23 31 3B 47 45 54 00  07 42 50 14 20 4C 44 59  |A#1;GET..BP. LDY|
00002220: 23 3E 28 4E 41 4D 45 29  3B 20 44 49 52 45 43 2D  |#>(NAME); DIREC-|
00002230: 00 1E 42 5A 14 20 4C 44  58 23 3C 28 4E 41 4D 45  |..BZ. LDX#<(NAME|
00002240: 29 3B 20 54 4F 52 59 00  33 42 64 14 20 4A 53 52  |); TORY.3Bd. JSR|
00002250: 24 46 46 42 44 3B 53 45  54 4E 41 4D 00 42 42 6E  |$FFBD;SETNAM.BBn|
00002260: 14 20 4C 44 41 23 31 3B  53 45 54 00 58 42 78 14  |. LDA#1;SET.XBx.|
00002270: 20 4C 44 58 44 45 56 54  59 50 3B 20 46 49 4C 45  | LDXDEVTYP; FILE|
00002280: 2D 00 6E 42 82 14 20 4A  53 52 43 48 4B 44 45 56  |-.nB.. JSRCHKDEV|
00002290: 3B 20 50 41 52 41 2D 00  81 42 8C 14 20 4C 44 59  |; PARA-..B.. LDY|
000022A0: 23 31 3B 20 4D 45 54 45  52 53 00 8A 42 96 14 20  |#1; METERS..B.. |
000022B0: 44 45 59 00 A0 42 A0 14  20 4A 53 52 24 46 46 42  |DEY..B.. JSR$FFB|
000022C0: 41 3B 53 45 54 46 50 41  52 00 B6 42 AA 14 20 4A  |A;SETFPAR..B.. J|
000022D0: 53 52 41 4B 4E 44 45 56  3B 52 45 41 44 59 3F 00  |SRAKNDEV;READY?.|
000022E0: C9 42 B4 14 20 4A 53 52  24 46 46 43 30 3B 4F 50  |.B.. JSR$FFC0;OP|
000022F0: 45 4E 00 D4 42 BE 14 20  4C 44 58 23 31 00 E8 42  |EN..B.. LDX#1..B|
00002300: C8 14 20 4A 53 52 24 46  46 43 36 3B 43 48 4B 49  |.. JSR$FFC6;CHKI|
00002310: 4E 00 F3 42 D2 14 20 4C  44 59 23 35 00 0A 43 DC  |N..B.. LDY#5..C.|
00002320: 14 52 4F 57 4F 55 54 20  53 54 59 42 31 3B 4F 56  |.ROWOUT STYB1;OV|
00002330: 45 52 2D 00 1E 43 E6 14  20 4A 53 52 24 46 46 43  |ER-..C.. JSR$FFC|
00002340: 46 3B 20 52 45 41 44 00  2A 43 F0 14 20 54 41 58  |F; READ.*C.. TAX|
00002350: 3B 20 35 00 3C 43 FA 14  20 4C 44 59 42 31 3B 20  |; 5.<C.. LDYB1; |
00002360: 42 59 54 45 53 00 45 43  04 15 20 44 45 59 00 54  |BYTES.EC.. DEY.T|
00002370: 43 0E 15 20 42 4E 45 52  4F 57 4F 55 54 00 68 43  |C.. BNEROWOUT.hC|
00002380: 18 15 20 4A 53 52 24 46  46 43 46 3B 43 48 52 49  |.. JSR$FFCF;CHRI|
00002390: 4E 00 7B 43 22 15 20 4C  44 59 24 39 30 3B 53 54  |N.{C". LDY$90;ST|
000023A0: 41 54 55 53 00 90 43 2C  15 20 42 4E 45 45 4E 44  |ATUS..C,. BNEEND|
000023B0: 45 3B 44 49 52 45 4E 44  3F 00 A5 43 36 15 20 4A  |E;DIREND?..C6. J|
000023C0: 53 52 24 42 44 43 44 3B  49 4E 54 4F 55 54 00 B2  |SR$BDCD;INTOUT..|
000023D0: 43 40 15 20 4C 44 41 23  22 20 22 00 C7 43 4A 15  |C@. LDA#" "..CJ.|
000023E0: 20 4A 53 52 24 46 46 44  32 3B 43 48 52 4F 55 54  | JSR$FFD2;CHROUT|
000023F0: 00 E2 43 54 15 4E 45 58  54 43 48 52 20 4A 53 52  |..CT.NEXTCHR JSR|
00002400: 24 46 46 43 46 3B 43 48  52 49 4E 00 ED 43 5E 15  |$FFCF;CHRIN..C^.|
00002410: 20 53 54 41 42 31 00 FF  43 68 15 20 43 4D 50 23  | STAB1..Ch. CMP#|
00002420: 30 3B 45 4E 44 20 4F 46  00 16 44 72 15 20 42 45  |0;END OF..Dr. BE|
00002430: 51 4C 41 53 54 43 48 52  3B 20 4C 49 4E 45 3F 00  |QLASTCHR; LINE?.|
00002440: 25 44 7C 15 20 43 4D 50  23 33 34 3B 22 3F 00 34  |%D|. CMP#34;"?.4|
00002450: 44 86 15 20 42 4E 45 4E  45 58 54 4F 4E 00 3F 44  |D.. BNENEXTON.?D|
00002460: 90 15 20 44 45 43 44 54  00 4E 44 9A 15 20 42 4E  |.. DECDT.ND.. BN|
00002470: 45 4E 45 58 54 4F 4E 00  63 44 A4 15 20 4A 53 52  |ENEXTON.cD.. JSR|
00002480: 24 46 46 44 32 3B 43 48  52 4F 55 54 00 75 44 AE  |$FFD2;CHROUT.uD.|
00002490: 15 20 4C 44 41 23 22 20  22 3B 4E 45 58 54 00 87  |. LDA#" ";NEXT..|
000024A0: 44 B8 15 20 53 54 41 42  31 3B 20 43 48 41 52 53  |D.. STAB1; CHARS|
000024B0: 00 9B 44 C2 15 20 4C 44  41 23 22 3A 22 3B 20 53  |..D.. LDA#":"; S|
000024C0: 50 41 43 45 00 AD 44 CC  15 20 53 54 41 42 31 3B  |PACE..D.. STAB1;|
000024D0: 20 41 4E 44 20 3A 00 C5  44 D6 15 4E 45 58 54 4F  | AND :..D..NEXTO|
000024E0: 4E 20 4C 44 41 24 39 31  3B 53 54 4F 50 3F 00 D2  |N LDA$91;STOP?..|
000024F0: 44 E0 15 20 43 4D 50 23  24 37 46 00 DD 44 EA 15  |D.. CMP#$7F..D..|
00002500: 20 42 4E 45 44 57 00 EE  44 F4 15 20 4C 44 41 23  | BNEDW..D.. LDA#|
00002510: 31 33 3B 5B 43 52 5D 00  03 45 FE 15 20 4A 53 52  |13;[CR]..E.. JSR|
00002520: 24 46 46 44 32 3B 43 48  52 4F 55 54 00 10 45 08  |$FFD2;CHROUT..E.|
00002530: 16 20 4A 4D 50 45 4E 44  45 00 1D 45 12 16 44 57  |. JMPENDE..E..DW|
00002540: 20 4C 44 41 42 31 00 32  45 1C 16 20 4A 53 52 24  | LDAB1.2E.. JSR$|
00002550: 46 46 44 32 3B 43 48 52  4F 55 54 00 42 45 26 16  |FFD2;CHROUT.BE&.|
00002560: 20 4A 4D 50 4E 45 58 54  43 48 52 00 5A 45 30 16  | JMPNEXTCHR.ZE0.|
00002570: 4C 41 53 54 43 48 52 20  4C 44 41 23 32 3B 52 45  |LASTCHR LDA#2;RE|
00002580: 53 45 54 00 6D 45 3A 16  20 53 54 41 44 54 3B 20  |SET.mE:. STADT; |
00002590: 43 4F 55 4E 54 52 00 7E  45 44 16 20 4C 44 41 23  |COUNTR.~ED. LDA#|
000025A0: 31 33 3B 5B 43 52 5D 00  93 45 4E 16 20 4A 53 52  |13;[CR]..EN. JSR|
000025B0: 24 46 46 44 32 3B 43 48  52 4F 55 54 00 9E 45 58  |$FFD2;CHROUT..EX|
000025C0: 16 20 4C 44 59 23 33 00  AD 45 62 16 20 4A 4D 50  |. LDY#3..Eb. JMP|
000025D0: 52 4F 57 4F 55 54 00 C6  45 6C 16 45 4E 44 45 20  |ROWOUT..El.ENDE |
000025E0: 4A 53 52 24 46 46 43 43  3B 43 4C 52 43 48 4E 00  |JSR$FFCC;CLRCHN.|
000025F0: D7 45 76 16 20 4C 44 41  23 31 3B 43 4C 4F 53 45  |.Ev. LDA#1;CLOSE|
00002600: 00 ED 45 80 16 20 4A 53  52 24 46 46 43 33 3B 20  |..E.. JSR$FFC3; |
00002610: 43 48 4E 4C 20 31 00 F6  45 8A 16 20 52 54 53 00  |CHNL 1..E.. RTS.|
00002620: 06 46 94 16 4E 41 4D 45  20 2E 54 58 22 24 22 00  |.F..NAME .TX"$".|
00002630: 12 46 9E 16 44 54 20 2E  42 59 32 00 18 46 A8 16  |.F..DT .BY2..F..|
00002640: 3B 00 30 46 B2 16 46 49  4E 46 4F 20 4C 44 58 44  |;.0F..FINFO LDXD|
00002650: 45 56 54 59 50 3B 47 45  54 00 46 46 BC 16 20 4A  |EVTYP;GET.FF.. J|
00002660: 53 52 43 48 4B 44 45 56  3B 46 4C 4F 50 50 59 00  |SRCHKDEV;FLOPPY.|
00002670: 59 46 C6 16 20 53 54 58  24 42 41 3B 53 54 41 54  |YF.. STX$BA;STAT|
00002680: 55 53 00 62 46 D0 16 20  54 58 41 00 71 46 DA 16  |US.bF.. TXA.qF..|
00002690: 20 4A 53 52 41 4B 4E 44  45 56 00 84 46 E4 16 20  | JSRAKNDEV..F.. |
000026A0: 4A 53 52 24 46 46 42 34  3B 54 41 4C 4B 00 98 46  |JSR$FFB4;TALK..F|
000026B0: EE 16 20 4C 44 41 23 31  31 31 3B 31 35 2B 24 36  |.. LDA#111;15+$6|
000026C0: 30 00 AE 46 F8 16 20 4A  53 52 24 46 46 39 36 3B  |0..F.. JSR$FF96;|
000026D0: 53 45 43 54 41 4C 4B 00  C5 46 02 17 49 4E 20 4A  |SECTALK..F..IN J|
000026E0: 53 52 24 46 46 41 35 3B  47 45 54 49 45 43 00 D9  |SR$FFA5;GETIEC..|
000026F0: 46 0C 17 20 4A 53 52 24  46 31 43 41 3B 50 52 49  |F.. JSR$F1CA;PRI|
00002700: 4E 54 00 ED 46 16 17 20  43 4D 50 23 31 33 3B 52  |NT..F.. CMP#13;R|
00002710: 45 54 55 52 4E 3F 00 F8  46 20 17 20 42 4E 45 49  |ETURN?..F . BNEI|
00002720: 4E 00 0D 47 2A 17 20 4A  4D 50 24 46 46 41 42 3B  |N..G*. JMP$FFAB;|
00002730: 55 4E 54 41 4C 4B 00 13  47 34 17 3B 00 2C 47 3E  |UNTALK..G4.;.,G>|
00002740: 17 44 45 56 49 43 45 20  4A 53 52 47 45 54 42 59  |.DEVICE JSRGETBY|
00002750: 54 3B 53 45 54 00 3E 47  48 17 20 43 50 58 23 31  |T;SET.>GH. CPX#1|
00002760: 3B 41 43 54 55 41 4C 00  54 47 52 17 20 42 45 51  |;ACTUAL.TGR. BEQ|
00002770: 44 45 56 45 4E 44 3B 44  45 56 49 43 45 00 6C 47  |DEVEND;DEVICE.lG|
00002780: 5C 17 43 48 4B 44 53 4B  20 43 50 58 23 38 3B 31  |\.CHKDSK CPX#8;1|
00002790: 2F 38 2D 31 31 00 7B 47  66 17 20 42 43 43 44 45  |/8-11.{Gf. BCCDE|
000027A0: 56 53 45 54 00 87 47 70  17 20 43 50 58 23 31 32  |VSET..Gp. CPX#12|
000027B0: 00 96 47 7A 17 20 42 43  43 44 45 56 45 4E 44 00  |..Gz. BCCDEVEND.|
000027C0: A7 47 84 17 44 45 56 53  45 54 20 4C 44 58 23 38  |.G..DEVSET LDX#8|
000027D0: 00 BC 47 8E 17 44 45 56  45 4E 44 20 53 54 58 44  |..G..DEVEND STXD|
000027E0: 45 56 54 59 50 00 C5 47  98 17 20 52 54 53 00 D5  |EVTYP..G.. RTS..|
000027F0: 47 A2 17 44 45 56 54 59  50 20 2E 42 59 38 00 DB  |G..DEVTYP .BY8..|
00002800: 47 AC 17 3B 00 F2 47 B6  17 46 4C 4F 50 50 59 20  |G..;..G..FLOPPY |
00002810: 4C 44 41 23 31 35 3B 53  45 4E 44 00 08 48 C0 17  |LDA#15;SEND..H..|
00002820: 20 4A 53 52 24 46 46 43  33 3B 43 4F 4D 4D 41 4E  | JSR$FFC3;COMMAN|
00002830: 44 00 17 48 CA 17 20 4C  44 41 23 31 35 3B 54 4F  |D..H.. LDA#15;TO|
00002840: 00 2D 48 D4 17 20 4C 44  58 44 45 56 54 59 50 3B  |.-H.. LDXDEVTYP;|
00002850: 46 4C 4F 50 50 59 00 3C  48 DE 17 20 4A 53 52 43  |FLOPPY.<H.. JSRC|
00002860: 48 4B 44 45 56 00 48 48  E8 17 20 4C 44 59 23 31  |HKDEV.HH.. LDY#1|
00002870: 35 00 5B 48 F2 17 20 4A  53 52 24 46 46 42 41 3B  |5.[H.. JSR$FFBA;|
00002880: 46 50 41 52 00 6A 48 FC  17 20 4A 53 52 41 4B 4E  |FPAR.jH.. JSRAKN|
00002890: 44 45 56 00 7C 48 06 18  20 4A 53 52 24 45 32 35  |DEV.|H.. JSR$E25|
000028A0: 37 3B 47 45 54 00 8F 48  10 18 20 4A 53 52 24 46  |7;GET..H.. JSR$F|
000028B0: 46 43 30 3B 4F 50 45 4E  00 9D 48 1A 18 20 4A 53  |FC0;OPEN..H.. JS|
000028C0: 52 46 49 4E 46 4F 00 A9  48 24 18 20 4C 44 41 23  |RFINFO..H$. LDA#|
000028D0: 31 35 00 BD 48 2E 18 20  4A 4D 50 24 46 46 43 33  |15..H.. JMP$FFC3|
000028E0: 3B 43 4C 4F 53 45 00 C3  48 38 18 3B 00 DB 48 42  |;CLOSE..H8.;..HB|
000028F0: 18 43 48 4B 44 45 56 20  43 50 58 23 38 3B 44 45  |.CHKDEV CPX#8;DE|
00002900: 56 49 43 45 00 EF 48 4C  18 20 42 43 53 45 4E 44  |VICE..HL. BCSEND|
00002910: 43 48 4B 3B 3E 3D 38 3F  00 FA 48 56 18 20 4C 44  |CHK;>=8?..HV. LD|
00002920: 58 23 38 00 09 49 60 18  45 4E 44 43 48 4B 20 52  |X#8..I`.ENDCHK R|
00002930: 54 53 00 0F 49 6A 18 3B  00 24 49 74 18 41 4B 4E  |TS..Ij.;.$It.AKN|
00002940: 44 45 56 20 50 48 41 3B  43 48 45 43 4B 00 30 49  |DEV PHA;CHECK.0I|
00002950: 7E 18 20 54 58 41 3B 49  46 00 40 49 88 18 20 50  |~. TXA;IF.@I.. P|
00002960: 48 41 3B 44 45 56 49 43  45 00 4C 49 92 18 20 54  |HA;DEVICE.LI.. T|
00002970: 59 41 3B 49 53 00 5B 49  9C 18 20 50 48 41 3B 52  |YA;IS.[I.. PHA;R|
00002980: 45 41 44 59 00 6B 49 A6  18 20 4C 44 41 23 30 3B  |EADY.kI.. LDA#0;|
00002990: 43 4F 50 59 00 7B 49 B0  18 20 53 54 41 24 39 30  |COPY.{I.. STA$90|
000029A0: 3B 20 4F 46 00 8D 49 BA  18 20 4C 44 41 24 42 41  |; OF..I.. LDA$BA|
000029B0: 3B 20 52 4F 4D 2D 00 A3  49 C4 18 20 4A 53 52 24  |; ROM-..I.. JSR$|
000029C0: 45 44 30 43 3B 20 53 4F  55 52 43 45 00 AF 49 CE  |ED0C; SOURCE..I.|
000029D0: 18 20 4C 44 41 24 42 39  00 BC 49 D8 18 20 4F 52  |. LDA$B9..I.. OR|
000029E0: 41 23 24 46 30 00 CA 49  E2 18 20 4A 53 52 24 45  |A#$F0..I.. JSR$E|
000029F0: 44 42 39 00 D6 49 EC 18  20 4C 44 41 24 39 30 00  |DB9..I.. LDA$90.|
00002A00: E5 49 F6 18 20 42 50 4C  44 45 56 52 44 59 00 EE  |.I.. BPLDEVRDY..|
00002A10: 49 00 19 20 50 4C 41 00  F7 49 0A 19 20 50 4C 41  |I.. PLA..I.. PLA|
00002A20: 00 00 4A 14 19 20 50 4C  41 00 09 4A 1E 19 20 50  |..J.. PLA..J.. P|
00002A30: 4C 41 00 12 4A 28 19 20  50 4C 41 00 24 4A 32 19  |LA..J(. PLA.$J2.|
00002A40: 20 4C 44 58 23 35 3B 44  45 56 49 43 45 00 3A 4A  | LDX#5;DEVICE.:J|
00002A50: 3C 19 20 4A 4D 50 24 41  34 33 37 3B 4E 4F 54 20  |<. JMP$A437;NOT |
00002A60: 52 44 59 00 49 4A 46 19  44 45 56 52 44 59 20 50  |RDY.IJF.DEVRDY P|
00002A70: 4C 41 00 52 4A 50 19 20  54 41 59 00 5B 4A 5A 19  |LA.RJP. TAY.[JZ.|
00002A80: 20 50 4C 41 00 64 4A 64  19 20 54 41 58 00 6D 4A  | PLA.dJd. TAX.mJ|
00002A90: 6E 19 20 50 4C 41 00 76  4A 78 19 20 52 54 53 00  |n. PLA.vJx. RTS.|
00002AA0: 7C 4A 82 19 3B 00 8E 4A  8C 19 56 45 52 20 4C 44  ||J..;..J..VER LD|
00002AB0: 41 23 31 3B 4E 45 57 00  A1 4A 96 19 20 2E 42 59  |A#1;NEW..J.. .BY|
00002AC0: 24 32 43 3B 56 45 52 49  46 59 00 B4 4A A0 19 4C  |$2C;VERIFY..J..L|
00002AD0: 4F 41 44 20 4C 44 41 23  30 3B 41 4E 44 00 C5 4A  |OAD LDA#0;AND..J|
00002AE0: AA 19 20 53 54 41 24 30  41 3B 4C 4F 41 44 00 DB  |.. STA$0A;LOAD..|
00002AF0: 4A B4 19 20 4A 53 52 4D  44 49 53 3B 52 4F 55 54  |J.. JSRMDIS;ROUT|
00002B00: 49 4E 45 53 00 EA 4A BE  19 20 4A 53 52 44 45 56  |INES..J.. JSRDEV|
00002B10: 50 41 52 00 F8 4A C8 19  20 4A 53 52 24 45 31 36  |PAR..J.. JSR$E16|
00002B20: 46 00 0A 4B D2 19 4D 45  4E 20 4C 44 41 4D 44 49  |F..K..MEN LDAMDI|
00002B30: 4D 44 45 00 18 4B DC 19  20 53 54 41 24 44 45 30  |MDE..K.. STA$DE0|
00002B40: 34 00 21 4B E6 19 20 52  54 53 00 27 4B F0 19 3B  |4.!K.. RTS.'K..;|
00002B50: 00 3C 4B FA 19 53 41 56  45 20 4A 53 52 4D 44 49  |.<K..SAVE JSRMDI|
00002B60: 53 3B 4E 45 57 00 50 4B  04 1A 20 4A 53 52 44 45  |S;NEW.PK.. JSRDE|
00002B70: 56 50 41 52 3B 53 41 56  45 00 66 4B 0E 1A 20 4A  |VPAR;SAVE.fK.. J|
00002B80: 53 52 24 45 31 35 39 3B  52 4F 55 54 49 4E 45 00  |SR$E159;ROUTINE.|
00002B90: 72 4B 18 1A 20 4A 4D 50  4D 45 4E 00 78 4B 22 1A  |rK.. JMPMEN.xK".|
00002BA0: 3B 00 8F 4B 2C 1A 4D 44  49 53 20 4C 44 41 23 33  |;..K,.MDIS LDA#3|
00002BB0: 3B 44 49 53 41 42 4C 45  00 A2 4B 36 1A 20 53 54  |;DISABLE..K6. ST|
00002BC0: 41 24 44 45 30 34 3B 4D  49 44 49 00 AB 4B 40 1A  |A$DE04;MIDI..K@.|
00002BD0: 20 52 54 53 00 B1 4B 4A  1A 3B 00 C6 4B 54 1A 44  | RTS..KJ.;..KT.D|
00002BE0: 45 56 50 41 52 20 4C 44  41 23 30 3B 53 45 54 00  |EVPAR LDA#0;SET.|
00002BF0: DC 4B 5E 1A 20 4A 53 52  24 46 46 42 44 3B 44 45  |.K^. JSR$FFBD;DE|
00002C00: 46 41 55 4C 54 00 F2 4B  68 1A 20 4C 44 58 44 45  |FAULT..Kh. LDXDE|
00002C10: 56 54 59 50 3B 44 45 56  49 43 45 00 01 4C 72 1A  |VTYP;DEVICE..Lr.|
00002C20: 20 4C 44 59 23 31 3B 41  4E 44 00 16 4C 7C 1A 20  | LDY#1;AND..L|. |
00002C30: 4A 4D 50 24 45 31 44 44  3B 53 45 43 41 44 52 00  |JMP$E1DD;SECADR.|
00002C40: 1C 4C 86 1A 3B 00 32 4C  90 1A 4F 4C 44 20 4C 44  |.L..;.2L..OLD LD|
00002C50: 59 23 24 30 33 3B 52 45  4E 45 57 00 3D 4C 9A 1A  |Y#$03;RENEW.=L..|
00002C60: 4F 31 20 49 4E 59 00 55  4C A4 1A 20 4C 44 41 28  |O1 INY.UL.. LDA(|
00002C70: 24 32 42 29 2C 59 3B 52  45 53 54 4F 52 45 00 68  |$2B),Y;RESTORE.h|
00002C80: 4C AE 1A 20 42 4E 45 4F  31 3B 50 4F 49 4E 54 52  |L.. BNEO1;POINTR|
00002C90: 53 00 74 4C B8 1A 20 49  4E 59 3B 4F 46 00 84 4C  |S.tL.. INY;OF..L|
00002CA0: C2 1A 20 49 4E 59 3B 42  41 53 49 43 2D 00 95 4C  |.. INY;BASIC-..L|
00002CB0: CC 1A 20 54 59 41 3B 20  50 52 4F 47 52 4D 00 A5  |.. TYA; PROGRM..|
00002CC0: 4C D6 1A 20 4C 44 59 23  30 3B 56 41 52 53 00 BC  |L.. LDY#0;VARS..|
00002CD0: 4C E0 1A 20 53 54 41 28  24 32 42 29 2C 59 3B 41  |L.. STA($2B),Y;A|
00002CE0: 52 52 41 59 53 00 CC 4C  EA 1A 20 4C 44 41 24 32  |RRAYS..L.. LDA$2|
00002CF0: 43 3B 41 4E 44 00 DD 4C  F4 1A 20 49 4E 59 3B 53  |C;AND..L.. INY;S|
00002D00: 54 52 49 4E 47 53 00 ED  4C FE 1A 20 53 54 41 28  |TRINGS..L.. STA(|
00002D10: 24 32 42 29 2C 59 00 01  4D 08 1B 20 53 54 41 24  |$2B),Y..M.. STA$|
00002D20: 33 43 3B 52 45 53 54 4F  52 45 00 12 4D 12 1B 20  |3C;RESTORE..M.. |
00002D30: 4C 44 59 23 30 3B 4C 49  4E 45 2D 00 26 4D 1C 1B  |LDY#0;LINE-.&M..|
00002D40: 20 53 54 59 24 33 42 3B  4E 55 4D 42 45 52 53 00  | STY$3B;NUMBERS.|
00002D50: 34 4D 26 1B 4F 31 31 20  4C 44 58 23 30 00 3F 4D  |4M&.O11 LDX#0.?M|
00002D60: 30 1B 4F 32 20 49 4E 59  00 4A 4D 3A 1B 20 42 4E  |0.O2 INY.JM:. BN|
00002D70: 45 4F 33 00 56 4D 44 1B  20 49 4E 43 24 33 43 00  |EO3.VMD. INC$3C.|
00002D80: 68 4D 4E 1B 4F 33 20 4C  44 41 28 24 33 42 29 2C  |hMN.O3 LDA($3B),|
00002D90: 59 00 74 4D 58 1B 20 42  4E 45 4F 31 31 00 7D 4D  |Y.tMX. BNEO11.}M|
00002DA0: 62 1B 20 49 4E 58 00 88  4D 6C 1B 20 43 50 58 23  |b. INX..Ml. CPX#|
00002DB0: 33 00 93 4D 76 1B 20 42  4E 45 4F 32 00 9C 4D 80  |3..Mv. BNEO2..M.|
00002DC0: 1B 20 49 4E 59 00 A7 4D  8A 1B 20 42 4E 45 4F 34  |. INY..M.. BNEO4|
00002DD0: 00 B3 4D 94 1B 20 49 4E  43 24 33 43 00 C9 4D 9E  |..M.. INC$3C..M.|
00002DE0: 1B 4F 34 20 53 54 59 24  32 44 3B 52 45 53 54 4F  |.O4 STY$2D;RESTO|
00002DF0: 52 45 00 DA 4D A8 1B 20  4C 44 59 24 33 43 3B 56  |RE..M.. LDY$3C;V|
00002E00: 41 52 2D 00 EC 4D B2 1B  20 53 54 59 24 32 45 3B  |AR-..M.. STY$2E;|
00002E10: 53 54 41 52 54 00 F5 4D  BC 1B 20 52 54 53 00 FB  |START..M.. RTS..|
00002E20: 4D C6 1B 3B 00 13 4E D0  1B 48 45 4C 50 20 4C 44  |M..;..N..HELP LD|
00002E30: 59 23 33 39 3B 43 4C 45  41 52 20 31 00 26 4E DA  |Y#39;CLEAR 1.&N.|
00002E40: 1B 20 4A 53 52 48 4C 50  58 3B 20 4C 49 4E 45 00  |. JSRHLPX; LINE.|
00002E50: 31 4E E4 1B 20 4C 44 58  23 30 00 3C 4E EE 1B 20  |1N.. LDX#0.<N.. |
00002E60: 4C 44 59 23 31 00 47 4E  F8 1B 20 53 54 59 57 43  |LDY#1.GN.. STYWC|
00002E70: 00 53 4E 02 1C 20 4C 44  41 23 31 33 00 62 4E 0C  |.SN.. LDA#13.bN.|
00002E80: 1C 20 4A 53 52 50 55 54  43 48 52 00 7D 4E 16 1C  |. JSRPUTCHR.}N..|
00002E90: 48 4C 50 4C 4F 50 20 4C  44 41 42 45 46 54 41 42  |HLPLOP LDABEFTAB|
00002EA0: 2C 58 3B 50 55 54 00 94  4E 20 1C 20 42 45 51 48  |,X;PUT..N . BEQH|
00002EB0: 4C 50 45 4E 44 3B 20 4F  52 44 45 52 2D 00 A9 4E  |LPEND; ORDER-..N|
00002EC0: 2A 1C 20 42 50 4C 48 4C  50 4F 55 54 3B 20 4C 49  |*. BPLHLPOUT; LI|
00002ED0: 53 54 00 B6 4E 34 1C 20  53 45 43 3B 20 4F 4E 00  |ST..N4. SEC; ON.|
00002EE0: CB 4E 3E 1C 20 53 42 43  23 24 38 30 3B 20 53 43  |.N>. SBC#$80; SC|
00002EF0: 52 45 45 4E 00 DA 4E 48  1C 20 4A 53 52 50 55 54  |REEN..NH. JSRPUT|
00002F00: 43 48 52 00 ED 4E 52 1C  48 4C 50 4C 4F 50 31 20  |CHR..NR.HLPLOP1 |
00002F10: 4C 44 41 23 33 32 00 FC  4E 5C 1C 20 4A 53 52 50  |LDA#32..N\. JSRP|
00002F20: 55 54 43 48 52 00 05 4F  66 1C 20 49 4E 59 00 11  |UTCHR..Of. INY..|
00002F30: 4F 70 1C 20 43 50 59 23  31 30 00 21 4F 7A 1C 20  |Op. CPY#10.!Oz. |
00002F40: 42 4E 45 48 4C 50 4C 4F  50 31 00 2C 4F 84 1C 20  |BNEHLPLOP1.,O.. |
00002F50: 4C 44 59 57 43 00 3F 4F  8E 1C 20 43 50 59 23 34  |LDYWC.?O.. CPY#4|
00002F60: 3B 34 20 4F 52 44 52 53  00 52 4F 98 1C 20 42 4E  |;4 ORDRS.RO.. BN|
00002F70: 45 48 4C 50 57 43 3B 20  50 45 52 00 63 4F A2 1C  |EHLPWC; PER.cO..|
00002F80: 20 4C 44 59 23 30 3B 20  4C 49 4E 45 00 6E 4F AC  | LDY#0; LINE.nO.|
00002F90: 1C 20 53 54 59 57 43 00  7E 4F B6 1C 48 4C 50 57  |. STYWC.~O..HLPW|
00002FA0: 43 20 49 4E 43 57 43 00  89 4F C0 1C 20 4C 44 59  |C INCWC..O.. LDY|
00002FB0: 23 30 00 98 4F CA 1C 20  42 45 51 48 4C 50 42 52  |#0..O.. BEQHLPBR|
00002FC0: 44 00 AD 4F D4 1C 48 4C  50 4F 55 54 20 4A 53 52  |D..O..HLPOUT JSR|
00002FD0: 50 55 54 43 48 52 00 BC  4F DE 1C 48 4C 50 42 52  |PUTCHR..O..HLPBR|
00002FE0: 44 20 49 4E 58 00 C5 4F  E8 1C 20 49 4E 59 00 D4  |D INX..O.. INY..|
00002FF0: 4F F2 1C 20 42 4E 45 48  4C 50 4C 4F 50 00 EA 4F  |O.. BNEHLPLOP..O|
00003000: FC 1C 48 4C 50 45 4E 44  20 4C 44 59 23 34 30 3B  |..HLPEND LDY#40;|
00003010: 50 55 54 00 FD 4F 06 1D  20 4A 53 52 48 4C 50 58  |PUT..O.. JSRHLPX|
00003020: 3B 20 54 45 58 54 00 14  50 10 1D 20 4C 44 41 23  |; TEXT..P.. LDA#|
00003030: 3C 28 48 4C 50 54 58 54  29 3B 20 4F 4E 00 2F 50  |<(HLPTXT); ON./P|
00003040: 1A 1D 20 4C 44 59 23 3E  28 48 4C 50 54 58 54 29  |.. LDY#>(HLPTXT)|
00003050: 3B 20 53 43 52 45 45 4E  00 3E 50 24 1D 20 4A 53  |; SCREEN.>P$. JS|
00003060: 52 53 54 52 4F 55 54 00  4F 50 2E 1D 20 4C 44 59  |RSTROUT.OP.. LDY|
00003070: 23 35 35 3B 46 49 4C 4C  00 65 50 38 1D 48 4C 50  |#55;FILL.eP8.HLP|
00003080: 58 20 4C 44 41 23 33 32  3B 20 57 49 54 48 00 7C  |X LDA#32; WITH.||
00003090: 50 42 1D 20 4A 53 52 50  55 54 43 48 52 3B 20 53  |PB. JSRPUTCHR; S|
000030A0: 50 41 43 45 53 00 85 50  4C 1D 20 44 45 59 00 92  |PACES..PL. DEY..|
000030B0: 50 56 1D 20 42 4E 45 48  4C 50 58 00 9B 50 60 1D  |PV. BNEHLPX..P`.|
000030C0: 20 52 54 53 00 A1 50 6A  1D 3B 00 CA 50 74 1D 48  | RTS..Pj.;..Pt.H|
000030D0: 4C 50 54 58 54 20 2E 54  58 22 4D 49 44 49 2D 45  |LPTXT .TX"MIDI-E|
000030E0: 4D 50 46 41 4E 47 3A 20  56 41 52 3D 55 53 52 28  |MPFANG: VAR=USR(|
000030F0: 30 29 22 00 D4 50 7E 1D  20 2E 42 59 30 00 E0 50  |0)"..P~. .BY0..P|
00003100: 88 1D 57 43 20 2E 42 59  30 00 E6 50 92 1D 3B 00  |..WC .BY0..P..;.|
00003110: EC 50 9C 1D 3B 00 05 51  A6 1D 3B 2A 2A 2A 20 53  |.P..;..Q..;*** S|
00003120: 55 42 52 4F 55 54 49 4E  45 53 20 2A 2A 2A 00 0B  |UBROUTINES ***..|
00003130: 51 B0 1D 3B 00 11 51 BA  1D 3B 00 2A 51 C4 1D 47  |Q..;..Q..;.*Q..G|
00003140: 45 54 43 48 4E 20 4A 53  52 47 45 54 42 59 54 3B  |ETCHN JSRGETBYT;|
00003150: 47 45 54 00 3C 51 CE 1D  20 43 50 58 23 30 3B 20  |GET.<Q.. CPX#0; |
00003160: 4D 49 44 49 2D 00 52 51  D8 1D 20 42 4E 45 43 48  |MIDI-.RQ.. BNECH|
00003170: 45 43 4B 31 36 3B 20 43  48 4E 4C 00 6B 51 E2 1D  |ECK16; CHNL.kQ..|
00003180: 43 45 52 52 20 4A 4D 50  49 4C 4C 44 45 56 3B 20  |CERR JMPILLDEV; |
00003190: 46 52 4F 4D 00 85 51 EC  1D 43 48 45 43 4B 31 36  |FROM..Q..CHECK16|
000031A0: 20 43 50 58 23 31 37 3B  20 42 41 53 49 43 00 92  | CPX#17; BASIC..|
000031B0: 51 F6 1D 20 42 43 53 43  45 52 52 00 9B 51 00 1E  |Q.. BCSCERR..Q..|
000031C0: 20 44 45 58 00 A6 51 0A  1E 20 53 54 58 42 31 00  | DEX..Q.. STXB1.|
000031D0: AF 51 14 1E 20 52 54 53  00 B5 51 1E 1E 3B 00 CD  |.Q.. RTS..Q..;..|
000031E0: 51 28 1E 4D 4B 45 43 48  4E 20 4F 52 41 42 31 3B  |Q(.MKECHN ORAB1;|
000031F0: 43 52 45 41 54 45 00 DD  51 32 1E 20 54 41 58 3B  |CREATE..Q2. TAX;|
00003200: 20 4D 49 44 49 2D 00 ED  51 3C 1E 20 4A 4D 50 54  | MIDI-..Q<. JMPT|
00003210: 58 3B 20 43 4D 44 00 F3  51 46 1E 3B 00 0D 52 50  |X; CMD..QF.;..RP|
00003220: 1E 47 45 54 20 4A 53 52  4B 4F 4D 42 59 54 3B 47  |.GET JSRKOMBYT;G|
00003230: 45 54 20 4F 4E 45 00 21  52 5A 1E 20 43 50 58 23  |ET ONE.!RZ. CPX#|
00003240: 31 32 38 3B 20 4D 49 44  49 2D 00 34 52 64 1E 20  |128; MIDI-.4Rd. |
00003250: 42 43 43 42 59 45 3B 20  44 41 54 41 2D 00 48 52  |BCCBYE; DATA-.HR|
00003260: 6E 1E 20 4A 4D 50 49 4C  4C 51 55 3B 20 42 59 54  |n. JMPILLQU; BYT|
00003270: 45 00 54 52 78 1E 42 59  45 20 52 54 53 00 5A 52  |E.TRx.BYE RTS.ZR|
00003280: 82 1E 3B 00 70 52 8C 1E  47 45 54 31 20 4A 53 52  |..;.pR..GET1 JSR|
00003290: 47 45 54 3B 47 45 54 20  31 00 81 52 96 1E 20 4A  |GET;GET 1..R.. J|
000032A0: 4D 50 54 58 3B 20 42 59  54 45 00 87 52 A0 1E 3B  |MPTX; BYTE..R..;|
000032B0: 00 9D 52 AA 1E 47 45 54  32 20 4A 53 52 47 45 54  |..R..GET2 JSRGET|
000032C0: 3B 47 45 54 20 32 00 AF  52 B4 1E 20 4A 53 52 54  |;GET 2..R.. JSRT|
000032D0: 58 3B 20 42 59 54 45 53  00 BC 52 BE 1E 20 4A 4D  |X; BYTES..R.. JM|
000032E0: 50 47 45 54 31 00 C2 52  C8 1E 3B 00 D8 52 D2 1E  |PGET1..R..;..R..|
000032F0: 47 45 54 33 20 4A 53 52  47 45 54 3B 47 45 54 20  |GET3 JSRGET;GET |
00003300: 33 00 EA 52 DC 1E 20 4A  53 52 54 58 3B 20 42 59  |3..R.. JSRTX; BY|
00003310: 54 45 53 00 F7 52 E6 1E  20 4A 4D 50 47 45 54 32  |TES..R.. JMPGET2|
00003320: 00 FD 52 F0 1E 3B 00 13  53 FA 1E 54 58 20 4C 44  |..R..;..S..TX LD|
00003330: 41 4D 44 49 4D 44 45 3B  54 58 20 41 00 26 53 04  |AMDIMDE;TX A.&S.|
00003340: 1F 20 43 4D 50 23 24 39  32 3B 20 42 59 54 45 00  |. CMP#$92; BYTE.|
00003350: 35 53 0E 1F 20 42 45 51  54 58 4C 4F 4F 50 00 47  |5S.. BEQTXLOOP.G|
00003360: 53 18 1F 20 53 54 58 42  31 3B 45 4E 41 42 4C 45  |S.. STXB1;ENABLE|
00003370: 00 58 53 22 1F 20 4A 53  52 41 4E 3B 20 4D 49 44  |.XS". JSRAN; MID|
00003380: 49 00 63 53 2C 1F 20 4C  44 58 42 31 00 7E 53 36  |I.cS,. LDXB1.~S6|
00003390: 1F 54 58 4C 4F 4F 50 20  4C 44 41 24 44 45 30 36  |.TXLOOP LDA$DE06|
000033A0: 3B 54 52 41 4E 53 2D 00  8C 53 40 1F 20 4C 53 52  |;TRANS-..S@. LSR|
000033B0: 3B 20 4D 49 54 00 95 53  4A 1F 20 4C 53 52 00 A4  |; MIT..SJ. LSR..|
000033C0: 53 54 1F 20 42 43 43 54  58 4C 4F 4F 50 00 B2 53  |ST. BCCTXLOOP..S|
000033D0: 5E 1F 20 53 54 58 24 44  45 30 35 00 BB 53 68 1F  |^. STX$DE05..Sh.|
000033E0: 20 52 54 53 00 CB 53 72  1F 4D 44 49 4D 44 45 20  | RTS..Sr.MDIMDE |
000033F0: 2E 42 59 33 00 D1 53 7C  1F 3B 00 E5 53 86 1F 52  |.BY3..S|.;..S..R|
00003400: 58 20 4C 44 41 52 42 50  2B 31 3B 4E 45 57 00 F9  |X LDARBP+1;NEW..|
00003410: 53 90 1F 20 43 4D 50 4D  42 50 2B 31 3B 20 44 41  |S.. CMPMBP+1; DA|
00003420: 54 41 00 0B 54 9A 1F 20  42 4E 45 52 58 4F 4E 3B  |TA..T.. BNERXON;|
00003430: 20 52 45 2D 00 1F 54 A4  1F 20 4C 44 41 52 42 50  | RE-..T.. LDARBP|
00003440: 3B 20 43 45 49 56 45 44  00 2E 54 AE 1F 20 43 4D  |; CEIVED..T.. CM|
00003450: 50 4D 42 50 3B 20 3F 00  3F 54 B8 1F 20 42 4E 45  |PMBP; ?.?T.. BNE|
00003460: 52 58 4F 4E 3B 59 45 53  00 4F 54 C2 1F 20 4C 44  |RXON;YES.OT.. LD|
00003470: 59 23 32 35 35 3B 4E 4F  00 63 54 CC 1F 20 4A 4D  |Y#255;NO.cT.. JM|
00003480: 50 52 58 45 4E 44 3B 2D  3E 32 35 35 00 72 54 D6  |PRXEND;->255.rT.|
00003490: 1F 52 58 4F 4E 20 4C 44  59 23 30 00 7F 54 E0 1F  |.RXON LDY#0..T..|
000034A0: 20 53 45 49 3B 47 45 54  00 91 54 EA 1F 20 4C 44  | SEI;GET..T.. LD|
000034B0: 58 23 35 32 3B 20 42 59  54 45 00 A2 54 F4 1F 20  |X#52; BYTE..T.. |
000034C0: 53 54 58 31 3B 20 55 4E  44 45 52 00 B7 54 FE 1F  |STX1; UNDER..T..|
000034D0: 20 4C 44 41 28 52 42 50  29 2C 59 3B 20 52 4F 4D  | LDA(RBP),Y; ROM|
000034E0: 00 C4 54 08 20 20 4C 44  58 23 24 33 36 00 CE 54  |..T.  LDX#$36..T|
000034F0: 12 20 20 53 54 58 31 00  D7 54 1C 20 20 43 4C 49  |.  STX1..T.  CLI|
00003500: 00 E9 54 26 20 20 4C 44  58 52 42 50 2B 31 3B 49  |..T&  LDXRBP+1;I|
00003510: 4E 43 00 FB 54 30 20 20  4C 44 59 52 42 50 3B 20  |NC..T0  LDYRBP; |
00003520: 50 4E 54 52 00 04 55 3A  20 20 49 4E 59 00 13 55  |PNTR..U:  INY..U|
00003530: 44 20 20 42 4E 45 53 45  54 52 42 50 00 1C 55 4E  |D  BNESETRBP..UN|
00003540: 20 20 49 4E 58 00 30 55  58 20 20 43 50 58 23 24  |  INX.0UX  CPX#$|
00003550: 30 30 3B 45 4E 44 20 4F  46 00 46 55 62 20 20 42  |00;END OF.FUb  B|
00003560: 4E 45 53 45 54 52 42 50  3B 20 42 55 46 52 3F 00  |NESETRBP; BUFR?.|
00003570: 60 55 6C 20 52 42 50 53  45 54 20 4C 44 58 23 24  |`Ul RBPSET LDX#$|
00003580: 45 30 3B 53 45 54 20 4C  4F 00 76 55 76 20 53 45  |E0;SET LO.vUv SE|
00003590: 54 52 42 50 20 53 54 59  52 42 50 3B 53 45 54 00  |TRBP STYRBP;SET.|
000035A0: 8A 55 80 20 20 53 54 58  52 42 50 2B 31 3B 20 50  |.U.  STXRBP+1; P|
000035B0: 4E 54 52 00 93 55 8A 20  20 54 41 59 00 A9 55 94  |NTR..U.  TAY..U.|
000035C0: 20 52 58 45 4E 44 20 4C  44 41 23 30 3B 4D 53 42  | RXEND LDA#0;MSB|
000035D0: 3D 30 00 BD 55 9E 20 20  4A 4D 50 24 42 33 39 35  |=0..U.  JMP$B395|
000035E0: 3B 44 4F 56 41 52 00 C3  55 A8 20 3B 00 D0 55 B2  |;DOVAR..U. ;..U.|
000035F0: 20 4C 45 46 54 20 41 53  4C 00 D9 55 BC 20 20 41  | LEFT ASL..U.  A|
00003600: 53 4C 00 E2 55 C6 20 20  41 53 4C 00 EB 55 D0 20  |SL..U.  ASL..U. |
00003610: 20 41 53 4C 00 F4 55 DA  20 20 52 54 53 00 FA 55  | ASL..U.  RTS..U|
00003620: E4 20 3B 00 08 56 EE 20  52 49 47 48 54 20 4C 53  |. ;..V. RIGHT LS|
00003630: 52 00 11 56 F8 20 20 4C  53 52 00 1A 56 02 21 20  |R..V.  LSR..V.! |
00003640: 4C 53 52 00 23 56 0C 21  20 4C 53 52 00 2C 56 16  |LSR.#V.! LSR.,V.|
00003650: 21 20 52 54 53 00 32 56  20 21 3B 00 4E 56 2A 21  |! RTS.2V !;.NV*!|
00003660: 4B 4F 4D 42 59 54 20 4A  53 52 43 48 4B 43 4F 4D  |KOMBYT JSRCHKCOM|
00003670: 3B 4B 4F 4D 4D 41 3F 00  5D 56 34 21 20 4A 4D 50  |;KOMMA?.]V4! JMP|
00003680: 47 45 54 42 59 54 00 63  56 3E 21 3B 00 7E 56 48  |GETBYT.cV>!;.~VH|
00003690: 21 49 4C 4C 51 55 20 4A  4D 50 24 42 32 34 38 3B  |!ILLQU JMP$B248;|
000036A0: 49 4C 4C 2E 51 55 2E 00  97 56 52 21 49 4C 4C 44  |ILL.QU...VR!ILLD|
000036B0: 45 56 20 4C 44 58 23 39  3B 49 4C 4C 45 47 41 4C  |EV LDX#9;ILLEGAL|
000036C0: 00 AD 56 5C 21 20 4A 4D  50 24 41 34 33 37 3B 20  |..V\! JMP$A437; |
000036D0: 44 45 56 49 43 45 00 B3  56 66 21 3B 00 CD 56 70  |DEVICE..Vf!;..Vp|
000036E0: 21 3B 20 2A 2A 2A 20 53  49 44 2D 53 55 50 50 4F  |!; *** SID-SUPPO|
000036F0: 52 54 20 2A 2A 2A 00 D3  56 7A 21 3B 00 EB 56 84  |RT ***..Vz!;..V.|
00003700: 21 53 49 44 52 45 53 20  4C 44 58 23 32 34 3B 52  |!SIDRES LDX#24;R|
00003710: 45 53 45 54 00 FB 56 8E  21 20 4C 44 41 23 30 3B  |ESET..V.! LDA#0;|
00003720: 20 53 49 44 00 0F 57 98  21 53 52 45 53 20 53 54  | SID..W.!SRES ST|
00003730: 41 35 34 32 37 32 2C 58  00 18 57 A2 21 20 44 45  |A54272,X..W.! DE|
00003740: 58 00 25 57 AC 21 20 42  4E 45 53 52 45 53 00 2E  |X.%W.! BNESRES..|
00003750: 57 B6 21 20 52 54 53 00  34 57 C0 21 3B 00 4A 57  |W.! RTS.4W.!;.JW|
00003760: CA 21 53 56 4F 4C 20 4A  53 52 47 45 54 31 36 3B  |.!SVOL JSRGET16;|
00003770: 53 45 54 00 5C 57 D4 21  20 42 43 43 53 4F 4E 3B  |SET.\W.! BCCSON;|
00003780: 20 53 49 44 2D 00 72 57  DE 21 20 4A 4D 50 49 4C  | SID-.rW.! JMPIL|
00003790: 4C 51 55 3B 20 56 4F 4C  55 4D 45 00 84 57 E8 21  |LQU; VOLUME..W.!|
000037A0: 53 4F 4E 20 53 54 58 53  49 44 42 55 46 00 8D 57  |SON STXSIDBUF..W|
000037B0: F2 21 20 54 58 41 00 9E  57 FC 21 20 4F 52 41 53  |.! TXA..W.! ORAS|
000037C0: 49 44 42 55 46 2B 31 00  AC 57 06 22 20 53 54 41  |IDBUF+1..W." STA|
000037D0: 35 34 32 39 36 00 B5 57  10 22 20 52 54 53 00 BB  |54296..W." RTS..|
000037E0: 57 1A 22 3B 00 D2 57 24  22 46 4D 4F 44 45 20 4A  |W.";..W$"FMODE J|
000037F0: 53 52 47 45 54 31 36 3B  53 45 54 00 E6 57 2E 22  |SRGET16;SET..W."|
00003800: 20 42 43 43 46 4F 4E 3B  20 46 49 4C 54 45 52 00  | BCCFON; FILTER.|
00003810: FA 57 38 22 20 4A 4D 50  49 4C 4C 51 55 3B 20 4D  |.W8" JMPILLQU; M|
00003820: 4F 44 45 00 06 58 42 22  46 4F 4E 20 54 58 41 00  |ODE..XB"FON TXA.|
00003830: 13 58 4C 22 20 4A 53 52  4C 45 46 54 00 24 58 56  |.XL" JSRLEFT.$XV|
00003840: 22 20 53 54 41 53 49 44  42 55 46 2B 31 00 33 58  |" STASIDBUF+1.3X|
00003850: 60 22 20 4F 52 41 53 49  44 42 55 46 00 41 58 6A  |`" ORASIDBUF.AXj|
00003860: 22 20 53 54 41 35 34 32  39 36 00 4A 58 74 22 20  |" STA54296.JXt" |
00003870: 52 54 53 00 50 58 7E 22  3B 00 6B 58 88 22 46 56  |RTS.PX~";.kX."FV|
00003880: 4F 49 43 45 20 4A 53 52  47 45 54 31 36 3B 46 49  |OICE JSRGET16;FI|
00003890: 4C 54 45 52 00 7B 58 92  22 20 42 43 43 56 4F 4E  |LTER.{X." BCCVON|
000038A0: 3B 20 54 4F 00 90 58 9C  22 20 4A 4D 50 49 4C 4C  |; TO..X." JMPILL|
000038B0: 51 55 3B 20 56 4F 49 43  45 00 A4 58 A6 22 56 4F  |QU; VOICE..X."VO|
000038C0: 4E 20 53 54 58 53 49 44  42 55 46 2B 33 00 AD 58  |N STXSIDBUF+3..X|
000038D0: B0 22 20 54 58 41 00 BE  58 BA 22 20 4F 52 41 53  |." TXA..X." ORAS|
000038E0: 49 44 42 55 46 2B 32 00  CC 58 C4 22 20 53 54 41  |IDBUF+2..X." STA|
000038F0: 35 34 32 39 35 00 D5 58  CE 22 20 52 54 53 00 DB  |54295..X." RTS..|
00003900: 58 D8 22 3B 00 F1 58 E2  22 46 52 45 53 20 4A 53  |X.";..X."FRES JS|
00003910: 52 47 45 54 31 36 3B 53  45 54 00 04 59 EC 22 20  |RGET16;SET..Y." |
00003920: 42 43 43 52 4F 4E 3B 20  52 45 53 4F 2D 00 19 59  |BCCRON; RESO-..Y|
00003930: F6 22 20 4A 4D 50 49 4C  4C 51 55 3B 20 4E 41 4E  |." JMPILLQU; NAN|
00003940: 43 45 00 25 59 00 23 52  4F 4E 20 54 58 41 00 32  |CE.%Y.#RON TXA.2|
00003950: 59 0A 23 20 4A 53 52 4C  45 46 54 00 43 59 14 23  |Y.# JSRLEFT.CY.#|
00003960: 20 53 54 41 53 49 44 42  55 46 2B 32 00 54 59 1E  | STASIDBUF+2.TY.|
00003970: 23 20 4F 52 41 53 49 44  42 55 46 2B 33 00 62 59  |# ORASIDBUF+3.bY|
00003980: 28 23 20 53 54 41 35 34  32 39 35 00 6B 59 32 23  |(# STA54295.kY2#|
00003990: 20 52 54 53 00 71 59 3C  23 3B 00 88 59 46 23 46  | RTS.qY<#;..YF#F|
000039A0: 46 52 45 51 20 4A 53 52  24 41 44 38 41 3B 53 45  |FREQ JSR$AD8A;SE|
000039B0: 54 00 9E 59 50 23 20 4A  53 52 24 42 37 46 37 3B  |T..YP# JSR$B7F7;|
000039C0: 20 46 49 4C 54 45 52 00  B1 59 5A 23 20 4C 44 41  | FILTER..YZ# LDA|
000039D0: 24 31 34 3B 20 46 52 45  51 2E 00 BD 59 64 23 20  |$14; FREQ...Yd# |
000039E0: 4C 44 59 24 31 35 00 CB  59 6E 23 20 53 54 41 35  |LDY$15..Yn# STA5|
000039F0: 34 32 39 33 00 D9 59 78  23 20 53 54 59 35 34 32  |4293..Yx# STY542|
00003A00: 39 34 00 E2 59 82 23 20  52 54 53 00 E8 59 8C 23  |94..Y.# RTS..Y.#|
00003A10: 3B 00 00 5A 96 23 56 4F  49 43 45 20 4A 53 52 47  |;..Z.#VOICE JSRG|
00003A20: 45 54 42 59 54 3B 53 45  54 00 10 5A A0 23 20 53  |ETBYT;SET..Z.# S|
00003A30: 54 58 42 34 3B 20 4F 53  43 00 27 5A AA 23 20 4A  |TXB4; OSC.'Z.# J|
00003A40: 53 52 47 45 54 56 4F 49  43 45 3B 20 54 4F 20 41  |SRGETVOICE; TO A|
00003A50: 00 3E 5A B4 23 20 4A 53  52 47 45 54 52 45 47 3B  |.>Z.# JSRGETREG;|
00003A60: 20 4E 4F 54 45 27 53 00  50 5A BE 23 20 43 4D 50  | NOTE'S.PZ.# CMP|
00003A70: 23 31 3B 20 46 52 45 51  2E 00 5C 5A C8 23 20 42  |#1; FREQ..\Z.# B|
00003A80: 4E 45 56 43 32 00 6A 5A  D2 23 20 53 54 58 35 34  |NEVC2.jZ.# STX54|
00003A90: 32 37 32 00 78 5A DC 23  20 53 54 59 35 34 32 37  |272.xZ.# STY5427|
00003AA0: 33 00 81 5A E6 23 20 52  54 53 00 8F 5A F0 23 56  |3..Z.# RTS..Z.#V|
00003AB0: 43 32 20 43 4D 50 23 32  00 9B 5A FA 23 20 42 4E  |C2 CMP#2..Z.# BN|
00003AC0: 45 56 43 33 00 A9 5A 04  24 20 53 54 58 35 34 32  |EVC3..Z.$ STX542|
00003AD0: 37 39 00 B7 5A 0E 24 20  53 54 59 35 34 32 38 30  |79..Z.$ STY54280|
00003AE0: 00 C0 5A 18 24 20 52 54  53 00 CE 5A 22 24 56 43  |..Z.$ RTS..Z"$VC|
00003AF0: 33 20 43 4D 50 23 33 00  DB 5A 2C 24 20 42 4E 45  |3 CMP#3..Z,$ BNE|
00003B00: 56 45 52 52 00 E9 5A 36  24 20 53 54 58 35 34 32  |VERR..Z6$ STX542|
00003B10: 38 36 00 F7 5A 40 24 20  53 54 59 35 34 32 38 37  |86..Z@$ STY54287|
00003B20: 00 00 5B 4A 24 20 52 54  53 00 13 5B 54 24 56 45  |..[J$ RTS..[T$VE|
00003B30: 52 52 20 4A 4D 50 49 4C  4C 44 45 56 00 26 5B 5E  |RR JMPILLDEV.&[^|
00003B40: 24 56 45 52 52 32 20 4A  4D 50 49 4C 4C 51 55 00  |$VERR2 JMPILLQU.|
00003B50: 3D 5B 68 24 47 45 54 56  4F 49 43 45 20 4A 53 52  |=[h$GETVOICE JSR|
00003B60: 4B 4F 4D 42 59 54 00 49  5B 72 24 20 43 50 58 23  |KOMBYT.I[r$ CPX#|
00003B70: 39 35 00 57 5B 7C 24 20  42 43 53 56 45 52 52 32  |95.W[|$ BCSVERR2|
00003B80: 00 6D 5B 86 24 20 4C 44  41 4B 45 59 4C 4F 57 2C  |.m[.$ LDAKEYLOW,|
00003B90: 58 3B 4C 4F 41 44 00 7E  5B 90 24 20 53 54 41 42  |X;LOAD.~[.$ STAB|
00003BA0: 32 3B 20 4E 4F 54 45 00  96 5B 9A 24 20 4C 44 41  |2; NOTE..[.$ LDA|
00003BB0: 4B 45 59 48 49 47 48 2C  58 3B 20 46 52 4F 4D 00  |KEYHIGH,X; FROM.|
00003BC0: A8 5B A4 24 20 53 54 41  42 31 3B 20 54 41 42 4C  |.[.$ STAB1; TABL|
00003BD0: 45 00 B1 5B AE 24 20 52  54 53 00 B7 5B B8 24 3B  |E..[.$ RTS..[.$;|
00003BE0: 00 D0 5B C2 24 50 57 49  44 54 48 20 4A 53 52 47  |..[.$PWIDTH JSRG|
00003BF0: 45 54 42 59 54 3B 53 45  54 00 E3 5B CC 24 20 53  |ETBYT;SET..[.$ S|
00003C00: 54 58 42 34 3B 20 50 55  4C 53 45 2D 00 F8 5B D6  |TXB4; PULSE-..[.|
00003C10: 24 20 4A 53 52 47 45 54  50 57 3B 20 57 49 44 54  |$ JSRGETPW; WIDT|
00003C20: 48 00 07 5C E0 24 20 4A  53 52 47 45 54 52 45 47  |H..\.$ JSRGETREG|
00003C30: 00 10 5C EA 24 20 4E 4F  50 00 1B 5C F4 24 20 43  |..\.$ NOP..\.$ C|
00003C40: 4D 50 23 31 00 27 5C FE  24 20 42 4E 45 50 57 32  |MP#1.'\.$ BNEPW2|
00003C50: 00 35 5C 08 25 20 53 54  58 35 34 32 37 34 00 43  |.5\.% STX54274.C|
00003C60: 5C 12 25 20 53 54 59 35  34 32 37 35 00 4C 5C 1C  |\.% STY54275.L\.|
00003C70: 25 20 52 54 53 00 5A 5C  26 25 50 57 32 20 43 4D  |% RTS.Z\&%PW2 CM|
00003C80: 50 23 32 00 66 5C 30 25  20 42 4E 45 50 57 33 00  |P#2.f\0% BNEPW3.|
00003C90: 74 5C 3A 25 20 53 54 58  35 34 32 38 31 00 82 5C  |t\:% STX54281..\|
00003CA0: 44 25 20 53 54 59 35 34  32 38 32 00 8B 5C 4E 25  |D% STY54282..\N%|
00003CB0: 20 52 54 53 00 99 5C 58  25 50 57 33 20 43 4D 50  | RTS..\X%PW3 CMP|
00003CC0: 23 33 00 A6 5C 62 25 20  42 4E 45 50 45 52 52 00  |#3..\b% BNEPERR.|
00003CD0: B4 5C 6C 25 20 53 54 58  35 34 32 38 38 00 C2 5C  |.\l% STX54288..\|
00003CE0: 76 25 20 53 54 59 35 34  32 38 39 00 CB 5C 80 25  |v% STY54289..\.%|
00003CF0: 20 52 54 53 00 DE 5C 8A  25 50 45 52 52 20 4A 4D  | RTS..\.%PERR JM|
00003D00: 50 49 4C 4C 44 45 56 00  F2 5C 94 25 47 45 54 50  |PILLDEV..\.%GETP|
00003D10: 57 20 4A 53 52 43 48 4B  43 4F 4D 00 04 5D 9E 25  |W JSRCHKCOM..].%|
00003D20: 20 4A 53 52 24 41 44 38  41 3B 47 45 54 00 1A 5D  | JSR$AD8A;GET..]|
00003D30: A8 25 20 4A 53 52 24 42  37 46 37 3B 20 31 36 20  |.% JSR$B7F7; 16 |
00003D40: 42 49 54 00 26 5D B2 25  20 4C 44 41 24 31 34 00  |BIT.&].% LDA$14.|
00003D50: 32 5D BC 25 20 4C 44 59  24 31 35 00 3D 5D C6 25  |2].% LDY$15.=].%|
00003D60: 20 53 54 41 42 32 00 48  5D D0 25 20 53 54 59 42  | STAB2.H].% STYB|
00003D70: 31 00 51 5D DA 25 20 52  54 53 00 57 5D E4 25 3B  |1.Q].% RTS.W].%;|
00003D80: 00 6E 5D EE 25 41 44 53  52 20 4A 53 52 47 45 54  |.n].%ADSR JSRGET|
00003D90: 42 59 54 3B 53 45 54 00  7F 5D F8 25 20 53 54 58  |BYT;SET..].% STX|
00003DA0: 42 34 3B 20 41 44 53 52  00 8E 5D 02 26 20 4A 53  |B4; ADSR..].& JS|
00003DB0: 52 47 45 54 45 4E 56 00  9D 5D 0C 26 20 4A 53 52  |RGETENV..].& JSR|
00003DC0: 47 45 54 52 45 47 00 A8  5D 16 26 20 43 4D 50 23  |GETREG..].& CMP#|
00003DD0: 31 00 B3 5D 20 26 20 42  4E 45 41 32 00 C1 5D 2A  |1..] & BNEA2..]*|
00003DE0: 26 20 53 54 58 35 34 32  37 37 00 CF 5D 34 26 20  |& STX54277..]4& |
00003DF0: 53 54 59 35 34 32 37 38  00 D8 5D 3E 26 20 52 54  |STY54278..]>& RT|
00003E00: 53 00 E5 5D 48 26 41 32  20 43 4D 50 23 32 00 F0  |S..]H&A2 CMP#2..|
00003E10: 5D 52 26 20 42 4E 45 41  33 00 FE 5D 5C 26 20 53  |]R& BNEA3..]\& S|
00003E20: 54 58 35 34 32 38 34 00  0C 5E 66 26 20 53 54 59  |TX54284..^f& STY|
00003E30: 35 34 32 38 35 00 15 5E  70 26 20 52 54 53 00 22  |54285..^p& RTS."|
00003E40: 5E 7A 26 41 33 20 43 4D  50 23 33 00 2F 5E 84 26  |^z&A3 CMP#3./^.&|
00003E50: 20 42 4E 45 41 45 52 52  00 3D 5E 8E 26 20 53 54  | BNEAERR.=^.& ST|
00003E60: 58 35 34 32 39 31 00 4B  5E 98 26 20 53 54 59 35  |X54291.K^.& STY5|
00003E70: 34 32 39 32 00 54 5E A2  26 20 52 54 53 00 67 5E  |4292.T^.& RTS.g^|
00003E80: AC 26 41 45 52 52 20 4A  4D 50 49 4C 4C 44 45 56  |.&AERR JMPILLDEV|
00003E90: 00 7A 5E B6 26 41 45 52  52 32 20 4A 4D 50 49 4C  |.z^.&AERR2 JMPIL|
00003EA0: 4C 51 55 00 8B 5E C0 26  47 45 54 45 4E 56 20 4C  |LQU..^.&GETENV L|
00003EB0: 44 59 23 31 00 96 5E CA  26 20 53 54 59 42 33 00  |DY#1..^.& STYB3.|
00003EC0: B0 5E D4 26 45 4E 56 4C  4F 4F 50 20 4A 53 52 4B  |.^.&ENVLOOP JSRK|
00003ED0: 4F 4D 42 59 54 3B 47 45  54 00 C0 5E DE 26 20 54  |OMBYT;GET..^.& T|
00003EE0: 58 41 3B 20 41 4C 4C 20  34 00 D3 5E E8 26 20 43  |XA; ALL 4..^.& C|
00003EF0: 4D 50 23 31 36 3B 20 50  41 52 41 2D 00 E9 5E F2  |MP#16; PARA-..^.|
00003F00: 26 20 42 43 53 41 45 52  52 32 3B 20 4D 45 54 45  |& BCSAERR2; METE|
00003F10: 52 53 00 FB 5E FC 26 20  4A 53 52 4C 45 46 54 3B  |RS..^.& JSRLEFT;|
00003F20: 20 41 4E 44 00 0D 5F 06  27 20 4C 44 59 42 33 3B  | AND.._.' LDYB3;|
00003F30: 20 43 48 45 43 4B 00 20  5F 10 27 20 53 54 41 42  | CHECK. _.' STAB|
00003F40: 31 2C 59 3B 20 54 48 45  4D 00 2F 5F 1A 27 20 4A  |1,Y; THEM./_.' J|
00003F50: 53 52 4B 4F 4D 42 59 54  00 38 5F 24 27 20 54 58  |SRKOMBYT.8_$' TX|
00003F60: 41 00 44 5F 2E 27 20 43  4D 50 23 31 36 00 52 5F  |A.D_.' CMP#16.R_|
00003F70: 38 27 20 42 43 53 41 45  52 52 32 00 62 5F 42 27  |8' BCSAERR2.b_B'|
00003F80: 20 4C 44 59 42 33 3B 46  4F 52 4D 00 77 5F 4C 27  | LDYB3;FORM.w_L'|
00003F90: 20 4F 52 41 42 31 2C 59  3B 20 31 36 2A 41 2B 44  | ORAB1,Y; 16*A+D|
00003FA0: 00 89 5F 56 27 20 53 54  41 42 31 2C 59 3B 20 41  |.._V' STAB1,Y; A|
00003FB0: 4E 44 00 9C 5F 60 27 20  44 45 43 42 33 3B 20 31  |ND.._`' DECB3; 1|
00003FC0: 36 2A 53 2B 52 00 AC 5F  6A 27 20 42 45 51 45 4E  |6*S+R.._j' BEQEN|
00003FD0: 56 4C 4F 4F 50 00 B5 5F  74 27 20 52 54 53 00 BB  |VLOOP.._t' RTS..|
00003FE0: 5F 7E 27 3B 00 D2 5F 88  27 57 41 56 45 20 4A 53  |_~';.._.'WAVE JS|
00003FF0: 52 47 45 54 42 59 54 3B  53 45 54 00 E3 5F 92 27  |RGETBYT;SET.._.'|
00004000: 20 53 54 58 42 34 3B 20  4F 53 43 2D 00 F8 5F 9C  | STXB4; OSC-.._.|
00004010: 27 20 4A 53 52 4B 4F 4D  42 59 54 3B 20 57 41 56  |' JSRKOMBYT; WAV|
00004020: 45 00 03 60 A6 27 20 4C  44 41 42 34 00 0E 60 B0  |E..`.' LDAB4..`.|
00004030: 27 20 43 4D 50 23 31 00  19 60 BA 27 20 42 4E 45  |' CMP#1..`.' BNE|
00004040: 57 32 00 27 60 C4 27 20  53 54 58 35 34 32 37 36  |W2.'`.' STX54276|
00004050: 00 30 60 CE 27 20 52 54  53 00 3D 60 D8 27 57 32  |.0`.' RTS.=`.'W2|
00004060: 20 43 4D 50 23 32 00 48  60 E2 27 20 42 4E 45 57  | CMP#2.H`.' BNEW|
00004070: 33 00 56 60 EC 27 20 53  54 58 35 34 32 38 33 00  |3.V`.' STX54283.|
00004080: 5F 60 F6 27 20 52 54 53  00 6C 60 00 28 57 33 20  |_`.' RTS.l`.(W3 |
00004090: 43 4D 50 23 33 00 79 60  0A 28 20 42 4E 45 57 45  |CMP#3.y`.( BNEWE|
000040A0: 52 52 00 87 60 14 28 20  53 54 58 35 34 32 39 30  |RR..`.( STX54290|
000040B0: 00 90 60 1E 28 20 52 54  53 00 A3 60 28 28 57 45  |..`.( RTS..`((WE|
000040C0: 52 52 20 4A 4D 50 49 4C  4C 44 45 56 00 A9 60 32  |RR JMPILLDEV..`2|
000040D0: 28 3B 00 BD 60 3C 28 47  45 54 31 36 20 4A 53 52  |(;..`<(GET16 JSR|
000040E0: 47 45 54 42 59 54 00 C9  60 46 28 20 43 50 58 23  |GETBYT..`F( CPX#|
000040F0: 31 36 00 D2 60 50 28 20  52 54 53 00 D8 60 5A 28  |16..`P( RTS..`Z(|
00004100: 3B 00 E9 60 64 28 47 45  54 52 45 47 20 4C 44 41  |;..`d(GETREG LDA|
00004110: 42 34 00 F4 60 6E 28 20  4C 44 58 42 32 00 FF 60  |B4..`n( LDXB2..`|
00004120: 78 28 20 4C 44 59 42 31  00 08 61 82 28 20 52 54  |x( LDYB1..a.( RT|
00004130: 53 00 0E 61 8C 28 3B 00  22 61 96 28 3B 2A 2A 2A  |S..a.(;."a.(;***|
00004140: 20 54 41 42 4C 45 53 20  2A 2A 2A 00 28 61 A0 28  | TABLES ***.(a.(|
00004150: 3B 00 49 61 AA 28 4B 45  59 4C 4F 57 20 2E 42 59  |;.Ia.(KEYLOW .BY|
00004160: 32 32 2C 33 39 2C 35 37  2C 37 35 2C 39 35 2C 31  |22,39,57,75,95,1|
00004170: 31 36 00 6E 61 B4 28 2E  42 59 20 31 33 38 2C 31  |16.na.(.BY 138,1|
00004180: 36 31 2C 31 38 36 2C 32  31 32 2C 32 34 30 2C 31  |61,186,212,240,1|
00004190: 34 2C 34 35 2C 37 38 00  94 61 BE 28 2E 42 59 20  |4,45,78..a.(.BY |
000041A0: 31 31 33 2C 31 35 30 2C  31 39 30 2C 32 33 31 2C  |113,150,190,231,|
000041B0: 32 30 2C 36 36 2C 31 31  36 2C 31 36 39 00 B9 61  |20,66,116,169..a|
000041C0: C8 28 2E 42 59 20 32 32  34 2C 32 37 2C 39 30 2C  |.(.BY 224,27,90,|
000041D0: 31 35 36 2C 32 32 36 2C  34 35 2C 31 32 33 2C 32  |156,226,45,123,2|
000041E0: 30 37 00 DD 61 D2 28 2E  42 59 20 33 39 2C 31 33  |07..a.(.BY 39,13|
000041F0: 33 2C 32 33 32 2C 38 31  2C 31 39 33 2C 35 35 2C  |3,232,81,193,55,|
00004200: 31 38 30 2C 35 36 00 02  62 DC 28 2E 42 59 20 31  |180,56..b.(.BY 1|
00004210: 39 36 2C 38 39 2C 32 34  37 2C 31 35 38 2C 37 38  |96,89,247,158,78|
00004220: 2C 31 30 2C 32 30 38 2C  31 36 32 00 26 62 E6 28  |,10,208,162.&b.(|
00004230: 2E 42 59 20 31 32 39 2C  31 30 39 2C 31 30 33 2C  |.BY 129,109,103,|
00004240: 31 31 32 2C 31 33 37 2C  31 37 38 2C 32 33 37 00  |112,137,178,237.|
00004250: 49 62 F0 28 2E 42 59 20  35 39 2C 31 35 37 2C 32  |Ib.(.BY 59,157,2|
00004260: 30 2C 31 36 30 2C 36 39  2C 33 2C 32 31 39 2C 32  |0,160,69,3,219,2|
00004270: 30 37 00 6D 62 FA 28 2E  42 59 20 32 32 35 2C 31  |07.mb.(.BY 225,1|
00004280: 38 2C 31 30 31 2C 32 31  39 2C 31 31 38 2C 35 38  |8,101,219,118,58|
00004290: 2C 33 39 2C 36 35 00 92  62 04 29 2E 42 59 20 31  |,39,65..b.).BY 1|
000042A0: 33 38 2C 35 2C 31 38 31  2C 31 35 37 2C 31 39 33  |38,5,181,157,193|
000042B0: 2C 33 36 2C 32 30 31 2C  31 38 32 00 B6 62 0E 29  |,36,201,182..b.)|
000042C0: 2E 42 59 20 32 33 37 2C  31 31 35 2C 37 38 2C 31  |.BY 237,115,78,1|
000042D0: 33 30 2C 32 30 2C 31 30  2C 31 30 36 2C 35 39 00  |30,20,10,106,59.|
000042E0: D9 62 18 29 2E 42 59 20  31 33 30 2C 37 32 2C 31  |.b.).BY 130,72,1|
000042F0: 34 37 2C 31 30 37 2C 32  31 38 2C 32 33 31 2C 31  |47,107,218,231,1|
00004300: 35 36 00 E9 62 22 29 2E  42 59 20 34 2C 34 30 2C  |56..b").BY 4,40,|
00004310: 32 30 00 EF 62 2C 29 3B  00 08 63 36 29 4B 45 59  |20..b,);..c6)KEY|
00004320: 48 49 47 48 20 2E 42 59  31 2C 31 2C 31 2C 31 2C  |HIGH .BY1,1,1,1,|
00004330: 31 00 2E 63 40 29 2E 42  59 20 31 2C 31 2C 31 2C  |1..c@).BY 1,1,1,|
00004340: 31 2C 31 2C 31 2C 32 2C  32 2C 32 2C 32 2C 32 2C  |1,1,1,2,2,2,2,2,|
00004350: 32 2C 32 2C 33 2C 33 00  52 63 4A 29 2E 42 59 20  |2,2,3,3.RcJ).BY |
00004360: 33 2C 33 2C 33 2C 34 2C  34 2C 34 2C 34 2C 35 2C  |3,3,3,4,4,4,4,5,|
00004370: 35 2C 35 2C 36 2C 36 2C  36 2C 37 00 76 63 54 29  |5,5,6,6,6,7.vcT)|
00004380: 2E 42 59 20 37 2C 38 2C  38 2C 39 2C 39 2C 31 30  |.BY 7,8,8,9,9,10|
00004390: 2C 31 30 2C 31 31 2C 31  32 2C 31 33 2C 31 33 00  |,10,11,12,13,13.|
000043A0: 9C 63 5E 29 2E 42 59 20  31 34 2C 31 35 2C 31 36  |.c^).BY 14,15,16|
000043B0: 2C 31 37 2C 31 38 2C 31  39 2C 32 30 2C 32 31 2C  |,17,18,19,20,21,|
000043C0: 32 33 2C 32 34 00 C2 63  68 29 2E 42 59 20 32 36  |23,24..ch).BY 26|
000043D0: 2C 32 37 2C 32 39 2C 33  31 2C 33 32 2C 33 34 2C  |,27,29,31,32,34,|
000043E0: 33 36 2C 33 39 2C 34 31  2C 34 33 00 E8 63 72 29  |36,39,41,43..cr)|
000043F0: 2E 42 59 20 34 36 2C 34  39 2C 35 32 2C 35 35 2C  |.BY 46,49,52,55,|
00004400: 35 38 2C 36 32 2C 36 35  2C 36 39 2C 37 33 2C 37  |58,62,65,69,73,7|
00004410: 38 00 0C 64 7C 29 2E 42  59 20 38 32 2C 38 37 2C  |8..d|).BY 82,87,|
00004420: 39 32 2C 39 38 2C 31 30  34 2C 31 31 30 2C 31 31  |92,98,104,110,11|
00004430: 37 2C 31 32 34 00 2C 64  86 29 2E 42 59 20 31 33  |7,124.,d.).BY 13|
00004440: 31 2C 31 33 39 2C 31 34  37 2C 31 35 36 2C 31 36  |1,139,147,156,16|
00004450: 35 2C 31 37 35 00 4C 64  90 29 2E 42 59 20 31 38  |5,175.Ld.).BY 18|
00004460: 35 2C 31 39 36 2C 32 30  38 2C 32 32 31 2C 32 33  |5,196,208,221,23|
00004470: 34 2C 32 34 38 00 52 64  9A 29 3B 00 69 64 A4 29  |4,248.Rd.);.id.)|
00004480: 56 45 43 54 41 42 20 2E  57 4F 57 53 2C 49 4C 49  |VECTAB .WOWS,ILI|
00004490: 4E 45 00 7E 64 AE 29 20  2E 57 4F 24 41 35 37 43  |NE.~d.) .WO$A57C|
000044A0: 2C 44 45 43 4F 44 45 00  94 64 B8 29 20 2E 57 4F  |,DECODE..d.) .WO|
000044B0: 47 45 54 41 44 44 52 2C  24 41 45 38 36 00 A8 64  |GETADDR,$AE86..d|
000044C0: C2 29 20 2E 42 59 30 2C  30 2C 30 2C 30 2C 24 34  |.) .BY0,0,0,0,$4|
000044D0: 43 00 B3 64 CC 29 20 2E  57 4F 52 58 00 B9 64 D6  |C..d.) .WORX..d.|
000044E0: 29 3B 00 D9 64 E0 29 45  49 4E 54 45 58 54 20 2E  |);..d.)EINTEXT .|
000044F0: 54 58 22 20 20 20 20 20  2A 2A 2A 2A 2A 20 43 36  |TX"     ***** C6|
00004500: 34 22 00 F9 64 EA 29 2E  54 58 20 22 20 2D 20 4D  |4"..d.).TX " - M|
00004510: 49 44 49 42 41 53 49 43  20 56 35 20 2A 2A 2A 2A  |IDIBASIC V5 ****|
00004520: 2A 22 00 09 65 F4 29 2E  42 59 20 24 30 44 2C 24  |*"..e.).BY $0D,$|
00004530: 30 44 00 25 65 FE 29 2E  54 58 20 22 20 42 59 20  |0D.%e.).TX " BY |
00004540: 52 2E 42 55 43 48 54 59  20 20 20 20 20 22 00 2F  |R.BUCHTY     "./|
00004550: 65 08 2A 2E 42 59 20 30  00 35 65 12 2A 3B 00 56  |e.*.BY 0.5e.*;.V|
00004560: 65 1C 2A 42 45 46 54 41  42 20 2E 54 58 22 41 44  |e.*BEFTAB .TX"AD|
00004570: 53 D2 41 CE 41 55 D3 42  45 4E C4 42 52 C3 22 00  |S.A.AU.BEN.BR.".|
00004580: 7A 65 26 2A 2E 54 58 20  22 43 4C CE 43 4C D3 43  |ze&*.TX "CL.CL.C|
00004590: 4F CC 43 50 D2 43 54 52  CC 44 45 56 49 43 C5 44  |O.CP.CTR.DEVIC.D|
000045A0: 49 D2 22 00 9D 65 30 2A  2E 54 58 20 22 45 58 49  |I."..e0*.TX "EXI|
000045B0: D4 46 46 52 45 D1 46 4B  4F 46 C6 46 4B 4F CE 46  |.FFRE.FKOF.FKO.F|
000045C0: 4C 4F 50 50 D9 22 00 C0  65 3A 2A 2E 54 58 20 22  |LOPP."..e:*.TX "|
000045D0: 46 4D 4F 44 C5 46 D1 48  45 4C D0 4B 45 D9 4C 4F  |FMOD.F.HEL.KE.LO|
000045E0: 43 41 54 C5 4D 4F 4E CF  22 00 E5 65 44 2A 2E 54  |CAT.MON."..eD*.T|
000045F0: 58 20 22 4D 57 CC 4E 4F  4B 45 D9 4F 46 C6 4F 4C  |X "MW.NOKE.OF.OL|
00004600: C4 4F 4D 4E C9 4F 55 D4  50 45 44 41 CC 22 00 07  |.OMN.OU.PEDA."..|
00004610: 66 4E 2A 2E 54 58 20 22  50 4F 4C D9 50 50 D2 50  |fN*.TX "POL.PP.P|
00004620: 52 C7 50 D7 52 45 50 45  41 D4 52 45 53 45 D4 22  |R.P.REPEA.RESE."|
00004630: 00 2B 66 58 2A 2E 54 58  20 22 52 45 53 54 41 52  |.+fX*.TX "RESTAR|
00004640: D4 53 49 44 52 45 D3 53  49 44 56 4F CC 53 54 41  |.SIDRE.SIDVO.STA|
00004650: 54 55 D3 22 00 48 66 62  2A 2E 54 58 20 22 53 57  |TU.".Hfb*.TX "SW|
00004660: 49 54 43 C8 56 4F 49 43  C5 56 4F CC 57 41 56 C5  |ITC.VOIC.VO.WAV.|
00004670: 22 00 52 66 6C 2A 2E 42  59 20 30 00 58 66 76 2A  |".Rfl*.BY 0.Xfv*|
00004680: 3B 00 78 66 80 2A 42 45  46 41 44 52 20 2E 57 4F  |;.xf.*BEFADR .WO|
00004690: 41 44 53 52 2D 31 2C 41  4E 2D 31 2C 41 55 53 2D  |ADSR-1,AN-1,AUS-|
000046A0: 31 00 9E 66 8A 2A 2E 57  4F 20 42 4E 44 2D 31 2C  |1..f.*.WO BND-1,|
000046B0: 42 52 43 2D 31 2C 43 4C  4E 2D 31 2C 43 4C 53 2D  |BRC-1,CLN-1,CLS-|
000046C0: 31 2C 43 4F 4C 2D 31 00  C2 66 94 2A 2E 57 4F 20  |1,COL-1..f.*.WO |
000046D0: 43 50 52 2D 31 2C 43 54  52 4C 2D 31 2C 44 45 56  |CPR-1,CTRL-1,DEV|
000046E0: 49 43 45 2D 31 2C 44 49  52 2D 31 00 E8 66 9E 2A  |ICE-1,DIR-1..f.*|
000046F0: 2E 57 4F 20 45 58 49 54  2D 31 2C 46 46 52 45 51  |.WO EXIT-1,FFREQ|
00004700: 2D 31 2C 46 4B 4F 46 46  2D 31 2C 46 4B 4F 4E 2D  |-1,FKOFF-1,FKON-|
00004710: 31 00 08 67 A8 2A 2E 57  4F 20 46 4C 4F 50 50 59  |1..g.*.WO FLOPPY|
00004720: 2D 31 2C 46 4D 4F 44 45  2D 31 2C 46 52 45 53 2D  |-1,FMODE-1,FRES-|
00004730: 31 00 2D 67 B2 2A 2E 57  4F 20 48 45 4C 50 2D 31  |1.-g.*.WO HELP-1|
00004740: 2C 4B 45 59 2D 31 2C 4C  4F 43 41 54 45 2D 31 2C  |,KEY-1,LOCATE-1,|
00004750: 4D 4F 4E 4F 2D 31 00 4F  67 BC 2A 2E 57 4F 20 4D  |MONO-1.Og.*.WO M|
00004760: 57 4C 2D 31 2C 4E 4F 4B  45 59 2D 31 2C 4F 46 46  |WL-1,NOKEY-1,OFF|
00004770: 2D 31 2C 4F 4C 44 2D 31  00 71 67 C6 2A 2E 57 4F  |-1,OLD-1.qg.*.WO|
00004780: 20 4F 4D 4E 49 2D 31 2C  4D 54 58 2D 31 2C 50 44  | OMNI-1,MTX-1,PD|
00004790: 4C 2D 31 2C 50 4F 4C 59  2D 31 00 97 67 D0 2A 2E  |L-1,POLY-1..g.*.|
000047A0: 57 4F 20 50 50 52 2D 31  2C 50 52 47 2D 31 2C 50  |WO PPR-1,PRG-1,P|
000047B0: 57 49 44 54 48 2D 31 2C  52 45 50 45 41 54 2D 31  |WIDTH-1,REPEAT-1|
000047C0: 00 BA 67 DA 2A 2E 57 4F  20 52 45 53 45 54 2D 31  |..g.*.WO RESET-1|
000047D0: 2C 52 45 53 54 41 52 54  2D 31 2C 53 49 44 52 45  |,RESTART-1,SIDRE|
000047E0: 53 2D 31 00 DA 67 E4 2A  2E 57 4F 20 53 56 4F 4C  |S-1..g.*.WO SVOL|
000047F0: 2D 31 2C 46 49 4E 46 4F  2D 31 2C 46 56 4F 49 43  |-1,FINFO-1,FVOIC|
00004800: 45 2D 31 00 F7 67 EE 2A  2E 57 4F 20 56 4F 49 43  |E-1..g.*.WO VOIC|
00004810: 45 2D 31 2C 56 4F 4C 2D  31 2C 57 41 56 45 2D 31  |E-1,VOL-1,WAVE-1|
00004820: 00 01 68 F8 2A 2E 42 59  20 30 00 07 68 02 2B 3B  |..h.*.BY 0..h.+;|
00004830: 00 1C 68 0C 2B 3B 2A 2A  2A 20 42 55 46 46 45 52  |..h.+;*** BUFFER|
00004840: 53 20 2A 2A 2A 00 22 68  16 2B 3B 00 38 68 20 2B  |S ***."h.+;.8h +|
00004850: 42 55 46 46 45 52 20 2E  42 59 30 2C 30 2C 30 2C  |BUFFER .BY0,0,0,|
00004860: 30 00 3E 68 2A 2B 3B 00  54 68 34 2B 53 49 44 42  |0.>h*+;.Th4+SIDB|
00004870: 55 46 20 2E 42 59 30 2C  30 2C 30 2C 30 00 5A 68  |UF .BY0,0,0,0.Zh|
00004880: 3E 2B 3B 00 6F 68 48 2B  53 43 52 45 45 4E 20 2E  |>+;.ohH+SCREEN .|
00004890: 42 59 30 2C 30 2C 31 32  00 75 68 52 2B 3B 00 7D  |BY0,0,12.uhR+;.}|
000048A0: 68 5C 2B 2E 45 4E 00 00  00                       |h\+.EN...       |

X......BA $8000.....;.LI 3,4,0.. ..;.SY 
3,4,0.  (.;.OB"MIDIBASIC.EXE,P,W".& 2.;.
I <.;    ..........................L F.;
    .>> M I D I B A S I C <<... P.;    .
.......................... Z.;    .->  P
ROGRAMMED 1990  <-..U D.;    .-> BY  RAI
NER BUCHTY <-... N.;    ................
........... X.;..!..;*** DECLARATION ***
..!..;.4!...EQ CHKCOM = $AEFD.K! ..EQ GE
TBYT = $B79E.B!...EQ PUTCHR = $E716.Y!..
.EQ STROUT = $AB1E..!...EQ B1     = BUFF
ER..!H..EQ B2     = BUFFER+1.E!R..EQ B3 
    = BUFFER+2..!...EQ B4     = BUFFER+3
..!...EQ MBP    = $FB.."...EQ RBP    = $
FD.."..;.5"...WO RESCBM,SETKEY        ;V
ECTORS.Y"...BY $C3,$C2,$CD,$38,$30  ;CBM
80._"..;.{"".;*** RESET + CODING ***..",
.;.."6.SETKON JMP$FE72.."@.SETKEY JSR$F6
BC;COPY.."J. JSR$FFE1; OF.U"T. BNESETKON
; ROM-.."^. JSR$FD15; NMI.."H. JSR$FDA3.
.#R. JSR$E518..#|. SEI."#.. LDAENDIRQ+1;
SET.;#.. LDYENDIRQ+2; SECOND.J#.. LDX#3;
 IR.]#.. STA$0314; AND.R#.. STY$0315; RE
SET..#.. STX$DE04; ACIA..#B. STXMDIMDE..
#L. CLI..#V. LDASCREEN;SET.J#.. LDXSCREE
N+1; COLORS..#.. LDYSCREEN+2..#.. STA532
80..#.. STX53281..$.. STY646..$.. LDARPT
+1..$.. STA650.2$&. JMP$E37B;IERROR.8$0.
;.G$:.WS LDA#$36.S$D. STA$01.D$N. JMP$E3
8B;WS.J$X.;..$B.RESCBM JSR$FD50;RAMINIT.
.$L. JSR$FD15;IORES..$V. JSR$FDA3;IRQINI
T.E$.. JSR$FF5B;VICRES.N$.. CLI..$.. JSR
$E3BF;BASINIT..$.. LDY#0..%.. STY$0283;B
ASEND..%.. STY$FB.#%.. STY$37;BASEND.6%F
. LDASCREEN;SET.L%P. STA53280; COLORS.]%
Z. LDASCREEN+1.K%.. STA53281.|%.. LDASCR
EEN+2..%.. STA646..%.. LDA#$A0;COPY..%..
 STA$FC; ROM..%.. LDX#$20; TO.W% .ROMCPY
 LDA($FB),Y; RAM..%*. STA($FB),Y..%4. DE
Y..%>. BNEROMCPY..&H. INC$FC..&R. DEX.#&
\. BNEROMCPY.7&F. LDA#$36;ENABLE.H&P. ST
A$01; RAM.\&Z. LDA#$80;BASEND.N&.. STA$3
8; HIGH.|&.. STA$0284..&.. STA$A606;MODI
FY..&.. LDA#$4C; BASIC..&.. STA$A604.G&.
. LDA#<(BEFCODE).U&.. STA$A605..&J. LDA#
7;KILL 1..&T. STA$A369; SPACE..'.. LDX#5
;NEW.('..ADRLOP LDANEWADR,X; LOAD.>'.. S
TA$A032,X; SAVE.O'.. DEX; VERIF..^'.. BP
LADRLOP.N'..RPT LDA#128.Z'.. STA650..'$.
 LDA#<(EINTEXT)..'.. LDY#>(EINTEXT)..'8.
 JSR$E42D;MESSAGE.O'B. JSRCPYVEC;VECTORS
..'L. JSRAUS;ACIA+IR..'V. JSRDEVSET;DEVI
CE..(`. JMP$E39D;ST+WS./(J.NEWADR .WOLOA
D-1,SAVE-1,VER-1.5(T.;.O(~.CPYVEC LDX#$1
2;VECTOR.M(..VECLOAD LDAVECTAB,X; COPY.}
(.. STA$0300,X..(.. DEX..(.. BPLVECLOAD.
.(.. RTS..(..;..(D.ILINE LDA#$36;INPUT 1
.S(N. STA$01; BASIC-..(X. JMP$A483; LINE
..(..;..)..BEFCODE LDY#$00;EN-..).. STY$
0B; CODING.*).. DEY; OF THE.8).. DEX; NE
W.J)..CD1 INY; COM-.Z).. INX; MANDS.M)(.
CD2 LDA$0200,X.V)2. SEC..)<. SBCBEFTAB,Y
;SEARCH..)F. BEQCD1..)P. CMP#$80;TABEND?
..)Z. BNECD3.D)D. CLC.P)N. LDA$0B..)X. A
DC#$CC;SET..).. JMP$A5C7; TOKEN..*..CD3 
LDX$7A..*.. INC$0B..* .CD4 INY.4*.. LDAB
EFTAB-1,Y;CMD.F*.. BPLCD4; END?.]*.. LDA
BEFTAB,Y;TABLE.O*H. BNECD2; END?..*R. LD
A$0200,X;BACK TO..*.. JMP$A607; ROM. *..
;..*..DECODE BMIEC2;DECODES.O*..EC1 JMP$
A6F3;NEW..*..EC2 CMP#$FF;TOKENS..*.. BEQ
EC1..*.. BIT$0F..+". BMIEC1..+,. CMP#$CC
;NEW./+6. BCSEC3; TOKEN?.B+@. JMP$A724;L
IST.N+J.EC3 SEC._+T. SBC#$CB;GET.M+^. TA
X; POS.}+H. STY$49; IN..+R. LDY#$FF; TAB
LE..+|.EC4 DEX..+.. BEQEC6..+..EC5 INY;G
ET.O+.. LDABEFTAB,Y; CMD..+.. BPLEC5;CMD
..+.. BMIEC4; END?..+..EC6 INY..,B. LDAB
EFTAB,Y..,L. BPLEC7./,V. JMP$A6EF;CHROUT
.D,..EC7 JSR$AB47;END.P,.. BNEEC6.V,..;.
O,..GETADDR JSR$0073;GET..,.. JSRTA1;ADD
RESS..,.. JMP$A7AE;OF THE..,..TA1 BNETA2
;NEW CMD..,&. RTS.P,0.TA2 SBC#$80;UNSHIF
T..,:. BCCTA4..,D. CMP#$4C;NEW..-N. BCST
A6; TOKEN?..-X. CMP#$23;GOTO..-B. BCSTA5
.(-L. ASL.1-V. TAY.I-.. LDA$A00D,Y;BASIC
V2.Y-.. PHA; TABLE.I-.. LDA$A00C,Y.R-.. 
PHA..-..TA3 JMP$0073..-..TA4 JMP$A9A5;LE
T..-..TA5 JMP$A80E;GOTO..-F.TA6 SEC.G-P.
 SBC#$4C.P-Z. ASL.Y-.. TAY..-.. LDABEFAD
R+1,Y;MBASIC..... PHA; TABLE..... LDABEF
ADR,Y..... PHA.)... JMPTA3./. .;.I.*.;**
* MIDI-SUPPORT ***.O.4.;.B.>.AN LDA#3;RE
SET.V.H. STA$DE04; 6850...R. LDA#$92;RX-
IRQ...\. STA$DE04; ON...F. STAMDIMDE...P
. LDA#$00.E.Z. LDY#$E0.U... STAMBP;IRQ..
... STYMBP+1; BUFFER..... STARBP;USR../.
. STYRBP+1; BUFFER../.. SEI;SET.9/.. LDX
#<(NEWIRQ); RX-IRQ.T/.. LDY#>(NEWIRQ); V
ECTOR.B/J. STX$0314.P/T. STY$0315.Y/.. C
LI../.. RTS../..;../..NEWIRQ SEI../.. LD
A$DE06;DATA../.. LSR; RX'ED?.M/.. BCCEND
IRQ;NO../$. LDA$DE07;GET DTA../.. LDY#0.
.08. STA(MBP),Y;STORE..0B. LDXMBP+1.%0L.
 LDYMBP;INCRE-.40V. INY; MENT.I0`. BNESE
TMBP; PNTR.R0J. INX.F0T. CPX#$00;END OF.
|0~. BNESETMBP; BUFR?..0..IRQSET LDX#$E0
;START..0..SETMBP STXMBP+1;SET..0.. STYM
BP; PNTR.T0.. JMP$EA81;END IR..0..ENDIRQ
 JMPKEYIRQ..0..;..1D.KEYIRQ LDA$9D;PRG-.
.1N. BEQKEYEND; MDE?.*1X. LDA$D4;"-.?1..
 BNEKEYEND; MDE?.O1.. LDY#3;KEY=.I1..KEY
LOP CPY$C5; F-KEY?.W1.. BEQKEYON..1.. IN
Y..1.. CPY#7..1.. BNEKEYLOP..1(. LDA#0;E
NABLE.B12. STADUMMY; F-KEYS.V1<.KEYEND J
MP$EA31..1F.;..1P.KEYON LDADUMMY;F-KEYS.
.2Z. BNEKEYEND; ENABL?..2D. TYA;CREATE.,
2N. SEC; PNTR.72X. SBC#3.L2.. LDY$028E;S
HIFT?.\2.. BEQUNSHIFT.I2.. CLC;ADD.|2 . 
ADC#4; OFFSET..2..UNSHIFT ASL..2.. TAY..
2.. LDAKEYADR,Y;GET.C2H. STAKEYPAR+1; KE
YTXT.V2R. LDAKEYADR+1,Y..2.. STAKEYPAR+2
..2.. LDY#0..3..KEYPAR LDA$0000,Y;WRITE.
"3.. BEQEOFLN; TEXT.83.. STA$0277,Y; INT
O.L3.. CMP#13; KEYBFR.Y3.. BEQCRLN.B3". 
INY.Q3,. JMPKEYPAR..36.CRLN INY;EMULATE.
.3@.EOFLN STY$C6; KEYPRS..3J. LDX#1;DISA
BLE.H3T. STXDUMMY; F-KEYS.V3^. JMP$EA31.
.3H.;..3R.DUMMY .BY0..4|.KEYADR .WOF7,F1
,F3,F5..4.. .WOF8,F2,F4,F6..4..;.14..F1 
.TX".LIST".N4...BY 13,0,0,0,0,0,0,0,0,0.
T4..;.E4..F3 .TX"RUN:"..4B..BY 13,0,0,0,
0,0,0,0,0,0,0..4L.;..4V.F5 .TX"LOAD"..4.
..BY 34,20,34,0,0,0,0,0,0,0,0.B4..;.S4..
F7 .TX".DIR"..4...BY 13,0,0,0,0,0,0,0,0,
0,0..4..;..5..F2 .TX".HELP:".&5...BY 13,
0,0,0,0,0,0,0,0.,5&.;.G50.F4 .TX"SYS4096
*12:...".Q5:..BY 0.W5D.;.H5N.F6 .TX"SAVE
"..5X..BY 34,20,34,0,0,0,0,0,0,0,0..5B.;
..5L.F8 .TX"FLOPPY"..5V..BY 34,20,34,0,0
,0,0,0,0.E5..;.Y5..AUS LDA#3;RESET..5.. 
STA$DE04; 6850..5.. STAMDIMDE..6.. LDAEN
DIRQ+1;SET 2ND.*6.. LDYENDIRQ+2; IR.36..
 SEI.A6F. STA$0314.O6P. STY$0315.X6Z. CL
I.A6.. RTS.G6..;..6..FKON LDA#<(KEYIRQ);
ENABLE..6.. LDY#>(KEYIRQ)..6.. JMPFKIRQ.
.6..FKOFF LDA#$31;DISABLE.U6 . LDY#$EA; 
F-KEYS..6*.FKIRQ SEI..64. STAENDIRQ+1..7
>. STYENDIRQ+2..7H. CLI."7R. JMPAUS;INIT
 IR.(7\.;.@7F.RESET LDX#255;MIDI-.R7P. J
SRTX; RESET.^7Z. JSROFF.I7.. JMPAN.O7..;
..7..OFF LDY#15;ALLNOFF..7..OFFLOOP STYB
1..7.. LDA#176;CTRL..7.. TAX..7.. JSRTX.
O7J. LDX#123;OFF.Z7T. JSRTX..7.. LDX#0;D
ATA..7.. JSRTX..7.. DEY..8.. BNEOFFLOOP.
.8.. RTS..8..;.78..POLY JSRGETCHN;PLYMDE
.I8$. LDA#176;CTRL.X8.. JSRMKECHN.J88. L
DX#127;POLY.Y8B.ZERO JSRTX..8L. LDX#0;DA
TA..8V. JMPTX..8`.;..8J.BND JSRGETCHN;PI
TCH-.F8T. LDA#224; BEND.U8~. JSRMKECHN..
8.. LDX#0;LSB..8.. JSRTX..8.. JMPGET1..9
..;..9..BRC JSRGETCHN;BREATH-./9.. LDA#1
76; CTRL.>9D. JSRMKECHN.M9N. LDX#2;BRC.[
9X.CTX JSRTX.G9.. JSRGET.R9.. JMPTX.X9..
;..9..MONO JSRGETCHN;MNOMDE..9.. LDA#176
;CTRL..9.. JSRMKECHN.E9.. LDX#126;MONO.Q
9(. JMPCTX.W92.;..9<.MWL JSRGETCHN;MWHEE
L..:F. LDA#176;CTRL..:P. JSRMKECHN.":Z. 
LDX#1;WHEEL..:D. JMPCTX.4:N.;.L:X.PDL JS
RGETCHN;PEDAL.^:.. LDA#176;CTRL.M:.. JSR
MKECHN.~:.. LDX#4;PEDAL..: . JMPCTX..:..
;..:..VOL JSRGETCHN;VOLUME..:.. LDA#176;
CTRL.J:H. JSRMKECHN..:R. LDX#7;VOLUME..:
.. JMPCTX..:..;..;..OMNI JSRGETCHN;OMNMD
E..;.. LDA#176;CTRL.);.. JSRMKECHN.5;.. 
JSRGET.D;.. BNEOMNION.U;". LDX#124;OFF.B
;,. JMPZERO.X;6.OMNION LDX#125;ON..;@. J
MPZERO..;J.;..;T.CPR JSRGETCHN;CHNL-..;^
. LDA#104; PRES-.O;H.ETX JSRMKECHN; SURE
..;R. JSRGET..;|. JMPTX..;..;..;..PRG JS
RGETCHN..<.. LDA#192;PROGRAM..<.. JMPETX
.%<..;.=<..CLN JSRGETCHN;SIMU-.P<B. JSRG
ET; LATED.`<L. STXB2; ALL.Z<V.B2LOOP LDY
#127; NOTES..<..YLOOP LDA#128; OFF. <.. 
JSRMKECHN..<.. TYA..<.. TAX.A<.. JSRTX;K
EY.R<.. LDX#127;VEL..<.. JSRTX..<&. DEY;
DEC..<0. BNEYLOOP; KEY..=:. DECB2..=D. B
NEB2LOOP. =N. RTS.&=X.;.>=B.CTRL JSRGETC
HN;TX A.Q=L. LDA#176; CON-.J=V.OTX JSRMK
ECHN; TROL-.|=.. JMPGET2; LER..=..;..=..
PPR JSRGETCHN;POLY-..=.. LDA#160; PRES-.
.=.. JMPOTX; SURE.F=..;..=..KEY JSRGETCH
N;NOTEON..=F. LDA#144..=P. JMPOTX..=Z.;.
.>..NOKEY JSRGETCHN;NOTEOFF.'>.. LDA#128
.3>.. JMPOTX.9>..;.R>..MTX JSRGETBYT;TX 
ONE.C>.. JMPTX; BYTE.I> .;.~>*.;*** UTIL
ITY ***..>4.;..>>.COL JSRGETBYT;SET..>H.
 STX53280; COLORS..>R. JSRKOMBYT.M>\. ST
X53281..>F. JSRKOMBYT..>P. STX646..>Z. R
TS..>..;..?..REPEAT JSRGETBYT;KEY-.#?.. 
LDA#0; BOARD.6?.. CPX#0; REPEAT.E?.. BEQ
RPTSET.R?.. LDA#128.D?..RPTSET STA650.M?
J. RTS.S?T.;..?..RESTART LDA#16;RESTART.
.?.. STAB2; MBASIC..?.. JMPCLOSEMIDI..?.
.;.W?..EXIT LDA#<(EXTXT);REQUEST..?.. LD
Y#>(EXTXT)..?.. JSRSTROUT..@$. LDA#0;GET
 KEY..@.. STA$99.%@8. JSR$FFCF.2@B. CMP#
"J".?@L. BEQQUIT.H@V. RTS.^@`.QUIT LDA#1
6;LEAVE.Q@J. STAB2; MBASIC..@T. STA$8005
;KILL..@~. JSRAN; CBM80..@..CLOSEMIDI JS
RB2LOOP;RESET.F@.. JSRAUS; MIDI.X@.. JMP
$FCE2;BYE..@..EXTXT .TX"SIND SIE SICHER?
 "..A.. .BY0..A..;.%AD.LOCATE JSRGETBYT;
LOCATE.9AN. CPX#25; CURSOR.LAX. BCSLOCER
R; ON.`A.. STX214; SCREEN.OA.. JSRKOMBYT
.{A.. CPX#41..A.. BCSLOCERR..A.. STX211.
.A.. JMP$E56C..A..LOCERR JMPILLQU..A(.;.
VA2.CLS JMP$E544;CLRSCR..A<.;..AF.DIR LD
A#1;GET..BP. LDY#>(NAME); DIREC-..BZ. LD
X#<(NAME); TORY.3BD. JSR$FFBD;SETNAM.BBN
. LDA#1;SET.XBX. LDXDEVTYP; FILE-.NB.. J
SRCHKDEV; PARA-..B.. LDY#1; METERS..B.. 
DEY. B . JSR$FFBA;SETFPAR..B.. JSRAKNDEV
;READY?.IB.. JSR$FFC0;OPEN.TB.. LDX#1..B
H. JSR$FFC6;CHKIN..BR. LDY#5..C..ROWOUT 
STYB1;OVER-..C.. JSR$FFCF; READ.*C.. TAX
; 5.<C.. LDYB1; BYTES.EC.. DEY.TC.. BNER
OWOUT.HC.. JSR$FFCF;CHRIN.{C". LDY$90;ST
ATUS..C,. BNEENDE;DIREND?..C6. JSR$BDCD;
INTOUT..C@. LDA#" ".GCJ. JSR$FFD2;CHROUT
..CT.NEXTCHR JSR$FFCF;CHRIN..C^. STAB1..
CH. CMP#0;END OF..DR. BEQLASTCHR; LINE?.
%D|. CMP#34;"?.4D.. BNENEXTON.?D.. DECDT
.ND.. BNENEXTON.CD.. JSR$FFD2;CHROUT.UD.
. LDA#" ";NEXT..D.. STAB1; CHARS..DB. LD
A#":"; SPACE..DL. STAB1; AND :.EDV.NEXTO
N LDA$91;STOP?.RD.. CMP#$7F..D.. BNEDW..
D.. LDA#13;[CR]..E.. JSR$FFD2;CHROUT..E.
. JMPENDE..E..DW LDAB1.2E.. JSR$FFD2;CHR
OUT.BE&. JMPNEXTCHR.ZE0.LASTCHR LDA#2;RE
SET.ME:. STADT; COUNTR.~ED. LDA#13;[CR].
.EN. JSR$FFD2;CHROUT..EX. LDY#3..EB. JMP
ROWOUT.FEL.ENDE JSR$FFCC;CLRCHN.WEV. LDA
#1;CLOSE..E.. JSR$FFC3; CHNL 1..E.. RTS.
.F..NAME .TX"$"..F..DT .BY2..F..;.0F..FI
NFO LDXDEVTYP;GET.FF.. JSRCHKDEV;FLOPPY.
YFF. STX$BA;STATUS.BFP. TXA.QFZ. JSRAKND
EV..F.. JSR$FFB4;TALK..F.. LDA#111;15+$6
0..F.. JSR$FF96;SECTALK.EF..IN JSR$FFA5;
GETIEC.YF.. JSR$F1CA;PRINT..F.. CMP#13;R
ETURN?..F . BNEIN..G*. JMP$FFAB;UNTALK..
G4.;.,G>.DEVICE JSRGETBYT;SET.>GH. CPX#1
;ACTUAL.TGR. BEQDEVEND;DEVICE.LG\.CHKDSK
 CPX#8;1/8-11.{GF. BCCDEVSET..GP. CPX#12
..GZ. BCCDEVEND..G..DEVSET LDX#8..G..DEV
END STXDEVTYP.EG.. RTS.UG..DEVTYP .BY8..
G..;..G..FLOPPY LDA#15;SEND..H.. JSR$FFC
3;COMMAND..HJ. LDA#15;TO.-HT. LDXDEVTYP;
FLOPPY.<H.. JSRCHKDEV.HH.. LDY#15.[H.. J
SR$FFBA;FPAR.JH.. JSRAKNDEV.|H.. JSR$E25
7;GET..H.. JSR$FFC0;OPEN..H.. JSRFINFO..
H$. LDA#15..H.. JMP$FFC3;CLOSE.CH8.;..HB
.CHKDEV CPX#8;DEVICE..HL. BCSENDCHK;>=8?
..HV. LDX#8..I`.ENDCHK RTS..IJ.;.$IT.AKN
DEV PHA;CHECK.0I~. TXA;IF.@I.. PHA;DEVIC
E.LI.. TYA;IS.[I.. PHA;READY.KI.. LDA#0;
COPY.{I.. STA$90; OF..I.. LDA$BA; ROM-..
ID. JSR$ED0C; SOURCE..IN. LDA$B9..IX. OR
A#$F0.JI.. JSR$EDB9.VI.. LDA$90..I.. BPL
DEVRDY..I.. PLA..I.. PLA..J.. PLA..J.. P
LA..J(. PLA.$J2. LDX#5;DEVICE.:J<. JMP$A
437;NOT RDY.IJF.DEVRDY PLA.RJP. TAY.[JZ.
 PLA.DJD. TAX.MJN. PLA.VJX. RTS.|J..;..J
..VER LDA#1;NEW..J.. .BY$2C;VERIFY..J .L
OAD LDA#0;AND.EJ.. STA$0A;LOAD..J.. JSRM
DIS;ROUTINES..J.. JSRDEVPAR..JH. JSR$E16
F..KR.MEN LDAMDIMDE..K.. STA$DE04.!K.. R
TS.'K..;.<K..SAVE JSRMDIS;NEW.PK.. JSRDE
VPAR;SAVE.FK.. JSR$E159;ROUTINE.RK.. JMP
MEN.XK".;..K,.MDIS LDA#3;DISABLE..K6. ST
A$DE04;MIDI..K@. RTS..KJ.;.FKT.DEVPAR LD
A#0;SET..K^. JSR$FFBD;DEFAULT..KH. LDXDE
VTYP;DEVICE..LR. LDY#1;AND..L|. JMP$E1DD
;SECADR..L..;.2L..OLD LDY#$03;RENEW.=L..
O1 INY.UL.. LDA($2B),Y;RESTORE.HL.. BNEO
1;POINTRS.TL.. INY;OF..LB. INY;BASIC-..L
L. TYA; PROGRM..LV. LDY#0;VARS..L.. STA(
$2B),Y;ARRAYS.LL.. LDA$2C;AND..L.. INY;S
TRINGS..L.. STA($2B),Y..M.. STA$3C;RESTO
RE..M.. LDY#0;LINE-.&M.. STY$3B;NUMBERS.
4M&.O11 LDX#0.?M0.O2 INY.JM:. BNEO3.VMD.
 INC$3C.HMN.O3 LDA($3B),Y.TMX. BNEO11.}M
B. INX..ML. CPX#3..MV. BNEO2..M.. INY..M
.. BNEO4..M.. INC$3C.IM..O4 STY$2D;RESTO
RE.ZM.. LDY$3C;VAR-..M.. STY$2E;START..M
.. RTS..MF.;..NP.HELP LDY#39;CLEAR 1.&NZ
. JSRHLPX; LINE.1N.. LDX#0.<N.. LDY#1.GN
.. STYWC.SN.. LDA#13.BN.. JSRPUTCHR.}N..
HLPLOP LDABEFTAB,X;PUT..N . BEQHLPEND; O
RDER-..N*. BPLHLPOUT; LIST..N4. SEC; ON.
KN>. SBC#$80; SCREEN.ZNH. JSRPUTCHR..NR.
HLPLOP1 LDA#32..N\. JSRPUTCHR..OF. INY..
OP. CPY#10.!OZ. BNEHLPLOP1.,O.. LDYWC.?O
.. CPY#4;4 ORDRS.RO.. BNEHLPWC; PER.CO..
 LDY#0; LINE.NO.. STYWC.~O..HLPWC INCWC.
.O.. LDY#0..OJ. BEQHLPBRD..OT.HLPOUT JSR
PUTCHR..O..HLPBRD INX.EO.. INY.TO.. BNEH
LPLOP..O..HLPEND LDY#40;PUT..O.. JSRHLPX
; TEXT..P.. LDA#<(HLPTXT); ON./P.. LDY#>
(HLPTXT); SCREEN.>P$. JSRSTROUT.OP.. LDY
#55;FILL.EP8.HLPX LDA#32; WITH.|PB. JSRP
UTCHR; SPACES..PL. DEY..PV. BNEHLPX..P`.
 RTS..PJ.;.JPT.HLPTXT .TX"MIDI-EMPFANG: 
VAR=USR(0)".TP~. .BY0..P..WC .BY0..P..;.
.P..;..Q..;*** SUBROUTINES ***..Q..;..Q.
.;.*QD.GETCHN JSRGETBYT;GET.<QN. CPX#0; 
MIDI-.RQX. BNECHECK16; CHNL.KQ..CERR JMP
ILLDEV; FROM..Q..CHECK16 CPX#17; BASIC..
Q.. BCSCERR..Q.. DEX..Q.. STXB1..Q.. RTS
..Q..;.MQ(.MKECHN ORAB1;CREATE..Q2. TAX;
 MIDI-..Q<. JMPTX; CMD..QF.;..RP.GET JSR
KOMBYT;GET ONE.!RZ. CPX#128; MIDI-.4RD. 
BCCBYE; DATA-.HRN. JMPILLQU; BYTE.TRX.BY
E RTS.ZR..;.PR..GET1 JSRGET;GET 1..R.. J
MPTX; BYTE..R .;..R..GET2 JSRGET;GET 2..
R.. JSRTX; BYTES..R.. JMPGET1.BRH.;.XRR.
GET3 JSRGET;GET 3..R.. JSRTX; BYTES..R..
 JMPGET2..R..;..S..TX LDAMDIMDE;TX A.&S.
. CMP#$92; BYTE.5S.. BEQTXLOOP.GS.. STXB
1;ENABLE.XS". JSRAN; MIDI.CS,. LDXB1.~S6
.TXLOOP LDA$DE06;TRANS-..S@. LSR; MIT..S
J. LSR..ST. BCCTXLOOP..S^. STX$DE05..SH.
 RTS.KSR.MDIMDE .BY3.QS|.;..S..RX LDARBP
+1;NEW..S.. CMPMBP+1; DATA..T.. BNERXON;
 RE-..T.. LDARBP; CEIVED..T.. CMPMBP; ?.
?T.. BNERXON;YES.OTB. LDY#255;NO.CTL. JM
PRXEND;->255.RTV.RXON LDY#0.T.. SEI;GET
..T.. LDX#52; BYTE..T.. STX1; UNDER..T..
 LDA(RBP),Y; ROM.DT.  LDX#$36.NT.  STX1.
WT.  CLI..T&  LDXRBP+1;INC..T0  LDYRBP; 
PNTR..U:  INY..UD  BNESETRBP..UN  INX.0U
X  CPX#$00;END OF.FUB  BNESETRBP; BUFR?.
`UL RBPSET LDX#$E0;SET LO.VUV SETRBP STY
RBP;SET..U.  STXRBP+1; PNTR..U.  TAY..U.
 RXEND LDA#0;MSB=0..U.  JMP$B395;DOVAR.C
U. ;.PU. LEFT ASL.YU.  ASL..UF  ASL..UP 
 ASL..UZ  RTS..U. ;..V. RIGHT LSR..V.  L
SR..V.! LSR.#V.! LSR.,V.! RTS.2V !;.NV*!
KOMBYT JSRCHKCOM;KOMMA?.]V4! JMPGETBYT.C
V>!;.~VH!ILLQU JMP$B248;ILL.QU...VR!ILLD
EV LDX#9;ILLEGAL..V\! JMP$A437; DEVICE..
VF!;.MVP!; *** SID-SUPPORT ***.SVZ!;..V.
!SIDRES LDX#24;RESET..V.! LDA#0; SID..W.
!SRES STA54272,X..W.! DEX.%W.! BNESRES..
W.! RTS.4W.!;.JWJ!SVOL JSRGET16;SET.\WT!
 BCCSON; SID-.RW.! JMPILLQU; VOLUME..W.!
SON STXSIDBUF..W.! TXA..W.! ORASIDBUF+1.
.W." STA54296..W." RTS..W.";.RW$"FMODE J
SRGET16;SET..W." BCCFON; FILTER..W8" JMP
ILLQU; MODE..XB"FON TXA..XL" JSRLEFT.$XV
" STASIDBUF+1.3X`" ORASIDBUF.AXJ" STA542
96.JXT" RTS.PX~";.KX."FVOICE JSRGET16;FI
LTER.{X." BCCVON; TO..X." JMPILLQU; VOIC
E..X."VON STXSIDBUF+3..X." TXA..X." ORAS
IDBUF+2.LXD" STA54295.UXN" RTS..XX";..X.
"FRES JSRGET16;SET..Y." BCCRON; RESO-..Y
." JMPILLQU; NANCE.%Y.#RON TXA.2Y.# JSRL
EFT.CY.# STASIDBUF+2.TY.# ORASIDBUF+3.BY
(# STA54295.KY2# RTS.QY<#;..YF#FFREQ JSR
$AD8A;SET..YP# JSR$B7F7; FILTER..YZ# LDA
$14; FREQ...YD# LDY$15.KYN# STA54293.YYX
# STY54294..Y.# RTS..Y.#;..Z.#VOICE JSRG
ETBYT;SET..Z # STXB4; OSC.'Z.# JSRGETVOI
CE; TO A.>Z.# JSRGETREG; NOTE'S.PZ.# CMP
#1; FREQ..\ZH# BNEVC2.JZR# STX54272.XZ.#
 STY54273..Z.# RTS..Z.#VC2 CMP#2..Z.# BN
EVC3..Z.$ STX54279..Z.$ STY54280..Z.$ RT
S.NZ"$VC3 CMP#3..Z,$ BNEVERR..Z6$ STX542
86..Z@$ STY54287..[J$ RTS..[T$VERR JMPIL
LDEV.&[^$VERR2 JMPILLQU.=[H$GETVOICE JSR
KOMBYT.I[R$ CPX#95.W[|$ BCSVERR2.M[.$ LD
AKEYLOW,X;LOAD.~[.$ STAB2; NOTE..[.$ LDA
KEYHIGH,X; FROM..[.$ STAB1; TABLE..[.$ R
TS..[.$;.P[B$PWIDTH JSRGETBYT;SET..[L$ S
TXB4; PULSE-..[V$ JSRGETPW; WIDTH..\.$ J
SRGETREG..\.$ NOP..\.$ CMP#1.'\.$ BNEPW2
.5\.% STX54274.C\.% STY54275.L\.% RTS.Z\
&%PW2 CMP#2.F\0% BNEPW3.T\:% STX54281..\
D% STY54282..\N% RTS..\X%PW3 CMP#3..\B% 
BNEPERR..\L% STX54288.B\V% STY54289.K\.%
 RTS..\.%PERR JMPILLDEV..\.%GETPW JSRCHK
COM..].% JSR$AD8A;GET..].% JSR$B7F7; 16 
BIT.&].% LDA$14.2].% LDY$15.=]F% STAB2.H
]P% STYB1.Q]Z% RTS.W].%;.N].%ADSR JSRGET
BYT;SET.].% STXB4; ADSR..].& JSRGETENV.
.].& JSRGETREG..].& CMP#1..] & BNEA2.A]*
& STX54277.O]4& STY54278.X]>& RTS..]H&A2
 CMP#2..]R& BNEA3..]\& STX54284..^F& STY
54285..^P& RTS."^Z&A3 CMP#3./^.& BNEAERR
.=^.& STX54291.K^.& STY54292.T^.& RTS.G^
.&AERR JMPILLDEV.Z^.&AERR2 JMPILLQU..^.&
GETENV LDY#1..^J& STYB3..^T&ENVLOOP JSRK
OMBYT;GET..^.& TXA; ALL 4.S^.& CMP#16; P
ARA-..^.& BCSAERR2; METERS..^.& JSRLEFT;
 AND.._.' LDYB3; CHECK. _.' STAB1,Y; THE
M./_.' JSRKOMBYT.8_$' TXA.D_.' CMP#16.R_
8' BCSAERR2.B_B' LDYB3;FORM.W_L' ORAB1,Y
; 16*A+D.._V' STAB1,Y; AND.._`' DECB3; 1
6*S+R.._J' BEQENVLOOP.._T' RTS.._~';.R_.
'WAVE JSRGETBYT;SET.._.' STXB4; OSC-.._.
' JSRKOMBYT; WAVE..`.' LDAB4..`.' CMP#1.
.`.' BNEW2.'`D' STX54276.0`N' RTS.=`X'W2
 CMP#2.H`.' BNEW3.V`.' STX54283._`.' RTS
.L`.(W3 CMP#3.Y`.( BNEWERR..`.( STX54290
..`.( RTS..`((WERR JMPILLDEV..`2(;..`<(G
ET16 JSRGETBYT.I`F( CPX#16.R`P( RTS.X`Z(
;..`D(GETREG LDAB4..`N( LDXB2..`X( LDYB1
..A.( RTS..A.(;."A.(;*** TABLES ***.(A (
;.IA.(KEYLOW .BY22,39,57,75,95,116.NA.(.
BY 138,161,186,212,240,14,45,78..A.(.BY 
113,150,190,231,20,66,116,169..AH(.BY 22
4,27,90,156,226,45,123,207..AR(.BY 39,13
3,232,81,193,55,180,56..B.(.BY 196,89,24
7,158,78,10,208,162.&B.(.BY 129,109,103,
112,137,178,237.IB.(.BY 59,157,20,160,69
,3,219,207.MB.(.BY 225,18,101,219,118,58
,39,65..B.).BY 138,5,181,157,193,36,201,
182..B.).BY 237,115,78,130,20,10,106,59.
YB.).BY 130,72,147,107,218,231,156..B").
BY 4,40,20..B,);..C6)KEYHIGH .BY1,1,1,1,
1..C@).BY 1,1,1,1,1,1,2,2,2,2,2,2,2,3,3.
RCJ).BY 3,3,3,4,4,4,4,5,5,5,6,6,6,7.VCT)
.BY 7,8,8,9,9,10,10,11,12,13,13..C^).BY 
14,15,16,17,18,19,20,21,23,24.BCH).BY 26
,27,29,31,32,34,36,39,41,43..CR).BY 46,4
9,52,55,58,62,65,69,73,78..D|).BY 82,87,
92,98,104,110,117,124.,D.).BY 131,139,14
7,156,165,175.LD.).BY 185,196,208,221,23
4,248.RD.);.ID.)VECTAB .WOWS,ILINE.~D.) 
.WO$A57C,DECODE..D.) .WOGETADDR,$AE86..D
B) .BY0,0,0,0,$4C..DL) .WORX..DV);.YD.)E
INTEXT .TX"     ***** C64"..D.).TX " - M
IDIBASIC V5 *****"..E.).BY $0D,$0D.%E.).
TX " BY R.BUCHTY     "./E.*.BY 0.5E.*;.V
E.*BEFTAB .TX"ADSRANAUSBENDBRC".ZE&*.TX 
"CLNCLSCOLCPRCTRLDEVICEDIR"..E0*.TX "EXI
TFFREQFKOFFFKONFLOPPY"..E:*.TX "FMODEFQH
ELPKEYLOCATEMONO"..ED*.TX "MWLNOKEYOFFOL
DOMNIOUTPEDAL"..FN*.TX "POLYPPRPRGPWREPE
ATRESET".+FX*.TX "RESTARTSIDRESSIDVOLSTA
TUS".HFB*.TX "SWITCHVOICEVOLWAVE".RFL*.B
Y 0.XFV*;.XF.*BEFADR .WOADSR-1,AN-1,AUS-
1..F.*.WO BND-1,BRC-1,CLN-1,CLS-1,COL-1.
BF.*.WO CPR-1,CTRL-1,DEVICE-1,DIR-1..F.*
.WO EXIT-1,FFREQ-1,FKOFF-1,FKON-1..G.*.W
O FLOPPY-1,FMODE-1,FRES-1.-G.*.WO HELP-1
,KEY-1,LOCATE-1,MONO-1.OG.*.WO MWL-1,NOK
EY-1,OFF-1,OLD-1.QGF*.WO OMNI-1,MTX-1,PD
L-1,POLY-1..GP*.WO PPR-1,PRG-1,PWIDTH-1,
REPEAT-1..GZ*.WO RESET-1,RESTART-1,SIDRE
S-1.ZG.*.WO SVOL-1,FINFO-1,FVOICE-1..G.*
.WO VOICE-1,VOL-1,WAVE-1..H.*.BY 0..H.+;
..H.+;*** BUFFERS ***."H.+;.8H +BUFFER .
BY0,0,0,0.>H*+;.TH4+SIDBUF .BY0,0,0,0.ZH
>+;.OHH+SCREEN .BY0,0,12.UHR+;.}H\+.EN..
.

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL