COMPACTOR II

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 39 08 F0 00 A1 23  |.240:V1.V.9....#|
00000030: 35 2C 43 24 3A 8D 32 37  30 00 51 08 FA 00 56 B2  |5,C$:.270.Q...V.|
00000040: 30 3A 8B 43 24 B3 B1 22  22 A7 56 B2 C6 28 43 24  |0:.C$.."".V..(C$|
00000050: 29 00 57 08 04 01 8E 00  74 08 0E 01 84 31 35 2C  |).W.....t....15,|
00000060: 45 4E 2C 45 4D 24 2C 45  54 2C 45 53 3A 8B 45 4E  |EN,EM$,ET,ES:.EN|
00000070: B2 30 A7 8E 00 89 08 18  01 99 22 11 44 49 53 4B  |.0........".DISK|
00000080: 20 45 52 52 4F 52 22 3A  99 00 A1 08 22 01 99 45  | ERROR":...."..E|
00000090: 4E 3B 45 4D 24 3B 45 54  3B 45 53 3A 89 31 34 32  |N;EM$;ET;ES:.142|
000000A0: 30 00 AE 08 2C 01 8B 4C  24 B2 22 22 A7 8E 00 DC  |0...,..L$.""....|
000000B0: 08 36 01 4C 41 B2 4C 41  AA C3 28 4C 24 29 AA 33  |.6.LA.LA..(L$).3|
000000C0: 3A 41 31 B2 B5 28 4C 41  AD 32 35 36 29 3A 41 32  |:A1..(LA.256):A2|
000000D0: B2 4C 41 AB 28 41 31 AC  32 35 36 29 00 00 09 40  |.LA.(A1.256)...@|
000000E0: 01 98 36 2C C7 28 41 32  29 3B C7 28 41 31 29 3B  |..6,.(A2);.(A1);|
000000F0: 4C 24 3B C7 28 30 29 3B  3A 4C 24 B2 22 22 3A 8E  |L$;.(0);:L$."":.|
00000100: 00 26 09 4A 01 50 B2 31  3A 8D 32 33 30 3A 4C 4E  |.&.J.P.1:.230:LN|
00000110: B2 56 31 AA 28 32 35 36  AC 56 29 3A 4C 31 B2 56  |.V1.(256.V):L1.V|
00000120: 31 3A 4C 32 B2 56 00 3F  09 54 01 99 20 4C 4E 3B  |1:L2.V.?.T.. LN;|
00000130: 22 20 20 20 20 20 20 22  3A 20 99 22 91 22 3B 00  |"      ": .".";.|
00000140: 5F 09 5E 01 8D 32 34 30  3A 43 28 50 29 B2 56 3A  |_.^..240:C(P).V:|
00000150: 8B 56 B1 30 A7 50 B2 50  AA 31 3A 89 33 35 30 00  |.V.0.P.P.1:.350.|
00000160: 72 09 68 01 46 B2 30 3A  50 4C B2 50 3A 50 B2 31  |r.h.F.0:PL.P:P.1|
00000170: 3A 8E 00 9A 09 90 01 99  22 93 20 20 20 20 20 20  |:.......".      |
00000180: 20 43 20 4F 20 4D 20 50  20 41 20 43 20 54 20 4F  | C O M P A C T O|
00000190: 20 52 20 20 20 49 49 22  3A 99 00 BC 09 9A 01 99  | R   II":.......|
000001A0: 22 11 4D 41 58 20 4C 49  4E 45 20 4C 45 4E 47 54  |".MAX LINE LENGT|
000001B0: 48 20 54 4F 20 43 52 45  41 54 45 22 00 E3 09 A4  |H TO CREATE"....|
000001C0: 01 85 22 20 20 20 32 35  35 9D 9D 9D 9D 9D 22 3B  |.."   255.....";|
000001D0: 4D 4C 3A 8B 4D 4C B3 31  B0 4D 4C B1 32 35 35 A7  |ML:.ML.1.ML.255.|
000001E0: 34 31 30 00 F4 09 AE 01  A0 31 35 3A 9F 31 35 2C  |410......15:.15,|
000001F0: 38 2C 31 35 00 10 0A B8  01 99 22 11 49 4E 50 55  |8,15......".INPU|
00000200: 54 20 46 49 4C 45 4E 41  4D 45 22 3A 85 46 31 24  |T FILENAME":.F1$|
00000210: 00 30 0A C2 01 9F 35 2C  38 2C 35 2C 22 30 3A 22  |.0....5,8,5,"0:"|
00000220: AA 46 31 24 AA 22 2C 50  2C 52 22 3A 8D 32 37 30  |.F1$.",P,R":.270|
00000230: 00 4D 0A CC 01 99 22 11  4F 55 54 50 55 54 20 46  |.M....".OUTPUT F|
00000240: 49 4C 45 4E 41 4D 45 22  3A 85 46 32 24 00 6D 0A  |ILENAME":.F2$.m.|
00000250: D6 01 9F 36 2C 38 2C 36  2C 22 30 3A 22 AA 46 32  |...6,8,6,"0:".F2|
00000260: 24 AA 22 2C 50 2C 57 22  3A 8D 32 37 30 00 8A 0A  |$.",P,W":.270...|
00000270: E0 01 99 22 11 4F 4B 2C  20 53 43 41 4E 4E 49 4E  |...".OK, SCANNIN|
00000280: 47 20 50 52 4F 47 52 41  4D 22 00 AA 0A EA 01 99  |G PROGRAM"......|
00000290: 22 20 20 20 46 4F 52 20  54 41 52 47 45 54 20 4C  |"   FOR TARGET L|
000002A0: 49 4E 45 53 2E 2E 2E 22  3A 99 00 B3 0A 12 02 8D  |INES...":.......|
000002B0: 32 33 30 00 C8 0A 1C 02  8D 32 33 30 3A 8B 56 AA  |230......230:.V.|
000002C0: 56 31 B2 30 A7 38 36 30  00 DF 0A 26 02 8D 32 33  |V1.0.860...&..23|
000002D0: 30 3A 4C 4E B2 56 31 AA  28 32 35 36 AC 56 29 00  |0:LN.V1.(256.V).|
000002E0: E8 0A 4E 02 8D 32 34 30  00 F5 0A 58 02 8B 56 B2  |..N..240...X..V.|
000002F0: 30 A7 35 34 30 00 10 0B  62 02 8B 56 B2 31 33 37  |0.540...b..V.137|
00000300: B0 56 B2 31 34 31 B0 56  B2 31 33 38 A7 36 36 30  |.V.141.V.138.660|
00000310: 00 20 0B 6C 02 8B 56 B3  B1 31 36 37 A7 35 39 30  |. .l..V..167.590|
00000320: 00 29 0B 94 02 4C 54 B2  30 00 3C 0B 9E 02 8D 32  |.)...LT.0.<....2|
00000330: 34 30 3A 8B 56 B2 33 32  A7 36 37 30 00 4F 0B A8  |40:.V.32.670.O..|
00000340: 02 8B 56 B3 34 38 B0 56  B1 35 37 A7 37 33 30 00  |..V.48.V.57.730.|
00000350: 6E 0B B2 02 4C 54 B2 28  31 30 AC 4C 54 29 AA C5  |n...LT.(10.LT)..|
00000360: 28 43 24 29 3A 8D 32 34  30 3A 89 36 38 30 00 87  |(C$):.240:.680..|
00000370: 0B DA 02 81 58 B2 30 A4  4E 3A 8B 54 4C 28 58 29  |....X.0.N:.TL(X)|
00000380: B2 4C 54 A7 38 30 30 00  8E 0B E4 02 82 58 00 C0  |.LT.800......X..|
00000390: 0B EE 02 54 4C 28 4E 29  B2 4C 54 3A 4E B2 4E AA  |...TL(N).LT:N.N.|
000003A0: 31 3A 99 4C 54 3B 22 20  20 20 20 20 20 22 3A 99  |1:.LT;"      ":.|
000003B0: 22 91 22 3B 3A 8B 4E B3  31 30 30 30 A7 38 30 30  |".";:.N.1000.800|
000003C0: 00 E6 0B F8 02 99 22 11  11 54 4F 4F 20 4D 41 4E  |......"..TOO MAN|
000003D0: 59 20 54 41 52 47 45 54  20 4C 49 4E 45 53 21 22  |Y TARGET LINES!"|
000003E0: 3A 89 31 34 32 30 00 F4  0B 20 03 8B 56 B2 34 34  |:.1420... ..V.44|
000003F0: A7 36 36 30 00 03 0C 2A  03 8B 56 B3 B1 33 32 A7  |.660...*..V..32.|
00000400: 36 30 30 00 11 0C 34 03  8D 32 34 30 3A 89 38 30  |600...4..240:.80|
00000410: 30 00 1E 0C 5C 03 8B 4E  B3 32 A7 39 33 30 00 34  |0...\..N.2.930.4|
00000420: 0C 66 03 81 58 B2 30 A4  4E AB 31 3A 81 59 B2 30  |.f..X.0.N.1:.Y.0|
00000430: A4 4E AB 32 00 61 0C 70  03 8B 54 4C 28 58 29 B3  |.N.2.a.p..TL(X).|
00000440: 54 4C 28 59 29 A7 56 B2  54 4C 28 59 29 3A 54 4C  |TL(Y).V.TL(Y):TL|
00000450: 28 59 29 B2 54 4C 28 58  29 3A 54 4C 28 58 29 B2  |(Y).TL(X):TL(X).|
00000460: 56 00 6A 0C 7A 03 82 59  2C 58 00 8A 0C A2 03 99  |V.j.z..Y,X......|
00000470: 22 11 11 43 4F 4D 50 41  43 54 49 4E 47 20 4C 49  |"..COMPACTING LI|
00000480: 4E 45 53 2E 2E 2E 2E 22  3A 99 00 AD 0C AC 03 A0  |NES....":.......|
00000490: 35 3A 9F 35 2C 38 2C 35  2C 22 30 3A 22 AA 46 31  |5:.5,8,5,"0:".F1|
000004A0: 24 AA 22 2C 50 2C 52 22  3A 8D 32 37 30 00 D9 0C  |$.",P,R":.270...|
000004B0: B6 03 8D 32 33 30 3A 98  36 2C C7 28 56 31 29 3B  |...230:.6,.(V1);|
000004C0: C7 28 56 29 3B 3A 4C 41  B2 56 31 AA 28 32 35 36  |.(V);:LA.V1.(256|
000004D0: AC 56 29 3A 4C 24 B2 22  22 00 EF 0C DE 03 8D 32  |.V):L$.""......2|
000004E0: 33 30 3A 8B 56 AA 56 31  B2 30 A7 31 34 30 30 00  |30:.V.V1.0.1400.|
000004F0: F8 0C E8 03 8D 33 33 30  00 19 0D F2 03 56 B2 43  |.....330.....V.C|
00000500: 28 50 29 3A 50 B2 50 AA  31 3A 8B 56 B2 33 32 B0  |(P):P.P.1:.V.32.|
00000510: 56 B2 35 38 A7 31 30 31  30 00 3E 0D FC 03 4C 24  |V.58.1010.>...L$|
00000520: B2 C7 28 4C 31 29 AA C7  28 4C 32 29 3A 8B 56 B3  |..(L1)..(L2):.V.|
00000530: B1 30 AF 56 B3 B1 31 34  33 A7 31 31 31 30 00 56  |.0.V..143.1110.V|
00000540: 0D 06 04 81 58 B2 30 A4  4E 3A 8B 54 4C 28 58 29  |....X.0.N:.TL(X)|
00000550: B3 4C 4E A7 82 58 00 69  0D 10 04 8B 54 4C 28 58  |.LN..X.i....TL(X|
00000560: 29 B3 B1 4C 4E A7 39 39  30 00 7D 0D 1A 04 4C 24  |)..LN.990.}...L$|
00000570: B2 4C 24 AA 22 3A 22 3A  89 31 33 31 30 00 8C 0D  |.L$.":":.1310...|
00000580: 42 04 4C 24 B2 4C 24 AA  C7 28 56 29 00 9D 0D 4C  |B.L$.L$..(V)...L|
00000590: 04 56 B2 43 28 50 29 3A  50 B2 50 AA 31 00 AC 0D  |.V.C(P):P.P.1...|
000005A0: 56 04 8B 56 B2 33 32 A7  31 31 30 30 00 BB 0D 60  |V..V.32.1100...`|
000005B0: 04 8B 56 B2 35 38 A7 31  32 36 30 00 E2 0D 6A 04  |..V.58.1260...j.|
000005C0: 8B 56 B2 31 33 37 B0 56  B2 31 33 38 B0 56 B2 31  |.V.137.V.138.V.1|
000005D0: 33 39 B0 56 B2 31 36 37  A7 46 B2 31 3A 89 31 30  |39.V.167.F.1:.10|
000005E0: 39 30 00 F6 0D 74 04 8B  56 B2 30 B0 56 B2 31 34  |90...t..V.0.V.14|
000005F0: 33 A7 31 33 31 30 00 06  0E 9C 04 8B 56 B3 B1 33  |3.1310......V..3|
00000600: 34 A7 31 30 39 30 00 2D  0E A6 04 4C 24 B2 4C 24  |4.1090.-...L$.L$|
00000610: AA C7 28 56 29 3A 56 B2  43 28 50 29 3A 50 B2 50  |..(V):V.C(P):P.P|
00000620: AA 31 3A 8B 56 B2 33 34  A7 31 30 39 30 00 3B 0E  |.1:.V.34.1090.;.|
00000630: B0 04 8B 56 B1 30 A7 31  31 39 30 00 50 0E BA 04  |...V.0.1190.P...|
00000640: 8B 46 B2 30 A7 4C 24 B2  4C 24 AA C7 28 33 34 29  |.F.0.L$.L$..(34)|
00000650: 00 5A 0E C4 04 89 31 33  31 30 00 7B 0E EC 04 56  |.Z....1310.{...V|
00000660: B2 43 28 50 29 3A 50 B2  50 AA 31 3A 8B 56 B2 33  |.C(P):P.P.1:.V.3|
00000670: 32 B0 56 B2 35 38 A7 31  32 36 30 00 9C 0E F6 04  |2.V.58.1260.....|
00000680: 8B 56 B3 B1 30 AF 56 B3  B1 31 34 33 A7 4C 24 B2  |.V..0.V..143.L$.|
00000690: 4C 24 AA 22 3A 22 3A 89  31 31 31 30 00 AF 0E 1E  |L$.":":.1110....|
000006A0: 05 8B 46 B2 31 A7 8D 33  30 30 3A 89 39 39 30 00  |..F.1..300:.990.|
000006B0: C5 0E 28 05 8D 32 33 30  3A 8B 56 AA 56 31 B2 30  |..(..230:.V.V1.0|
000006C0: A7 31 34 30 30 00 EA 0E  32 05 8D 33 33 30 3A 8B  |.1400...2..330:.|
000006D0: 28 C3 28 4C 24 29 AA 50  4C AA 34 29 B1 4D 4C A7  |(.(L$).PL.4).ML.|
000006E0: 8D 33 30 30 3A 89 31 30  31 30 00 02 0F 3C 05 81  |.300:.1010...<..|
000006F0: 58 B2 30 A4 4E 3A 8B 54  4C 28 58 29 B3 4C 4E A7  |X.0.N:.TL(X).LN.|
00000700: 82 58 00 16 0F 46 05 8B  54 4C 28 58 29 B3 B1 4C  |.X...F..TL(X)..L|
00000710: 4E A7 31 32 36 30 00 25  0F 50 05 8D 33 30 30 3A  |N.1260.%.P..300:|
00000720: 89 31 30 31 30 00 3C 0F  78 05 8D 33 30 30 3A 98  |.1010.<.x..300:.|
00000730: 36 2C C7 28 30 29 3B C7  28 30 29 3B 00 4E 0F 82  |6,.(0);.(0);.N..|
00000740: 05 99 3A 99 3A 99 22 44  4F 4E 45 22 3A 99 00 5D  |..:.:."DONE":..]|
00000750: 0F 8C 05 A0 35 3A A0 36  3A A0 20 31 35 00 00 00  |....5:.6:. 15...|

.......TL(1000),C(256):.400.)....240:V1.
V.9....#5,C$:.270.Q...V.0:.C$.."".V.F(C$
).W.....T....15,EN,EM$,ET,ES:.EN.0......
..".DISK ERROR":...."..EN;EM$;ET;ES:.142
0...,..L$."".....6.LA.LA.C(L$).3:A1..(LA
.256):A2.LA.(A1.256)...@..6,G(A2);G(A1);
L$;G(0);:L$."":..&.J.P.1:.230:LN.V1.(256
.V):L1.V1:L2.V.?.T.. LN;"      ": .".";.
_.^..240:C(P).V:.V.0.P.P.1:.350.R.H.F.0:
PL.P:P.1:.......".       C O M P A C T O
 R   II":.......".MAX LINE LENGTH TO CRE
ATE"......"   255.....";ML:.ML.1.ML.255.
410..... 15:.15,8,15......".INPUT FILENA
ME":.F1$.0.B..5,8,5,"0:".F1$.",P,R":.270
.M.L..".OUTPUT FILENAME":.F2$.M.V..6,8,6
,"0:".F2$.",P,W":.270......".OK, SCANNIN
G PROGRAM"......"   FOR TARGET LINES..."
:.......230.H....230:.V.V1.0.860...&..23
0:LN.V1.(256.V)...N..240...X..V.0.540...
B..V.137.V.141.V.138.660. .L..V..167.590
.)...LT.0.<....240:.V.32.670.O....V.48.V
.57.730.N...LT.(10.LT).E(C$):.240:.680..
.Z..X.0.N:.TL(X).LT.800......X.....TL(N)
.LT:N.N.1:.LT;"      ":.".";:.N.1000.800
......"..TOO MANY TARGET LINES!":.1420..
. ..V.44.660...*..V..32.600...4..240:.80
0...\..N.2.930.4.F..X.0.N.1:.Y.0.N.2.A.P
..TL(X).TL(Y).V.TL(Y):TL(Y).TL(X):TL(X).
V.J.Z..Y,X......"..COMPACTING LINES...."
:...... 5:.5,8,5,"0:".F1$.",P,R":.270.Y.
...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.V....X.0.N:.TL(X)
.LN..X.I....TL(X)..LN.990.}...L$.L$.":":
.1310...B.L$.L$.G(V)...L.V.C(P):P.P.1...
V..V.32.1100...`..V.58.1260...J..V.137.V
.138.V.139.V.167.F.1:.1090...T..V.0.V.14
3.1310......V..34.1090.-...L$.L$.G(V):V.
C(P):P.P.1:.V.34.1090.;....V.0.1190.P...
.F.0.L$.L$.G(34).Z.D..1310.{...V.C(P):P.
P.1:.V.32.V.58.1260......V..0.V..143.L$.
L$.":":.1110......F.1..300:.990.E.(..230
:.V.V1.0.1400...2..330:.(C(L$).PL.4).ML.
.300:.1010...<..X.0.N:.TL(X).LN..X...F..
TL(X)..LN.1260.%.P..300:.1010.<.X..300:.
6,G(0);G(0);.N....:.:."DONE":..]... 5: 6
:  15...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL