UNCOMPACTOR
FILE INFORMATION
FILENAME(S): UNCOMPACTOR
FILE TYPE(S): PRG
FILE SIZE: 1.8K
FIRST SEEN: 2025-11-30 21:05:48
APPEARS ON: 1 disk(s)
FILE HASH
e197b443d1cbba6e0e4936624a713bc448f7a349b5c6cf1460dec2839a986ddf
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| VAN DOUWEN | UNCOMPACTOR | PRG | DuncanTwain | 32 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 18 04 1E 00 8F 20 20 20 20 20 55 4E 2D 43 |....... UN-C|
00000010: 4F 4D 50 41 43 54 4F 52 00 32 04 32 00 8F 20 20 |OMPACTOR.2.2.. |
00000020: 20 42 59 3A 52 4F 42 45 52 54 20 57 2E 42 41 4B | BY:ROBERT W.BAK|
00000030: 45 52 00 55 04 46 00 8F 20 31 35 20 57 49 4E 44 |ER.U.F.. 15 WIND|
00000040: 53 4F 52 20 44 52 2E 2C 41 54 43 4F 2C 4E 4A 20 |SOR DR.,ATCO,NJ |
00000050: 30 38 30 30 34 00 5B 04 64 00 3A 00 65 04 6E 00 |08004.[.d.:.e.n.|
00000060: 89 20 32 37 30 00 6B 04 78 00 3A 00 8E 04 82 00 |. 270.k.x.:.....|
00000070: 8F 3E 3E 3E 3E 3E 3E 3E 20 53 55 42 52 4F 55 54 |.>>>>>>> SUBROUT|
00000080: 49 4E 45 53 20 3C 3C 3C 3C 3C 3C 3C 3C 3C 00 94 |INES <<<<<<<<<..|
00000090: 04 8C 00 3A 00 A3 04 96 00 8D 20 31 36 30 3A 56 |...:...... 160:V|
000000A0: 31 B2 56 00 B4 04 A0 00 A1 23 35 2C 43 24 3A 8D |1.V......#5,C$:.|
000000B0: 20 31 39 30 00 C8 04 AA 00 8B 20 43 24 B2 22 22 | 190...... C$.""|
000000C0: 20 A7 20 56 B2 30 3A 8E 00 D6 04 B4 00 56 B2 C6 | . V.0:......V..|
000000D0: 28 43 24 29 3A 8E 00 EB 04 BE 00 84 31 35 2C 45 |(C$):.......15,E|
000000E0: 4E 2C 45 4D 24 2C 45 54 2C 45 53 00 FA 04 C8 00 |N,EM$,ET,ES.....|
000000F0: 8B 20 45 4E B2 30 20 A7 20 8E 00 10 05 D2 00 99 |. EN.0 . .......|
00000100: 22 93 12 44 49 53 4B 20 45 52 52 4F 52 22 3A 99 |"..DISK ERROR":.|
00000110: 00 22 05 DC 00 99 45 4E 3B 45 4D 24 3B 45 54 3B |."....EN;EM$;ET;|
00000120: 45 53 00 2D 05 E6 00 89 20 31 30 33 30 00 33 05 |ES.-.... 1030.3.|
00000130: F0 00 3A 00 56 05 FA 00 8F 20 2A 2A 2A 2A 2A 20 |..:.V.... ***** |
00000140: 49 4E 49 54 49 41 4C 41 4C 49 5A 41 54 49 4F 4E |INITIALALIZATION|
00000150: 20 2A 2A 2A 2A 2A 00 5C 05 04 01 3A 00 7B 05 0E | *****.\...:.{..|
00000160: 01 99 22 93 22 3B A6 31 30 29 3B 22 12 55 4E 2D |..".";.10);".UN-|
00000170: 43 4F 4D 50 41 43 54 4F 52 11 11 00 9D 05 18 01 |COMPACTOR.......|
00000180: 99 22 20 12 49 4E 50 55 54 92 20 46 49 4C 45 20 |." .INPUT. FILE |
00000190: 49 4E 20 12 44 52 49 56 45 20 23 30 11 00 C0 05 |IN .DRIVE #0....|
000001A0: 22 01 99 22 12 4F 55 54 50 55 54 92 20 46 49 4C |"..".OUTPUT. FIL|
000001B0: 45 20 49 4E 20 12 44 52 49 56 45 20 23 31 11 11 |E IN .DRIVE #1..|
000001C0: 00 DC 05 2C 01 85 22 12 49 4E 50 55 54 20 46 49 |...,..".INPUT FI|
000001D0: 4C 45 4E 41 4D 45 92 22 3B 46 4C 24 00 E9 05 36 |LENAME.";FL$...6|
000001E0: 01 86 20 43 28 32 35 36 29 00 F7 05 40 01 9F 20 |.. C(256)...@.. |
000001F0: 31 35 2C 38 2C 31 35 00 13 06 4A 01 9F 20 35 2C |15,8,15...J.. 5,|
00000200: 38 2C 35 2C 22 30 3A 22 AA 46 4C 24 AA 22 2C 50 |8,5,"0:".FL$.",P|
00000210: 2C 52 22 00 1D 06 54 01 8D 20 31 39 30 00 41 06 |,R"...T.. 190.A.|
00000220: 5E 01 99 3A 99 22 4F 4B 2C 20 57 4F 52 4B 49 4E |^..:."OK, WORKIN|
00000230: 47 20 4F 4E 20 4C 49 4E 45 23 20 2E 2E 2E 2E 2E |G ON LINE# .....|
00000240: 11 00 58 06 68 01 46 4F 24 B2 C8 28 46 4C 24 2C |..X.h.FO$..(FL$,|
00000250: 31 34 29 AA 22 2F 55 22 00 6A 06 72 01 98 31 35 |14)."/U".j.r..15|
00000260: 2C 22 53 31 3A 22 AA 46 4F 24 00 86 06 7C 01 9F |,"S1:".FO$...|..|
00000270: 20 36 2C 38 2C 36 2C 22 31 3A 22 AA 46 4F 24 AA | 6,8,6,"1:".FO$.|
00000280: 22 2C 50 2C 57 22 00 90 06 86 01 8D 20 31 39 30 |",P,W"...... 190|
00000290: 00 A7 06 90 01 8D 20 31 35 30 3A 98 36 2C C7 28 |...... 150:.6,.(|
000002A0: 56 31 29 3B 43 24 3B 00 B5 06 9A 01 46 B2 31 3A |V1);C$;.....F.1:|
000002B0: 89 20 35 38 30 00 BB 06 A4 01 3A 00 D9 06 AE 01 |. 580.....:.....|
000002C0: 8F 20 2A 2A 2A 2A 2A 20 4F 55 54 50 55 54 20 54 |. ***** OUTPUT T|
000002D0: 48 49 53 20 4C 49 4E 45 23 00 DF 06 B8 01 3A 00 |HIS LINE#.....:.|
000002E0: F7 06 C2 01 4C 4E B2 4E 4C 3A 8B 20 4C 4B B2 30 |....LN.NL:. LK.0|
000002F0: 20 A7 20 31 30 31 30 00 00 07 CC 01 99 4C 4E 2C | . 1010......LN,|
00000300: 00 12 07 D6 01 98 36 2C C7 28 31 29 3B C7 28 31 |......6,.(1);.(1|
00000310: 29 3B 00 26 07 E0 01 98 36 2C C7 28 4C 4C 29 3B |);.&....6,.(LL);|
00000320: C7 28 4C 48 29 3B 00 2C 07 EA 01 3A 00 51 07 F4 |.(LH);.,...:.Q..|
00000330: 01 8F 20 2A 2A 2A 2A 2A 20 52 45 41 44 20 54 48 |.. ***** READ TH|
00000340: 49 53 20 42 41 53 49 43 20 50 47 4D 20 4C 49 4E |IS BASIC PGM LIN|
00000350: 45 00 57 07 FE 01 3A 00 5F 07 08 02 58 B2 31 00 |E.W...:._...X.1.|
00000360: 70 07 12 02 8D 20 31 36 30 3A 43 28 58 29 B2 56 |p.... 160:C(X).V|
00000370: 00 88 07 1C 02 8B 20 56 B1 30 20 A7 20 58 B2 58 |...... V.0 . X.X|
00000380: AA 31 3A 89 20 35 33 30 00 8E 07 26 02 3A 00 B0 |.1:. 530...&.:..|
00000390: 07 30 02 8F 20 2A 2A 2A 2A 2A 20 47 45 54 20 4E |.0.. ***** GET N|
000003A0: 45 58 54 20 4C 49 4E 4B 20 26 20 4C 49 4E 45 23 |EXT LINK & LINE#|
000003B0: 00 B6 07 3A 02 3A 00 D5 07 44 02 8D 20 31 35 30 |...:.:...D.. 150|
000003C0: 3A 4C 4B B2 56 AA 56 31 3A 8B 20 4C 4B B2 30 20 |:LK.V.V1:. LK.0 |
000003D0: A7 20 36 30 30 00 F8 07 4E 02 8D 20 31 35 30 3A |. 600...N.. 150:|
000003E0: 4E 4C B2 56 31 AA 28 32 35 36 AC 56 29 3A 4C 4C |NL.V1.(256.V):LL|
000003F0: B2 56 31 3A 4C 48 B2 56 00 0C 08 58 02 8B 20 46 |.V1:LH.V...X.. F|
00000400: 20 A7 20 46 B2 30 3A 89 20 34 35 30 00 12 08 62 | . F.0:. 450...b|
00000410: 02 3A 00 38 08 6C 02 8F 20 2A 2A 2A 2A 2A 20 42 |.:.8.l.. ***** B|
00000420: 52 45 41 4B 20 55 50 20 4C 49 4E 45 20 49 46 20 |REAK UP LINE IF |
00000430: 50 4F 53 53 49 42 4C 45 00 3E 08 76 02 3A 00 46 |POSSIBLE.>.v.:.F|
00000440: 08 80 02 58 B2 31 00 4C 08 8A 02 3A 00 64 08 94 |...X.1.L...:.d..|
00000450: 02 8F 20 53 4B 49 50 20 49 46 20 4E 4F 54 20 43 |.. SKIP IF NOT C|
00000460: 4F 4C 4F 4E 00 6A 08 9E 02 3A 00 7F 08 A8 02 8B |OLON.j...:......|
00000470: 20 43 28 58 29 B3 B1 35 38 20 A7 20 38 31 30 00 | C(X)..58 . 810.|
00000480: 8F 08 B2 02 8B 20 58 B2 31 20 A7 20 39 35 30 00 |..... X.1 . 950.|
00000490: AA 08 BC 02 4C 4E B2 4C 4E AA 31 3A 8B 20 4C 4E |....LN.LN.1:. LN|
000004A0: B1 B2 4E 4C 20 A7 20 39 35 30 00 C1 08 C6 02 98 |..NL . 950......|
000004B0: 36 2C C7 28 30 29 3B C7 28 31 29 3B C7 28 31 29 |6,.(0);.(1);.(1)|
000004C0: 3B 00 DE 08 D0 02 48 B2 B5 28 4C 4E AD 32 35 36 |;.....H..(LN.256|
000004D0: 29 3A 4C B2 4C 4E AB 28 32 35 36 AC 48 29 00 F0 |):L.LN.(256.H)..|
000004E0: 08 DA 02 98 36 2C C7 28 4C 29 3B C7 28 48 29 3B |....6,.(L);.(H);|
000004F0: 00 14 09 E4 02 58 B2 58 AA 31 3A 8B 20 43 28 58 |.....X.X.1:. C(X|
00000500: 29 B2 33 32 20 B0 20 43 28 58 29 B2 35 38 20 A7 |).32 . C(X).58 .|
00000510: 20 37 34 30 00 1E 09 EE 02 89 20 36 38 30 00 24 | 740...... 680.$|
00000520: 09 F8 02 3A 00 43 09 02 03 8F 20 43 4F 50 59 20 |...:.C.... COPY |
00000530: 52 45 53 54 20 4F 46 20 4C 49 4E 45 20 49 46 20 |REST OF LINE IF |
00000540: 2D 2D 2D 00 64 09 0C 03 8F 20 47 4F 54 4F 2C 20 |---.d.... GOTO, |
00000550: 45 4E 44 2C 20 52 55 4E 2C 20 49 46 2C 20 52 45 |END, RUN, IF, RE|
00000560: 54 55 52 4E 00 80 09 16 03 8F 20 52 45 4D 2C 20 |TURN...... REM, |
00000570: 53 54 4F 50 2C 20 4C 49 53 54 2C 20 43 4F 4E 54 |STOP, LIST, CONT|
00000580: 00 86 09 20 03 3A 00 A6 09 2A 03 8B 20 43 28 58 |... .:...*.. C(X|
00000590: 29 B3 31 32 38 20 B0 20 43 28 58 29 B1 31 35 35 |).128 . C(X).155|
000005A0: 20 A7 20 39 31 30 00 C6 09 34 03 8B 20 43 28 58 | . 910...4.. C(X|
000005B0: 29 B2 31 32 38 20 B0 20 43 28 58 29 B1 31 35 33 |).128 . C(X).153|
000005C0: 20 A7 20 38 35 30 00 E6 09 3E 03 8B 20 43 28 58 | . 850...>.. C(X|
000005D0: 29 B3 31 33 37 20 B0 20 43 28 58 29 B1 31 34 34 |).137 . C(X).144|
000005E0: 20 A7 20 39 31 30 00 06 0A 48 03 8B 20 43 28 58 | . 910...H.. C(X|
000005F0: 29 B2 31 34 30 20 B0 20 43 28 58 29 B2 31 34 31 |).140 . C(X).141|
00000600: 20 A7 20 39 31 30 00 16 0A 52 03 98 36 2C C7 28 | . 910...R..6,.(|
00000610: 43 28 58 29 29 3B 00 31 0A 5C 03 8B 20 43 28 58 |C(X));.1.\.. C(X|
00000620: 29 B1 30 20 A7 20 58 B2 58 AA 31 3A 89 20 38 35 |).0 . X.X.1:. 85|
00000630: 30 00 3B 0A 66 03 89 20 34 35 30 00 41 0A 70 03 |0.;.f.. 450.A.p.|
00000640: 3A 00 59 0A 7A 03 8F 20 53 4B 49 50 20 49 46 20 |:.Y.z.. SKIP IF |
00000650: 4E 4F 54 20 51 55 4F 54 45 00 5F 0A 84 03 3A 00 |NOT QUOTE._...:.|
00000660: 74 0A 8E 03 8B 20 43 28 58 29 B3 B1 33 34 20 A7 |t.... C(X)..34 .|
00000670: 20 39 35 30 00 8A 0A 98 03 98 36 2C C7 28 43 28 | 950......6,.(C(|
00000680: 58 29 29 3B 3A 58 B2 58 AA 31 00 A7 0A A2 03 8B |X));:X.X.1......|
00000690: 20 43 28 58 29 B2 33 34 20 B0 20 43 28 58 29 B2 | C(X).34 . C(X).|
000006A0: 30 20 A7 20 39 35 30 00 B1 0A AC 03 89 20 39 32 |0 . 950...... 92|
000006B0: 30 00 C1 0A B6 03 98 36 2C C7 28 43 28 58 29 29 |0......6,.(C(X))|
000006C0: 3B 00 DC 0A C0 03 8B 20 43 28 58 29 B1 30 20 A7 |;...... C(X).0 .|
000006D0: 20 58 B2 58 AA 31 3A 89 20 36 38 30 00 E6 0A CA | X.X.1:. 680....|
000006E0: 03 89 20 34 35 30 00 EC 0A D4 03 3A 00 0B 0B DE |.. 450.....:....|
000006F0: 03 8F 20 2A 2A 2A 20 45 4E 44 20 4F 46 20 42 41 |.. *** END OF BA|
00000700: 53 49 43 20 50 52 4F 47 52 41 4D 00 11 0B E8 03 |SIC PROGRAM.....|
00000710: 3A 00 23 0B F2 03 98 36 2C C7 28 30 29 3B C7 28 |:.#....6,.(0);.(|
00000720: 30 29 3B 00 35 0B FC 03 99 22 93 12 44 4F 4E 45 |0);.5...."..DONE|
00000730: 22 3A 99 3A 99 00 46 0B 06 04 A0 20 35 3A A0 20 |":.:..F.... 5:. |
00000740: 36 3A A0 20 31 35 00 00 00 |6:. 15... |
....... UN-COMPACTOR.2.2.. BY:ROBE
RT W.BAKER.U.F.. 15 WINDSOR DR.,ATCO,NJ
08004.[.D.:.E.N.. 270.K.X.:......>>>>>>>
SUBROUTINES <<<<<<<<<.....:...... 160:V
1.V... ..#5,C$:. 190.H.... C$."" . V.0:.
.V...V.F(C$):.......15,EN,EM$,ET,ES...H.
. EN.0 . ....R.."..DISK ERROR":.."....EN
;EM$;ET;ES.-.... 1030.3...:.V.... *****
INITIALALIZATION *****.\...:.{....".";.1
0);".UN-COMPACTOR........" .INPUT. FILE
IN .DRIVE #0...."..".OUTPUT. FILE IN .DR
IVE #1.....,..".INPUT FILENAME.";FL$...6
.. C(256)...@.. 15,8,15...J.. 5,8,5,"0:"
.FL$.",P,R"...T.. 190.A.^..:."OK, WORKIN
G ON LINE# .......X.H.FO$.H(FL$,14)."/U"
.J.R..15,"S1:".FO$...|.. 6,8,6,"1:".FO$.
",P,W"...... 190...... 150:.6,G(V1);C$;.
....F.1:. 580.....:.Y.... ***** OUTPUT T
HIS LINE#.....:...B.LN.NL:. LK.0 . 1010.
..L..LN,...V..6,G(1);G(1);.&....6,G(LL);
G(LH);.,...:.Q.... ***** READ THIS BASIC
PGM LINE.W...:._...X.1.P.... 160:C(X).V
...... V.0 . X.X.1:. 530...&.:...0.. ***
** GET NEXT LINK & LINE#...:.:.U.D.. 150
:LK.V.V1:. LK.0 . 600...N.. 150:NL.V1.(2
56.V):LL.V1:LH.V...X.. F . F.0:. 450...B
.:.8.L.. ***** BREAK UP LINE IF POSSIBLE
.>.V.:.F...X.1.L...:.D.... SKIP IF NOT C
OLON.J...:..... C(X)..58 . 810...... X.
1 . 950.....LN.LN.1:. LN..NL . 950.A.F..
6,G(0);G(1);G(1);...P.H..(LN.256):L.LN.(
256.H)...Z..6,G(L);G(H);.....X.X.1:. C(X
).32 . C(X).58 . 740...... 680.$...:.C..
.. COPY REST OF LINE IF ---.D.... GOTO,
END, RUN, IF, RETURN...... REM, STOP, LI
ST, CONT... .:...*.. C(X).128 . C(X).155
. 910.F.4.. C(X).128 . C(X).153 . 850..
.>.. C(X).137 . C(X).144 . 910...H.. C(X
).140 . C(X).141 . 910...R..6,G(C(X));.1
.\.. C(X).0 . X.X.1:. 850.;.F.. 450.A.P.
:.Y.Z.. SKIP IF NOT QUOTE._...:.T.... C(
X)..34 . 950......6,G(C(X));:X.X.1......
C(X).34 . C(X).0 . 950...... 920.A....6
,G(C(X));...... C(X).0 . X.X.1:. 680...J
.. 450...T.:...... *** END OF BASIC PROG
RAM.....:.#....6,G(0);G(0);.5...."..DONE
":.:..F... 5: 6: 15...
> CLICK IMAGE PREVIEW FOR FULL MODAL