MACRO EDITOR
FILE INFORMATION
FILENAME(S): MACRO EDITOR
FILE TYPE(S): PRG
FILE SIZE: 15K
FIRST SEEN: 2025-11-30 17:31:22
APPEARS ON: 1 disk(s)
FILE HASH
5f68017f7b14f1bdc10fd245f48c302e8437c081a3afcfbf600aab657b9a66cc
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C D U JUNE 90 | MACRO EDITOR | PRG | UK CD | 21 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 19 08 64 00 8F 20 2A 20 4D 41 43 52 4F 20 |....d.. * MACRO |
00000010: 45 44 49 54 4F 52 20 20 2A 00 31 08 6E 00 8F 20 |EDITOR *.1.n.. |
00000020: 2A 20 46 4F 52 20 55 53 45 20 57 49 54 48 20 20 |* FOR USE WITH |
00000030: 2A 00 49 08 78 00 8F 20 2A 20 53 49 44 20 53 45 |*.I.x.. * SID SE|
00000040: 51 55 45 4E 43 45 52 20 2A 00 61 08 82 00 8F 20 |QUENCER *.a.... |
00000050: 2A 20 42 59 20 56 2E 48 2E 42 45 52 52 59 20 20 |* BY V.H.BERRY |
00000060: 2A 00 79 08 8C 00 8F 20 2A 20 20 20 20 43 2E 31 |*.y.... * C.1|
00000070: 39 38 39 20 20 20 20 20 2A 00 96 08 C8 00 8D 20 |989 *...... |
00000080: 35 30 30 31 30 3A 8F 20 49 4E 49 54 49 41 4C 49 |50010:. INITIALI|
00000090: 53 41 54 49 4F 4E 00 AE 08 D2 00 8D 20 33 35 30 |SATION...... 350|
000000A0: 31 30 3A 8F 20 4D 41 49 4E 20 4D 45 4E 55 00 C5 |10:. MAIN MENU..|
000000B0: 08 DC 00 99 22 93 1E 4D 41 43 52 4F 20 45 44 49 |...."..MACRO EDI|
000000C0: 54 4F 52 2E 22 00 D7 08 E6 00 99 22 56 2E 48 2E |TOR."......"V.H.|
000000D0: 42 45 52 52 59 2E 22 00 E6 08 F0 00 99 22 43 2E |BERRY."......"C.|
000000E0: 31 39 38 39 2E 22 00 EC 08 FA 00 80 00 FF 08 88 |1989."..........|
000000F0: 13 8F 20 54 45 4D 50 4F 20 43 48 41 4E 47 45 00 |.. TEMPO CHANGE.|
00000100: 27 09 92 13 56 4C B2 C2 28 34 39 32 37 35 29 3A |'...VL..(49275):|
00000110: 56 4C B2 56 4C AA 49 3A 8B 20 56 4C B2 32 35 36 |VL.VL.I:. VL.256|
00000120: 20 A7 20 56 4C B2 31 00 3B 09 9C 13 8B 20 56 4C | . VL.1.;.... VL|
00000130: B2 30 20 A7 20 56 4C B2 32 35 35 00 54 09 A6 13 |.0 . VL.255.T...|
00000140: 97 20 34 39 32 37 35 2C 56 4C 3A 97 20 34 39 32 |. 49275,VL:. 492|
00000150: 37 36 2C 30 00 5A 09 B0 13 8E 00 71 09 70 17 8F |76,0.Z.....q.p..|
00000160: 20 53 45 51 55 45 4E 43 45 52 20 4F 4E 2F 4F 46 | SEQUENCER ON/OF|
00000170: 46 00 8D 09 7A 17 8B 20 4D 46 B2 30 20 A7 20 4D |F...z.. MF.0 . M|
00000180: 46 B2 31 3A 9E 20 34 39 32 33 35 3A 8E 00 A0 09 |F.1:. 49235:....|
00000190: 84 17 4D 46 B2 30 3A 9E 20 34 39 32 30 39 3A 8E |..MF.0:. 49209:.|
000001A0: 00 B3 09 98 3A 8F 20 42 4C 4F 43 4B 20 45 44 49 |....:. BLOCK EDI|
000001B0: 54 4F 52 00 CD 09 A2 3A 8D 20 32 37 30 31 30 3A |TOR....:. 27010:|
000001C0: 8F 20 45 44 49 54 20 53 43 52 45 45 4E 00 E6 09 |. EDIT SCREEN...|
000001D0: FC 3A A1 20 4B 24 3A 8B 20 4B 24 B2 22 22 20 A7 |.:. K$:. K$."" .|
000001E0: 20 31 35 31 30 30 00 20 0A FE 3A 8B 20 4B 24 B2 | 15100. ..:. K$.|
000001F0: 22 11 22 20 A7 20 8D 20 31 36 30 33 30 3A 53 59 |"." . . 16030:SY|
00000200: B2 53 59 AA 31 3A 8D 20 31 36 30 31 30 3A 8F 20 |.SY.1:. 16010:. |
00000210: 45 44 49 54 20 43 55 52 53 4F 52 20 44 4F 57 4E |EDIT CURSOR DOWN|
00000220: 00 58 0A 00 3B 8B 20 4B 24 B2 22 91 22 20 A7 20 |.X..;. K$."." . |
00000230: 8D 20 31 36 30 33 30 3A 53 59 B2 53 59 AB 31 3A |. 16030:SY.SY.1:|
00000240: 8D 20 31 36 30 31 30 3A 8F 20 45 44 49 54 20 43 |. 16010:. EDIT C|
00000250: 55 52 53 4F 52 20 55 50 00 93 0A 02 3B 8B 20 4B |URSOR UP....;. K|
00000260: 24 B2 22 1D 22 20 A7 20 8D 20 31 36 30 33 30 3A |$."." . . 16030:|
00000270: 53 58 B2 53 58 AA 31 3A 8D 20 31 36 30 31 30 3A |SX.SX.1:. 16010:|
00000280: 8F 20 45 44 49 54 20 43 55 52 53 4F 52 20 52 49 |. EDIT CURSOR RI|
00000290: 47 48 54 00 CD 0A 04 3B 8B 20 4B 24 B2 22 9D 22 |GHT....;. K$."."|
000002A0: 20 A7 20 8D 20 31 36 30 33 30 3A 53 58 B2 53 58 | . . 16030:SX.SX|
000002B0: AB 31 3A 8D 20 31 36 30 31 30 3A 8F 20 45 44 49 |.1:. 16010:. EDI|
000002C0: 54 20 43 55 52 53 4F 52 20 4C 45 46 54 00 FC 0A |T CURSOR LEFT...|
000002D0: 06 3B 8B 20 4B 24 B2 22 93 22 20 A7 20 8D 20 31 |.;. K$."." . . 1|
000002E0: 36 35 31 30 3A 8D 20 32 37 30 31 30 3A 8F 20 43 |6510:. 27010:. C|
000002F0: 4C 45 41 52 20 43 48 41 4E 4E 45 4C 00 2A 0B 10 |LEAR CHANNEL.*..|
00000300: 3B 8B 20 4B 24 B2 22 04 22 20 A7 20 8D 20 31 37 |;. K$."." . . 17|
00000310: 30 31 30 3A 8D 20 32 37 30 31 30 3A 8F 20 44 45 |010:. 27010:. DE|
00000320: 4C 45 54 45 20 42 4C 4F 43 4B 00 4F 0B 1A 3B 8B |LETE BLOCK.O..;.|
00000330: 20 4B 24 B2 22 17 22 20 A7 20 8D 20 31 38 30 31 | K$."." . . 1801|
00000340: 30 3A 8F 20 57 52 49 54 45 20 42 4C 4F 43 4B 00 |0:. WRITE BLOCK.|
00000350: 79 0B 1F 3B 8B 20 4B 24 B2 22 02 22 20 A7 20 8D |y..;. K$."." . .|
00000360: 20 31 36 36 31 30 3A 8F 20 53 45 54 20 42 45 47 | 16610:. SET BEG|
00000370: 49 4E 20 4D 41 52 4B 45 52 00 A1 0B 20 3B 8B 20 |IN MARKER... ;. |
00000380: 4B 24 B2 22 05 22 20 A7 20 8D 20 31 36 36 31 30 |K$."." . . 16610|
00000390: 3A 8F 20 53 45 54 20 45 4E 44 20 4D 41 52 4B 45 |:. SET END MARKE|
000003A0: 52 00 C7 0B 24 3B 8B 20 4B 24 B2 22 09 22 20 A7 |R...$;. K$."." .|
000003B0: 20 8D 20 31 37 35 31 30 3A 8F 20 49 4E 53 45 52 | . 17510:. INSER|
000003C0: 54 20 42 4C 4F 43 4B 00 0C 0C 29 3B 8B 20 4B 24 |T BLOCK...);. K$|
000003D0: B2 22 13 22 20 A7 20 97 20 46 53 49 44 2C 30 3A |."." . . FSID,0:|
000003E0: 97 20 46 53 49 44 AA 37 2C 30 3A 97 20 46 53 49 |. FSID.7,0:. FSI|
000003F0: 44 AA 31 34 2C 30 3A 8F 20 52 45 53 45 54 20 4E |D.14,0:. RESET N|
00000400: 4F 54 45 20 43 4F 55 4E 54 45 52 53 00 3D 0C 2E |OTE COUNTERS.=..|
00000410: 3B 8B 20 4B 24 B2 22 46 22 20 A7 20 8D 20 33 30 |;. K$."F" . . 30|
00000420: 30 31 30 3A 8D 20 32 37 30 31 30 3A 8F 20 43 48 |010:. 27010:. CH|
00000430: 41 4E 47 45 20 46 49 4C 45 4E 41 4D 45 00 68 0C |ANGE FILENAME.h.|
00000440: 38 3B 8B 20 4B 24 B2 22 50 22 20 A7 20 50 47 B2 |8;. K$."P" . PG.|
00000450: 50 47 AA 31 3A 8D 20 32 37 30 31 30 3A 8F 20 4E |PG.1:. 27010:. N|
00000460: 45 58 54 20 50 41 47 45 00 97 0C 3D 3B 8B 20 4B |EXT PAGE...=;. K|
00000470: 24 B2 22 D0 22 20 A7 20 50 47 B2 50 47 AB 31 3A |$."." . PG.PG.1:|
00000480: 8D 20 32 37 30 31 30 3A 8F 20 50 52 45 56 49 4F |. 27010:. PREVIO|
00000490: 55 53 20 50 41 47 45 00 C3 0C 3F 3B 8B 20 4B 24 |US PAGE...?;. K$|
000004A0: B2 22 2B 22 20 A7 20 49 B2 AB 31 3A 8D 20 35 30 |."+" . I..1:. 50|
000004B0: 31 30 3A 8F 20 49 4E 43 52 45 41 53 45 20 54 45 |10:. INCREASE TE|
000004C0: 4D 50 4F 00 EE 0C 40 3B 8B 20 4B 24 B2 22 2D 22 |MPO...@;. K$."-"|
000004D0: 20 A7 20 49 B2 31 3A 8D 20 35 30 31 30 3A 8F 20 | . I.1:. 5010:. |
000004E0: 44 45 43 52 45 41 53 45 20 54 45 4D 50 4F 00 22 |DECREASE TEMPO."|
000004F0: 0D 42 3B 8B 20 4B 24 B2 C7 28 31 33 33 29 20 A7 |.B;. K$..(133) .|
00000500: 20 4F 53 B2 4F 53 AA 31 3A 8D 20 32 37 30 31 30 | OS.OS.1:. 27010|
00000510: 3A 8F 20 46 31 20 4E 45 58 54 20 43 48 41 4E 4E |:. F1 NEXT CHANN|
00000520: 45 4C 00 4D 0D 4C 3B 8B 20 4B 24 B2 C7 28 31 33 |EL.M.L;. K$..(13|
00000530: 34 29 20 A7 20 8D 20 32 38 30 31 30 3A 8F 20 46 |4) . . 28010:. F|
00000540: 33 20 48 45 4C 50 20 53 43 52 45 45 4E 00 7C 0D |3 HELP SCREEN.|.|
00000550: 56 3B 8B 20 4B 24 B2 C7 28 31 33 35 29 20 A7 20 |V;. K$..(135) . |
00000560: 8D 20 36 30 31 30 3A 8F 20 46 35 20 53 45 51 55 |. 6010:. F5 SEQU|
00000570: 45 4E 43 45 52 20 4F 4E 2F 4F 46 46 00 9A 0D 60 |ENCER ON/OFF...`|
00000580: 3B 8B 20 4B 24 B2 C7 28 31 33 36 29 20 A7 20 8E |;. K$..(136) . .|
00000590: 3A 8F 20 46 37 20 45 58 49 54 00 A6 0D 6A 3B 89 |:. F7 EXIT...j;.|
000005A0: 20 31 35 31 30 30 00 BB 0D 80 3E 8F 20 43 55 52 | 15100....>. CUR|
000005B0: 53 4F 52 20 43 4F 4E 54 52 4F 4C 00 CD 0D 8A 3E |SOR CONTROL....>|
000005C0: 8B 20 53 58 B1 37 20 A7 20 53 58 B2 30 00 DF 0D |. SX.7 . SX.0...|
000005D0: 8F 3E 8B 20 53 58 B3 30 20 A7 20 53 58 B2 37 00 |.>. SX.0 . SX.7.|
000005E0: F1 0D 94 3E 8B 20 53 59 B1 37 20 A7 20 53 59 B2 |...>. SY.7 . SY.|
000005F0: 30 00 03 0E 99 3E 8B 20 53 59 B3 30 20 A7 20 53 |0....>. SY.0 . S|
00000600: 59 B2 37 00 1A 0E 9E 3E 59 24 B2 22 22 3A 99 22 |Y.7....>Y$."":."|
00000610: 13 11 11 11 11 11 11 1D 22 3B 00 29 0E A8 3E 81 |........";.)..>.|
00000620: 20 49 B2 30 20 A4 20 53 59 00 34 0E B2 3E 99 22 | I.0 . SY.4..>."|
00000630: 11 11 22 3B 00 3A 0E BC 3E 82 00 49 0E C6 3E 81 |..";.:..>..I..>.|
00000640: 20 49 B2 30 20 A4 20 53 58 00 56 0E D0 3E 99 22 | I.0 . SX.V..>."|
00000650: 1D 1D 1D 1D 22 3B 00 5C 0E DA 3E 82 00 66 0E E4 |....";.\..>..f..|
00000660: 3E 9F 20 31 2C 33 00 74 0E EE 3E 81 20 49 B2 31 |>. 1,3.t..>. I.1|
00000670: 20 A4 20 33 00 7F 0E F8 3E A1 23 31 2C 58 24 00 | . 3....>.#1,X$.|
00000680: 8C 0E 02 3F 59 24 B2 59 24 AA 58 24 00 92 0E 0C |...?Y$.Y$.X$....|
00000690: 3F 82 00 9A 0E 16 3F A0 20 31 00 BA 0E 1B 3F 8B |?.....?. 1....?.|
000006A0: 20 46 47 B2 30 20 A7 20 99 22 12 22 3B 3A 46 47 | FG.0 . .".";:FG|
000006B0: B2 31 3A 89 20 31 36 31 36 30 00 C3 0E 1C 3F 46 |.1:. 16160....?F|
000006C0: 47 B2 30 00 D5 0E 20 3F 99 22 9D 9D 9D 22 3B 59 |G.0... ?."...";Y|
000006D0: 24 3B 22 92 22 00 DB 0E 2A 3F 8E 00 EF 0E 74 40 |$;"."...*?....t@|
000006E0: 8F 20 43 4C 45 41 52 20 43 48 41 4E 4E 45 4C 00 |. CLEAR CHANNEL.|
000006F0: 24 0F 7E 40 99 22 13 11 11 11 11 05 12 20 43 4C |$.~@."....... CL|
00000700: 45 41 52 20 43 48 41 4E 4E 45 4C 20 44 41 54 41 |EAR CHANNEL DATA|
00000710: 20 3A 20 50 52 45 53 53 20 5B 52 45 54 55 52 4E | : PRESS [RETURN|
00000720: 5D 20 92 22 00 3D 0F 88 40 A1 20 4B 24 3A 8B 20 |] .".=..@. K$:. |
00000730: 4B 24 B2 22 22 20 A7 20 31 36 35 32 30 00 57 0F |K$."" . 16520.W.|
00000740: 92 40 8B 20 4B 24 B3 B1 C7 28 31 33 29 20 A7 20 |.@. K$...(13) . |
00000750: 4B 24 B2 22 22 3A 8E 00 63 0F 9C 40 4E 28 4F 53 |K$."":..c..@N(OS|
00000760: 29 B2 30 00 7B 0F A6 40 97 20 43 48 AA 28 4F 53 |).0.{..@. CH.(OS|
00000770: AB 31 29 AC 32 35 36 2C 31 32 38 00 95 0F B0 40 |.1).256,128....@|
00000780: 97 20 43 48 AA 28 4F 53 AB 31 29 AC 32 35 36 AA |. CH.(OS.1).256.|
00000790: 31 2C 32 35 35 00 9B 0F BA 40 8E 00 B3 0F D8 40 |1,255....@.....@|
000007A0: 8F 20 53 45 54 20 42 4C 4F 43 4B 20 4D 41 52 4B |. SET BLOCK MARK|
000007B0: 45 52 53 00 D8 0F E2 40 56 4C B2 50 47 AC 36 34 |ERS....@VL.PG.64|
000007C0: AA 53 59 AC 38 AA 53 58 3A 8B 20 56 4C B1 B2 4E |.SY.8.SX:. VL..N|
000007D0: 28 4F 53 29 20 A7 20 8E 00 ED 0F EC 40 8B 20 4B |(OS) . .....@. K|
000007E0: 24 B2 22 02 22 20 A7 20 42 4D B2 56 4C 00 02 10 |$."." . BM.VL...|
000007F0: F6 40 8B 20 4B 24 B2 22 05 22 20 A7 20 45 4D B2 |.@. K$."." . EM.|
00000800: 56 4C 00 23 10 00 41 8D 20 31 36 37 31 30 3A 8F |VL.#..A. 16710:.|
00000810: 20 50 52 49 4E 54 20 42 4C 4F 43 4B 20 56 41 4C | PRINT BLOCK VAL|
00000820: 55 45 53 00 43 10 0A 41 8D 20 32 31 30 33 30 3A |UES.C..A. 21030:|
00000830: 8F 20 43 4F 4C 4F 55 52 20 53 55 42 52 4F 55 54 |. COLOUR SUBROUT|
00000840: 49 4E 45 00 49 10 14 41 8E 00 69 10 3C 41 8F 20 |INE.I..A..i.<A. |
00000850: 50 52 49 4E 54 20 42 4C 4F 43 4B 20 4D 41 52 4B |PRINT BLOCK MARK|
00000860: 45 52 20 56 41 4C 55 45 53 00 8B 10 46 41 99 22 |ER VALUES...FA."|
00000870: 13 11 11 11 11 20 20 20 20 20 20 20 20 20 20 20 |..... |
00000880: 20 20 20 20 20 20 20 20 20 91 22 00 A8 10 50 41 | ."...PA|
00000890: 99 22 05 42 4C 4F 43 4B 3A 22 3B 42 4D AA 31 3B |.".BLOCK:";BM.1;|
000008A0: 22 2D 22 3B 45 4D AA 31 00 AE 10 5A 41 8E 00 C1 |"-";EM.1...ZA...|
000008B0: 10 68 42 8F 20 44 45 4C 45 54 45 20 42 4C 4F 43 |.hB. DELETE BLOC|
000008C0: 4B 00 E1 10 72 42 99 22 13 11 11 11 11 05 12 20 |K...rB."....... |
000008D0: 44 45 4C 45 54 45 20 42 4C 4F 43 4B 20 92 20 20 |DELETE BLOCK . |
000008E0: 22 00 03 11 7C 42 8B 20 42 4D B1 45 4D 20 A7 20 |"...|B. BM.EM . |
000008F0: 31 38 33 31 30 3A 8F 20 42 4C 4F 43 4B 20 45 52 |18310:. BLOCK ER|
00000900: 52 4F 52 00 22 11 86 42 8B 20 4D 46 B2 31 20 A7 |ROR."..B. MF.1 .|
00000910: 20 8D 20 36 30 31 30 3A 8F 20 53 45 51 2E 20 4F | . 6010:. SEQ. O|
00000920: 46 46 00 2A 11 90 42 49 B2 30 00 5B 11 9A 42 97 |FF.*..BI.0.[..B.|
00000930: 20 43 48 AA 28 4F 53 AB 31 29 AC 32 35 36 AA 42 | CH.(OS.1).256.B|
00000940: 4D AA 49 2C C2 28 43 48 AA 28 4F 53 AB 31 29 AC |M.I,.(CH.(OS.1).|
00000950: 32 35 36 AA 45 4D AA 49 AA 31 29 00 95 11 A4 42 |256.EM.I.1)....B|
00000960: 8B 20 C2 28 43 48 AA 28 4F 53 AB 31 29 AC 32 35 |. .(CH.(OS.1).25|
00000970: 36 AA 42 4D AA 49 29 B2 32 35 35 20 A7 20 4E 28 |6.BM.I).255 . N(|
00000980: 4F 53 29 B2 4E 28 4F 53 29 AB 28 45 4D AB 42 4D |OS).N(OS).(EM.BM|
00000990: AA 31 29 3A 8E 00 9F 11 AE 42 49 B2 49 AA 31 00 |.1):.....BI.I.1.|
000009A0: AB 11 B8 42 89 20 31 37 30 35 30 00 BE 11 5C 44 |...B. 17050...\D|
000009B0: 8F 20 49 4E 53 45 52 54 20 42 4C 4F 43 4B 00 E2 |. INSERT BLOCK..|
000009C0: 11 66 44 56 4C B2 50 47 AC 36 34 AA 53 59 AC 38 |.fDVL.PG.64.SY.8|
000009D0: AA 53 58 3A 8B 20 56 4C B1 4E 28 4F 53 29 20 A7 |.SX:. VL.N(OS) .|
000009E0: 20 8E 00 14 12 70 44 8B 20 56 4C B1 32 35 34 20 | ....pD. VL.254 |
000009F0: B0 20 4E 28 4F 53 29 AA 45 4D AB 42 4D B1 32 35 |. N(OS).EM.BM.25|
00000A00: 35 20 A7 20 31 38 34 31 30 3A 8F 20 4F 56 45 52 |5 . 18410:. OVER|
00000A10: 46 4C 4F 57 00 36 12 75 44 8B 20 42 4D B1 45 4D |FLOW.6.uD. BM.EM|
00000A20: 20 A7 20 31 38 33 31 30 3A 8F 20 42 4C 4F 43 4B | . 18310:. BLOCK|
00000A30: 20 45 52 52 4F 52 00 56 12 76 44 99 22 13 11 11 | ERROR.V.vD."...|
00000A40: 11 11 05 12 20 49 4E 53 45 52 54 20 42 4C 4F 43 |.... INSERT BLOC|
00000A50: 4B 20 92 20 20 22 00 75 12 7A 44 8B 20 4D 46 B2 |K . ".u.zD. MF.|
00000A60: 31 20 A7 20 8D 20 36 30 31 30 3A 8F 20 53 45 51 |1 . . 6010:. SEQ|
00000A70: 2E 20 4F 46 46 00 8F 12 84 44 81 20 49 B2 4E 28 |. OFF....D. I.N(|
00000A80: 4F 53 29 AA 31 20 A4 20 56 4C 20 A9 20 AB 31 00 |OS).1 . VL . .1.|
00000A90: C2 12 8E 44 97 20 43 48 AA 28 4F 53 AB 31 29 AC |...D. CH.(OS.1).|
00000AA0: 32 35 36 AA 49 AA 28 45 4D AB 42 4D 29 AA 31 2C |256.I.(EM.BM).1,|
00000AB0: C2 28 43 48 AA 28 4F 53 AB 31 29 AC 32 35 36 AA |.(CH.(OS.1).256.|
00000AC0: 49 29 00 C8 12 98 44 82 00 E8 12 A2 44 8B 20 42 |I)....D.....D. B|
00000AD0: 4D B1 56 4C 20 A7 20 8D 20 31 38 31 31 30 3A 8F |M.VL . . 18110:.|
00000AE0: 20 43 4F 50 59 20 55 50 00 0A 13 A7 44 8B 20 45 | COPY UP....D. E|
00000AF0: 4D B3 56 4C 20 A7 20 8D 20 31 38 32 31 30 3A 8F |M.VL . . 18210:.|
00000B00: 20 43 4F 50 59 20 44 4F 57 4E 00 24 13 AC 44 4E | COPY DOWN.$..DN|
00000B10: 28 4F 53 29 B2 4E 28 4F 53 29 AA 28 45 4D AB 42 |(OS).N(OS).(EM.B|
00000B20: 4D 29 AA 31 00 3E 13 B6 44 8D 20 32 37 30 31 30 |M).1.>..D. 27010|
00000B30: 3A 8F 20 45 44 49 54 20 53 43 52 45 45 4E 00 44 |:. EDIT SCREEN.D|
00000B40: 13 C0 44 8E 00 56 13 50 46 8F 20 57 52 49 54 45 |..D..V.PF. WRITE|
00000B50: 20 42 4C 4F 43 4B 00 7A 13 5A 46 56 4C B2 50 47 | BLOCK.z.ZFVL.PG|
00000B60: AC 36 34 AA 53 59 AC 38 AA 53 58 3A 8B 20 56 4C |.64.SY.8.SX:. VL|
00000B70: B1 4E 28 4F 53 29 20 A7 20 8E 00 A9 13 64 46 8B |.N(OS) . ....dF.|
00000B80: 20 56 4C B1 32 35 34 20 B0 20 56 4C AA 45 4D AB | VL.254 . VL.EM.|
00000B90: 42 4D B1 32 35 34 20 A7 20 31 38 34 31 30 3A 8F |BM.254 . 18410:.|
00000BA0: 20 4F 56 45 52 46 4C 4F 57 00 CB 13 69 46 8B 20 | OVERFLOW...iF. |
00000BB0: 42 4D B1 45 4D 20 A7 20 31 38 33 31 30 3A 8F 20 |BM.EM . 18310:. |
00000BC0: 42 4C 4F 43 4B 20 45 52 52 4F 52 00 EB 13 6A 46 |BLOCK ERROR...jF|
00000BD0: 99 22 13 11 11 11 11 05 12 20 57 52 49 54 45 20 |."....... WRITE |
00000BE0: 42 4C 4F 43 4B 20 92 20 20 20 22 00 0A 14 6E 46 |BLOCK . "...nF|
00000BF0: 8B 20 4D 46 B2 31 20 A7 20 8D 20 36 30 31 30 3A |. MF.1 . . 6010:|
00000C00: 8F 20 53 45 51 2E 20 4F 46 46 00 32 14 78 46 8B |. SEQ. OFF.2.xF.|
00000C10: 20 45 4D B3 56 4C 20 B0 20 42 4D B1 56 4C 20 A7 | EM.VL . BM.VL .|
00000C20: 20 8D 20 31 38 31 31 30 3A 8F 20 43 4F 50 59 20 | . 18110:. COPY |
00000C30: 55 50 00 5C 14 82 46 8B 20 45 4D B1 56 4C 20 B0 |UP.\..F. EM.VL .|
00000C40: 20 42 4D B3 56 4C 20 A7 20 8D 20 31 38 32 31 30 | BM.VL . . 18210|
00000C50: 3A 8F 20 43 4F 50 59 20 44 4F 57 4E 00 79 14 8C |:. COPY DOWN.y..|
00000C60: 46 8B 20 56 4C AA 45 4D AB 42 4D B3 4E 28 4F 53 |F. VL.EM.BM.N(OS|
00000C70: 29 20 A7 20 31 38 30 39 30 00 8E 14 96 46 4E 28 |) . 18090....FN(|
00000C80: 4F 53 29 B2 56 4C AA 45 4D AB 42 4D AA 31 00 AC |OS).VL.EM.BM.1..|
00000C90: 14 A0 46 97 20 43 48 AA 28 4F 53 AB 31 29 AC 32 |..F. CH.(OS.1).2|
00000CA0: 35 36 AA 4E 28 4F 53 29 2C 32 35 35 00 C6 14 AA |56.N(OS),255....|
00000CB0: 46 8D 20 32 37 30 31 30 3A 8F 20 45 44 49 54 20 |F. 27010:. EDIT |
00000CC0: 53 43 52 45 45 4E 00 CC 14 AF 46 8E 00 DA 14 B4 |SCREEN....F.....|
00000CD0: 46 8F 20 43 4F 50 59 20 55 50 00 E2 14 BE 46 49 |F. COPY UP....FI|
00000CE0: B2 30 00 F2 14 C8 46 81 20 4A B2 42 4D 20 A4 20 |.0....F. J.BM . |
00000CF0: 45 4D 00 29 15 D2 46 8B 20 4B 24 B2 22 17 22 20 |EM.)..F. K$."." |
00000D00: A7 20 97 20 43 48 AA 28 4F 53 AB 31 29 AC 32 35 |. . CH.(OS.1).25|
00000D10: 36 AA 56 4C AA 49 2C C2 28 43 48 AA 28 4F 53 AB |6.VL.I,.(CH.(OS.|
00000D20: 31 29 AC 32 35 36 AA 4A 29 00 6A 15 D7 46 8B 20 |1).256.J).j..F. |
00000D30: 4B 24 B2 22 09 22 20 A7 20 97 20 43 48 AA 28 4F |K$."." . . CH.(O|
00000D40: 53 AB 31 29 AC 32 35 36 AA 56 4C AA 49 2C C2 28 |S.1).256.VL.I,.(|
00000D50: 43 48 AA 28 4F 53 AB 31 29 AC 32 35 36 AA 4A AA |CH.(OS.1).256.J.|
00000D60: 28 45 4D AB 42 4D 29 AA 31 29 00 74 15 DC 46 49 |(EM.BM).1).t..FI|
00000D70: B2 49 AA 31 00 7A 15 E6 46 82 00 80 15 F0 46 8E |.I.1.z..F.....F.|
00000D80: 00 90 15 18 47 8F 20 43 4F 50 59 20 44 4F 57 4E |....G. COPY DOWN|
00000D90: 00 98 15 22 47 49 B2 30 00 AD 15 2C 47 81 20 4A |..."GI.0...,G. J|
00000DA0: B2 45 4D 20 A4 20 42 4D 20 A9 20 AB 31 00 DF 15 |.EM . BM . .1...|
00000DB0: 36 47 97 20 43 48 AA 28 4F 53 AB 31 29 AC 32 35 |6G. CH.(OS.1).25|
00000DC0: 36 AA 56 4C AA 45 4D AB 42 4D AA 49 2C C2 28 43 |6.VL.EM.BM.I,.(C|
00000DD0: 48 AA 28 4F 53 AB 31 29 AC 32 35 36 AA 4A 29 00 |H.(OS.1).256.J).|
00000DE0: E9 15 40 47 49 B2 49 AB 31 00 EF 15 4A 47 82 00 |..@GI.I.1...JG..|
00000DF0: F5 15 54 47 8E 00 0E 16 7C 47 8F 20 42 4C 4F 43 |..TG....|G. BLOC|
00000E00: 4B 20 4D 41 52 4B 45 52 20 45 52 52 4F 52 00 32 |K MARKER ERROR.2|
00000E10: 16 86 47 99 22 13 11 11 11 11 05 12 20 42 4C 4F |..G."....... BLO|
00000E20: 43 4B 20 4D 41 52 4B 45 52 20 45 52 52 4F 52 20 |CK MARKER ERROR |
00000E30: 92 22 00 52 16 90 47 8D 20 32 31 30 33 30 3A 8F |.".R..G. 21030:.|
00000E40: 20 43 4F 4C 4F 55 52 20 53 55 42 52 4F 55 54 49 | COLOUR SUBROUTI|
00000E50: 4E 45 00 58 16 9A 47 8E 00 72 16 E0 47 8F 20 44 |NE.X..G..r..G. D|
00000E60: 41 54 41 20 4F 56 45 52 46 4C 4F 57 20 45 52 52 |ATA OVERFLOW ERR|
00000E70: 4F 52 00 92 16 EA 47 99 22 13 11 11 11 11 05 12 |OR....G.".......|
00000E80: 20 4F 56 45 52 46 4C 4F 57 20 45 52 52 4F 52 20 | OVERFLOW ERROR |
00000E90: 92 22 00 B2 16 F4 47 8D 20 32 31 30 33 30 3A 8F |."....G. 21030:.|
00000EA0: 20 43 4F 4C 4F 55 52 20 53 55 42 52 4F 55 54 49 | COLOUR SUBROUTI|
00000EB0: 4E 45 00 B8 16 FE 47 8E 00 D0 16 08 52 8F 20 43 |NE....G.....R. C|
00000EC0: 4F 4C 4F 55 52 20 53 55 42 52 4F 55 54 49 4E 45 |OLOUR SUBROUTINE|
00000ED0: 00 E2 16 26 52 8B 20 4F 53 B1 33 20 A7 20 4F 53 |...&R. OS.3 . OS|
00000EE0: B2 31 00 F4 16 30 52 8B 20 4F 53 B2 31 20 A7 20 |.1...0R. OS.1 . |
00000EF0: 99 22 1F 22 00 06 17 3A 52 8B 20 4F 53 B2 32 20 |."."...:R. OS.2 |
00000F00: A7 20 99 22 9E 22 00 18 17 44 52 8B 20 4F 53 B2 |. ."."...DR. OS.|
00000F10: 33 20 A7 20 99 22 1C 22 00 1E 17 4E 52 8E 00 35 |3 . ."."...NR..5|
00000F20: 17 78 69 8F 20 4E 4F 54 45 20 45 44 49 54 20 53 |.xi. NOTE EDIT S|
00000F30: 43 52 45 45 4E 00 66 17 82 69 99 22 93 12 1E 20 |CREEN.f..i."... |
00000F40: 4E 45 58 54 20 43 48 41 4E 20 1D 20 48 45 4C 50 |NEXT CHAN . HELP|
00000F50: 20 1D 20 53 45 51 20 4F 4E 2F 4F 46 46 20 1D 20 | . SEQ ON/OFF . |
00000F60: 45 58 49 54 20 22 00 95 17 8C 69 99 22 12 20 20 |EXIT "....i.". |
00000F70: 20 20 20 46 31 20 20 20 20 1D 20 20 46 33 20 20 | F1 . F3 |
00000F80: 1D 20 20 20 20 20 46 35 20 20 20 20 20 1D 20 20 |. F5 . |
00000F90: 46 37 20 20 22 00 C5 17 BE 69 99 22 11 11 11 1D |F7 "....i."....|
00000FA0: 1D 1D 1D B0 C0 C0 C0 B2 C0 C0 C0 B2 C0 C0 C0 B2 |................|
00000FB0: C0 C0 C0 B2 C0 C0 C0 B2 C0 C0 C0 B2 C0 C0 C0 B2 |................|
00000FC0: C0 C0 C0 AE 22 00 F2 17 C8 69 99 22 1D 1D 1D 1D |...."....i."....|
00000FD0: 7D 1D 31 1D 7D 1D 32 1D 7D 1D 33 1D 7D 1D 34 1D |}.1.}.2.}.3.}.4.|
00000FE0: 7D 1D 35 1D 7D 1D 36 1D 7D 1D 37 1D 7D 1D 38 1D |}.5.}.6.}.7.}.8.|
00000FF0: 7D 22 00 1F 18 D2 69 99 22 B0 60 60 60 7B 60 60 |}"....i.".```{``|
00001000: 60 7B 60 60 60 7B 60 60 60 7B 60 60 60 7B 60 60 |`{```{```{```{``|
00001010: 60 7B 60 60 60 7B 60 60 60 7B 60 60 60 B3 22 00 |`{```{```{```.".|
00001020: 4C 18 DC 69 99 22 7D 30 1D 2B 7D 1D 1D 1D 7D 1D |L..i."}0.+}...}.|
00001030: 1D 1D 7D 1D 1D 1D 7D 1D 1D 1D 7D 1D 1D 1D 7D 1D |..}...}...}...}.|
00001040: 1D 1D 7D 1D 1D 1D 7D 1D 1D 1D 7D 22 00 79 18 E6 |..}...}...}".y..|
00001050: 69 99 22 AB 60 60 60 7B 60 60 60 7B 60 60 60 7B |i.".```{```{```{|
00001060: 60 60 60 7B 60 60 60 7B 60 60 60 7B 60 60 60 7B |```{```{```{```{|
00001070: 60 60 60 7B 60 60 60 B3 22 00 A6 18 F0 69 99 22 |```{```."....i."|
00001080: 7D 38 1D 2B 7D 1D 1D 1D 7D 1D 1D 1D 7D 1D 1D 1D |}8.+}...}...}...|
00001090: 7D 1D 1D 1D 7D 1D 1D 1D 7D 1D 1D 1D 7D 1D 1D 1D |}...}...}...}...|
000010A0: 7D 1D 1D 1D 7D 22 00 D3 18 FA 69 99 22 AB 60 60 |}...}"....i.".``|
000010B0: 60 7B 60 60 60 7B 60 60 60 7B 60 60 60 7B 60 60 |`{```{```{```{``|
000010C0: 60 7B 60 60 60 7B 60 60 60 7B 60 60 60 7B 60 60 |`{```{```{```{``|
000010D0: 60 B3 22 00 00 19 04 6A 99 22 7D 31 36 2B 7D 1D |`."....j."}16+}.|
000010E0: 1D 1D 7D 1D 1D 1D 7D 1D 1D 1D 7D 1D 1D 1D 7D 1D |..}...}...}...}.|
000010F0: 1D 1D 7D 1D 1D 1D 7D 1D 1D 1D 7D 1D 1D 1D 7D 22 |..}...}...}...}"|
00001100: 00 2D 19 0E 6A 99 22 AB 60 60 60 7B 60 60 60 7B |.-..j.".```{```{|
00001110: 60 60 60 7B 60 60 60 7B 60 60 60 7B 60 60 60 7B |```{```{```{```{|
00001120: 60 60 60 7B 60 60 60 7B 60 60 60 B3 22 00 5A 19 |```{```{```.".Z.|
00001130: 18 6A 99 22 7D 32 34 2B 7D 1D 1D 1D 7D 1D 1D 1D |.j."}24+}...}...|
00001140: 7D 1D 1D 1D 7D 1D 1D 1D 7D 1D 1D 1D 7D 1D 1D 1D |}...}...}...}...|
00001150: 7D 1D 1D 1D 7D 1D 1D 1D 7D 22 00 87 19 22 6A 99 |}...}...}"..."j.|
00001160: 22 AB 60 60 60 7B 60 60 60 7B 60 60 60 7B 60 60 |".```{```{```{``|
00001170: 60 7B 60 60 60 7B 60 60 60 7B 60 60 60 7B 60 60 |`{```{```{```{``|
00001180: 60 7B 60 60 60 B3 22 00 B4 19 2C 6A 99 22 7D 33 |`{```."...,j."}3|
00001190: 32 2B 7D 1D 1D 1D 7D 1D 1D 1D 7D 1D 1D 1D 7D 1D |2+}...}...}...}.|
000011A0: 1D 1D 7D 1D 1D 1D 7D 1D 1D 1D 7D 1D 1D 1D 7D 1D |..}...}...}...}.|
000011B0: 1D 1D 7D 22 00 E1 19 36 6A 99 22 AB 60 60 60 7B |..}"...6j.".```{|
000011C0: 60 60 60 7B 60 60 60 7B 60 60 60 7B 60 60 60 7B |```{```{```{```{|
000011D0: 60 60 60 7B 60 60 60 7B 60 60 60 7B 60 60 60 B3 |```{```{```{```.|
000011E0: 22 00 0E 1A 40 6A 99 22 7D 34 30 2B 7D 1D 1D 1D |"...@j."}40+}...|
000011F0: 7D 1D 1D 1D 7D 1D 1D 1D 7D 1D 1D 1D 7D 1D 1D 1D |}...}...}...}...|
00001200: 7D 1D 1D 1D 7D 1D 1D 1D 7D 1D 1D 1D 7D 22 00 3B |}...}...}...}".;|
00001210: 1A 4A 6A 99 22 AB 60 60 60 7B 60 60 60 7B 60 60 |.Jj.".```{```{``|
00001220: 60 7B 60 60 60 7B 60 60 60 7B 60 60 60 7B 60 60 |`{```{```{```{``|
00001230: 60 7B 60 60 60 7B 60 60 60 B3 22 00 68 1A 54 6A |`{```{```.".h.Tj|
00001240: 99 22 7D 34 38 2B 7D 1D 1D 1D 7D 1D 1D 1D 7D 1D |."}48+}...}...}.|
00001250: 1D 1D 7D 1D 1D 1D 7D 1D 1D 1D 7D 1D 1D 1D 7D 1D |..}...}...}...}.|
00001260: 1D 1D 7D 1D 1D 1D 7D 22 00 95 1A 5E 6A 99 22 AB |..}...}"...^j.".|
00001270: 60 60 60 7B 60 60 60 7B 60 60 60 7B 60 60 60 7B |```{```{```{```{|
00001280: 60 60 60 7B 60 60 60 7B 60 60 60 7B 60 60 60 7B |```{```{```{```{|
00001290: 60 60 60 B3 22 00 C2 1A 68 6A 99 22 7D 35 36 2B |```."...hj."}56+|
000012A0: 7D 1D 1D 1D 7D 1D 1D 1D 7D 1D 1D 1D 7D 1D 1D 1D |}...}...}...}...|
000012B0: 7D 1D 1D 1D 7D 1D 1D 1D 7D 1D 1D 1D 7D 1D 1D 1D |}...}...}...}...|
000012C0: 7D 22 00 EF 1A 72 6A 99 22 AD 60 60 60 B1 60 60 |}"...rj.".```.``|
000012D0: 60 B1 60 60 60 B1 60 60 60 B1 60 60 60 B1 60 60 |`.```.```.```.``|
000012E0: 60 B1 60 60 60 B1 60 60 60 B1 60 60 60 BD 22 00 |`.```.```.```.".|
000012F0: 17 1B 7C 6A 99 22 13 11 11 1D 1D 1D 1D 1D 1D 1D |..|j."..........|
00001300: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 05 46 49 4C |.............FIL|
00001310: 45 1D 3A 22 3B 4E 24 00 38 1B 81 6A 8D 20 31 36 |E.:";N$.8..j. 16|
00001320: 37 31 30 3A 8F 20 50 52 49 4E 54 20 42 4C 4F 43 |710:. PRINT BLOC|
00001330: 4B 20 56 41 4C 55 45 53 00 58 1B 86 6A 8D 20 32 |K VALUES.X..j. 2|
00001340: 31 30 33 30 3A 8F 20 43 4F 4C 4F 55 52 20 53 55 |1030:. COLOUR SU|
00001350: 42 52 4F 55 54 49 4E 45 00 6F 1B 90 6A 99 22 13 |BROUTINE.o..j.".|
00001360: 11 11 43 48 41 4E 4E 45 4C 1D 3A 22 3B 4F 53 00 |..CHANNEL.:";OS.|
00001370: 88 1B 95 6A 8B 20 50 47 AC 36 34 B1 4E 28 4F 53 |...j. PG.64.N(OS|
00001380: 29 20 A7 20 50 47 B2 30 00 A8 1B 96 6A 8B 20 50 |) . PG.0....j. P|
00001390: 47 B3 30 20 A7 20 50 47 B2 B5 28 28 4E 28 4F 53 |G.0 . PG..((N(OS|
000013A0: 29 AB 31 29 AD 36 34 29 00 CA 1B 9A 6A 99 22 4E |).1).64)....j."N|
000013B0: 4F 54 45 53 1D 1D 1D 3A 1D 1D 1D 1D 1D 1D 1D 1D |OTES...:........|
000013C0: 1D 1D 50 41 47 45 1D 3A 91 22 00 F5 1B A4 6A 99 |..PAGE.:."....j.|
000013D0: 20 A3 39 29 3B 4E 28 4F 53 29 3B A3 32 34 29 3B | .9);N(OS);.24);|
000013E0: 50 47 AC 36 34 AA 31 3B 22 2D 22 3B 28 50 47 AA |PG.64.1;"-";(PG.|
000013F0: 31 29 AC 36 34 00 16 1C A6 6A 8F 20 49 4E 49 54 |1).64....j. INIT|
00001400: 49 41 4C 49 53 45 20 43 55 52 53 4F 52 20 43 4F |IALISE CURSOR CO|
00001410: 4E 54 52 4F 4C 53 00 29 1C A8 6A 53 58 B2 30 3A |NTROLS.)..jSX.0:|
00001420: 53 59 B2 30 3A 46 47 B2 30 00 3F 1C AE 6A 8F 20 |SY.0:FG.0.?..j. |
00001430: 50 52 49 4E 54 20 4E 4F 54 45 20 44 41 54 41 00 |PRINT NOTE DATA.|
00001440: 5F 1C B8 6A 49 B2 30 3A 4C 4C B2 30 3A 99 22 13 |_..jI.0:LL.0:.".|
00001450: 11 11 11 11 11 11 11 11 1D 1D 1D 1D 1D 22 3B 00 |.............";.|
00001460: 7F 1C C2 6A 56 4C B2 C2 28 43 48 AA 28 4F 53 AB |...jVL..(CH.(OS.|
00001470: 31 29 AC 32 35 36 AA 50 47 AC 36 34 AA 49 29 00 |1).256.PG.64.I).|
00001480: A7 1C CC 6A 8B 20 56 4C B2 31 32 38 20 A7 20 4E |...j. VL.128 . N|
00001490: 4C 24 B2 22 52 20 20 22 3A 89 20 32 37 33 38 35 |L$."R ":. 27385|
000014A0: 3A 8F 20 52 45 53 54 00 D6 1C D6 6A 8B 20 56 4C |:. REST....j. VL|
000014B0: B2 32 35 35 20 A7 20 4E 4C 24 B2 22 3A 20 20 22 |.255 . NL$.": "|
000014C0: 3A 89 20 32 37 33 38 35 3A 8F 20 45 4E 44 20 4F |:. 27385:. END O|
000014D0: 46 20 44 41 54 41 00 F7 1C E0 6A 8D 20 32 37 35 |F DATA....j. 275|
000014E0: 31 30 3A 8F 20 4E 4F 54 45 2F 4F 43 54 41 56 45 |10:. NOTE/OCTAVE|
000014F0: 20 53 54 52 49 4E 47 00 06 1D F9 6A 99 20 4E 4C | STRING....j. NL|
00001500: 24 3B 22 1D 22 3B 00 2C 1D FE 6A 49 B2 49 AA 31 |$;".";.,..jI.I.1|
00001510: 3A 8B 20 49 B2 36 34 20 B0 20 56 4C B2 32 35 35 |:. I.64 . VL.255|
00001520: 20 A7 20 8D 20 31 36 30 33 30 3A 8E 00 53 1D 03 | . . 16030:..S..|
00001530: 6B 4C 4C B2 4C 4C AA 31 3A 8B 20 4C 4C B2 38 20 |kLL.LL.1:. LL.8 |
00001540: A7 20 4C 4C B2 30 3A 99 3A 99 22 11 1D 1D 1D 1D |. LL.0:.:.".....|
00001550: 1D 22 3B 00 5F 1D 08 6B 89 20 32 37 33 33 30 00 |.";._..k. 27330.|
00001560: 7F 1D 6C 6B 8F 20 4E 4F 54 45 20 4C 45 54 54 45 |..lk. NOTE LETTE|
00001570: 52 2F 4F 43 54 41 56 45 20 53 54 52 49 4E 47 00 |R/OCTAVE STRING.|
00001580: 98 1D 76 6B 4F 56 B2 B5 28 56 4C AD 31 36 29 3A |..vkOV..(VL.16):|
00001590: 8F 20 4F 43 54 41 56 45 00 B0 1D 80 6B 4F 24 B2 |. OCTAVE....kO$.|
000015A0: C4 28 4F 56 29 3A 4F 24 B2 C9 28 4F 24 2C 31 29 |.(OV):O$..(O$,1)|
000015B0: 00 D8 1D 8A 6B 4E 4C 24 B2 4C 24 28 56 4C AB 4F |....kNL$.L$(VL.O|
000015C0: 56 AC 31 36 29 3A 8F 20 4E 4F 54 45 20 4C 45 54 |V.16):. NOTE LET|
000015D0: 54 45 52 20 4E 41 4D 45 00 00 1E 94 6B 4E 4C 24 |TER NAME....kNL$|
000015E0: B2 4E 4C 24 AA 4F 24 3A 8B 20 C3 28 4E 4C 24 29 |.NL$.O$:. .(NL$)|
000015F0: B2 32 20 A7 20 4E 4C 24 B2 4E 4C 24 AA 22 20 22 |.2 . NL$.NL$." "|
00001600: 00 06 1E 9E 6B 8E 00 18 1E 60 6D 8F 20 48 45 4C |....k....`m. HEL|
00001610: 50 20 53 43 52 45 45 4E 00 36 1E 6A 6D 97 20 35 |P SCREEN.6.jm. 5|
00001620: 33 32 38 30 2C 35 3A 97 20 35 33 32 38 31 2C 35 |3280,5:. 53281,5|
00001630: 3A 99 22 93 22 3B 00 87 1E 6B 6D 99 22 12 05 20 |:.".";...km.".. |
00001640: 50 52 45 53 53 20 5B 46 37 5D 20 54 4F 20 45 58 |PRESS [F7] TO EX|
00001650: 49 54 20 3A 20 20 20 20 20 20 20 20 20 20 20 20 |IT : |
00001660: 20 20 20 20 20 20 20 B0 60 60 60 60 60 60 60 60 | .````````|
00001670: 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 |````````````````|
00001680: 60 60 60 60 60 22 3B 00 B0 1E 6C 6D 99 22 C0 C0 |`````";...lm."..|
00001690: C0 C0 C0 C0 C0 C0 C0 AE DD 1D 5B 46 5D 1D 1D 1D |..........[F]...|
000016A0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 92 90 43 48 41 22 3B |...........CHA";|
000016B0: 00 01 1F 6D 6D 99 22 4E 47 45 1D 46 49 4C 45 4E |...mm."NGE.FILEN|
000016C0: 41 4D 45 1D 1D 1D 1D 1D 1D 1D 12 05 7D 7D 1D 1D |AME.........}}..|
000016D0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000016E0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000016F0: 1D 1D 1D 1D 7D 7D 1D 5B 50 5D 1D 1D 1D 1D 1D 22 |....}}.[P]....."|
00001700: 3B 00 52 1F 6E 6D 99 22 1D 1D 1D 1D 1D 1D 1D 92 |;.R.nm."........|
00001710: 90 4E 45 58 54 1D 50 41 47 45 1D 1D 1D 1D 1D 1D |.NEXT.PAGE......|
00001720: 1D 1D 1D 1D 1D 1D 1D 12 05 7D 7D 1D 5B 53 48 49 |.........}}.[SHI|
00001730: 46 54 5D 20 26 20 5B 50 5D 1D 1D 92 90 50 52 45 |FT] & [P]....PRE|
00001740: 56 49 4F 55 53 1D 50 41 47 45 1D 1D 1D 1D 1D 1D |VIOUS.PAGE......|
00001750: 22 3B 00 A3 1F 6F 6D 99 22 1D 1D 1D 12 05 7D 7D |";...om.".....}}|
00001760: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001770: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001780: 1D 1D 1D 1D 1D 1D 7D 7D 1D 5B 2B 5D 1D 1D 1D 1D |......}}.[+]....|
00001790: 1D 1D 1D 1D 1D 1D 1D 1D 92 90 49 4E 43 52 45 41 |..........INCREA|
000017A0: 53 22 3B 00 F4 1F 70 6D 99 22 45 1D 54 45 4D 50 |S";...pm."E.TEMP|
000017B0: 4F 1D 1D 1D 1D 1D 1D 1D 1D 12 05 7D 7D 1D 5B 2D |O..........}}.[-|
000017C0: 5D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 92 90 44 |]..............D|
000017D0: 45 43 52 45 41 53 45 1D 54 45 4D 50 4F 1D 1D 1D |ECREASE.TEMPO...|
000017E0: 1D 1D 1D 1D 1D 12 05 7D 7D 1D 1D 1D 1D 1D 1D 1D |.......}}.......|
000017F0: 1D 1D 22 3B 00 45 20 71 6D 99 22 1D 1D 1D 1D 1D |..";.E qm.".....|
00001800: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001810: 1D 1D 1D 1D 1D 1D 1D 1D 7D 7D 1D 5B 48 4F 4D 45 |........}}.[HOME|
00001820: 5D 1D 1D 1D 1D 1D 1D 1D 1D 1D 92 90 52 45 53 45 |]...........RESE|
00001830: 54 1D 4E 4F 54 45 1D 43 4F 55 4E 54 45 52 53 1D |T.NOTE.COUNTERS.|
00001840: 1D 1D 12 22 3B 00 96 20 72 6D 99 22 05 7D 7D 1D |...";.. rm.".}}.|
00001850: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001860: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001870: 1D 1D 1D 1D 1D 7D 7D 1D 92 90 45 44 49 54 1D 43 |.....}}...EDIT.C|
00001880: 4F 4E 54 52 4F 4C 53 1D 3A 1D 12 05 5B 43 52 53 |ONTROLS.:...[CRS|
00001890: 52 5D 1D 92 22 3B 00 E7 20 73 6D 99 22 90 4D 4F |R]..";.. sm.".MO|
000018A0: 56 45 1D 43 55 52 53 4F 52 1D 1D 1D 12 05 7D 7D |VE.CURSOR.....}}|
000018B0: 1D 92 90 60 60 60 60 60 60 60 60 60 60 60 60 60 |...`````````````|
000018C0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000018D0: 1D 1D 1D 1D 1D 1D 1D 1D 12 05 7D 7D 1D 5B 43 54 |..........}}.[CT|
000018E0: 52 4C 5D 20 26 22 3B 00 38 21 74 6D 99 22 20 5B |RL] &";.8!tm." [|
000018F0: 42 5D 1D 1D 1D 1D 92 90 27 42 45 47 49 4E 27 1D |B]......'BEGIN'.|
00001900: 42 4C 4F 43 4B 1D 4D 41 52 4B 1D 1D 1D 12 05 7D |BLOCK.MARK.....}|
00001910: 7D 1D 5B 43 54 52 4C 5D 20 26 20 5B 45 5D 1D 1D |}.[CTRL] & [E]..|
00001920: 1D 1D 92 90 27 45 4E 44 27 1D 42 4C 4F 43 4B 1D |....'END'.BLOCK.|
00001930: 4D 41 52 4B 1D 1D 22 3B 00 89 21 75 6D 99 22 1D |MARK..";..!um.".|
00001940: 1D 1D 12 05 7D 7D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |....}}..........|
00001950: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001960: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 7D 7D 1D 5B |............}}.[|
00001970: 43 54 52 4C 5D 20 26 20 5B 44 5D 1D 1D 1D 1D 92 |CTRL] & [D].....|
00001980: 90 44 45 4C 45 54 45 22 3B 00 DA 21 76 6D 99 22 |.DELETE";..!vm."|
00001990: 1D 42 4C 4F 43 4B 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 |.BLOCK..........|
000019A0: 05 7D 7D 1D 5B 43 54 52 4C 5D 20 26 20 5B 57 5D |.}}.[CTRL] & [W]|
000019B0: 1D 1D 1D 1D 92 90 57 52 49 54 45 1D 42 4C 4F 43 |......WRITE.BLOC|
000019C0: 4B 1D 41 54 1D 43 52 53 52 1D 1D 12 05 7D 7D 1D |K.AT.CRSR....}}.|
000019D0: 5B 43 54 52 4C 5D 20 26 22 3B 00 2B 22 77 6D 99 |[CTRL] &";.+"wm.|
000019E0: 22 20 5B 49 5D 1D 1D 1D 1D 92 90 49 4E 53 45 52 |" [I]......INSER|
000019F0: 54 1D 42 4C 4F 43 4B 1D 41 54 1D 43 52 53 52 1D |T.BLOCK.AT.CRSR.|
00001A00: 12 05 7D 7D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..}}............|
00001A10: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001A20: 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 3B 00 62 22 78 6D |.........";.b"xm|
00001A30: 99 22 1D DD DD 1D 5B 53 48 49 46 54 5D 20 26 20 |."....[SHIFT] & |
00001A40: 5B 43 4C 52 5D 1D 92 90 43 4C 45 41 52 1D 43 48 |[CLR]...CLEAR.CH|
00001A50: 41 4E 4E 45 4C 1D 1D 1D 1D 1D 1D 1D 1D 12 05 DD |ANNEL...........|
00001A60: 22 3B 00 89 22 79 6D 99 22 AD C0 C0 C0 C0 C0 C0 |";.."ym.".......|
00001A70: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00001A80: C0 C0 C0 C0 C0 C0 C0 22 3B 00 9C 22 7A 6D 99 22 |.......";.."zm."|
00001A90: C0 C0 C0 C0 C0 C0 C0 C0 C0 BD 13 22 00 B5 22 00 |..........."..".|
00001AA0: 6E A1 20 4B 24 3A 8B 20 4B 24 B2 22 22 20 A7 20 |n. K$:. K$."" . |
00001AB0: 32 38 31 36 30 00 CE 22 0A 6E 8B 20 4B 24 B3 B1 |28160..".n. K$..|
00001AC0: C7 28 31 33 36 29 20 A7 20 32 38 31 36 30 00 D8 |.(136) . 28160..|
00001AD0: 22 14 6E 4B 24 B2 22 22 00 F0 22 1E 6E 97 20 35 |".nK$.""..".n. 5|
00001AE0: 33 32 38 30 2C 30 3A 97 20 35 33 32 38 31 2C 30 |3280,0:. 53281,0|
00001AF0: 00 0F 23 28 6E 8D 20 32 37 30 31 30 3A 8F 20 4E |..#(n. 27010:. N|
00001B00: 4F 54 45 20 45 44 49 54 20 45 43 52 45 45 4E 00 |OTE EDIT ECREEN.|
00001B10: 15 23 32 6E 8E 00 2E 23 30 75 8F 20 49 4E 50 55 |.#2n...#0u. INPU|
00001B20: 54 20 4E 45 57 20 46 49 4C 45 4E 41 4D 45 00 46 |T NEW FILENAME.F|
00001B30: 23 3A 75 97 20 35 33 32 38 30 2C 35 3A 97 20 35 |#:u. 53280,5:. 5|
00001B40: 33 32 38 31 2C 35 00 79 23 44 75 99 22 93 05 12 |3281,5.y#Du."...|
00001B50: 20 45 4E 54 45 52 20 4E 45 57 20 46 49 4C 45 4E | ENTER NEW FILEN|
00001B60: 41 4D 45 20 3A 20 50 52 45 53 53 20 5B 52 45 54 |AME : PRESS [RET|
00001B70: 55 52 4E 5D 20 20 92 22 3B 00 7F 23 4E 75 99 00 |URN] .";..#Nu..|
00001B80: 98 23 58 75 99 22 11 11 1D 1D 1D 1D 1D 46 49 4C |.#Xu.".......FIL|
00001B90: 45 20 3A 20 22 3B 4E 24 00 A2 23 62 75 99 22 11 |E : ";N$..#bu.".|
00001BA0: 11 22 00 D0 23 6C 75 4C B2 31 34 3A 54 42 B2 35 |."..#luL.14:TB.5|
00001BB0: 3A 52 53 B2 31 3A 8D 20 33 32 30 34 30 3A 8F 20 |:RS.1:. 32040:. |
00001BC0: 49 4E 50 55 54 20 53 55 42 52 4F 55 54 49 4E 45 |INPUT SUBROUTINE|
00001BD0: 00 E2 23 76 75 8B 20 41 B1 30 20 A7 20 4E 24 B2 |..#vu. A.0 . N$.|
00001BE0: 59 24 00 FA 23 80 75 97 20 35 33 32 38 30 2C 30 |Y$..#.u. 53280,0|
00001BF0: 3A 97 20 35 33 32 38 31 2C 30 00 00 24 8A 75 8E |:. 53281,0..$.u.|
00001C00: 00 23 24 00 7D 8F 20 49 4E 50 55 54 20 52 45 53 |.#$.}. INPUT RES|
00001C10: 54 52 49 43 54 49 4F 4E 20 53 55 42 52 4F 55 54 |TRICTION SUBROUT|
00001C20: 49 4E 45 00 3B 24 0A 7D 8F 20 4C 3D 4C 45 4E 47 |INE.;$.}. L=LENG|
00001C30: 54 48 20 4F 46 20 49 4E 50 55 54 00 5A 24 14 7D |TH OF INPUT.Z$.}|
00001C40: 8F 20 54 42 3D 54 41 42 55 4C 41 54 49 4F 4E 20 |. TB=TABULATION |
00001C50: 4F 46 20 52 4F 55 54 49 4E 45 00 7A 24 1E 7D 8F |OF ROUTINE.z$.}.|
00001C60: 20 52 53 3D 43 48 41 52 41 43 54 45 52 20 52 45 | RS=CHARACTER RE|
00001C70: 53 54 52 49 43 54 49 4F 4E 53 00 8D 24 28 7D 41 |STRICTIONS..$(}A|
00001C80: B2 30 3A 59 24 B2 22 22 3A 53 50 B2 31 00 CD 24 |.0:Y$."":SP.1..$|
00001C90: 32 7D 99 20 A3 54 42 AA 4C AA 31 29 3A 99 22 91 |2}. .TB.L.1):.".|
00001CA0: AE 9D 11 11 BD 91 22 3B 3A 81 20 58 B2 30 20 A4 |......";:. X.0 .|
00001CB0: 20 4C AA 31 3A 99 22 9D 9D 20 22 3B 3A 82 3A 99 | L.1:.".. ";:.:.|
00001CC0: 22 91 B0 9D 11 11 AD 91 90 A4 9D 22 3B 00 E6 24 |"..........";..$|
00001CD0: 3C 7D A1 20 58 24 3A 8B 20 58 24 B2 22 22 20 A7 |<}. X$:. X$."" .|
00001CE0: 20 33 32 30 36 30 00 1D 25 46 7D 8B 20 58 24 B2 | 32060..%F}. X$.|
00001CF0: C7 28 31 36 30 29 20 B0 20 58 24 B2 22 20 22 20 |.(160) . X$." " |
00001D00: B0 20 58 24 B2 C7 28 32 30 29 20 B0 20 58 24 B2 |. X$..(20) . X$.|
00001D10: C7 28 31 33 29 20 A7 20 33 32 31 33 30 00 46 25 |.(13) . 32130.F%|
00001D20: 50 7D 8B 20 52 53 B2 30 20 A7 20 8B 20 58 24 B2 |P}. RS.0 . . X$.|
00001D30: B1 22 30 22 20 AF 20 58 24 B2 B3 22 39 22 20 A7 |."0" . X$.."9" .|
00001D40: 20 33 32 31 33 30 00 71 25 5A 7D 8B 20 52 53 B2 | 32130.q%Z}. RS.|
00001D50: 31 20 AF 20 58 24 B2 B1 C7 28 33 35 29 20 AF 20 |1 . X$...(35) . |
00001D60: 58 24 B2 B3 C7 28 39 33 29 20 A7 20 33 32 31 33 |X$...(93) . 3213|
00001D70: 30 00 7D 25 64 7D 89 20 33 32 30 36 30 00 93 25 |0.}%d}. 32060..%|
00001D80: 6E 7D 8B 20 41 B2 4C AB 31 20 A7 20 99 22 1D 9D |n}. A.L.1 . ."..|
00001D90: 9D 22 3B 00 9F 25 78 7D 89 20 33 32 30 36 30 00 |.";..%x}. 32060.|
00001DA0: BC 25 82 7D 8B 20 58 24 B2 C7 28 32 30 29 20 AF |.%.}. X$..(20) .|
00001DB0: 20 41 B2 30 20 A7 20 33 32 30 36 30 00 F2 25 8C | A.0 . 32060..%.|
00001DC0: 7D 8B 20 58 24 B2 C7 28 31 33 29 20 AF 20 C9 28 |}. X$..(13) . .(|
00001DD0: 59 24 2C 31 29 B2 22 20 22 20 A7 20 59 24 B2 C8 |Y$,1)." " . Y$..|
00001DE0: 28 59 24 2C C3 28 59 24 29 AB 31 29 3A 41 B2 41 |(Y$,.(Y$).1):A.A|
00001DF0: AB 31 00 07 26 96 7D 8B 20 58 24 B2 C7 28 31 33 |.1..&.}. X$..(13|
00001E00: 29 20 A7 20 99 3A 8E 00 24 26 A0 7D 41 B2 41 AA |) . .:..$&.}A.A.|
00001E10: 31 3A 8B 20 58 24 B3 B1 C7 28 33 32 29 20 A7 20 |1:. X$...(32) . |
00001E20: 53 50 B2 30 00 48 26 AA 7D 8B 20 41 B1 4C 20 AF |SP.0.H&.}. A.L .|
00001E30: 20 58 24 B3 B1 C7 28 32 30 29 20 A7 20 58 24 B2 | X$...(20) . X$.|
00001E40: 22 22 3A 41 B2 41 AB 31 00 5E 26 B4 7D 8B 20 41 |"":A.A.1.^&.}. A|
00001E50: B3 31 20 A7 20 58 24 B2 22 22 3A 41 B2 30 00 9C |.1 . X$."":A.0..|
00001E60: 26 BE 7D 8B 20 58 24 B2 C7 28 32 30 29 20 A7 20 |&.}. X$..(20) . |
00001E70: 99 20 A3 41 29 22 9D A4 20 9D 9D 22 3B 3A 41 B2 |. .A)".. ..";:A.|
00001E80: 41 AB 32 3A 59 24 B2 C8 28 59 24 2C C3 28 59 24 |A.2:Y$..(Y$,.(Y$|
00001E90: 29 AB 31 29 3A 89 20 33 32 31 31 30 00 C0 26 C8 |).1):. 32110..&.|
00001EA0: 7D 8B 20 58 24 B2 C7 28 33 32 29 20 AF 20 53 50 |}. X$..(32) . SP|
00001EB0: B2 31 20 A7 20 58 24 B2 22 22 3A 41 B2 41 AB 31 |.1 . X$."":A.A.1|
00001EC0: 00 D9 26 D2 7D 8B 20 58 24 B2 C7 28 33 32 29 20 |..&.}. X$..(32) |
00001ED0: A7 20 53 50 B2 53 50 AA 31 00 FB 26 DC 7D 59 24 |. SP.SP.1..&.}Y$|
00001EE0: B2 59 24 AA 58 24 3A 99 20 58 24 3B 3A 8B 20 41 |.Y$.X$:. X$;:. A|
00001EF0: B3 4C 20 A7 20 99 22 A4 9D 22 3B 00 07 27 E6 7D |.L . ."..";..'.}|
00001F00: 89 20 33 32 30 36 30 00 17 27 B8 88 8F 20 4D 41 |. 32060..'... MA|
00001F10: 49 4E 20 4D 45 4E 55 00 4B 27 C2 88 99 22 93 1E |IN MENU.K'..."..|
00001F20: 12 20 4D 4F 56 45 20 43 55 52 53 4F 52 20 55 50 |. MOVE CURSOR UP|
00001F30: 20 26 20 44 4F 57 4E 3A 50 52 45 53 53 20 5B 52 | & DOWN:PRESS [R|
00001F40: 45 54 55 52 4E 5D 20 20 20 92 22 00 72 27 CC 88 |ETURN] .".r'..|
00001F50: 99 22 11 1D 1D 1D 1D 1D 1D 1D 2A 2A 2A 1D 1D 1D |."........***...|
00001F60: 4D 41 43 52 4F 20 45 44 49 54 4F 52 1D 1D 2A 2A |MACRO EDITOR..**|
00001F70: 2A 22 00 95 27 D6 88 99 22 1D 1D 1D 1D 1D 1D 1D |*"..'...".......|
00001F80: 1D 1D 1D 1D 56 2E 48 2E 42 45 52 52 59 20 43 2E |....V.H.BERRY C.|
00001F90: 31 39 38 39 22 00 BA 27 E0 88 99 22 20 20 20 20 |1989"..'..." |
00001FA0: 20 20 20 20 B0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 | ............|
00001FB0: C0 C0 C0 C0 C0 C0 C0 C0 AE 22 00 DE 27 F4 88 99 |........."..'...|
00001FC0: 22 20 20 20 20 20 20 20 20 20 20 20 20 4D 41 43 |" MAC|
00001FD0: 52 4F 20 45 44 49 54 4F 52 20 20 20 20 22 00 02 |RO EDITOR "..|
00001FE0: 28 FE 88 99 22 20 20 20 20 20 20 20 20 20 20 20 |(..." |
00001FF0: 20 48 41 52 44 43 4F 50 59 20 20 20 20 20 20 20 | HARDCOPY |
00002000: 20 22 00 26 28 08 89 99 22 20 20 20 20 20 20 20 | ".&(..." |
00002010: 20 20 20 20 20 44 49 53 4B 20 4D 45 4E 55 20 20 | DISK MENU |
00002020: 20 20 20 20 20 22 00 4A 28 12 89 99 22 20 20 20 | ".J(..." |
00002030: 20 20 20 20 20 20 20 20 20 45 58 49 54 20 50 52 | EXIT PR|
00002040: 4F 47 52 41 4D 20 20 20 20 22 00 50 28 1C 89 99 |OGRAM ".P(...|
00002050: 00 75 28 26 89 99 22 20 20 20 20 20 20 20 20 AD |.u(&.." .|
00002060: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00002070: C0 C0 C0 BD 22 00 AC 28 30 89 99 22 13 11 11 11 |...."..(0.."....|
00002080: 11 11 22 3A 54 31 B2 31 30 3A 4C 4C B2 33 3A 8D |..":T1.10:LL.3:.|
00002090: 20 33 39 30 31 30 3A 8F 20 4D 45 4E 55 20 53 59 | 39010:. MENU SY|
000020A0: 53 54 45 4D 20 52 4F 55 54 49 4E 45 00 BA 28 3A |STEM ROUTINE..(:|
000020B0: 89 8B 20 41 B2 33 20 A7 20 8E 00 D8 28 44 89 91 |.. A.3 . ...(D..|
000020C0: 20 41 AA 31 20 8D 20 31 35 30 31 30 2C 33 36 30 | A.1 . 15010,360|
000020D0: 31 30 2C 33 37 30 32 30 00 E4 28 4E 89 89 20 33 |10,37020..(N.. 3|
000020E0: 35 30 31 30 00 F8 28 A0 8C 8F 20 48 41 52 44 43 |5010..(... HARDC|
000020F0: 4F 50 59 20 4D 45 4E 55 00 2C 29 AA 8C 99 22 93 |OPY MENU.,)...".|
00002100: 1E 12 20 4D 4F 56 45 20 43 55 52 53 4F 52 20 55 |.. MOVE CURSOR U|
00002110: 50 20 26 20 44 4F 57 4E 3A 50 52 45 53 53 20 5B |P & DOWN:PRESS [|
00002120: 52 45 54 55 52 4E 5D 20 20 20 92 22 00 51 29 B4 |RETURN] .".Q).|
00002130: 8C 99 22 1D 1D 1D 1D 1D 1D 1D 1D 2A 2A 2A 20 20 |.."........*** |
00002140: 20 48 41 52 44 43 4F 50 59 20 20 20 20 2A 2A 2A | HARDCOPY ***|
00002150: 22 00 6F 29 BE 8C 99 22 11 1D 1D 1D 1D 1D 1D 1D |".o)..."........|
00002160: 1D 1D 1D 05 46 49 4C 45 20 3A 20 22 3B 4E 24 00 |....FILE : ";N$.|
00002170: 95 29 C8 8C 99 22 1E 20 20 20 20 20 20 20 20 B0 |.)...". .|
00002180: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00002190: C0 C0 C0 AE 22 00 B9 29 D2 8C 99 22 20 20 20 20 |...."..)..." |
000021A0: 20 20 20 20 20 20 20 20 4E 45 57 20 46 49 4C 45 | NEW FILE|
000021B0: 4E 41 4D 45 20 20 20 20 22 00 DD 29 DC 8C 99 22 |NAME "..)..."|
000021C0: 20 20 20 20 20 20 20 20 20 20 20 20 48 4F 52 49 | HORI|
000021D0: 5A 4F 4E 54 41 4C 20 50 52 49 4E 54 22 00 01 2A |ZONTAL PRINT"..*|
000021E0: E6 8C 99 22 20 20 20 20 20 20 20 20 20 20 20 20 |..." |
000021F0: 56 45 52 54 49 43 41 4C 20 50 52 49 4E 54 20 20 |VERTICAL PRINT |
00002200: 22 00 25 2A F0 8C 99 22 20 20 20 20 20 20 20 20 |".%*..." |
00002210: 20 20 20 20 45 58 49 54 20 4D 45 4E 55 20 20 20 | EXIT MENU |
00002220: 20 20 20 20 22 00 4A 2A FA 8C 99 22 20 20 20 20 | ".J*..." |
00002230: 20 20 20 20 AD C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 | ............|
00002240: C0 C0 C0 C0 C0 C0 C0 C0 BD 22 00 81 2A 04 8D 99 |........."..*...|
00002250: 22 13 11 11 11 11 11 22 3A 54 31 B2 31 30 3A 4C |"......":T1.10:L|
00002260: 4C B2 33 3A 8D 20 33 39 30 31 30 3A 8F 20 4D 45 |L.3:. 39010:. ME|
00002270: 4E 55 20 53 59 53 54 45 4D 20 52 4F 55 54 49 4E |NU SYSTEM ROUTIN|
00002280: 45 00 8F 2A 0E 8D 8B 20 41 B2 33 20 A7 20 8E 00 |E..*... A.3 . ..|
00002290: AD 2A 18 8D 91 20 41 AA 31 20 8D 20 33 30 30 31 |.*... A.1 . 3001|
000022A0: 30 2C 34 36 30 31 30 2C 34 37 30 31 30 00 B9 2A |0,46010,47010..*|
000022B0: 22 8D 89 20 33 36 30 31 30 00 C9 2A 88 90 8F 20 |".. 36010..*... |
000022C0: 44 49 53 4B 20 4D 45 4E 55 00 FD 2A 9C 90 99 22 |DISK MENU..*..."|
000022D0: 93 1E 12 20 4D 4F 56 45 20 43 55 52 53 4F 52 20 |... MOVE CURSOR |
000022E0: 55 50 20 26 20 44 4F 57 4E 3A 50 52 45 53 53 20 |UP & DOWN:PRESS |
000022F0: 5B 52 45 54 55 52 4E 5D 20 20 20 92 22 00 22 2B |[RETURN] ."."+|
00002300: A6 90 99 22 1D 1D 1D 1D 1D 1D 1D 1D 2A 2A 2A 20 |..."........*** |
00002310: 20 20 44 49 53 4B 20 4D 45 4E 55 20 20 20 2A 2A | DISK MENU **|
00002320: 2A 22 00 40 2B B0 90 99 22 11 1D 1D 1D 1D 1D 1D |*".@+...".......|
00002330: 1D 1D 1D 1D 05 46 49 4C 45 20 3A 20 22 3B 4E 24 |.....FILE : ";N$|
00002340: 00 66 2B BA 90 99 22 1E 20 20 20 20 20 20 20 20 |.f+...". |
00002350: B0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00002360: C0 C0 C0 C0 AE 22 00 8A 2B C4 90 99 22 20 20 20 |....."..+..." |
00002370: 20 20 20 20 20 20 20 20 20 4E 45 57 20 46 49 4C | NEW FIL|
00002380: 45 4E 41 4D 45 20 20 20 20 22 00 AE 2B CE 90 99 |ENAME "..+...|
00002390: 22 20 20 20 20 20 20 20 20 20 20 20 20 4C 4F 41 |" LOA|
000023A0: 44 20 53 49 44 20 20 20 20 20 20 20 20 22 00 D2 |D SID "..|
000023B0: 2B E2 90 99 22 20 20 20 20 20 20 20 20 20 20 20 |+..." |
000023C0: 20 4C 4F 41 44 20 4D 55 53 49 43 20 20 20 20 20 | LOAD MUSIC |
000023D0: 20 22 00 F6 2B E7 90 99 22 20 20 20 20 20 20 20 | "..+..." |
000023E0: 20 20 20 20 20 41 50 50 45 4E 44 20 4D 55 53 49 | APPEND MUSI|
000023F0: 43 20 20 20 20 22 00 1A 2C EC 90 99 22 20 20 20 |C "..,..." |
00002400: 20 20 20 20 20 20 20 20 20 53 41 56 45 20 4D 55 | SAVE MU|
00002410: 53 49 43 20 20 20 20 20 20 22 00 3E 2C F6 90 99 |SIC ".>,...|
00002420: 22 20 20 20 20 20 20 20 20 20 20 20 20 44 49 53 |" DIS|
00002430: 4B 20 43 4F 4D 4D 41 4E 44 53 20 20 20 22 00 62 |K COMMANDS ".b|
00002440: 2C 00 91 99 22 20 20 20 20 20 20 20 20 20 20 20 |,..." |
00002450: 20 45 58 49 54 20 4D 45 4E 55 20 20 20 20 20 20 | EXIT MENU |
00002460: 20 22 00 68 2C 0A 91 99 00 8D 2C 14 91 99 22 20 | ".h,.....,..." |
00002470: 20 20 20 20 20 20 20 AD C0 C0 C0 C0 C0 C0 C0 C0 | .........|
00002480: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 BD 22 00 C4 2C |............"..,|
00002490: 1E 91 99 22 13 11 11 11 11 11 22 3A 54 31 B2 31 |..."......":T1.1|
000024A0: 30 3A 4C 4C B2 36 3A 8D 20 33 39 30 31 30 3A 8F |0:LL.6:. 39010:.|
000024B0: 20 4D 45 4E 55 20 53 59 53 54 45 4D 20 52 4F 55 | MENU SYSTEM ROU|
000024C0: 54 49 4E 45 00 D2 2C 28 91 8B 20 41 B2 36 20 A7 |TINE..,(.. A.6 .|
000024D0: 20 8E 00 07 2D 2D 91 8B 20 41 B1 30 20 AF 20 41 | ...--.. A.0 . A|
000024E0: B3 36 20 AF 20 4D 46 B2 31 20 A7 20 8D 20 36 30 |.6 . MF.1 . . 60|
000024F0: 31 30 3A 8F 20 54 55 52 4E 20 4F 46 46 20 53 45 |10:. TURN OFF SE|
00002500: 51 55 45 4E 43 45 52 00 37 2D 32 91 91 20 41 AA |QUENCER.7-2.. A.|
00002510: 31 20 8D 20 33 30 30 31 30 2C 34 32 30 31 30 2C |1 . 30010,42010,|
00002520: 34 30 30 31 30 2C 34 30 30 31 30 2C 34 31 30 31 |40010,40010,4101|
00002530: 30 2C 34 35 30 31 30 00 43 2D 3C 91 89 20 33 37 |0,45010.C-<.. 37|
00002540: 30 32 30 00 5B 2D 70 94 8F 20 44 49 53 4B 20 43 |020.[-p.. DISK C|
00002550: 4F 4D 4D 41 4E 44 20 4D 45 4E 55 00 8F 2D 7A 94 |OMMAND MENU..-z.|
00002560: 99 22 93 1E 12 20 4D 4F 56 45 20 43 55 52 53 4F |."... MOVE CURSO|
00002570: 52 20 55 50 20 26 20 44 4F 57 4E 3A 50 52 45 53 |R UP & DOWN:PRES|
00002580: 53 20 5B 52 45 54 55 52 4E 5D 20 20 20 92 22 00 |S [RETURN] .".|
00002590: B5 2D 84 94 99 22 1D 1D 1D 1D 1D 1D 1D 2A 2A 2A |.-...".......***|
000025A0: 1D 1D 44 49 53 4B 20 43 4F 4D 4D 41 4E 44 53 1D |..DISK COMMANDS.|
000025B0: 1D 2A 2A 2A 22 00 D3 2D 8E 94 99 22 11 1D 1D 1D |.***"..-..."....|
000025C0: 1D 1D 1D 1D 1D 1D 1D 05 46 49 4C 45 20 3A 20 22 |........FILE : "|
000025D0: 3B 4E 24 00 F9 2D 98 94 99 22 1E 20 20 20 20 20 |;N$..-...". |
000025E0: 20 20 20 B0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 | .............|
000025F0: C0 C0 C0 C0 C0 C0 C0 AE 22 00 1D 2E 9D 94 99 22 |........"......"|
00002600: 20 20 20 20 20 20 20 20 20 20 20 20 44 49 53 4B | DISK|
00002610: 20 44 49 52 45 43 54 4F 52 59 20 20 22 00 41 2E | DIRECTORY ".A.|
00002620: A2 94 99 22 20 20 20 20 20 20 20 20 20 20 20 20 |..." |
00002630: 49 4E 54 49 41 4C 49 53 45 20 44 49 53 4B 20 20 |INTIALISE DISK |
00002640: 22 00 65 2E AC 94 99 22 20 20 20 20 20 20 20 20 |".e...." |
00002650: 20 20 20 20 53 43 52 41 54 43 48 20 53 49 44 20 | SCRATCH SID |
00002660: 20 20 20 20 22 00 89 2E B6 94 99 22 20 20 20 20 | "......" |
00002670: 20 20 20 20 20 20 20 20 53 43 52 41 54 43 48 20 | SCRATCH |
00002680: 4D 55 53 49 43 20 20 20 22 00 AD 2E C0 94 99 22 |MUSIC "......"|
00002690: 20 20 20 20 20 20 20 20 20 20 20 20 53 43 52 41 | SCRA|
000026A0: 54 43 48 20 42 4F 54 48 20 20 20 20 22 00 D1 2E |TCH BOTH "...|
000026B0: CA 94 99 22 20 20 20 20 20 20 20 20 20 20 20 20 |..." |
000026C0: 56 41 4C 49 44 41 54 45 20 44 49 53 4B 20 20 20 |VALIDATE DISK |
000026D0: 22 00 F5 2E D4 94 99 22 20 20 20 20 20 20 20 20 |"......" |
000026E0: 20 20 20 20 45 58 49 54 20 4D 45 4E 55 20 20 20 | EXIT MENU |
000026F0: 20 20 20 20 22 00 FB 2E DE 94 99 00 20 2F E8 94 | "....... /..|
00002700: 99 22 20 20 20 20 20 20 20 20 AD C0 C0 C0 C0 C0 |." ......|
00002710: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 BD 22 |..............."|
00002720: 00 57 2F F2 94 99 22 13 11 11 11 11 11 22 3A 54 |.W/..."......":T|
00002730: 31 B2 31 30 3A 4C 4C B2 36 3A 8D 20 33 39 30 31 |1.10:LL.6:. 3901|
00002740: 30 3A 8F 20 4D 45 4E 55 20 53 59 53 54 45 4D 20 |0:. MENU SYSTEM |
00002750: 52 4F 55 54 49 4E 45 00 5D 2F FC 94 8E 00 72 2F |ROUTINE.]/....r/|
00002760: 64 96 8F 20 44 49 52 45 43 54 4F 52 59 20 4D 45 |d.. DIRECTORY ME|
00002770: 4E 55 00 88 2F 69 96 8B 20 44 59 AC 31 32 B1 46 |NU../i.. DY.12.F|
00002780: 49 20 A7 20 44 59 B2 30 00 BC 2F 6E 96 99 22 93 |I . DY.0../n..".|
00002790: 1E 12 20 4D 4F 56 45 20 43 55 52 53 4F 52 20 55 |.. MOVE CURSOR U|
000027A0: 50 20 26 20 44 4F 57 4E 3A 50 52 45 53 53 20 5B |P & DOWN:PRESS [|
000027B0: 52 45 54 55 52 4E 5D 20 20 20 92 22 00 E2 2F 78 |RETURN] ."../x|
000027C0: 96 99 22 1D 1D 1D 1D 1D 1D 1D 2A 2A 2A 1D 44 49 |..".......***.DI|
000027D0: 53 4B 20 44 49 52 45 43 54 4F 52 59 1D 1D 2A 2A |SK DIRECTORY..**|
000027E0: 2A 22 00 07 30 7D 96 99 22 11 1D 1D 1D 1D 1D 1D |*"..0}..".......|
000027F0: 1D 1D 1D 1D 05 42 4C 4F 43 4B 53 20 46 52 45 45 |.....BLOCKS FREE|
00002800: 20 3A 20 22 3B 42 46 00 2E 30 82 96 99 22 1E 20 | : ";BF..0...". |
00002810: 20 20 20 20 20 20 20 B0 C0 C0 C0 C0 C0 C0 C0 C0 | .........|
00002820: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 AE 05 22 00 49 |.............".I|
00002830: 30 8C 96 99 22 20 20 20 20 20 20 20 20 20 20 20 |0..." |
00002840: 20 22 3B 4E 24 3B 22 1E 22 00 64 30 96 96 81 20 | ";N$;".".d0... |
00002850: 49 B2 31 32 AC 44 59 20 A4 20 31 31 AA 28 31 32 |I.12.DY . 11.(12|
00002860: AC 44 59 29 00 7B 30 9B 96 8B 20 49 B1 46 49 20 |.DY).{0... I.FI |
00002870: A7 20 99 3A 89 20 33 38 35 37 30 00 96 30 A0 96 |. .:. 38570..0..|
00002880: 99 22 20 20 20 20 20 20 20 20 20 20 20 20 22 3B |." ";|
00002890: 46 49 24 28 49 29 00 9E 30 AA 96 82 20 49 00 BD |FI$(I)..0... I..|
000028A0: 30 AF 96 99 22 20 20 20 20 20 20 20 20 20 20 20 |0..." |
000028B0: 20 05 4E 45 58 54 20 50 41 47 45 1E 22 00 E3 30 | .NEXT PAGE."..0|
000028C0: B4 96 99 22 11 20 20 20 20 20 20 20 20 AD C0 C0 |...". ...|
000028D0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000028E0: C0 BD 22 00 1B 31 BE 96 99 22 13 11 11 11 11 11 |.."..1..."......|
000028F0: 22 3A 54 31 B2 31 30 3A 4C 4C B2 31 33 3A 8D 20 |":T1.10:LL.13:. |
00002900: 33 39 30 31 30 3A 8F 20 4D 45 4E 55 20 53 59 53 |39010:. MENU SYS|
00002910: 54 45 4D 20 52 4F 55 54 49 4E 45 00 38 31 C0 96 |TEM ROUTINE.81..|
00002920: 8B 20 41 B2 31 33 20 A7 20 44 59 B2 44 59 AA 31 |. A.13 . DY.DY.1|
00002930: 3A 89 20 33 38 35 30 35 00 4A 31 C1 96 8B 20 41 |:. 38505.J1... A|
00002940: B2 30 20 A7 20 33 38 36 30 30 00 6E 31 C2 96 8B |.0 . 38600.n1...|
00002950: 20 C3 28 46 49 24 28 28 41 AB 31 29 AA 31 32 AC | .(FI$((A.1).12.|
00002960: 44 59 29 29 B3 33 20 A7 20 33 38 36 30 30 00 9F |DY)).3 . 38600..|
00002970: 31 C3 96 4E 24 B2 C8 28 46 49 24 28 28 41 AB 31 |1..N$..(FI$((A.1|
00002980: 29 AA 31 32 AC 44 59 29 2C C3 28 46 49 24 28 28 |).12.DY),.(FI$((|
00002990: 41 AB 31 29 AA 31 32 AC 44 59 29 29 AB 32 29 00 |A.1).12.DY)).2).|
000029A0: A5 31 C8 96 8E 00 BF 31 58 98 8F 20 4D 45 4E 55 |.1.....1X.. MENU|
000029B0: 20 53 59 53 54 45 4D 20 52 4F 55 54 49 4E 45 00 | SYSTEM ROUTINE.|
000029C0: D3 31 62 98 41 B2 30 3A 99 20 A3 54 31 29 3B 22 |.1b.A.0:. .T1);"|
000029D0: 05 3E 22 00 EC 31 6C 98 A1 20 58 24 3A 8B 20 58 |.>"..1l.. X$:. X|
000029E0: 24 B2 22 22 20 A7 20 33 39 30 32 30 00 10 32 76 |$."" . 39020..2v|
000029F0: 98 8B 20 41 B2 4C 4C 20 AF 20 58 24 B2 C7 28 31 |.. A.LL . X$..(1|
00002A00: 37 29 20 A7 20 41 B2 41 AB 31 3A 99 22 91 91 22 |7) . A.A.1:.".."|
00002A10: 00 30 32 80 98 8B 20 41 B2 30 20 AF 20 58 24 B2 |.02... A.0 . X$.|
00002A20: C7 28 31 34 35 29 20 A7 20 41 B2 41 AA 31 3A 99 |.(145) . A.A.1:.|
00002A30: 00 56 32 8A 98 8B 20 58 24 B2 C7 28 31 37 29 20 |.V2... X$..(17) |
00002A40: A7 20 41 B2 41 AA 31 3A 99 20 A3 54 31 29 3B 22 |. A.A.1:. .T1);"|
00002A50: 91 20 9D 11 3E 22 00 7D 32 94 98 8B 20 58 24 B2 |. ..>".}2... X$.|
00002A60: C7 28 31 34 35 29 20 A7 20 41 B2 41 AB 31 3A 99 |.(145) . A.A.1:.|
00002A70: 20 A3 54 31 29 3B 22 91 20 9D 91 3E 22 00 90 32 | .T1);". ..>"..2|
00002A80: 9E 98 8B 20 58 24 B2 C7 28 31 33 29 20 A7 20 8E |... X$..(13) . .|
00002A90: 00 9C 32 A8 98 89 20 33 39 30 32 30 00 B2 32 40 |..2... 39020..2@|
00002AA0: 9C 8F 20 4C 4F 41 44 20 4D 55 53 49 43 20 46 49 |.. LOAD MUSIC FI|
00002AB0: 4C 45 00 D4 32 4A 9C 58 24 B2 22 2E 31 22 3A 49 |LE..2J.X$.".1":I|
00002AC0: B2 30 3A 46 47 B2 30 3A 8B 20 41 B2 33 20 A7 20 |.0:FG.0:. A.3 . |
00002AD0: 46 47 B2 31 00 EE 32 54 9C 4E B2 30 3A 8B 20 46 |FG.1..2T.N.0:. F|
00002AE0: 47 B2 31 20 A7 20 4E B2 4E 28 49 AA 31 29 00 FC |G.1 . N.N(I.1)..|
00002AF0: 32 5E 9C 9F 20 31 35 2C 38 2C 31 35 00 15 33 68 |2^.. 15,8,15..3h|
00002B00: 9C 9F 20 32 2C 38 2C 32 2C 4E 24 AA 58 24 AA 22 |.. 2,8,2,N$.X$."|
00002B10: 2C 53 2C 52 22 00 2A 33 72 9C 84 31 35 2C 45 4E |,S,R".*3r..15,EN|
00002B20: 2C 45 52 24 2C 54 52 2C 53 45 00 4E 33 7C 9C 8B |,ER$,TR,SE.N3|..|
00002B30: 20 45 4E B3 B1 30 20 A7 20 99 22 93 1E 12 20 4C | EN..0 . ."... L|
00002B40: 4F 41 44 92 22 3B 3A 89 20 34 34 30 31 30 00 80 |OAD.";:. 44010..|
00002B50: 33 86 9C 99 22 13 1E 12 20 4C 4F 41 44 49 4E 47 |3..."... LOADING|
00002B60: 20 4D 55 53 49 43 20 46 49 4C 45 20 3A 20 20 20 | MUSIC FILE : |
00002B70: 20 20 20 20 20 20 20 20 20 20 20 20 20 92 22 3B | .";|
00002B80: 00 89 33 90 9C 84 32 2C 41 00 9C 33 9A 9C 97 20 |..3...2,A..3... |
00002B90: 43 48 AA 49 AC 32 35 36 AA 4E 2C 41 00 C3 33 9F |CH.I.256.N,A..3.|
00002BA0: 9C 8B 20 4E B2 32 35 35 20 A7 20 97 20 43 48 AA |.. N.255 . . CH.|
00002BB0: 49 AC 32 35 36 AA 4E 2C 32 35 35 3A 89 20 34 30 |I.256.N,255:. 40|
00002BC0: 31 31 30 00 E0 33 A4 9C 8B 20 41 B3 B1 32 35 35 |110..3... A..255|
00002BD0: 20 A7 20 4E B2 4E AA 31 3A 89 20 34 30 30 38 30 | . N.N.1:. 40080|
00002BE0: 00 ED 33 AE 9C 4E 28 49 AA 31 29 B2 4E 00 F5 33 |..3..N(I.1).N..3|
00002BF0: B8 9C A0 20 32 00 FE 33 C2 9C A0 20 31 35 00 1E |... 2..3... 15..|
00002C00: 34 CC 9C 8B 20 49 B2 30 20 A7 20 49 B2 31 3A 58 |4... I.0 . I.1:X|
00002C10: 24 B2 22 2E 32 22 3A 89 20 34 30 30 32 30 00 3E |$.".2":. 40020.>|
00002C20: 34 D6 9C 8B 20 49 B2 31 20 A7 20 49 B2 32 3A 58 |4... I.1 . I.2:X|
00002C30: 24 B2 22 2E 33 22 3A 89 20 34 30 30 32 30 00 44 |$.".3":. 40020.D|
00002C40: 34 E0 9C 8E 00 5A 34 28 A0 8F 20 53 41 56 45 20 |4....Z4(.. SAVE |
00002C50: 4D 55 53 49 43 20 46 49 4C 45 00 6A 34 32 A0 58 |MUSIC FILE.j42.X|
00002C60: 24 B2 22 2E 31 22 3A 49 B2 30 00 72 34 3C A0 4E |$.".1":I.0.r4<.N|
00002C70: B2 30 00 80 34 46 A0 9F 20 31 35 2C 38 2C 31 35 |.0..4F.. 15,8,15|
00002C80: 00 99 34 50 A0 9F 20 32 2C 38 2C 32 2C 4E 24 AA |..4P.. 2,8,2,N$.|
00002C90: 58 24 AA 22 2C 53 2C 57 22 00 AE 34 5A A0 84 31 |X$.",S,W"..4Z..1|
00002CA0: 35 2C 45 4E 2C 45 52 24 2C 54 52 2C 53 45 00 D2 |5,EN,ER$,TR,SE..|
00002CB0: 34 64 A0 8B 20 45 4E B3 B1 30 20 A7 20 99 22 93 |4d.. EN..0 . .".|
00002CC0: 1E 12 20 53 41 56 45 92 22 3B 3A 89 20 34 34 30 |.. SAVE.";:. 440|
00002CD0: 31 30 00 04 35 6E A0 99 22 13 1E 12 20 53 41 56 |10..5n.."... SAV|
00002CE0: 49 4E 47 20 4D 55 53 49 43 20 46 49 4C 45 20 3A |ING MUSIC FILE :|
00002CF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002D00: 20 92 22 3B 00 18 35 78 A0 41 B2 C2 28 43 48 AA | .";..5x.A..(CH.|
00002D10: 49 AC 32 35 36 AA 4E 29 00 21 35 82 A0 98 32 2C |I.256.N).!5...2,|
00002D20: 41 00 3E 35 8C A0 8B 20 41 B3 B1 32 35 35 20 A7 |A.>5... A..255 .|
00002D30: 20 4E B2 4E AA 31 3A 89 20 34 31 30 38 30 00 46 | N.N.1:. 41080.F|
00002D40: 35 96 A0 A0 20 32 00 4F 35 A0 A0 A0 20 31 35 00 |5... 2.O5... 15.|
00002D50: 6F 35 AA A0 8B 20 49 B2 30 20 A7 20 49 B2 31 3A |o5... I.0 . I.1:|
00002D60: 58 24 B2 22 2E 32 22 3A 89 20 34 31 30 32 30 00 |X$.".2":. 41020.|
00002D70: 8F 35 B4 A0 8B 20 49 B2 31 20 A7 20 49 B2 32 3A |.5... I.1 . I.2:|
00002D80: 58 24 B2 22 2E 33 22 3A 89 20 34 31 30 32 30 00 |X$.".3":. 41020.|
00002D90: 95 35 BE A0 8E 00 AF 35 10 A4 8F 20 4C 4F 41 44 |.5.....5... LOAD|
00002DA0: 20 46 53 49 44 20 52 45 47 49 53 54 45 52 53 00 | FSID REGISTERS.|
00002DB0: BD 35 1A A4 9F 20 31 35 2C 38 2C 31 35 00 D5 35 |.5... 15,8,15..5|
00002DC0: 24 A4 9F 20 32 2C 38 2C 32 2C 4E 24 AA 22 2E 53 |$.. 2,8,2,N$.".S|
00002DD0: 2C 53 2C 52 22 00 EA 35 2E A4 84 31 35 2C 45 4E |,S,R"..5...15,EN|
00002DE0: 2C 45 52 24 2C 54 52 2C 53 45 00 0E 36 38 A4 8B |,ER$,TR,SE..68..|
00002DF0: 20 45 4E B3 B1 30 20 A7 20 99 22 93 1E 12 20 4C | EN..0 . ."... L|
00002E00: 4F 41 44 92 22 3B 3A 89 20 34 34 30 31 30 00 40 |OAD.";:. 44010.@|
00002E10: 36 42 A4 99 22 13 1E 12 20 4C 4F 41 44 49 4E 47 |6B.."... LOADING|
00002E20: 20 53 4F 55 4E 44 20 46 49 4C 45 20 3A 20 20 20 | SOUND FILE : |
00002E30: 20 20 20 20 20 20 20 20 20 20 20 20 20 92 22 3B | .";|
00002E40: 00 49 36 4C A4 84 32 2C 41 00 57 36 56 A4 97 20 |.I6L..2,A.W6V.. |
00002E50: 34 39 32 37 35 2C 41 00 66 36 60 A4 81 20 43 45 |49275,A.f6`.. CE|
00002E60: B2 30 20 A4 20 32 00 76 36 6A A4 81 20 52 45 47 |.0 . 2.v6j.. REG|
00002E70: B2 30 20 A4 20 36 00 7F 36 74 A4 84 32 2C 41 00 |.0 . 6..6t..2,A.|
00002E80: 95 36 7E A4 97 20 46 53 49 44 AA 52 45 47 AA 37 |.6~.. FSID.REG.7|
00002E90: AC 43 45 2C 41 00 A2 36 88 A4 82 20 52 45 47 2C |.CE,A..6... REG,|
00002EA0: 43 45 00 AA 36 92 A4 A0 20 32 00 B3 36 9C A4 A0 |CE..6... 2..6...|
00002EB0: 20 31 35 00 B9 36 A6 A4 8E 00 D2 36 E0 AB 8F 20 | 15..6.....6... |
00002EC0: 46 49 4C 45 20 45 52 52 4F 52 20 52 4F 55 54 49 |FILE ERROR ROUTI|
00002ED0: 4E 45 00 DF 36 EA AB A0 20 32 3A A0 20 31 35 00 |NE..6... 2:. 15.|
00002EE0: 0D 37 F4 AB 99 22 12 20 45 52 52 4F 52 20 3A 20 |.7...". ERROR : |
00002EF0: 50 52 45 53 53 20 5B 52 45 54 55 52 4E 5D 20 20 |PRESS [RETURN] |
00002F00: 20 20 20 20 20 20 20 20 92 22 3B 3A 99 00 23 37 | .";:..#7|
00002F10: FE AB 99 22 11 11 1D 05 46 49 4C 45 20 3A 20 22 |..."....FILE : "|
00002F20: 3B 4E 24 00 6C 37 08 AC 99 22 11 11 1D 1D 1D 1D |;N$.l7..."......|
00002F30: 1D 1E 45 52 52 4F 52 20 23 20 3A 20 22 3B 45 4E |..ERROR # : ";EN|
00002F40: 3A 99 22 1D 1D 1D 1D 1D 22 3B 45 52 24 3A 99 22 |:.".....";ER$:."|
00002F50: 1D 1D 1D 1D 1D 54 52 20 3D 20 22 3B 54 52 3B 22 |.....TR = ";TR;"|
00002F60: 20 3A 20 53 45 20 3D 20 22 3B 53 45 00 89 37 12 | : SE = ";SE..7.|
00002F70: AC A1 20 4B 24 3A 8B 20 4B 24 B3 B1 C7 28 31 33 |.. K$:. K$...(13|
00002F80: 29 20 A7 20 34 34 30 35 30 00 8F 37 1C AC 8E 00 |) . 44050..7....|
00002F90: A3 37 C8 AF 8F 20 44 49 53 4B 20 52 4F 55 54 49 |.7... DISK ROUTI|
00002FA0: 4E 45 53 00 B1 37 D2 AF 9F 20 31 35 2C 38 2C 31 |NES..7... 15,8,1|
00002FB0: 35 00 D1 37 DC AF 8D 20 33 38 30 31 30 3A 8F 20 |5..7... 38010:. |
00002FC0: 44 49 53 4B 20 43 4F 4D 4D 41 4E 44 20 4D 45 4E |DISK COMMAND MEN|
00002FD0: 55 00 E4 37 E6 AF 8B 20 41 B2 36 20 A7 20 A0 20 |U..7... A.6 . . |
00002FE0: 31 35 3A 8E 00 0D 38 EB AF 8B 20 4D 46 B2 31 20 |15:...8... MF.1 |
00002FF0: A7 20 8D 20 36 30 31 30 3A 8F 20 54 55 52 4E 20 |. . 6010:. TURN |
00003000: 4F 46 46 20 53 45 51 55 45 4E 43 45 52 00 3D 38 |OFF SEQUENCER.=8|
00003010: ED AF 8B 20 41 B2 30 20 A7 20 8D 20 34 35 33 30 |... A.0 . . 4530|
00003020: 30 3A 8D 20 33 38 35 31 30 3A 89 20 34 35 30 32 |0:. 38510:. 4502|
00003030: 30 3A 8F 20 44 49 52 45 43 54 4F 52 59 00 4F 38 |0:. DIRECTORY.O8|
00003040: F0 AF 8B 20 41 B1 31 20 A7 20 34 35 30 38 30 00 |... A.1 . 45080.|
00003050: 80 38 FA AF 99 22 13 1E 12 20 49 4E 54 49 41 4C |.8..."... INTIAL|
00003060: 49 53 45 20 44 49 53 4B 20 3A 20 20 20 20 20 20 |ISE DISK : |
00003070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 92 22 | ."|
00003080: 00 8C 38 04 B0 98 31 35 2C 22 49 22 00 98 38 0E |..8...15,"I"..8.|
00003090: B0 89 20 34 35 30 32 30 00 AB 38 18 B0 8B 20 41 |.. 45020..8... A|
000030A0: B3 B1 35 20 A7 20 34 35 31 32 30 00 DC 38 22 B0 |..5 . 45120..8".|
000030B0: 99 22 13 1E 12 20 56 41 4C 49 44 41 54 45 20 44 |."... VALIDATE D|
000030C0: 49 53 4B 20 3A 20 20 20 20 20 20 20 20 20 20 20 |ISK : |
000030D0: 20 20 20 20 20 20 20 20 20 20 92 22 00 E8 38 2C | ."..8,|
000030E0: B0 98 31 35 2C 22 56 22 00 F4 38 36 B0 89 20 34 |..15,"V"..86.. 4|
000030F0: 35 30 32 30 00 06 39 40 B0 8B 20 41 B2 32 20 A7 |5020..9@.. A.2 .|
00003100: 20 34 35 31 36 30 00 37 39 45 B0 99 22 13 1E 12 | 45160.79E.."...|
00003110: 20 53 43 52 41 54 43 48 20 4D 55 53 49 43 20 46 | SCRATCH MUSIC F|
00003120: 49 4C 45 20 3A 20 20 20 20 20 20 20 20 20 20 20 |ILE : |
00003130: 20 20 20 20 20 92 22 00 4C 39 4A B0 98 31 35 2C | .".L9J..15,|
00003140: 22 53 3A 22 AA 4E 24 AA 22 2E 31 22 00 61 39 4C |"S:".N$.".1".a9L|
00003150: B0 98 31 35 2C 22 53 3A 22 AA 4E 24 AA 22 2E 32 |..15,"S:".N$.".2|
00003160: 22 00 76 39 4E B0 98 31 35 2C 22 53 3A 22 AA 4E |".v9N..15,"S:".N|
00003170: 24 AA 22 2E 33 22 00 88 39 5E B0 8B 20 41 B2 33 |$.".3"..9^.. A.3|
00003180: 20 A7 20 34 35 30 32 30 00 B9 39 68 B0 99 22 13 | . 45020..9h..".|
00003190: 1E 12 20 53 43 52 41 54 43 48 20 53 4F 55 4E 44 |.. SCRATCH SOUND|
000031A0: 20 46 49 4C 45 20 3A 20 20 20 20 20 20 20 20 20 | FILE : |
000031B0: 20 20 20 20 20 20 20 92 22 00 CE 39 72 B0 98 31 | ."..9r..1|
000031C0: 35 2C 22 53 3A 22 AA 4E 24 AA 22 2E 53 22 00 DA |5,"S:".N$.".S"..|
000031D0: 39 7C B0 89 20 34 35 30 32 30 00 F4 39 90 B0 8F |9|.. 45020..9...|
000031E0: 20 44 49 53 4B 20 44 49 52 45 43 54 4F 52 59 20 | DISK DIRECTORY |
000031F0: 52 45 41 44 00 06 3A F4 B0 49 B2 30 3A 46 49 24 |READ..:..I.0:FI$|
00003200: 28 49 29 B2 22 22 00 17 3A FE B0 9F 20 31 2C 38 |(I).""..:... 1,8|
00003210: 2C 30 2C 22 24 30 22 00 25 3A 08 B1 A1 23 31 2C |,0,"$0".%:...#1,|
00003220: 41 24 2C 42 24 00 33 3A 12 B1 A1 23 31 2C 41 24 |A$,B$.3:...#1,A$|
00003230: 2C 42 24 00 41 3A 1C B1 A1 23 31 2C 41 24 2C 42 |,B$.A:...#1,A$,B|
00003240: 24 00 49 3A 26 B1 43 B2 30 00 60 3A 30 B1 8B 20 |$.I:&.C.0.`:0.. |
00003250: 41 24 B3 B1 22 22 20 A7 20 43 B2 C6 28 41 24 29 |A$.."" . C..(A$)|
00003260: 00 7D 3A 3A B1 8B 20 42 24 B3 B1 22 22 20 A7 20 |.}::.. B$.."" . |
00003270: 43 B2 43 AA C6 28 42 24 29 AC 32 35 36 00 86 3A |C.C..(B$).256..:|
00003280: 44 B1 42 46 B2 43 00 A1 3A 4E B1 A1 23 31 2C 42 |D.BF.C..:N..#1,B|
00003290: 24 3A 8B 20 53 54 B3 B1 30 20 A7 20 34 35 34 37 |$:. ST..0 . 4547|
000032A0: 30 00 B9 3A 58 B1 8B 20 42 24 B3 B1 C7 28 33 34 |0..:X.. B$...(34|
000032B0: 29 20 A7 20 34 35 33 39 30 00 EB 3A 62 B1 A1 23 |) . 45390..:b..#|
000032C0: 31 2C 42 24 3A 8B 20 42 24 B3 B1 C7 28 33 34 29 |1,B$:. B$...(34)|
000032D0: 20 A7 20 46 49 24 28 49 29 B2 46 49 24 28 49 29 | . FI$(I).FI$(I)|
000032E0: AA 42 24 3A 89 20 34 35 34 31 30 00 09 3B 6C B1 |.B$:. 45410..;l.|
000032F0: A1 23 31 2C 42 24 3A 8B 20 42 24 B2 C7 28 33 32 |.#1,B$:. B$..(32|
00003300: 29 20 A7 20 34 35 34 32 30 00 49 3B 71 B1 8B 20 |) . 45420.I;q.. |
00003310: C9 28 46 49 24 28 49 29 2C 32 29 B2 22 2E 31 22 |.(FI$(I),2).".1"|
00003320: 20 A7 20 46 49 24 28 49 29 B2 C8 28 46 49 24 28 | . FI$(I)..(FI$(|
00003330: 49 29 2C C3 28 46 49 24 28 49 29 29 AB 31 29 AA |I),.(FI$(I)).1).|
00003340: 22 4D 22 3A 49 B2 49 AA 31 00 68 3B 72 B1 8B 20 |"M":I.I.1.h;r.. |
00003350: C9 28 46 49 24 28 49 29 2C 32 29 B2 22 2E 53 22 |.(FI$(I),2).".S"|
00003360: 20 A7 20 49 B2 49 AA 31 00 7B 3B 73 B1 8B 20 49 | . I.I.1.{;s.. I|
00003370: B2 33 37 20 A7 20 34 35 34 37 30 00 8F 3B 76 B1 |.37 . 45470..;v.|
00003380: 43 24 B2 22 22 3A 46 49 24 28 49 29 B2 22 22 00 |C$."":FI$(I)."".|
00003390: B4 3B 80 B1 43 24 B2 43 24 AA 42 24 3A A1 23 31 |.;..C$.C$.B$:.#1|
000033A0: 2C 42 24 3A 8B 20 42 24 B3 B1 22 22 20 A7 20 34 |,B$:. B$.."" . 4|
000033B0: 35 34 34 30 00 C7 3B 8A B1 8B 20 53 54 B2 30 20 |5440..;... ST.0 |
000033C0: A7 20 34 35 33 33 30 00 CF 3B 94 B1 A0 20 31 00 |. 45330..;... 1.|
000033D0: DD 3B 9E B1 46 49 B2 49 3A 44 59 B2 30 00 E7 3B |.;..FI.I:DY.0..;|
000033E0: A8 B1 A0 20 31 3A 8E 00 01 3C B0 B3 8F 20 48 4F |... 1:...<... HO|
000033F0: 52 49 5A 4F 4E 54 41 4C 20 48 41 52 44 43 4F 50 |RIZONTAL HARDCOP|
00003400: 59 00 0B 3C BA B3 9F 20 34 2C 34 00 3A 3C BC B3 |Y..<... 4,4.:<..|
00003410: 98 34 2C C7 28 32 37 29 3B C7 28 31 30 38 29 3B |.4,.(27);.(108);|
00003420: C7 28 36 29 3A 8F 20 4C 45 46 54 20 4D 41 52 47 |.(6):. LEFT MARG|
00003430: 49 4E 20 28 43 4F 4C 3D 36 29 00 4D 3C C4 B3 98 |IN (COL=6).M<...|
00003440: 34 2C 22 46 49 4C 45 3A 20 22 3B 4E 24 00 5C 3C |4,"FILE: ";N$.\<|
00003450: CE B3 81 20 4F 53 B2 31 20 A4 20 33 00 69 3C D8 |... OS.1 . 3.i<.|
00003460: B3 98 34 2C C7 28 31 33 29 00 7E 3C DA B3 98 34 |..4,.(13).~<...4|
00003470: 2C 22 43 48 41 4E 4E 45 4C 3A 22 3B 4F 53 00 90 |,"CHANNEL:";OS..|
00003480: 3C DC B3 98 34 2C C7 28 31 33 29 3B 50 43 24 3B |<...4,.(13);PC$;|
00003490: 00 AE 3C DE B3 4A B2 30 3A 8D 20 34 36 32 31 30 |..<..J.0:. 46210|
000034A0: 3A 8F 20 50 52 49 4E 54 20 4E 4F 54 45 23 00 C2 |:. PRINT NOTE#..|
000034B0: 3C E3 B3 81 20 49 B2 30 20 A4 20 4E 28 4F 53 29 |<... I.0 . N(OS)|
000034C0: AB 31 00 DC 3C E4 B3 56 4C B2 C2 28 43 48 AA 28 |.1..<..VL..(CH.(|
000034D0: 4F 53 AB 31 29 AC 32 35 36 AA 49 29 00 04 3D E6 |OS.1).256.I)..=.|
000034E0: B3 8B 20 56 4C B2 31 32 38 20 A7 20 4E 4C 24 B2 |.. VL.128 . NL$.|
000034F0: 22 52 20 20 22 3A 89 20 34 36 30 36 36 3A 8F 20 |"R ":. 46066:. |
00003500: 52 45 53 54 00 25 3D EC B3 8D 20 32 37 35 31 30 |REST.%=... 27510|
00003510: 3A 8F 20 4E 4F 54 45 2F 4F 43 54 41 56 45 20 53 |:. NOTE/OCTAVE S|
00003520: 54 52 49 4E 47 00 35 3D F2 B3 98 34 2C 4E 4C 24 |TRING.5=...4,NL$|
00003530: 3B 22 20 22 3B 00 65 3D F4 B3 4C 4C B2 4C 4C AA |;" ";.e=..LL.LL.|
00003540: 31 3A 8B 20 4C 4C B2 31 36 20 A7 20 4A B2 4A AA |1:. LL.16 . J.J.|
00003550: 34 3A 8D 20 34 36 32 31 30 3A 8F 20 4E 45 58 54 |4:. 46210:. NEXT|
00003560: 20 4C 49 4E 45 00 6D 3D F6 B3 82 20 49 00 7A 3D | LINE.m=... I.z=|
00003570: FB B3 98 34 2C C7 28 31 33 29 00 83 3D 00 B4 82 |...4,.(13)..=...|
00003580: 20 4F 53 00 90 3D 05 B4 98 34 2C C7 28 31 32 29 | OS..=...4,.(12)|
00003590: 00 98 3D 0A B4 A0 20 34 00 9E 3D 14 B4 8E 00 B0 |..=... 4..=.....|
000035A0: 3D 78 B4 8F 20 50 52 49 4E 54 20 4E 4F 54 45 23 |=x.. PRINT NOTE#|
000035B0: 00 C9 3D 82 B4 4C 4C B2 30 3A 59 24 B2 CA 28 50 |..=..LL.0:Y$..(P|
000035C0: 53 24 2C 4A AA 31 2C 34 29 00 D6 3D 8C B4 98 34 |S$,J.1,4)..=...4|
000035D0: 2C C7 28 31 33 29 00 E6 3D 96 B4 98 34 2C 59 24 |,.(13)..=...4,Y$|
000035E0: 3B 22 20 20 22 3B 00 EC 3D AA B4 8E 00 04 3E 98 |;" ";..=.....>.|
000035F0: B7 8F 20 56 45 52 54 49 43 41 4C 20 48 41 52 44 |.. VERTICAL HARD|
00003600: 43 4F 50 59 00 0E 3E A2 B7 9F 20 34 2C 34 00 3D |COPY..>... 4,4.=|
00003610: 3E A4 B7 98 34 2C C7 28 32 37 29 3B C7 28 31 30 |>...4,.(27);.(10|
00003620: 38 29 3B C7 28 34 29 3A 8F 20 4C 45 46 54 20 4D |8);.(4):. LEFT M|
00003630: 41 52 47 49 4E 20 28 43 4F 4C 3D 34 29 00 50 3E |ARGIN (COL=4).P>|
00003640: AC B7 98 34 2C 22 46 49 4C 45 3A 20 22 3B 4E 24 |...4,"FILE: ";N$|
00003650: 00 58 3E B1 B7 4A B2 30 00 72 3E B6 B7 8D 20 34 |.X>..J.0.r>... 4|
00003660: 36 32 31 30 3A 8F 20 50 52 49 4E 54 20 4E 4F 54 |6210:. PRINT NOT|
00003670: 45 23 00 89 3E BB B7 98 34 2C C7 28 31 33 29 3B |E#..>...4,.(13);|
00003680: 22 20 20 22 3B 50 43 24 3B 00 98 3E C0 B7 81 20 |" ";PC$;..>... |
00003690: 4F 53 B2 31 20 A4 20 33 00 A5 3E C2 B7 98 34 2C |OS.1 . 3..>...4,|
000036A0: C7 28 31 33 29 00 BB 3E C3 B7 98 34 2C 22 43 48 |.(13)..>...4,"CH|
000036B0: 41 4E 22 3B 4F 53 3B 22 20 22 3B 00 DA 3E CA B7 |AN";OS;" ";..>..|
000036C0: 56 4C B2 C2 28 43 48 AA 28 4F 53 AB 31 29 AC 32 |VL..(CH.(OS.1).2|
000036D0: 35 36 AA 4C 4C AA 4A AC 34 29 00 03 3F D4 B7 8B |56.LL.J.4)..?...|
000036E0: 20 4C 4C AA 4A AC 34 B1 B2 4E 28 4F 53 29 20 A7 | LL.J.4..N(OS) .|
000036F0: 20 34 37 31 31 30 3A 8F 20 41 42 4F 52 54 20 4C | 47110:. ABORT L|
00003700: 49 4E 45 00 2B 3F DE B7 8B 20 56 4C B2 31 32 38 |INE.+?... VL.128|
00003710: 20 A7 20 4E 4C 24 B2 22 52 20 20 22 3A 89 20 34 | . NL$."R ":. 4|
00003720: 37 30 39 30 3A 8F 20 52 45 53 54 00 4C 3F E8 B7 |7090:. REST.L?..|
00003730: 8D 20 32 37 35 31 30 3A 8F 20 4E 4F 54 45 2F 4F |. 27510:. NOTE/O|
00003740: 43 54 41 56 45 20 53 54 52 49 4E 47 00 5C 3F F2 |CTAVE STRING.\?.|
00003750: B7 98 34 2C 4E 4C 24 3B 22 20 22 3B 00 78 3F FC |..4,NL$;" ";.x?.|
00003760: B7 4C 4C B2 4C 4C AA 31 3A 8B 20 4C 4C B3 31 36 |.LL.LL.1:. LL.16|
00003770: 20 A7 20 34 37 30 35 30 00 81 3F 06 B8 4C 4C B2 | . 47050..?..LL.|
00003780: 30 00 8A 3F 10 B8 82 20 4F 53 00 94 3F 1A B8 4A |0..?... OS..?..J|
00003790: B2 4A AA 34 00 C1 3F 24 B8 8B 20 4A AC 34 B3 4E |.J.4..?$.. J.4.N|
000037A0: 28 31 29 20 B0 20 4A AC 34 B3 4E 28 32 29 20 B0 |(1) . J.4.N(2) .|
000037B0: 20 4A AC 34 B3 4E 28 33 29 20 A7 20 34 37 30 33 | J.4.N(3) . 4703|
000037C0: 30 00 CE 3F 2E B8 98 34 2C C7 28 31 32 29 00 D6 |0..?...4,.(12)..|
000037D0: 3F 38 B8 A0 20 34 00 DC 3F 42 B8 8E 00 F1 3F 50 |?8.. 4..?B....?P|
000037E0: C3 8F 20 49 4E 49 54 49 41 4C 49 53 41 54 49 4F |.. INITIALISATIO|
000037F0: 4E 00 21 40 5A C3 8B 20 C2 28 35 31 37 31 32 29 |N.!@Z.. .(51712)|
00003800: B2 31 20 A7 20 35 30 31 31 32 3A 8F 20 4D 41 43 |.1 . 50112:. MAC|
00003810: 48 49 4E 45 20 43 4F 44 45 20 50 52 45 53 45 4E |HINE CODE PRESEN|
00003820: 54 00 39 40 64 C3 8F 20 4C 4F 41 44 20 4D 41 43 |T.9@d.. LOAD MAC|
00003830: 48 49 4E 45 20 43 4F 44 45 00 51 40 6E C3 97 20 |HINE CODE.Q@n.. |
00003840: 35 33 32 38 30 2C 35 3A 97 20 35 33 32 38 31 2C |53280,5:. 53281,|
00003850: 35 00 7E 40 78 C3 99 22 93 11 11 11 11 11 11 1D |5.~@x.."........|
00003860: 1D 1D 1D 1D 1D 1D 1D 05 B0 1D 1D 1D 1D 1D 1D 1D |................|
00003870: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D AE 22 00 9F |............."..|
00003880: 40 82 C3 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |@..."...........|
00003890: 1D 1D 4D 41 43 52 4F 20 45 44 49 54 4F 52 22 00 |..MACRO EDITOR".|
000038A0: C3 40 8C C3 99 22 11 1D 1D 1D 1D 1D 1D 1D 1D 1D |.@..."..........|
000038B0: 1D 56 2E 48 2E 42 45 52 52 59 1D 1D 43 2E 31 39 |.V.H.BERRY..C.19|
000038C0: 38 39 22 00 E9 40 96 C3 99 22 11 1D 1D 1D 1D 1D |89"..@..."......|
000038D0: 1D 1D 1D AD 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000038E0: 1D 1D 1D 1D 1D 1D 1D BD 22 00 11 41 A0 C3 99 22 |........"..A..."|
000038F0: 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 4C 4F 41 44 |............LOAD|
00003900: 49 4E 47 1D 4D 41 43 48 49 4E 45 1D 43 4F 44 45 |ING.MACHINE.CODE|
00003910: 22 00 3A 41 AA C3 46 47 B2 46 47 AA 31 3A 8B 20 |".:A..FG.FG.1:. |
00003920: 46 47 B2 31 20 A7 20 93 22 53 45 51 55 45 4E 43 |FG.1 . ."SEQUENC|
00003930: 45 52 20 4D 43 22 2C 38 2C 31 00 5D 41 B4 C3 8B |ER MC",8,1.]A...|
00003940: 20 46 47 B2 32 20 A7 20 93 20 22 4E 4F 54 45 20 | FG.2 . . "NOTE |
00003950: 54 41 42 4C 45 20 4D 43 22 2C 38 2C 31 00 6B 41 |TABLE MC",8,1.kA|
00003960: C0 C3 86 20 46 49 24 28 33 36 29 00 8C 41 C3 C3 |... FI$(36)..A..|
00003970: 86 20 4C 24 28 31 31 29 3A 8F 20 4E 4F 54 45 20 |. L$(11):. NOTE |
00003980: 4C 45 54 54 45 52 20 4E 41 4D 45 53 00 AE 41 C8 |LETTER NAMES..A.|
00003990: C3 43 48 B2 35 31 39 36 38 3A 8F 20 4D 55 53 49 |.CH.51968:. MUSI|
000039A0: 43 20 44 41 54 41 20 41 44 44 52 45 53 53 00 D6 |C DATA ADDRESS..|
000039B0: 41 DC C3 46 53 49 44 B2 34 39 31 37 35 3A 8F 20 |A..FSID.49175:. |
000039C0: 46 41 4C 53 45 20 53 49 44 20 44 41 54 41 20 41 |FALSE SID DATA A|
000039D0: 44 44 52 45 53 53 00 FA 41 E6 C3 4E 48 B2 35 31 |DDRESS..A..NH.51|
000039E0: 37 31 32 3A 8F 20 4E 4F 54 45 20 54 41 42 4C 45 |712:. NOTE TABLE|
000039F0: 20 48 49 47 48 20 42 59 54 45 00 1D 42 F0 C3 4E | HIGH BYTE..B..N|
00003A00: 4C B2 35 31 38 34 30 3A 8F 20 4E 4F 54 45 20 54 |L.51840:. NOTE T|
00003A10: 41 42 4C 45 20 4C 4F 57 20 42 59 54 45 00 41 42 |ABLE LOW BYTE.AB|
00003A20: FA C3 4D 46 B2 30 3A 52 46 B2 30 3A 8F 20 4D 55 |..MF.0:RF.0:. MU|
00003A30: 53 49 43 20 26 20 52 45 43 4F 52 44 20 46 4C 41 |SIC & RECORD FLA|
00003A40: 47 00 55 42 22 C4 4E 24 B2 22 4D 55 53 49 43 20 |G.UB".N$."MUSIC |
00003A50: 46 49 4C 45 22 00 A1 42 2C C4 50 43 24 B2 22 4E |FILE"..B,.PC$."N|
00003A60: 4F 54 45 23 20 2B 31 20 20 2B 32 20 20 2B 33 20 |OTE# +1 +2 +3 |
00003A70: 20 2B 34 20 20 2B 35 20 20 2B 36 20 20 2B 37 20 | +4 +5 +6 +7 |
00003A80: 20 2B 38 20 20 2B 39 20 20 2B 31 30 20 2B 31 31 | +8 +9 +10 +11|
00003A90: 20 2B 31 32 20 2B 31 33 20 2B 31 34 20 2B 31 35 | +12 +13 +14 +15|
00003AA0: 22 00 B4 42 36 C4 50 43 24 B2 50 43 24 AA 22 20 |"..B6.PC$.PC$." |
00003AB0: 2B 31 36 22 00 FF 42 40 C4 50 53 24 B2 22 2B 30 |+16"..B@.PS$."+0|
00003AC0: 20 20 2B 31 36 20 2B 33 32 20 2B 34 38 20 2B 36 | +16 +32 +48 +6|
00003AD0: 34 20 2B 38 30 20 2B 39 36 20 2B 31 31 32 2B 31 |4 +80 +96 +112+1|
00003AE0: 32 38 2B 31 34 34 2B 31 36 30 2B 31 37 36 2B 31 |28+144+160+176+1|
00003AF0: 39 32 2B 32 30 38 2B 32 32 34 2B 32 34 30 22 00 |92+208+224+240".|
00003B00: 1C 43 6A C4 8F 20 52 45 41 44 20 4E 4F 54 45 20 |.Cj.. READ NOTE |
00003B10: 4C 45 54 54 45 52 20 4E 41 4D 45 53 00 2B 43 6C |LETTER NAMES.+Cl|
00003B20: C4 81 20 49 B2 30 20 A4 20 31 31 00 34 43 6E C4 |.. I.0 . 11.4Cn.|
00003B30: 87 20 41 24 00 41 43 70 C4 4C 24 28 49 29 B2 41 |. A$.ACp.L$(I).A|
00003B40: 24 00 47 43 71 C4 82 00 56 43 72 C4 81 20 4F 53 |$.GCq...VCr.. OS|
00003B50: B2 31 20 A4 20 33 00 77 43 7C C4 8D 20 31 36 35 |.1 . 3.wC|.. 165|
00003B60: 34 30 3A 8F 20 43 4C 45 41 52 20 43 48 41 4E 4E |40:. CLEAR CHANN|
00003B70: 45 4C 20 44 41 54 41 00 7D 43 86 C4 82 00 95 43 |EL DATA.}C.....C|
00003B80: 90 C4 4F 53 B2 31 3A 8F 20 45 44 49 54 20 56 4F |..OS.1:. EDIT VO|
00003B90: 49 43 45 20 31 00 AD 43 9A C4 97 20 35 33 32 38 |ICE 1..C... 5328|
00003BA0: 30 2C 30 3A 97 20 35 33 32 38 31 2C 30 00 B3 43 |0,0:. 53281,0..C|
00003BB0: A4 C4 8E 00 CF 43 28 EB 8F 20 4E 4F 54 45 20 4C |.....C(.. NOTE L|
00003BC0: 45 54 54 45 52 20 4E 41 4D 45 20 44 41 54 41 00 |ETTER NAME DATA.|
00003BD0: E7 43 32 EB 83 20 22 43 22 2C 22 43 23 22 2C 22 |.C2.. "C","C#","|
00003BE0: 44 22 2C 22 44 23 22 00 FE 43 3C EB 83 20 22 45 |D","D#"..C<.. "E|
00003BF0: 22 2C 22 46 22 2C 22 46 23 22 2C 22 47 22 00 16 |","F","F#","G"..|
00003C00: 44 46 EB 83 20 22 47 23 22 2C 22 41 22 2C 22 41 |DF.. "G#","A","A|
00003C10: 23 22 2C 22 42 22 00 00 00 |#","B"... |
....D.. * MACRO EDITOR *.1.N.. * FOR US
E WITH *.I.X.. * SID SEQUENCER *.A....
* BY V.H.BERRY *.Y.... * C.1989
*...H.. 50010:. INITIALISATION...R.. 350
10:. MAIN MENU.E...."..MACRO EDITOR.".W.
..."V.H.BERRY."......"C.1989."..........
.. TEMPO CHANGE.'...VL.B(49275):VL.VL.I:
. VL.256 . VL.1.;.... VL.0 . VL.255.T...
. 49275,VL:. 49276,0.Z.....Q.P.. SEQUENC
ER ON/OFF...Z.. MF.0 . MF.1:. 49235:.. .
..MF.0:. 49209:.....:. BLOCK EDITOR.M..:
. 27010:. EDIT SCREEN....:. K$:. K$."" .
15100. ..:. K$."." . . 16030:SY.SY.1:.
16010:. EDIT CURSOR DOWN.X..;. K$."." .
. 16030:SY.SY.1:. 16010:. EDIT CURSOR UP
....;. K$."." . . 16030:SX.SX.1:. 16010:
. EDIT CURSOR RIGHT.M..;. K$."." . . 160
30:SX.SX.1:. 16010:. EDIT CURSOR LEFT...
.;. K$."." . . 16510:. 27010:. CLEAR CHA
NNEL.*..;. K$."." . . 17010:. 27010:. DE
LETE BLOCK.O..;. K$."." . . 18010:. WRIT
E BLOCK.Y..;. K$."." . . 16610:. SET BEG
IN MARKER... ;. K$."." . . 16610:. SET E
ND MARKER.G.$;. K$."." . . 17510:. INSER
T BLOCK...);. K$."." . . FSID,0:. FSID.7
,0:. FSID.14,0:. RESET NOTE COUNTERS.=..
;. K$."F" . . 30010:. 27010:. CHANGE FIL
ENAME.H.8;. K$."P" . PG.PG.1:. 27010:. N
EXT PAGE...=;. K$."P" . PG.PG.1:. 27010:
. PREVIOUS PAGE.C.?;. K$."+" . I..1:. 50
10:. INCREASE TEMPO...@;. K$."-" . I.1:.
5010:. DECREASE TEMPO.".B;. K$.G(133) .
OS.OS.1:. 27010:. F1 NEXT CHANNEL.M.L;.
K$.G(134) . . 28010:. F3 HELP SCREEN.|.
V;. K$.G(135) . . 6010:. F5 SEQUENCER ON
/OFF...`;. K$.G(136) . .:. F7 EXIT...J;.
15100....>. CURSOR CONTROL.M..>. SX.7 .
SX.0....>. SX.0 . SX.7....>. SY.7 . SY.
0....>. SY.0 . SY.7....>Y$."":."........
";.)..>. I.0 . SY.4..>."..";.:..>..I.F>.
I.0 . SX.V.P>."....";.\.Z>..F..>. 1,3.T
..>. I.1 . 3...>.#1,X$....?Y$.Y$.X$....
?.....? 1....?. FG.0 . .".";:FG.1:. 161
60.C..?FG.0.U. ?."...";Y$;"."...*?....T@
. CLEAR CHANNEL.$.~@."....... CLEAR CHAN
NEL DATA : PRESS [RETURN] .".=..@. K$:.
K$."" . 16520.W..@. K$..G(13) . K$."":..
C..@N(OS).0.{..@. CH.(OS.1).256,128....@
. CH.(OS.1).256.1,255....@....X@. SET BL
OCK MARKERS.X..@VL.PG.64.SY.8.SX:. VL..N
(OS) . .....@. K$."." . BM.VL....@. K$."
." . EM.VL.#..A. 16710:. PRINT BLOCK VAL
UES.C..A. 21030:. COLOUR SUBROUTINE.I..A
..I.<A. PRINT BLOCK MARKER VALUES...FA."
..... ."...PA.".BLOCK
:";BM.1;"-";EM.1...ZA..A.HB. DELETE BLOC
K...RB."....... DELETE BLOCK . "...|B.
BM.EM . 18310:. BLOCK ERROR."..B. MF.1 .
. 6010:. SEQ. OFF.*..BI.0.[..B. CH.(OS.
1).256.BM.I,B(CH.(OS.1).256.EM.I.1)....B
. B(CH.(OS.1).256.BM.I).255 . N(OS).N(OS
).(EM.BM.1):.....BI.I.1....B. 17050...\D
. INSERT BLOCK...FDVL.PG.64.SY.8.SX:. VL
.N(OS) . ....PD. VL.254 . N(OS).EM.BM.25
5 . 18410:. OVERFLOW.6.UD. BM.EM . 18310
:. BLOCK ERROR.V.VD."....... INSERT BLOC
K . ".U.ZD. MF.1 . . 6010:. SEQ. OFF...
.D. I.N(OS).1 . VL . .1.B..D. CH.(OS.1).
256.I.(EM.BM).1,B(CH.(OS.1).256.I).H..D.
....D. BM.VL . . 18110:. COPY UP....D. E
M.VL . . 18210:. COPY DOWN.$..DN(OS).N(O
S).(EM.BM).1.>..D. 27010:. EDIT SCREEN.D
..D..V.PF. WRITE BLOCK.Z.ZFVL.PG.64.SY.8
.SX:. VL.N(OS) . ....DF. VL.254 . VL.EM.
BM.254 . 18410:. OVERFLOW.K.IF. BM.EM .
18310:. BLOCK ERROR...JF."....... WRITE
BLOCK . "...NF. MF.1 . . 6010:. SEQ. O
FF.2.XF. EM.VL . BM.VL . . 18110:. COPY
UP.\..F. EM.VL . BM.VL . . 18210:. COPY
DOWN.Y..F. VL.EM.BM.N(OS) . 18090....FN(
OS).VL.EM.BM.1... F. CH.(OS.1).256.N(OS)
,255.F..F. 27010:. EDIT SCREEN.L..F..Z..
F. COPY UP....FI.0...HF. J.BM . EM.).RF.
K$."." . . CH.(OS.1).256.VL.I,B(CH.(OS.
1).256.J).J.WF. K$."." . . CH.(OS.1).256
.VL.I,B(CH.(OS.1).256.J.(EM.BM).1).T..FI
.I.1.Z..F.....F.....G. COPY DOWN..."GI.0
...,G. J.EM . BM . .1...6G. CH.(OS.1).25
6.VL.EM.BM.I,B(CH.(OS.1).256.J)...@GI.I.
1...JG....TG....|G. BLOCK MARKER ERROR.2
..G."....... BLOCK MARKER ERROR .".R..G.
21030:. COLOUR SUBROUTINE.X..G..R..G. D
ATA OVERFLOW ERROR....G."....... OVERFLO
W ERROR ."....G. 21030:. COLOUR SUBROUTI
NE....G..P..R. COLOUR SUBROUTINE...&R. O
S.3 . OS.1...0R. OS.1 . ."."...:R. OS.2
. ."."...DR. OS.3 . ."."...NR..5.XI. NOT
E EDIT SCREEN.F..I."... NEXT CHAN . HELP
. SEQ ON/OFF . EXIT "....I.". F1
. F3 . F5 . F7 ".E..I."....
...................................."...
HI."....}.1.}.2.}.3.}.4.}.5.}.6.}.7.}.8.
}"...RI.".```{```{```{```{```{```{```{``
`{```.".L..I."}0.+}...}...}...}...}...}.
..}...}...}".Y..I.".```{```{```{```{```{
```{```{```{```."....I."}8.+}...}...}...
}...}...}...}...}...}".S..I.".```{```{``
`{```{```{```{```{```{```."....J."}16+}.
..}...}...}...}...}...}...}...}".-..J.".
```{```{```{```{```{```{```{```{```.".Z.
.J."}24+}...}...}...}...}...}...}...}...
}"..."J.".```{```{```{```{```{```{```{``
`{```."...,J."}32+}...}...}...}...}...}.
..}...}...}"...6J.".```{```{```{```{```{
```{```{```{```."...@J."}40+}...}...}...
}...}...}...}...}...}".;.JJ.".```{```{``
`{```{```{```{```{```{```.".H.TJ."}48+}.
..}...}...}...}...}...}...}...}"...^J.".
```{```{```{```{```{```{```{```{```.".B.
HJ."}56+}...}...}...}...}...}...}...}...
}"...RJ.".```.```.```.```.```.```.```.``
`.```."...|J.".......................FIL
E.:";N$.8..J. 16710:. PRINT BLOCK VALUES
.X..J. 21030:. COLOUR SUBROUTINE.O..J.".
..CHANNEL.:";OS....J. PG.64.N(OS) . PG.0
....J. PG.0 . PG..((N(OS).1).64).J..J."N
OTES...:..........PAGE.:."....J. .9);N(O
S);.24);PG.64.1;"-";(PG.1).64....J. INIT
IALISE CURSOR CONTROLS.)..JSX.0:SY.0:FG.
0.?..J. PRINT NOTE DATA._..JI.0:LL.0:.".
.............";..BJVL.B(CH.(OS.1).256.P
G.64.I)...LJ. VL.128 . NL$."R ":. 27385
:. REST.V.VJ. VL.255 . NL$.": ":. 27385
:. END OF DATA....J. 27510:. NOTE/OCTAVE
STRING....J. NL$;".";.,..JI.I.1:. I.64
. VL.255 . . 16030:..S..KLL.LL.1:. LL.8
. LL.0:.:."......";._..K. 27330..LK. NO
TE LETTER/OCTAVE STRING...VKOV..(VL.16):
. OCTAVE....KO$.D(OV):O$.I(O$,1).X..KNL$
.L$(VL.OV.16):. NOTE LETTER NAME....KNL$
.NL$.O$:. C(NL$).2 . NL$.NL$." "....K...
.`M. HELP SCREEN.6.JM. 53280,5:. 53281,5
:.".";...KM.".. PRESS [F7] TO EXIT :
.````````````````````````
`````";...LM."............[F]...........
...CHA";...MM."NGE.FILENAME.........}}..
....................................}}.[
P].....";.R.NM.".........NEXT.PAGE......
.........}}.[SHIFT] & [P]....PREVIOUS.PA
GE......";...OM.".....}}................
......................}}.[+]............
..INCREAS";...PM."E.TEMPO..........}}.[-
]..............DECREASE.TEMPO..........}
}.........";.E QM.".....................
........}}.[HOME]...........RESET.NOTE.C
OUNTERS....";.. RM.".}}.................
.....................}}...EDIT.CONTROLS.
:...[CRSR]..";.. SM.".MOVE.CURSOR.....}}
...`````````````........................
..}}.[CTRL] &";.8!TM." [B]......'BEGIN'.
BLOCK.MARK.....}}.[CTRL] & [E]......'END
'.BLOCK.MARK..";..!UM.".....}}..........
............................}}.[CTRL] &
[D]......DELETE";.Z!VM.".BLOCK..........
.}}.[CTRL] & [W]......WRITE.BLOCK.AT.CRS
R....}}.[CTRL] &";.+"WM." [I]......INSER
T.BLOCK.AT.CRSR...}}....................
.................";.B"XM."....[SHIFT] &
[CLR]...CLEAR.CHANNEL...........";.."YM.
"..............................";.."ZM."
..........."..".N. K$:. K$."" . 28160.N"
.N. K$..G(136) . 28160.X".NK$.""..".N. 5
3280,0:. 53281,0..#(N. 27010:. NOTE EDIT
ECREEN..#2N...#0U. INPUT NEW FILENAME.F
#:U. 53280,5:. 53281,5.Y#DU."... ENTER N
EW FILENAME : PRESS [RETURN] .";.#NU..
.#XU.".......FILE : ";N$..#BU."..".P#LUL
.14:TB.5:RS.1:. 32040:. INPUT SUBROUTINE
..#VU. A.0 . N$.Y$..#.U. 53280,0:. 53281
,0..$.U..#$.}. INPUT RESTRICTION SUBROUT
INE.;$.}. L=LENGTH OF INPUT.Z$.}. TB=TAB
ULATION OF ROUTINE.Z$.}. RS=CHARACTER RE
STRICTIONS..$(}A.0:Y$."":SP.1.M$2}. .TB.
L.1):.".......";:. X.0 . L.1:.".. ";:.:.
"..........";..$<}. X$:. X$."" . 32060..
%F}. X$.G(160) . X$." " . X$.G(20) . X$.
G(13) . 32130.F%P}. RS.0 . . X$.."0" . X
$.."9" . 32130.Q%Z}. RS.1 . X$..G(35) .
X$..G(93) . 32130.}%D}. 32060..%N}. A.L.
1 . ."...";..%X}. 32060..%.}. X$.G(20) .
A.0 . 32060..%.}. X$.G(13) . I(Y$,1)."
" . Y$.H(Y$,C(Y$).1):A.A.1..&.}. X$.G(13
) . .:..$& }A.A.1:. X$..G(32) . SP.0.H&.
}. A.L . X$..G(20) . X$."":A.A.1.^&.}. A
.1 . X$."":A.0..&.}. X$.G(20) . . .A)"..
..";:A.A.2:Y$.H(Y$,C(Y$).1):. 32110..&H
}. X$.G(32) . SP.1 . X$."":A.A.1.Y&R}. X
$.G(32) . SP.SP.1..&.}Y$.Y$.X$:. X$;:. A
.L . ."..";..'.}. 32060..'... MAIN MENU.
K'B.."... MOVE CURSOR UP & DOWN:PRESS [R
ETURN] .".R'L.."........***...MACRO ED
ITOR..***"..'V.."...........V.H.BERRY C.
1989"..'..." ....................
."..'..." MACRO EDITOR "..
(..." HARDCOPY ".&(...
" DISK MENU ".J(..."
EXIT PROGRAM ".P(....U(&.."
....................."..(0.."....
..":T1.10:LL.3:. 39010:. MENU SYSTEM ROU
TINE..(:.. A.3 . ..X(D.. A.1 . 15010,360
10,37020..(N.. 35010..( .. HARDCOPY MENU
.,)..."... MOVE CURSOR UP & DOWN:PRESS [
RETURN] .".Q)..."........*** HARDCOP
Y ***".O)..."............FILE : ";N$.
.)H..". ....................."..)
R.." NEW FILENAME "..)..."
HORIZONTAL PRINT"..*..."
VERTICAL PRINT ".%*..."
EXIT MENU ".J*..." ....
................."..*..."......":T1.10:L
L.3:. 39010:. MENU SYSTEM ROUTINE..*...
A.3 . ...*... A.1 . 30010,46010,47010..*
".. 36010.I*... DISK MENU..*..."... MOVE
CURSOR UP & DOWN:PRESS [RETURN] ."."+
..."........*** DISK MENU ***".@+...
"............FILE : ";N$.F+...".
....................."..+D.."
NEW FILENAME "..+N.." LOA
D SID ".R+..." LOAD MU
SIC "..+..." APPEND MUSI
C "..,..." SAVE MUSIC
".>,..." DISK COMMANDS ".B
,..." EXIT MENU ".H,...
..,..." .....................".D,
..."......":T1.10:LL.6:. 39010:. MENU SY
STEM ROUTINE.R,(.. A.6 . ...--.. A.0 . A
.6 . MF.1 . . 6010:. TURN OFF SEQUENCER.
7-2.. A.1 . 30010,42010,40010,40010,4101
0,45010.C-<.. 37020.[-P.. DISK COMMAND M
ENU..-Z.."... MOVE CURSOR UP & DOWN:PRES
S [RETURN] ."..-...".......***..DISK C
OMMANDS..***".S-..."............FILE : "
;N$..-...". .....................
"......" DISK DIRECTORY ".A.
..." INTIALISE DISK ".E...."
SCRATCH SID "......"
SCRATCH MUSIC "......"
SCRATCH BOTH ".Q.J.."
VALIDATE DISK "...T.." EXIT
MENU "....... /..." ......
...............".W/..."......":T1.10:LL.
6:. 39010:. MENU SYSTEM ROUTINE.]/....R/
D.. DIRECTORY MENU../I.. DY.12.FI . DY.0
../N.."... MOVE CURSOR UP & DOWN:PRESS [
RETURN] ."../X..".......***.DISK DIREC
TORY..***"..0}.."............BLOCKS FREE
: ";BF..0...". .................
.....".I0..." ";N$;".".D0...
I.12.DY . 11.(12.DY).{0... I.FI . .:. 38
570..0 .." ";FI$(I)..0... I..
0..." .NEXT PAGE."..0...".
....................."..1..."......
":T1.10:LL.13:. 39010:. MENU SYSTEM ROUT
INE.81... A.13 . DY.DY.1:. 38505.J1A.. A
.0 . 38600.N1B.. C(FI$((A.1).12.DY)).3 .
38600..1C.N$.H(FI$((A.1).12.DY),C(FI$((
A.1).12.DY)).2)..1H....1X.. MENU SYSTEM
ROUTINE.S1B.A.0:. .T1);".>"..1L.. X$:. X
$."" . 39020..2V.. A.LL . X$.G(17) . A.A
.1:."..".02... A.0 . X$.G(145) . A.A.1:.
.V2... X$.G(17) . A.A.1:. .T1);". ..>".}
2... X$.G(145) . A.A.1:. .T1);". ..>"..2
... X$.G(13) . ...2... 39020..2@.. LOAD
MUSIC FILE.T2J.X$.".1":I.0:FG.0:. A.3 .
FG.1..2T.N.0:. FG.1 . N.N(I.1)..2^.. 15,
8,15..3H.. 2,8,2,N$.X$.",S,R".*3R..15,EN
,ER$,TR,SE.N3|.. EN..0 . ."... LOAD.";:.
44010..3..."... LOADING MUSIC FILE :
.";..3...2,A..3... CH.I.256
.N,A.C3... N.255 . . CH.I.256.N,255:. 40
110..3... A..255 . N.N.1:. 40080..3..N(I
.1).N..3.. 2..3B. 15..4L.. I.0 . I.1:X
$.".2":. 40020.>4V.. I.1 . I.2:X$.".3":.
40020.D4....Z4( . SAVE MUSIC FILE.J42 X
$.".1":I.0.R4< N.0..4F . 15,8,15..4P . 2
,8,2,N$.X$.",S,W"..4Z .15,EN,ER$,TR,SE.R
4D . EN..0 . ."... SAVE.";:. 44010..5N .
"... SAVING MUSIC FILE :
.";..5X A.B(CH.I.256.N).!5. .2,A.>5. .
A..255 . N.N.1:. 41080.F5. 2.O5 15.
O5. . I.0 . I.1:X$.".2":. 41020..5. . I.
1 . I.2:X$.".3":. 41020..5. ...5... LOAD
FSID REGISTERS..5... 15,8,15.U5$.. 2,8,
2,N$.".S,S,R"..5...15,EN,ER$,TR,SE..68..
EN..0 . ."... LOAD.";:. 44010.@6B.."...
LOADING SOUND FILE : .";
.I6L..2,A.W6V.. 49275,A.F6`.. CE.0 . 2.V
6J.. REG.0 . 6.6T..2,A..6~.. FSID.REG.7
.CE,A..6... REG,CE..6.. 2..6.. 15..6..
..R6... FILE ERROR ROUTINE..6.. 2: 15.
.7...". ERROR : PRESS [RETURN]
.";:..#7..."....FILE : ";N$.L7..."......
..ERROR # : ";EN:.".....";ER$:.".....TR
= ";TR;" : SE = ";SE..7... K$:. K$..G(13
) . 44050..7.....7H.. DISK ROUTINES..7R.
. 15,8,15.Q7... 38010:. DISK COMMAND MEN
U..7... A.6 . 15:...8... MF.1 . . 6010
:. TURN OFF SEQUENCER.=8... A.0 . . 4530
0:. 38510:. 45020:. DIRECTORY.O8... A.1
. 45080..8..."... INTIALISE DISK :
."..8...15,"I"..8... 45020
..8... A..5 . 45120..8".."... VALIDATE D
ISK : ."..8,..15,"V"
..86.. 45020..9@.. A.2 . 45160.79E.."...
SCRATCH MUSIC FILE : .".
L9J..15,"S:".N$.".1".A9L..15,"S:".N$.".2
".V9N..15,"S:".N$.".3"..9^.. A.3 . 45020
..9H.."... SCRATCH SOUND FILE :
.".N9R..15,"S:".N$.".S".Z9|.. 450
20..9... DISK DIRECTORY READ..:..I.0:FI$
(I).""..:... 1,8,0,"$0".%:...#1,A$,B$.3:
...#1,A$,B$.A:...#1,A$,B$.I:&.C.0.`:0..
A$.."" . C.F(A$).}::.. B$.."" . C.C.F(B$
).256..:D.BF.C..:N..#1,B$:. ST..0 . 4547
0..:X.. B$..G(34) . 45390..:B..#1,B$:. B
$..G(34) . FI$(I).FI$(I).B$:. 45410..;L.
.#1,B$:. B$.G(32) . 45420.I;Q.. I(FI$(I)
,2).".1" . FI$(I).H(FI$(I),C(FI$(I)).1).
"M":I.I.1.H;R.. I(FI$(I),2).".S" . I.I.1
.{;S.. I.37 . 45470..;V.C$."":FI$(I)."".
.;..C$.C$.B$:.#1,B$:. B$.."" . 45440.G;.
.. ST.0 . 45330.O;.. 1..;..FI.I:DY.0..;
.. 1:...<... HORIZONTAL HARDCOPY..<...
4,4.:<...4,G(27);G(108);G(6):. LEFT MARG
IN (COL=6).M<D..4,"FILE: ";N$.\<N.. OS.1
. 3.I<X..4,G(13).~<Z..4,"CHANNEL:";OS..
<...4,G(13);PC$;..<..J.0:. 46210:. PRINT
NOTE#.B<... I.0 . N(OS).1..<..VL.B(CH.(
OS.1).256.I)..=... VL.128 . NL$."R ":.
46066:. REST.%=... 27510:. NOTE/OCTAVE S
TRING.5=...4,NL$;" ";.E=..LL.LL.1:. LL.1
6 . J.J.4:. 46210:. NEXT LINE.M=... I.Z=
...4,G(13)..=... OS..=...4,G(12)..=.. 4
..=.....=X.. PRINT NOTE#.I=..LL.0:Y$.J(P
S$,J.1,4).V=...4,G(13)..=...4,Y$;" ";..
=.....>... VERTICAL HARDCOPY..>... 4,4.=
>...4,G(27);G(108);G(4):. LEFT MARGIN (C
OL=4).P>...4,"FILE: ";N$.X>..J.0.R>... 4
6210:. PRINT NOTE#..>...4,G(13);" ";PC$
;..>... OS.1 . 3..>B..4,G(13)..>C..4,"CH
AN";OS;" ";.Z>J.VL.B(CH.(OS.1).256.LL.J.
4)..?T.. LL.J.4..N(OS) . 47110:. ABORT L
INE.+?... VL.128 . NL$."R ":. 47090:. R
EST.L?... 27510:. NOTE/OCTAVE STRING.\?.
..4,NL$;" ";.X?..LL.LL.1:. LL.16 . 47050
..?..LL.0..?... OS..?..J.J.4.A?$.. J.4.N
(1) . J.4.N(2) . J.4.N(3) . 47030.N?...4
,G(12).V?8. 4..?B....?PC. INITIALISATIO
N.!@ZC. B(51712).1 . 50112:. MACHINE COD
E PRESENT.9@DC. LOAD MACHINE CODE.Q@NC.
53280,5:. 53281,5.~@XC."................
....................."..@.C."...........
..MACRO EDITOR".C@.C."...........V.H.BER
RY..C.1989"..@.C."......................
........"..A C."............LOADING.MACH
INE.CODE".:A.CFG.FG.1:. FG.1 . ."SEQUENC
ER MC",8,1.]A.C. FG.2 . . "NOTE TABLE MC
",8,1.KA.C. FI$(36)..ACC. L$(11):. NOTE
LETTER NAMES..AHCCH.51968:. MUSIC DATA A
DDRESS.VA.CFSID.49175:. FALSE SID DATA A
DDRESS..A.CNH.51712:. NOTE TABLE HIGH BY
TE..B.CNL.51840:. NOTE TABLE LOW BYTE.AB
.CMF.0:RF.0:. MUSIC & RECORD FLAG.UB"DN$
."MUSIC FILE"..B,DPC$."NOTE# +1 +2 +3
+4 +5 +6 +7 +8 +9 +10 +11 +12 +13
+14 +15"..B6DPC$.PC$." +16"..B@DPS$."+0
+16 +32 +48 +64 +80 +96 +112+128+144+1
60+176+192+208+224+240"..CJD. READ NOTE
LETTER NAMES.+CLD. I.0 . 11.4CND. A$.ACP
DL$(I).A$.GCQD..VCRD. OS.1 . 3.WC|D. 165
40:. CLEAR CHANNEL DATA.}C.D...C.DOS.1:.
EDIT VOICE 1..C.D. 53280,0:. 53281,0..C
.D..OC(.. NOTE LETTER NAME DATA..C2.. "C
","C#","D","D#"..C<.. "E","F","F#","G"..
DF.. "G#","A","A#","B"...
> CLICK IMAGE PREVIEW FOR FULL MODAL