3 PART DIRECTORY
FILE INFORMATION
FILENAME(S): 3 PART DIRECTORY
FILE TYPE(S): PRG
FILE SIZE: 2.8K
FIRST SEEN: 2025-11-30 19:47:17
APPEARS ON: 1 disk(s)
FILE HASH
fc2d7d721f45eb92d6c7f598564063ebe72c61b7659eed116caa6e940dd816f2
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ARBEJDSDISK B2 1 | 3 PART DIRECTORY | PRG | Curtcool, Frank | 10 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 23 08 00 00 3A 8F 20 20 20 20 20 20 20 4D |..#...:. M| 00000010: 2E 4A 2E 4B 45 52 59 41 4E 20 20 31 31 2D 31 32 |.J.KERYAN 11-12| 00000020: 2D 38 33 00 4A 08 01 00 3A 57 49 44 54 48 B2 33 |-83.J...:WIDTH.3| 00000030: 3A 20 57 44 B2 57 49 AB 31 3A 20 8F 20 57 49 44 |: WD.WI.1: . WID| 00000040: 54 48 3D 43 4F 4C 55 4D 4E 53 00 6F 08 0A 00 83 |TH=COLUMNS.o....| 00000050: 22 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |"***************| 00000060: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.| 00000070: 94 08 14 00 83 22 2A 20 20 20 20 20 20 20 20 20 |....."* | 00000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000090: 20 20 20 2A 00 B9 08 1E 00 83 22 2A 20 20 20 20 | *......"* | 000000A0: 44 49 52 45 43 54 4F 52 59 20 20 20 20 50 52 49 |DIRECTORY PRI| 000000B0: 4E 54 45 52 20 20 20 20 2A 00 DE 08 28 00 83 22 |NTER *...(.."| 000000C0: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* | 000000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 03 | *..| 000000E0: 09 32 00 83 22 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.2.."***********| 000000F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000100: 2A 2A 2A 00 28 09 3C 00 83 22 2A 20 20 20 20 20 |***.(.<.."* | 00000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000120: 20 20 20 20 20 20 20 2A 00 4D 09 41 00 83 22 2A | *.M.A.."*| 00000130: 20 27 53 27 20 53 4F 52 54 45 44 20 20 20 20 27 | 'S' SORTED '| 00000140: 55 27 20 55 4E 53 4F 52 54 45 44 20 2A 00 72 09 |U' UNSORTED *.r.| 00000150: 46 00 83 22 2A 20 27 4E 27 20 4E 4F 20 50 52 49 |F.."* 'N' NO PRI| 00000160: 4E 54 20 20 27 51 27 20 51 55 49 54 20 20 20 20 |NT 'Q' QUIT | 00000170: 20 2A 00 97 09 50 00 83 22 2A 20 20 20 20 20 20 | *...P.."* | 00000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000190: 20 20 20 20 20 20 2A 00 BC 09 5A 00 83 22 2A 2A | *...Z.."**| 000001A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000001B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 E7 09 64 |************...d| 000001C0: 00 97 35 33 32 38 30 2C 31 32 3A 97 35 33 32 38 |..53280,12:.5328| 000001D0: 31 2C 31 31 3A 97 36 34 36 2C 31 35 3A 20 86 20 |1,11:.646,15: . | 000001E0: 42 24 28 31 30 30 29 00 04 0A 6E 00 81 20 49 20 |B$(100)...n.. I | 000001F0: B2 20 31 20 A4 20 31 30 3A 20 87 20 41 24 28 49 |. 1 . 10: . A$(I| 00000200: 29 3A 20 82 00 34 0A 78 00 99 22 93 11 11 11 11 |): ..4.x..".....| 00000210: 11 11 22 3A 20 4A B2 30 20 3A 81 20 49 20 B2 20 |..": J.0 :. I . | 00000220: 31 20 A4 20 31 30 30 3A 20 42 24 28 49 29 B2 22 |1 . 100: B$(I)."| 00000230: 22 3A 20 82 00 5B 0A 82 00 81 20 49 20 B2 20 31 |": ..[.... I . 1| 00000240: 20 A4 20 31 30 3A 20 99 22 20 20 20 20 20 12 22 | . 10: ." ."| 00000250: 41 24 28 49 29 22 92 22 3A 20 82 00 73 0A 8C 00 |A$(I)".": ..s...| 00000260: A1 20 51 24 3A 20 8B 20 51 24 B1 22 22 20 A7 20 |. Q$: . Q$."" . | 00000270: 31 34 30 00 8B 0A 96 00 A1 20 51 24 3A 20 8B 20 |140...... Q$: . | 00000280: 51 24 B2 22 22 20 A7 20 31 35 30 00 A8 0A A0 00 |Q$."" . 150.....| 00000290: 8B 20 51 24 B2 22 51 22 20 A7 20 A0 20 31 35 3A |. Q$."Q" . . 15:| 000002A0: 20 99 22 93 22 3A 20 80 00 D0 0A AA 00 8B 20 51 | .".": ....... Q| 000002B0: 24 B3 B1 22 53 22 20 AF 20 51 24 B3 B1 22 55 22 |$.."S" . Q$.."U"| 000002C0: 20 AF 20 51 24 B3 B1 22 4E 22 20 A7 20 31 32 30 | . Q$.."N" . 120| 000002D0: 00 05 0B C8 00 99 22 93 20 20 20 20 12 20 20 20 |......". . | 000002E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000002F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 92 22 3A | .":| 00000300: 20 5A B2 AB 31 00 0E 0B D2 00 8D 38 38 30 00 1C | Z..1......880..| 00000310: 0B 18 01 A1 23 31 2C 41 24 2C 42 24 00 2A 0B 22 |....#1,A$,B$.*."| 00000320: 01 A1 23 31 2C 41 24 2C 42 24 00 38 0B 2C 01 A1 |..#1,A$,B$.8.,..| 00000330: 23 31 2C 41 24 2C 42 24 00 40 0B 36 01 43 B2 30 |#1,A$,B$.@.6.C.0| 00000340: 00 57 0B 40 01 8B 20 41 24 B3 B1 22 22 20 A7 20 |.W.@.. A$.."" . | 00000350: 43 B2 C6 28 41 24 29 00 74 0B 4A 01 8B 20 42 24 |C..(A$).t.J.. B$| 00000360: B3 B1 22 22 20 A7 20 43 B2 43 AA C6 28 42 24 29 |.."" . C.C..(B$)| 00000370: AC 32 35 36 00 85 0B 54 01 5A 24 B2 CA 28 C4 28 |.256...T.Z$..(.(| 00000380: 43 29 2C 32 29 00 9E 0B 5E 01 8B 20 C3 28 5A 24 |C),2)...^.. .(Z$| 00000390: 29 B3 31 20 A7 20 5A 24 B2 22 20 20 20 22 00 B9 |).1 . Z$." "..| 000003A0: 0B 68 01 8B 20 C3 28 5A 24 29 B2 31 20 A7 20 5A |.h.. .(Z$).1 . Z| 000003B0: 24 B2 22 20 20 22 AA 5A 24 00 D3 0B 72 01 8B 20 |$." ".Z$...r.. | 000003C0: C3 28 5A 24 29 B2 32 20 A7 20 5A 24 B2 22 20 22 |.(Z$).2 . Z$." "| 000003D0: AA 5A 24 00 EE 0B 7C 01 42 24 28 4A 29 B2 22 20 |.Z$...|.B$(J)." | 000003E0: 22 AA 5A 24 AA 22 20 22 AA C7 28 33 34 29 00 F7 |".Z$." "..(34)..| 000003F0: 0B 86 01 4C 5A B2 30 00 15 0C 90 01 A1 23 31 2C |...LZ.0......#1,| 00000400: 42 24 3A 20 8B 20 53 54 B3 B1 30 20 A7 20 CB 20 |B$: . ST..0 . . | 00000410: A4 20 35 31 30 00 2B 0C 9A 01 8B 20 42 24 B3 B1 |. 510.+.... B$..| 00000420: C7 28 33 34 29 20 A7 20 34 30 30 00 64 0C A4 01 |.(34) . 400.d...| 00000430: A1 23 31 2C 42 24 3A 20 8B 20 42 24 B3 B1 C7 28 |.#1,B$: . B$...(| 00000440: 33 34 29 20 A7 20 42 24 28 4A 29 B2 42 24 28 4A |34) . B$(J).B$(J| 00000450: 29 AA 42 24 3A 20 4C 5A B2 4C 5A AA 31 3A 20 89 |).B$: LZ.LZ.1: .| 00000460: 20 34 32 30 00 81 0C AE 01 A1 23 31 2C 42 24 3A | 420......#1,B$:| 00000470: 20 8B 20 42 24 B2 C7 28 33 32 29 20 A7 20 34 33 | . B$..(32) . 43| 00000480: 30 00 A6 0C B8 01 42 24 28 4A 29 B2 42 24 28 4A |0.....B$(J).B$(J| 00000490: 29 AA C7 28 33 34 29 3A 20 8B 20 4C 5A B1 31 35 |)..(34): . LZ.15| 000004A0: 20 A7 20 34 36 30 00 CE 0C C2 01 81 20 4A 5A B2 | . 460...... JZ.| 000004B0: 4C 5A 20 A4 20 31 35 3A 20 42 24 28 4A 29 B2 42 |LZ . 15: B$(J).B| 000004C0: 24 28 4A 29 AA 22 20 22 3A 20 82 20 4A 5A 00 D8 |$(J)." ": . JZ..| 000004D0: 0C CC 01 43 24 B2 22 22 00 FE 0C D6 01 43 24 B2 |...C$."".....C$.| 000004E0: 43 24 AA 42 24 3A 20 A1 23 31 2C 42 24 3A 20 8B |C$.B$: .#1,B$: .| 000004F0: 20 42 24 B3 B1 22 22 20 20 A7 20 34 37 30 00 1D | B$.."" . 470..| 00000500: 0D E0 01 53 53 B2 53 54 3A 20 42 24 28 4A 29 B2 |...SS.ST: B$(J).| 00000510: 42 24 28 4A 29 AA C8 28 43 24 2C 33 29 00 40 0D |B$(J)..(C$,3).@.| 00000520: EA 01 99 20 22 20 20 20 20 12 20 20 22 42 24 28 |... " . "B$(| 00000530: 4A 29 22 20 20 20 20 92 22 3A 20 4A B2 4A AA 31 |J)" .": J.J.1| 00000540: 00 51 0D F4 01 8B 20 53 53 B2 30 20 A7 20 32 39 |.Q.... SS.0 . 29| 00000550: 30 00 7F 0D FE 01 42 24 28 4A 29 B2 C8 28 42 24 |0.....B$(J)..(B$| 00000560: 28 4A 29 2C C3 28 42 24 28 4A 29 29 AB 31 29 AA |(J),.(B$(J)).1).| 00000570: 22 20 42 4C 4F 43 4B 53 20 46 52 45 45 2E 22 00 |" BLOCKS FREE.".| 00000580: A8 0D 08 02 99 20 22 20 20 20 20 12 20 20 22 42 |..... " . "B| 00000590: 24 28 4A 29 22 20 20 20 20 20 20 20 20 20 20 20 |$(J)" | 000005A0: 20 92 22 3A 20 A0 20 31 00 BC 0D 12 02 8B 20 51 | .": . 1...... Q| 000005B0: 24 B3 B1 22 4E 22 20 A7 20 35 37 30 00 D4 0D 1C |$.."N" . 570....| 000005C0: 02 A1 20 51 24 3A 20 8B 20 51 24 B1 22 22 20 A7 |.. Q$: . Q$."" .| 000005D0: 20 35 34 30 00 EC 0D 26 02 A1 20 51 24 3A 20 8B | 540...&.. Q$: .| 000005E0: 20 51 24 B2 22 22 20 A7 20 35 35 30 00 F8 0D 30 | Q$."" . 550...0| 000005F0: 02 CB 20 A4 20 31 32 30 00 0B 0E 3A 02 8B 20 51 |.. . 120...:.. Q| 00000600: 24 B2 22 55 22 20 A7 20 36 38 30 00 14 0E 44 02 |$."U" . 680...D.| 00000610: 4C 42 B2 32 00 2B 0E 4E 02 81 20 49 49 B2 4A AB |LB.2.+.N.. II.J.| 00000620: 31 20 A4 20 4C 42 20 A9 20 AB 31 00 5A 0E 58 02 |1 . LB . .1.Z.X.| 00000630: 8B 20 CA 28 42 24 28 49 49 AB 31 29 2C 37 2C 31 |. .(B$(II.1),7,1| 00000640: 35 29 20 B3 B2 20 CA 28 42 24 28 49 49 29 2C 37 |5) .. .(B$(II),7| 00000650: 2C 31 35 29 20 A7 20 36 35 30 00 6B 0E 62 02 45 |,15) . 650.k.b.E| 00000660: 58 24 20 B2 20 42 24 28 49 49 29 00 81 0E 6C 02 |X$ . B$(II)...l.| 00000670: 42 24 28 49 49 29 20 B2 20 42 24 28 49 49 AB 31 |B$(II) . B$(II.1| 00000680: 29 00 94 0E 76 02 42 24 28 49 49 AB 31 29 20 B2 |)...v.B$(II.1) .| 00000690: 20 45 58 24 00 A0 0E 80 02 46 58 20 B2 20 49 49 | EX$.....FX . II| 000006A0: 00 A9 0E 8A 02 82 20 49 49 00 BD 0E 94 02 8B 20 |...... II...... | 000006B0: 4C 42 B2 46 58 AA 31 20 A7 20 36 38 30 00 D4 0E |LB.FX.1 . 680...| 000006C0: 9E 02 4C 42 20 B2 20 46 58 AA 31 3A 20 CB 20 A4 |..LB . FX.1: . .| 000006D0: 20 35 39 30 00 DE 0E A8 02 9F 20 34 2C 34 00 F9 | 590...... 4,4..| 000006E0: 0E B2 02 98 34 3A 20 8F 20 50 52 49 4E 54 20 54 |....4: . PRINT T| 000006F0: 48 45 20 48 45 41 44 45 52 00 06 0F BC 02 98 34 |HE HEADER......4| 00000700: 2C 42 24 28 30 29 00 54 0F C6 02 8F 20 54 48 45 |,B$(0).T.... THE| 00000710: 20 4E 45 58 54 20 43 4F 4D 4D 41 4E 44 53 20 53 | NEXT COMMANDS S| 00000720: 45 4E 44 53 20 43 4F 4E 54 52 4F 4C 20 20 54 4F |ENDS CONTROL TO| 00000730: 20 50 52 4F 57 52 49 54 45 52 20 4F 52 20 4E 45 | PROWRITER OR NE| 00000740: 43 2D 38 30 32 33 20 50 52 49 4E 54 45 52 53 20 |C-8023 PRINTERS | 00000750: 54 48 52 55 00 99 0F D0 02 8F 20 54 59 4D 41 43 |THRU...... TYMAC| 00000760: 20 27 43 4F 4E 4E 45 43 54 49 4F 4E 27 20 54 4F | 'CONNECTION' TO| 00000770: 20 53 57 49 54 43 48 20 54 4F 20 20 43 4F 4E 44 | SWITCH TO COND| 00000780: 45 4E 53 45 44 20 4D 4F 44 45 20 41 4E 44 20 57 |ENSED MODE AND W| 00000790: 49 44 45 20 4C 49 4E 45 53 00 D7 0F DA 02 8B 20 |IDE LINES...... | 000007A0: 57 49 B1 32 20 A7 20 98 34 2C C7 28 32 37 29 C7 |WI.2 . .4,.(27).| 000007B0: 28 32 37 29 22 51 22 3B 3A 20 8F 20 43 4F 4E 44 |(27)"Q";: . COND| 000007C0: 45 4E 53 45 44 20 4D 4F 44 45 20 46 4F 52 20 3E |ENSED MODE FOR >| 000007D0: 20 32 20 43 4F 4C 2E 00 15 10 E4 02 8B 20 57 49 | 2 COL....... WI| 000007E0: B1 33 20 A7 20 98 34 2C C7 28 32 37 29 22 57 22 |.3 . .4,.(27)"W"| 000007F0: C7 28 31 33 32 29 3B 3A 20 8F 20 57 49 44 45 20 |.(132);: . WIDE | 00000800: 4C 49 4E 45 53 20 54 4F 20 50 52 45 56 45 4E 54 |LINES TO PREVENT| 00000810: 20 43 52 27 53 00 33 10 EE 02 8F 20 4E 4F 57 20 | CR'S.3.... NOW | 00000820: 50 52 49 4E 54 20 54 48 45 20 44 49 52 45 43 54 |PRINT THE DIRECT| 00000830: 4F 52 59 00 4C 10 F8 02 52 57 20 B2 20 B5 28 28 |ORY.L...RW . .((| 00000840: 4A 20 AA 20 57 44 29 AD 20 57 49 29 00 67 10 02 |J . WD). WI).g..| 00000850: 03 81 20 49 B2 31 20 A4 20 52 57 3A 20 81 20 57 |.. I.1 . RW: . W| 00000860: B2 31 20 A4 20 57 49 00 A9 10 0C 03 8B 20 28 49 |.1 . WI...... (I| 00000870: 20 AA 20 28 57 AB 31 29 AC 52 57 20 29 20 B1 20 | . (W.1).RW ) . | 00000880: 4A 20 A7 20 98 34 2C 22 20 20 20 20 20 20 20 20 |J . .4," | 00000890: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000008A0: 20 20 22 3B 3A 89 38 30 30 00 C3 10 16 03 98 34 | ";:.800......4| 000008B0: 2C 42 24 28 49 20 AA 20 28 57 AB 31 29 AC 52 57 |,B$(I . (W.1).RW| 000008C0: 20 29 3B 00 CF 10 20 03 82 20 57 3A 20 98 34 00 | );... .. W: .4.| 000008D0: D7 10 2A 03 82 20 49 00 DE 10 34 03 98 34 00 FD |..*.. I...4..4..| 000008E0: 10 3E 03 8F 20 53 57 49 54 43 48 20 50 52 49 4E |.>.. SWITCH PRIN| 000008F0: 54 45 52 20 54 4F 20 4E 4F 52 4D 41 4C 00 2B 11 |TER TO NORMAL.+.| 00000900: 48 03 8B 20 57 49 B1 32 20 A7 20 98 34 2C C7 28 |H.. WI.2 . .4,.(| 00000910: 32 37 29 C7 28 32 37 29 22 4E 22 3B 3A 20 8F 20 |27).(27)"N";: . | 00000920: 55 4E 43 4F 4E 44 45 4E 53 45 44 00 64 11 52 03 |UNCONDENSED.d.R.| 00000930: 8B 20 57 49 B1 33 20 A7 20 98 34 2C C7 28 32 37 |. WI.3 . .4,.(27| 00000940: 29 22 57 22 C7 28 38 30 29 3B 3A 20 8F 20 42 41 |)"W".(80);: . BA| 00000950: 43 4B 20 54 4F 20 38 30 20 43 4F 4C 55 4D 4E 20 |CK TO 80 COLUMN | 00000960: 4C 49 4E 45 00 6C 11 5C 03 A0 20 34 00 78 11 66 |LINE.l.\.. 4.x.f| 00000970: 03 CB 20 A4 20 31 32 30 00 8C 11 70 03 A0 20 31 |.. . 120...p.. 1| 00000980: 35 3A 20 9F 20 31 35 2C 38 2C 31 35 00 9D 11 7A |5: . 15,8,15...z| 00000990: 03 9F 20 31 2C 38 2C 30 2C 22 24 30 22 00 B2 11 |.. 1,8,0,"$0"...| 000009A0: 84 03 84 31 35 2C 45 31 2C 45 32 24 2C 45 33 2C |...15,E1,E2$,E3,| 000009B0: 45 34 00 EC 11 8E 03 8B 20 45 31 B1 30 20 A7 20 |E4...... E1.0 . | 000009C0: 99 20 22 93 11 11 11 11 11 11 11 11 11 11 20 20 |. "........... | 000009D0: 20 20 20 20 20 20 20 20 20 20 22 45 32 24 3A 20 | "E2$: | 000009E0: A0 20 31 3A 20 CB 20 A4 20 39 33 30 00 F2 11 98 |. 1: . . 930....| 000009F0: 03 8E 00 0A 12 A2 03 A1 20 57 24 3A 20 8B 20 57 |........ W$: . W| 00000A00: 24 B1 22 22 20 A7 20 39 33 30 00 22 12 AC 03 A1 |$."" . 930."....| 00000A10: 20 57 24 3A 20 8B 20 57 24 B2 22 22 20 A7 20 39 | W$: . W$."" . 9| 00000A20: 34 30 00 2E 12 B6 03 CB 20 A4 20 38 39 30 00 00 |40...... . 890..| 00000A30: 00 00 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 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A |................| 00000A70: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A |................| 00000A80: 24 B1 22 22 20 A7 20 39 33 30 00 22 12 AC 03 A1 |$."" . 930."....| 00000A90: 20 57 24 3A 20 8B 20 57 24 B2 22 22 20 A7 20 39 | W$: . W$."" . 9| 00000AA0: 34 30 00 2E 12 B6 03 CB 20 A4 20 38 39 30 00 00 |40...... . 890..| 00000AB0: 00 00 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 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A |................| 00000AF0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A |................|
..#...:. M.J.KERYAN 11-12-83.J...
:WIDTH.3: WD.WI.1: . WIDTH=COLUMNS.O....
"******************************......"*
*......"*
DIRECTORY PRINTER *...(.."*
*...2.."***********
*******************.(.<.."*
*.M.A.."* 'S' SORTED '
U' UNSORTED *.R.F.."* 'N' NO PRINT 'Q'
QUIT *...P.."*
*...Z.."**************************
****...D..53280,12:.53281,11:.646,15: .
B$(100)...N.. I . 1 . 10: . A$(I): ..4.X
..".......": J.0 :. I . 1 . 100: B$(I)."
": ..[.... I . 1 . 10: ." ."A$(I)"."
: ..S.... Q$: . Q$."" . 140...... Q$: .
Q$."" . 150... .. Q$."Q" . 15: .".": .
.P.... Q$.."S" . Q$.."U" . Q$.."N" . 120
...H..". .
.": Z..1...R..880......#1,A$,B$.*."
..#1,A$,B$.8.,..#1,A$,B$.@.6.C.0.W.@.. A
$.."" . C.F(A$).T.J.. B$.."" . C.C.F(B$)
.256...T.Z$.J(D(C),2)...^.. C(Z$).1 . Z$
." "...H.. C(Z$).1 . Z$." ".Z$.S.R..
C(Z$).2 . Z$." ".Z$...|.B$(J)." ".Z$." "
.G(34).....LZ.0......#1,B$: . ST..0 . K
. 510.+.... B$..G(34) . 400.D....#1,B$:
. B$..G(34) . B$(J).B$(J).B$: LZ.LZ.1: .
420......#1,B$: . B$.G(32) . 430.....B$
(J).B$(J).G(34): . LZ.15 . 460.N.B.. JZ.
LZ . 15: B$(J).B$(J)." ": . JZ.X.L.C$.""
...V.C$.C$.B$: .#1,B$: . B$.."" . 470..
...SS.ST: B$(J).B$(J).H(C$,3).@.... "
. "B$(J)" .": J.J.1.Q.... SS.0 . 29
0....B$(J).H(B$(J),C(B$(J)).1)." BLOCKS
FREE."...... " . "B$(J)"
.": 1...... Q$.."N" . 570.T.... Q$: .
Q$."" . 540...&.. Q$: . Q$."" . 550...0
.K . 120...:.. Q$."U" . 680...D.LB.2.+.N
.. II.J.1 . LB . .1.Z.X.. J(B$(II.1),7,1
5) .. J(B$(II),7,15) . 650.K.B.EX$ . B$(
II)...L.B$(II) . B$(II.1)...V.B$(II.1) .
EX$. ...FX . II...... II...... LB.FX.1
. 680.T...LB . FX.1: K . 590...... 4,4..
....4: . PRINT THE HEADER......4,B$(0).T
.F.. THE NEXT COMMANDS SENDS CONTROL TO
PROWRITER OR NEC-8023 PRINTERS THRU...P
.. TYMAC 'CONNECTION' TO SWITCH TO COND
ENSED MODE AND WIDE LINES.W.Z.. WI.2 . .
4,G(27)G(27)"Q";: . CONDENSED MODE FOR >
2 COL....... WI.3 . .4,G(27)"W"G(132);:
. WIDE LINES TO PREVENT CR'S.3.... NOW
PRINT THE DIRECTORY.L...RW . .((J . WD).
WI).G.... I.1 . RW: . W.1 . WI...... (I
. (W.1).RW ) . J . .4,"
";:.800.C....4,B$(I . (W.1).RW
);.O. .. W: .4.W.*.. I...4..4...>.. SWI
TCH PRINTER TO NORMAL.+.H.. WI.2 . .4,G(
27)G(27)"N";: . UNCONDENSED.D.R.. WI.3 .
.4,G(27)"W"G(80);: . BACK TO 80 COLUMN
LINE.L.\. 4.X.F.K . 120...P. 15: . 15,
8,15...Z.. 1,8,0,"$0"......15,E1,E2$,E3,
E4...... E1.0 . . "...........
"E2$: 1: K . 930............ W$: . W
$."" . 930.".... W$: . W$."" . 940.....K
. 890..................................
........................................
........$."" . 930.".... W$: . W$."" . 9
40.....K . 890..........................
........................................
................
> CLICK IMAGE PREVIEW FOR FULL MODAL