27.DIR-DRUCK
FILE INFORMATION
FILENAME(S): 27.DIR-DRUCK
FILE TYPE(S): PRG
FILE SIZE: 2.7K
FIRST SEEN: 2025-11-30 01:08:26
APPEARS ON: 2 disk(s)
FILE HASH
62f5efd3e39e8d1e22b31238753f83f1cd29dd9090a12d185bca4521dbaa3549
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FREEWARE DISK NR | 27.DIR-DRUCK | PRG | Treasure Chest - Wolfgang Rauprich | 6 | 0 | DOWNLOAD FILE |
| U TILITIES | 27.DIR-DRUCK | PRG | Treasure Chest - Wolfgang Rauprich | 6 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 08 08 00 00 3A 8F 00 2F 08 01 00 3A 57 49 |......:../...:WI| 00000010: 44 54 48 B2 33 3A 20 57 44 B2 57 49 AB 31 3A 20 |DTH.3: WD.WI.1: | 00000020: 8F 20 57 49 44 54 48 3D 43 4F 4C 55 4D 4E 53 00 |. WIDTH=COLUMNS.| 00000030: 54 08 0A 00 83 22 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |T...."**********| 00000040: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000050: 2A 2A 2A 2A 00 79 08 14 00 83 22 2A 20 20 20 20 |****.y...."* | 00000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000070: 20 20 20 20 20 20 20 20 2A 00 9E 08 1E 00 83 22 | *......"| 00000080: 2A 20 20 20 20 44 49 52 45 43 54 4F 52 59 20 20 |* DIRECTORY | 00000090: 20 20 50 52 49 4E 54 45 52 20 20 20 20 2A 00 C3 | PRINTER *..| 000000A0: 08 28 00 83 22 2A 20 20 20 20 20 20 20 20 20 20 |.(.."* | 000000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000C0: 20 20 2A 00 E8 08 32 00 83 22 2A 2A 2A 2A 2A 2A | *...2.."******| 000000D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000000E0: 2A 2A 2A 2A 2A 2A 2A 2A 00 0D 09 3C 00 83 22 2A |********...<.."*| 000000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000100: 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 32 09 | *.2.| 00000110: 41 00 83 22 2A 20 27 53 27 20 53 4F 52 54 45 44 |A.."* 'S' SORTED| 00000120: 20 20 20 20 27 55 27 20 55 4E 53 4F 52 54 45 44 | 'U' UNSORTED| 00000130: 20 2A 00 57 09 46 00 83 22 2A 20 27 4E 27 20 4E | *.W.F.."* 'N' N| 00000140: 4F 20 50 52 49 4E 54 20 20 27 51 27 20 51 55 49 |O PRINT 'Q' QUI| 00000150: 54 20 20 20 20 20 2A 00 7C 09 50 00 83 22 2A 20 |T *.|.P.."* | 00000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000170: 20 20 20 20 20 20 20 20 20 20 20 2A 00 A1 09 5A | *...Z| 00000180: 00 83 22 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.."*************| 00000190: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000001A0: 2A 00 CC 09 64 00 97 35 33 32 38 30 2C 31 32 3A |*...d..53280,12:| 000001B0: 97 35 33 32 38 31 2C 31 31 3A 97 36 34 36 2C 31 |.53281,11:.646,1| 000001C0: 35 3A 20 86 20 42 24 28 31 30 30 29 00 E9 09 6E |5: . B$(100)...n| 000001D0: 00 81 20 49 20 B2 20 31 20 A4 20 31 30 3A 20 87 |.. I . 1 . 10: .| 000001E0: 20 41 24 28 49 29 3A 20 82 00 19 0A 78 00 99 22 | A$(I): ....x.."| 000001F0: 93 11 11 11 11 11 11 22 3A 20 4A B2 30 20 3A 81 |.......": J.0 :.| 00000200: 20 49 20 B2 20 31 20 A4 20 31 30 30 3A 20 42 24 | I . 1 . 100: B$| 00000210: 28 49 29 B2 22 22 3A 20 82 00 40 0A 82 00 81 20 |(I)."": ..@.... | 00000220: 49 20 B2 20 31 20 A4 20 31 30 3A 20 99 22 20 20 |I . 1 . 10: ." | 00000230: 20 20 20 12 22 41 24 28 49 29 22 92 22 3A 20 82 | ."A$(I)".": .| 00000240: 00 58 0A 8C 00 A1 20 51 24 3A 20 8B 20 51 24 B1 |.X.... Q$: . Q$.| 00000250: 22 22 20 A7 20 31 34 30 00 70 0A 96 00 A1 20 51 |"" . 140.p.... Q| 00000260: 24 3A 20 8B 20 51 24 B2 22 22 20 A7 20 31 35 30 |$: . Q$."" . 150| 00000270: 00 8D 0A A0 00 8B 20 51 24 B2 22 51 22 20 A7 20 |...... Q$."Q" . | 00000280: A0 20 31 35 3A 20 99 22 93 22 3A 20 80 00 B5 0A |. 15: .".": ....| 00000290: AA 00 8B 20 51 24 B3 B1 22 53 22 20 AF 20 51 24 |... Q$.."S" . Q$| 000002A0: B3 B1 22 55 22 20 AF 20 51 24 B3 B1 22 4E 22 20 |.."U" . Q$.."N" | 000002B0: A7 20 31 32 30 00 EA 0A C8 00 99 22 93 20 20 20 |. 120......". | 000002C0: 20 12 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | . | 000002D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000002E0: 20 20 92 22 3A 20 5A B2 AB 31 00 F3 0A D2 00 8D | .": Z..1......| 000002F0: 38 38 30 00 01 0B 18 01 A1 23 31 2C 41 24 2C 42 |880......#1,A$,B| 00000300: 24 00 0F 0B 22 01 A1 23 31 2C 41 24 2C 42 24 00 |$..."..#1,A$,B$.| 00000310: 1D 0B 2C 01 A1 23 31 2C 41 24 2C 42 24 00 25 0B |..,..#1,A$,B$.%.| 00000320: 36 01 43 B2 30 00 3C 0B 40 01 8B 20 41 24 B3 B1 |6.C.0.<.@.. A$..| 00000330: 22 22 20 A7 20 43 B2 C6 28 41 24 29 00 59 0B 4A |"" . C..(A$).Y.J| 00000340: 01 8B 20 42 24 B3 B1 22 22 20 A7 20 43 B2 43 AA |.. B$.."" . C.C.| 00000350: C6 28 42 24 29 AC 32 35 36 00 6A 0B 54 01 5A 24 |.(B$).256.j.T.Z$| 00000360: B2 CA 28 C4 28 43 29 2C 32 29 00 83 0B 5E 01 8B |..(.(C),2)...^..| 00000370: 20 C3 28 5A 24 29 B3 31 20 A7 20 5A 24 B2 22 20 | .(Z$).1 . Z$." | 00000380: 20 20 22 00 9E 0B 68 01 8B 20 C3 28 5A 24 29 B2 | "...h.. .(Z$).| 00000390: 31 20 A7 20 5A 24 B2 22 20 20 22 AA 5A 24 00 B8 |1 . Z$." ".Z$..| 000003A0: 0B 72 01 8B 20 C3 28 5A 24 29 B2 32 20 A7 20 5A |.r.. .(Z$).2 . Z| 000003B0: 24 B2 22 20 22 AA 5A 24 00 D3 0B 7C 01 42 24 28 |$." ".Z$...|.B$(| 000003C0: 4A 29 B2 22 20 22 AA 5A 24 AA 22 20 22 AA C7 28 |J)." ".Z$." "..(| 000003D0: 33 34 29 00 DC 0B 86 01 4C 5A B2 30 00 FA 0B 90 |34).....LZ.0....| 000003E0: 01 A1 23 31 2C 42 24 3A 20 8B 20 53 54 B3 B1 30 |..#1,B$: . ST..0| 000003F0: 20 A7 20 CB 20 A4 20 35 31 30 00 10 0C 9A 01 8B | . . . 510......| 00000400: 20 42 24 B3 B1 C7 28 33 34 29 20 A7 20 34 30 30 | B$...(34) . 400| 00000410: 00 49 0C A4 01 A1 23 31 2C 42 24 3A 20 8B 20 42 |.I....#1,B$: . B| 00000420: 24 B3 B1 C7 28 33 34 29 20 A7 20 42 24 28 4A 29 |$...(34) . B$(J)| 00000430: B2 42 24 28 4A 29 AA 42 24 3A 20 4C 5A B2 4C 5A |.B$(J).B$: LZ.LZ| 00000440: AA 31 3A 20 89 20 34 32 30 00 66 0C AE 01 A1 23 |.1: . 420.f....#| 00000450: 31 2C 42 24 3A 20 8B 20 42 24 B2 C7 28 33 32 29 |1,B$: . B$..(32)| 00000460: 20 A7 20 34 33 30 00 8B 0C B8 01 42 24 28 4A 29 | . 430.....B$(J)| 00000470: B2 42 24 28 4A 29 AA C7 28 33 34 29 3A 20 8B 20 |.B$(J)..(34): . | 00000480: 4C 5A B1 31 35 20 A7 20 34 36 30 00 B3 0C C2 01 |LZ.15 . 460.....| 00000490: 81 20 4A 5A B2 4C 5A 20 A4 20 31 35 3A 20 42 24 |. JZ.LZ . 15: B$| 000004A0: 28 4A 29 B2 42 24 28 4A 29 AA 22 20 22 3A 20 82 |(J).B$(J)." ": .| 000004B0: 20 4A 5A 00 BD 0C CC 01 43 24 B2 22 22 00 E3 0C | JZ.....C$.""...| 000004C0: D6 01 43 24 B2 43 24 AA 42 24 3A 20 A1 23 31 2C |..C$.C$.B$: .#1,| 000004D0: 42 24 3A 20 8B 20 42 24 B3 B1 22 22 20 20 A7 20 |B$: . B$.."" . | 000004E0: 34 37 30 00 02 0D E0 01 53 53 B2 53 54 3A 20 42 |470.....SS.ST: B| 000004F0: 24 28 4A 29 B2 42 24 28 4A 29 AA C8 28 43 24 2C |$(J).B$(J)..(C$,| 00000500: 33 29 00 25 0D EA 01 99 20 22 20 20 20 20 12 20 |3).%.... " . | 00000510: 20 22 42 24 28 4A 29 22 20 20 20 20 92 22 3A 20 | "B$(J)" .": | 00000520: 4A B2 4A AA 31 00 36 0D F4 01 8B 20 53 53 B2 30 |J.J.1.6.... SS.0| 00000530: 20 A7 20 32 39 30 00 64 0D FE 01 42 24 28 4A 29 | . 290.d...B$(J)| 00000540: B2 C8 28 42 24 28 4A 29 2C C3 28 42 24 28 4A 29 |..(B$(J),.(B$(J)| 00000550: 29 AB 31 29 AA 22 20 42 4C 4F 43 4B 53 20 46 52 |).1)." BLOCKS FR| 00000560: 45 45 2E 22 00 8D 0D 08 02 99 20 22 20 20 20 20 |EE."...... " | 00000570: 12 20 20 22 42 24 28 4A 29 22 20 20 20 20 20 20 |. "B$(J)" | 00000580: 20 20 20 20 20 20 92 22 3A 20 A0 20 31 00 A1 0D | .": . 1...| 00000590: 12 02 8B 20 51 24 B3 B1 22 4E 22 20 A7 20 35 37 |... Q$.."N" . 57| 000005A0: 30 00 B9 0D 1C 02 A1 20 51 24 3A 20 8B 20 51 24 |0...... Q$: . Q$| 000005B0: B1 22 22 20 A7 20 35 34 30 00 D1 0D 26 02 A1 20 |."" . 540...&.. | 000005C0: 51 24 3A 20 8B 20 51 24 B2 22 22 20 A7 20 35 35 |Q$: . Q$."" . 55| 000005D0: 30 00 DD 0D 30 02 CB 20 A4 20 31 32 30 00 F0 0D |0...0.. . 120...| 000005E0: 3A 02 8B 20 51 24 B2 22 55 22 20 A7 20 36 38 30 |:.. Q$."U" . 680| 000005F0: 00 F9 0D 44 02 4C 42 B2 32 00 10 0E 4E 02 81 20 |...D.LB.2...N.. | 00000600: 49 49 B2 4A AB 31 20 A4 20 4C 42 20 A9 20 AB 31 |II.J.1 . LB . .1| 00000610: 00 3F 0E 58 02 8B 20 CA 28 42 24 28 49 49 AB 31 |.?.X.. .(B$(II.1| 00000620: 29 2C 37 2C 31 35 29 20 B3 B2 20 CA 28 42 24 28 |),7,15) .. .(B$(| 00000630: 49 49 29 2C 37 2C 31 35 29 20 A7 20 36 35 30 00 |II),7,15) . 650.| 00000640: 50 0E 62 02 45 58 24 20 B2 20 42 24 28 49 49 29 |P.b.EX$ . B$(II)| 00000650: 00 66 0E 6C 02 42 24 28 49 49 29 20 B2 20 42 24 |.f.l.B$(II) . B$| 00000660: 28 49 49 AB 31 29 00 79 0E 76 02 42 24 28 49 49 |(II.1).y.v.B$(II| 00000670: AB 31 29 20 B2 20 45 58 24 00 85 0E 80 02 46 58 |.1) . EX$.....FX| 00000680: 20 B2 20 49 49 00 8E 0E 8A 02 82 20 49 49 00 A2 | . II...... II..| 00000690: 0E 94 02 8B 20 4C 42 B2 46 58 AA 31 20 A7 20 36 |.... LB.FX.1 . 6| 000006A0: 38 30 00 B9 0E 9E 02 4C 42 20 B2 20 46 58 AA 31 |80.....LB . FX.1| 000006B0: 3A 20 CB 20 A4 20 35 39 30 00 C3 0E A8 02 9F 20 |: . . 590...... | 000006C0: 34 2C 34 00 DE 0E B2 02 98 34 3A 20 8F 20 50 52 |4,4......4: . PR| 000006D0: 49 4E 54 20 54 48 45 20 48 45 41 44 45 52 00 EB |INT THE HEADER..| 000006E0: 0E BC 02 98 34 2C 42 24 28 30 29 00 39 0F C6 02 |....4,B$(0).9...| 000006F0: 8F 20 54 48 45 20 4E 45 58 54 20 43 4F 4D 4D 41 |. THE NEXT COMMA| 00000700: 4E 44 53 20 53 45 4E 44 53 20 43 4F 4E 54 52 4F |NDS SENDS CONTRO| 00000710: 4C 20 20 54 4F 20 50 52 4F 57 52 49 54 45 52 20 |L TO PROWRITER | 00000720: 4F 52 20 4E 45 43 2D 38 30 32 33 20 50 52 49 4E |OR NEC-8023 PRIN| 00000730: 54 45 52 53 20 54 48 52 55 00 7E 0F D0 02 8F 20 |TERS THRU.~.... | 00000740: 54 59 4D 41 43 20 27 43 4F 4E 4E 45 43 54 49 4F |TYMAC 'CONNECTIO| 00000750: 4E 27 20 54 4F 20 53 57 49 54 43 48 20 54 4F 20 |N' TO SWITCH TO | 00000760: 20 43 4F 4E 44 45 4E 53 45 44 20 4D 4F 44 45 20 | CONDENSED MODE | 00000770: 41 4E 44 20 57 49 44 45 20 4C 49 4E 45 53 00 BC |AND WIDE LINES..| 00000780: 0F DA 02 8B 20 57 49 B1 32 20 A7 20 98 34 2C C7 |.... WI.2 . .4,.| 00000790: 28 32 37 29 C7 28 32 37 29 22 51 22 3B 3A 20 8F |(27).(27)"Q";: .| 000007A0: 20 43 4F 4E 44 45 4E 53 45 44 20 4D 4F 44 45 20 | CONDENSED MODE | 000007B0: 46 4F 52 20 3E 20 32 20 43 4F 4C 2E 00 FA 0F E4 |FOR > 2 COL.....| 000007C0: 02 8B 20 57 49 B1 33 20 A7 20 98 34 2C C7 28 32 |.. WI.3 . .4,.(2| 000007D0: 37 29 22 57 22 C7 28 31 33 32 29 3B 3A 20 8F 20 |7)"W".(132);: . | 000007E0: 57 49 44 45 20 4C 49 4E 45 53 20 54 4F 20 50 52 |WIDE LINES TO PR| 000007F0: 45 56 45 4E 54 20 43 52 27 53 00 18 10 EE 02 8F |EVENT CR'S......| 00000800: 20 4E 4F 57 20 50 52 49 4E 54 20 54 48 45 20 44 | NOW PRINT THE D| 00000810: 49 52 45 43 54 4F 52 59 00 31 10 F8 02 52 57 20 |IRECTORY.1...RW | 00000820: B2 20 B5 28 28 4A 20 AA 20 57 44 29 AD 20 57 49 |. .((J . WD). WI| 00000830: 29 00 4C 10 02 03 81 20 49 B2 31 20 A4 20 52 57 |).L.... I.1 . RW| 00000840: 3A 20 81 20 57 B2 31 20 A4 20 57 49 00 8E 10 0C |: . W.1 . WI....| 00000850: 03 8B 20 28 49 20 AA 20 28 57 AB 31 29 AC 52 57 |.. (I . (W.1).RW| 00000860: 20 29 20 B1 20 4A 20 A7 20 98 34 2C 22 20 20 20 | ) . J . .4," | 00000870: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000880: 20 20 20 20 20 20 20 22 3B 3A 89 38 30 30 00 A8 | ";:.800..| 00000890: 10 16 03 98 34 2C 42 24 28 49 20 AA 20 28 57 AB |....4,B$(I . (W.| 000008A0: 31 29 AC 52 57 20 29 3B 00 B4 10 20 03 82 20 57 |1).RW );... .. W| 000008B0: 3A 20 98 34 00 BC 10 2A 03 82 20 49 00 C3 10 34 |: .4...*.. I...4| 000008C0: 03 98 34 00 E2 10 3E 03 8F 20 53 57 49 54 43 48 |..4...>.. SWITCH| 000008D0: 20 50 52 49 4E 54 45 52 20 54 4F 20 4E 4F 52 4D | PRINTER TO NORM| 000008E0: 41 4C 00 10 11 48 03 8B 20 57 49 B1 32 20 A7 20 |AL...H.. WI.2 . | 000008F0: 98 34 2C C7 28 32 37 29 C7 28 32 37 29 22 4E 22 |.4,.(27).(27)"N"| 00000900: 3B 3A 20 8F 20 55 4E 43 4F 4E 44 45 4E 53 45 44 |;: . UNCONDENSED| 00000910: 00 49 11 52 03 8B 20 57 49 B1 33 20 A7 20 98 34 |.I.R.. WI.3 . .4| 00000920: 2C C7 28 32 37 29 22 57 22 C7 28 38 30 29 3B 3A |,.(27)"W".(80);:| 00000930: 20 8F 20 42 41 43 4B 20 54 4F 20 38 30 20 43 4F | . BACK TO 80 CO| 00000940: 4C 55 4D 4E 20 4C 49 4E 45 00 51 11 5C 03 A0 20 |LUMN LINE.Q.\.. | 00000950: 34 00 5D 11 66 03 CB 20 A4 20 31 32 30 00 71 11 |4.].f.. . 120.q.| 00000960: 70 03 A0 20 31 35 3A 20 9F 20 31 35 2C 38 2C 31 |p.. 15: . 15,8,1| 00000970: 35 00 82 11 7A 03 9F 20 31 2C 38 2C 30 2C 22 24 |5...z.. 1,8,0,"$| 00000980: 30 22 00 97 11 84 03 84 31 35 2C 45 31 2C 45 32 |0"......15,E1,E2| 00000990: 24 2C 45 33 2C 45 34 00 D1 11 8E 03 8B 20 45 31 |$,E3,E4...... E1| 000009A0: B1 30 20 A7 20 99 20 22 93 11 11 11 11 11 11 11 |.0 . . "........| 000009B0: 11 11 11 20 20 20 20 20 20 20 20 20 20 20 20 22 |... "| 000009C0: 45 32 24 3A 20 A0 20 31 3A 20 CB 20 A4 20 39 33 |E2$: . 1: . . 93| 000009D0: 30 00 D7 11 98 03 8E 00 EF 11 A2 03 A1 20 57 24 |0............ W$| 000009E0: 3A 20 8B 20 57 24 B1 22 22 20 A7 20 39 33 30 00 |: . W$."" . 930.| 000009F0: 07 12 AC 03 A1 20 57 24 3A 20 8B 20 57 24 B2 22 |..... W$: . W$."| 00000A00: 22 20 A7 20 39 34 30 00 13 12 B6 03 CB 20 A4 20 |" . 940...... . | 00000A10: 38 39 30 00 00 00 00 1A 1A 1A 1A 1A 1A 1A 1A 1A |890.............| 00000A20: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A |................| 00000A30: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A |................| 00000A40: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A |................| 00000A50: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A |................| 00000A60: 1A 1A 1A 1A 1A 24 B1 22 22 20 A7 20 39 33 30 00 |.....$."" . 930.| 00000A70: 22 12 AC 03 A1 20 57 24 3A 20 8B 20 57 24 B2 22 |".... W$: . W$."| 00000A80: 22 20 A7 20 39 34 30 00 2E 12 B6 03 CB 20 A4 20 |" . 940...... . | 00000A90: 38 39 30 00 00 00 00 1A 1A 1A 1A 1A 1A 1A 1A 1A |890.............| 00000AA0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A |................| 00000AB0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A |................| 00000AC0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A |................| 00000AD0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A |................| 00000AE0: 1A 1A 1A 1A 1A |..... |
......:../...:WIDTH.3: WD.WI.1: . WIDTH=
COLUMNS.T...."**************************
****.Y...."*
*......"* DIRECTORY PRINTER *.C
.(.."* *...2.
."******************************...<.."*
*.2.A.."* 'S
' SORTED 'U' UNSORTED *.W.F.."* 'N' N
O PRINT 'Q' QUIT *.|.P.."*
*...Z.."*************
*****************.L.D..53280,12:.53281,1
1:.646,15: . B$(100)...N.. I . 1 . 10: .
A$(I): ....X..".......": J.0 :. I . 1 .
100: B$(I)."": ..@.... I . 1 . 10: ."
."A$(I)".": ..X.... Q$: . Q$."" . 140
.P.... Q$: . Q$."" . 150... .. Q$."Q" .
15: .".": ....... Q$.."S" . Q$.."U" .
Q$.."N" . 120...H..". .
.": Z..1...R..880.....
.#1,A$,B$..."..#1,A$,B$...,..#1,A$,B$.%.
6.C.0.<.@.. A$.."" . C.F(A$).Y.J.. B$.."
" . C.C.F(B$).256.J.T.Z$.J(D(C),2)...^..
C(Z$).1 . Z$." "...H.. C(Z$).1 . Z$."
".Z$...R.. C(Z$).2 . Z$." ".Z$.S.|.B$(
J)." ".Z$." ".G(34).....LZ.0......#1,B$:
. ST..0 . K . 510...... B$..G(34) . 400
.I....#1,B$: . B$..G(34) . B$(J).B$(J).B
$: LZ.LZ.1: . 420.F....#1,B$: . B$.G(32)
. 430.....B$(J).B$(J).G(34): . LZ.15 .
460...B.. JZ.LZ . 15: B$(J).B$(J)." ": .
JZ...L.C$.""...V.C$.C$.B$: .#1,B$: . B$
.."" . 470.....SS.ST: B$(J).B$(J).H(C$,
3).%.... " . "B$(J)" .": J.J.1.6.
... SS.0 . 290.D...B$(J).H(B$(J),C(B$(J)
).1)." BLOCKS FREE."...... " . "B$(J
)" .": 1...... Q$.."N" . 57
0...... Q$: . Q$."" . 540.Q.&.. Q$: . Q$
."" . 550...0.K . 120...:.. Q$."U" . 680
...D.LB.2...N.. II.J.1 . LB . .1.?.X.. J
(B$(II.1),7,15) .. J(B$(II),7,15) . 650.
P.B.EX$ . B$(II).F.L.B$(II) . B$(II.1).Y
.V.B$(II.1) . EX$.....FX . II...... II..
.... LB.FX.1 . 680.....LB . FX.1: K . 59
0.C.... 4,4......4: . PRINT THE HEADER..
....4,B$(0).9.F.. THE NEXT COMMANDS SEND
S CONTROL TO PROWRITER OR NEC-8023 PRIN
TERS THRU.~.P.. TYMAC 'CONNECTION' TO SW
ITCH TO CONDENSED MODE AND WIDE LINES..
.Z.. WI.2 . .4,G(27)G(27)"Q";: . CONDENS
ED MODE FOR > 2 COL....... WI.3 . .4,G(2
7)"W"G(132);: . WIDE LINES TO PREVENT CR
'S...... NOW PRINT THE DIRECTORY.1...RW
. .((J . WD). WI).L.... I.1 . RW: . W.1
. WI...... (I . (W.1).RW ) . J . .4,"
";:.800......4,B$
(I . (W.1).RW );... .. W: .4...*.. I.C.4
..4...>.. SWITCH PRINTER TO NORMAL...H..
WI.2 . .4,G(27)G(27)"N";: . UNCONDENSED
.I.R.. WI.3 . .4,G(27)"W"G(80);: . BACK
TO 80 COLUMN LINE.Q.\. 4.].F.K . 120.Q.
P. 15: . 15,8,15...Z.. 1,8,0,"$0"......
15,E1,E2$,E3,E4.Q.... E1.0 . . "........
... "E2$: 1: K . 930.W.....
..... W$: . W$."" . 930...... W$: . W$."
" . 940.....K . 890.....................
........................................
.....................$."" . 930.".... W$
: . W$."" . 940.....K . 890.............
........................................
.............................
> CLICK IMAGE PREVIEW FOR FULL MODAL