COMPAKTER

FILE INFORMATION

FILENAME(S): COMPAKTER

FILE TYPE(S): PRG

FILE SIZE: 1.8K

FIRST SEEN: 2025-12-01 13:41:06

APPEARS ON: 2 disk(s)

FILE HASH

6b91382364f34ea50bf709787a6609bfb57d98a9d90967d07f7f31edf51d7a7a

FOUND ON DISKS (2 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
KENNETH	COMPAKTER	PRG	hedning, skogslooten	13	17	DOWNLOAD FILE
KJ	COMPAKTER	PRG	hedning, skogslooten	28	13	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 1B 08 BE 00 86 54  4C 28 31 30 30 30 29 2C  |.......TL(1000),|
00000010: 43 28 32 35 36 29 3A 89  34 30 30 00 29 08 E6 00  |C(256):.400.)...|
00000020: 8D 32 34 30 3A 56 31 B2  56 00 4D 08 F0 00 A1 23  |.240:V1.V.M....#|
00000030: 35 2C 43 24 3A 8D 32 37  30 3A 56 B2 30 3A 8B 43  |5,C$:.270:V.0:.C|
00000040: 24 B3 B1 22 22 A7 56 B2  C6 28 43 24 29 00 53 08  |$.."".V..(C$).S.|
00000050: 04 01 8E 00 70 08 0E 01  84 31 35 2C 45 4E 2C 45  |....p....15,EN,E|
00000060: 4D 24 2C 45 54 2C 45 53  3A 8B 45 4E B2 30 A7 8E  |M$,ET,ES:.EN.0..|
00000070: 00 9A 08 18 01 99 3A 99  22 44 49 53 4B 20 45 52  |......:."DISK ER|
00000080: 52 4F 52 22 3A 99 3A 99  45 4E 3B 45 4D 24 3B 45  |ROR":.:.EN;EM$;E|
00000090: 54 3B 45 53 3A 89 31 34  32 30 00 A7 08 2C 01 8B  |T;ES:.1420...,..|
000000A0: 4C 24 B2 22 22 A7 8E 00  F5 08 36 01 4C 41 B2 4C  |L$."".....6.LA.L|
000000B0: 41 AA C3 28 4C 24 29 AA  33 3A 41 31 B2 B5 28 4C  |A..(L$).3:A1..(L|
000000C0: 41 AD 32 35 36 29 3A 41  32 B2 4C 41 AB 28 41 31  |A.256):A2.LA.(A1|
000000D0: AC 32 35 36 29 3A 98 36  2C C7 28 41 32 29 3B C7  |.256):.6,.(A2);.|
000000E0: 28 41 31 29 3B 4C 24 3B  C7 28 30 29 3B 3A 4C 24  |(A1);L$;.(0);:L$|
000000F0: B2 22 22 3A 8E 00 2E 09  4A 01 50 B2 31 3A 8D 32  |."":....J.P.1:.2|
00000100: 33 30 3A 4C 4E B2 56 31  AA 28 32 35 36 AC 56 29  |30:LN.V1.(256.V)|
00000110: 3A 4C 31 B2 56 31 3A 4C  32 B2 56 3A 99 4C 4E 3B  |:L1.V1:L2.V:.LN;|
00000120: 22 20 20 20 20 20 20 22  3A 99 22 91 22 3B 00 4E  |"      ":.".";.N|
00000130: 09 5E 01 8D 32 34 30 3A  43 28 50 29 B2 56 3A 8B  |.^..240:C(P).V:.|
00000140: 56 B1 30 A7 50 B2 50 AA  31 3A 89 33 35 30 00 61  |V.0.P.P.1:.350.a|
00000150: 09 68 01 46 B2 30 3A 50  4C B2 50 3A 50 B2 31 3A  |.h.F.0:PL.P:P.1:|
00000160: 8E 00 87 09 90 01 99 22  93 20 20 20 20 20 43 20  |.......".     C |
00000170: 4F 20 4D 20 50 20 41 20  43 20 54 20 4F 20 52 20  |O M P A C T O R |
00000180: 20 20 49 49 22 3A 99 00  CD 09 9A 01 99 3A 99 22  |  II":.......:."|
00000190: 4D 41 58 20 4C 49 4E 45  20 4C 45 4E 47 54 48 20  |MAX LINE LENGTH |
000001A0: 54 4F 20 43 52 45 41 54  45 22 3A 85 22 20 20 20  |TO CREATE":."   |
000001B0: 32 35 35 9D 9D 9D 9D 9D  22 3B 4D 4C 3A 8B 4D 4C  |255.....";ML:.ML|
000001C0: B3 31 B0 4D 4C B1 32 35  35 A7 34 31 30 00 86 0A  |.1.ML.255.410...|
000001D0: AE 01 A0 31 35 3A 9F 31  35 2C 38 2C 31 35 3A 99  |...15:.15,8,15:.|
000001E0: 3A 99 22 49 4E 50 55 54  20 46 49 4C 45 4E 41 4D  |:."INPUT FILENAM|
000001F0: 45 22 3A 85 46 31 24 3A  9F 35 2C 38 2C 35 2C 22  |E":.F1$:.5,8,5,"|
00000200: 30 3A 22 AA 46 31 24 AA  22 2C 50 2C 52 22 3A 8D  |0:".F1$.",P,R":.|
00000210: 32 37 30 3A 99 3A 99 22  4F 55 54 50 55 54 20 46  |270:.:."OUTPUT F|
00000220: 49 4C 45 4E 41 4D 45 22  3A 85 46 32 24 3A 9F 36  |ILENAME":.F2$:.6|
00000230: 2C 38 2C 36 2C 22 30 3A  22 AA 46 32 24 AA 22 2C  |,8,6,"0:".F2$.",|
00000240: 50 2C 57 22 3A 8D 32 37  30 3A 99 3A 99 22 4F 4B  |P,W":.270:.:."OK|
00000250: 2C 20 53 43 41 4E 4E 49  4E 47 20 50 52 4F 47 52  |, SCANNING PROGR|
00000260: 41 4D 22 3A 99 22 20 20  20 46 4F 52 20 54 41 52  |AM":."   FOR TAR|
00000270: 47 45 54 20 4C 49 4E 45  53 2E 2E 2E 2E 2E 22 3A  |GET LINES.....":|
00000280: 99 3A 8D 32 33 30 00 9B  0A 1C 02 8D 32 33 30 3A  |.:.230......230:|
00000290: 8B 56 AA 56 31 B2 30 A7  38 36 30 00 B2 0A 26 02  |.V.V1.0.860...&.|
000002A0: 8D 32 33 30 3A 4C 4E B2  56 31 AA 28 32 35 36 AC  |.230:LN.V1.(256.|
000002B0: 56 29 00 BB 0A 4E 02 8D  32 34 30 00 C8 0A 58 02  |V)...N..240...X.|
000002C0: 8B 56 B2 30 A7 35 34 30  00 E3 0A 62 02 8B 56 B2  |.V.0.540...b..V.|
000002D0: 31 33 37 B0 56 B2 31 34  31 B0 56 B2 31 33 38 A7  |137.V.141.V.138.|
000002E0: 36 36 30 00 F3 0A 6C 02  8B 56 B3 B1 31 36 37 A7  |660...l..V..167.|
000002F0: 35 39 30 00 FC 0A 94 02  4C 54 B2 30 00 0F 0B 9E  |590.....LT.0....|
00000300: 02 8D 32 34 30 3A 8B 56  B2 33 32 A7 36 37 30 00  |..240:.V.32.670.|
00000310: 22 0B A8 02 8B 56 B3 34  38 B0 56 B1 35 37 A7 37  |"....V.48.V.57.7|
00000320: 33 30 00 41 0B B2 02 4C  54 B2 28 31 30 AC 4C 54  |30.A...LT.(10.LT|
00000330: 29 AA C5 28 43 24 29 3A  8D 32 34 30 3A 89 36 38  |)..(C$):.240:.68|
00000340: 30 00 5A 0B DA 02 81 58  B2 30 A4 4E 3A 8B 54 4C  |0.Z....X.0.N:.TL|
00000350: 28 58 29 B2 4C 54 A7 38  30 30 00 8F 0B E4 02 82  |(X).LT.800......|
00000360: 58 3A 54 4C 28 4E 29 B2  4C 54 3A 4E B2 4E AA 31  |X:TL(N).LT:N.N.1|
00000370: 3A 99 4C 54 3B 22 20 20  20 20 20 20 22 3A 99 22  |:.LT;"      ":."|
00000380: 91 22 3B 3A 8B 4E B3 31  30 30 30 A7 38 30 30 00  |.";:.N.1000.800.|
00000390: B7 0B F8 02 99 3A 99 3A  99 22 54 4F 4F 20 4D 41  |.....:.:."TOO MA|
000003A0: 4E 59 20 54 41 52 47 45  54 20 4C 49 4E 45 53 21  |NY TARGET LINES!|
000003B0: 22 3A 89 31 34 32 30 00  C5 0B 20 03 8B 56 B2 34  |":.1420... ..V.4|
000003C0: 34 A7 36 36 30 00 D4 0B  2A 03 8B 56 B3 B1 33 32  |4.660...*..V..32|
000003D0: A7 36 30 30 00 E2 0B 34  03 8D 32 34 30 3A 89 38  |.600...4..240:.8|
000003E0: 30 30 00 EF 0B 5C 03 8B  4E B3 32 A7 39 33 30 00  |00...\..N.2.930.|
000003F0: 2E 0C 66 03 81 58 B2 30  A4 4E AB 31 3A 81 59 B2  |..f..X.0.N.1:.Y.|
00000400: 30 A4 4E AB 32 3A 8B 54  4C 28 58 29 B3 54 4C 28  |0.N.2:.TL(X).TL(|
00000410: 59 29 A7 56 B2 54 4C 28  59 29 3A 54 4C 28 59 29  |Y).V.TL(Y):TL(Y)|
00000420: B2 54 4C 28 58 29 3A 54  4C 28 58 29 B2 56 00 37  |.TL(X):TL(X).V.7|
00000430: 0C 7A 03 82 59 2C 58 00  A0 0C A2 03 99 3A 99 3A  |.z..Y,X......:.:|
00000440: 99 22 43 4F 4D 50 41 43  54 49 4E 47 20 4C 49 4E  |."COMPACTING LIN|
00000450: 45 53 2E 2E 2E 2E 22 3A  99 3A A0 35 3A 9F 35 2C  |ES....":.:.5:.5,|
00000460: 38 2C 35 2C 22 30 3A 22  AA 46 31 24 AA 22 2C 50  |8,5,"0:".F1$.",P|
00000470: 2C 52 22 3A 8D 32 37 30  3A 8D 32 33 30 3A 98 36  |,R":.270:.230:.6|
00000480: 2C C7 28 56 31 29 3B C7  28 56 29 3B 3A 4C 41 B2  |,.(V1);.(V);:LA.|
00000490: 56 31 AA 28 32 35 36 AC  56 29 3A 4C 24 B2 22 22  |V1.(256.V):L$.""|
000004A0: 00 B6 0C DE 03 8D 32 33  30 3A 8B 56 AA 56 31 B2  |......230:.V.V1.|
000004B0: 30 A7 31 34 30 30 00 BF  0C E8 03 8D 33 33 30 00  |0.1400......330.|
000004C0: E0 0C F2 03 56 B2 43 28  50 29 3A 50 B2 50 AA 31  |....V.C(P):P.P.1|
000004D0: 3A 8B 56 B2 33 32 B0 56  B2 35 38 A7 31 30 31 30  |:.V.32.V.58.1010|
000004E0: 00 05 0D FC 03 4C 24 B2  C7 28 4C 31 29 AA C7 28  |.....L$..(L1)..(|
000004F0: 4C 32 29 3A 8B 56 B3 B1  30 AF 56 B3 B1 31 34 33  |L2):.V..0.V..143|
00000500: A7 31 31 31 30 00 1D 0D  06 04 81 58 B2 30 A4 4E  |.1110......X.0.N|
00000510: 3A 8B 54 4C 28 58 29 B3  4C 4E A7 82 58 00 30 0D  |:.TL(X).LN..X.0.|
00000520: 10 04 8B 54 4C 28 58 29  B3 B1 4C 4E A7 39 39 30  |...TL(X)..LN.990|
00000530: 00 44 0D 1A 04 4C 24 B2  4C 24 AA 22 3A 22 3A 89  |.D...L$.L$.":":.|
00000540: 31 33 31 30 00 53 0D 42  04 4C 24 B2 4C 24 AA C7  |1310.S.B.L$.L$..|
00000550: 28 56 29 00 64 0D 4C 04  56 B2 43 28 50 29 3A 50  |(V).d.L.V.C(P):P|
00000560: B2 50 AA 31 00 73 0D 56  04 8B 56 B2 33 32 A7 31  |.P.1.s.V..V.32.1|
00000570: 31 30 30 00 82 0D 60 04  8B 56 B2 35 38 A7 31 32  |100...`..V.58.12|
00000580: 36 30 00 A9 0D 6A 04 8B  56 B2 31 33 37 B0 56 B2  |60...j..V.137.V.|
00000590: 31 33 38 B0 56 B2 31 33  39 B0 56 B2 31 36 37 A7  |138.V.139.V.167.|
000005A0: 46 B2 31 3A 89 31 30 39  30 00 BD 0D 74 04 8B 56  |F.1:.1090...t..V|
000005B0: B2 30 B0 56 B2 31 34 33  A7 31 33 31 30 00 CD 0D  |.0.V.143.1310...|
000005C0: 9C 04 8B 56 B3 B1 33 34  A7 31 30 39 30 00 F4 0D  |...V..34.1090...|
000005D0: A6 04 4C 24 B2 4C 24 AA  C7 28 56 29 3A 56 B2 43  |..L$.L$..(V):V.C|
000005E0: 28 50 29 3A 50 B2 50 AA  31 3A 8B 56 B2 33 34 A7  |(P):P.P.1:.V.34.|
000005F0: 31 30 39 30 00 02 0E B0  04 8B 56 B1 30 A7 31 31  |1090......V.0.11|
00000600: 39 30 00 17 0E BA 04 8B  46 B2 30 A7 4C 24 B2 4C  |90......F.0.L$.L|
00000610: 24 AA C7 28 33 34 29 00  21 0E C4 04 89 31 33 31  |$..(34).!....131|
00000620: 30 00 42 0E EC 04 56 B2  43 28 50 29 3A 50 B2 50  |0.B...V.C(P):P.P|
00000630: AA 31 3A 8B 56 B2 33 32  B0 56 B2 35 38 A7 31 32  |.1:.V.32.V.58.12|
00000640: 36 30 00 63 0E F6 04 8B  56 B3 B1 30 AF 56 B3 B1  |60.c....V..0.V..|
00000650: 31 34 33 A7 4C 24 B2 4C  24 AA 22 3A 22 3A 89 31  |143.L$.L$.":":.1|
00000660: 31 31 30 00 76 0E 1E 05  8B 46 B2 31 A7 8D 33 30  |110.v....F.1..30|
00000670: 30 3A 89 39 39 30 00 8C  0E 28 05 8D 32 33 30 3A  |0:.990...(..230:|
00000680: 8B 56 AA 56 31 B2 30 A7  31 34 30 30 00 B1 0E 32  |.V.V1.0.1400...2|
00000690: 05 8D 33 33 30 3A 8B 28  C3 28 4C 24 29 AA 50 4C  |..330:.(.(L$).PL|
000006A0: AA 34 29 B1 4D 4C A7 8D  33 30 30 3A 89 31 30 31  |.4).ML..300:.101|
000006B0: 30 00 C9 0E 3C 05 81 58  B2 30 A4 4E 3A 8B 54 4C  |0...<..X.0.N:.TL|
000006C0: 28 58 29 B3 4C 4E A7 82  58 00 DD 0E 46 05 8B 54  |(X).LN..X...F..T|
000006D0: 4C 28 58 29 B3 B1 4C 4E  A7 31 32 36 30 00 EC 0E  |L(X)..LN.1260...|
000006E0: 50 05 8D 33 30 30 3A 89  31 30 31 30 00 11 0F 78  |P..300:.1010...x|
000006F0: 05 8D 33 30 30 3A 98 36  2C C7 28 30 29 3B C7 28  |..300:.6,.(0);.(|
00000700: 30 29 3B 3A 99 3A 99 3A  99 22 44 4F 4E 45 22 3A  |0);:.:.:."DONE":|
00000710: 99 00 1F 0F 8C 05 A0 35  3A A0 36 3A A0 31 35 00  |.......5:.6:.15.|
00000720: 00 00                                             |..              |

.......TL(1000),C(256):.400.)....240:V1.
V.M....#5,C$:.270:V.0:.C$.."".V.F(C$).S.
....P....15,EN,EM$,ET,ES:.EN.0........:.
"DISK ERROR":.:.EN;EM$;ET;ES:.1420...,..
L$."".....6.LA.LA.C(L$).3:A1..(LA.256):A
2.LA.(A1.256):.6,G(A2);G(A1);L$;G(0);:L$
."":....J.P.1:.230:LN.V1.(256.V):L1.V1:L
2.V:.LN;"      ":.".";.N.^..240:C(P).V:.
V.0.P.P.1:.350.A.H.F.0:PL.P:P.1:......."
.     C O M P A C T O R   II":..M....:."
MAX LINE LENGTH TO CREATE":."   255.....
";ML:.ML.1.ML.255.410..... 15:.15,8,15:.
:."INPUT FILENAME":.F1$:.5,8,5,"0:".F1$.
",P,R":.270:.:."OUTPUT FILENAME":.F2$:.6
,8,6,"0:".F2$.",P,W":.270:.:."OK, SCANNI
NG PROGRAM":."   FOR TARGET LINES.....":
.:.230......230:.V.V1.0.860...&..230:LN.
V1.(256.V)...N..240.H.X..V.0.540...B..V.
137.V.141.V.138.660...L..V..167.590.....
LT.0......240:.V.32.670."....V.48.V.57.7
30.A...LT.(10.LT).E(C$):.240:.680.Z.Z..X
.0.N:.TL(X).LT.800......X:TL(N).LT:N.N.1
:.LT;"      ":.".";:.N.1000.800......:.:
."TOO MANY TARGET LINES!":.1420.E. ..V.4
4.660.T.*..V..32.600...4..240:.800...\..
N.2.930...F..X.0.N.1:.Y.0.N.2:.TL(X).TL(
Y).V.TL(Y):TL(Y).TL(X):TL(X).V.7.Z..Y,X.
 ....:.:."COMPACTING LINES....":.: 5:.5,
8,5,"0:".F1$.",P,R":.270:.230:.6,G(V1);G
(V);:LA.V1.(256.V):L$.""......230:.V.V1.
0.1400......330.....V.C(P):P.P.1:.V.32.V
.58.1010.....L$.G(L1).G(L2):.V..0.V..143
.1110......X.0.N:.TL(X).LN..X.0....TL(X)
..LN.990.D...L$.L$.":":.1310.S.B.L$.L$.G
(V).D.L.V.C(P):P.P.1.S.V..V.32.1100...`.
.V.58.1260...J..V.137.V.138.V.139.V.167.
F.1:.1090...T..V.0.V.143.1310.M....V..34
.1090.....L$.L$.G(V):V.C(P):P.P.1:.V.34.
1090......V.0.1190......F.0.L$.L$.G(34).
!.D..1310.B...V.C(P):P.P.1:.V.32.V.58.12
60.C....V..0.V..143.L$.L$.":":.1110.V...
.F.1..300:.990...(..230:.V.V1.0.1400...2
..330:.(C(L$).PL.4).ML..300:.1010.I.<..X
.0.N:.TL(X).LN..X...F..TL(X)..LN.1260...
P..300:.1010...X..300:.6,G(0);G(0);:.:.:
."DONE":...... 5: 6: 15...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL