COMPACTOR

FILE INFORMATION

FILENAME(S): COMPACTOR

FILE TYPE(S): PRG

FILE SIZE: 3.1K

FIRST SEEN: 2025-10-20 14:31:13

APPEARS ON: 1 disk(s)

FILE HASH

8a70d3a7ccf74b28c5759a77e60647a37326c29653a93a1947b284fde58e7737

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
PB DOMAIN 0025UT	COMPACTOR	PRG	Treasure Chest - Klaus Der Suhler	32	1	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 25 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 00 40 08  69 00 8F 20 43 4F 4D 50  |*****.@.i.. COMP|
00000030: 41 43 54 53 20 42 41 53  49 43 20 50 52 47 27 53  |ACTS BASIC PRG'S|
00000040: 00 64 08 6E 00 8F 20 2A  2A 2A 2A 2A 2A 2A 2A 2A  |.d.n.. *********|
00000050: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000060: 2A 2A 2A 2A 00 6A 08 73  00 3A 00 70 08 78 00 3A  |****.j.s.:.p.x.:|
00000070: 00 76 08 7D 00 3A 00 7C  08 82 00 3A 00 82 08 87  |.v.}.:.|...:....|
00000080: 00 3A 00 88 08 B4 00 3A  00 A5 08 BE 00 86 20 54  |.:.....:...... T|
00000090: 4C 28 31 30 30 30 29 2C  43 28 32 35 36 29 3A 20  |L(1000),C(256): |
000000A0: 89 20 34 30 30 00 AB 08  C8 00 3A 00 D4 08 D2 00  |. 400.....:.....|
000000B0: 8F 20 2A 2A 2A 2A 2A 20  20 53 20 55 20 42 20 52  |. *****  S U B R|
000000C0: 20 4F 20 55 20 54 20 49  20 4E 20 45 20 53 20 20  | O U T I N E S  |
000000D0: 2A 2A 2A 2A 00 DA 08 DC  00 3A 00 EA 08 E6 00 8D  |****.....:......|
000000E0: 20 32 34 30 3A 20 56 31  B2 56 00 FC 08 F0 00 A1  | 240: V1.V......|
000000F0: 23 35 2C 43 24 3A 20 8D  20 32 37 30 00 18 09 FA  |#5,C$: . 270....|
00000100: 00 56 B2 30 3A 20 8B 20  43 24 B3 B1 22 22 20 A7  |.V.0: . C$.."" .|
00000110: 20 56 B2 C6 28 43 24 29  00 1E 09 04 01 8E 00 3F  | V..(C$).......?|
00000120: 09 0E 01 84 31 35 2C 45  4E 2C 45 4D 24 2C 45 54  |....15,EN,EM$,ET|
00000130: 2C 45 53 3A 20 8B 20 45  4E B2 30 20 A7 20 8E 00  |,ES: . EN.0 . ..|
00000140: 57 09 18 01 99 3A 20 99  22 44 49 53 4B 20 45 52  |W....: ."DISK ER|
00000150: 52 4F 52 22 3A 20 99 00  72 09 22 01 99 20 45 4E  |ROR": ..r.".. EN|
00000160: 3B 45 4D 24 3B 45 54 3B  45 53 3A 20 89 20 31 34  |;EM$;ET;ES: . 14|
00000170: 32 30 00 82 09 2C 01 8B  20 4C 24 B2 22 22 20 A7  |20...,.. L$."" .|
00000180: 20 8E 00 B2 09 36 01 4C  41 B2 4C 41 AA C3 28 4C  | ....6.LA.LA..(L|
00000190: 24 29 AA 33 3A 20 41 31  B2 B5 28 4C 41 AD 32 35  |$).3: A1..(LA.25|
000001A0: 36 29 3A 20 41 32 B2 4C  41 AB 28 41 31 AC 32 35  |6): A2.LA.(A1.25|
000001B0: 36 29 00 D8 09 40 01 98  36 2C C7 28 41 32 29 3B  |6)...@..6,.(A2);|
000001C0: C7 28 41 31 29 3B 4C 24  3B C7 28 30 29 3B 3A 20  |.(A1);L$;.(0);: |
000001D0: 4C 24 B2 22 22 3A 20 8E  00 03 0A 4A 01 50 B2 31  |L$."": ....J.P.1|
000001E0: 3A 20 8D 20 32 33 30 3A  20 4C 4E B2 56 31 AA 28  |: . 230: LN.V1.(|
000001F0: 32 35 36 AC 56 29 3A 20  4C 31 B2 56 31 3A 20 4C  |256.V): L1.V1: L|
00000200: 32 B2 56 00 1C 0A 54 01  99 20 4C 4E 3B 22 20 20  |2.V...T.. LN;"  |
00000210: 20 20 20 20 22 3A 20 99  22 91 22 3B 00 44 0A 5E  |    ": .".";.D.^|
00000220: 01 8D 20 32 34 30 3A 20  43 28 50 29 B2 56 3A 20  |.. 240: C(P).V: |
00000230: 8B 20 56 B1 30 20 A7 20  50 B2 50 AA 31 3A 20 89  |. V.0 . P.P.1: .|
00000240: 20 33 35 30 00 5A 0A 68  01 46 B2 30 3A 20 50 4C  | 350.Z.h.F.0: PL|
00000250: B2 50 3A 20 50 B2 31 3A  20 8E 00 60 0A 72 01 3A  |.P: P.1: ..`.r.:|
00000260: 00 7B 0A 7C 01 8F 20 2A  2A 2A 20 52 45 41 44 59  |.{.|.. *** READY|
00000270: 20 44 49 53 4B 20 46 49  4C 45 53 00 81 0A 86 01  | DISK FILES.....|
00000280: 3A 00 B7 0A 90 01 99 22  93 11 12 1D 1D 1D 1D 1D  |:......"........|
00000290: 20 20 20 43 20 4F 20 4D  20 50 20 52 20 45 20 53  |   C O M P R E S|
000002A0: 20 53 20 4F 20 52 20 20  20 49 49 20 20 20 1D 1D  | S O R   II   ..|
000002B0: 1D 1D 1D 92 22 3A 99 00  E4 0A 9A 01 99 3A 99 22  |....":.......:."|
000002C0: 20 20 20 45 4E 54 45 52  20 4D 41 58 20 4C 49 4E  |   ENTER MAX LIN|
000002D0: 45 20 4C 45 4E 47 54 48  20 54 4F 20 43 52 45 41  |E LENGTH TO CREA|
000002E0: 54 45 3A 22 00 24 0B A4  01 85 22 20 20 20 32 35  |TE:".$...."   25|
000002F0: 35 20 43 48 41 52 53 20  4D 41 58 9D 9D 9D 9D 9D  |5 CHARS MAX.....|
00000300: 9D 9D 9D 9D 9D 9D 9D 9D  11 11 22 3B 4D 4C 3A 8B  |..........";ML:.|
00000310: 20 4D 4C B3 31 20 B0 20  4D 4C B1 32 35 35 20 A7  | ML.1 . ML.255 .|
00000320: 20 34 31 30 00 38 0B AE  01 A0 20 31 35 3A 20 9F  | 410.8.... 15: .|
00000330: 20 31 35 2C 38 2C 31 35  00 67 0B B8 01 99 3A 99  | 15,8,15.g....:.|
00000340: 22 20 20 20 45 4E 54 45  52 20 49 4E 50 55 54 20  |"   ENTER INPUT |
00000350: 46 49 4C 45 4E 41 4D 45  3A 22 3A 99 3A 99 A3 33  |FILENAME:":.:..3|
00000360: 29 3A 85 20 46 31 24 00  8A 0B C2 01 9F 20 35 2C  |):. F1$...... 5,|
00000370: 38 2C 35 2C 22 30 3A 22  AA 46 31 24 AA 22 2C 50  |8,5,"0:".F1$.",P|
00000380: 2C 52 22 3A 20 8D 20 32  37 30 00 BA 0B CC 01 99  |,R": . 270......|
00000390: 3A 99 22 20 20 20 45 4E  54 45 52 20 4F 55 54 50  |:."   ENTER OUTP|
000003A0: 55 54 20 46 49 4C 45 4E  41 4D 45 3A 22 3A 99 3A  |UT FILENAME:":.:|
000003B0: 99 A3 33 29 3A 85 20 46  32 24 00 DD 0B D6 01 9F  |..3):. F2$......|
000003C0: 20 36 2C 38 2C 36 2C 22  30 3A 22 AA 46 32 24 AA  | 6,8,6,"0:".F2$.|
000003D0: 22 2C 50 2C 57 22 3A 20  8D 20 32 37 30 00 FF 0B  |",P,W": . 270...|
000003E0: E0 01 99 3A 20 99 22 20  20 20 4F 4B 2C 20 53 43  |...: ."   OK, SC|
000003F0: 41 4E 4E 49 4E 47 20 50  52 4F 47 52 41 4D 22 00  |ANNING PROGRAM".|
00000400: 22 0C EA 01 99 22 20 20  20 46 4F 52 20 54 41 52  |"...."   FOR TAR|
00000410: 47 45 54 20 4C 49 4E 45  53 20 20 20 20 20 22 3A  |GET LINES     ":|
00000420: 20 99 00 28 0C F4 01 3A  00 4E 0C FE 01 8F 20 2A  | ..(...:.N.... *|
00000430: 2A 2A 20 52 45 41 44 20  4C 4F 41 44 20 41 44 52  |** READ LOAD ADR|
00000440: 2C 20 4C 49 4E 4B 20 26  20 4C 49 4E 45 23 00 54  |, LINK & LINE#.T|
00000450: 0C 08 02 3A 00 5E 0C 12  02 8D 20 32 33 30 00 78  |...:.^.... 230.x|
00000460: 0C 1C 02 8D 20 32 33 30  3A 20 8B 20 56 AA 56 31  |.... 230: . V.V1|
00000470: B2 30 20 A7 20 38 36 30  00 91 0C 26 02 8D 20 32  |.0 . 860...&.. 2|
00000480: 33 30 3A 20 4C 4E B2 56  31 AA 28 32 35 36 AC 56  |30: LN.V1.(256.V|
00000490: 29 00 97 0C 30 02 3A 00  D6 0C 3A 02 8F 20 2A 2A  |)...0.:...:.. **|
000004A0: 2A 20 20 53 43 41 4E 20  42 41 53 49 43 20 4C 49  |*  SCAN BASIC LI|
000004B0: 4E 45 53 20 46 4F 52 20  47 4F 54 4F 2C 20 47 4F  |NES FOR GOTO, GO|
000004C0: 53 55 42 2C 20 52 45 4E  20 26 20 54 48 45 4E 20  |SUB, REN & THEN |
000004D0: 54 4F 4B 45 4E 53 00 DC  0C 44 02 3A 00 E6 0C 4E  |TOKENS...D.:...N|
000004E0: 02 8D 20 32 34 30 00 F6  0C 58 02 8B 20 56 B2 30  |.. 240...X.. V.0|
000004F0: 20 A7 20 35 34 30 00 18  0D 62 02 8B 20 56 B2 31  | . 540...b.. V.1|
00000500: 33 37 20 B0 20 56 B2 31  34 31 20 B0 20 56 B2 31  |37 . V.141 . V.1|
00000510: 33 38 20 A7 20 36 36 30  00 2B 0D 6C 02 8B 20 56  |38 . 660.+.l.. V|
00000520: B3 B1 31 36 37 20 A7 20  35 39 30 00 31 0D 76 02  |..167 . 590.1.v.|
00000530: 3A 00 4C 0D 80 02 8F 20  2A 2A 2A 20 47 45 54 20  |:.L.... *** GET |
00000540: 54 41 52 47 45 54 20 4C  49 4E 45 23 00 52 0D 8A  |TARGET LINE#.R..|
00000550: 02 3A 00 5B 0D 94 02 4C  54 B2 30 00 73 0D 9E 02  |.:.[...LT.0.s...|
00000560: 8D 20 32 34 30 3A 20 8B  20 56 B2 33 32 20 A7 20  |. 240: . V.32 . |
00000570: 36 37 30 00 8B 0D A8 02  8B 20 56 B3 34 38 20 B0  |670...... V.48 .|
00000580: 20 56 B1 35 37 20 A7 20  37 33 30 00 AE 0D B2 02  | V.57 . 730.....|
00000590: 4C 54 B2 28 31 30 AC 4C  54 29 AA C5 28 43 24 29  |LT.(10.LT)..(C$)|
000005A0: 3A 20 8D 20 32 34 30 3A  20 89 20 36 38 30 00 B4  |: . 240: . 680..|
000005B0: 0D BC 02 3A 00 D7 0D C6  02 8F 20 2A 2A 2A 20 43  |...:...... *** C|
000005C0: 48 45 43 4B 20 49 46 20  41 4C 4C 20 52 45 41 44  |HECK IF ALL READ|
000005D0: 59 20 46 4F 55 4E 44 00  DD 0D D0 02 3A 00 FD 0D  |Y FOUND.....:...|
000005E0: DA 02 81 20 58 B2 30 20  A4 20 4E 3A 20 8B 20 54  |... X.0 . N: . T|
000005F0: 4C 28 58 29 B2 4C 54 20  A7 20 38 30 30 00 05 0E  |L(X).LT . 800...|
00000600: E4 02 82 20 58 00 3F 0E  EE 02 54 4C 28 4E 29 B2  |... X.?...TL(N).|
00000610: 4C 54 3A 20 4E B2 4E AA  31 3A 20 99 20 4C 54 3B  |LT: N.N.1: . LT;|
00000620: 22 20 20 20 20 20 20 22  3A 20 99 22 91 22 3B 3A  |"      ": .".";:|
00000630: 20 8B 20 4E B3 31 30 30  30 20 A7 20 38 30 30 00  | . N.1000 . 800.|
00000640: 6B 0E F8 02 99 3A 99 3A  99 22 20 20 20 54 4F 4F  |k....:.:."   TOO|
00000650: 20 4D 41 4E 59 20 54 41  52 47 45 54 20 4C 49 4E  | MANY TARGET LIN|
00000660: 45 53 21 22 3A 89 20 31  34 32 30 00 71 0E 02 03  |ES!":. 1420.q...|
00000670: 3A 00 97 0E 0C 03 8F 20  2A 2A 2A 20 43 48 45 43  |:...... *** CHEC|
00000680: 4B 20 46 4F 52 20 27 4F  4E 2E 2E 2E 47 4F 54 4F  |K FOR 'ON...GOTO|
00000690: 2F 47 4F 53 55 42 27 00  9D 0E 16 03 3A 00 AE 0E  |/GOSUB'.....:...|
000006A0: 20 03 8B 20 56 B2 34 34  20 A7 20 36 36 30 00 C0  | .. V.44 . 660..|
000006B0: 0E 2A 03 8B 20 56 B3 B1  33 32 20 A7 20 36 30 30  |.*.. V..32 . 600|
000006C0: 00 D1 0E 34 03 8D 20 32  34 30 3A 20 89 20 38 30  |...4.. 240: . 80|
000006D0: 30 00 D7 0E 3E 03 3A 00  F3 0E 48 03 8F 20 2A 2A  |0...>.:...H.. **|
000006E0: 2A 20 53 4F 52 54 20 54  41 52 47 45 54 20 4C 49  |* SORT TARGET LI|
000006F0: 4E 45 53 00 F9 0E 52 03  3A 00 09 0F 5C 03 8B 20  |NES...R.:...\.. |
00000700: 4E B3 32 20 A7 20 39 33  30 00 26 0F 66 03 81 20  |N.2 . 930.&.f.. |
00000710: 58 B2 30 20 A4 20 4E AB  31 3A 20 81 20 59 B2 30  |X.0 . N.1: . Y.0|
00000720: 20 A4 20 4E AB 32 00 58  0F 70 03 8B 20 54 4C 28  | . N.2.X.p.. TL(|
00000730: 58 29 B3 54 4C 28 59 29  20 A7 20 56 B2 54 4C 28  |X).TL(Y) . V.TL(|
00000740: 59 29 3A 20 54 4C 28 59  29 B2 54 4C 28 58 29 3A  |Y): TL(Y).TL(X):|
00000750: 20 54 4C 28 58 29 B2 56  00 62 0F 7A 03 82 20 59  | TL(X).V.b.z.. Y|
00000760: 2C 58 00 68 0F 84 03 3A  00 88 0F 8E 03 8F 20 2A  |,X.h...:...... *|
00000770: 2A 2A 20 47 45 54 20 52  45 41 44 59 20 46 4F 52  |** GET READY FOR|
00000780: 20 43 4F 4D 50 41 43 54  00 8E 0F 98 03 3A 00 B5  | COMPACT.....:..|
00000790: 0F A2 03 99 3A 99 3A 99  22 20 20 20 43 4F 4D 50  |....:.:."   COMP|
000007A0: 52 45 53 53 49 4E 47 20  4C 49 4E 45 53 20 2E 2E  |RESSING LINES ..|
000007B0: 2E 2E 22 3A 99 00 DD 0F  AC 03 A0 20 35 3A 20 9F  |..":....... 5: .|
000007C0: 20 35 2C 38 2C 35 2C 22  30 3A 22 AA 46 31 24 AA  | 5,8,5,"0:".F1$.|
000007D0: 22 2C 50 2C 52 22 3A 20  8D 20 32 37 30 00 0C 10  |",P,R": . 270...|
000007E0: B6 03 8D 20 32 33 30 3A  20 98 36 2C C7 28 56 31  |... 230: .6,.(V1|
000007F0: 29 3B C7 28 56 29 3B 3A  4C 41 B2 56 31 AA 28 32  |);.(V);:LA.V1.(2|
00000800: 35 36 AC 56 29 3A 20 4C  24 B2 22 22 00 12 10 C0  |56.V): L$.""....|
00000810: 03 3A 00 2E 10 CA 03 8F  20 2A 2A 2A 20 52 45 41  |.:...... *** REA|
00000820: 44 20 50 52 4F 47 52 41  4D 20 4C 49 4E 45 00 34  |D PROGRAM LINE.4|
00000830: 10 D4 03 3A 00 4F 10 DE  03 8D 20 32 33 30 3A 20  |...:.O.... 230: |
00000840: 8B 20 56 AA 56 31 B2 30  20 A7 20 31 34 30 30 00  |. V.V1.0 . 1400.|
00000850: 59 10 E8 03 8D 20 33 33  30 00 81 10 F2 03 56 B2  |Y.... 330.....V.|
00000860: 43 28 50 29 3A 20 50 B2  50 AA 31 3A 20 8B 20 56  |C(P): P.P.1: . V|
00000870: B2 33 32 20 B0 20 56 B2  35 38 20 A7 20 31 30 31  |.32 . V.58 . 101|
00000880: 30 00 AC 10 FC 03 4C 24  B2 C7 28 4C 31 29 AA C7  |0.....L$..(L1)..|
00000890: 28 4C 32 29 3A 20 8B 20  56 B3 B1 30 20 AF 20 56  |(L2): . V..0 . V|
000008A0: B3 B1 31 34 33 20 A7 20  31 31 31 30 00 CC 10 06  |..143 . 1110....|
000008B0: 04 81 20 58 B2 30 20 A4  20 4E 3A 20 8B 20 54 4C  |.. X.0 . N: . TL|
000008C0: 28 58 29 B3 4C 4E 20 A7  20 82 20 58 00 E2 10 10  |(X).LN . . X....|
000008D0: 04 8B 20 54 4C 28 58 29  B3 B1 4C 4E 20 A7 20 39  |.. TL(X)..LN . 9|
000008E0: 39 30 00 F8 10 1A 04 4C  24 B2 4C 24 AA 22 3A 22  |90.....L$.L$.":"|
000008F0: 3A 20 89 20 31 33 31 30  00 FE 10 24 04 3A 00 2C  |: . 1310...$.:.,|
00000900: 11 2E 04 8F 20 2A 2A 2A  2A 20 20 53 43 41 4E 20  |.... ****  SCAN |
00000910: 42 41 53 49 43 20 4C 49  4E 45 20 26 20 43 4F 4D  |BASIC LINE & COM|
00000920: 50 41 43 54 20 50 52 4F  47 52 41 4D 00 32 11 38  |PACT PROGRAM.2.8|
00000930: 04 3A 00 41 11 42 04 4C  24 B2 4C 24 AA C7 28 56  |.:.A.B.L$.L$..(V|
00000940: 29 00 53 11 4C 04 56 B2  43 28 50 29 3A 20 50 B2  |).S.L.V.C(P): P.|
00000950: 50 AA 31 00 65 11 56 04  8B 20 56 B2 33 32 20 A7  |P.1.e.V.. V.32 .|
00000960: 20 31 31 30 30 00 77 11  60 04 8B 20 56 B2 35 38  | 1100.w.`.. V.58|
00000970: 20 A7 20 31 32 36 30 00  A9 11 6A 04 8B 20 56 B2  | . 1260...j.. V.|
00000980: 31 33 37 20 B0 20 56 B2  31 33 38 20 B0 20 56 B2  |137 . V.138 . V.|
00000990: 31 33 39 20 B0 20 56 B2  31 36 37 20 A7 20 46 B2  |139 . V.167 . F.|
000009A0: 31 3A 20 89 20 31 30 39  30 00 C2 11 74 04 8B 20  |1: . 1090...t.. |
000009B0: 56 B2 30 20 B0 20 56 B2  31 34 33 20 A7 20 31 33  |V.0 . V.143 . 13|
000009C0: 31 30 00 C8 11 7E 04 3A  00 F5 11 88 04 8F 20 2A  |10...~.:...... *|
000009D0: 2A 2A 20 51 55 4F 54 45  20 2D 20 43 4F 50 59 20  |** QUOTE - COPY |
000009E0: 54 49 4C 4C 20 4E 45 58  54 20 4F 52 20 4C 49 4E  |TILL NEXT OR LIN|
000009F0: 45 20 45 4E 44 00 FB 11  92 04 3A 00 0E 12 9C 04  |E END.....:.....|
00000A00: 8B 20 56 B3 B1 33 34 20  A7 20 31 30 39 30 00 3B  |. V..34 . 1090.;|
00000A10: 12 A6 04 4C 24 B2 4C 24  AA C7 28 56 29 3A 20 56  |...L$.L$..(V): V|
00000A20: B2 43 28 50 29 3A 20 50  B2 50 AA 31 3A 20 8B 20  |.C(P): P.P.1: . |
00000A30: 56 B2 33 34 20 A7 20 31  30 39 30 00 4C 12 B0 04  |V.34 . 1090.L...|
00000A40: 8B 20 56 B1 30 20 A7 20  31 31 39 30 00 65 12 BA  |. V.0 . 1190.e..|
00000A50: 04 8B 20 46 B2 30 20 20  A7 20 4C 24 B2 4C 24 AA  |.. F.0  . L$.L$.|
00000A60: C7 28 33 34 29 00 70 12  C4 04 89 20 31 33 31 30  |.(34).p.... 1310|
00000A70: 00 76 12 CE 04 3A 00 A9  12 D8 04 8F 20 2A 2A 2A  |.v...:...... ***|
00000A80: 20 49 46 20 43 4F 4C 4F  4E 20 2D 20 43 48 4B 20  | IF COLON - CHK |
00000A90: 4E 45 58 54 20 43 48 41  52 2C 20 45 4C 53 45 20  |NEXT CHAR, ELSE |
00000AA0: 43 4F 50 59 20 43 48 41  52 00 AF 12 E2 04 3A 00  |COPY CHAR.....:.|
00000AB0: D7 12 EC 04 56 B2 43 28  50 29 3A 20 50 B2 50 AA  |....V.C(P): P.P.|
00000AC0: 31 3A 20 8B 20 56 B2 33  32 20 B0 20 56 B2 35 38  |1: . V.32 . V.58|
00000AD0: 20 A7 20 31 32 36 30 00  FF 12 F6 04 8B 20 56 B3  | . 1260...... V.|
00000AE0: B1 30 20 AF 20 56 B3 B1  31 34 33 20 A7 20 4C 24  |.0 . V..143 . L$|
00000AF0: B2 4C 24 AA 22 3A 22 3A  20 89 20 31 31 31 30 00  |.L$.":": . 1110.|
00000B00: 05 13 00 05 3A 00 3A 13  0A 05 8F 20 2A 2A 2A 20  |....:.:.... *** |
00000B10: 45 4E 44 20 4F 46 20 4C  49 4E 45 20 2D 20 43 41  |END OF LINE - CA|
00000B20: 4E 20 57 45 20 43 4F 4D  50 41 43 54 20 54 48 45  |N WE COMPACT THE|
00000B30: 53 45 20 4C 49 4E 45 53  20 3F 00 40 13 14 05 3A  |SE LINES ?.@...:|
00000B40: 00 59 13 1E 05 8B 20 46  B2 31 20 A7 20 8D 20 33  |.Y.... F.1 . . 3|
00000B50: 30 30 3A 20 89 20 39 39  30 00 74 13 28 05 8D 20  |00: . 990.t.(.. |
00000B60: 32 33 30 3A 20 8B 20 56  AA 56 31 B2 30 20 A7 20  |230: . V.V1.0 . |
00000B70: 31 34 30 30 00 A1 13 32  05 8D 20 33 33 30 3A 20  |1400...2.. 330: |
00000B80: 8B 20 28 C3 28 4C 24 29  AA 50 4C AA 34 29 B1 4D  |. (.(L$).PL.4).M|
00000B90: 4C 20 A7 20 8D 20 33 30  30 3A 20 89 20 31 30 31  |L . . 300: . 101|
00000BA0: 30 00 C1 13 3C 05 81 20  58 B2 30 20 A4 20 4E 3A  |0...<.. X.0 . N:|
00000BB0: 20 8B 20 54 4C 28 58 29  B3 4C 4E 20 A7 20 82 20  | . TL(X).LN . . |
00000BC0: 58 00 D8 13 46 05 8B 20  54 4C 28 58 29 B3 B1 4C  |X...F.. TL(X)..L|
00000BD0: 4E 20 A7 20 31 32 36 30  00 EA 13 50 05 8D 20 33  |N . 1260...P.. 3|
00000BE0: 30 30 3A 20 89 20 31 30  31 30 00 F0 13 5A 05 3A  |00: . 1010...Z.:|
00000BF0: 00 20 14 64 05 8F 20 2A  2A 2A 20 45 4E 44 20 4F  |. .d.. *** END O|
00000C00: 46 20 43 4F 4D 50 41 43  54 20 2D 20 57 52 49 54  |F COMPACT - WRIT|
00000C10: 45 20 45 4E 44 20 4F 46  20 50 52 4F 47 52 41 4D  |E END OF PROGRAM|
00000C20: 00 26 14 6E 05 3A 00 3F  14 78 05 8D 20 33 30 30  |.&.n.:.?.x.. 300|
00000C30: 3A 20 98 36 2C C7 28 30  29 3B C7 28 30 29 3B 00  |: .6,.(0);.(0);.|
00000C40: 54 14 82 05 99 3A 99 3A  99 22 20 20 20 44 4F 4E  |T....:.:."   DON|
00000C50: 45 22 3A 99 00 67 14 8C  05 A0 20 35 3A 20 A0 20  |E":..g.... 5: . |
00000C60: 36 3A 20 A0 20 31 35 00  00 00                    |6: . 15...      |

..%.D.. *****************************.@.
I.. COMPACTS BASIC PRG'S.D.N.. *********
********************.J.S.:.P.X.:.V.}.:.|
...:.....:.....:...... TL(1000),C(256): 
. 400...H.:.T.R.. *****  S U B R O U T I
 N E S  ****.Z...:...... 240: V1.V......
