1520 2 COL DIR
FILE INFORMATION
FILENAME(S): 1520 2 COL DIR
FILE TYPE(S): PRG
FILE SIZE: 5.3K
FIRST SEEN: 2025-10-20 14:29:56
APPEARS ON: 1 disk(s)
FILE HASH
aeee2aa5e190da70284c2d6d281c96f215f839234def05e95f2618c9fbd7f734
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PB DOMAIN 0054GR | 1520 2 COL DIR | PRG | Treasure Chest - Klaus Der Suhler | 11 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1F 08 64 00 8F 20 20 53 45 54 20 55 50 20 |....d.. SET UP |
00000010: 53 4F 55 4E 44 20 52 45 47 49 53 54 45 52 53 00 |SOUND REGISTERS.|
00000020: 3C 08 65 00 3A 20 8D 32 36 33 3A 20 20 8F 20 53 |<.e.: .263: . S|
00000030: 4F 55 4E 44 20 52 4F 55 54 49 4E 45 00 42 08 66 |OUND ROUTINE.B.f|
00000040: 00 3A 00 5E 08 67 00 8F 20 20 53 45 54 20 55 50 |.:.^.g.. SET UP|
00000050: 20 53 43 52 45 45 4E 20 43 4F 4C 4F 52 53 00 86 | SCREEN COLORS..|
00000060: 08 68 00 3A 20 97 20 35 33 32 38 30 2C 31 32 20 |.h.: . 53280,12 |
00000070: 20 3A 8F 20 42 4F 52 44 45 52 20 4D 45 44 49 55 | :. BORDER MEDIU|
00000080: 4D 20 47 52 41 59 00 B1 08 69 00 3A 20 97 20 35 |M GRAY...i.: . 5|
00000090: 33 32 38 31 2C 31 35 20 20 3A 8F 20 42 41 43 4B |3281,15 :. BACK|
000000A0: 47 52 4F 55 4E 44 20 4C 49 47 48 54 20 47 52 41 |GROUND LIGHT GRA|
000000B0: 59 00 D5 08 6A 00 3A 20 97 20 36 34 36 2C 31 31 |Y...j.: . 646,11|
000000C0: 20 20 20 20 3A 8F 20 54 45 58 54 20 44 41 52 4B | :. TEXT DARK|
000000D0: 20 47 52 41 59 00 DB 08 6B 00 3A 00 FA 08 6C 00 | GRAY...k.:...l.|
000000E0: 8F 20 20 54 45 53 54 20 49 46 20 50 4C 4F 54 54 |. TEST IF PLOTT|
000000F0: 45 52 20 50 52 45 53 45 4E 54 00 35 09 6D 00 3A |ER PRESENT.5.m.:|
00000100: 20 99 20 22 93 11 11 11 11 11 11 11 11 11 11 11 | . "............|
00000110: 11 11 11 22 20 20 20 20 20 20 20 20 20 20 20 20 |..." |
00000120: 20 20 3A 8F 20 20 50 4F 53 49 54 49 4F 4E 20 43 | :. POSITION C|
00000130: 55 52 53 4F 52 00 76 09 6E 00 3A 20 53 43 24 B2 |URSOR.v.n.: SC$.|
00000140: 22 1C 12 22 20 20 20 20 20 20 20 20 20 20 20 20 |".." |
00000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000160: 20 3A 8F 20 20 52 45 44 20 52 45 56 45 52 53 45 | :. RED REVERSE|
00000170: 20 56 49 44 45 4F 00 B2 09 6F 00 3A 20 9F 20 34 | VIDEO...o.: . 4|
00000180: 2C 36 2C 30 20 20 20 20 20 20 20 20 20 20 20 20 |,6,0 |
00000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3A | :|
000001A0: 8F 20 20 4F 50 45 4E 20 41 53 43 49 49 20 50 4F |. OPEN ASCII PO|
000001B0: 52 54 00 F9 09 70 00 3A 20 A0 20 34 20 20 20 20 |RT...p.: . 4 |
000001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001D0: 20 20 20 20 20 20 20 20 20 20 3A 8F 20 20 43 4C | :. CL|
000001E0: 4F 53 45 20 50 4F 52 54 2C 20 53 54 3D 30 20 49 |OSE PORT, ST=0 I|
000001F0: 46 20 50 52 45 53 45 4E 54 00 24 0A 71 00 3A 20 |F PRESENT.$.q.: |
00000200: 8B 20 53 54 B2 30 20 A7 31 32 38 3A 8F 20 20 47 |. ST.0 .128:. G|
00000210: 4F 20 4F 50 45 4E 20 50 52 49 4E 54 45 52 20 50 |O OPEN PRINTER P|
00000220: 4F 52 54 53 00 5C 0A 72 00 3A 20 8B 20 42 4C B2 |ORTS.\.r.: . BL.|
00000230: 30 20 A7 20 42 4C B2 31 3A 20 8D 32 37 32 3A 8F |0 . BL.1: .272:.|
00000240: 20 20 53 4F 55 4E 44 20 42 45 4C 4C 2C 20 4F 4E | SOUND BELL, ON|
00000250: 43 45 20 49 53 20 45 4E 4F 55 47 48 00 9C 0A 73 |CE IS ENOUGH...s|
00000260: 00 3A 20 99 20 22 91 91 91 91 91 91 22 20 20 20 |.: . "......" |
00000270: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000280: 20 20 20 20 3A 8F 20 20 43 55 52 53 4F 52 20 55 | :. CURSOR U|
00000290: 50 20 54 4F 20 4F 56 45 52 4C 41 59 00 C3 0A 74 |P TO OVERLAY...t|
000002A0: 00 3A 20 99 20 A3 38 29 3B 22 D5 C0 C0 C0 C0 C0 |.: . .8);"......|
000002B0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000002C0: C0 C9 22 00 F3 0A 75 00 3A 20 99 20 A3 38 29 3B |.."...u.: . .8);|
000002D0: 22 DD 22 3B 53 43 24 3B 22 20 20 20 20 20 20 20 |".";SC$;" |
000002E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 92 | .|
000002F0: 97 DD 22 00 23 0B 76 00 3A 20 99 20 A3 38 29 3B |..".#.v.: . .8);|
00000300: 22 DD 22 3B 53 43 24 3B 22 20 20 4D 41 4B 45 20 |".";SC$;" MAKE |
00000310: 50 4C 4F 54 54 45 52 20 52 45 41 44 59 20 20 92 |PLOTTER READY .|
00000320: 97 DD 22 00 53 0B 77 00 3A 20 99 20 A3 38 29 3B |..".S.w.: . .8);|
00000330: 22 DD 22 3B 53 43 24 3B 22 20 20 20 20 20 20 20 |".";SC$;" |
00000340: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 92 | .|
00000350: 97 DD 22 00 7A 0B 78 00 3A 20 99 20 A3 38 29 3B |..".z.x.: . .8);|
00000360: 22 CA C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |"...............|
00000370: C0 C0 C0 C0 C0 C0 C0 C0 CB 22 00 BA 0B 79 00 3A |........."...y.:|
00000380: 20 8B 20 53 43 24 B2 22 1C 12 22 20 A7 20 53 43 | . SC$.".." . SC|
00000390: 24 B2 22 9B 22 3A 20 89 31 32 33 3A 8F 20 20 41 |$.".": .123:. A|
000003A0: 4C 54 45 52 4E 41 54 45 20 42 45 54 57 45 45 4E |LTERNATE BETWEEN|
000003B0: 20 49 4E 56 49 53 49 42 4C 45 00 04 0C 7A 00 3A | INVISIBLE...z.:|
000003C0: 20 8B 20 53 43 24 B2 22 9B 22 20 A7 20 53 43 24 | . SC$."." . SC$|
000003D0: B2 22 1C 12 22 20 20 20 20 20 20 20 20 20 20 20 |.".." |
000003E0: 20 20 3A 8F 20 20 20 20 28 4C 49 47 48 54 20 47 | :. (LIGHT G|
000003F0: 52 41 59 29 20 41 4E 44 20 52 45 44 20 52 45 56 |RAY) AND RED REV|
00000400: 45 52 53 45 00 44 0C 7B 00 3A 20 47 54 B2 54 49 |ERSE.D.{.: GT.TI|
00000410: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000420: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000430: 3A 8F 20 20 53 41 56 45 20 54 49 4D 45 52 20 56 |:. SAVE TIMER V|
00000440: 41 4C 55 45 00 71 0C 7C 00 3A 20 8B 20 54 49 AB |ALUE.q.|.: . TI.|
00000450: 47 54 B3 36 30 20 A7 31 32 34 3A 8F 20 20 4C 4F |GT.60 .124:. LO|
00000460: 4F 50 20 46 4F 52 20 36 30 20 4A 49 46 46 49 45 |OP FOR 60 JIFFIE|
00000470: 53 00 90 0C 7D 00 3A 20 89 31 31 31 3A 8F 20 20 |S...}.: .111:. |
00000480: 47 4F 20 52 45 54 52 59 20 50 4C 4F 54 54 45 52 |GO RETRY PLOTTER|
00000490: 00 96 0C 7E 00 3A 00 C0 0C 7F 00 8F 20 20 50 4C |...~.:...... PL|
000004A0: 4F 54 54 45 52 20 49 53 20 50 52 45 53 45 4E 54 |OTTER IS PRESENT|
000004B0: 2C 20 4F 50 45 4E 20 54 48 45 20 50 4F 52 54 53 |, OPEN THE PORTS|
000004C0: 00 E0 0C 80 00 3A 20 9F 20 31 2C 36 2C 31 20 20 |.....: . 1,6,1 |
000004D0: 3A 8F 20 50 4C 4F 54 54 49 4E 47 20 50 4F 52 54 |:. PLOTTING PORT|
000004E0: 00 08 0D 81 00 3A 20 9F 20 32 2C 36 2C 32 20 20 |.....: . 2,6,2 |
000004F0: 3A 8F 20 50 45 4E 20 43 4F 4C 4F 52 20 53 45 4C |:. PEN COLOR SEL|
00000500: 45 43 54 20 50 4F 52 54 00 2E 0D 82 00 3A 20 9F |ECT PORT.....: .|
00000510: 20 33 2C 36 2C 33 20 20 3A 8F 20 43 48 41 52 41 | 3,6,3 :. CHARA|
00000520: 43 54 45 52 20 53 49 5A 45 20 50 4F 52 54 00 4B |CTER SIZE PORT.K|
00000530: 0D 83 00 3A 20 9F 20 34 2C 36 2C 30 20 20 3A 8F |...: . 4,6,0 :.|
00000540: 20 41 53 43 49 49 20 50 4F 52 54 00 51 0D 84 00 | ASCII PORT.Q...|
00000550: 3A 00 79 0D 85 00 3A 20 57 49 44 54 48 B2 32 3A |:.y...: WIDTH.2:|
00000560: 20 57 44 B2 57 49 AB 31 3A 20 8F 20 57 49 44 54 | WD.WI.1: . WIDT|
00000570: 48 3D 43 4F 4C 55 4D 4E 53 00 7F 0D 86 00 3A 00 |H=COLUMNS.....:.|
00000580: 8F 0D 87 00 3A 20 86 20 42 24 28 32 30 30 29 00 |....: . B$(200).|
00000590: AB 0D 88 00 3A 20 9F 31 35 2C 38 2C 31 35 3A 98 |....: .15,8,15:.|
000005A0: 31 35 2C 22 55 3B 22 3A A0 31 35 00 B1 0D 89 00 |15,"U;":.15.....|
000005B0: 3A 00 E2 0D 8A 00 3A 20 20 99 20 22 93 11 20 20 |:.....: . ".. |
000005C0: 20 20 20 20 20 12 1F B0 C0 C0 C0 C0 C0 C0 C0 C0 | ...........|
000005D0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 AE |................|
000005E0: 92 22 00 10 0E 8B 00 3A 20 20 99 20 22 20 20 20 |.".....: . " |
000005F0: 20 20 20 20 12 DD 20 20 2A 32 20 43 4F 4C 55 4D | .. *2 COLUM|
00000600: 4E 20 44 49 52 45 43 54 4F 52 59 2A 20 DD 92 22 |N DIRECTORY* .."|
00000610: 00 3E 0E 8C 00 3A 20 20 99 20 22 20 20 20 20 20 |.>...: . " |
00000620: 20 20 12 DD 20 20 46 4F 52 20 54 48 45 20 31 35 | .. FOR THE 15|
00000630: 32 30 20 50 4C 4F 54 54 45 52 20 DD 92 22 00 6C |20 PLOTTER ..".l|
00000640: 0E 8D 00 3A 20 20 99 20 22 20 20 20 20 20 20 20 |...: . " |
00000650: 12 DD 20 20 20 20 20 20 20 20 20 46 52 4F 4D 20 |.. FROM |
00000660: 20 20 20 20 20 20 20 20 20 DD 92 22 00 9A 0E 8E | .."....|
00000670: 00 3A 20 20 99 20 22 20 20 20 20 20 20 20 12 DD |.: . " ..|
00000680: 20 20 20 54 48 45 20 50 4C 4F 54 54 49 4E 47 20 | THE PLOTTING |
00000690: 53 48 45 44 20 20 20 DD 92 22 00 C9 0E 8F 00 3A |SHED ..".....:|
000006A0: 20 20 99 20 22 20 20 20 20 20 20 20 12 AD C0 C0 | . " ....|
000006B0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000006C0: C0 C0 C0 C0 C0 BD 97 92 22 00 F4 0E 90 00 3A 20 |........".....: |
000006D0: 99 22 11 11 1D 1D 1D 44 4F 20 59 4F 55 20 57 41 |.".....DO YOU WA|
000006E0: 4E 54 20 54 4F 20 50 52 49 4E 54 20 54 48 45 20 |NT TO PRINT THE |
000006F0: 44 41 54 45 00 29 0F 91 00 3A 20 85 22 1D 1D 1D |DATE.)...: ."...|
00000700: 4F 4E 20 54 48 45 20 44 49 52 45 43 54 4F 52 59 |ON THE DIRECTORY|
00000710: 20 4C 49 53 54 49 4E 47 20 28 59 2E 4E 29 20 20 | LISTING (Y.N) |
00000720: 4E 9D 9D 9D 22 3B 51 55 24 00 5E 0F 92 00 3A 20 |N...";QU$.^...: |
00000730: 8F 3A 49 4E 50 55 54 22 1D 1D 1D 4F 4E 20 54 48 |.:INPUT"...ON TH|
00000740: 45 20 44 49 52 45 43 54 4F 52 59 20 4C 49 53 54 |E DIRECTORY LIST|
00000750: 49 4E 47 20 3C 59 2F 4E 3E 22 3B 51 55 24 00 75 |ING <Y/N>";QU$.u|
00000760: 0F 93 00 3A 20 8B 20 51 55 24 20 B2 20 22 4E 22 |...: . QU$ . "N"|
00000770: 20 A7 31 35 35 00 8C 0F 94 00 3A 20 8B 20 51 55 | .155.....: . QU|
00000780: 24 20 B2 20 22 59 22 20 A7 31 35 30 00 97 0F 95 |$ . "Y" .150....|
00000790: 00 3A 20 89 31 35 35 00 BB 0F 96 00 3A 20 99 22 |.: .155.....: ."|
000007A0: 11 20 20 20 20 20 1C 50 4C 45 41 53 45 2C 20 4E |. .PLEASE, N|
000007B0: 4F 20 43 4F 4D 4D 41 53 21 90 22 00 DE 0F 97 00 |O COMMAS!.".....|
000007C0: 3A 20 99 22 11 1D 1D 1D 1D 1D 12 20 20 20 20 4D |: ."....... M|
000007D0: 41 58 20 20 4C 45 4E 47 54 48 20 20 20 22 00 01 |AX LENGTH "..|
000007E0: 10 98 00 3A 20 99 22 1D 1D 1D 1D 1D 12 3C 2D 2D |...: ."......<--|
000007F0: 2D 2B 2D 2D 2D 2D 2B 2D 2D 2D 2D 2B 2D 2D 3E 92 |-+----+----+-->.|
00000800: 22 00 12 10 99 00 3A 20 85 22 1D 1D 1D 22 3B 44 |".....: ."...";D|
00000810: 41 24 00 48 10 9A 00 3A 20 8B 20 C3 28 44 41 24 |A$.H...: . .(DA$|
00000820: 29 B1 31 38 20 A7 20 99 22 11 11 1D 1D 1D 44 41 |).18 . .".....DA|
00000830: 54 45 20 53 54 52 49 4E 47 20 54 4F 4F 20 4C 4F |TE STRING TOO LO|
00000840: 4E 47 22 3A 89 31 34 34 00 61 10 9B 00 81 20 49 |NG":.144.a.... I|
00000850: B2 31 20 A4 20 37 3A 87 20 41 24 28 49 29 3A 20 |.1 . 7:. A$(I): |
00000860: 82 00 91 10 9C 00 99 22 93 11 11 11 11 11 11 22 |......."......."|
00000870: 3A 20 4A B2 30 20 3A 81 20 49 20 B2 20 31 20 A4 |: J.0 :. I . 1 .|
00000880: 20 32 30 30 3A 20 42 24 28 49 29 B2 22 22 3A 20 | 200: B$(I)."": |
00000890: 82 00 B5 10 9D 00 81 20 49 B2 31 20 A4 20 31 30 |....... I.1 . 10|
000008A0: 3A 20 99 22 20 20 20 20 20 12 22 41 24 28 49 29 |: ." ."A$(I)|
000008B0: 22 22 3A 20 82 00 CB 10 9E 00 A1 20 51 24 3A 8B |"": ....... Q$:.|
000008C0: 20 51 24 B1 22 22 20 A7 31 35 38 00 E1 10 9F 00 | Q$."" .158.....|
000008D0: A1 20 51 24 3A 8B 20 51 24 B2 22 22 20 A7 31 35 |. Q$:. Q$."" .15|
000008E0: 39 00 0A 11 A0 00 8F 3A 49 46 20 51 24 3D 22 41 |9......:IF Q$="A|
000008F0: 22 20 54 48 45 4E 20 50 52 49 4E 54 22 31 35 35 |" THEN PRINT"155|
00000900: 22 3A 47 4F 54 4F 31 31 35 30 00 3B 11 A1 00 8B |":GOTO1150.;....|
00000910: 20 51 24 B3 B1 22 53 22 20 AF 20 51 24 B3 B1 22 | Q$.."S" . Q$.."|
00000920: 55 22 20 AF 20 51 24 B3 B1 22 4E 22 20 AF 20 51 |U" . Q$.."N" . Q|
00000930: 24 B3 B1 22 51 22 20 A7 31 35 36 00 58 11 A2 00 |$.."Q" .156.X...|
00000940: 8B 20 51 24 B2 22 51 22 20 A7 20 A0 20 31 35 3A |. Q$."Q" . . 15:|
00000950: 20 99 22 93 22 3A 20 80 00 95 11 A3 00 8F 3A 49 | .".": .......:I|
00000960: 46 20 51 24 3C 3E 22 53 22 20 41 4E 44 20 51 24 |F Q$<>"S" AND Q$|
00000970: 3C 3E 22 55 22 20 41 4E 44 20 51 24 3C 3E 22 4E |<>"U" AND Q$<>"N|
00000980: 22 20 41 4E 44 20 51 24 3C 3E 22 41 22 20 54 48 |" AND Q$<>"A" TH|
00000990: 45 4E 36 36 30 00 CA 11 A4 00 99 22 93 20 20 20 |EN660......". |
000009A0: 20 12 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | . |
000009B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000009C0: 20 20 92 22 3A 20 5A B2 AB 31 00 D3 11 A5 00 8D | .": Z..1......|
000009D0: 32 33 34 00 E1 11 A6 00 A1 23 31 2C 41 24 2C 42 |234......#1,A$,B|
000009E0: 24 00 EF 11 A7 00 A1 23 31 2C 41 24 2C 42 24 00 |$......#1,A$,B$.|
000009F0: FD 11 A8 00 A1 23 31 2C 41 24 2C 42 24 00 05 12 |.....#1,A$,B$...|
00000A00: A9 00 43 B2 30 00 1C 12 AA 00 8B 20 41 24 B3 B1 |..C.0...... A$..|
00000A10: 22 22 20 A7 20 43 B2 C6 28 41 24 29 00 39 12 AB |"" . C..(A$).9..|
00000A20: 00 8B 20 42 24 B3 B1 22 22 20 A7 20 43 B2 43 AA |.. B$.."" . C.C.|
00000A30: C6 28 42 24 29 AC 32 35 36 00 4A 12 AC 00 5A 24 |.(B$).256.J...Z$|
00000A40: B2 CA 28 C4 28 43 29 2C 32 29 00 63 12 AD 00 8B |..(.(C),2).c....|
00000A50: 20 C3 28 5A 24 29 B3 31 20 A7 20 5A 24 B2 22 20 | .(Z$).1 . Z$." |
00000A60: 20 20 22 00 7E 12 AE 00 8B 20 C3 28 5A 24 29 B2 | ".~.... .(Z$).|
00000A70: 31 20 A7 20 5A 24 B2 22 20 20 22 AA 5A 24 00 98 |1 . Z$." ".Z$..|
00000A80: 12 AF 00 8B 20 C3 28 5A 24 29 B2 32 20 A7 20 5A |.... .(Z$).2 . Z|
00000A90: 24 B2 22 20 22 AA 5A 24 00 B3 12 B0 00 42 24 28 |$." ".Z$.....B$(|
00000AA0: 4A 29 B2 22 20 22 AA 5A 24 AA 22 20 22 AA C7 28 |J)." ".Z$." "..(|
00000AB0: 33 34 29 00 BC 12 B1 00 4C 5A B2 30 00 D7 12 B2 |34).....LZ.0....|
00000AC0: 00 A1 23 31 2C 42 24 3A 20 8B 20 53 54 B3 B1 30 |..#1,B$: . ST..0|
00000AD0: 20 A7 20 89 31 38 39 00 EC 12 B3 00 8B 20 42 24 | . .189...... B$|
00000AE0: B3 B1 C7 28 33 34 29 20 A7 31 37 38 00 24 13 B4 |...(34) .178.$..|
00000AF0: 00 A1 23 31 2C 42 24 3A 20 8B 20 42 24 B3 B1 C7 |..#1,B$: . B$...|
00000B00: 28 33 34 29 20 A7 20 42 24 28 4A 29 B2 42 24 28 |(34) . B$(J).B$(|
00000B10: 4A 29 AA 42 24 3A 20 4C 5A B2 4C 5A AA 31 3A 20 |J).B$: LZ.LZ.1: |
00000B20: 89 31 38 30 00 40 13 B5 00 A1 23 31 2C 42 24 3A |.180.@....#1,B$:|
00000B30: 20 8B 20 42 24 B2 C7 28 33 32 29 20 A7 31 38 31 | . B$..(32) .181|
00000B40: 00 61 13 B6 00 42 24 28 4A 29 B2 42 24 28 4A 29 |.a...B$(J).B$(J)|
00000B50: AA C7 28 33 34 29 3A 8B 4C 5A B1 31 35 A7 31 38 |..(34):.LZ.15.18|
00000B60: 34 00 89 13 B7 00 81 20 4A 5A B2 4C 5A 20 A4 20 |4...... JZ.LZ . |
00000B70: 31 35 3A 20 42 24 28 4A 29 B2 42 24 28 4A 29 AA |15: B$(J).B$(J).|
00000B80: 22 20 22 3A 20 82 20 4A 5A 00 93 13 B8 00 43 24 |" ": . JZ.....C$|
00000B90: B2 22 22 00 B8 13 B9 00 43 24 B2 43 24 AA 42 24 |."".....C$.C$.B$|
00000BA0: 3A 20 A1 23 31 2C 42 24 3A 20 8B 20 42 24 B3 B1 |: .#1,B$: . B$..|
00000BB0: 22 22 20 20 A7 31 38 35 00 D7 13 BA 00 53 53 B2 |"" .185.....SS.|
00000BC0: 53 54 3A 20 42 24 28 4A 29 B2 42 24 28 4A 29 AA |ST: B$(J).B$(J).|
00000BD0: C8 28 43 24 2C 33 29 00 FA 13 BB 00 99 20 22 20 |.(C$,3)...... " |
00000BE0: 20 20 20 12 20 20 22 42 24 28 4A 29 22 20 20 20 | . "B$(J)" |
00000BF0: 20 92 22 3A 20 4A B2 4A AA 31 00 0A 14 BC 00 8B | .": J.J.1......|
00000C00: 20 53 53 B2 30 20 A7 31 36 37 00 38 14 BD 00 42 | SS.0 .167.8...B|
00000C10: 24 28 4A 29 B2 C8 28 42 24 28 4A 29 2C C3 28 42 |$(J)..(B$(J),.(B|
00000C20: 24 28 4A 29 29 AB 31 29 AA 22 20 42 4C 4F 43 4B |$(J)).1)." BLOCK|
00000C30: 53 20 46 52 45 45 2E 22 00 61 14 BE 00 99 20 22 |S FREE.".a.... "|
00000C40: 20 20 20 20 12 20 20 22 42 24 28 4A 29 22 20 20 | . "B$(J)" |
00000C50: 20 20 20 20 20 20 20 20 20 20 92 22 3A 20 A0 20 | .": . |
00000C60: 31 00 74 14 BF 00 8B 20 51 24 B3 B1 22 4E 22 20 |1.t.... Q$.."N" |
00000C70: A7 31 39 36 00 8A 14 C0 00 A1 20 51 24 3A 8B 20 |.196...... Q$:. |
00000C80: 51 24 B1 22 22 20 A7 31 39 32 00 AB 14 C1 00 99 |Q$."" .192......|
00000C90: 22 11 11 20 20 20 20 50 52 45 53 53 20 41 4E 59 |".. PRESS ANY|
00000CA0: 20 4B 45 59 20 2E 2E 2E 2E 2E 22 00 C1 14 C2 00 | KEY .....".....|
00000CB0: A1 20 51 24 3A 8B 20 51 24 B2 22 22 20 A7 31 39 |. Q$:. Q$."" .19|
00000CC0: 34 00 CA 14 C3 00 89 31 35 36 00 DC 14 C4 00 8B |4......156......|
00000CD0: 20 51 24 B2 22 55 22 20 A7 32 30 37 00 E5 14 C5 | Q$."U" .207....|
00000CE0: 00 4C 42 B2 32 00 FE 14 C6 00 3A 20 81 20 49 49 |.LB.2.....: . II|
00000CF0: B2 4A AB 31 20 A4 20 4C 42 20 A9 20 AB 31 00 30 |.J.1 . LB . .1.0|
00000D00: 15 C7 00 3A 20 20 20 8B 20 CA 28 42 24 28 49 49 |...: . .(B$(II|
00000D10: AB 31 29 2C 37 2C 31 35 29 20 B3 B2 20 CA 28 42 |.1),7,15) .. .(B|
00000D20: 24 28 49 49 29 2C 37 2C 31 35 29 20 A7 32 30 34 |$(II),7,15) .204|
00000D30: 00 45 15 C8 00 3A 20 20 20 45 58 24 20 B2 20 42 |.E...: EX$ . B|
00000D40: 24 28 49 49 29 00 5F 15 C9 00 3A 20 20 20 42 24 |$(II)._...: B$|
00000D50: 28 49 49 29 20 B2 20 42 24 28 49 49 AB 31 29 00 |(II) . B$(II.1).|
00000D60: 76 15 CA 00 3A 20 20 20 42 24 28 49 49 AB 31 29 |v...: B$(II.1)|
00000D70: 20 B2 20 45 58 24 00 86 15 CB 00 3A 20 20 20 46 | . EX$.....: F|
00000D80: 58 20 B2 20 49 49 00 91 15 CC 00 3A 20 82 20 49 |X . II.....: . I|
00000D90: 49 00 A4 15 CD 00 8B 20 4C 42 B2 46 58 AA 31 20 |I...... LB.FX.1 |
00000DA0: A7 32 30 37 00 B8 15 CE 00 4C 42 20 B2 20 46 58 |.207.....LB . FX|
00000DB0: AA 31 3A 20 89 31 39 38 00 CA 15 CF 00 A0 34 3A |.1: .198......4:|
00000DC0: 9F 20 34 2C 36 3A 54 46 B2 34 00 DD 15 D0 00 A0 |. 4,6:TF.4......|
00000DD0: 33 3A 9F 33 2C 36 2C 33 3A 98 33 2C 30 00 E3 15 |3:.3,6,3:.3,0...|
00000DE0: D1 00 3A 00 FA 15 D2 00 8F 20 50 52 49 4E 54 20 |..:...... PRINT |
00000DF0: 54 48 45 20 48 45 41 44 45 52 00 19 16 D3 00 99 |THE HEADER......|
00000E00: 22 11 11 20 20 20 20 50 4C 45 41 53 45 20 57 41 |".. PLEASE WA|
00000E10: 49 54 20 2E 2E 2E 2E 2E 22 00 2F 16 D4 00 98 34 |IT ....."./....4|
00000E20: 2C CA 28 42 24 28 30 29 2C 35 2C 32 31 29 3B 00 |,.(B$(0),5,21);.|
00000E30: 41 16 D5 00 8B 20 44 41 24 B2 22 22 20 A7 32 31 |A.... DA$."" .21|
00000E40: 35 00 6D 16 D6 00 98 34 2C C7 28 31 35 29 3B A6 |5.m....4,.(15);.|
00000E50: 32 35 AB C3 28 44 41 24 29 29 3B 22 44 49 52 2E |25..(DA$));"DIR.|
00000E60: 20 44 41 54 45 3A 20 22 3B 44 41 24 3B 00 77 16 | DATE: ";DA$;.w.|
00000E70: D7 00 98 34 3A 98 34 00 7D 16 D8 00 3A 00 9B 16 |...4:.4.}...:...|
00000E80: D9 00 8F 20 4E 4F 57 20 50 52 49 4E 54 20 54 48 |... NOW PRINT TH|
00000E90: 45 20 44 49 52 45 43 54 4F 52 59 00 B4 16 DA 00 |E DIRECTORY.....|
00000EA0: 52 57 20 B2 20 B5 28 28 4A 20 AA 20 57 44 29 AD |RW . .((J . WD).|
00000EB0: 20 57 49 29 00 D1 16 DB 00 3A 20 81 20 49 B2 31 | WI).....: . I.1|
00000EC0: 20 A4 20 52 57 3A 20 81 20 57 B2 31 20 A4 20 57 | . RW: . W.1 . W|
00000ED0: 49 00 10 17 DC 00 3A 20 20 20 8B 28 49 AA 28 57 |I.....: .(I.(W|
00000EE0: AB 31 29 AC 52 57 29 B1 4A A7 20 98 34 2C 22 20 |.1).RW).J. .4," |
00000EF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000F00: 20 20 20 20 20 20 20 20 20 22 3B 3A 89 32 32 32 | ";:.222|
00000F10: 00 36 17 DD 00 3A 20 20 20 98 34 2C 22 20 20 20 |.6...: .4," |
00000F20: 20 20 20 20 20 20 22 42 24 28 49 AA 28 57 AB 31 | "B$(I.(W.1|
00000F30: 29 AC 52 57 29 3B 00 42 17 DE 00 3A 20 20 20 82 |).RW);.B...: .|
00000F40: 20 57 00 55 17 DF 00 3A 20 20 20 98 34 3A 54 46 | W.U...: .4:TF|
00000F50: B2 54 46 AA 31 00 5F 17 E0 00 3A 20 82 20 49 00 |.TF.1._...: . I.|
00000F60: 70 17 E1 00 3A 20 81 20 49 49 B2 31 20 A4 20 33 |p...: . II.1 . 3|
00000F70: 00 7B 17 E2 00 3A 20 20 20 98 34 00 83 17 E3 00 |.{...: .4.....|
00000F80: 3A 20 82 00 89 17 E4 00 3A 00 A8 17 E5 00 8F 20 |: ......:...... |
00000F90: 53 57 49 54 43 48 20 50 52 49 4E 54 45 52 20 54 |SWITCH PRINTER T|
00000FA0: 4F 20 4E 4F 52 4D 41 4C 00 AF 17 E6 00 A0 34 00 |O NORMAL......4.|
00000FB0: B6 17 E7 00 A0 33 00 BD 17 E8 00 A0 34 00 C6 17 |.....3......4...|
00000FC0: E9 00 89 32 34 34 00 DE 17 EA 00 A0 31 3A 20 A0 |...244......1: .|
00000FD0: 20 31 35 3A 20 9F 20 31 35 2C 38 2C 31 35 00 EF | 15: . 15,8,15..|
00000FE0: 17 EB 00 9F 20 31 2C 38 2C 30 2C 22 24 30 22 00 |.... 1,8,0,"$0".|
00000FF0: 04 18 EC 00 84 31 35 2C 45 31 2C 45 32 24 2C 45 |.....15,E1,E2$,E|
00001000: 33 2C 45 34 00 3A 18 ED 00 8B 45 31 B1 30 A7 8D |3,E4.:....E1.0..|
00001010: 32 35 30 3A 99 20 22 93 11 11 11 11 11 11 11 11 |250:. ".........|
00001020: 11 11 20 20 20 20 20 20 20 20 20 20 20 20 22 45 |.. "E|
00001030: 32 24 3A A0 31 3A 89 32 34 31 00 40 18 EE 00 8E |2$:.1:.241.@....|
00001040: 00 46 18 EF 00 3A 00 4C 18 F0 00 8F 00 63 18 F1 |.F...:.L.....c..|
00001050: 00 A1 20 57 24 3A 20 8B 20 57 24 B1 22 22 20 A7 |.. W$: . W$."" .|
00001060: 32 34 31 00 7A 18 F2 00 A1 20 57 24 3A 20 8B 20 |241.z.... W$: . |
00001070: 57 24 B2 22 22 20 A7 32 34 32 00 83 18 F3 00 89 |W$."" .242......|
00001080: 32 33 35 00 AE 18 F4 00 99 22 93 11 11 11 11 11 |235......"......|
00001090: 50 52 49 4E 54 20 44 49 52 45 43 54 4F 52 59 20 |PRINT DIRECTORY |
000010A0: 41 47 41 49 4E 3F 20 20 3C 59 2F 4E 3E 22 00 C1 |AGAIN? <Y/N>"..|
000010B0: 18 F5 00 A1 51 24 3A 8B 51 24 B2 22 22 A7 32 34 |....Q$:.Q$."".24|
000010C0: 35 00 D3 18 F6 00 8B 20 51 24 B3 B1 22 59 22 A7 |5...... Q$.."Y".|
000010D0: 31 35 36 00 0E 19 F7 00 8B 51 24 B2 22 59 22 A7 |156......Q$."Y".|
000010E0: 99 22 9E 11 11 11 53 45 54 20 4E 45 57 20 50 41 |."....SET NEW PA|
000010F0: 47 45 20 49 4E 20 50 52 49 4E 54 45 52 20 41 4E |GE IN PRINTER AN|
00001100: 44 20 48 49 54 20 52 45 54 55 52 4E 9B 22 00 21 |D HIT RETURN.".!|
00001110: 19 F8 00 A1 51 24 3A 8B 51 24 B2 22 22 A7 32 34 |....Q$:.Q$."".24|
00001120: 38 00 2A 19 F9 00 89 32 30 37 00 4B 19 FA 00 53 |8.*....207.K...S|
00001130: B2 35 34 32 37 32 3A 43 43 B2 C2 28 35 33 32 38 |.54272:CC..(5328|
00001140: 30 29 3A 97 35 33 32 38 30 2C 32 00 60 19 FB 00 |0):.53280,2.`...|
00001150: 81 20 54 B2 30 20 A4 20 31 35 20 A9 2E 35 3A 82 |. T.0 . 15 ..5:.|
00001160: 00 6D 19 FC 00 97 53 AA 31 2C 31 30 30 00 79 19 |.m....S.1,100.y.|
00001170: FD 00 97 53 AA 35 2C 31 30 00 87 19 FE 00 97 53 |...S.5,10......S|
00001180: AA 31 35 2C 32 35 35 00 94 19 FF 00 97 53 AA 32 |.15,255......S.2|
00001190: 34 2C 31 35 00 A0 19 00 01 97 53 AA 34 2C 32 31 |4,15......S.4,21|
000011A0: 00 BC 19 01 01 81 20 54 B2 31 20 20 A4 20 31 30 |...... T.1 . 10|
000011B0: 30 30 3A 82 3A 97 53 AA 34 2C 32 30 00 D3 19 02 |00:.:.S.4,20....|
000011C0: 01 81 20 54 B2 31 35 20 A4 20 30 20 A9 AB 2E 35 |.. T.15 . 0 ...5|
000011D0: 3A 82 54 00 E1 19 03 01 97 35 33 32 38 30 2C 43 |:.T......53280,C|
000011E0: 43 00 E7 19 04 01 8E 00 ED 19 05 01 3A 00 0A 1A |C...........:...|
000011F0: 06 01 8F 20 20 53 4F 55 4E 44 20 42 45 4C 4C 20 |... SOUND BELL |
00001200: 53 55 42 52 4F 55 54 49 4E 45 00 40 1A 07 01 3A |SUBROUTINE.@...:|
00001210: 20 97 20 53 44 AA 32 34 2C 31 35 20 20 3A 8F 20 | . SD.24,15 :. |
00001220: 56 4F 49 43 45 20 31 20 56 4F 4C 55 4D 45 20 41 |VOICE 1 VOLUME A|
00001230: 4E 44 20 46 49 4C 54 45 52 20 53 45 4C 45 43 54 |ND FILTER SELECT|
00001240: 00 72 1A 08 01 3A 20 97 20 53 44 AA 34 2C 31 37 |.r...: . SD.4,17|
00001250: 20 20 3A 8F 20 56 4F 49 43 45 20 31 20 43 4F 4E | :. VOICE 1 CON|
00001260: 54 52 4F 4C 2C 20 53 54 41 52 54 20 41 54 54 41 |TROL, START ATTA|
00001270: 43 4B 00 A5 1A 09 01 3A 20 97 20 53 44 AA 34 2C |CK.....: . SD.4,|
00001280: 31 36 20 20 3A 8F 20 56 4F 49 43 45 20 31 20 43 |16 :. VOICE 1 C|
00001290: 4F 4E 54 52 4F 4C 2C 20 53 54 41 52 54 20 52 45 |ONTROL, START RE|
000012A0: 4C 45 41 53 45 00 B1 1A 0A 01 3A 20 54 42 B2 54 |LEASE.....: TB.T|
000012B0: 49 00 C9 1A 0B 01 3A 20 8B 20 28 54 49 AB 54 42 |I.....: . (TI.TB|
000012C0: 29 B3 36 30 20 A7 32 36 37 00 FB 1A 0C 01 3A 20 |).60 .267.....: |
000012D0: 97 20 53 44 AA 32 34 2C 30 20 20 3A 8F 20 56 4F |. SD.24,0 :. VO|
000012E0: 49 43 45 20 31 20 43 4F 4E 54 52 4F 4C 2C 20 43 |ICE 1 CONTROL, C|
000012F0: 4C 45 41 52 20 56 4F 4C 55 4D 45 00 03 1B 0D 01 |LEAR VOLUME.....|
00001300: 3A 20 8E 00 09 1B 0E 01 3A 00 34 1B 0F 01 8F 20 |: ......:.4.... |
00001310: 20 53 45 54 20 55 50 20 53 49 44 20 52 45 47 49 | SET UP SID REGI|
00001320: 53 54 45 52 53 20 46 4F 52 20 42 45 4C 4C 20 53 |STERS FOR BELL S|
00001330: 4F 55 4E 44 00 60 1B 10 01 3A 20 53 44 B2 35 34 |OUND.`...: SD.54|
00001340: 32 37 32 20 20 20 20 20 20 20 3A 8F 20 41 44 44 |272 :. ADD|
00001350: 52 45 53 53 20 4F 46 20 53 49 44 20 43 48 49 50 |RESS OF SID CHIP|
00001360: 00 91 1B 11 01 3A 20 97 20 53 44 2C 20 20 31 30 |.....: . SD, 10|
00001370: 30 20 20 3A 8F 20 56 4F 49 43 45 20 31 20 46 52 |0 :. VOICE 1 FR|
00001380: 45 51 55 45 4E 43 59 2C 20 4C 4F 57 20 42 59 54 |EQUENCY, LOW BYT|
00001390: 45 00 C3 1B 12 01 3A 20 97 20 53 44 AA 20 31 2C |E.....: . SD. 1,|
000013A0: 35 36 20 20 3A 8F 20 56 4F 49 43 45 20 31 20 46 |56 :. VOICE 1 F|
000013B0: 52 45 51 55 45 4E 43 59 2C 20 48 49 47 48 20 42 |REQUENCY, HIGH B|
000013C0: 59 54 45 00 ED 1B 13 01 3A 20 97 20 53 44 AA 20 |YTE.....: . SD. |
000013D0: 35 2C 20 38 20 20 3A 8F 20 56 4F 49 43 45 20 31 |5, 8 :. VOICE 1|
000013E0: 20 41 54 54 41 43 4B 2F 44 45 43 41 59 00 1F 1C | ATTACK/DECAY...|
000013F0: 14 01 3A 20 97 20 53 44 AA 20 36 2C 28 39 AC 31 |..: . SD. 6,(9.1|
00001400: 36 AA 31 30 29 3A 8F 20 56 4F 49 43 45 20 31 20 |6.10):. VOICE 1 |
00001410: 53 55 53 54 41 49 4E 2F 52 45 4C 45 41 53 45 00 |SUSTAIN/RELEASE.|
00001420: 25 1C 15 01 8E 00 2B 1C 16 01 3A 00 50 1C 17 01 |%.....+...:.P...|
00001430: 83 22 D5 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |."..............|
00001440: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C9 |................|
00001450: 00 75 1C 18 01 83 22 C2 20 20 20 20 20 20 20 20 |.u....". |
00001460: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001470: 20 20 20 20 C2 00 9A 1C 19 01 83 22 C2 20 27 53 | .......". 'S|
00001480: 27 20 53 4F 52 54 45 44 20 20 20 20 27 55 27 20 |' SORTED 'U' |
00001490: 55 4E 53 4F 52 54 45 44 20 C2 00 BF 1C 1A 01 83 |UNSORTED .......|
000014A0: 22 C2 20 27 4E 27 20 4E 4F 20 50 52 49 4E 54 20 |". 'N' NO PRINT |
000014B0: 20 27 51 27 20 51 55 49 54 20 20 20 20 20 C2 00 | 'Q' QUIT ..|
000014C0: E4 1C 1B 01 83 22 C2 20 20 20 20 20 20 20 20 20 |.....". |
000014D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000014E0: 20 20 20 C2 00 09 1D 1C 01 83 22 C2 20 3D 3E 20 | .......". => |
000014F0: 50 52 45 53 53 20 44 45 53 49 52 45 44 20 4C 45 |PRESS DESIRED LE|
00001500: 54 54 45 52 20 20 20 20 C2 00 2E 1D 1D 01 83 22 |TTER ......."|
00001510: CA C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00001520: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 CB 00 00 |................|
00001530: 00 |. |
....D.. SET UP SOUND REGISTERS.<.E.: .2
63: . SOUND ROUTINE.B.F.:.^.G.. SET UP
SCREEN COLORS...H.: . 53280,12 :. BORD
ER MEDIUM GRAY...I.: . 53281,15 :. BACK
GROUND LIGHT GRAY.U.J.: . 646,11 :. T
EXT DARK GRAY...K.:...L.. TEST IF PLOTT
ER PRESENT.5.M.: . "..............."
:. POSITION CURSOR.V.N.: SC$.
".." :. RED
REVERSE VIDEO...O.: . 4,6,0
:. OPEN ASCII PORT...P.:
4 :. CL
OSE PORT, ST=0 IF PRESENT.$.Q.: . ST.0 .
128:. GO OPEN PRINTER PORTS.\.R.: . BL.
0 . BL.1: .272:. SOUND BELL, ONCE IS EN
OUGH...S.: . "......"
:. CURSOR UP TO OVERLAY.C.T.: . .8)
;"U......................I"...U.: . .8);
".";SC$;" ...".#.V.
: . .8);".";SC$;" MAKE PLOTTER READY .
..".S.W.: . .8);".";SC$;"
...".Z.X.: . .8);"J..............
........K"...Y.: . SC$.".." . SC$.".": .
123:. ALTERNATE BETWEEN INVISIBLE...Z.:
. SC$."." . SC$.".." :.
(LIGHT GRAY) AND RED REVERSE.D.{.: GT.TI
:. SAVE
TIMER VALUE.Q.|.: . TI.GT.60 .124:. LO
OP FOR 60 JIFFIES...}.: .111:. GO RETRY
PLOTTER...~.:..... PLOTTER IS PRESENT
, OPEN THE PORTS.....: . 1,6,1 :. PLOTT
ING PORT.....: . 2,6,2 :. PEN COLOR SEL
ECT PORT.....: . 3,6,3 :. CHARACTER SIZ
E PORT.K...: . 4,6,0 :. ASCII PORT.Q...
:.Y...: WIDTH.2: WD.WI.1: . WIDTH=COLUMN
S....:.....: . B$(200).....: .15,8,15:.
15,"U;": 15.....:.....: . ".. ...
.........................".....: . "
.. *2 COLUMN DIRECTORY* ..".>...:
. " .. FOR THE 1520 PLOTTER ..".L
...: . " .. FROM
..".....: . " .. THE PLOTTING
SHED ..".I...: . " ............
................".....: .".....DO YOU WA
NT TO PRINT THE DATE.)...: ."...ON THE D
IRECTORY LISTING (Y.N) N...";QU$.^...:
.:INPUT"...ON THE DIRECTORY LISTING <Y/N
>";QU$.U...: . QU$ . "N" .155.....: . QU
$ . "Y" .150.....: .155.....: .". .P
LEASE, NO COMMAS!.".....: ."....... M
AX LENGTH ".....: ."......<---+----+-
---+-->.".....: ."...";DA$.H...: . C(DA$
).18 . .".....DATE STRING TOO LONG":.144
.A.... I.1 . 7:. A$(I): ......."......."
: J.0 :. I . 1 . 200: B$(I)."": .......
I.1 . 10: ." ."A$(I)"": ..K.... Q$:.
Q$."" .158...... Q$:. Q$."" .159... ..:
IF Q$="A" THEN PRINT"155":GOTO1150.;....
Q$.."S" . Q$.."U" . Q$.."N" . Q$.."Q" .
156.X.... Q$."Q" . 15: .".": .......:I
F Q$<>"S" AND Q$<>"U" AND Q$<>"N" AND Q$
<>"A" THEN660.J....". .
.": Z..1.S....234.....
.#1,A$,B$......#1,A$,B$......#1,A$,B$...
..C.0...... A$.."" . C.F(A$).9.... B$.."
" . C.C.F(B$).256.J...Z$.J(D(C),2).C....
C(Z$).1 . Z$." ".~.... C(Z$).1 . Z$."
".Z$...... C(Z$).2 . Z$." ".Z$.....B$(
J)." ".Z$." ".G(34).....LZ.0.W....#1,B$:
. ST..0 . .189...... B$..G(34) .178.$..
..#1,B$: . B$..G(34) . B$(J).B$(J).B$: L
Z.LZ.1: .180.@....#1,B$: . B$.G(32) .181
.A...B$(J).B$(J).G(34):.LZ.15.184......
JZ.LZ . 15: B$(J).B$(J)." ": . JZ.....C$
."".....C$.C$.B$: .#1,B$: . B$.."" .185
.W...SS.ST: B$(J).B$(J).H(C$,3)...... "
. "B$(J)" .": J.J.1...... SS.0 .1
67.8...B$(J).H(B$(J),C(B$(J)).1)." BLOCK
S FREE.".A.... " . "B$(J)"
.": 1.T.... Q$.."N" .196...... Q$:.
Q$."" .192...A..".. PRESS ANY KEY ...
..".A.B.. Q$:. Q$."" .194.J.C..156...D..
Q$."U" .207...E.LB.2...F.: . II.J.1 . L
B . .1.0.G.: . J(B$(II.1),7,15) .. J(B
$(II),7,15) .204.E.H.: EX$ . B$(II)._.
I.: B$(II) . B$(II.1).V.J.: B$(II.1)
. EX$...K.: FX . II...L.: . II...M..
LB.FX.1 .207...N.LB . FX.1: .198.J.O. 4:
. 4,6:TF.4...P. 3:.3,6,3:.3,0...Q.:...R.
. PRINT THE HEADER...S..".. PLEASE WA
IT ....."./.T..4,J(B$(0),5,21);.A.U.. DA
$."" .215.M.V..4,G(15);.25.C(DA$));"DIR.
DATE: ";DA$;.W.W..4:.4.}.X.:...Y.. NOW
PRINT THE DIRECTORY...Z.RW . .((J . WD).
WI).Q...: . I.1 . RW: . W.1 . WI.....:
.(I.(W.1).RW).J. .4,"
";:.222.6...: .4," "B
$(I.(W.1).RW);.B...: . W.U...: .4:TF
.TF.1._...: . I.P...: . II.1 . 3.{...:
.4.....: ......:...... SWITCH PRINTER T
O NORMAL..... 4..... 3..... 4.F....244..
... 1: 15: . 15,8,15...... 1,8,0,"$0".
.....15,E1,E2$,E3,E4.:....E1.0..250:. ".
.......... "E2$: 1:.241.@....
.F...:.L.....C.... W$: . W$."" .241.Z...
. W$: . W$."" .242......235......"......
PRINT DIRECTORY AGAIN? <Y/N>".A....Q$:.
Q$."".245.S.... Q$.."Y".156......Q$."Y".
."....SET NEW PAGE IN PRINTER AND HIT RE
TURN.".!....Q$:.Q$."".248.*....207.K...S
.54272:CC.B(53280):.53280,2.`.... T.0 .
15 ..5:..M....S.1,100.Y....S.5,10......S
.15,255......S.24,15. ....S.4,21...... T
.1 . 1000:.:.S.4,20.S.... T.15 . 0 ...5
:.T......53280,CC...........:...... SOU
ND BELL SUBROUTINE.@...: . SD.24,15 :.
VOICE 1 VOLUME AND FILTER SELECT.R...: .
SD.4,17 :. VOICE 1 CONTROL, START ATTA
CK.....: . SD.4,16 :. VOICE 1 CONTROL,
START RELEASE.....: TB.TI.I...: . (TI.TB
).60 .267.....: . SD.24,0 :. VOICE 1 CO
NTROL, CLEAR VOLUME.....: ......:.4....
SET UP SID REGISTERS FOR BELL SOUND.`..
.: SD.54272 :. ADDRESS OF SID CHIP
.....: . SD, 100 :. VOICE 1 FREQUENCY,
LOW BYTE.C...: . SD. 1,56 :. VOICE 1 F
REQUENCY, HIGH BYTE.....: . SD. 5, 8 :.
VOICE 1 ATTACK/DECAY.....: . SD. 6,(9.1
6.10):. VOICE 1 SUSTAIN/RELEASE.%.....+.
..:.P...."U............................I
.U...."B B...
..."B 'S' SORTED 'U' UNSORTED B......
"B 'N' NO PRINT 'Q' QUIT B......"B
B......"B =>
PRESS DESIRED LETTER B......"J.......
.....................K...
> CLICK IMAGE PREVIEW FOR FULL MODAL