PRINTERSU.13
FILE INFORMATION
FILENAME(S): PRINTERSU.13
FILE TYPE(S): DEL
FILE SIZE: 1.9K
FIRST SEEN: 2025-12-01 01:48:44
APPEARS ON: 1 disk(s)
FILE HASH
199d0ec266acced7db188ed4da714635ba51453232ce4de4a70bd6656f086083
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| CADPAK 128 C | PRINTERSU.13 | DEL | hedning, Mattias H00r | 28 | 15 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 49 4E 54 45 52 00 F9 2D 9A E2 8F 20 52 45 41 44 |INTER..-... READ|
00000010: 49 4E 20 43 4F 4E 46 49 47 20 52 45 43 00 35 2E |IN CONFIG REC.5.|
00000020: A4 E2 FE 0D 23 38 2C 22 43 44 50 4B 2E 43 4F 4E |....#8,"CDPK.CON|
00000030: 46 49 47 22 3A 8B 44 53 B3 B1 30 A7 FE 0F 23 38 |FIG":.DS..0...#8|
00000040: 3A FE 02 31 3A 97 34 38 31 33 31 2C 31 3A FE 02 |:..1:.48131,1:..|
00000050: 31 35 3A 89 35 38 32 30 30 00 66 2E AE E2 84 38 |15:.58200.f....8|
00000060: 2C 4E 50 24 3A 84 38 2C 4E 44 24 3A 81 49 B2 31 |,NP$:.8,ND$:.I.1|
00000070: A4 35 3A 84 38 2C 41 3A FE 02 31 3A 97 34 38 31 |.5:.8,A:..1:.481|
00000080: 32 38 AB 31 AA 49 2C 41 3A 82 00 90 2E B8 E2 FE |28.1.I,A:.......|
00000090: 0F 23 38 3A 8B 44 53 B3 B1 30 A7 99 22 43 4F 4E |.#8:.DS..0.."CON|
000000A0: 46 49 47 20 46 49 4C 45 20 45 52 52 22 3A 89 35 |FIG FILE ERR":.5|
000000B0: 38 32 30 30 00 9F 2E C2 E2 8D 35 38 31 30 30 3A |8200......58100:|
000000C0: 89 32 30 00 D5 2E F4 E2 FE 11 28 4E 44 24 29 2C |.20.......(ND$),|
000000D0: 42 31 2C 50 28 D1 28 22 37 43 30 30 22 29 29 3A |B1,P(.("7C00")):|
000000E0: FE 11 28 4E 50 24 29 2C 42 31 2C 50 28 D1 28 22 |..(NP$),B1,P(.("|
000000F0: 35 30 30 30 22 29 29 3A 8E 00 47 2F 58 E3 E7 30 |5000")):..G/X..0|
00000100: 2C 32 3A 99 22 93 11 20 1F 43 41 44 50 41 4B 20 |,2:.".. .CADPAK |
00000110: 31 32 38 20 50 52 49 4E 54 45 52 20 43 4F 4E 46 |128 PRINTER CONF|
00000120: 49 47 20 50 52 4F 43 45 44 55 52 45 22 3A 99 2C |IG PROCEDURE":.,|
00000130: 22 11 20 3E 3E 20 12 50 41 52 54 20 41 92 20 3C |". >> .PART A. <|
00000140: 3C 20 20 20 22 3A 99 22 11 11 20 42 45 20 53 55 |< ":.".. BE SU|
00000150: 52 45 20 54 48 41 54 20 54 48 45 20 43 41 44 50 |RE THAT THE CADP|
00000160: 41 4B 2D 31 32 38 20 44 49 53 4B 00 96 2F 62 E3 |AK-128 DISK../b.|
00000170: 99 22 1D 49 53 20 49 4E 20 54 48 45 20 44 52 49 |.".IS IN THE DRI|
00000180: 56 45 20 41 4E 44 20 54 48 45 20 57 52 49 54 45 |VE AND THE WRITE|
00000190: 2D 22 3A 99 22 20 50 52 4F 54 45 43 54 20 4E 4F |-":." PROTECT NO|
000001A0: 54 43 48 20 49 53 20 12 55 4E 92 43 4F 56 45 52 |TCH IS .UN.COVER|
000001B0: 45 44 22 3A 8D 35 35 30 38 30 00 CE 2F 6C E3 FE |ED":.55080../l..|
000001C0: 0D 23 38 2C 22 43 44 50 4B 2E 50 52 49 4E 54 45 |.#8,"CDPK.PRINTE|
000001D0: 52 53 22 3A 8B 44 53 B3 B1 30 A7 FE 0F 23 38 3A |RS":.DS..0...#8:|
000001E0: 99 44 53 24 3A 8D 35 35 30 38 30 3A 89 35 38 32 |.DS$:.55080:.582|
000001F0: 30 30 00 2E 30 76 E3 41 33 B2 31 35 3A 81 49 B2 |00..0v.A3.15:.I.|
00000200: 31 A4 31 35 3A 84 38 2C 50 52 24 28 49 2C 30 29 |1.15:.8,PR$(I,0)|
00000210: 3A 84 38 2C 50 52 24 28 49 2C 31 29 3A 84 38 2C |:.8,PR$(I,1):.8,|
00000220: 50 52 24 28 49 2C 32 29 3A 84 38 2C 54 59 25 28 |PR$(I,2):.8,TY%(|
00000230: 49 29 3A 8B 50 52 24 28 49 2C 30 29 B2 22 2A 22 |I):.PR$(I,0)."*"|
00000240: A7 41 33 B2 49 AB 31 3A 89 35 38 32 34 30 3A D5 |.A3.I.1:.58240:.|
00000250: 3A 82 00 51 30 80 E3 FE 0F 23 38 3A 8B 44 53 B3 |:..Q0....#8:.DS.|
00000260: B1 30 A7 99 44 53 24 3A 8D 35 35 30 38 30 3A 89 |.0..DS$:.55080:.|
00000270: 35 38 32 30 30 00 B7 30 8A E3 99 22 93 11 20 53 |58200..0...".. S|
00000280: 45 4C 45 43 54 20 50 52 49 4E 54 45 52 3A 22 3A |ELECT PRINTER:":|
00000290: 81 49 B2 31 A4 41 33 3A 99 2C 50 52 24 28 49 2C |.I.1.A3:.,PR$(I,|
000002A0: 30 29 3A 82 3A 41 34 B2 31 3A 4B 32 B2 31 3A 8D |0):.:A4.1:K2.1:.|
000002B0: 39 30 30 30 3A 4E 50 24 B2 50 52 24 28 4B 32 2C |9000:NP$.PR$(K2,|
000002C0: 31 29 3A 4E 44 24 B2 50 52 24 28 4B 32 2C 32 29 |1):ND$.PR$(K2,2)|
000002D0: 3A 54 59 B2 54 59 25 28 4B 32 29 00 C8 30 94 E3 |:TY.TY%(K2)..0..|
000002E0: 8D 35 38 31 30 30 3A 8D 38 30 30 30 00 07 31 9E |.58100:.8000..1.|
000002F0: E3 FE 02 31 3A 4B B2 C2 28 34 38 31 32 38 29 3A |...1:K..(48128):|
00000300: 99 22 20 44 45 56 49 43 45 20 23 20 3A 22 4B 3A |." DEVICE # :"K:|
00000310: 85 4B 3A FE 02 31 3A 97 34 38 31 32 38 2C 4B 3A |.K:..1:.48128,K:|
00000320: 8B 54 59 B2 30 A7 35 38 33 30 30 00 40 31 A8 E3 |.TY.0.58300.@1..|
00000330: FE 02 31 3A 4B B2 C2 28 34 38 31 32 39 29 3A 99 |..1:K..(48129):.|
00000340: 22 20 47 52 41 50 48 49 43 20 53 45 43 20 41 44 |" GRAPHIC SEC AD|
00000350: 44 52 22 4B 3A 85 4B 3A FE 02 31 3A 97 34 38 31 |DR"K:.K:..1:.481|
00000360: 32 39 2C 4B 00 68 31 B2 E3 FE 02 31 3A 8B 28 C2 |29,K.h1....1:.(.|
00000370: 28 34 38 31 33 30 29 29 B3 B1 30 A7 4E 56 24 B2 |(48130))..0.NV$.|
00000380: 22 59 22 3A D5 4E 56 24 B2 22 4E 22 00 A0 31 B4 |"Y":.NV$."N"..1.|
00000390: E3 99 22 20 41 53 43 49 49 20 54 52 41 4E 53 4C |.." ASCII TRANSL|
000003A0: 41 54 45 A0 28 59 2F 4E 29 3A 22 4E 56 24 3A 85 |ATE.(Y/N):"NV$:.|
000003B0: 4E 56 24 3A 4B B2 30 3A 8B 4E 56 24 B2 22 59 22 |NV$:K.0:.NV$."Y"|
000003C0: A7 4B B2 31 00 B1 31 B6 E3 FE 02 31 3A 97 34 38 |.K.1..1....1:.48|
000003D0: 31 33 30 2C 4B 00 E3 31 BC E3 85 22 11 20 12 44 |130,K..1...". .D|
000003E0: 4F 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 44 4F |O YOU WANT TO DO|
000003F0: 20 50 41 52 54 20 42 28 53 49 5A 49 4E 47 28 59 | PART B(SIZING(Y|
00000400: 2F 4E 29 22 3B 41 24 00 02 32 BD E3 8B 28 41 24 |/N)";A$..2...(A$|
00000410: B3 B1 22 59 22 29 AF 28 41 24 B3 B1 22 4E 22 29 |.."Y").(A$.."N")|
00000420: A7 35 38 33 30 30 00 14 32 C1 E3 8B 41 24 B2 22 |.58300..2...A$."|
00000430: 4E 22 A7 35 38 33 35 30 00 1F 32 C6 E3 8D 34 30 |N".58350..2...40|
00000440: 30 30 30 00 2A 32 EE E3 8D 35 38 35 30 30 00 4A |000.*2...58500.J|
00000450: 32 F3 E3 F2 22 43 44 50 4B 2E 43 4F 4E 46 49 47 |2..."CDPK.CONFIG|
00000460: 22 3A 8B 44 53 B1 31 39 A7 35 38 39 30 30 00 7D |":.DS.19.58900.}|
00000470: 32 F8 E3 FE 0D 23 38 2C 22 43 44 50 4B 2E 43 4F |2....#8,"CDPK.CO|
00000480: 4E 46 49 47 22 2C 57 3A 8B 44 53 B3 B1 30 A7 8D |NFIG",W:.DS..0..|
00000490: 35 38 39 37 30 3A FE 0F 23 38 3A 89 35 38 33 36 |58970:..#8:.5836|
000004A0: 30 00 B0 32 02 E4 FE 02 30 3A 98 38 2C 4E 50 24 |0..2....0:.8,NP$|
000004B0: 3A 98 38 2C 4E 44 24 3A 81 49 B2 31 A4 35 3A FE |:.8,ND$:.I.1.5:.|
000004C0: 02 31 3A 98 38 2C C2 28 34 38 31 32 38 AB 31 AA |.1:.8,.(48128.1.|
000004D0: 49 29 3A 82 00 E3 32 0C E4 FE 0F 23 38 3A 8B 44 |I):...2....#8:.D|
000004E0: 53 B3 B1 30 A7 99 22 43 4F 4E 46 49 47 20 46 49 |S..0.."CONFIG FI|
000004F0: 4C 45 20 45 52 52 4F 52 22 3A 8D 35 35 30 38 30 |LE ERROR":.55080|
00000500: 3A 89 35 38 33 35 30 00 34 33 16 E4 99 22 4E 4F |:.58350.43..."NO|
00000510: 57 20 50 55 54 20 54 41 50 45 20 42 41 43 4B 20 |W PUT TAPE BACK |
00000520: 4F 4E 20 57 52 49 54 45 2D 50 52 4F 54 45 43 54 |ON WRITE-PROTECT|
00000530: 22 3A 99 22 4E 4F 54 43 48 22 3A 99 22 11 20 43 |":."NOTCH":.". C|
00000540: 4F 4E 46 49 47 55 52 41 54 49 4F 4E 20 46 49 4E |ONFIGURATION FIN|
00000550: 49 53 48 45 44 22 3A 80 00 5F 33 52 20 99 22 11 |ISHED":.._3R .".|
00000560: 20 12 50 52 45 53 53 20 53 50 41 43 45 20 42 41 | .PRESS SPACE BA|
00000570: 52 20 54 4F 20 41 42 4F 52 54 20 50 52 49 4E 54 |R TO ABORT PRINT|
00000580: 4F 55 54 00 9E 33 84 E4 41 33 B2 31 3A 99 22 11 |OUT..3..A3.1:.".|
00000590: 20 53 45 4C 45 43 54 20 46 4F 52 4D 41 54 3A 22 | SELECT FORMAT:"|
000005A0: 3A 81 49 B2 30 A4 31 34 3A 8B 50 4F 24 28 49 29 |:.I.0.14:.PO$(I)|
000005B0: B2 22 2A 22 A7 49 B2 31 34 3A 82 3A 89 35 38 35 |."*".I.14:.:.585|
000005C0: 32 30 00 B2 33 8E E4 41 33 B2 49 3A 99 2C 50 4F |20..3..A3.I:.,PO|
000005D0: 24 28 49 29 3A 82 00 E1 33 98 E4 41 34 B2 31 3A |$(I):...3..A4.1:|
000005E0: FE 02 31 3A 4B 32 B2 C2 28 34 38 31 33 31 29 3A |..1:K2..(48131):|
000005F0: 8D 39 30 30 30 3A FE 02 31 3A 97 34 38 31 33 31 |.9000:..1:.48131|
00000600: 2C 4B 32 3A 8E 00 17 34 14 E6 8B 44 53 B2 32 36 |,K2:...4...DS.26|
00000610: A7 99 22 57 52 49 54 45 2D 50 52 4F 54 20 4E 4F |.."WRITE-PROT NO|
00000620: 54 43 48 20 20 4F 56 45 52 45 44 22 3B 3A 8D 35 |TCH OVERED";:.5|
00000630: 35 30 37 30 3A 89 35 38 33 35 30 00 29 34 46 E6 |5070:.58350.)4F.|
00000640: 8D 35 38 39 37 30 3A 89 35 38 33 35 20 00 48 34 |.58970:.5835 .H4|
00000650: 5A E6 99 22 44 49 53 4B 20 45 52 52 4F 52 22 44 |Z.."DISK ERROR"D|
00000660: 53 24 3B 3A 8D 35 35 30 37 30 3A 8E 00 66 34 60 |S$;:.55070:..f4`|
00000670: EA E7 30 2C 20 3A E7 31 2C 37 3A DE 31 3A DE 30 |..0, :.1,7:.1:.0|
00000680: 3A 8F 20 53 54 41 52 54 55 50 00 7C 34 61 EA 97 |:. STARTUP.|4a..|
00000690: 35 38 2C 31 36 3A 9C 3A 4E 24 B2 C7 20 31 33 29 |58,16:.:N$.. 13)|
000006A0: 00 8A 34 64 EA FE 11 22 4E 46 22 2C 42 30 00 98 |..4d..."NF",B0..|
000006B0: 34 65 EA FE 11 22 4E 32 22 2C 42 30 00 A6 34 66 |4e..."N2",B0..4f|
000006C0: EA FE 11 22 20 39 22 2C 42 31 00 C1 34 67 EA FE |..." 9",B1..4g..|
000006D0: 11 22 4E 44 22 2C 42 31 2C 50 28 D1 28 22 32 34 |."ND",B1,P(.("24|
000006E0: 30 30 22 29 29 00 D5 34 74 EA FE 02 20 35 3A 9E |00"))..4t... 5:.|
000006F0: D1 28 22 31 36 38 30 22 29 00 0A 35 88 EA 86 50 |.("1680")..5...P|
00000700: 4F 24 28 31 34 29 2C 50 4F 25 28 31 34 29 2C 50 |O$(14),PO%(14),P|
00000710: 51 25 28 31 20 29 2C 50 4D 25 28 31 34 29 2C 50 |Q%(1 ),PM%(14),P|
00000720: 57 25 28 31 34 29 2C 50 48 25 28 31 34 29 00 1B |W%(14),PH%(14)..|
00000730: 35 48 EE 8F 20 57 41 52 4D 20 53 54 20 52 54 00 |5H.. WARM ST RT.|
00000740: 3B 35 52 EE 81 49 B2 31 A4 38 3A F9 49 2C 22 43 |;5R..I.1.8:.I,"C|
00000750: 48 52 24 28 49 2B 31 33 32 29 3A 4E 45 58 54 00 |HR$(I+132):NEXT.|
00000760: 46 35 AB EE 20 35 38 30 30 30 00 00 00 |F5.. 58000... |
INTER..-... READIN CONFIG REC.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.."CON
FIG FILE ERR":.58200...B..58100:.20.U...
..(ND$),B1,P(Q("7C00")):..(NP$),B1,P(Q("
5000")):..G/X..0,2:.".. .CADPAK 128 PRIN
TER CONFIG PROCEDURE":.,". >> .PART A. <
< ":.".. BE SURE THAT THE CADPAK-128 D
ISK../B..".IS IN THE DRIVE AND THE WRITE
-":." PROTECT NOTCH IS .UN.COVERED":.550
80.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:.58240:U:..Q0...
.#8:.DS..0..DS$:.55080:.58200..0...".. S
ELECT PRINTER:":.I.1.A3:.,PR$(I,0):.:A4.
1:K2.1:.9000:NP$.PR$(K2,1):ND$.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(48129):." GRAPHI
C SEC ADDR"K:.K:..1:.48129,K.H1....1:.(B
(48130))..0.NV$."Y":UNV$."N". 1..." ASCI
I TRANSLATE (Y/N):"NV$:.NV$:K.0:.NV$."Y"
.K.1..1....1:.48130,K..1...". .DO YOU WA
NT 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,"CDPK.CONFIG",W:
.DS..0..58970:..#8:.58360..2....0:.8,NP$
:.8,ND$:.I.1.5:..1:.8,B(48128.1.I):...2.
...#8:.DS..0.."CONFIG FILE ERROR":.55080
:.58350.43..."NOW PUT TAPE BACK ON WRITE
-PROTECT":."NOTCH":.". CONFIGURATION FIN
ISHED":.._3R .". .PRESS SPACE BAR TO ABO
RT PRINTOUT..3..A3.1:.". SELECT FORMAT:"
:.I.0.14:.PO$(I)."*".I.14:.:.58520..3..A
3.I:.,PO$(I):...3..A4.1:..1:K2.B(48131):
.9000:..1:.48131,K2:...4...DS.26.."WRITE
-PROT NOTCH OVERED";:.55070:.58350.)4F.
.58970:.5835 .H4Z.."DISK ERROR"DS$;:.550
70:..F4`..0, :.1,7:.1:.0:. STARTUP.|4A..
58,16:.:N$.G 13)..4D..."NF",B0..4E..."N2
",B0..4F..." 9",B1.A4G..."ND",B1,P(Q("24
00")).U4T... 5:.Q("1680")..5...PO$(14),P
O%(14),PQ%(1 ),PM%(14),PW%(14),PH%(14)..
5H.. WARM ST RT.;5R..I.1.8:.I,"CHR$(I+13
2):NEXT.F5.. 58000...
> CLICK IMAGE PREVIEW FOR FULL MODAL