#5,C$: . 270.....V.0: . C$.."" . V.F(C$)
.......?....15,EN,EM$,ET,ES: . EN.0 . ..
W....: ."DISK ERROR": ..R.".. EN;EM$;ET;
ES: . 1420...,.. L$."" . ....6.LA.LA.C(L
$).3: A1..(LA.256): A2.LA.(A1.256).X.@..
6,G(A2);G(A1);L$;G(0);: L$."": ....J.P.1
: . 230: LN.V1.(256.V): L1.V1: L2.V...T.
. LN;"      ": .".";.D.^.. 240: C(P).V: 
. V.0 . P.P.1: . 350.Z.H.F.0: PL.P: P.1:
 ..`.R.:.{.|.. *** READY DISK FILES.....
:......"........   C O M P R E S S O R  
 II   ......":.......:."   ENTER MAX LIN
E LENGTH TO CREATE:".$...."   255 CHARS 
MAX...............";ML:. ML.1 . ML.255 .
 410.8...  15: . 15,8,15.G....:."   ENTE
R INPUT FILENAME:":.:..3):. F1$...B.. 5,
8,5,"0:".F1$.",P,R": . 270...L..:."   EN
TER OUTPUT FILENAME:":.:..3):. F2$...V..
 6,8,6,"0:".F2$.",P,W": . 270......: ." 
  OK, SCANNING PROGRAM"."...."   FOR TAR
GET LINES     ": ..(...:.N.... *** READ 
LOAD ADR, LINK & LINE#.T...:.^.... 230.X
.... 230: . V.V1.0 . 860...&.. 230: LN.V
1.(256.V)...0.:.V.:.. ***  SCAN BASIC LI
NES FOR GOTO, GOSUB, REN & THEN TOKENS..
.D.:...N.. 240...X.. V.0 . 540...B.. V.1
37 . V.141 . V.138 . 660.+.L.. V..167 . 
590.1.V.:.L.... *** GET TARGET LINE#.R..
.:.[...LT.0.S.... 240: . V.32 . 670.....
. V.48 . V.57 . 730.....LT.(10.LT).E(C$)
: . 240: . 680.....:.W.F.. *** CHECK IF 
ALL READY FOUND...P.:...Z.. X.0 . N: . T
L(X).LT . 800...... X.?...TL(N).LT: N.N.
1: . LT;"      ": .".";: . N.1000 . 800.
K....:.:."   TOO MANY TARGET LINES!":. 1
420.Q...:...... *** CHECK FOR 'ON...GOTO
/GOSUB'.....:... .. V.44 . 660...*.. V..
32 . 600.Q.4.. 240: . 800.W.>.:...H.. **
* SORT TARGET LINES...R.:...\.. N.2 . 93
0.&.F.. X.0 . N.1: . Y.0 . N.2.X.P.. TL(
X).TL(Y) . V.TL(Y): TL(Y).TL(X): TL(X).V
.B.Z.. Y,X.H...:...... *** GET READY FOR
 COMPACT.....:......:.:."   COMPRESSING 
LINES ....":......  5: . 5,8,5,"0:".F1$.
",P,R": . 270...... 230: .6,G(V1);G(V);:
LA.V1.(256.V): L$."".....:...J.. *** REA
D PROGRAM LINE.4.T.:.O.... 230: . V.V1.0
 . 1400.Y.... 330.....V.C(P): P.P.1: . V
.32 . V.58 . 1010.....L$.G(L1).G(L2): . 
V..0 . V..143 . 1110.L.... X.0 . N: . TL
(X).LN . . X...... TL(X)..LN . 990.....L
$.L$.":": . 1310...$.:.,.... ****  SCAN 
BASIC LINE & COMPACT PROGRAM.2.8.:.A.B.L
$.L$.G(V).S.L.V.C(P): P.P.1.E.V.. V.32 .
 1100.W.`.. V.58 . 1260...J.. V.137 . V.
