Multiple names: CONFIGER, Z!CDPK.PM.OC
FILE INFORMATION
FILENAME(S):
• CONFIGER<br>• Z!CDPK.PM.OC
FILE TYPE(S): PRG, DEL
FILE SIZE: 6.3K
FIRST SEEN: 2025-12-01 01:48:44
APPEARS ON: 2 disk(s)
FILE HASH
a465b7b01e7cc5d6fa55729a49f582b46052e24c0a4fa5b399717e14451651a9
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| CADPAK 128 C | CONFIGER | PRG | hedning, Mattias H00r | 19 | 13 | DOWNLOAD FILE |
| CADPAK 128 C | Z!CDPK.PM.OC | DEL | hedning, Mattias H00r | 19 | 13 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 1C 0C 1C 04 00 8D 33 30 30 30 30 00 4A 1C 05 |.......30000.J..|
00000010: 00 8F 20 43 4F 4E 46 49 47 55 52 41 54 49 4F 4E |.. CONFIGURATION|
00000020: 20 50 52 4F 47 52 41 4D 20 54 4F 20 43 48 41 4E | PROGRAM TO CHAN|
00000030: 47 45 20 50 52 49 4E 54 45 52 53 20 46 4F 52 20 |GE PRINTERS FOR |
00000040: 43 41 44 50 41 4B 2D 31 32 38 00 57 1C 06 00 4E |CADPAK-128.W...N|
00000050: 24 B2 C7 28 31 33 29 00 9E 1C 07 00 86 50 4F 24 |$..(13)......PO$|
00000060: 28 31 34 29 2C 50 4F 25 28 31 34 29 2C 50 51 25 |(14),PO%(14),PQ%|
00000070: 28 31 34 29 2C 50 4D 25 28 31 34 29 2C 50 57 25 |(14),PM%(14),PW%|
00000080: 28 31 34 29 2C 50 48 25 28 31 34 29 2C 50 52 24 |(14),PH%(14),PR$|
00000090: 28 31 35 2C 33 29 2C 54 59 25 28 31 35 29 00 CF |(15,3),TY%(15)..|
000000A0: 1C 08 00 FE 02 31 3A 97 34 38 31 32 38 2C 34 3A |.....1:.48128,4:|
000000B0: 97 34 38 31 32 39 2C 30 3A 97 34 38 31 33 30 2C |.48129,0:.48130,|
000000C0: 30 3A 97 34 38 31 33 31 2C 31 3A FE 02 31 35 00 |0:.48131,1:..15.|
000000D0: DA 1C 0A 00 89 35 38 32 30 30 00 28 1D 40 1F FE |.....58200.(.@..|
000000E0: 02 31 3A 41 B2 D1 28 22 37 43 30 30 22 29 3A 81 |.1:A..("7C00"):.|
000000F0: 49 B2 30 A4 31 34 3A 41 24 B2 22 22 3A 41 31 B2 |I.0.14:A$."":A1.|
00000100: 32 35 36 AA 41 3A 81 5A B2 41 A4 41 31 3A 42 B2 |256.A:.Z.A.A1:B.|
00000110: C2 28 5A 29 3A 8B 42 B3 B1 30 A7 41 24 B2 41 24 |.(Z):.B..0.A$.A$|
00000120: AA C7 28 42 29 3A 82 5A 00 A2 1D 4A 1F 50 4F 24 |..(B):.Z...J.PO$|
00000130: 28 49 29 B2 41 24 3A 50 4F 25 28 49 29 B2 C2 28 |(I).A$:PO%(I)..(|
00000140: 5A AA 31 29 3A 50 51 25 28 49 29 B2 C2 28 5A AA |Z.1):PQ%(I)..(Z.|
00000150: 32 29 3A 50 4D 25 28 49 29 B2 C2 28 5A AA 33 29 |2):PM%(I)..(Z.3)|
00000160: 3A 50 57 25 28 49 29 B2 C2 28 5A AA 34 29 AA 32 |:PW%(I)..(Z.4).2|
00000170: 35 36 AC C2 28 5A AA 35 29 3A 50 48 25 28 49 29 |56..(Z.5):PH%(I)|
00000180: B2 C2 28 5A AA 36 29 AA 32 35 36 AC C2 28 5A AA |..(Z.6).256..(Z.|
00000190: 37 29 3A 41 B2 5A AA 38 3A 82 49 3A FE 02 31 35 |7):A.Z.8:.I:..15|
000001A0: 3A 8E 00 AA 1D 52 20 99 22 11 00 B0 1D 28 23 8F |:....R ."....(#.|
000001B0: 00 E6 1D 32 23 99 22 1F 22 3B 3A FE 02 30 3A 4B |...2#.".";:..0:K|
000001C0: 34 B2 C2 28 32 33 35 29 3A 8F 20 4B 32 3D 56 41 |4..(235):. K2=VA|
000001D0: 4C 2C 41 34 3D 53 43 52 4E 20 49 4E 54 56 4C 2C |L,A4=SCRN INTVL,|
000001E0: 41 33 3D 4D 41 58 00 F7 1D 3C 23 41 31 B2 31 39 |A3=MAX...<#A1.19|
000001F0: 30 3A 8D 39 30 37 30 00 1B 1E 46 23 A1 F9 41 24 |0:.9070...F#..A$|
00000200: 3A 8B 41 24 B2 4E 24 A7 99 22 1F 22 3A 8E 3A D5 |:.A$.N$..".":.:.|
00000210: 41 31 B2 33 32 3A 8D 39 30 37 30 00 3B 1E 50 23 |A1.32:.9070.;.P#|
00000220: 8B 41 24 B2 22 11 22 AF 4B 32 B3 41 33 A7 4B 32 |.A$.".".K2.A3.K2|
00000230: B2 4B 32 AA 31 3A 89 39 30 36 30 00 54 1E 5A 23 |.K2.1:.9060.T.Z#|
00000240: 8B 41 24 B2 22 91 22 AF 4B 32 B1 31 A7 4B 32 B2 |.A$.".".K2.1.K2.|
00000250: 4B 32 AB 31 00 70 1E 64 23 8B 41 24 B2 C7 28 31 |K2.1.p.d#.A$..(1|
00000260: 33 32 29 A7 35 30 30 30 30 3A D5 89 39 30 32 30 |32).50000:..9020|
00000270: 00 94 1E 6E 23 FE 02 31 35 3A 97 39 39 32 AA 28 |...n#..15:.992.(|
00000280: 4B 34 AB 41 33 AA 4B 32 AC 41 34 29 AC 34 30 2C |K4.A3.K2.A4).40,|
00000290: 41 31 3A 8E 00 C6 1E 30 75 E7 30 2C 32 3A 99 22 |A1:....0u.0,2:."|
000002A0: 93 1F 11 1D 43 41 44 50 41 4B 20 31 32 38 20 43 |....CADPAK 128 C|
000002B0: 4F 4E 46 49 47 55 52 41 54 49 4F 4E 20 50 52 4F |ONFIGURATION PRO|
000002C0: 43 45 44 55 52 45 00 F2 1E 35 75 99 22 20 2D 2D |CEDURE...5u." --|
000002D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000002E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000002F0: 2D 2D 00 19 1F 3A 75 99 22 11 20 43 41 44 50 41 |--...:u.". CADPA|
00000300: 4B 20 31 32 38 20 57 41 53 20 44 45 56 45 4C 4F |K 128 WAS DEVELO|
00000310: 50 45 44 20 55 53 49 4E 47 00 41 1F 44 75 99 22 |PED USING.A.Du."|
00000320: 20 41 20 4E 55 4D 42 45 52 20 4F 46 20 50 4F 50 | A NUMBER OF POP|
00000330: 55 4C 41 52 20 50 52 49 4E 54 45 52 53 20 46 4F |ULAR PRINTERS FO|
00000340: 52 00 5B 1F 4E 75 99 22 20 54 48 45 20 43 4F 4D |R.[.Nu." THE COM|
00000350: 4D 4F 44 4F 52 45 20 31 32 38 2E 00 86 1F 58 75 |MODORE 128....Xu|
00000360: 99 22 20 11 49 46 20 59 4F 55 20 48 41 56 45 20 |." .IF YOU HAVE |
00000370: 4F 4E 45 20 4F 46 20 54 48 45 53 45 20 50 52 49 |ONE OF THESE PRI|
00000380: 4E 54 45 52 53 2C 00 B2 1F 62 75 99 22 20 54 48 |NTERS,...bu." TH|
00000390: 45 4E 20 41 4C 4C 20 59 4F 55 20 4E 45 45 44 20 |EN ALL YOU NEED |
000003A0: 54 4F 20 44 4F 20 49 53 20 54 4F 20 53 45 4C 45 |TO DO IS TO SELE|
000003B0: 43 54 00 DE 1F 6C 75 99 22 20 49 54 20 46 52 4F |CT...lu." IT FRO|
000003C0: 4D 20 54 48 45 20 4C 49 53 54 20 49 4E 20 12 50 |M THE LIST IN .P|
000003D0: 41 52 54 20 41 92 20 4F 46 20 54 48 49 53 00 09 |ART A. OF THIS..|
000003E0: 20 76 75 99 22 20 50 52 4F 47 52 41 4D 20 41 4E | vu." PROGRAM AN|
000003F0: 44 20 59 4F 55 52 20 44 52 41 57 49 4E 47 53 20 |D YOUR DRAWINGS |
00000400: 53 48 4F 55 4C 44 20 42 45 00 21 20 77 75 99 22 |SHOULD BE.! wu."|
00000410: 20 50 52 4F 50 45 52 4C 59 20 53 43 41 4C 45 44 | PROPERLY SCALED|
00000420: 2E 00 4D 20 80 75 99 22 11 1D 49 46 20 59 4F 55 |..M .u."..IF YOU|
00000430: 52 20 50 52 49 4E 54 45 52 20 49 53 20 41 20 27 |R PRINTER IS A '|
00000440: 4C 4F 4F 4B 41 4C 49 4B 45 27 20 4F 46 00 75 20 |LOOKALIKE' OF.u |
00000450: 8A 75 99 22 20 4F 4E 45 20 4F 46 20 54 48 45 20 |.u." ONE OF THE |
00000460: 50 52 49 4E 54 45 52 53 20 4F 4E 20 54 48 41 54 |PRINTERS ON THAT|
00000470: 20 4C 49 53 54 00 A1 20 94 75 99 22 20 28 46 4F | LIST.. .u." (FO|
00000480: 52 20 45 58 41 4D 50 4C 45 20 54 48 45 20 53 54 |R EXAMPLE THE ST|
00000490: 41 52 20 53 47 2D 31 30 43 20 27 4C 4F 4F 4B 53 |AR SG-10C 'LOOKS|
000004A0: 27 00 C0 20 9E 75 99 22 20 20 4C 49 4B 45 20 41 |'.. .u." LIKE A|
000004B0: 20 43 4F 4D 4D 4F 44 4F 52 45 20 31 35 32 35 29 | COMMODORE 1525)|
000004C0: 00 E7 20 A8 75 99 22 20 54 48 45 4E 20 54 48 45 |.. .u." THEN THE|
000004D0: 20 44 52 41 57 49 4E 47 53 20 57 49 4C 4C 20 50 | DRAWINGS WILL P|
000004E0: 52 4F 42 41 42 4C 59 00 11 21 B2 75 99 22 20 43 |ROBABLY..!.u." C|
000004F0: 4F 4D 45 20 4F 55 54 20 4F 4B 2C 20 42 55 54 20 |OME OUT OK, BUT |
00000500: 54 48 45 20 53 49 5A 49 4E 47 20 4D 41 59 20 42 |THE SIZING MAY B|
00000510: 45 00 3B 21 BC 75 99 22 20 49 4E 43 4F 52 52 45 |E.;!.u." INCORRE|
00000520: 43 54 2E 20 54 48 49 53 20 48 41 50 50 45 4E 53 |CT. THIS HAPPENS|
00000530: 20 42 45 43 41 55 53 45 20 4F 46 00 65 21 C6 75 | BECAUSE OF.e!.u|
00000540: 99 22 20 44 49 46 46 45 52 49 4E 47 20 50 52 49 |." DIFFERING PRI|
00000550: 4E 54 20 48 45 41 44 20 57 49 52 45 20 53 50 41 |NT HEAD WIRE SPA|
00000560: 43 49 4E 47 2E 00 84 21 D0 75 85 22 11 20 12 3C |CING...!.u.". .<|
00000570: 52 45 54 55 52 4E 3E 20 46 4F 52 20 4D 4F 52 45 |RETURN> FOR MORE|
00000580: 22 3B 41 24 00 AE 21 24 77 99 22 93 11 20 49 4E |";A$..!$w.".. IN|
00000590: 20 54 48 41 54 20 43 41 53 45 2C 20 52 55 4E 20 | THAT CASE, RUN |
000005A0: 54 48 49 53 20 50 52 4F 43 45 44 55 52 45 00 D4 |THIS PROCEDURE..|
000005B0: 21 2E 77 99 22 20 12 50 41 52 54 20 41 92 20 54 |!.w." .PART A. T|
000005C0: 4F 20 53 45 4C 45 43 54 20 54 48 45 20 50 52 49 |O SELECT THE PRI|
000005D0: 4E 54 45 52 00 FB 21 38 77 99 22 20 4D 4F 44 55 |NTER..!8w." MODU|
000005E0: 4C 45 2C 20 54 48 45 4E 20 55 53 45 20 43 41 44 |LE, THEN USE CAD|
000005F0: 50 41 4B 20 31 32 38 20 41 4E 44 00 23 22 42 77 |PAK 128 AND.#"Bw|
00000600: 99 22 20 43 52 45 41 54 45 20 41 4E 20 45 58 41 |." CREATE AN EXA|
00000610: 4D 50 4C 45 20 4F 46 20 45 41 43 48 20 4F 46 20 |MPLE OF EACH OF |
00000620: 54 48 45 00 4C 22 4C 77 99 22 20 53 49 5A 45 53 |THE.L"Lw." SIZES|
00000630: 20 4F 46 20 4C 41 52 47 45 20 50 52 49 4E 54 4F | OF LARGE PRINTO|
00000640: 55 54 53 20 28 59 4F 55 20 43 41 4E 00 78 22 56 |UTS (YOU CAN.x"V|
00000650: 77 99 22 20 53 4B 49 50 20 54 48 45 20 57 49 4E |w." SKIP THE WIN|
00000660: 44 4F 57 20 50 52 49 4E 54 4F 55 54 53 20 53 49 |DOW PRINTOUTS SI|
00000670: 4E 43 45 20 54 48 45 59 00 8F 22 57 77 99 22 20 |NCE THEY.."Ww." |
00000680: 41 52 45 4E 27 54 20 53 43 41 4C 45 44 29 2E 00 |AREN'T SCALED)..|
00000690: BC 22 60 77 99 22 11 20 54 48 45 4E 20 43 41 52 |."`w.". THEN CAR|
000006A0: 45 46 55 4C 4C 59 20 4D 45 41 53 55 52 45 20 54 |EFULLY MEASURE T|
000006B0: 48 45 20 4F 55 54 45 52 20 42 4F 58 00 E3 22 6A |HE OUTER BOX.."j|
000006C0: 77 99 22 20 53 49 5A 45 53 20 4F 46 20 54 48 45 |w." SIZES OF THE|
000006D0: 20 4C 41 52 47 45 20 50 52 49 4E 54 4F 55 54 53 | LARGE PRINTOUTS|
000006E0: 20 49 4E 00 0B 23 74 77 99 22 20 49 4E 43 48 45 | IN..#tw." INCHE|
000006F0: 53 20 41 4E 44 20 2F 33 32 20 4F 52 20 43 4D 20 |S AND /32 OR CM |
00000700: 41 4E 44 20 44 45 43 49 4D 41 4C 00 1D 23 7E 77 |AND DECIMAL..#~w|
00000710: 99 22 20 46 52 41 43 54 49 4F 4E 53 2E 00 42 23 |." FRACTIONS..B#|
00000720: 88 77 99 22 11 20 54 48 45 4E 20 52 55 4E 20 54 |.w.". THEN RUN T|
00000730: 48 49 53 20 50 52 4F 47 52 41 4D 20 41 47 41 49 |HIS PROGRAM AGAI|
00000740: 4E 2C 00 6A 23 92 77 99 22 20 53 45 4C 45 43 54 |N,.j#.w." SELECT|
00000750: 49 4E 47 20 12 42 4F 54 48 92 20 50 41 52 54 53 |ING .BOTH. PARTS|
00000760: 20 12 41 20 41 4E 44 20 42 92 00 96 23 9C 77 99 | .A AND B...#.w.|
00000770: 22 20 49 4E 20 50 41 52 54 20 42 20 59 4F 55 20 |" IN PART B YOU |
00000780: 57 49 4C 4C 20 48 41 56 45 20 54 4F 20 45 4E 54 |WILL HAVE TO ENT|
00000790: 45 52 20 54 48 45 00 BE 23 A6 77 99 22 20 4D 45 |ER THE..#.w." ME|
000007A0: 41 53 55 52 45 44 20 56 41 4C 55 45 53 20 41 4E |ASURED VALUES AN|
000007B0: 44 20 54 48 45 59 20 57 49 4C 4C 20 42 45 00 EA |D THEY WILL BE..|
000007C0: 23 B0 77 99 22 20 55 53 45 44 20 54 4F 20 50 52 |#.w." USED TO PR|
000007D0: 4F 50 45 52 4C 59 20 53 43 41 4C 45 20 54 48 45 |OPERLY SCALE THE|
000007E0: 20 50 52 49 4E 54 4F 55 54 2E 00 09 24 B4 78 85 | PRINTOUT...$.x.|
000007F0: 22 11 20 12 3C 52 45 54 55 52 4E 3E 20 46 4F 52 |". .<RETURN> FOR|
00000800: 20 4D 4F 52 45 22 3B 41 24 00 32 24 18 79 99 22 | MORE";A$.2$.y."|
00000810: 93 20 4E 4F 54 45 20 57 48 45 4E 20 4D 45 41 53 |. NOTE WHEN MEAS|
00000820: 55 52 49 4E 47 20 41 4E 44 20 45 4E 54 45 52 49 |URING AND ENTERI|
00000830: 4E 47 00 5D 24 22 79 99 22 20 44 49 4D 45 4E 53 |NG.]$"y." DIMENS|
00000840: 49 4F 4E 53 20 54 48 41 54 20 53 4F 4D 45 20 50 |IONS THAT SOME P|
00000850: 52 49 4E 54 4F 55 54 53 20 43 4F 4D 45 00 86 24 |RINTOUTS COME..$|
00000860: 2C 79 99 22 20 4F 55 54 20 4E 4F 52 4D 41 4C 4C |,y." OUT NORMALL|
00000870: 59 20 41 4E 44 20 53 4F 4D 45 20 41 52 45 20 50 |Y AND SOME ARE P|
00000880: 52 49 4E 54 45 44 00 B0 24 36 79 99 22 20 53 49 |RINTED..$6y." SI|
00000890: 44 45 57 41 59 53 2E 20 54 48 49 53 20 49 53 20 |DEWAYS. THIS IS |
000008A0: 49 4E 44 49 43 41 54 45 44 20 42 59 20 54 48 45 |INDICATED BY THE|
000008B0: 00 D5 24 40 79 99 22 20 57 4F 52 44 53 20 28 4E |..$@y." WORDS (N|
000008C0: 4F 52 4D 29 20 4F 52 20 28 53 49 44 45 29 20 49 |ORM) OR (SIDE) I|
000008D0: 4E 20 54 48 45 00 F1 24 4A 79 99 22 20 50 52 49 |N THE..$Jy." PRI|
000008E0: 4E 54 4F 55 54 20 53 45 4C 45 43 54 49 4F 4E 53 |NTOUT SELECTIONS|
000008F0: 2E 00 14 25 54 79 99 22 20 46 4F 52 20 4E 4F 52 |...%Ty." FOR NOR|
00000900: 4D 3A 2D B0 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |M:-.............|
00000910: C3 C3 C3 AE 00 37 25 5E 79 99 22 20 20 20 20 20 |.....7%^y." |
00000920: 20 20 20 20 20 5E C2 20 20 20 20 20 20 20 20 20 | ^. |
00000930: 20 20 20 20 20 20 C2 00 5A 25 5F 79 99 22 20 20 | ..Z%_y." |
00000940: 20 20 20 20 20 20 20 20 C2 C2 20 20 20 20 20 20 | .. |
00000950: 20 20 20 20 20 20 20 20 20 C2 00 7D 25 60 79 99 | ..}%`y.|
00000960: 22 20 48 45 49 47 48 54 2D 2D 3E C2 C2 20 20 20 |" HEIGHT-->.. |
00000970: 20 20 20 20 20 20 20 20 20 20 20 20 C2 00 A0 25 | ...%|
00000980: 68 79 99 22 20 20 20 20 20 20 20 20 20 20 C2 C2 |hy." ..|
00000990: 20 20 20 20 55 50 5E 20 20 20 20 20 20 20 20 C2 | UP^ .|
000009A0: 00 C3 25 6A 79 99 22 20 20 20 20 20 20 20 20 20 |..%jy." |
000009B0: 20 56 C2 20 20 20 20 20 20 20 20 20 20 20 20 20 | V. |
000009C0: 20 20 C2 00 E6 25 72 79 99 22 20 20 20 20 20 20 | ...%ry." |
000009D0: 20 20 20 20 2D AD C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 | -...........|
000009E0: C3 C3 C3 C3 C3 BD 00 08 26 7C 79 99 22 20 20 20 |........&|y." |
000009F0: 20 20 20 20 20 20 20 20 20 3C 2D 2D 2D 57 49 44 | <---WID|
00000A00: 54 48 2D 2D 2D 2D 2D 3E 00 27 26 90 79 99 22 20 |TH----->.'&.y." |
00000A10: 46 4F 52 20 53 49 44 45 3A 20 20 20 2D B0 C3 C3 |FOR SIDE: -...|
00000A20: C3 C3 C3 C3 C3 C3 AE 00 46 26 9A 79 99 22 20 20 |........F&.y." |
00000A30: 20 20 20 20 20 20 20 20 20 20 20 5E C2 20 20 20 | ^. |
00000A40: 20 20 20 20 20 C2 00 65 26 A4 79 99 22 20 20 20 | ..e&.y." |
00000A50: 20 20 20 20 20 20 20 20 20 20 C2 C2 20 20 20 20 | .. |
00000A60: 20 20 20 20 C2 00 84 26 A9 79 99 22 20 20 20 20 | ...&.y." |
00000A70: 20 20 20 20 20 20 20 20 20 C2 C2 20 20 20 20 20 | .. |
00000A80: 20 20 20 C2 00 A3 26 AE 79 99 22 20 20 20 57 49 | ...&.y." WI|
00000A90: 44 54 48 2D 2D 2D 2D 3E C2 C2 20 20 3C 2D 20 20 |DTH---->.. <- |
00000AA0: 20 20 C2 00 C2 26 B4 79 99 22 20 20 20 20 20 20 | ...&.y." |
00000AB0: 20 20 20 20 20 20 20 C2 C2 20 20 55 50 20 20 20 | .. UP |
00000AC0: 20 C2 00 E1 26 B8 79 99 22 20 20 20 20 20 20 20 | ...&.y." |
00000AD0: 20 20 20 20 20 20 C2 C2 20 20 20 20 20 20 20 20 | .. |
00000AE0: C2 00 00 27 C2 79 99 22 20 20 20 20 20 20 20 20 |...'.y." |
00000AF0: 20 20 20 20 20 56 C2 20 20 20 20 20 20 20 20 C2 | V. .|
00000B00: 00 1F 27 CC 79 99 22 20 20 20 20 20 20 20 20 20 |..'.y." |
00000B10: 20 20 20 20 2D AD C3 C3 C3 C3 C3 C3 C3 C3 BD 00 | -...........|
00000B20: 3E 27 D6 79 99 22 20 20 20 20 20 20 20 20 20 20 |>'.y." |
00000B30: 20 20 20 20 C2 3C 48 45 49 47 48 54 3E C2 00 5C | .<HEIGHT>..\|
00000B40: 27 00 7D 85 22 20 12 3C 52 45 54 55 52 4E 3E 20 |'.}." .<RETURN> |
00000B50: 46 4F 52 20 4D 4F 52 45 22 3B 41 24 00 62 27 E8 |FOR MORE";A$.b'.|
00000B60: 80 8E 00 79 27 40 9C E7 30 2C 32 3A 8F 20 50 41 |...y'@..0,2:. PA|
00000B70: 52 54 20 42 20 57 4F 52 4B 00 98 27 54 9C 99 22 |RT B WORK..'T.."|
00000B80: 93 1F 20 11 43 4F 4E 46 49 47 55 52 41 54 49 4F |.. .CONFIGURATIO|
00000B90: 4E 20 50 41 52 54 20 42 00 C6 27 68 9C 44 24 B2 |N PART B..'h.D$.|
00000BA0: 22 22 3A 85 22 20 4D 45 41 53 55 52 45 20 49 4E |"":." MEASURE IN|
00000BB0: 20 43 4D 20 4F 52 20 49 4E 43 48 45 53 28 43 2F | CM OR INCHES(C/|
00000BC0: 49 29 22 3B 44 24 00 E5 27 7C 9C 8B 28 44 24 B3 |I)";D$..'|..(D$.|
00000BD0: B1 22 43 22 29 AF 28 44 24 B3 B1 22 49 22 29 A7 |."C").(D$.."I").|
00000BE0: 34 30 30 34 30 00 0C 28 A4 9C 99 22 93 20 12 53 |40040..(...". .S|
00000BF0: 45 4C 45 43 54 20 41 20 57 49 4E 44 4F 57 20 46 |ELECT A WINDOW F|
00000C00: 4F 52 4D 41 54 20 54 4F 20 45 4E 44 00 55 28 A9 |ORMAT TO END.U(.|
00000C10: 9C 41 33 B2 31 3A 99 22 11 20 53 45 4C 45 43 54 |.A3.1:.". SELECT|
00000C20: 20 46 4F 52 4D 41 54 20 54 4F 20 43 48 41 4E 47 | FORMAT TO CHANG|
00000C30: 45 3A 22 3A 81 49 B2 30 A4 31 34 3A 8B 50 4F 24 |E:":.I.0.14:.PO$|
00000C40: 28 49 29 B2 22 2A 22 A7 49 B2 31 34 3A 82 3A 89 |(I)."*".I.14:.:.|
00000C50: 34 30 31 32 30 00 69 28 AE 9C 41 33 B2 49 3A 99 |40120.i(..A3.I:.|
00000C60: 2C 50 4F 24 28 49 29 3A 82 00 88 28 B8 9C 41 34 |,PO$(I):...(..A4|
00000C70: B2 31 3A FE 02 31 3A 4B 32 B2 C2 28 34 38 31 33 |.1:..1:K2..(4813|
00000C80: 31 29 3A 8D 39 30 30 30 00 A4 28 C2 9C 8B C8 28 |1):.9000..(....(|
00000C90: 50 4F 24 28 4B 32 29 2C 31 29 B2 22 2D 22 A7 34 |PO$(K2),1)."-".4|
00000CA0: 38 30 30 30 00 C9 28 CC 9C 99 22 50 52 45 53 45 |8000..(..."PRESE|
00000CB0: 4E 54 20 44 45 53 43 52 49 50 54 49 4F 4E 3A 22 |NT DESCRIPTION:"|
00000CC0: 3A 99 50 4F 24 28 4B 32 29 00 FB 28 D6 9C 99 22 |:.PO$(K2)..(..."|
00000CD0: 4E 45 57 20 44 45 53 43 52 49 50 54 49 4F 4E 20 |NEW DESCRIPTION |
00000CE0: 3C 52 45 54 55 52 4E 20 46 4F 52 20 53 41 4D 45 |<RETURN FOR SAME|
00000CF0: 3E 22 3A 85 50 4F 24 28 4B 32 29 00 0D 29 DB 9C |>":.PO$(K2)..)..|
00000D00: 8B 44 24 B2 22 49 22 A7 34 30 32 36 30 00 39 29 |.D$."I".40260.9)|
00000D10: E0 9C 99 22 50 52 45 53 45 4E 54 20 57 49 44 54 |..."PRESENT WIDT|
00000D20: 48 20 28 43 4D 29 3A 22 3A 42 B2 50 57 25 28 4B |H (CM):":B.PW%(K|
00000D30: 32 29 AD 31 30 30 3A 99 42 00 6C 29 EA 9C 85 22 |2).100:.B.l)..."|
00000D40: 4E 45 57 20 57 49 44 54 48 20 3C 52 45 54 55 52 |NEW WIDTH <RETUR|
00000D50: 4E 20 46 4F 52 20 53 41 4D 45 3E 22 3B 42 3A 50 |N FOR SAME>";B:P|
00000D60: 57 25 28 4B 32 29 B2 42 AC 31 30 30 00 99 29 F4 |W%(K2).B.100..).|
00000D70: 9C 99 22 50 52 45 53 45 4E 54 20 48 45 49 47 48 |.."PRESENT HEIGH|
00000D80: 54 20 28 43 4D 29 3A 22 3A 42 B2 50 48 25 28 4B |T (CM):":B.PH%(K|
00000D90: 32 29 AD 31 30 30 3A 99 42 00 CD 29 FE 9C 85 22 |2).100:.B..)..."|
00000DA0: 4E 45 57 20 48 45 49 47 48 54 20 3C 52 45 54 55 |NEW HEIGHT <RETU|
00000DB0: 52 4E 20 46 4F 52 20 53 41 4D 45 3E 22 3B 42 3A |RN FOR SAME>";B:|
00000DC0: 50 48 25 28 4B 32 29 B2 42 AC 31 30 30 00 D8 29 |PH%(K2).B.100..)|
00000DD0: 03 9D 89 34 30 31 30 30 00 26 2A 44 9D 99 22 50 |...40100.&*D.."P|
00000DE0: 52 45 53 45 4E 54 20 57 49 44 54 48 20 28 49 4E |RESENT WIDTH (IN|
00000DF0: 43 48 45 53 20 2B 20 2F 33 32 4E 44 53 29 3A 22 |CHES + /32NDS):"|
00000E00: 3A 42 B2 50 57 25 28 4B 32 29 AD 32 35 34 3A 43 |:B.PW%(K2).254:C|
00000E10: B2 B5 28 42 29 3A 44 B2 B5 28 2E 35 AA 28 42 AB |..(B):D..(.5.(B.|
00000E20: 43 29 AC 33 32 29 00 36 2A 45 9D 99 43 22 2B 22 |C).32).6*E..C"+"|
00000E30: 44 22 2F 33 32 22 00 63 2A 4E 9D 85 22 4E 45 57 |D"/32".c*N.."NEW|
00000E40: 20 57 49 44 54 48 3A 20 12 57 48 4F 4C 45 20 49 | WIDTH: .WHOLE I|
00000E50: 4E 43 48 45 53 92 3C 52 45 54 3D 53 41 4D 45 3E |NCHES.<RET=SAME>|
00000E60: 22 3B 43 00 9B 2A 4F 9D 85 22 20 20 20 20 20 20 |";C..*O.." |
00000E70: 20 20 20 20 20 12 2F 33 32 20 4F 46 20 49 4E 43 | ./32 OF INC|
00000E80: 48 92 3C 52 45 54 3D 53 41 4D 45 3E 22 3B 44 3A |H.<RET=SAME>";D:|
00000E90: 8B 44 B1 33 32 A7 34 30 32 37 31 00 B6 2A 50 9D |.D.32.40271..*P.|
00000EA0: 50 57 25 28 4B 32 29 B2 32 35 34 AC 28 43 AA 28 |PW%(K2).254.(C.(|
00000EB0: 44 AD 33 32 29 29 00 05 2B 58 9D 99 22 50 52 45 |D.32))..+X.."PRE|
00000EC0: 53 45 4E 54 20 48 45 49 47 48 54 20 28 49 4E 43 |SENT HEIGHT (INC|
00000ED0: 48 45 53 20 2B 20 2F 33 32 4E 44 53 29 3A 22 3A |HES + /32NDS):":|
00000EE0: 42 B2 50 48 25 28 4B 32 29 AD 32 35 34 3A 43 B2 |B.PH%(K2).254:C.|
00000EF0: B5 28 42 29 3A 44 B2 B5 28 2E 35 AA 28 42 AB 43 |.(B):D..(.5.(B.C|
00000F00: 29 AC 33 32 29 00 15 2B 59 9D 99 43 22 2B 22 44 |).32)..+Y..C"+"D|
00000F10: 22 2F 33 32 22 00 43 2B 62 9D 85 22 4E 45 57 20 |"/32".C+b.."NEW |
00000F20: 48 45 49 47 48 54 3A 20 12 57 48 4F 4C 45 20 49 |HEIGHT: .WHOLE I|
00000F30: 4E 43 48 45 53 92 3C 52 45 54 3D 53 41 4D 45 3E |NCHES.<RET=SAME>|
00000F40: 22 3B 43 00 7C 2B 63 9D 85 22 20 20 20 20 20 20 |";C.|+c.." |
00000F50: 20 20 20 20 20 20 12 2F 33 32 20 4F 46 20 49 4E | ./32 OF IN|
00000F60: 43 48 92 3C 52 45 54 3D 53 41 4D 45 3E 22 3B 44 |CH.<RET=SAME>";D|
00000F70: 3A 8B 44 B1 33 32 A7 34 30 32 39 31 00 97 2B 64 |:.D.32.40291..+d|
00000F80: 9D 50 48 25 28 4B 32 29 B2 32 35 34 AC 28 43 AA |.PH%(K2).254.(C.|
00000F90: 28 44 AD 33 32 29 29 00 A2 2B 67 9D 89 34 30 31 |(D.32))..+g..401|
00000FA0: 30 30 00 BD 2B 80 BB 85 22 20 11 12 46 49 4E 49 |00..+..." ..FINI|
00000FB0: 53 48 45 44 28 59 2F 4E 29 22 3B 41 24 00 D8 2B |SHED(Y/N)";A$..+|
00000FC0: 8A BB 8B 41 24 B3 B1 22 59 22 AF 41 24 B3 B1 22 |...A$.."Y".A$.."|
00000FD0: 4E 22 A7 34 38 30 30 30 00 F1 2B 94 BB 8B 41 24 |N".48000..+...A$|
00000FE0: B2 22 59 22 A7 34 39 30 30 30 3A D5 34 30 31 30 |."Y".49000:.4010|
00000FF0: 30 00 10 2C 68 BF 8F 20 57 52 49 54 45 20 4F 55 |0..,h.. WRITE OU|
00001000: 54 20 4E 45 57 20 44 45 53 43 52 20 46 49 4C 45 |T NEW DESCR FILE|
00001010: 00 1F 2C 72 BF F2 22 4F 4C 44 2E 50 52 44 22 00 |..,r.."OLD.PRD".|
00001020: 34 2C 7C BF F5 28 4E 44 24 29 A4 22 4F 4C 44 2E |4,|..(ND$)."OLD.|
00001030: 50 52 44 22 00 4A 2C 86 BF FE 0D 23 38 2C 28 4E |PRD".J,....#8,(N|
00001040: 44 24 AA 22 2C 50 22 29 2C 57 00 5E 2C 90 BF 98 |D$.",P"),W.^,...|
00001050: 38 2C C7 28 30 29 3B C7 28 32 35 33 29 3B 00 76 |8,.(0);.(253);.v|
00001060: 2C 9A BF 98 38 2C 22 12 22 AA 50 4F 24 28 30 29 |,...8,".".PO$(0)|
00001070: 3B C7 28 30 29 3B 00 8C 2C A4 BF 98 38 2C C7 28 |;.(0);..,...8,.(|
00001080: 30 29 3B 3A 98 38 2C C7 28 30 29 3B 00 A2 2C AE |0);:.8,.(0);..,.|
00001090: BF 98 38 2C C7 28 30 29 3B 3A 98 38 2C C7 28 30 |..8,.(0);:.8,.(0|
000010A0: 29 3B 00 C1 2C C2 BF 98 38 2C C7 28 30 29 3B 3A |);..,...8,.(0);:|
000010B0: 98 38 2C C7 28 30 29 3B 3A 98 38 2C C7 28 30 29 |.8,.(0);:.8,.(0)|
000010C0: 3B 00 CD 2C CC BF 81 4A B2 31 A4 31 34 00 E1 2C |;..,...J.1.14..,|
000010D0: D6 BF 98 38 2C 50 4F 24 28 4A 29 3B C7 28 30 29 |...8,PO$(J);.(0)|
000010E0: 3B 00 F3 2C E0 BF 98 38 2C C7 28 50 4F 25 28 4A |;..,...8,.(PO%(J|
000010F0: 29 29 3B 00 05 2D EA BF 98 38 2C C7 28 50 51 25 |));..-...8,.(PQ%|
00001100: 28 4A 29 29 3B 00 17 2D F4 BF 98 38 2C C7 28 50 |(J));..-...8,.(P|
00001110: 4D 25 28 4A 29 29 3B 00 3A 2D FE BF 48 B2 B5 28 |M%(J));.:-..H..(|
00001120: 50 57 25 28 4A 29 AD 32 35 36 29 3A 4C B2 50 57 |PW%(J).256):L.PW|
00001130: 25 28 4A 29 AB 32 35 36 AC 48 00 50 2D 08 C0 98 |%(J).256.H.P-...|
00001140: 38 2C C7 28 4C 29 3B 3A 98 38 2C C7 28 48 29 3B |8,.(L);:.8,.(H);|
00001150: 00 73 2D 12 C0 48 B2 B5 28 50 48 25 28 4A 29 AD |.s-..H..(PH%(J).|
00001160: 32 35 36 29 3A 4C B2 50 48 25 28 4A 29 AB 32 35 |256):L.PH%(J).25|
00001170: 36 AC 48 00 89 2D 1C C0 98 38 2C C7 28 4C 29 3B |6.H..-...8,.(L);|
00001180: 3A 98 38 2C C7 28 48 29 3B 00 90 2D 26 C0 82 4A |:.8,.(H);..-&..J|
00001190: 00 99 2D 30 C0 FE 0F 23 38 00 9F 2D 4F C3 8E 00 |..-0...#8..-O...|
000011A0: A5 2D 1E D7 8F 00 CC 2D 28 D7 81 5A 5A B2 31 A4 |.-.....-(..ZZ.1.|
000011B0: 31 30 3A A1 41 24 3A 82 3A 99 22 12 20 41 4E 59 |10:.A$:.:.". ANY|
000011C0: 20 4B 45 59 22 3A A1 F9 41 24 3A 8E 00 E1 2D 90 | KEY":..A$:...-.|
000011D0: E2 8F 20 43 4F 4E 46 49 47 2F 50 52 49 4E 54 45 |.. CONFIG/PRINTE|
000011E0: 52 00 F9 2D 9A E2 8F 20 52 45 41 44 49 4E 20 43 |R..-... READIN C|
000011F0: 4F 4E 46 49 47 20 52 45 43 00 35 2E A4 E2 FE 0D |ONFIG REC.5.....|
00001200: 23 38 2C 22 43 44 50 4B 2E 43 4F 4E 46 49 47 22 |#8,"CDPK.CONFIG"|
00001210: 3A 8B 44 53 B3 B1 30 A7 FE 0F 23 38 3A FE 02 31 |:.DS..0...#8:..1|
00001220: 3A 97 34 38 31 33 31 2C 31 3A FE 02 31 35 3A 89 |:.48131,1:..15:.|
00001230: 35 38 32 30 30 00 66 2E AE E2 84 38 2C 4E 50 24 |58200.f....8,NP$|
00001240: 3A 84 38 2C 4E 44 24 3A 81 49 B2 31 A4 35 3A 84 |:.8,ND$:.I.1.5:.|
00001250: 38 2C 41 3A FE 02 31 3A 97 34 38 31 32 38 AB 31 |8,A:..1:.48128.1|
00001260: AA 49 2C 41 3A 82 00 90 2E B8 E2 FE 0F 23 38 3A |.I,A:........#8:|
00001270: 8B 44 53 B3 B1 30 A7 99 22 43 4F 4E 46 49 47 20 |.DS..0.."CONFIG |
00001280: 46 49 4C 45 20 45 52 52 22 3A 89 35 38 32 30 30 |FILE ERR":.58200|
00001290: 00 9F 2E C2 E2 8D 35 38 31 30 30 3A 89 32 30 00 |......58100:.20.|
000012A0: D5 2E F4 E2 FE 11 28 4E 44 24 29 2C 42 31 2C 50 |......(ND$),B1,P|
000012B0: 28 D1 28 22 37 43 30 30 22 29 29 3A FE 11 28 4E |(.("7C00")):..(N|
000012C0: 50 24 29 2C 42 31 2C 50 28 D1 28 22 35 30 30 30 |P$),B1,P(.("5000|
000012D0: 22 29 29 3A 8E 00 47 2F 58 E3 E7 30 2C 32 3A 99 |")):..G/X..0,2:.|
000012E0: 22 93 11 20 1F 43 41 44 50 41 4B 20 31 32 38 20 |".. .CADPAK 128 |
000012F0: 50 52 49 4E 54 45 52 20 43 4F 4E 46 49 47 20 50 |PRINTER CONFIG P|
00001300: 52 4F 43 45 44 55 52 45 22 3A 99 2C 22 11 20 3E |ROCEDURE":.,". >|
00001310: 3E 20 12 50 41 52 54 20 41 92 20 3C 3C 20 20 20 |> .PART A. << |
00001320: 22 3A 99 22 11 11 20 42 45 20 53 55 52 45 20 54 |":.".. BE SURE T|
00001330: 48 41 54 20 54 48 45 20 43 41 44 50 41 4B 2D 31 |HAT THE CADPAK-1|
00001340: 32 38 20 44 49 53 4B 00 96 2F 62 E3 99 22 1D 49 |28 DISK../b..".I|
00001350: 53 20 49 4E 20 54 48 45 20 44 52 49 56 45 20 41 |S IN THE DRIVE A|
00001360: 4E 44 20 54 48 45 20 57 52 49 54 45 2D 22 3A 99 |ND THE WRITE-":.|
00001370: 22 20 50 52 4F 54 45 43 54 20 4E 4F 54 43 48 20 |" PROTECT NOTCH |
00001380: 49 53 20 12 55 4E 92 43 4F 56 45 52 45 44 22 3A |IS .UN.COVERED":|
00001390: 8D 35 35 30 38 30 00 CE 2F 6C E3 FE 0D 23 38 2C |.55080../l...#8,|
000013A0: 22 43 44 50 4B 2E 50 52 49 4E 54 45 52 53 22 3A |"CDPK.PRINTERS":|
000013B0: 8B 44 53 B3 B1 30 A7 FE 0F 23 38 3A 99 44 53 24 |.DS..0...#8:.DS$|
000013C0: 3A 8D 35 35 30 38 30 3A 89 35 38 32 30 30 00 2E |:.55080:.58200..|
000013D0: 30 76 E3 41 33 B2 31 35 3A 81 49 B2 31 A4 31 35 |0v.A3.15:.I.1.15|
000013E0: 3A 84 38 2C 50 52 24 28 49 2C 30 29 3A 84 38 2C |:.8,PR$(I,0):.8,|
000013F0: 50 52 24 28 49 2C 31 29 3A 84 38 2C 50 52 24 28 |PR$(I,1):.8,PR$(|
00001400: 49 2C 32 29 3A 84 38 2C 54 59 25 28 49 29 3A 8B |I,2):.8,TY%(I):.|
00001410: 50 52 24 28 49 2C 30 29 B2 22 2A 22 A7 41 33 B2 |PR$(I,0)."*".A3.|
00001420: 49 AB 31 3A 89 35 38 32 34 30 3A D5 3A 82 00 51 |I.1:.58240:.:..Q|
00001430: 30 80 E3 FE 0F 23 38 3A 8B 44 53 B3 B1 30 A7 99 |0....#8:.DS..0..|
00001440: 44 53 24 3A 8D 35 35 30 38 30 3A 89 35 38 32 30 |DS$:.55080:.5820|
00001450: 30 00 B7 30 8A E3 99 22 93 11 20 53 45 4C 45 43 |0..0...".. SELEC|
00001460: 54 20 50 52 49 4E 54 45 52 3A 22 3A 81 49 B2 31 |T PRINTER:":.I.1|
00001470: A4 41 33 3A 99 2C 50 52 24 28 49 2C 30 29 3A 82 |.A3:.,PR$(I,0):.|
00001480: 3A 41 34 B2 31 3A 4B 32 B2 31 3A 8D 39 30 30 30 |:A4.1:K2.1:.9000|
00001490: 3A 4E 50 24 B2 50 52 24 28 4B 32 2C 31 29 3A 4E |:NP$.PR$(K2,1):N|
000014A0: 44 24 B2 50 52 24 28 4B 32 2C 32 29 3A 54 59 B2 |D$.PR$(K2,2):TY.|
000014B0: 54 59 25 28 4B 32 29 00 C8 30 94 E3 8D 35 38 31 |TY%(K2)..0...581|
000014C0: 30 30 3A 8D 38 30 30 30 00 07 31 9E E3 FE 02 31 |00:.8000..1....1|
000014D0: 3A 4B B2 C2 28 34 38 31 32 38 29 3A 99 22 20 44 |:K..(48128):." D|
000014E0: 45 56 49 43 45 20 23 20 3A 22 4B 3A 85 4B 3A FE |EVICE # :"K:.K:.|
000014F0: 02 31 3A 97 34 38 31 32 38 2C 4B 3A 8B 54 59 B2 |.1:.48128,K:.TY.|
00001500: 30 A7 35 38 33 30 30 00 40 31 A8 E3 FE 02 31 3A |0.58300.@1....1:|
00001510: 4B B2 C2 28 34 38 31 32 39 29 3A 99 22 20 47 52 |K..(48129):." GR|
00001520: 41 50 48 49 43 20 53 45 43 20 41 44 44 52 22 4B |APHIC SEC ADDR"K|
00001530: 3A 85 4B 3A FE 02 31 3A 97 34 38 31 32 39 2C 4B |:.K:..1:.48129,K|
00001540: 00 68 31 B2 E3 FE 02 31 3A 8B 28 C2 28 34 38 31 |.h1....1:.(.(481|
00001550: 33 30 29 29 B3 B1 30 A7 4E 56 24 B2 22 59 22 3A |30))..0.NV$."Y":|
00001560: D5 4E 56 24 B2 22 4E 22 00 A0 31 B4 E3 99 22 20 |.NV$."N"..1..." |
00001570: 41 53 43 49 49 20 54 52 41 4E 53 4C 41 54 45 A0 |ASCII TRANSLATE.|
00001580: 28 59 2F 4E 29 3A 22 4E 56 24 3A 85 4E 56 24 3A |(Y/N):"NV$:.NV$:|
00001590: 4B B2 30 3A 8B 4E 56 24 B2 22 59 22 A7 4B B2 31 |K.0:.NV$."Y".K.1|
000015A0: 00 B1 31 B6 E3 FE 02 31 3A 97 34 38 31 33 30 2C |..1....1:.48130,|
000015B0: 4B 00 E3 31 BC E3 85 22 11 20 12 44 4F 20 59 4F |K..1...". .DO YO|
000015C0: 55 20 57 41 4E 54 20 54 4F 20 44 4F 20 50 41 52 |U WANT TO DO PAR|
000015D0: 54 20 42 28 53 49 5A 49 4E 47 28 59 2F 4E 29 22 |T B(SIZING(Y/N)"|
000015E0: 3B 41 24 00 02 32 BD E3 8B 28 41 24 B3 B1 22 59 |;A$..2...(A$.."Y|
000015F0: 22 29 AF 28 41 24 B3 B1 22 4E 22 29 A7 35 38 33 |").(A$.."N").583|
00001600: 30 30 00 14 32 C1 E3 8B 41 24 B2 22 4E 22 A7 35 |00..2...A$."N".5|
00001610: 38 33 35 30 00 1F 32 C6 E3 8D 34 30 30 30 30 00 |8350..2...40000.|
00001620: 2A 32 EE E3 8D 35 38 35 30 30 00 4A 32 F3 E3 F2 |*2...58500.J2...|
00001630: 22 43 44 50 4B 2E 43 4F 4E 46 49 47 22 3A 8B 44 |"CDPK.CONFIG":.D|
00001640: 53 B1 31 39 A7 35 38 39 30 30 00 7D 32 F8 E3 FE |S.19.58900.}2...|
00001650: 0D 23 38 2C 22 43 44 50 4B 2E 43 4F 4E 46 49 47 |.#8,"CDPK.CONFIG|
00001660: 22 2C 57 3A 8B 44 53 B3 B1 30 A7 8D 35 38 39 37 |",W:.DS..0..5897|
00001670: 30 3A FE 0F 23 38 3A 89 35 38 33 36 30 00 B0 32 |0:..#8:.58360..2|
00001680: 02 E4 FE 02 30 3A 98 38 2C 4E 50 24 3A 98 38 2C |....0:.8,NP$:.8,|
00001690: 4E 44 24 3A 81 49 B2 31 A4 35 3A FE 02 31 3A 98 |ND$:.I.1.5:..1:.|
000016A0: 38 2C C2 28 34 38 31 32 38 AB 31 AA 49 29 3A 82 |8,.(48128.1.I):.|
000016B0: 00 E3 32 0C E4 FE 0F 23 38 3A 8B 44 53 B3 B1 30 |..2....#8:.DS..0|
000016C0: A7 99 22 43 4F 4E 46 49 47 20 46 49 4C 45 20 45 |.."CONFIG FILE E|
000016D0: 52 52 4F 52 22 3A 8D 35 35 30 38 30 3A 89 35 38 |RROR":.55080:.58|
000016E0: 33 35 30 00 34 33 16 E4 99 22 4E 4F 57 20 50 55 |350.43..."NOW PU|
000016F0: 54 20 54 41 50 45 20 42 41 43 4B 20 4F 4E 20 57 |T TAPE BACK ON W|
00001700: 52 49 54 45 2D 50 52 4F 54 45 43 54 22 3A 99 22 |RITE-PROTECT":."|
00001710: 4E 4F 54 43 48 22 3A 99 22 11 20 43 4F 4E 46 49 |NOTCH":.". CONFI|
00001720: 47 55 52 41 54 49 4F 4E 20 46 49 4E 49 53 48 45 |GURATION FINISHE|
00001730: 44 22 3A 80 00 5F 33 52 20 99 22 11 20 12 50 52 |D":.._3R .". .PR|
00001740: 45 53 53 20 53 50 41 43 45 20 42 41 52 20 54 4F |ESS SPACE BAR TO|
00001750: 20 41 42 4F 52 54 20 50 52 49 4E 54 4F 55 54 00 | ABORT PRINTOUT.|
00001760: 9E 33 84 E4 41 33 B2 31 3A 99 22 11 20 53 45 4C |.3..A3.1:.". SEL|
00001770: 45 43 54 20 46 4F 52 4D 41 54 3A 22 3A 81 49 B2 |ECT FORMAT:":.I.|
00001780: 30 A4 31 34 3A 8B 50 4F 24 28 49 29 B2 22 2A 22 |0.14:.PO$(I)."*"|
00001790: A7 49 B2 31 34 3A 82 3A 89 35 38 35 32 30 00 B2 |.I.14:.:.58520..|
000017A0: 33 8E E4 41 33 B2 49 3A 99 2C 50 4F 24 28 49 29 |3..A3.I:.,PO$(I)|
000017B0: 3A 82 00 E1 33 98 E4 41 34 B2 31 3A FE 02 31 3A |:...3..A4.1:..1:|
000017C0: 4B 32 B2 C2 28 34 38 31 33 31 29 3A 8D 39 30 30 |K2..(48131):.900|
000017D0: 30 3A FE 02 31 3A 97 34 38 31 33 31 2C 4B 32 3A |0:..1:.48131,K2:|
000017E0: 8E 00 17 34 14 E6 8B 44 53 B2 32 36 A7 99 22 57 |...4...DS.26.."W|
000017F0: 52 49 54 45 2D 50 52 4F 54 20 4E 4F 54 43 48 20 |RITE-PROT NOTCH |
00001800: 20 4F 56 45 52 45 44 22 3B 3A 8D 35 35 30 37 30 | OVERED";:.55070|
00001810: 3A 89 35 38 33 35 30 00 29 34 46 E6 8D 35 38 39 |:.58350.)4F..589|
00001820: 37 30 3A 89 35 38 33 35 20 00 48 34 5A E6 99 22 |70:.5835 .H4Z.."|
00001830: 44 49 53 4B 20 45 52 52 4F 52 22 44 53 24 3B 3A |DISK ERROR"DS$;:|
00001840: 8D 35 35 30 37 30 3A 8E 00 66 34 60 EA E7 30 2C |.55070:..f4`..0,|
00001850: 20 3A E7 31 2C 37 3A DE 31 3A DE 30 3A 8F 20 53 | :.1,7:.1:.0:. S|
00001860: 54 41 52 54 55 50 00 7C 34 61 EA 97 35 38 2C 31 |TARTUP.|4a..58,1|
00001870: 36 3A 9C 3A 4E 24 B2 C7 20 31 33 29 00 8A 34 64 |6:.:N$.. 13)..4d|
00001880: EA FE 11 22 4E 46 22 2C 42 30 00 98 34 65 EA FE |..."NF",B0..4e..|
00001890: 11 22 4E 32 22 2C 42 30 00 A6 34 66 EA FE 11 22 |."N2",B0..4f..."|
000018A0: 20 39 22 2C 42 31 00 C1 34 67 EA FE 11 22 4E 44 | 9",B1..4g..."ND|
000018B0: 22 2C 42 31 2C 50 28 D1 28 22 32 34 30 30 22 29 |",B1,P(.("2400")|
000018C0: 29 00 D5 34 74 EA FE 02 20 35 3A 9E D1 28 22 31 |)..4t... 5:..("1|
000018D0: 36 38 30 22 29 00 0A 35 88 EA 86 50 4F 24 28 31 |680")..5...PO$(1|
000018E0: 34 29 2C 50 4F 25 28 31 34 29 2C 50 51 25 28 31 |4),PO%(14),PQ%(1|
000018F0: 20 29 2C 50 4D 25 28 31 34 29 2C 50 57 25 28 31 | ),PM%(14),PW%(1|
00001900: 34 29 2C 50 48 25 28 31 34 29 00 1B 35 48 EE 8F |4),PH%(14)..5H..|
00001910: 20 57 41 52 4D 20 53 54 20 52 54 00 3B 35 52 EE | WARM ST RT.;5R.|
00001920: 81 49 B2 31 A4 38 3A F9 49 2C 22 43 48 52 24 28 |.I.1.8:.I,"CHR$(|
00001930: 49 2B 31 33 32 29 3A 4E 45 58 54 00 46 35 AB EE |I+132):NEXT.F5..|
00001940: 20 35 38 30 30 30 00 00 00 | 58000... |
.......30000.J.... CONFIGURATION PROGRAM
TO CHANGE PRINTERS FOR CADPAK-128.W...N
$.G(13)......PO$(14),PO%(14),PQ%(14),PM%
(14),PW%(14),PH%(14),PR$(15,3),TY%(15).O
.....1:.48128,4:.48129,0:.48130,0:.48131
,1:..15.Z....58200.(.@...1:A.Q("7C00"):.
I.0.14:A$."":A1.256.A:.Z.A.A1:B.B(Z):.B.
.0.A$.A$.G(B):.Z...J.PO$(I).A$:PO%(I).B(
Z.1):PQ%(I).B(Z.2):PM%(I).B(Z.3):PW%(I).
B(Z.4).256.B(Z.5):PH%(I).B(Z.6).256.B(Z.
7):A.Z.8:.I:..15:....R ."....(#....2#.".
";:..0:K4.B(235):. K2=VAL,A4=SCRN INTVL,
A3=MAX...<#A1.190:.9070...F#..A$:.A$.N$.
.".":.:UA1.32:.9070.;.P#.A$.".".K2.A3.K2
.K2.1:.9060.T.Z#.A$.".".K2.1.K2.K2.1.P.D
#.A$.G(132).50000:U.9020...N#..15:.992.(
K4.A3.K2.A4).40,A1:..F.0U.0,2:."....CADP
AK 128 CONFIGURATION PROCEDURE...5U." --
----------------------------------...:U.
". CADPAK 128 WAS DEVELOPED USING.A.DU."
A NUMBER OF POPULAR PRINTERS FOR.[.NU."
THE COMMODORE 128....XU." .IF YOU HAVE
ONE OF THESE PRINTERS,...BU." THEN ALL Y
OU NEED TO DO IS TO SELECT...LU." IT FRO
M THE LIST IN .PART A. OF THIS.. VU." PR
OGRAM AND YOUR DRAWINGS SHOULD BE.! WU."
PROPERLY SCALED..M .U."..IF YOUR PRINTE
R IS A 'LOOKALIKE' OF.U .U." ONE OF THE
PRINTERS ON THAT LIST.. .U." (FOR EXAMPL
E THE STAR SG-10C 'LOOKS'.. .U." LIKE A
COMMODORE 1525).. .U." THEN THE DRAWING
S WILL PROBABLY..!.U." COME OUT OK, BUT
THE SIZING MAY BE.;!.U." INCORRECT. THIS
HAPPENS BECAUSE OF.E!FU." DIFFERING PRI
NT HEAD WIRE SPACING...!PU.". .<RETURN>
FOR MORE";A$..!$W.".. IN THAT CASE, RUN
THIS PROCEDURE.T!.W." .PART A. TO SELECT
THE PRINTER..!8W." MODULE, THEN USE CAD
PAK 128 AND.#"BW." CREATE AN EXAMPLE OF
EACH OF THE.L"LW." SIZES OF LARGE PRINTO
UTS (YOU CAN.X"VW." SKIP THE WINDOW PRIN
TOUTS SINCE THEY.."WW." AREN'T SCALED)..
."`W.". THEN CAREFULLY MEASURE THE OUTER
BOX.."JW." SIZES OF THE LARGE PRINTOUTS
IN..#TW." INCHES AND /32 OR CM AND DECI
MAL..#~W." FRACTIONS..B#.W.". THEN RUN T
HIS PROGRAM AGAIN,.J#.W." SELECTING .BOT
H. PARTS .A AND B...#.W." IN PART B YOU
WILL HAVE TO ENTER THE..#.W." MEASURED V
ALUES AND THEY WILL BE..#.W." USED TO PR
OPERLY SCALE THE PRINTOUT...$.X.". .<RET
URN> FOR MORE";A$.2$.Y.". NOTE WHEN MEAS
URING AND ENTERING.]$"Y." DIMENSIONS THA
T SOME PRINTOUTS COME..$,Y." OUT NORMALL
Y AND SOME ARE PRINTED..$6Y." SIDEWAYS.
THIS IS INDICATED BY THE.U$@Y." WORDS (N
ORM) OR (SIDE) IN THE..$JY." PRINTOUT SE
LECTIONS...%TY." FOR NORM:-.CCCCCCCCCCCC
CCC..7%^Y." ^B B.
Z%_Y." BB B.}%`Y.
" HEIGHT-->BB B. %HY."
BB UP^ B.C%JY."
VB B..%RY." -.CC
CCCCCCCCCCCCC...&|Y." <---WID
TH----->.'&.Y." FOR SIDE: -.CCCCCCCC..
F&.Y." ^B B.E&.Y."
BB B..&.Y."
BB B..&.Y." WIDTH---->BB <-
B.B&.Y." BB UP B..&.Y.
" BB B..'BY."
VB B..'LY." -.CC
CCCCCC..>'VY." B<HEIGHT>B.\
'.}." .<RETURN> FOR MORE";A$.B'....Y'@..
0,2:. PART B WORK..'T..".. .CONFIGURATIO
N PART B.F'H.D$."":." MEASURE IN CM OR I
NCHES(C/I)";D$..'|..(D$.."C").(D$.."I").
40040..(...". .SELECT A WINDOW FORMAT TO
END.U(..A3.1:.". SELECT FORMAT TO CHANG
E:":.I.0.14:.PO$(I)."*".I.14:.:.40120.I(
..A3.I:.,PO$(I):...(..A4.1:..1:K2.B(4813
1):.9000..(B..H(PO$(K2),1)."-".48000.I(L
.."PRESENT DESCRIPTION:":.PO$(K2)..(V.."
NEW DESCRIPTION <RETURN FOR SAME>":.PO$(
K2)..)...D$."I".40260.9)..."PRESENT WIDT
H (CM):":B.PW%(K2).100:.B.L)..."NEW WIDT
H <RETURN FOR SAME>";B:PW%(K2).B.100..).
.."PRESENT HEIGHT (CM):":B.PH%(K2).100:.
B.M)..."NEW HEIGHT <RETURN FOR SAME>";B:
PH%(K2).B.100.X)...40100.&*D.."PRESENT W
IDTH (INCHES + /32NDS):":B.PW%(K2).254:C
..(B):D..(.5.(B.C).32).6*E..C"+"D"/32".C
*N.."NEW WIDTH: .WHOLE INCHES.<RET=SAME>
";C..*O.." ./32 OF INCH.<RET=S
AME>";D:.D.32.40271..*P.PW%(K2).254.(C.(
D.32))..+X.."PRESENT HEIGHT (INCHES + /3
2NDS):":B.PH%(K2).254:C..(B):D..(.5.(B.C
).32)..+Y..C"+"D"/32".C+B.."NEW HEIGHT:
.WHOLE INCHES.<RET=SAME>";C.|+C.."
./32 OF INCH.<RET=SAME>";D:.D.32.4
0291..+D.PH%(K2).254.(C.(D.32))..+G..401
00..+..." ..FINISHED(Y/N)";A$.X+...A$.."
Y".A$.."N".48000..+...A$."Y".49000:U4010
0..,H.. WRITE OUT NEW DESCR FILE..,R.."O
LD.PRD".4,|..(ND$)."OLD.PRD".J,....#8,(N
D$.",P"),W.^,...8,G(0);G(253);.V,...8,".
".PO$(0);G(0);..,...8,G(0);:.8,G(0);..,.
..8,G(0);:.8,G(0);.A,B..8,G(0);:.8,G(0);
:.8,G(0);.M,L..J.1.14..,V..8,PO$(J);G(0)
;..,...8,G(PO%(J));..-...8,G(PQ%(J));..-
...8,G(PM%(J));.:-..H..(PW%(J).256):L.PW
%(J).256.H.P-...8,G(L);:.8,G(H);.S-..H..
(PH%(J).256):L.PH%(J).256.H..-...8,G(L);
:.8,G(H);..-&..J..-0...#8..-OC...-.W..L-
(W.ZZ.1.10:.A$:.:.". ANY KEY":..A$:...-.
.. CONFIG/PRINTER..-... READIN CONFIG RE
C.5.....#8,"CDPK.CONFIG":.DS..0...#8:..1
:.48131,1:..15:.58200.F....8,NP$:.8,ND$:
.I.1.5:.8,A:..1:.48128.1.I,A:........#8:
.DS..0.."CONFIG FILE ERR":.58200...B..58
100:.20.U.....(ND$),B1,P(Q("7C00")):..(N
P$),B1,P(Q("5000")):..G/X..0,2:.".. .CAD
PAK 128 PRINTER CONFIG PROCEDURE":.,". >
> .PART A. << ":.".. BE SURE THAT THE
CADPAK-128 DISK../B..".IS IN THE DRIVE A
ND THE WRITE-":." PROTECT NOTCH IS .UN.C
OVERED":.55080.N/L...#8,"CDPK.PRINTERS":
.DS..0...#8:.DS$:.55080:.58200..0V.A3.15
:.I.1.15:.8,PR$(I,0):.8,PR$(I,1):.8,PR$(
I,2):.8,TY%(I):.PR$(I,0)."*".A3.I.1:.582
40:U:..Q0....#8:.DS..0..DS$:.55080:.5820
0..0...".. SELECT PRINTER:":.I.1.A3:.,PR
$(I,0):.:A4.1:K2.1:.9000:NP$.PR$(K2,1):N
D$.PR$(K2,2):TY.TY%(K2).H0...58100:.8000
..1....1:K.B(48128):." DEVICE # :"K:.K:.
.1:.48128,K:.TY.0.58300.@1....1:K.B(4812
9):." GRAPHIC SEC ADDR"K:.K:..1:.48129,K
.H1....1:.(B(48130))..0.NV$."Y":UNV$."N"
. 1..." ASCII TRANSLATE (Y/N):"NV$:.NV$:
K.0:.NV$."Y".K.1..1....1:.48130,K..1..."
. .DO YOU WANT TO DO PART B(SIZING(Y/N)"
;A$..2...(A$.."Y").(A$.."N").58300..2A..
A$."N".58350..2F..40000.*2...58500.J2...
"CDPK.CONFIG":.DS.19.58900.}2....#8,"CDP
K.CONFIG",W:.DS..0..58970:..#8:.58360..2
....0:.8,NP$:.8,ND$:.I.1.5:..1:.8,B(4812
8.1.I):...2....#8:.DS..0.."CONFIG FILE E
RROR":.55080:.58350.43..."NOW PUT TAPE B
ACK ON WRITE-PROTECT":."NOTCH":.". CONFI
GURATION FINISHED":.._3R .". .PRESS SPAC
E BAR TO ABORT PRINTOUT..3..A3.1:.". SEL
ECT FORMAT:":.I.0.14:.PO$(I)."*".I.14:.:
.58520..3..A3.I:.,PO$(I):...3..A4.1:..1:
K2.B(48131):.9000:..1:.48131,K2:...4...D
S.26.."WRITE-PROT NOTCH OVERED";:.55070
:.58350.)4F..58970:.5835 .H4Z.."DISK ERR
OR"DS$;:.55070:..F4`..0, :.1,7:.1:.0:. S
TARTUP.|4A..58,16:.:N$.G 13)..4D..."NF",
B0..4E..."N2",B0..4F..." 9",B1.A4G..."ND
",B1,P(Q("2400")).U4T... 5:.Q("1680")..5
...PO$(14),PO%(14),PQ%(1 ),PM%(14),PW%(1
4),PH%(14)..5H.. WARM ST RT.;5R..I.1.8:.
I,"CHR$(I+132):NEXT.F5.. 58000...
> CLICK IMAGE PREVIEW FOR FULL MODAL