PRINT CATALOG
FILE INFORMATION
FILENAME(S): PRINT CATALOG
FILE TYPE(S): PRG
FILE SIZE: 4.2K
FIRST SEEN: 2025-12-02 02:15:03
APPEARS ON: 1 disk(s)
FILE HASH
90df364f25d5f2fc834900ba3d059a93c33c24a5f3fee07cc2536cf0efd346f3
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PANS TOOLS 03 | PRINT CATALOG | PRG | The BAM Archive | 7 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 28 08 0A 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..(.... ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A 00 4F 08 14 00 8F 20 2A |********.O.... *|
00000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 | *.|
00000050: 76 08 1E 00 8F 20 2A 20 20 20 20 20 50 52 49 4E |v.... * PRIN|
00000060: 54 20 43 41 54 41 4C 4F 47 20 49 4E 46 4F 20 20 |T CATALOG INFO |
00000070: 20 20 20 20 20 2A 00 9D 08 28 00 8F 20 2A 20 20 | *...(.. * |
00000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000090: 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 C4 08 | *...|
000000A0: 32 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |2.. ************|
000000B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000C0: 2A 2A 2A 2A 00 CA 08 3C 00 3A 00 EF 08 64 00 99 |****...<.:...d..|
000000D0: 22 93 44 49 54 20 50 52 4F 47 52 41 4D 4D 41 20 |".DIT PROGRAMMA |
000000E0: 57 45 52 44 20 4F 52 49 47 49 4E 45 45 4C 22 00 |WERD ORIGINEEL".|
000000F0: 12 09 6E 00 99 22 11 42 45 44 41 43 48 54 20 44 |..n..".BEDACHT D|
00000100: 4F 4F 52 20 41 4C 41 4E 20 52 49 43 48 41 52 44 |OOR ALAN RICHARD|
00000110: 53 22 00 3F 09 78 00 99 22 11 45 4E 20 56 45 52 |S".?.x..".EN VER|
00000120: 53 43 48 45 45 4E 20 49 4E 20 43 4F 4D 4D 4F 44 |SCHEEN IN COMMOD|
00000130: 4F 52 45 20 43 4F 4D 50 55 54 49 4E 47 2E 22 00 |ORE COMPUTING.".|
00000140: 66 09 82 00 99 22 11 11 44 45 20 55 49 54 42 52 |f...."..DE UITBR|
00000150: 45 49 44 49 4E 47 45 4E 20 53 54 41 52 54 20 54 |EIDINGEN START T|
00000160: 52 41 43 4B 2C 22 00 89 09 8C 00 99 22 11 53 54 |RACK,"......".ST|
00000170: 41 52 54 20 53 45 43 54 4F 52 20 45 4E 20 4C 4F |ART SECTOR EN LO|
00000180: 41 44 20 41 44 52 45 53 22 00 B3 09 96 00 99 22 |AD ADRES"......"|
00000190: 11 5A 49 4A 4E 20 42 45 44 41 43 48 54 20 44 4F |.ZIJN BEDACHT DO|
000001A0: 4F 52 20 50 41 55 4C 20 48 41 44 45 52 4D 41 4E |OR PAUL HADERMAN|
000001B0: 4E 2E 22 00 E0 09 A0 00 99 22 11 11 44 49 54 20 |N."......"..DIT |
000001C0: 50 52 4F 47 52 41 4D 4D 41 20 49 53 20 42 45 53 |PROGRAMMA IS BES|
000001D0: 43 48 49 4B 42 41 41 52 20 56 49 41 20 44 45 22 |CHIKBAAR VIA DE"|
000001E0: 00 0B 0A AA 00 99 22 11 50 52 4F 47 52 41 4D 4D |......".PROGRAMM|
000001F0: 41 20 42 49 42 4C 49 4F 54 48 45 45 4B 20 56 41 |A BIBLIOTHEEK VA|
00000200: 4E 20 43 2E 43 2E 43 2E 42 2E 22 00 38 0A B4 00 |N C.C.C.B.".8...|
00000210: 99 22 11 11 56 4F 4C 47 45 4E 44 45 20 44 52 49 |."..VOLGENDE DRI|
00000220: 56 45 20 54 59 50 45 53 20 5A 49 4A 4E 20 4C 45 |VE TYPES ZIJN LE|
00000230: 45 53 42 41 41 52 3A 22 00 67 0A BE 00 99 22 11 |ESBAAR:".g....".|
00000240: 31 35 34 31 2C 32 30 33 31 2C 32 30 34 30 2C 33 |1541,2031,2040,3|
00000250: 30 34 30 2C 34 30 34 30 2C 38 30 35 30 20 45 4E |040,4040,8050 EN|
00000260: 20 38 32 35 30 2E 22 00 8D 0A C8 00 99 22 11 12 | 8250."......"..|
00000270: 57 49 4C 4C 45 4B 45 55 52 49 47 45 20 54 4F 45 |WILLEKEURIGE TOE|
00000280: 54 53 20 49 4E 44 52 55 4B 4B 45 4E 22 00 A0 0A |TS INDRUKKEN"...|
00000290: D2 00 A1 41 24 3A 8B 41 24 B2 22 22 A7 32 31 30 |...A$:.A$."".210|
000002A0: 00 CB 0A DC 00 99 22 93 48 45 54 20 47 45 42 52 |......".HET GEBR|
000002B0: 55 49 4B 20 56 41 4E 20 45 45 4E 20 50 52 49 4E |UIK VAN EEN PRIN|
000002C0: 54 45 52 20 49 53 20 45 45 4E 22 00 DF 0A E6 00 |TER IS EEN".....|
000002D0: 99 22 11 11 4E 4F 4F 44 5A 41 41 4B 20 21 22 00 |."..NOODZAAK !".|
000002E0: 05 0B F0 00 99 22 11 12 57 49 4C 4C 45 4B 45 55 |....."..WILLEKEU|
000002F0: 52 49 47 45 20 54 4F 45 54 53 20 49 4E 44 52 55 |RIGE TOETS INDRU|
00000300: 4B 4B 45 4E 22 00 18 0B FA 00 A1 41 24 3A 8B 41 |KKEN"......A$:.A|
00000310: 24 B2 22 22 A7 32 35 30 00 50 0B 04 01 85 22 93 |$."".250.P....".|
00000320: 57 45 4C 4B 45 20 54 59 50 45 20 44 52 49 56 45 |WELKE TYPE DRIVE|
00000330: 20 47 45 42 52 55 49 4B 54 20 55 20 20 20 20 20 | GEBRUIKT U |
00000340: 20 31 35 34 31 9D 9D 9D 9D 9D 9D 22 3B 44 55 24 | 1541......";DU$|
00000350: 00 7D 0B 0E 01 8B 44 55 24 B3 B1 22 32 30 33 31 |.}....DU$.."2031|
00000360: 22 AF 44 55 24 B3 B1 22 34 30 34 30 22 AF 44 55 |".DU$.."4040".DU|
00000370: 24 B3 B1 22 31 35 34 31 22 A7 32 39 30 00 A4 0B |$.."1541".290...|
00000380: 18 01 54 B2 31 38 3A 54 53 B2 31 39 3A 42 50 B2 |..T.18:TS.19:BP.|
00000390: 31 34 34 3A 44 4D B2 32 3A 42 46 B2 36 36 34 3A |144:DM.2:BF.664:|
000003A0: 89 33 31 30 00 E1 0B 22 01 8B 44 55 24 B2 22 38 |.310..."..DU$."8|
000003B0: 30 35 30 22 B0 44 55 24 B2 22 38 32 35 30 22 A7 |050".DU$."8250".|
000003C0: 54 B2 33 39 3A 54 53 B2 32 39 3A 42 50 B2 36 3A |T.39:TS.29:BP.6:|
000003D0: 44 4D B2 33 3A 42 46 B2 34 31 33 33 3A 89 33 31 |DM.3:BF.4133:.31|
000003E0: 30 00 15 0C 2C 01 99 22 13 11 11 11 49 4B 20 4B |0...,.."....IK K|
000003F0: 45 4E 20 47 45 45 4E 22 2C 44 55 24 2C 22 44 52 |EN GEEN",DU$,"DR|
00000400: 49 56 45 22 3A 81 49 B2 31 A4 32 30 30 30 3A 82 |IVE":.I.1.2000:.|
00000410: 3A 89 32 36 30 00 2A 0C 36 01 86 46 24 28 33 30 |:.260.*.6..F$(30|
00000420: 30 29 2C 47 24 28 33 30 30 29 00 51 0C 40 01 8F |0),G$(300).Q.@..|
00000430: 20 2A 2A 20 44 45 46 49 4E 45 20 56 41 52 49 41 | ** DEFINE VARIA|
00000440: 42 4C 45 53 20 26 20 53 54 52 49 4E 47 53 20 2A |BLES & STRINGS *|
00000450: 2A 00 87 0C 4A 01 44 B2 30 3A 53 B2 30 3A 4E 42 |*...J.D.0:S.0:NB|
00000460: B2 30 3A 54 59 B2 30 3A 42 4C B2 30 3A 50 53 B2 |.0:TY.0:BL.0:PS.|
00000470: 36 36 3A 50 4C B2 30 3A 4C B2 31 3A 4E B2 30 3A |66:PL.0:L.1:N.0:|
00000480: 58 B2 30 3A 41 B2 31 00 CF 0C 54 01 4E 4C 24 B2 |X.0:A.1...T.NL$.|
00000490: C7 28 30 29 3A 44 24 B2 22 22 3A 58 24 B2 22 22 |.(0):D$."":X$.""|
000004A0: 3A 4E 4D 24 B2 22 22 3A 49 44 24 B2 22 22 3A 56 |:NM$."":ID$."":V|
000004B0: 24 B2 22 22 3A 44 41 24 B2 22 22 3A 54 59 24 B2 |$."":DA$."":TY$.|
000004C0: 22 22 3A 42 4C 24 B2 22 22 3A 4B 24 B2 22 22 00 |"":BL$."":K$."".|
000004D0: 14 0D 5E 01 54 50 24 28 30 29 B2 22 44 45 4C 22 |..^.TP$(0)."DEL"|
000004E0: 3A 54 50 24 28 31 29 B2 22 53 45 51 22 3A 54 50 |:TP$(1)."SEQ":TP|
000004F0: 24 28 32 29 B2 22 50 52 47 22 3A 54 50 24 28 33 |$(2)."PRG":TP$(3|
00000500: 29 B2 22 55 53 52 22 3A 54 50 24 28 34 29 B2 22 |)."USR":TP$(4)."|
00000510: 52 45 4C 22 00 35 0D 68 01 8F 20 2A 2A 20 44 49 |REL".5.h.. ** DI|
00000520: 53 4B 20 45 52 52 4F 52 20 56 41 52 49 41 42 4C |SK ERROR VARIABL|
00000530: 45 53 20 2A 2A 00 43 0D 72 01 8B 51 51 B2 31 A7 |ES **.C.r..QQ.1.|
00000540: 34 32 30 00 66 0D 7C 01 8F 20 2A 2A 20 49 4E 50 |420.f.|.. ** INP|
00000550: 55 54 20 44 52 49 56 45 20 4E 4F 2E 20 26 20 44 |UT DRIVE NO. & D|
00000560: 41 54 45 20 2A 2A 00 8F 0D 86 01 85 22 93 57 45 |ATE **......".WE|
00000570: 4C 4B 45 20 44 41 54 55 4D 20 28 44 44 4D 4D 4A |LKE DATUM (DDMMJ|
00000580: 4A 29 20 20 20 20 2A 9D 9D 9D 22 3B 44 41 24 00 |J) *...";DA$.|
00000590: BC 0D 90 01 44 41 24 B2 C8 28 44 41 24 2C 32 29 |....DA$..(DA$,2)|
000005A0: AA 22 2F 22 AA CA 28 44 41 24 2C 33 2C 32 29 AA |."/"..(DA$,3,2).|
000005B0: 22 2F 22 AA C9 28 44 41 24 2C 32 29 00 F3 0D 9A |"/"..(DA$,2)....|
000005C0: 01 85 22 13 11 11 44 52 49 56 45 20 4E 4F 2E 20 |.."...DRIVE NO. |
000005D0: 20 20 20 30 9D 9D 9D 22 3B 44 24 3A 44 B2 C6 28 | 0...";D$:D..(|
000005E0: 44 24 29 AB 34 38 3A 8B 44 B3 30 B0 44 B1 31 A7 |D$).48:.D.0.D.1.|
000005F0: 34 31 30 00 15 0E A4 01 9F 31 35 2C 38 2C 31 35 |410......15,8,15|
00000600: 3A 8D 39 37 30 3A 98 31 35 2C 22 49 22 AA 44 24 |:.970:.15,"I".D$|
00000610: 3A 8D 39 37 30 00 43 0E AE 01 8F 20 2A 2A 20 52 |:.970.C.... ** R|
00000620: 45 41 44 20 44 49 53 4B 20 4E 41 4D 45 20 26 20 |EAD DISK NAME & |
00000630: 49 44 20 26 20 44 4F 53 20 56 45 52 53 49 4F 4E |ID & DOS VERSION|
00000640: 20 2A 2A 00 57 0E B8 01 9F 32 2C 38 2C 32 2C 22 | **.W....2,8,2,"|
00000650: 23 22 3A 8D 39 37 30 00 80 0E C2 01 99 22 93 4C |#":.970......".L|
00000660: 45 45 53 20 44 49 53 4B 20 4E 41 41 4D 20 26 20 |EES DISK NAAM & |
00000670: 49 44 20 26 20 44 4F 53 20 56 45 52 53 49 45 22 |ID & DOS VERSIE"|
00000680: 00 98 0E CC 01 98 31 35 2C 22 55 31 3A 22 32 3B |......15,"U1:"2;|
00000690: 44 3B 54 3A 8D 39 37 30 00 B0 0E D6 01 98 31 35 |D;T:.970......15|
000006A0: 2C 22 42 2D 50 22 3B 32 3B 42 50 3A 8D 39 37 30 |,"B-P";2;BP:.970|
000006B0: 00 D6 0E E0 01 81 4B B2 42 50 20 A4 42 50 AA 31 |......K.BP .BP.1|
000006C0: 37 3A A1 23 32 2C 58 24 3A 8B 58 24 B2 22 22 A7 |7:.#2,X$:.X$."".|
000006D0: 58 24 B2 4E 4C 24 00 E7 0E EA 01 4E 4D 24 B2 4E |X$.NL$.....NM$.N|
000006E0: 4D 24 AA 58 24 3A 82 00 0F 0F F4 01 81 4B B2 42 |M$.X$:.......K.B|
000006F0: 50 AA 31 38 A4 42 50 AA 31 39 3A A1 23 32 2C 58 |P.18.BP.19:.#2,X|
00000700: 24 3A 8B 58 24 B2 22 22 A7 58 24 B2 4E 4C 24 00 |$:.X$."".X$.NL$.|
00000710: 20 0F FE 01 49 44 24 B2 49 44 24 AA 58 24 3A 82 | ...ID$.ID$.X$:.|
00000720: 00 4F 0F 08 02 A1 23 32 2C 58 24 3A 81 4B B2 42 |.O....#2,X$:.K.B|
00000730: 50 AA 32 31 A4 42 50 AA 32 32 3A A1 23 32 2C 58 |P.21.BP.22:.#2,X|
00000740: 24 3A 8B 58 24 B2 22 22 A7 58 24 B2 4E 4C 24 00 |$:.X$."".X$.NL$.|
00000750: 75 0F 12 02 56 24 B2 56 24 AA 58 24 3A 82 3A 4E |u...V$.V$.X$:.:N|
00000760: 4D 24 B2 4E 4D 24 AA 22 20 22 AA 49 44 24 AA 22 |M$.NM$." ".ID$."|
00000770: 20 22 AA 56 24 00 90 0F 1C 02 8F 20 2A 2A 20 52 | ".V$...... ** R|
00000780: 45 41 44 20 44 49 52 45 43 54 4F 52 59 20 2A 2A |EAD DIRECTORY **|
00000790: 00 AB 0F 26 02 53 B2 31 3A 99 22 93 4C 45 45 53 |...&.S.1:.".LEES|
000007A0: 20 44 49 52 45 43 54 4F 52 59 22 00 B6 0F 30 02 | DIRECTORY"...0.|
000007B0: 81 4B B2 30 A4 37 00 C9 0F 3A 02 8B 53 B3 31 B0 |.K.0.7...:..S.1.|
000007C0: 53 B1 54 53 A7 89 36 38 30 00 E3 0F 44 02 98 31 |S.TS..680...D..1|
000007D0: 35 2C 22 55 31 3A 22 32 3B 44 3B 54 3B 53 3A 8D |5,"U1:"2;D;T;S:.|
000007E0: 39 37 30 00 03 10 4E 02 42 50 B2 4B AC 33 32 3A |970...N.BP.K.32:|
000007F0: 98 31 35 2C 22 42 2D 50 3A 22 32 3B 42 50 3A 8D |.15,"B-P:"2;BP:.|
00000800: 39 37 30 00 23 10 58 02 A1 23 32 2C 58 24 3A A1 |970.#.X..#2,X$:.|
00000810: 23 32 2C 58 24 3A 8B 58 24 B2 22 22 A7 58 24 B2 |#2,X$:.X$."".X$.|
00000820: 4E 4C 24 00 35 10 62 02 8B 4B B2 30 A7 4E 42 B2 |NL$.5.b..K.0.NB.|
00000830: C6 28 58 24 29 00 64 10 6C 02 99 22 13 11 11 12 |.(X$).d.l.."....|
00000840: 53 45 43 54 4F 52 92 22 53 22 20 22 3B A3 32 31 |SECTOR."S" ";.21|
00000850: 29 3B 22 12 46 49 4C 45 92 22 4C 3A 46 24 28 4C |);".FILE."L:F$(L|
00000860: 29 B2 22 22 00 70 10 76 02 81 4A B2 33 A4 33 32 |)."".p.v..J.3.32|
00000870: 00 89 10 80 02 A1 23 32 2C 58 24 3A 8B 58 24 B2 |......#2,X$:.X$.|
00000880: 22 22 A7 58 24 B2 4E 4C 24 00 9F 10 8A 02 46 24 |"".X$.NL$.....F$|
00000890: 28 4C 29 B2 46 24 28 4C 29 AA 58 24 3A 82 4A 00 |(L).F$(L).X$:.J.|
000008A0: B6 10 94 02 4C B2 4C AA 31 3A 82 4B 3A 53 B2 4E |....L.L.1:.K:S.N|
000008B0: 42 3A 89 35 36 30 00 D6 10 9E 02 8F 20 2A 2A 20 |B:.560...... ** |
000008C0: 52 45 4D 4F 56 45 20 4E 55 4C 4C 20 53 54 52 49 |REMOVE NULL STRI|
000008D0: 4E 47 53 20 2A 2A 00 F6 10 A8 02 81 49 B2 31 A4 |NGS **......I.1.|
000008E0: 4C 3A 8B C8 28 46 24 28 49 29 2C 31 29 B3 C7 28 |L:..(F$(I),1)..(|
000008F0: 31 29 A7 37 31 30 00 08 11 B2 02 8B 46 24 28 49 |1).710......F$(I|
00000900: 29 B2 22 22 A7 37 31 30 00 1E 11 BC 02 4E B2 4E |)."".710.....N.N|
00000910: AA 31 3A 47 24 28 4E 29 B2 46 24 28 49 29 00 24 |.1:G$(N).F$(I).$|
00000920: 11 C6 02 82 00 40 11 D0 02 8F 20 2A 2A 20 50 52 |.....@.... ** PR|
00000930: 49 4E 54 20 44 49 52 45 43 54 4F 52 59 20 2A 2A |INT DIRECTORY **|
00000940: 00 5C 11 DA 02 4E 4D 24 B2 22 20 20 22 AA 4E 4D |.\...NM$." ".NM|
00000950: 24 AA 22 20 20 20 20 22 AA 44 41 24 00 65 11 E4 |$." ".DA$.e..|
00000960: 02 9F 34 2C 34 00 73 11 EE 02 98 34 2C 22 13 22 |..4,4.s....4,"."|
00000970: 3A 98 34 00 85 11 F8 02 98 34 2C C7 28 31 29 4E |:.4......4,.(1)N|
00000980: 4D 24 3A 98 34 00 D1 11 02 03 48 24 B2 22 46 49 |M$:.4.....H$."FI|
00000990: 4C 45 20 20 20 42 4C 4F 43 4B 53 20 20 20 20 20 |LE BLOCKS |
000009A0: 20 20 46 49 4C 45 20 20 20 20 20 20 20 20 20 20 | FILE |
000009B0: 20 46 49 4C 45 20 20 20 53 54 41 52 54 20 20 20 | FILE START |
000009C0: 53 54 41 52 54 20 20 20 20 20 20 20 4C 4F 41 44 |START LOAD|
000009D0: 22 00 20 12 0C 03 4A 24 B2 22 20 4E 4F 2E 20 20 |". ...J$." NO. |
000009E0: 20 20 55 53 45 44 20 20 20 20 20 20 20 20 4E 41 | USED NA|
000009F0: 4D 45 20 20 20 20 20 20 20 20 20 20 20 54 59 50 |ME TYP|
00000A00: 45 20 20 20 54 52 41 43 4B 20 20 20 53 45 43 54 |E TRACK SECT|
00000A10: 4F 52 20 20 20 20 20 20 41 44 44 52 45 53 53 22 |OR ADDRESS"|
00000A20: 00 6F 12 16 03 4C 24 B2 22 A8 A8 A8 20 20 20 20 |.o...L$."... |
00000A30: 20 A8 A8 A8 A8 20 20 20 20 20 20 20 20 A8 A8 A8 | .... ...|
00000A40: A8 20 20 20 20 20 20 20 20 20 20 20 A8 A8 A8 A8 |. ....|
00000A50: 20 20 20 A8 A8 A8 A8 A8 20 20 20 A8 A8 A8 A8 A8 | ..... .....|
00000A60: A8 20 20 20 20 20 20 A8 A8 A8 A8 A8 A8 A8 22 00 |. .......".|
00000A70: 99 12 20 03 98 34 2C A6 38 29 3B 48 24 3A 98 34 |.. ..4,.8);H$:.4|
00000A80: 2C A6 38 29 3B 4A 24 3A 98 34 2C A6 38 29 3B 4C |,.8);J$:.4,.8);L|
00000A90: 24 3A 98 34 3A 50 4C B2 37 00 D1 12 2A 03 81 4B |$:.4:PL.7...*..K|
00000AA0: B2 41 A4 4E 3A 42 4C B2 C6 28 C9 28 47 24 28 4B |.A.N:BL..(.(G$(K|
00000AB0: 29 2C 32 29 29 AA 32 35 36 AC C6 28 C9 28 47 24 |),2)).256..(.(G$|
00000AC0: 28 4B 29 2C 31 29 29 3A 42 4C 24 B2 C4 28 42 4C |(K),1)):BL$..(BL|
00000AD0: 29 00 FE 12 34 03 54 59 24 B2 22 20 22 3A 54 59 |)...4.TY$." ":TY|
00000AE0: B2 C6 28 CA 28 47 24 28 4B 29 2C 31 2C 31 29 29 |..(.(G$(K),1,1))|
00000AF0: 3A 8B 54 59 B3 35 A7 54 59 24 B2 22 2A 22 00 22 |:.TY.5.TY$."*"."|
00000B00: 13 3E 03 54 59 B2 28 54 59 B0 31 32 38 29 AB 31 |.>.TY.(TY.128).1|
00000B10: 32 38 3A 54 59 24 B2 54 59 24 AA 54 50 24 28 54 |28:TY$.TY$.TP$(T|
00000B20: 59 29 00 36 13 48 03 4C 41 24 B2 22 20 20 20 20 |Y).6.H.LA$." |
00000B30: 2A 2A 2A 2A 2A 22 00 46 13 52 03 8B 54 59 B2 32 |*****".F.R..TY.2|
00000B40: A7 8D 31 30 31 30 00 67 13 5C 03 54 53 B2 C6 28 |..1010.g.\.TS..(|
00000B50: CA 28 47 24 28 4B 29 2C 32 2C 31 29 29 3A 54 53 |.(G$(K),2,1)):TS|
00000B60: 24 B2 C4 28 54 53 29 00 81 13 66 03 8B C3 28 54 |$..(TS)...f...(T|
00000B70: 53 24 29 B2 32 A7 54 53 24 B2 54 53 24 AA 22 20 |S$).2.TS$.TS$." |
00000B80: 22 00 A2 13 70 03 53 53 B2 C6 28 CA 28 47 24 28 |"...p.SS..(.(G$(|
00000B90: 4B 29 2C 33 2C 31 29 29 3A 53 53 24 B2 C4 28 53 |K),3,1)):SS$..(S|
00000BA0: 53 29 00 BC 13 7A 03 8B C3 28 53 53 24 29 B2 32 |S)...z...(SS$).2|
00000BB0: A7 53 53 24 B2 53 53 24 AA 22 20 22 00 F7 13 84 |.SS$.SS$." "....|
00000BC0: 03 4B 24 B2 C8 28 C4 28 4B 29 AA 22 20 20 20 20 |.K$..(.(K)." |
00000BD0: 20 20 20 22 2C 38 29 3A 42 4C 24 B2 C8 28 42 4C | ",8):BL$..(BL|
00000BE0: 24 AA 22 20 20 20 20 20 20 20 22 2C 38 29 3A 42 |$." ",8):B|
00000BF0: 46 B2 42 46 AB 42 4C 00 1C 14 8E 03 4B 24 B2 4B |F.BF.BL.....K$.K|
00000C00: 24 AA 42 4C 24 AA CA 28 47 24 28 4B 29 2C 34 2C |$.BL$..(G$(K),4,|
00000C10: 31 38 29 AA 22 20 20 22 AA 54 59 24 00 4A 14 98 |18)." ".TY$.J..|
00000C20: 03 4B 24 B2 4B 24 AA 22 20 20 20 20 22 AA 54 53 |.K$.K$." ".TS|
00000C30: 24 AA 22 20 20 20 20 20 20 22 AA 53 53 24 AA 22 |$." ".SS$."|
00000C40: 20 20 20 20 20 22 AA 4C 41 24 00 60 14 A2 03 98 | ".LA$.`....|
00000C50: 34 2C A6 38 29 3B 4B 24 3A 50 4C B2 50 4C AA 31 |4,.8);K$:PL.PL.1|
00000C60: 00 85 14 AC 03 8B 50 4C B2 36 30 A7 98 34 3A 98 |......PL.60..4:.|
00000C70: 34 3A 98 34 3A 98 34 3A 98 34 3A 41 B2 4B AA 31 |4:.4:.4:.4:A.K.1|
00000C80: 3A 89 37 35 30 00 B0 14 B6 03 82 3A 98 34 3A 98 |:.750......:.4:.|
00000C90: 34 2C A6 33 30 29 3B 42 46 3B 22 42 4C 4F 43 4B |4,.30);BF;"BLOCK|
00000CA0: 53 20 46 52 45 45 2E 22 3A 50 4C B2 50 4C AA 33 |S FREE.":PL.PL.3|
00000CB0: 00 D0 14 C0 03 81 4B B2 50 4C AA 31 A4 50 53 3A |......K.PL.1.PS:|
00000CC0: 98 34 3A 82 3A A0 32 3A A0 34 3A A0 31 35 3A 80 |.4:.:.2:.4:.15:.|
00000CD0: 00 EA 14 CA 03 8F 20 2A 2A 20 45 52 52 4F 52 20 |...... ** ERROR |
00000CE0: 52 4F 55 54 49 4E 45 20 2A 2A 00 07 15 D4 03 84 |ROUTINE **......|
00000CF0: 31 35 2C 45 4E 2C 45 4D 24 2C 45 54 2C 45 53 3A |15,EN,EM$,ET,ES:|
00000D00: 8B 45 4E B2 30 A7 8E 00 27 15 DE 03 99 22 12 44 |.EN.0...'....".D|
00000D10: 49 53 4B 20 45 52 52 4F 52 92 22 45 4E 2C 45 4D |ISK ERROR."EN,EM|
00000D20: 24 2C 45 54 2C 45 53 00 2D 15 E8 03 8E 00 4E 15 |$,ET,ES.-.....N.|
00000D30: F2 03 8F 20 2A 2A 20 53 45 41 52 43 48 20 53 54 |... ** SEARCH ST|
00000D40: 41 52 54 20 41 44 44 52 45 53 53 20 2A 2A 00 60 |ART ADDRESS **.`|
00000D50: 15 FC 03 53 4C 24 B2 22 22 3A 53 48 24 B2 22 22 |...SL$."":SH$.""|
00000D60: 00 76 15 06 04 4E 46 24 B2 CA 28 47 24 28 4B 29 |.v...NF$..(G$(K)|
00000D70: 2C 34 2C 31 38 29 00 93 15 10 04 9F 38 2C 38 2C |,4,18)......8,8,|
00000D80: 38 2C 44 24 AA 22 3A 22 AA 4E 46 24 AA 22 2C 50 |8,D$.":".NF$.",P|
00000D90: 2C 52 22 00 AC 15 1A 04 A1 23 38 2C 58 24 3A 8B |,R"......#8,X$:.|
00000DA0: 58 24 B2 22 22 A7 58 24 B2 4E 4C 24 00 B9 15 24 |X$."".X$.NL$...$|
00000DB0: 04 53 4C B2 C6 28 58 24 29 00 D1 15 2E 04 8B 53 |.SL..(X$)......S|
00000DC0: 4C B2 30 A7 53 4C 24 B2 22 30 22 3A 89 31 31 34 |L.0.SL$."0":.114|
00000DD0: 30 00 E1 15 38 04 8B 53 4C B3 31 35 A7 31 31 33 |0...8..SL.15.113|
00000DE0: 30 00 FD 15 42 04 53 55 B2 B5 28 53 4C AD 31 36 |0...B.SU..(SL.16|
00000DF0: 29 3A 53 44 B2 53 4C AB 53 55 AC 31 36 00 15 16 |):SD.SL.SU.16...|
00000E00: 4C 04 8B 53 44 B2 30 A7 53 44 24 B2 22 30 22 3A |L..SD.0.SD$."0":|
00000E10: 89 31 31 32 30 00 37 16 56 04 53 44 24 B2 CA 28 |.1120.7.V.SD$..(|
00000E20: 22 31 32 33 34 35 36 37 38 39 41 42 43 44 45 46 |"123456789ABCDEF|
00000E30: 22 2C 53 44 2C 31 29 00 6B 16 60 04 53 55 24 B2 |",SD,1).k.`.SU$.|
00000E40: CA 28 22 31 32 33 34 35 36 37 38 39 41 42 43 44 |.("123456789ABCD|
00000E50: 45 46 22 2C 53 55 2C 31 29 3A 53 4C 24 B2 53 55 |EF",SU,1):SL$.SU|
00000E60: 24 AA 53 44 24 3A 89 31 31 34 30 00 8D 16 6A 04 |$.SD$:.1140...j.|
00000E70: 53 4C 24 B2 CA 28 22 31 32 33 34 35 36 37 38 39 |SL$..("123456789|
00000E80: 41 42 43 44 45 46 22 2C 53 4C 2C 31 29 00 A7 16 |ABCDEF",SL,1)...|
00000E90: 74 04 8B C3 28 53 4C 24 29 B2 31 A7 53 4C 24 B2 |t...(SL$).1.SL$.|
00000EA0: 22 30 22 AA 53 4C 24 00 C0 16 7E 04 A1 23 38 2C |"0".SL$...~..#8,|
00000EB0: 58 24 3A 8B 58 24 B2 22 22 A7 58 24 B2 4E 4C 24 |X$:.X$."".X$.NL$|
00000EC0: 00 CD 16 88 04 53 48 B2 C6 28 58 24 29 00 E5 16 |.....SH..(X$)...|
00000ED0: 92 04 8B 53 48 B2 30 A7 53 48 24 B2 22 30 22 3A |...SH.0.SH$."0":|
00000EE0: 89 31 32 34 30 00 F5 16 9C 04 8B 53 48 B3 31 35 |.1240......SH.15|
00000EF0: A7 31 32 33 30 00 11 17 A6 04 53 55 B2 B5 28 53 |.1230.....SU..(S|
00000F00: 48 AD 31 36 29 3A 53 44 B2 53 48 AB 53 55 AC 31 |H.16):SD.SH.SU.1|
00000F10: 36 00 29 17 B0 04 8B 53 44 B2 30 A7 53 44 24 B2 |6.)....SD.0.SD$.|
00000F20: 22 30 22 3A 89 31 32 32 30 00 4B 17 BA 04 53 44 |"0":.1220.K...SD|
00000F30: 24 B2 CA 28 22 31 32 33 34 35 36 37 38 39 41 42 |$..("123456789AB|
00000F40: 43 44 45 46 22 2C 53 44 2C 31 29 00 7F 17 C4 04 |CDEF",SD,1).....|
00000F50: 53 55 24 B2 CA 28 22 31 32 33 34 35 36 37 38 39 |SU$..("123456789|
00000F60: 41 42 43 44 45 46 22 2C 53 55 2C 31 29 3A 53 48 |ABCDEF",SU,1):SH|
00000F70: 24 B2 53 55 24 AA 53 44 24 3A 89 31 32 34 30 00 |$.SU$.SD$:.1240.|
00000F80: A1 17 CE 04 53 48 24 B2 CA 28 22 31 32 33 34 35 |....SH$..("12345|
00000F90: 36 37 38 39 41 42 43 44 45 46 22 2C 53 48 2C 31 |6789ABCDEF",SH,1|
00000FA0: 29 00 BB 17 D8 04 8B C3 28 53 48 24 29 B2 31 A7 |).......(SH$).1.|
00000FB0: 53 48 24 B2 22 30 22 AA 53 48 24 00 E5 17 E2 04 |SH$."0".SH$.....|
00000FC0: 4C 41 B2 53 4C AA 32 35 36 AC 53 48 3A 20 4C 41 |LA.SL.256.SH: LA|
00000FD0: 24 B2 C4 28 4C 41 29 AA 22 20 2D 20 22 AA 53 48 |$..(LA)." - ".SH|
00000FE0: 24 AA 53 4C 24 00 0C 18 EC 04 8B C3 28 C4 28 4C |$.SL$.......(.(L|
00000FF0: 41 29 29 B2 36 A7 4C 41 24 B2 C4 28 4C 41 29 AA |A)).6.LA$..(LA).|
00001000: 22 2D 20 22 AA 53 48 24 AA 53 4C 24 00 35 18 F6 |"- ".SH$.SL$.5..|
00001010: 04 8B C3 28 C4 28 4C 41 29 29 B2 34 A7 4C 41 24 |...(.(LA)).4.LA$|
00001020: B2 C4 28 4C 41 29 AA 22 20 20 2D 20 22 AA 53 48 |..(LA)." - ".SH|
00001030: 24 AA 53 4C 24 00 5F 18 00 05 8B C3 28 C4 28 4C |$.SL$._.....(.(L|
00001040: 41 29 29 B2 33 A7 4C 41 24 B2 C4 28 4C 41 29 AA |A)).3.LA$..(LA).|
00001050: 22 20 20 20 2D 20 22 AA 53 48 24 AA 53 4C 24 00 |" - ".SH$.SL$.|
00001060: 8A 18 0A 05 8B C3 28 C4 28 4C 41 29 29 B2 32 A7 |......(.(LA)).2.|
00001070: 4C 41 24 B2 C4 28 4C 41 29 AA 22 20 20 20 20 2D |LA$..(LA)." -|
00001080: 20 22 AA 53 48 24 AA 53 4C 24 00 91 18 14 05 A0 | ".SH$.SL$......|
00001090: 38 00 97 18 1E 05 8E 00 00 00 28 05 AA AA AA AA |8.........(.....|
000010A0: AA AA AA AA AA AA AA AA AA 25 01 00 07 00 |.........%.... |
..(.... ********************************
.O.... * *.
V.... * PRINT CATALOG INFO *..
.(.. * *.D.
2.. ********************************.J.<
.:...D..".DIT PROGRAMMA WERD ORIGINEEL".
..N..".BEDACHT DOOR ALAN RICHARDS".?.X..
".EN VERSCHEEN IN COMMODORE COMPUTING.".
F...."..DE UITBREIDINGEN START TRACK,"..
....".START SECTOR EN LOAD ADRES"......"
.ZIJN BEDACHT DOOR PAUL HADERMANN."... .
."..DIT PROGRAMMA IS BESCHIKBAAR VIA DE"
......".PROGRAMMA BIBLIOTHEEK VAN C.C.C.
B.".8...."..VOLGENDE DRIVE TYPES ZIJN LE
ESBAAR:".G....".1541,2031,2040,3040,4040
,8050 EN 8250."...H.."..WILLEKEURIGE TOE
TS INDRUKKEN". .R..A$:.A$."".210.K....".
HET GEBRUIK VAN EEN PRINTER IS EEN".....
."..NOODZAAK !"......"..WILLEKEURIGE TOE
TS INDRUKKEN"......A$:.A$."".250.P....".
WELKE TYPE DRIVE GEBRUIKT U 1541...
...";DU$.}....DU$.."2031".DU$.."4040".DU
$.."1541".290.....T.18:TS.19:BP.144:DM.2
:BF.664:.310..."..DU$."8050".DU$."8250".
T.39:TS.29:BP.6:DM.3:BF.4133:.310...,.."
....IK KEN GEEN",DU$,"DRIVE":.I.1.2000:.
:.260.*.6..F$(300),G$(300).Q.@.. ** DEFI
NE VARIABLES & STRINGS **...J.D.0:S.0:NB
.0:TY.0:BL.0:PS.66:PL.0:L.1:N.0:X.0:A.1.
O.T.NL$.G(0):D$."":X$."":NM$."":ID$."":V
$."":DA$."":TY$."":BL$."":K$.""...^.TP$(
0)."DEL":TP$(1)."SEQ":TP$(2)."PRG":TP$(3
)."USR":TP$(4)."REL".5.H.. ** DISK ERROR
VARIABLES **.C.R..QQ.1.420.F.|.. ** INP
UT DRIVE NO. & DATE **......".WELKE DATU
M (DDMMJJ) *...";DA$.....DA$.H(DA$,2)
."/".J(DA$,3,2)."/".I(DA$,2)......"...DR
IVE NO. 0...";D$:D.F(D$).48:.D.0.D.1.
410......15,8,15:.970:.15,"I".D$:.970.C.
... ** READ DISK NAME & ID & DOS VERSION
**.W....2,8,2,"#":.970...B..".LEES DISK
NAAM & ID & DOS VERSIE"...L..15,"U1:"2;
D;T:.970...V..15,"B-P";2;BP:.970.V....K.
BP .BP.17:.#2,X$:.X$."".X$.NL$.....NM$.N
M$.X$:.......K.BP.18.BP.19:.#2,X$:.X$.""
.X$.NL$. ...ID$.ID$.X$:..O....#2,X$:.K.B
P.21.BP.22:.#2,X$:.X$."".X$.NL$.U...V$.V
$.X$:.:NM$.NM$." ".ID$." ".V$...... ** R
EAD DIRECTORY **...&.S.1:.".LEES DIRECTO
RY"...0..K.0.7.I.:..S.1.S.TS..680...D..1
5,"U1:"2;D;T;S:.970...N.BP.K.32:.15,"B-P
:"2;BP:.970.#.X..#2,X$:.#2,X$:.X$."".X$.
NL$.5.B..K.0.NB.F(X$).D.L.."....SECTOR."
S" ";.21);".FILE."L:F$(L)."".P.V..J.3.32
......#2,X$:.X$."".X$.NL$.....F$(L).F$(L
).X$:.J.....L.L.1:.K:S.NB:.560.V.... **
REMOVE NULL STRINGS **......I.1.L:.H(F$(
I),1).G(1).710......F$(I)."".710.....N.N
.1:G$(N).F$(I).$.F...@.P.. ** PRINT DIRE
CTORY **.\.Z.NM$." ".NM$." ".DA$.E..
..4,4.S....4,".":.4......4,G(1)NM$:.4.Q.
..H$."FILE BLOCKS FILE
FILE START START LOAD". ...J$
." NO. USED NAME TYP
E TRACK SECTOR ADDRESS".O...L$.
"... .... .... ....
..... ...... ......."... ..4,.
8);H$:.4,.8);J$:.4,.8);L$:.4:PL.7.Q.*..K
.A.N:BL.F(I(G$(K),2)).256.F(I(G$(K),1)):
BL$.D(BL)...4.TY$." ":TY.F(J(G$(K),1,1))
:.TY.5.TY$."*".".>.TY.(TY.128).128:TY$.T
Y$.TP$(TY).6.H.LA$." *****".F.R..TY.2
..1010.G.\.TS.F(J(G$(K),2,1)):TS$.D(TS).
..F..C(TS$).2.TS$.TS$." "...P.SS.F(J(G$(
K),3,1)):SS$.D(SS)...Z..C(SS$).2.SS$.SS$
." ".....K$.H(D(K)." ",8):BL$.H(BL
$." ",8):BF.BF.BL.....K$.K$.BL$.J(
G$(K),4,18)." ".TY$.J...K$.K$." ".TS
$." ".SS$." ".LA$.`....4,.8);K$
:PL.PL.1......PL.60..4:.4:.4:.4:.4:A.K.1
:.750......:.4:.4,.30);BF;"BLOCKS FREE."
:PL.PL.3.P....K.PL.1.PS:.4:.: 2: 4: 15:.
...J.. ** ERROR ROUTINE **...T..15,EN,EM
$,ET,ES:.EN.0...'....".DISK ERROR."EN,EM
$,ET,ES.-.....N.... ** SEARCH START ADDR
ESS **.`...SL$."":SH$."".V...NF$.J(G$(K)
,4,18)......8,8,8,D$.":".NF$.",P,R".....
.#8,X$:.X$."".X$.NL$...$.SL.F(X$).Q....S
L.0.SL$."0":.1140...8..SL.15.1130...B.SU
..(SL.16):SD.SL.SU.16...L..SD.0.SD$."0":
.1120.7.V.SD$.J("123456789ABCDEF",SD,1).
K.`.SU$.J("123456789ABCDEF",SU,1):SL$.SU
$.SD$:.1140...J.SL$.J("123456789ABCDEF",
SL,1)...T..C(SL$).1.SL$."0".SL$...~..#8,
X$:.X$."".X$.NL$.M...SH.F(X$)......SH.0.
SH$."0":.1240......SH.15.1230.....SU..(S
H.16):SD.SH.SU.16.)....SD.0.SD$."0":.122
0.K...SD$.J("123456789ABCDEF",SD,1)..D.
SU$.J("123456789ABCDEF",SU,1):SH$.SU$.SD
$:.1240...N.SH$.J("123456789ABCDEF",SH,1
)...X..C(SH$).1.SH$."0".SH$.....LA.SL.25
6.SH: LA$.D(LA)." - ".SH$.SL$......C(D(L
A)).6.LA$.D(LA)."- ".SH$.SL$.5....C(D(LA
)).4.LA$.D(LA)." - ".SH$.SL$._....C(D(L
A)).3.LA$.D(LA)." - ".SH$.SL$......C(D
(LA)).2.LA$.D(LA)." - ".SH$.SL$.....
8.........(..............%....
> CLICK IMAGE PREVIEW FOR FULL MODAL