138 . V.139 . V.167 . F.1: . 1090.B.T.. 
V.0 . V.143 . 1310.H.~.:...... *** QUOTE
 - COPY TILL NEXT OR LINE END.....:.....
. V..34 . 1090.;...L$.L$.G(V): V.C(P): P
.P.1: . V.34 . 1090.L.... V.0 . 1190.E..
.. F.0  . L$.L$.G(34).P.D.. 1310.V.N.:..
.X.. *** IF COLON - CHK NEXT CHAR, ELSE 
COPY CHAR.....:.W...V.C(P): P.P.1: . V.3
2 . V.58 . 1260...... V..0 . V..143 . L$
.L$.":": . 1110.....:.:.... *** END OF L
INE - CAN WE COMPACT THESE LINES ?.@...:
.Y.... F.1 . . 300: . 990.T.(.. 230: . V
.V1.0 . 1400...2.. 330: . (C(L$).PL.4).M
L . . 300: . 1010.A.<.. X.0 . N: . TL(X)
.LN . . X.X.F.. TL(X)..LN . 1260...P.. 3
00: . 1010...Z.:. .D.. *** END OF COMPAC
T - WRITE END OF PROGRAM.&.N.:.?.X.. 300
: .6,G(0);G(0);.T....:.:."   DONE":..G..
.  5:   6:   15...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL