UNCOMPACTOR
FILE INFORMATION
FILENAME(S): UNCOMPACTOR
FILE TYPE(S): PRG
FILE SIZE: 2.1K
FIRST SEEN: 2025-11-30 19:55:13
APPEARS ON: 2 disk(s)
FILE HASH
4bb5cca60c406f4259898ae3e9aa3e9c0d13af7ad1e017581d0bd0c43b5a630e
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FRA RUN 3 1 2 85 | UNCOMPACTOR | PRG | Curtcool, Hans Curt | 20 | 2 | DOWNLOAD FILE |
| BEDSTE PROGAM | UNCOMPACTOR | PRG | Curtcool, LPN | 23 | 18 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 26 08 64 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..&.d.. ********| 00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000020: 2A 2A 2A 2A 2A 2A 00 2C 08 6E 00 8F 00 4F 08 78 |******.,.n...O.x| 00000030: 00 8F 20 20 20 55 20 4E 20 43 20 4F 20 4D 20 50 |.. U N C O M P| 00000040: 20 41 20 43 20 54 20 4F 20 52 20 20 20 49 49 00 | A C T O R II.| 00000050: 55 08 82 00 8F 00 74 08 8C 00 8F 20 20 20 20 20 |U.....t.... | 00000060: 20 42 59 3A 20 52 4F 42 45 52 54 20 57 2E 20 42 | BY: ROBERT W. B| 00000070: 41 4B 45 52 00 99 08 96 00 8F 20 31 35 20 57 49 |AKER...... 15 WI| 00000080: 4E 44 53 4F 52 20 44 52 2E 2C 20 41 54 43 4F 2C |NDSOR DR., ATCO,| 00000090: 20 4E 4A 20 30 38 30 30 34 00 9F 08 A0 00 8F 00 | NJ 08004.......| 000000A0: C4 08 AA 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..... **********| 000000B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000000C0: 2A 2A 2A 2A 00 CA 08 B4 00 3A 00 D4 08 BE 00 89 |****.....:......| 000000D0: 20 33 36 30 00 DA 08 C8 00 3A 00 FB 08 D2 00 8F | 360.....:......| 000000E0: 20 3E 3E 3E 3E 3E 3E 20 53 55 42 52 4F 55 54 49 | >>>>>> SUBROUTI| 000000F0: 4E 45 53 20 3C 3C 3C 3C 3C 3C 3C 00 01 09 DC 00 |NES <<<<<<<.....| 00000100: 3A 00 11 09 E6 00 8D 20 32 34 30 3A 20 56 31 B2 |:...... 240: V1.| 00000110: 56 00 23 09 F0 00 A1 23 35 2C 43 24 3A 20 8D 20 |V.#....#5,C$: . | 00000120: 32 37 30 00 3F 09 FA 00 56 B2 30 3A 20 8B 20 43 |270.?...V.0: . C| 00000130: 24 B3 B1 22 22 20 A7 20 56 B2 C6 28 43 24 29 00 |$.."" . V..(C$).| 00000140: 45 09 04 01 8E 00 66 09 0E 01 84 31 35 2C 45 4E |E.....f....15,EN| 00000150: 2C 45 4D 24 2C 45 54 2C 45 53 3A 20 8B 20 45 4E |,EM$,ET,ES: . EN| 00000160: B2 30 20 A7 20 8E 00 7E 09 18 01 99 3A 20 99 20 |.0 . ..~....: . | 00000170: 22 44 49 53 4B 20 45 52 52 4F 52 22 3A 99 00 99 |"DISK ERROR":...| 00000180: 09 22 01 99 20 45 4E 3B 45 4D 24 3B 45 54 3B 45 |.".. EN;EM$;ET;E| 00000190: 53 3A 20 89 20 31 30 30 30 00 A9 09 2C 01 8B 20 |S: . 1000...,.. | 000001A0: 4C 24 B2 22 22 20 A7 20 8E 00 D9 09 36 01 4C 41 |L$."" . ....6.LA| 000001B0: B2 4C 41 AA C3 28 4C 24 29 AA 32 3A 20 4C 31 B2 |.LA..(L$).2: L1.| 000001C0: B5 28 4C 41 AD 32 35 36 29 3A 20 4C 32 B2 4C 41 |.(LA.256): L2.LA| 000001D0: AB 28 4C 31 AC 32 35 36 29 00 FA 09 40 01 98 36 |.(L1.256)...@..6| 000001E0: 2C C7 28 4C 32 29 3B C7 28 4C 31 29 3B 4C 24 3B |,.(L2);.(L1);L$;| 000001F0: 3A 20 4C 24 B2 22 22 3A 20 8E 00 00 0A 4A 01 3A |: L$."": ....J.:| 00000200: 00 21 0A 54 01 8F 20 2A 2A 2A 2A 2A 20 49 4E 49 |.!.T.. ***** INI| 00000210: 54 49 41 4C 49 5A 41 54 49 4F 4E 20 2A 2A 2A 2A |TIALIZATION ****| 00000220: 2A 00 27 0A 5E 01 3A 00 55 0A 68 01 99 22 93 20 |*.'.^.:.U.h..". | 00000230: 20 20 20 20 55 20 4E 20 43 20 4F 20 4D 20 50 20 | U N C O M P | 00000240: 41 20 43 20 54 20 4F 20 52 20 20 20 49 49 22 3A |A C T O R II":| 00000250: 20 99 3A 20 99 00 8F 0A 72 01 99 22 4D 49 4E 20 | .: ....r.."MIN | 00000260: 4C 49 4E 45 20 4C 45 4E 47 54 48 20 54 4F 20 54 |LINE LENGTH TO T| 00000270: 52 59 20 55 4E 43 4F 4D 50 41 43 54 49 4E 47 22 |RY UNCOMPACTING"| 00000280: 3A 20 85 22 20 20 20 31 9D 9D 9D 22 3B 58 4C 00 |: ." 1...";XL.| 00000290: AD 0A 7C 01 86 20 43 28 32 35 36 29 3A 20 A0 20 |..|.. C(256): . | 000002A0: 31 35 3A 20 9F 20 31 35 2C 38 2C 31 35 00 CD 0A |15: . 15,8,15...| 000002B0: 86 01 99 3A 20 99 22 49 4E 50 55 54 20 46 49 4C |...: ."INPUT FIL| 000002C0: 45 4E 41 4D 45 22 3A 20 85 20 46 31 24 00 F0 0A |ENAME": . F1$...| 000002D0: 90 01 9F 20 35 2C 38 2C 35 2C 22 30 3A 22 AA 46 |... 5,8,5,"0:".F| 000002E0: 31 24 AA 22 2C 50 2C 52 22 3A 20 8D 20 32 37 30 |1$.",P,R": . 270| 000002F0: 00 11 0B 9A 01 99 3A 20 99 22 4F 55 54 50 55 54 |......: ."OUTPUT| 00000300: 20 46 49 4C 45 4E 41 4D 45 22 3A 20 85 20 46 32 | FILENAME": . F2| 00000310: 24 00 34 0B A4 01 9F 20 36 2C 38 2C 36 2C 22 30 |$.4.... 6,8,6,"0| 00000320: 3A 22 AA 46 32 24 AA 22 2C 50 2C 57 22 3A 20 8D |:".F2$.",P,W": .| 00000330: 20 32 37 30 00 5B 0B AE 01 99 3A 99 22 4F 4B 2C | 270.[....:."OK,| 00000340: 20 57 4F 52 4B 49 4E 47 20 4F 4E 20 4C 49 4E 45 | WORKING ON LINE| 00000350: 23 20 2E 2E 2E 2E 2E 22 3A 20 99 00 73 0B B8 01 |# .....": ..s...| 00000360: 8D 20 32 33 30 3A 20 98 36 2C C7 28 56 31 29 3B |. 230: .6,.(V1);| 00000370: 43 24 3B 00 93 0B C2 01 4C 41 B2 56 31 AA 28 32 |C$;.....LA.V1.(2| 00000380: 35 36 AC 56 29 3A 20 4C 24 B2 22 22 3A 20 89 20 |56.V): L$."": . | 00000390: 36 30 30 00 99 0B CC 01 3A 00 B7 0B D6 01 8F 20 |600.....:...... | 000003A0: 2A 2A 2A 2A 2A 20 4F 55 54 50 55 54 20 54 48 49 |***** OUTPUT THI| 000003B0: 53 20 4C 49 4E 45 23 00 BD 0B E0 01 3A 00 D5 0B |S LINE#.....:...| 000003C0: EA 01 8D 20 33 30 30 3A 20 8B 20 4C 4B B2 30 20 |... 300: . LK.0 | 000003D0: A7 20 39 38 30 00 F5 0B F4 01 4C 4E B2 4E 4C 3A |. 980.....LN.NL:| 000003E0: 20 99 20 4C 4E 3B 22 20 20 20 20 20 20 22 3A 20 | . LN;" ": | 000003F0: 99 22 91 22 3B 00 08 0C FE 01 4C 24 B2 C7 28 4C |.".";.....L$..(L| 00000400: 4C 29 AA C7 28 4C 48 29 00 0E 0C 08 02 3A 00 33 |L)..(LH).....:.3| 00000410: 0C 12 02 8F 20 2A 2A 2A 2A 2A 20 52 45 41 44 20 |.... ***** READ | 00000420: 54 48 49 53 20 42 41 53 49 43 20 50 47 4D 20 4C |THIS BASIC PGM L| 00000430: 49 4E 45 00 39 0C 1C 02 3A 00 41 0C 26 02 58 B2 |INE.9...:.A.&.X.| 00000440: 31 00 69 0C 30 02 8D 20 32 34 30 3A 20 43 28 58 |1.i.0.. 240: C(X| 00000450: 29 B2 56 3A 20 8B 20 56 B1 30 20 A7 20 58 B2 58 |).V: . V.0 . X.X| 00000460: AA 31 3A 20 89 20 35 36 30 00 6F 0C 3A 02 3A 00 |.1: . 560.o.:.:.| 00000470: 91 0C 44 02 8F 20 2A 2A 2A 2A 2A 20 47 45 54 20 |..D.. ***** GET | 00000480: 4E 45 58 54 20 4C 49 4E 4B 20 26 20 4C 49 4E 45 |NEXT LINK & LINE| 00000490: 23 00 97 0C 4E 02 3A 00 C4 0C 58 02 8D 20 32 33 |#...N.:...X.. 23| 000004A0: 30 3A 20 4C 4B B2 56 AA 56 31 3A 20 8B 20 4C 4B |0: LK.V.V1: . LK| 000004B0: B2 30 20 A7 20 4E 4C B2 36 34 30 30 30 3A 20 89 |.0 . NL.64000: .| 000004C0: 20 36 32 30 00 EA 0C 62 02 8D 20 32 33 30 3A 20 | 620...b.. 230: | 000004D0: 4E 4C B2 56 31 AA 28 32 35 36 AC 56 29 3A 20 4C |NL.V1.(256.V): L| 000004E0: 4C B2 56 31 3A 20 4C 48 B2 56 00 FC 0C 6C 02 8B |L.V1: LH.V...l..| 000004F0: 20 4C 24 B2 22 22 20 A7 20 34 39 30 00 02 0D 76 | L$."" . 490...v| 00000500: 02 3A 00 28 0D 80 02 8F 20 2A 2A 2A 2A 2A 20 42 |.:.(.... ***** B| 00000510: 52 45 41 4B 20 55 50 20 4C 49 4E 45 20 49 46 20 |REAK UP LINE IF | 00000520: 50 4F 53 53 49 42 4C 45 00 2E 0D 8A 02 3A 00 49 |POSSIBLE.....:.I| 00000530: 0D 94 02 56 B2 58 3A 20 58 B2 31 3A 20 8B 20 56 |...V.X: X.1: . V| 00000540: B3 58 4C 20 A7 20 38 36 30 00 4F 0D 9E 02 3A 00 |.XL . 860.O...:.| 00000550: 67 0D A8 02 8F 20 53 4B 49 50 20 49 46 20 4E 4F |g.... SKIP IF NO| 00000560: 54 20 43 4F 4C 4F 4E 00 6D 0D B2 02 3A 00 82 0D |T COLON.m...:...| 00000570: BC 02 8B 20 43 28 58 29 B3 B1 35 38 20 A7 20 38 |... C(X)..58 . 8| 00000580: 32 30 00 A3 0D C6 02 8B 20 58 B2 31 20 A7 20 4C |20...... X.1 . L| 00000590: 24 B2 4C 24 AA C7 28 43 28 58 29 29 3A 20 89 20 |$.L$..(C(X)): . | 000005A0: 37 35 30 00 BF 0D D0 02 4C 4E B2 4C 4E AA 31 3A |750.....LN.LN.1:| 000005B0: 20 8B 20 4C 4E B1 B2 4E 4C 20 A7 20 38 36 30 00 | . LN..NL . 860.| 000005C0: DD 0D DA 02 48 B2 B5 28 4C 4E AD 32 35 36 29 3A |....H..(LN.256):| 000005D0: 20 4C B2 4C 4E AB 28 32 35 36 AC 48 29 00 01 0E | L.LN.(256.H)...| 000005E0: E4 02 4C 24 B2 4C 24 AA C7 28 30 29 3A 20 8D 20 |..L$.L$..(0): . | 000005F0: 33 30 30 3A 20 4C 24 B2 C7 28 4C 29 AA C7 28 48 |300: L$..(L)..(H| 00000600: 29 00 26 0E EE 02 58 B2 58 AA 31 3A 20 8B 20 43 |).&...X.X.1: . C| 00000610: 28 58 29 B2 33 32 20 B0 20 43 28 58 29 B2 35 38 |(X).32 . C(X).58| 00000620: 20 A7 20 37 35 30 00 30 0E F8 02 89 20 37 30 30 | . 750.0.... 700| 00000630: 00 36 0E 02 03 3A 00 55 0E 0C 03 8F 20 43 4F 50 |.6...:.U.... COP| 00000640: 59 20 52 45 53 54 20 4F 46 20 4C 49 4E 45 20 49 |Y REST OF LINE I| 00000650: 46 20 2D 2D 2D 00 77 0E 16 03 8F 20 20 47 4F 54 |F ---.w.... GOT| 00000660: 4F 2C 20 45 4E 44 2C 20 52 55 4E 2C 20 49 46 2C |O, END, RUN, IF,| 00000670: 20 52 45 54 55 52 4E 00 94 0E 20 03 8F 20 20 52 | RETURN... .. R| 00000680: 45 4D 2C 20 53 54 4F 50 2C 20 4C 49 53 54 2C 20 |EM, STOP, LIST, | 00000690: 43 4F 4E 54 00 9A 0E 2A 03 3A 00 BA 0E 34 03 8B |CONT...*.:...4..| 000006A0: 20 43 28 58 29 B3 31 32 38 20 B0 20 43 28 58 29 | C(X).128 . C(X)| 000006B0: B1 31 35 35 20 A7 20 39 31 30 00 DA 0E 3E 03 8B |.155 . 910...>..| 000006C0: 20 43 28 58 29 B2 31 32 38 20 B0 20 43 28 58 29 | C(X).128 . C(X)| 000006D0: B1 31 35 33 20 A7 20 38 36 30 00 FA 0E 48 03 8B |.153 . 860...H..| 000006E0: 20 43 28 58 29 B3 31 33 37 20 B0 20 43 28 58 29 | C(X).137 . C(X)| 000006F0: B1 31 34 34 20 A7 20 39 33 30 00 1A 0F 52 03 8B |.144 . 930...R..| 00000700: 20 43 28 58 29 B2 31 34 30 20 B0 20 43 28 58 29 | C(X).140 . C(X)| 00000710: B2 31 34 31 20 A7 20 39 33 30 00 45 0F 5C 03 4C |.141 . 930.E.\.L| 00000720: 24 B2 4C 24 AA C7 28 43 28 58 29 29 3A 20 8B 20 |$.L$..(C(X)): . | 00000730: 43 28 58 29 B1 30 20 A7 20 58 B2 58 AA 31 3A 20 |C(X).0 . X.X.1: | 00000740: 89 20 38 36 30 00 4F 0F 66 03 89 20 34 39 30 00 |. 860.O.f.. 490.| 00000750: 55 0F 70 03 3A 00 6D 0F 7A 03 8F 20 53 4B 49 50 |U.p.:.m.z.. SKIP| 00000760: 20 49 46 20 4E 4F 54 20 51 55 4F 54 45 00 73 0F | IF NOT QUOTE.s.| 00000770: 84 03 3A 00 88 0F 8E 03 8B 20 43 28 58 29 B3 B1 |..:...... C(X)..| 00000780: 33 34 20 A7 20 39 33 30 00 BD 0F 98 03 4C 24 B2 |34 . 930.....L$.| 00000790: 4C 24 AA C7 28 43 28 58 29 29 3A 20 58 B2 58 AA |L$..(C(X)): X.X.| 000007A0: 31 3A 20 8B 20 43 28 58 29 B3 B1 33 34 20 AF 20 |1: . C(X)..34 . | 000007B0: 43 28 58 29 B3 B1 30 20 A7 20 39 32 30 00 E8 0F |C(X)..0 . 920...| 000007C0: A2 03 4C 24 B2 4C 24 AA C7 28 43 28 58 29 29 3A |..L$.L$..(C(X)):| 000007D0: 20 8B 20 43 28 58 29 B1 30 20 A7 20 58 B2 58 AA | . C(X).0 . X.X.| 000007E0: 31 3A 20 89 20 37 30 30 00 F2 0F AC 03 89 20 34 |1: . 700...... 4| 000007F0: 39 30 00 F8 0F B6 03 3A 00 17 10 C0 03 8F 20 2A |90.....:...... *| 00000800: 2A 2A 20 45 4E 44 20 4F 46 20 42 41 53 49 43 20 |** END OF BASIC | 00000810: 50 52 4F 47 52 41 4D 00 1D 10 CA 03 3A 00 2F 10 |PROGRAM.....:./.| 00000820: D4 03 98 36 2C C7 28 30 29 3B C7 28 30 29 3B 00 |...6,.(0);.(0);.| 00000830: 45 10 DE 03 99 3A 20 99 3A 20 99 22 44 4F 4E 45 |E....: .: ."DONE| 00000840: 22 3A 99 3A 99 00 58 10 E8 03 A0 20 35 3A 20 A0 |":.:..X.... 5: .| 00000850: 20 36 3A 20 A0 20 31 35 00 00 00 | 6: . 15... |
..&.D.. ******************************.,
.N...O.X.. U N C O M P A C T O R II.
U.....T.... BY: ROBERT W. BAKER....
.. 15 WINDSOR DR., ATCO, NJ 08004... ...
D.... ******************************.J..
.:.T.... 360.Z.H.:...R.. >>>>>> SUBROUTI
NES <<<<<<<.....:...... 240: V1.V.#....#
5,C$: . 270.?...V.0: . C$.."" . V.F(C$).
E.....F....15,EN,EM$,ET,ES: . EN.0 . ..~
....: . "DISK ERROR":....".. EN;EM$;ET;E
S: . 1000...,.. L$."" . ..Y.6.LA.LA.C(L$
).2: L1..(LA.256): L2.LA.(L1.256)...@..6
,G(L2);G(L1);L$;: L$."": ....J.:.!.T.. *
**** INITIALIZATION *****.'.^.:.U.H..".
U N C O M P A C T O R II": .: ....
R.."MIN LINE LENGTH TO TRY UNCOMPACTING"
: ." 1...";XL...|.. C(256): 15: . 15
,8,15.M....: ."INPUT FILENAME": . F1$...
... 5,8,5,"0:".F1$.",P,R": . 270......:
."OUTPUT FILENAME": . F2$.4.... 6,8,6,"0
:".F2$.",P,W": . 270.[....:."OK, WORKING
ON LINE# .....": ..S.... 230: .6,G(V1);
C$;...B.LA.V1.(256.V): L$."": . 600...L.
:...V.. ***** OUTPUT THIS LINE#.....:.U.
... 300: . LK.0 . 980.....LN.NL: . LN;"
": .".";.....L$.G(LL).G(LH).....:.3
.... ***** READ THIS BASIC PGM LINE.9...
:.A.&.X.1.I.0.. 240: C(X).V: . V.0 . X.X
.1: . 560.O.:.:...D.. ***** GET NEXT LIN
K & LINE#...N.:.D.X.. 230: LK.V.V1: . LK
.0 . NL.64000: . 620...B.. 230: NL.V1.(2
56.V): LL.V1: LH.V...L.. L$."" . 490...V
.:.(.... ***** BREAK UP LINE IF POSSIBLE
.....:.I...V.X: X.1: . V.XL . 860.O...:.
G.... SKIP IF NOT COLON.M...:...... C(X)
..58 . 820...F.. X.1 . L$.L$.G(C(X)): .
750...P.LN.LN.1: . LN..NL . 860...Z.H..(
LN.256): L.LN.(256.H).....L$.L$.G(0): .
300: L$.G(L).G(H).&...X.X.1: . C(X).32 .
C(X).58 . 750.0.... 700.6...:.U.... COP
Y REST OF LINE IF ---.W.... GOTO, END,
RUN, IF, RETURN... .. REM, STOP, LIST,
CONT...*.:...4.. C(X).128 . C(X).155 . 9
10.Z.>.. C(X).128 . C(X).153 . 860...H..
C(X).137 . C(X).144 . 930...R.. C(X).14
0 . C(X).141 . 930.E.\.L$.L$.G(C(X)): .
C(X).0 . X.X.1: . 860.O.F.. 490.U.P.:.M.
Z.. SKIP IF NOT QUOTE.S...:...... C(X)..
34 . 930.....L$.L$.G(C(X)): X.X.1: . C(X
)..34 . C(X)..0 . 920.....L$.L$.G(C(X)):
. C(X).0 . X.X.1: . 700...... 490.....:
...... *** END OF BASIC PROGRAM...J.:./.
T..6,G(0);G(0);.E....: .: ."DONE":.:..X.
.. 5: 6: 15...
> CLICK IMAGE PREVIEW FOR FULL MODAL