COMPACTER
FILE INFORMATION
FILENAME(S): COMPACTER
FILE TYPE(S): PRG
FILE SIZE: 2.1K
FIRST SEEN: 2025-11-30 18:15:00
APPEARS ON: 1 disk(s)
FILE HASH
63527aef16a21a04afc3baf1d32fd2c23f08487499c914050355c1ddfe5bd55b
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| NYTTOPRG COPY | COMPACTER | PRG | Sailor, Lex | 24 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 2E 08 01 00 8F 53 41 56 45 22 40 3A 43 4F |.......SAVE"@:CO| 00000010: 4D 50 41 43 54 4F 52 22 2C 38 3A 56 45 52 49 46 |MPACTOR",8:VERIF| 00000020: 59 22 43 4F 4D 50 41 43 54 4F 52 22 2C 38 00 34 |Y"COMPACTOR",8.4| 00000030: 08 0A 00 8F 00 3A 08 14 00 8F 00 40 08 1E 00 8F |.....:.....@....| 00000040: 00 51 08 6E 00 9C 3A 86 20 54 4C 28 32 30 30 30 |.Q.n..:. TL(2000| 00000050: 29 00 6E 08 AA 00 99 22 93 22 A6 31 34 29 22 12 |).n....".".14)".| 00000060: 20 43 4F 4D 50 41 43 54 4F 52 20 11 11 22 00 8C | COMPACTOR .."..| 00000070: 08 C8 00 85 22 11 11 12 49 4E 50 55 54 20 46 49 |...."...INPUT FI| 00000080: 4C 45 20 4E 41 4D 45 22 3B 46 4C 24 00 A2 08 D2 |LE NAME";FL$....| 00000090: 00 99 22 93 53 43 41 4E 4E 49 4E 47 20 46 49 4C |..".SCANNING FIL| 000000A0: 45 22 00 BC 08 DC 00 99 22 20 20 20 46 4F 52 54 |E"......" FORT| 000000B0: 41 52 47 45 54 20 4C 49 4E 45 53 22 00 CF 08 E6 |ARGET LINES"....| 000000C0: 00 9F 31 35 2C 38 2C 31 35 3A 8D 32 33 37 30 00 |..15,8,15:.2370.| 000000D0: EA 08 F0 00 9F 35 2C 38 2C 35 2C 22 30 3A 22 AA |.....5,8,5,"0:".| 000000E0: 46 4C 24 AA 22 2C 50 2C 52 22 00 FA 08 2C 01 8D |FL$.",P,R"...,..| 000000F0: 32 33 37 30 3A 8D 32 33 31 30 00 11 09 36 01 8D |2370:.2310...6..| 00000100: 32 33 31 30 3A 8B 20 56 AA 56 31 B2 30 A7 37 39 |2310:. V.V1.0.79| 00000110: 30 00 29 09 40 01 8D 32 33 31 30 3A 4C 4E B2 56 |0.).@..2310:LN.V| 00000120: 31 AA 28 32 35 36 AC 56 29 00 33 09 86 01 8D 32 |1.(256.V).3....2| 00000130: 33 33 30 00 40 09 90 01 8B 56 B2 30 A7 33 31 30 |330.@....V.0.310| 00000140: 00 55 09 9A 01 8B 56 B2 31 33 37 B0 56 B2 31 34 |.U....V.137.V.14| 00000150: 31 A7 34 38 30 00 65 09 A4 01 8B 56 B3 B1 31 36 |1.480.e....V..16| 00000160: 37 A7 33 39 30 00 6E 09 E0 01 4C 54 B2 30 00 82 |7.390.n...LT.0..| 00000170: 09 EA 01 8D 32 33 33 30 3A 8B 56 B2 33 32 A7 34 |....2330:.V.32.4| 00000180: 39 30 00 95 09 F4 01 8B 56 B3 34 38 B0 56 B1 35 |90......V.48.V.5| 00000190: 37 A7 35 38 30 00 AA 09 FE 01 4C 54 B2 28 31 30 |7.580.....LT.(10| 000001A0: AC 4C 54 29 AA C5 28 43 24 29 00 B9 09 08 02 8D |.LT)..(C$)......| 000001B0: 32 33 33 30 3A 89 35 30 30 00 C4 09 44 02 81 58 |2330:.500...D..X| 000001C0: B2 30 A4 4E 00 D6 09 4E 02 8B 54 4C 28 58 29 B2 |.0.N...N..TL(X).| 000001D0: 4C 54 A7 37 31 30 00 E9 09 58 02 54 4C 28 4E 29 |LT.710...X.TL(N)| 000001E0: B2 4C 54 3A 4E B2 4E AA 31 00 F1 09 6C 02 99 4C |.LT:N.N.1...l..L| 000001F0: 54 00 00 0A 76 02 8B 4E B3 31 30 30 A7 37 31 30 |T...v..N.100.710| 00000200: 00 20 0A 80 02 99 22 11 11 54 4F 4F 20 4D 41 4E |. ...."..TOO MAN| 00000210: 59 20 54 41 52 47 45 54 20 4C 49 4E 45 53 21 22 |Y TARGET LINES!"| 00000220: 00 2A 0A 8A 02 89 32 34 35 30 00 38 0A C6 02 8B |.*....2450.8....| 00000230: 56 B2 34 34 A7 34 38 30 00 47 0A D0 02 8B 56 B3 |V.44.480.G....V.| 00000240: B1 33 32 A7 34 30 30 00 56 0A DA 02 8D 32 33 33 |.32.400.V....233| 00000250: 30 3A 89 37 31 30 00 5C 0A E4 02 3A 00 69 0A 16 |0:.710.\...:.i..| 00000260: 03 8B 4E B3 32 A7 39 30 30 00 76 0A 20 03 81 58 |..N.2.900.v. ..X| 00000270: B2 30 A4 4E AB 31 00 86 0A 2A 03 3A 20 20 81 59 |.0.N.1...*.: .Y| 00000280: B2 30 A4 4E AB 32 00 A0 0A 34 03 3A 20 20 20 8B |.0.N.2...4.: .| 00000290: 54 4C 28 59 29 20 B3 54 4C 28 58 29 A7 38 34 30 |TL(Y) .TL(X).840| 000002A0: 00 C9 0A 3E 03 3A 20 20 20 20 56 B2 54 4C 28 59 |...>.: V.TL(Y| 000002B0: 29 20 3A 20 54 4C 28 59 29 B2 54 4C 28 58 29 20 |) : TL(Y).TL(X) | 000002C0: 3A 20 54 4C 28 58 29 B2 56 00 D2 0A 48 03 82 59 |: TL(X).V...H..Y| 000002D0: 2C 58 00 F1 0A 84 03 99 22 93 43 4F 4D 50 41 43 |,X......".COMPAC| 000002E0: 54 49 4E 47 20 4C 49 4E 45 53 2E 2E 2E 2E 11 11 |TING LINES......| 000002F0: 22 00 F8 0A 8E 03 A0 35 00 13 0B 98 03 9F 35 2C |"......5......5,| 00000300: 38 2C 35 2C 22 30 3A 22 AA 46 4C 24 AA 22 2C 50 |8,5,"0:".FL$.",P| 00000310: 2C 52 22 00 1D 0B A2 03 8D 32 33 37 30 00 34 0B |,R"......2370.4.| 00000320: AC 03 46 4F 24 B2 C8 28 46 4C 24 2C 31 34 29 AA |..FO$..(FL$,14).| 00000330: 22 2F 43 22 00 46 0B B6 03 98 31 35 2C 22 53 30 |"/C".F....15,"S0| 00000340: 3A 22 AA 46 4F 24 00 61 0B C0 03 9F 36 2C 38 2C |:".FO$.a....6,8,| 00000350: 36 2C 22 30 3A 22 AA 46 4F 24 AA 22 2C 50 2C 57 |6,"0:".FO$.",P,W| 00000360: 22 00 6B 0B CA 03 8D 32 33 37 30 00 75 0B 06 04 |".k....2370.u...| 00000370: 8D 32 33 31 30 00 83 0B 10 04 98 36 2C C7 28 56 |.2310......6,.(V| 00000380: 31 29 3B 00 94 0B 1A 04 98 36 2C C7 28 56 29 3B |1);......6,.(V);| 00000390: 3A 52 B2 30 00 A9 0B 56 04 8D 32 33 31 30 3A 4B |:R.0...V..2310:K| 000003A0: 31 B2 56 31 3A 4B 32 B2 56 00 BE 0B 60 04 46 B2 |1.V1:K2.V...`.F.| 000003B0: 30 3A 8B 56 AA 56 31 B2 30 A7 32 32 33 30 00 D3 |0:.V.V1.0.2230..| 000003C0: 0B 6A 04 8D 32 33 31 30 3A 4C 31 B2 56 31 3A 4C |.j..2310:L1.V1:L| 000003D0: 32 B2 56 00 EA 0B 74 04 4C 4E B2 4C 31 AA 28 32 |2.V...t.LN.L1.(2| 000003E0: 35 36 AC 4C 32 29 3A 99 4C 4E 00 F4 0B 7E 04 8D |56.L2):.LN...~..| 000003F0: 32 33 33 30 00 08 0C 88 04 8B 56 B2 33 32 B0 56 |2330......V.32.V| 00000400: B2 35 38 A7 31 31 35 30 00 16 0C 92 04 8B 56 B2 |.58.1150......V.| 00000410: 30 A7 31 32 30 30 00 27 0C 9C 04 8B 56 B3 B1 31 |0.1200.'....V..1| 00000420: 34 33 A7 31 32 34 30 00 3B 0C A6 04 8D 32 33 33 |43.1240.;....233| 00000430: 30 3A 8B 56 B1 30 A7 31 31 39 30 00 4A 0C B0 04 |0:.V.0.1190.J...| 00000440: 46 B2 31 3A 81 58 B2 30 A4 4E 00 5B 0C BA 04 8B |F.1:.X.0.N.[....| 00000450: 54 4C 28 58 29 B3 4C 4E A7 82 58 00 6E 0C C4 04 |TL(X).LN..X.n...| 00000460: 8B 54 4C 28 58 29 B2 4C 4E A7 31 32 34 30 00 78 |.TL(X).LN.1240.x| 00000470: 0C CE 04 89 31 31 31 30 00 8C 0C D8 04 98 36 2C |....1110......6,| 00000480: C7 28 4B 31 29 3B C7 28 4B 32 29 3B 00 A4 0C E2 |.(K1);.(K2);....| 00000490: 04 98 36 2C C7 28 4C 31 29 3B C7 28 4C 32 29 3B |..6,.(L1);.(L2);| 000004A0: 3A 52 B2 34 00 B7 0C EC 04 8B 46 A7 98 36 2C 22 |:R.4......F..6,"| 000004B0: 3A 22 3B 3A 52 B2 35 00 C5 0C F6 04 46 B2 30 3A |:";:R.5.....F.0:| 000004C0: 89 31 33 36 30 00 D7 0C 3C 05 98 36 2C 43 24 3B |.1360...<..6,C$;| 000004D0: 3A 52 B2 52 AA AA 31 00 E1 0C 46 05 8D 32 33 33 |:R.R..1...F..233| 000004E0: 30 00 F0 0C 50 05 8B 56 B2 31 33 37 A7 46 B2 31 |0...P..V.137.F.1| 000004F0: 00 05 0D 5A 05 8B 56 B2 31 32 39 B0 56 B2 31 36 |...Z..V.129.V.16| 00000500: 37 A7 46 B2 31 00 13 0D 64 05 8B 56 B2 30 A7 31 |7.F.1...d..V.0.1| 00000510: 38 32 30 00 24 0D B4 05 8B 56 B3 B1 31 34 33 A7 |820.$....V..143.| 00000520: 31 35 35 30 00 38 0D BE 05 8D 32 33 33 30 3A 8B |1550.8....2330:.| 00000530: 56 B1 30 A7 31 34 37 30 00 42 0D C8 05 89 31 38 |V.0.1470.B....18| 00000540: 32 30 00 52 0D 0E 06 8B 56 B3 B1 33 34 A7 31 36 |20.R....V..34.16| 00000550: 39 30 00 63 0D 18 06 98 36 2C 43 24 3B 3A 52 B2 |90.c....6,C$;:R.| 00000560: 52 AA 31 00 6D 0D 22 06 8D 32 33 33 30 00 7C 0D |R.1.m."..2330.|.| 00000570: 2C 06 8B 56 B2 33 34 A7 31 33 34 30 00 8A 0D 36 |,..V.34.1340...6| 00000580: 06 8B 56 B1 30 A7 31 35 36 30 00 9B 0D 40 06 8B |..V.0.1560...@..| 00000590: 46 A7 56 B2 30 3A 89 31 30 35 30 00 AF 0D 4A 06 |F.V.0:.1050...J.| 000005A0: 98 36 2C C7 28 33 34 29 3B 3A 52 B2 52 AA 31 00 |.6,.(34);:R.R.1.| 000005B0: B9 0D 54 06 89 31 38 32 30 00 C9 0D 9A 06 8B 56 |..T..1820......V| 000005C0: B3 B1 35 38 A7 31 33 34 30 00 D3 0D A4 06 8D 32 |..58.1340......2| 000005D0: 33 33 30 00 E7 0D AE 06 8B 56 B2 33 32 B0 56 B2 |330......V.32.V.| 000005E0: 35 38 A7 31 37 30 30 00 F7 0D B8 06 8B 56 B2 31 |58.1700......V.1| 000005F0: 34 33 A7 31 34 37 30 00 05 0E C2 06 8B 56 B2 30 |43.1470......V.0| 00000600: A7 31 38 32 30 00 17 0E CC 06 98 36 2C 22 3A 22 |.1820......6,":"| 00000610: 3B 3A 52 B2 52 AA 31 00 21 0E D6 06 89 31 33 36 |;:R.R.1.!....136| 00000620: 30 00 3B 0E 1C 07 8B 46 20 B0 28 52 B1 31 37 30 |0.;....F .(R.170| 00000630: 29 A7 56 B2 30 3A 89 31 30 35 30 00 45 0E 26 07 |).V.0:.1050.E.&.| 00000640: 8D 32 33 31 30 00 56 0E 30 07 8B 56 AA 56 31 B2 |.2310.V.0..V.V1.| 00000650: 30 A7 32 32 33 30 00 6E 0E 3A 07 8D 32 33 31 30 |0.2230.n.:..2310| 00000660: 3A 4C 4E B2 56 31 AA 28 32 35 36 AC 56 29 00 82 |:LN.V1.(256.V)..| 00000670: 0E 44 07 4C 31 B2 56 31 3A 4C 32 B2 56 3A 99 4C |.D.L1.V1:L2.V:.L| 00000680: 4E 2C 00 8D 0E 80 07 81 58 B2 30 A4 4E 00 9E 0E |N,......X.0.N...| 00000690: 8A 07 8B 54 4C 28 58 29 B3 4C 4E A7 82 58 00 B1 |...TL(X).LN..X..| 000006A0: 0E 94 07 8B 54 4C 28 58 29 B2 4C 4E A7 32 31 31 |....TL(X).LN.211| 000006B0: 30 00 C7 0E DA 07 8D 32 33 33 30 3A 8B 56 B2 31 |0......2330:.V.1| 000006C0: 34 33 A7 31 34 37 30 00 DB 0E E4 07 8B 56 B2 33 |43.1470......V.3| 000006D0: 32 B0 56 B2 35 38 A7 32 30 31 30 00 EA 0E EE 07 |2.V.58.2010.....| 000006E0: 8B 56 B2 30 A7 31 38 33 2E 30 00 02 0F F8 07 98 |.V.0.183.0......| 000006F0: 36 2C 22 3A 22 3B 3A 52 B2 52 AA 31 3A 89 31 33 |6,":";:R.R.1:.13| 00000700: 36 30 00 19 0F 3E 08 98 36 2C C7 28 30 29 3B C7 |60...>..6,.(0);.| 00000710: 28 31 29 3B C7 28 31 29 3B 00 31 0F 48 08 98 36 |(1);.(1);.1.H..6| 00000720: 2C C7 28 4C 31 29 3B C7 28 4C 32 29 3B 3A 52 B2 |,.(L1);.(L2);:R.| 00000730: 34 00 3B 0F 52 08 8D 32 33 33 30 00 4F 0F 5C 08 |4.;.R..2330.O.\.| 00000740: 8B 56 B2 33 32 B0 56 B2 35 38 A7 32 31 33 30 00 |.V.32.V.58.2130.| 00000750: 66 0F 66 08 8B 56 B2 30 B0 56 B2 31 34 33 A7 98 |f.f..V.0.V.143..| 00000760: 36 2C 22 3A 22 3B 00 74 0F 70 08 46 B2 30 3A 89 |6,":";.t.p.F.0:.| 00000770: 31 33 36 30 00 8B 0F B6 08 98 36 2C C7 28 30 29 |1360......6,.(0)| 00000780: 3B C7 28 30 29 3B C7 28 30 29 3B 00 9E 0F C0 08 |;.(0);.(0);.....| 00000790: 99 22 93 11 11 11 12 44 4F 4E 45 11 11 05 00 A8 |.".....DONE.....| 000007A0: 0F CA 08 89 32 34 33 30 00 B7 0F 06 09 8D 32 33 |....2430......23| 000007B0: 33 30 3A 56 31 B2 56 00 C8 0F 1A 09 A1 23 35 2C |30:V1.V......#5,| 000007C0: 43 24 3A 8D 32 33 37 30 00 D9 0F 24 09 8B 43 24 |C$:.2370...$..C$| 000007D0: B2 22 22 A7 56 B2 30 3A 8E 00 E7 0F 2E 09 56 B2 |."".V.0:......V.| 000007E0: C6 28 43 24 29 3A 8E 00 FC 0F 42 09 84 31 35 2C |.(C$):....B..15,| 000007F0: 45 4E 2C 45 4D 24 2C 45 54 2C 45 53 00 08 10 4C |EN,EM$,ET,ES...L| 00000800: 09 8B 45 4E B2 30 A7 8E 00 21 10 60 09 99 3A 99 |..EN.0...!.`..:.| 00000810: 22 11 11 11 12 44 49 53 4B 20 45 52 52 4F 52 11 |"....DISK ERROR.| 00000820: 22 00 33 10 6A 09 99 45 4E 3B 45 4D 24 3B 45 54 |".3.j..EN;EM$;ET| 00000830: 3B 45 53 00 41 10 7E 09 A0 35 3A A0 36 3A A0 31 |;ES.A.~..5:.6:.1| 00000840: 35 00 00 00 FF FF |5..... |
.......SAVE"@:COMPACTOR",8:VERIFY"COMPAC TOR",8.4.....:.....@.....Q.N..:. TL(2000 ).N....".".14)". COMPACTOR .."...H.."... INPUT FILE NAME";FL$...R..".SCANNING FIL E"......" FORTARGET LINES".O....15,8,1 5:.2370......5,8,5,"0:".FL$.",P,R"...,.. 2370:.2310...6..2310:. V.V1.0.790.).@..2 310:LN.V1.(256.V).3....2330.@....V.0.310 .U....V.137.V.141.480.E....V..167.390.N. ..LT.0......2330:.V.32.490......V.48.V.5 7.580.....LT.(10.LT).E(C$)......2330:.50 0.D.D..X.0.N.V.N..TL(X).LT.710...X.TL(N) .LT:N.N.1...L..LT...V..N.100.710. ....". .TOO MANY TARGET LINES!".*....2450.8.F.. V.44.480.G.P..V..32.400.V.Z..2330:.710.\ ...:.I....N.2.900.V. ..X.0.N.1...*.: .Y .0.N.2. .4.: .TL(Y) .TL(X).840.I.>.: V.TL(Y) : TL(Y).TL(X) : TL(X).V.R.H..Y ,X......".COMPACTING LINES......"..... 5 ......5,8,5,"0:".FL$.",P,R"......2370.4. ..FO$.H(FL$,14)."/C".F....15,"S0:".FO$.A ....6,8,6,"0:".FO$.",P,W".K.J..2370.U... .2310......6,G(V1);......6,G(V);:R.0...V ..2310:K1.V1:K2.V...`.F.0:.V.V1.0.2230.S .J..2310:L1.V1:L2.V...T.LN.L1.(256.L2):. LN...~..2330......V.32.V.58.1150......V. 0.1200.'....V..143.1240.;....2330:.V.0.1 190.J...F.1:.X.0.N.[....TL(X).LN..X.N.D. .TL(X).LN.1240.X.N..1110...X..6,G(K1);G( K2);......6,G(L1);G(L2);:R.4......F..6," :";:R.5.E...F.0:.1360.W.<..6,C$;:R.R..1. ..F..2330...P..V.137.F.1...Z..V.129.V.16 7.F.1...D..V.0.1820.$....V..143.1550.8.. ..2330:.V.0.1470.B.H..1820.R....V..34.16 90.C....6,C$;:R.R.1.M."..2330.|.,..V.34. 1340...6..V.0.1560...@..F.V.0:.1050...J. .6,G(34);:R.R.1...T..1820.I....V..58.134 0.S....2330......V.32.V.58.1700......V.1 43.1470...B..V.0.1820...L..6,":";:R.R.1. !.V..1360.;....F .(R.170).V.0:.1050.E.&. .2310.V.0..V.V1.0.2230.N.:..2310:LN.V1.( 256.V)...D.L1.V1:L2.V:.LN,......X.0.N... ...TL(X).LN..X......TL(X).LN.2110.G.Z..2 330:.V.143.1470......V.32.V.58.2010..... .V.0.183.0......6,":";:R.R.1:.1360...>.. 6,G(0);G(1);G(1);.1.H..6,G(L1);G(L2);:R. 4.;.R..2330.O.\..V.32.V.58.2130.F.F..V.0 .V.143..6,":";.T.P.F.0:.1360......6,G(0) ;G(0);G(0);......".....DONE......J..2430 ......2330:V1.V.H....#5,C$:.2370.Y.$..C$ ."".V.0:......V.F(C$):....B..15,EN,EM$,E T,ES...L..EN.0...!.`..:."....DISK ERROR. ".3.J..EN;EM$;ET;ES.A.~. 5: 6: 15.....
> CLICK IMAGE PREVIEW FOR FULL MODAL