COMPACTOR
FILE INFORMATION
FILENAME(S): COMPACTOR
FILE TYPE(S): PRG
FILE SIZE: 3.1K
FIRST SEEN: 2025-11-30 20:18:41
APPEARS ON: 1 disk(s)
FILE HASH
c0b0962e371cee5781c60f0b9e147d3c7fc5a23bdc07217ff2a80dbab71167bb
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| AC V RKT J BASIC | COMPACTOR | PRG | Curtcool, Malcom | 8 | 0 | 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 2B 08 6E 00 8F 00 4C 08 78 00 |*****.+.n...L.x.| 00000030: 8F 20 20 20 20 20 43 20 4F 20 4D 20 50 20 41 20 |. C O M P A | 00000040: 43 20 54 20 4F 20 52 20 20 20 49 49 00 52 08 82 |C T O R II.R..| 00000050: 00 8F 00 71 08 8C 00 8F 20 20 20 20 20 20 42 59 |...q.... BY| 00000060: 3A 20 52 4F 42 45 52 54 20 57 2E 20 42 41 4B 45 |: ROBERT W. BAKE| 00000070: 52 00 95 08 96 00 8F 20 31 35 20 57 49 4E 44 53 |R...... 15 WINDS| 00000080: 4F 52 20 44 52 2C 20 41 54 43 4F 2C 20 4E 4A 20 |OR DR, ATCO, NJ | 00000090: 30 38 30 30 34 00 9B 08 A0 00 8F 00 BF 08 AA 00 |08004...........| 000000A0: 8F 20 2A 2A 2A 2A 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 00 |***************.| 000000C0: C5 08 B4 00 3A 00 E2 08 BE 00 86 20 54 4C 28 31 |....:...... TL(1| 000000D0: 30 30 30 29 2C 43 28 32 35 36 29 3A 20 89 20 34 |000),C(256): . 4| 000000E0: 30 30 00 E8 08 C8 00 3A 00 11 09 D2 00 8F 20 2A |00.....:...... *| 000000F0: 2A 2A 2A 2A 20 20 53 20 55 20 42 20 52 20 4F 20 |**** S U B R O | 00000100: 55 20 54 20 49 20 4E 20 45 20 53 20 20 2A 2A 2A |U T I N E S ***| 00000110: 2A 00 17 09 DC 00 3A 00 27 09 E6 00 8D 20 32 34 |*.....:.'.... 24| 00000120: 30 3A 20 56 31 B2 56 00 39 09 F0 00 A1 23 35 2C |0: V1.V.9....#5,| 00000130: 43 24 3A 20 8D 20 32 37 30 00 55 09 FA 00 56 B2 |C$: . 270.U...V.| 00000140: 30 3A 20 8B 20 43 24 B3 B1 22 22 20 A7 20 56 B2 |0: . C$.."" . V.| 00000150: C6 28 43 24 29 00 5B 09 04 01 8E 00 7C 09 0E 01 |.(C$).[.....|...| 00000160: 84 31 35 2C 45 4E 2C 45 4D 24 2C 45 54 2C 45 53 |.15,EN,EM$,ET,ES| 00000170: 3A 20 8B 20 45 4E B2 30 20 A7 20 8E 00 94 09 18 |: . EN.0 . .....| 00000180: 01 99 3A 20 99 22 44 49 53 4B 20 45 52 52 4F 52 |..: ."DISK ERROR| 00000190: 22 3A 20 99 00 AF 09 22 01 99 20 45 4E 3B 45 4D |": ....".. EN;EM| 000001A0: 24 3B 45 54 3B 45 53 3A 20 89 20 31 34 32 30 00 |$;ET;ES: . 1420.| 000001B0: BF 09 2C 01 8B 20 4C 24 B2 22 22 20 A7 20 8E 00 |..,.. L$."" . ..| 000001C0: EF 09 36 01 4C 41 B2 4C 41 AA C3 28 4C 24 29 AA |..6.LA.LA..(L$).| 000001D0: 33 3A 20 41 31 B2 B5 28 4C 41 AD 32 35 36 29 3A |3: A1..(LA.256):| 000001E0: 20 41 32 B2 4C 41 AB 28 41 31 AC 32 35 36 29 00 | A2.LA.(A1.256).| 000001F0: 15 0A 40 01 98 36 2C C7 28 41 32 29 3B C7 28 41 |..@..6,.(A2);.(A| 00000200: 31 29 3B 4C 24 3B C7 28 30 29 3B 3A 20 4C 24 B2 |1);L$;.(0);: L$.| 00000210: 22 22 3A 20 8E 00 40 0A 4A 01 50 B2 31 3A 20 8D |"": ..@.J.P.1: .| 00000220: 20 32 33 30 3A 20 4C 4E B2 56 31 AA 28 32 35 36 | 230: LN.V1.(256| 00000230: AC 56 29 3A 20 4C 31 B2 56 31 3A 20 4C 32 B2 56 |.V): L1.V1: L2.V| 00000240: 00 59 0A 54 01 99 20 4C 4E 3B 22 20 20 20 20 20 |.Y.T.. LN;" | 00000250: 20 22 3A 20 99 22 91 22 3B 00 81 0A 5E 01 8D 20 | ": .".";...^.. | 00000260: 32 34 30 3A 20 43 28 50 29 B2 56 3A 20 8B 20 56 |240: C(P).V: . V| 00000270: B1 30 20 A7 20 50 B2 50 AA 31 3A 20 89 20 33 35 |.0 . P.P.1: . 35| 00000280: 30 00 97 0A 68 01 46 B2 30 3A 20 50 4C B2 50 3A |0...h.F.0: PL.P:| 00000290: 20 50 B2 31 3A 20 8E 00 9D 0A 72 01 3A 00 B8 0A | P.1: ....r.:...| 000002A0: 7C 01 8F 20 2A 2A 2A 20 52 45 41 44 59 20 44 49 ||.. *** READY DI| 000002B0: 53 4B 20 46 49 4C 45 53 00 BE 0A 86 01 3A 00 E5 |SK FILES.....:..| 000002C0: 0A 90 01 99 22 93 20 20 20 20 20 43 20 4F 20 4D |....". C O M| 000002D0: 20 50 20 41 20 43 20 54 20 4F 20 52 20 20 20 49 | P A C T O R I| 000002E0: 49 22 3A 20 99 00 09 0B 9A 01 99 3A 20 99 22 4D |I": .......: ."M| 000002F0: 41 58 20 4C 49 4E 45 20 4C 45 4E 47 54 48 20 54 |AX LINE LENGTH T| 00000300: 4F 20 43 52 45 41 54 45 22 00 36 0B A4 01 85 22 |O CREATE".6...."| 00000310: 20 20 20 32 35 35 9D 9D 9D 9D 9D 22 3B 4D 4C 3A | 255.....";ML:| 00000320: 20 8B 20 4D 4C B3 31 20 B0 20 4D 4C B1 32 35 35 | . ML.1 . ML.255| 00000330: 20 A7 20 34 31 30 00 4A 0B AE 01 A0 20 31 35 3A | . 410.J.... 15:| 00000340: 20 9F 20 31 35 2C 38 2C 31 35 00 6A 0B B8 01 99 | . 15,8,15.j....| 00000350: 3A 20 99 22 49 4E 50 55 54 20 46 49 4C 45 4E 41 |: ."INPUT FILENA| 00000360: 4D 45 22 3A 20 85 20 46 31 24 00 8D 0B C2 01 9F |ME": . F1$......| 00000370: 20 35 2C 38 2C 35 2C 22 30 3A 22 AA 46 31 24 AA | 5,8,5,"0:".F1$.| 00000380: 22 2C 50 2C 52 22 3A 20 8D 20 32 37 30 00 AE 0B |",P,R": . 270...| 00000390: CC 01 99 3A 20 99 22 4F 55 54 50 55 54 20 46 49 |...: ."OUTPUT FI| 000003A0: 4C 45 4E 41 4D 45 22 3A 20 85 20 46 32 24 00 D1 |LENAME": . F2$..| 000003B0: 0B D6 01 9F 20 36 2C 38 2C 36 2C 22 30 3A 22 AA |.... 6,8,6,"0:".| 000003C0: 46 32 24 AA 22 2C 50 2C 57 22 3A 20 8D 20 32 37 |F2$.",P,W": . 27| 000003D0: 30 00 F0 0B E0 01 99 3A 20 99 22 4F 4B 2C 20 53 |0......: ."OK, S| 000003E0: 43 41 4E 4E 49 4E 47 20 50 52 4F 47 52 41 4D 22 |CANNING PROGRAM"| 000003F0: 00 13 0C EA 01 99 22 20 20 20 46 4F 52 20 54 41 |......" FOR TA| 00000400: 52 47 45 54 20 4C 49 4E 45 53 2E 2E 2E 2E 2E 22 |RGET LINES....."| 00000410: 3A 20 99 00 19 0C F4 01 3A 00 3F 0C FE 01 8F 20 |: ......:.?.... | 00000420: 2A 2A 2A 20 52 45 41 44 20 4C 4F 41 44 20 41 44 |*** READ LOAD AD| 00000430: 52 2C 20 4C 49 4E 4B 20 26 20 4C 49 4E 45 23 00 |R, LINK & LINE#.| 00000440: 45 0C 08 02 3A 00 4F 0C 12 02 8D 20 32 33 30 00 |E...:.O.... 230.| 00000450: 69 0C 1C 02 8D 20 32 33 30 3A 20 8B 20 56 AA 56 |i.... 230: . V.V| 00000460: 31 B2 30 20 A7 20 38 36 30 00 82 0C 26 02 8D 20 |1.0 . 860...&.. | 00000470: 32 33 30 3A 20 4C 4E B2 56 31 AA 28 32 35 36 AC |230: LN.V1.(256.| 00000480: 56 29 00 88 0C 30 02 3A 00 C7 0C 3A 02 8F 20 2A |V)...0.:...:.. *| 00000490: 2A 2A 20 20 53 43 41 4E 20 42 41 53 49 43 20 4C |** SCAN BASIC L| 000004A0: 49 4E 45 53 20 46 4F 52 20 47 4F 54 4F 2C 20 47 |INES FOR GOTO, G| 000004B0: 4F 53 55 42 2C 20 52 55 4E 20 26 20 54 48 45 4E |OSUB, RUN & THEN| 000004C0: 20 54 4F 4B 45 4E 53 00 CD 0C 44 02 3A 00 D7 0C | TOKENS...D.:...| 000004D0: 4E 02 8D 20 32 34 30 00 E7 0C 58 02 8B 20 56 B2 |N.. 240...X.. V.| 000004E0: 30 20 A7 20 35 34 30 00 09 0D 62 02 8B 20 56 B2 |0 . 540...b.. V.| 000004F0: 31 33 37 20 B0 20 56 B2 31 34 31 20 B0 20 56 B2 |137 . V.141 . V.| 00000500: 31 33 38 20 A7 20 36 36 30 00 1C 0D 6C 02 8B 20 |138 . 660...l.. | 00000510: 56 B3 B1 31 36 37 20 A7 20 35 39 30 00 22 0D 76 |V..167 . 590.".v| 00000520: 02 3A 00 3D 0D 80 02 8F 20 2A 2A 2A 20 47 45 54 |.:.=.... *** GET| 00000530: 20 54 41 52 47 45 54 20 4C 49 4E 45 23 00 43 0D | TARGET LINE#.C.| 00000540: 8A 02 3A 00 4C 0D 94 02 4C 54 B2 30 00 64 0D 9E |..:.L...LT.0.d..| 00000550: 02 8D 20 32 34 30 3A 20 8B 20 56 B2 33 32 20 A7 |.. 240: . V.32 .| 00000560: 20 36 37 30 00 7C 0D A8 02 8B 20 56 B3 34 38 20 | 670.|.... V.48 | 00000570: B0 20 56 B1 35 37 20 A7 20 37 33 30 00 9F 0D B2 |. V.57 . 730....| 00000580: 02 4C 54 B2 28 31 30 AC 4C 54 29 AA C5 28 43 24 |.LT.(10.LT)..(C$| 00000590: 29 3A 20 8D 20 32 34 30 3A 20 89 20 36 38 30 00 |): . 240: . 680.| 000005A0: A5 0D BC 02 3A 00 C8 0D C6 02 8F 20 2A 2A 2A 20 |....:...... *** | 000005B0: 43 48 45 43 4B 20 49 46 20 41 4C 4C 20 52 45 41 |CHECK IF ALL REA| 000005C0: 44 59 20 46 4F 55 4E 44 00 CE 0D D0 02 3A 00 EE |DY FOUND.....:..| 000005D0: 0D DA 02 81 20 58 B2 30 20 A4 20 4E 3A 20 8B 20 |.... X.0 . N: . | 000005E0: 54 4C 28 58 29 B2 4C 54 20 A7 20 38 30 30 00 F6 |TL(X).LT . 800..| 000005F0: 0D E4 02 82 20 58 00 30 0E EE 02 54 4C 28 4E 29 |.... X.0...TL(N)| 00000600: B2 4C 54 3A 20 4E B2 4E AA 31 3A 20 99 20 4C 54 |.LT: N.N.1: . LT| 00000610: 3B 22 20 20 20 20 20 20 22 3A 20 99 22 91 22 3B |;" ": .".";| 00000620: 3A 20 8B 20 4E B3 31 30 30 30 20 A7 20 38 30 30 |: . N.1000 . 800| 00000630: 00 5C 0E F8 02 99 3A 20 99 3A 20 99 22 54 4F 4F |.\....: .: ."TOO| 00000640: 20 4D 41 4E 59 20 54 41 52 47 45 54 20 4C 49 4E | MANY TARGET LIN| 00000650: 45 53 21 22 3A 20 89 20 31 34 32 30 00 62 0E 02 |ES!": . 1420.b..| 00000660: 03 3A 00 88 0E 0C 03 8F 20 2A 2A 2A 20 43 48 45 |.:...... *** CHE| 00000670: 43 4B 20 46 4F 52 20 27 4F 4E 2E 2E 2E 47 4F 54 |CK FOR 'ON...GOT| 00000680: 4F 2F 47 4F 53 55 42 27 00 8E 0E 16 03 3A 00 9F |O/GOSUB'.....:..| 00000690: 0E 20 03 8B 20 56 B2 34 34 20 A7 20 36 36 30 00 |. .. V.44 . 660.| 000006A0: B1 0E 2A 03 8B 20 56 B3 B1 33 32 20 A7 20 36 30 |..*.. V..32 . 60| 000006B0: 30 00 C2 0E 34 03 8D 20 32 34 30 3A 20 89 20 38 |0...4.. 240: . 8| 000006C0: 30 30 00 C8 0E 3E 03 3A 00 E4 0E 48 03 8F 20 2A |00...>.:...H.. *| 000006D0: 2A 2A 20 53 4F 52 54 20 54 41 52 47 45 54 20 4C |** SORT TARGET L| 000006E0: 49 4E 45 53 00 EA 0E 52 03 3A 00 FA 0E 5C 03 8B |INES...R.:...\..| 000006F0: 20 4E B3 32 20 A7 20 39 33 30 00 17 0F 66 03 81 | N.2 . 930...f..| 00000700: 20 58 B2 30 20 A4 20 4E AB 31 3A 20 81 20 59 B2 | X.0 . N.1: . Y.| 00000710: 30 20 A4 20 4E AB 32 00 49 0F 70 03 8B 20 54 4C |0 . N.2.I.p.. TL| 00000720: 28 58 29 B3 54 4C 28 59 29 20 A7 20 56 B2 54 4C |(X).TL(Y) . V.TL| 00000730: 28 59 29 3A 20 54 4C 28 59 29 B2 54 4C 28 58 29 |(Y): TL(Y).TL(X)| 00000740: 3A 20 54 4C 28 58 29 B2 56 00 53 0F 7A 03 82 20 |: TL(X).V.S.z.. | 00000750: 59 2C 58 00 59 0F 84 03 3A 00 79 0F 8E 03 8F 20 |Y,X.Y...:.y.... | 00000760: 2A 2A 2A 20 47 45 54 20 52 45 41 44 59 20 46 4F |*** GET READY FO| 00000770: 52 20 43 4F 4D 50 41 43 54 00 7F 0F 98 03 3A 00 |R COMPACT.....:.| 00000780: A5 0F A2 03 99 3A 20 99 3A 20 99 20 22 43 4F 4D |.....: .: . "COM| 00000790: 50 41 43 54 49 4E 47 20 4C 49 4E 45 53 2E 2E 2E |PACTING LINES...| 000007A0: 2E 22 3A 20 99 00 CD 0F AC 03 A0 20 35 3A 20 9F |.": ....... 5: .| 000007B0: 20 35 2C 38 2C 35 2C 22 30 3A 22 AA 46 31 24 AA | 5,8,5,"0:".F1$.| 000007C0: 22 2C 50 2C 52 22 3A 20 8D 20 32 37 30 00 FD 0F |",P,R": . 270...| 000007D0: B6 03 8D 20 32 33 30 3A 20 98 36 2C C7 28 56 31 |... 230: .6,.(V1| 000007E0: 29 3B C7 28 56 29 3B 3A 20 4C 41 B2 56 31 AA 28 |);.(V);: LA.V1.(| 000007F0: 32 35 36 AC 56 29 3A 20 4C 24 B2 22 22 00 03 10 |256.V): L$.""...| 00000800: C0 03 3A 00 1F 10 CA 03 8F 20 2A 2A 2A 20 52 45 |..:...... *** RE| 00000810: 41 44 20 50 52 4F 47 52 41 4D 20 4C 49 4E 45 00 |AD PROGRAM LINE.| 00000820: 25 10 D4 03 3A 00 40 10 DE 03 8D 20 32 33 30 3A |%...:.@.... 230:| 00000830: 20 8B 20 56 AA 56 31 B2 30 20 A7 20 31 34 30 30 | . V.V1.0 . 1400| 00000840: 00 4A 10 E8 03 8D 20 33 33 30 00 72 10 F2 03 56 |.J.... 330.r...V| 00000850: B2 43 28 50 29 3A 20 50 B2 50 AA 31 3A 20 8B 20 |.C(P): P.P.1: . | 00000860: 56 B2 33 32 20 B0 20 56 B2 35 38 20 A7 20 31 30 |V.32 . V.58 . 10| 00000870: 31 30 00 9D 10 FC 03 4C 24 B2 C7 28 4C 31 29 AA |10.....L$..(L1).| 00000880: C7 28 4C 32 29 3A 20 8B 20 56 B3 B1 30 20 AF 20 |.(L2): . V..0 . | 00000890: 56 B3 B1 31 34 33 20 A7 20 31 31 31 30 00 BD 10 |V..143 . 1110...| 000008A0: 06 04 81 20 58 B2 30 20 A4 20 4E 3A 20 8B 20 54 |... X.0 . N: . T| 000008B0: 4C 28 58 29 B3 4C 4E 20 A7 20 82 20 58 00 D3 10 |L(X).LN . . X...| 000008C0: 10 04 8B 20 54 4C 28 58 29 B3 B1 4C 4E 20 A7 20 |... TL(X)..LN . | 000008D0: 39 39 30 00 E9 10 1A 04 4C 24 B2 4C 24 AA 22 3A |990.....L$.L$.":| 000008E0: 22 3A 20 89 20 31 33 31 30 00 EF 10 24 04 3A 00 |": . 1310...$.:.| 000008F0: 1D 11 2E 04 8F 20 2A 2A 2A 2A 20 20 53 43 41 4E |..... **** SCAN| 00000900: 20 42 41 53 49 43 20 4C 49 4E 45 20 26 20 43 4F | BASIC LINE & CO| 00000910: 4D 50 41 43 54 20 50 52 4F 47 52 41 4D 00 23 11 |MPACT PROGRAM.#.| 00000920: 38 04 3A 00 32 11 42 04 4C 24 B2 4C 24 AA C7 28 |8.:.2.B.L$.L$..(| 00000930: 56 29 00 44 11 4C 04 56 B2 43 28 50 29 3A 20 50 |V).D.L.V.C(P): P| 00000940: B2 50 AA 31 00 56 11 56 04 8B 20 56 B2 33 32 20 |.P.1.V.V.. V.32 | 00000950: A7 20 31 31 30 30 00 68 11 60 04 8B 20 56 B2 35 |. 1100.h.`.. V.5| 00000960: 38 20 A7 20 31 32 36 30 00 9A 11 6A 04 8B 20 56 |8 . 1260...j.. V| 00000970: B2 31 33 37 20 B0 20 56 B2 31 33 38 20 B0 20 56 |.137 . V.138 . V| 00000980: B2 31 33 39 20 B0 20 56 B2 31 36 37 20 A7 20 46 |.139 . V.167 . F| 00000990: B2 31 3A 20 89 20 31 30 39 30 00 B3 11 74 04 8B |.1: . 1090...t..| 000009A0: 20 56 B2 30 20 B0 20 56 B2 31 34 33 20 A7 20 31 | V.0 . V.143 . 1| 000009B0: 33 31 30 00 B9 11 7E 04 3A 00 E6 11 88 04 8F 20 |310...~.:...... | 000009C0: 2A 2A 2A 20 51 55 4F 54 45 20 2D 20 43 4F 50 59 |*** QUOTE - COPY| 000009D0: 20 54 49 4C 4C 20 4E 45 58 54 20 4F 52 20 4C 49 | TILL NEXT OR LI| 000009E0: 4E 45 20 45 4E 44 00 EC 11 92 04 3A 00 FF 11 9C |NE END.....:....| 000009F0: 04 8B 20 56 B3 B1 33 34 20 A7 20 31 30 39 30 00 |.. V..34 . 1090.| 00000A00: 2C 12 A6 04 4C 24 B2 4C 24 AA C7 28 56 29 3A 20 |,...L$.L$..(V): | 00000A10: 56 B2 43 28 50 29 3A 20 50 B2 50 AA 31 3A 20 8B |V.C(P): P.P.1: .| 00000A20: 20 56 B2 33 34 20 A7 20 31 30 39 30 00 3D 12 B0 | V.34 . 1090.=..| 00000A30: 04 8B 20 56 B1 30 20 A7 20 31 31 39 30 00 55 12 |.. V.0 . 1190.U.| 00000A40: BA 04 8B 20 46 B2 30 20 A7 20 4C 24 B2 4C 24 AA |... F.0 . L$.L$.| 00000A50: C7 28 33 34 29 00 60 12 C4 04 89 20 31 33 31 30 |.(34).`.... 1310| 00000A60: 00 66 12 CE 04 3A 00 99 12 D8 04 8F 20 2A 2A 2A |.f...:...... ***| 00000A70: 20 49 46 20 43 4F 4C 4F 4E 20 2D 20 43 48 4B 20 | IF COLON - CHK | 00000A80: 4E 45 58 54 20 43 48 41 52 2C 20 45 4C 53 45 20 |NEXT CHAR, ELSE | 00000A90: 43 4F 50 59 20 43 48 41 52 00 9F 12 E2 04 3A 00 |COPY CHAR.....:.| 00000AA0: C7 12 EC 04 56 B2 43 28 50 29 3A 20 50 B2 50 AA |....V.C(P): P.P.| 00000AB0: 31 3A 20 8B 20 56 B2 33 32 20 B0 20 56 B2 35 38 |1: . V.32 . V.58| 00000AC0: 20 A7 20 31 32 36 30 00 EF 12 F6 04 8B 20 56 B3 | . 1260...... V.| 00000AD0: B1 30 20 AF 20 56 B3 B1 31 34 33 20 A7 20 4C 24 |.0 . V..143 . L$| 00000AE0: B2 4C 24 AA 22 3A 22 3A 20 89 20 31 31 31 30 00 |.L$.":": . 1110.| 00000AF0: F5 12 00 05 3A 00 2A 13 0A 05 8F 20 2A 2A 2A 20 |....:.*.... *** | 00000B00: 45 4E 44 20 4F 46 20 4C 49 4E 45 20 2D 20 43 41 |END OF LINE - CA| 00000B10: 4E 20 57 45 20 43 4F 4D 50 41 43 54 20 54 48 45 |N WE COMPACT THE| 00000B20: 53 45 20 4C 49 4E 45 53 20 3F 00 30 13 14 05 3A |SE LINES ?.0...:| 00000B30: 00 49 13 1E 05 8B 20 46 B2 31 20 A7 20 8D 20 33 |.I.... F.1 . . 3| 00000B40: 30 30 3A 20 89 20 39 39 30 00 64 13 28 05 8D 20 |00: . 990.d.(.. | 00000B50: 32 33 30 3A 20 8B 20 56 AA 56 31 B2 30 20 A7 20 |230: . V.V1.0 . | 00000B60: 31 34 30 30 00 91 13 32 05 8D 20 33 33 30 3A 20 |1400...2.. 330: | 00000B70: 8B 20 28 C3 28 4C 24 29 AA 50 4C AA 34 29 B1 4D |. (.(L$).PL.4).M| 00000B80: 4C 20 A7 20 8D 20 33 30 30 3A 20 89 20 31 30 31 |L . . 300: . 101| 00000B90: 30 00 B1 13 3C 05 81 20 58 B2 30 20 A4 20 4E 3A |0...<.. X.0 . N:| 00000BA0: 20 8B 20 54 4C 28 58 29 B3 4C 4E 20 A7 20 82 20 | . TL(X).LN . . | 00000BB0: 58 00 C8 13 46 05 8B 20 54 4C 28 58 29 B3 B1 4C |X...F.. TL(X)..L| 00000BC0: 4E 20 A7 20 31 32 36 30 00 DA 13 50 05 8D 20 33 |N . 1260...P.. 3| 00000BD0: 30 30 3A 20 89 20 31 30 31 30 00 E0 13 5A 05 3A |00: . 1010...Z.:| 00000BE0: 00 10 14 64 05 8F 20 2A 2A 2A 20 45 4E 44 20 4F |...d.. *** END O| 00000BF0: 46 20 43 4F 4D 50 41 43 54 20 2D 20 57 52 49 54 |F COMPACT - WRIT| 00000C00: 45 20 45 4E 44 20 4F 46 20 50 52 4F 47 52 41 4D |E END OF PROGRAM| 00000C10: 00 16 14 6E 05 3A 00 2F 14 78 05 8D 20 33 30 30 |...n.:./.x.. 300| 00000C20: 3A 20 98 36 2C C7 28 30 29 3B C7 28 30 29 3B 00 |: .6,.(0);.(0);.| 00000C30: 44 14 82 05 99 3A 20 99 3A 20 99 22 44 4F 4E 45 |D....: .: ."DONE| 00000C40: 22 3A 20 99 00 57 14 8C 05 A0 20 35 3A 20 A0 20 |": ..W.... 5: . | 00000C50: 36 3A 20 A0 20 31 35 00 00 00 60 CF 65 |6: . 15...`.e |
..%.D.. *****************************.+. N...L.X.. C O M P A C T O R II.R.. ...Q.... BY: ROBERT W. BAKER...... 15 WINDSOR DR, ATCO, NJ 08004... ....... . *****************************.E...:... ... TL(1000),C(256): . 400...H.:...R.. * **** S U B R O U T I N E S ****.....:. '.... 240: V1.V.9....#5,C$: . 270.U...V. 0: . C$.."" . V.F(C$).[.....|....15,EN,E M$,ET,ES: . EN.0 . .......: ."DISK ERROR ": ....".. EN;EM$;ET;ES: . 1420...,.. 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.Y.T.. LN;" ": ."." ;...^.. 240: C(P).V: . V.0 . P.P.1: . 35 0...H.F.0: PL.P: P.1: ....R.:...|.. *** READY DISK FILES.....:......". C O M P A C T O R II": .......: ."MAX LINE LENGTH TO CREATE".6...." 255.....";ML: . ML.1 . ML.255 . 410.J... 15: . 15,8, 15.J....: ."INPUT FILENAME": . F1$...B.. 5,8,5,"0:".F1$.",P,R": . 270...L..: ."O UTPUT FILENAME": . F2$.Q.V.. 6,8,6,"0:". F2$.",P,W": . 270......: ."OK, SCANNING PROGRAM"......" FOR TARGET LINES....." : ......:.?.... *** READ LOAD ADR, LINK & LINE#.E...:.O.... 230.I.... 230: . V.V 1.0 . 860...&.. 230: LN.V1.(256.V)...0.: .G.:.. *** SCAN BASIC LINES FOR GOTO, G OSUB, RUN & THEN TOKENS.M.D.:.W.N.. 240. ..X.. V.0 . 540...B.. V.137 . V.141 . V. 138 . 660...L.. V..167 . 590.".V.:.=.... *** GET TARGET LINE#.C...:.L...LT.0.D.. .. 240: . V.32 . 670.|.... V.48 . V.57 . 730.....LT.(10.LT).E(C$): . 240: . 680. ....:.H.F.. *** CHECK IF ALL READY FOUND .N.P.:...Z.. X.0 . N: . TL(X).LT . 800.. .... X.0...TL(N).LT: N.N.1: . LT;" ": .".";: . N.1000 . 800.\....: .: ."TOO MANY TARGET LINES!": . 1420.B...:...... *** CHECK FOR 'ON...GOTO/GOSUB'.....:.. . .. V.44 . 660...*.. V..32 . 600.B.4.. 240: . 800.H.>.:...H.. *** SORT TARGET L INES...R.:...\.. N.2 . 930...F.. X.0 . N .1: . Y.0 . N.2.I.P.. TL(X).TL(Y) . V.TL (Y): TL(Y).TL(X): TL(X).V.S.Z.. Y,X.Y... :.Y.... *** GET READY FOR COMPACT....:. .....: .: . "COMPACTING LINES....": ..M. .. 5: . 5,8,5,"0:".F1$.",P,R": . 270... ... 230: .6,G(V1);G(V);: LA.V1.(256.V): L$."".....:...J.. *** READ PROGRAM LINE. %.T.:.@.... 230: . V.V1.0 . 1400.J.... 3 30.R...V.C(P): P.P.1: . V.32 . V.58 . 10 10.....L$.G(L1).G(L2): . V..0 . V..143 . 1110...... X.0 . N: . TL(X).LN . . X.S. ... TL(X)..LN . 990.....L$.L$.":": . 131 0...$.:...... **** SCAN BASIC LINE & CO MPACT PROGRAM.#.8.:.2.B.L$.L$.G(V).D.L.V .C(P): P.P.1.V.V.. V.32 . 1100.H.`.. V.5 8 . 1260...J.. V.137 . V.138 . V.139 . V .167 . F.1: . 1090...T.. V.0 . V.143 . 1 310...~.:...... *** QUOTE - COPY TILL NE XT OR LINE END.....:...... V..34 . 1090. ,...L$.L$.G(V): V.C(P): P.P.1: . V.34 . 1090.=.... V.0 . 1190.U.... F.0 . L$.L$. G(34).`.D.. 1310.F.N.:...X.. *** IF COLO N - CHK NEXT CHAR, ELSE COPY CHAR.....:. G...V.C(P): P.P.1: . V.32 . V.58 . 1260. ..... V..0 . V..143 . L$.L$.":": . 1110. ....:.*.... *** END OF LINE - CAN WE COM PACT THESE LINES ?.0...:.I.... F.1 . . 3 00: . 990.D.(.. 230: . V.V1.0 . 1400...2 .. 330: . (C(L$).PL.4).ML . . 300: . 101 0...<.. X.0 . N: . TL(X).LN . . X.H.F.. TL(X)..LN . 1260.Z.P.. 300: . 1010...Z.: ...D.. *** END OF COMPACT - WRITE END OF PROGRAM...N.:./.X.. 300: .6,G(0);G(0);. D....: .: ."DONE": ..W... 5: 6: 15. ..`OE
> CLICK IMAGE PREVIEW FOR FULL MODAL