BASIC COMPACTOR
FILE INFORMATION
FILENAME(S): BASIC COMPACTOR
FILE TYPE(S): PRG
FILE SIZE: 4.5K
FIRST SEEN: 2025-11-30 21:22:56
APPEARS ON: 1 disk(s)
FILE HASH
0eb5c8bc1e3804c186dacc44c124f2b8c38a3de273af884e476ff5f0eea930d2
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 HULP 50 1 | BASIC COMPACTOR | PRG | DuncanTwain | 17 | 10 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1C 08 0A 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |.......*********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 37 08 14 |************.7..|
00000020: 00 8F 2A 20 20 20 20 43 4F 4D 50 41 43 54 4F 52 |..* COMPACTOR|
00000030: 20 20 20 20 20 20 2A 00 52 08 1E 00 8F 2A 20 20 | *.R....* |
00000040: 20 31 35 34 31 20 56 45 52 53 49 4F 4E 20 20 20 | 1541 VERSION |
00000050: 20 2A 00 6D 08 28 00 8F 2A 20 42 41 4B 45 52 20 | *.m.(..* BAKER |
00000060: 45 4E 54 45 52 50 52 49 53 45 53 20 2A 00 88 08 |ENTERPRISES *...|
00000070: 32 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |2..*************|
00000080: 2A 2A 2A 2A 2A 2A 2A 2A 00 8E 08 64 00 3A 00 9F |********...d.:..|
00000090: 08 6E 00 9C 3A 86 20 54 4C 28 31 30 30 30 29 00 |.n..:. TL(1000).|
000000A0: A5 08 78 00 3A 00 BF 08 82 00 8F 2A 2A 2A 2A 2A |..x.:......*****|
000000B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
000000C0: D7 08 8C 00 8F 20 20 52 45 41 44 59 20 44 49 53 |..... READY DIS|
000000D0: 4B 20 46 49 4C 45 53 00 F1 08 96 00 8F 2A 2A 2A |K FILES......***|
000000E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000F0: 2A 00 F7 08 A0 00 3A 00 11 09 AA 00 99 22 93 22 |*.....:......"."|
00000100: A6 31 35 29 22 12 43 4F 4D 50 41 43 54 4F 52 92 |.15)".COMPACTOR.|
00000110: 22 00 37 09 B4 00 8F 20 50 52 49 4E 54 22 12 49 |".7.... PRINT".I|
00000120: 4E 50 55 54 20 46 49 4C 45 20 49 4E 20 44 52 49 |NPUT FILE IN DRI|
00000130: 56 45 20 23 30 11 22 00 5E 09 BE 00 8F 20 50 52 |VE #0.".^.... PR|
00000140: 49 4E 54 22 4F 55 54 50 55 54 20 46 49 4C 45 20 |INT"OUTPUT FILE |
00000150: 49 4E 20 44 52 49 56 45 20 23 30 11 11 22 00 81 |IN DRIVE #0.."..|
00000160: 09 C8 00 85 22 11 11 11 11 11 11 12 49 4E 50 55 |....".......INPU|
00000170: 54 20 46 49 4C 45 20 4E 41 4D 45 92 22 3B 46 4C |T FILE NAME.";FL|
00000180: 24 00 97 09 D2 00 99 22 12 53 43 41 4E 4E 49 4E |$......".SCANNIN|
00000190: 47 20 46 49 4C 45 22 00 B8 09 DC 00 99 22 20 20 |G FILE"......" |
000001A0: 20 46 4F 52 20 54 41 52 47 45 54 20 4C 49 4E 45 | FOR TARGET LINE|
000001B0: 2E 2E 2E 2E 2E 11 11 22 00 CF 09 E6 00 9F 31 35 |......."......15|
000001C0: 2C 38 2C 31 35 2C 22 49 22 3A 8D 32 33 37 30 00 |,8,15,"I":.2370.|
000001D0: EA 09 F0 00 9F 35 2C 38 2C 35 2C 22 30 3A 22 AA |.....5,8,5,"0:".|
000001E0: 46 4C 24 AA 22 2C 50 2C 52 22 00 F0 09 FA 00 3A |FL$.",P,R".....:|
000001F0: 00 0A 0A 04 01 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |......**********|
00000200: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 2B 0A 0E 01 8F |**********.+....|
00000210: 20 52 45 41 44 20 4C 4F 41 44 20 41 44 52 2C 4C | READ LOAD ADR,L|
00000220: 49 4E 4B 20 26 20 4C 49 4E 45 53 00 45 0A 18 01 |INK & LINES.E...|
00000230: 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.***************|
00000240: 2A 2A 2A 2A 2A 00 4B 0A 22 01 3A 00 5B 0A 2C 01 |*****.K.".:.[.,.|
00000250: 8D 32 33 37 30 3A 8D 32 33 31 30 00 71 0A 36 01 |.2370:.2310.q.6.|
00000260: 8D 32 33 31 30 3A 8B 56 AA 56 31 B2 30 A7 37 39 |.2310:.V.V1.0.79|
00000270: 30 00 89 0A 40 01 8D 32 33 31 30 3A 4C 4E B2 56 |0...@..2310:LN.V|
00000280: 31 AA 28 32 35 36 AC 56 29 00 8F 0A 4A 01 3A 00 |1.(256.V)...J.:.|
00000290: A9 0A 54 01 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..T..***********|
000002A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 C1 0A 5E 01 8F 20 |*********...^.. |
000002B0: 20 53 43 41 4E 20 42 41 53 49 43 20 4C 49 4E 45 | SCAN BASIC LINE|
000002C0: 53 00 E4 0A 68 01 8F 20 46 4F 52 20 47 4F 54 4F |S...h.. FOR GOTO|
000002D0: 20 47 4F 53 55 42 20 26 20 54 48 45 4E 20 54 4F | GOSUB & THEN TO|
000002E0: 4B 45 4E 53 00 FE 0A 72 01 8F 2A 2A 2A 2A 2A 2A |KENS...r..******|
000002F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 04 |**************..|
00000300: 0B 7C 01 3A 00 0E 0B 86 01 8D 32 33 33 30 00 1C |.|.:......2330..|
00000310: 0B 90 01 8B 56 B2 30 20 A7 33 31 30 00 35 0B 9A |....V.0 .310.5..|
00000320: 01 8B 56 B2 31 33 37 20 B0 20 56 B2 31 34 31 20 |..V.137 . V.141 |
00000330: A7 20 34 38 30 00 46 0B A4 01 8B 56 B3 B1 31 36 |. 480.F....V..16|
00000340: 37 A7 20 33 39 30 00 4C 0B AE 01 3A 00 66 0B B8 |7. 390.L...:.f..|
00000350: 01 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..**************|
00000360: 2A 2A 2A 2A 2A 2A 00 7E 0B C2 01 8F 20 20 47 45 |******.~.... GE|
00000370: 54 20 54 41 52 47 45 54 20 4C 49 4E 45 53 00 98 |T TARGET LINES..|
00000380: 0B CC 01 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |....************|
00000390: 2A 2A 2A 2A 2A 2A 2A 2A 00 9E 0B D6 01 3A 00 A7 |********.....:..|
000003A0: 0B E0 01 4C 54 B2 30 00 BB 0B EA 01 8D 32 33 33 |...LT.0......233|
000003B0: 30 3A 8B 56 B2 33 32 A7 34 39 30 00 D2 0B F4 01 |0:.V.32.490.....|
000003C0: 8B 56 B3 34 38 20 B0 20 56 B1 35 37 20 A7 20 35 |.V.48 . V.57 . 5|
000003D0: 38 30 00 E7 0B FE 01 4C 54 B2 28 31 30 AC 4C 54 |80.....LT.(10.LT|
000003E0: 29 AA C5 28 43 24 29 00 F6 0B 08 02 8D 32 33 33 |)..(C$)......233|
000003F0: 30 3A 89 35 30 30 00 FC 0B 12 02 3A 00 16 0C 1C |0:.500.....:....|
00000400: 02 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..**************|
00000410: 2A 2A 2A 2A 2A 2A 00 33 0C 26 02 8F 20 43 48 45 |******.3.&.. CHE|
00000420: 43 4B 20 49 46 20 41 4C 52 45 41 44 59 20 46 4F |CK IF ALREADY FO|
00000430: 55 4E 44 00 4D 0C 30 02 8F 2A 2A 2A 2A 2A 2A 2A |UND.M.0..*******|
00000440: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 53 0C |*************.S.|
00000450: 3A 02 3A 00 5E 0C 44 02 81 58 B2 30 A4 4E 00 72 |:.:.^.D..X.0.N.r|
00000460: 0C 4E 02 8B 20 54 4C 28 58 29 B2 4C 54 20 A7 37 |.N.. TL(X).LT .7|
00000470: 31 30 00 79 0C 58 02 82 58 00 8C 0C 62 02 54 4C |10.y.X..X...b.TL|
00000480: 28 4E 29 B2 4C 54 3A 4E B2 4E AA 31 00 95 0C 6C |(N).LT:N.N.1...l|
00000490: 02 99 4C 54 2C 00 A5 0C 76 02 8B 4E B3 31 30 30 |..LT,...v..N.100|
000004A0: 30 A7 37 31 30 00 C5 0C 80 02 99 22 11 11 54 4F |0.710......"..TO|
000004B0: 4F 20 4D 41 4E 59 20 54 41 52 47 45 54 20 4C 49 |O MANY TARGET LI|
000004C0: 4E 45 53 21 22 00 CF 0C 8A 02 89 32 34 33 30 00 |NES!"......2430.|
000004D0: D5 0C 94 02 3A 00 F0 0C 9E 02 8F 2A 2A 2A 2A 2A |....:......*****|
000004E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000004F0: 00 0E 0D A8 02 8F 20 43 48 45 43 4B 20 46 4F 52 |...... CHECK FOR|
00000500: 20 4F 4E 2E 47 4F 54 4F 2F 47 4F 53 55 42 00 29 | ON.GOTO/GOSUB.)|
00000510: 0D B2 02 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |....************|
00000520: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 2F 0D BC 02 3A 00 |*********./...:.|
00000530: 3F 0D C6 02 8B 56 B2 34 34 20 A7 20 34 38 30 00 |?....V.44 . 480.|
00000540: 4F 0D D0 02 8B 20 56 B3 B1 33 32 A7 34 30 30 00 |O.... V..32.400.|
00000550: 5E 0D DA 02 8D 32 33 33 30 3A 89 37 31 30 00 64 |^....2330:.710.d|
00000560: 0D E4 02 3A 00 7F 0D EE 02 8F 2A 2A 2A 2A 2A 2A |...:......******|
00000570: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00000580: 98 0D F8 02 8F 20 20 53 4F 52 54 20 54 41 52 47 |..... SORT TARG|
00000590: 45 54 20 4C 49 4E 45 53 00 B3 0D 02 03 8F 2A 2A |ET LINES......**|
000005A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000005B0: 2A 2A 2A 00 B9 0D 0C 03 3A 00 C9 0D 16 03 8B 20 |***.....:...... |
000005C0: 4E B3 32 20 A7 20 39 30 30 00 D8 0D 20 03 81 20 |N.2 . 900... .. |
000005D0: 58 B2 30 A4 20 4E AB 31 00 E7 0D 2A 03 81 20 59 |X.0. N.1...*.. Y|
000005E0: B2 30 A4 20 4E AB 32 00 00 0E 34 03 8B 20 54 4C |.0. N.2...4.. TL|
000005F0: 28 59 29 B3 20 54 4C 28 58 29 20 A7 20 38 34 30 |(Y). TL(X) . 840|
00000600: 00 20 0E 3E 03 56 B2 54 4C 28 59 29 3A 54 4C 28 |. .>.V.TL(Y):TL(|
00000610: 59 29 B2 54 4C 28 58 29 3A 54 4C 28 58 29 B2 56 |Y).TL(X):TL(X).V|
00000620: 00 29 0E 48 03 82 59 2C 58 00 2F 0E 52 03 3A 00 |.).H..Y,X./.R.:.|
00000630: 50 0E 5C 03 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |P.\..***********|
00000640: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000650: 00 6E 0E 66 03 8F 20 47 45 54 20 52 45 41 44 59 |.n.f.. GET READY|
00000660: 20 46 4F 52 20 43 4F 4D 50 41 43 54 4F 52 00 8F | FOR COMPACTOR..|
00000670: 0E 70 03 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.p..************|
00000680: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00000690: 95 0E 7A 03 3A 00 B8 0E 84 03 99 22 93 43 4F 4D |..z.:......".COM|
000006A0: 50 41 43 54 49 4E 47 20 4C 49 4E 45 53 2E 2E 2E |PACTING LINES...|
000006B0: 2E 2E 2E 2E 2E 11 11 22 00 BF 0E 8E 03 A0 35 00 |......."......5.|
000006C0: DA 0E 98 03 9F 35 2C 38 2C 35 2C 22 30 3A 22 AA |.....5,8,5,"0:".|
000006D0: 46 4C 24 AA 22 2C 50 2C 52 22 00 E5 0E A2 03 8D |FL$.",P,R"......|
000006E0: 20 32 33 37 30 00 FC 0E AC 03 46 4F 24 B2 C8 28 | 2370.....FO$..(|
000006F0: 46 4C 24 2C 31 34 29 AA 22 2F 43 22 00 0E 0F B6 |FL$,14)."/C"....|
00000700: 03 98 31 35 2C 22 53 30 3A 22 AA 46 4F 24 00 29 |..15,"S0:".FO$.)|
00000710: 0F C0 03 9F 36 2C 38 2C 36 2C 22 30 3A 22 AA 46 |....6,8,6,"0:".F|
00000720: 4F 24 AA 22 2C 50 2C 57 22 00 33 0F CA 03 8D 32 |O$.",P,W".3....2|
00000730: 33 37 30 00 39 0F D4 03 3A 00 5A 0F DE 03 8F 2A |370.9...:.Z....*|
00000740: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000750: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 74 0F E8 03 8F |**********.t....|
00000760: 20 20 20 43 4F 50 59 20 4C 4F 41 44 20 41 44 44 | COPY LOAD ADD|
00000770: 52 45 53 53 00 94 0F F2 03 8F 2A 2A 2A 2A 2A 2A |RESS......******|
00000780: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000790: 2A 2A 2A 2A 00 9A 0F FC 03 3A 00 A5 0F 06 04 8D |****.....:......|
000007A0: 20 32 33 31 30 00 B3 0F 10 04 98 36 2C C7 28 56 | 2310......6,.(V|
000007B0: 31 29 3B 00 C4 0F 1A 04 98 36 2C C7 28 56 29 3B |1);......6,.(V);|
000007C0: 3A 52 B2 30 00 CA 0F 24 04 3A 00 EA 0F 2E 04 8F |:R.0...$.:......|
000007D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000007E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 08 10 38 04 8F |**********...8..|
000007F0: 20 43 4F 50 59 20 4C 49 4E 4B 20 26 20 4C 49 4E | COPY LINK & LIN|
00000800: 45 20 4E 55 4D 42 45 52 00 28 10 42 04 8F 2A 2A |E NUMBER.(.B..**|
00000810: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000820: 2A 2A 2A 2A 2A 2A 2A 2A 00 2E 10 4C 04 3A 00 43 |********...L.:.C|
00000830: 10 56 04 8D 32 33 31 30 3A 4B 31 B2 56 31 3A 4B |.V..2310:K1.V1:K|
00000840: 32 B2 56 00 5D 10 60 04 46 B2 30 20 3A 20 8B 20 |2.V.].`.F.0 : . |
00000850: 56 AA 56 31 B2 30 20 A7 20 32 32 33 30 00 72 10 |V.V1.0 . 2230.r.|
00000860: 6A 04 8D 32 33 31 30 3A 4C 31 B2 56 31 3A 4C 32 |j..2310:L1.V1:L2|
00000870: B2 56 00 8A 10 74 04 4C 4E B2 4C 31 AA 28 32 35 |.V...t.LN.L1.(25|
00000880: 36 AC 4C 32 29 3A 99 4C 4E 2C 00 94 10 7E 04 8D |6.L2):.LN,...~..|
00000890: 32 33 33 30 00 AD 10 88 04 8B 56 B2 33 32 20 B0 |2330......V.32 .|
000008A0: 20 56 20 B2 35 38 20 A7 20 31 31 35 30 00 BD 10 | V .58 . 1150...|
000008B0: 92 04 8B 56 B2 30 20 A7 20 31 32 30 30 00 CE 10 |...V.0 . 1200...|
000008C0: 9C 04 8B 56 B3 B1 31 34 33 A7 31 32 34 30 00 E2 |...V..143.1240..|
000008D0: 10 A6 04 8D 32 33 33 30 3A 8B 56 B1 30 A7 31 31 |....2330:.V.0.11|
000008E0: 39 30 00 F1 10 B0 04 46 B2 31 3A 81 58 B2 30 A4 |90.....F.1:.X.0.|
000008F0: 4E 00 05 11 BA 04 8B 20 54 4C 28 58 29 B3 4C 4E |N...... TL(X).LN|
00000900: 20 A7 20 82 58 00 1A 11 C4 04 8B 20 54 4C 28 58 | . .X...... TL(X|
00000910: 29 B2 4C 4E 20 A7 31 32 34 30 00 24 11 CE 04 89 |).LN .1240.$....|
00000920: 31 31 31 30 00 38 11 D8 04 98 36 2C C7 28 4B 31 |1110.8....6,.(K1|
00000930: 29 3B C7 28 4B 32 29 3B 00 50 11 E2 04 98 36 2C |);.(K2);.P....6,|
00000940: C7 28 4C 31 29 3B C7 28 4C 32 29 3B 3A 52 B2 34 |.(L1);.(L2);:R.4|
00000950: 00 64 11 EC 04 8B 46 20 A7 98 36 2C 22 3A 22 3B |.d....F ..6,":";|
00000960: 3A 52 B2 35 00 72 11 F6 04 46 B2 30 3A 89 31 33 |:R.5.r...F.0:.13|
00000970: 36 30 00 78 11 00 05 3A 00 98 11 0A 05 8F 2A 2A |60.x...:......**|
00000980: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000990: 2A 2A 2A 2A 2A 2A 2A 2A 00 B8 11 14 05 8F 2A 2A |********......**|
000009A0: 2A 20 20 20 53 43 41 4E 20 42 41 53 49 43 20 4C |* SCAN BASIC L|
000009B0: 49 4E 45 20 20 2A 2A 2A 00 D8 11 1E 05 8F 2A 2A |INE ***......**|
000009C0: 2A 20 20 26 20 43 4F 4D 50 41 43 54 20 50 52 4F |* & COMPACT PRO|
000009D0: 47 52 41 4D 20 2A 2A 2A 00 F8 11 28 05 8F 2A 2A |GRAM ***...(..**|
000009E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000009F0: 2A 2A 2A 2A 2A 2A 2A 2A 00 FE 11 32 05 3A 00 0F |********...2.:..|
00000A00: 12 3C 05 98 36 2C 43 24 3B 3A 52 B2 52 AA 31 00 |.<..6,C$;:R.R.1.|
00000A10: 19 12 46 05 8D 32 33 33 30 00 29 12 50 05 8B 56 |..F..2330.).P..V|
00000A20: B2 31 33 37 20 A7 46 B2 31 00 42 12 5A 05 8B 56 |.137 .F.1.B.Z..V|
00000A30: B2 31 33 39 20 B0 20 56 B2 31 36 37 20 A7 20 46 |.139 . V.167 . F|
00000A40: B2 31 00 50 12 64 05 8B 56 B2 30 A7 31 38 32 30 |.1.P.d..V.0.1820|
00000A50: 00 5F 12 6E 05 8B 56 B2 33 32 A7 31 33 35 30 00 |._.n..V.32.1350.|
00000A60: 65 12 78 05 3A 00 85 12 82 05 8F 2A 2A 2A 2A 2A |e.x.:......*****|
00000A70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000A80: 2A 2A 2A 2A 2A 00 9E 12 8C 05 8F 20 20 20 20 20 |*****...... |
00000A90: 27 52 45 4D 20 27 20 54 4F 4B 45 4E 20 2D 00 BB |'REM ' TOKEN -..|
00000AA0: 12 96 05 8F 20 20 20 44 49 53 43 41 52 44 20 52 |.... DISCARD R|
00000AB0: 45 53 54 20 4F 46 20 4C 49 4E 45 00 DB 12 A0 05 |EST OF LINE.....|
00000AC0: 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.***************|
00000AD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 E1 12 AA 05 |***********.....|
00000AE0: 3A 00 F4 12 B4 05 8B 20 56 B3 B1 31 34 33 20 A7 |:...... V..143 .|
00000AF0: 31 35 35 30 00 08 13 BE 05 8D 32 33 33 30 3A 8B |1550......2330:.|
00000B00: 56 B1 30 A7 31 34 37 30 00 12 13 C8 05 89 31 38 |V.0.1470......18|
00000B10: 32 30 00 18 13 D2 05 3A 00 38 13 DC 05 8F 2A 2A |20.....:.8....**|
00000B20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000B30: 2A 2A 2A 2A 2A 2A 2A 2A 00 46 13 E6 05 8F 20 51 |********.F.... Q|
00000B40: 55 4F 54 45 20 2D 00 62 13 F0 05 8F 20 43 4F 50 |UOTE -.b.... COP|
00000B50: 59 20 54 49 4C 4C 20 4E 45 58 54 20 4F 52 20 45 |Y TILL NEXT OR E|
00000B60: 4F 4C 00 82 13 FA 05 8F 2A 2A 2A 2A 2A 2A 2A 2A |OL......********|
00000B70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000B80: 2A 2A 00 88 13 04 06 3A 00 99 13 0E 06 8B 20 56 |**.....:...... V|
00000B90: B3 B1 33 34 A7 31 36 39 30 00 AA 13 18 06 98 36 |..34.1690......6|
00000BA0: 2C 43 24 3B 3A 52 B2 52 AA 31 00 B4 13 22 06 8D |,C$;:R.R.1..."..|
00000BB0: 32 33 33 30 00 C5 13 2C 06 8B 20 56 B2 33 34 20 |2330...,.. V.34 |
00000BC0: A7 31 33 34 30 00 D5 13 36 06 8B 20 56 B1 30 20 |.1340...6.. V.0 |
00000BD0: A7 31 35 36 30 00 E9 13 40 06 8B 20 46 20 A7 20 |.1560...@.. F . |
00000BE0: 56 B2 30 3A 89 31 30 35 30 00 FD 13 4A 06 98 36 |V.0:.1050...J..6|
00000BF0: 2C C7 28 33 34 29 3B 3A 52 B2 52 AA 31 00 07 14 |,.(34);:R.R.1...|
00000C00: 54 06 89 31 38 32 30 00 0D 14 5E 06 3A 00 2D 14 |T..1820...^.:.-.|
00000C10: 68 06 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |h..*************|
00000C20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 4A 14 |*************.J.|
00000C30: 72 06 8F 20 49 46 20 43 4F 4C 4F 4E 2D 43 48 4B |r.. IF COLON-CHK|
00000C40: 20 4E 45 58 54 20 43 48 41 52 00 63 14 7C 06 8F | NEXT CHAR.c.|..|
00000C50: 20 20 20 20 20 45 4C 53 45 20 43 4F 50 59 20 43 | ELSE COPY C|
00000C60: 48 41 52 00 83 14 86 06 8F 2A 2A 2A 2A 2A 2A 2A |HAR......*******|
00000C70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000C80: 2A 2A 2A 00 89 14 90 06 3A 00 9B 14 9A 06 8B 20 |***.....:...... |
00000C90: 56 B3 B1 35 38 20 A7 31 33 34 30 00 A5 14 A4 06 |V..58 .1340.....|
00000CA0: 8D 32 33 33 30 00 BE 14 AE 06 8B 20 56 B2 33 32 |.2330...... V.32|
00000CB0: 20 B0 20 56 B2 35 38 20 A7 20 31 37 30 30 00 D0 | . V.58 . 1700..|
00000CC0: 14 B8 06 8B 20 56 B2 31 34 33 20 A7 31 34 37 30 |.... V.143 .1470|
00000CD0: 00 E1 14 C2 06 8B 20 56 B2 30 20 A7 20 31 38 32 |...... V.0 . 182|
00000CE0: 30 00 F3 14 CC 06 98 36 2C 22 3A 22 3B 3A 52 B2 |0......6,":";:R.|
00000CF0: 52 AA 31 00 FE 14 D6 06 89 20 31 33 36 30 00 04 |R.1...... 1360..|
00000D00: 15 E0 06 3A 00 22 15 EA 06 8F 2A 2A 2A 2A 2A 2A |...:."....******|
00000D10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000D20: 2A 2A 00 36 15 F4 06 8F 20 45 4E 44 20 4F 46 20 |**.6.... END OF |
00000D30: 4C 49 4E 45 20 2D 00 50 15 FE 06 8F 20 43 4F 4D |LINE -.P.... COM|
00000D40: 50 41 43 54 20 54 48 49 53 20 4C 49 4E 45 20 3F |PACT THIS LINE ?|
00000D50: 00 6E 15 08 07 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.n....**********|
00000D60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 74 |**************.t|
00000D70: 15 12 07 3A 00 93 15 1C 07 8B 20 46 20 B0 20 28 |...:...... F . (|
00000D80: 52 B1 31 37 30 29 20 A7 20 56 B2 30 3A 89 20 31 |R.170) . V.0:. 1|
00000D90: 30 35 30 00 9D 15 26 07 8D 32 33 31 30 00 AF 15 |050...&..2310...|
00000DA0: 30 07 8B 20 56 AA 56 31 B2 30 A7 32 32 33 30 00 |0.. V.V1.0.2230.|
00000DB0: C8 15 3A 07 8D 20 32 33 31 30 3A 4C 4E B2 56 31 |..:.. 2310:LN.V1|
00000DC0: AA 28 32 35 36 AC 56 29 00 DC 15 44 07 4C 31 B2 |.(256.V)...D.L1.|
00000DD0: 56 31 3A 4C 32 B2 56 3A 99 4C 4E 2C 00 E2 15 4E |V1:L2.V:.LN,...N|
00000DE0: 07 3A 00 01 16 58 07 8F 2A 2A 2A 2A 2A 2A 2A 2A |.:...X..********|
00000DF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000E00: 2A 00 20 16 62 07 8F 20 43 48 4B 20 49 46 20 4C |*. .b.. CHK IF L|
00000E10: 49 4E 45 23 20 49 53 20 41 20 54 41 52 47 45 54 |INE# IS A TARGET|
00000E20: 00 3F 16 6C 07 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.?.l..**********|
00000E30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00000E40: 45 16 76 07 3A 00 50 16 80 07 81 58 B2 30 A4 4E |E.v.:.P....X.0.N|
00000E50: 00 65 16 8A 07 8B 20 54 4C 28 58 29 20 B3 4C 4E |.e.... TL(X) .LN|
00000E60: 20 A7 20 82 58 00 7B 16 94 07 8B 20 54 4C 28 58 | . .X.{.... TL(X|
00000E70: 29 B2 4C 4E 20 A7 20 32 31 31 30 00 81 16 9E 07 |).LN . 2110.....|
00000E80: 3A 00 A0 16 A8 07 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |:......*********|
00000E90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000EA0: 00 B0 16 B2 07 8F 20 4E 4F 54 20 55 53 45 44 2D |...... NOT USED-|
00000EB0: 00 CC 16 BC 07 8F 20 44 49 53 43 41 52 44 20 4C |...... DISCARD L|
00000EC0: 49 4E 45 20 41 4E 44 20 4C 49 4E 4B 00 EB 16 C6 |INE AND LINK....|
00000ED0: 07 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..**************|
00000EE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 F1 16 D0 07 |***********.....|
00000EF0: 3A 00 08 17 DA 07 8D 32 33 33 30 3A 8B 56 B2 31 |:......2330:.V.1|
00000F00: 34 33 20 A7 31 34 37 30 00 1F 17 E4 07 8B 56 B2 |43 .1470......V.|
00000F10: 33 32 20 B0 20 56 B2 35 38 20 A7 32 30 31 30 00 |32 . V.58 .2010.|
00000F20: 2D 17 EE 07 8B 56 B2 30 A7 31 38 33 30 00 45 17 |-....V.0.1830.E.|
00000F30: F8 07 98 36 2C 22 3A 22 3B 3A 52 B2 52 AA 31 3A |...6,":";:R.R.1:|
00000F40: 89 31 33 36 30 00 4B 17 02 08 3A 00 69 17 0C 08 |.1360.K...:.i...|
00000F50: 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.***************|
00000F60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 7E 17 16 08 8F 20 |*********.~.... |
00000F70: 4C 49 4E 45 23 20 4E 45 45 44 45 44 20 2D 00 9E |LINE# NEEDED -..|
00000F80: 17 20 08 8F 20 57 52 49 54 45 20 4C 49 4E 45 20 |. .. WRITE LINE |
00000F90: 45 4E 44 2C 4C 49 4E 4B 20 4C 49 4E 45 23 00 BC |END,LINK LINE#..|
00000FA0: 17 2A 08 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.*..************|
00000FB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 C2 17 34 |************...4|
00000FC0: 08 3A 00 D9 17 3E 08 98 36 2C C7 28 30 29 3B C7 |.:...>..6,.(0);.|
00000FD0: 28 31 29 3B C7 28 31 29 3B 00 F1 17 48 08 98 36 |(1);.(1);...H..6|
00000FE0: 2C C7 28 4C 31 29 3B C7 28 4C 32 29 3B 3A 52 B2 |,.(L1);.(L2);:R.|
00000FF0: 34 00 FB 17 52 08 8D 32 33 33 30 00 13 18 5C 08 |4...R..2330...\.|
00001000: 8B 56 B2 33 32 20 B0 20 56 B2 35 38 20 A7 20 32 |.V.32 . V.58 . 2|
00001010: 31 33 30 00 2E 18 66 08 8B 56 B2 30 20 B0 20 56 |130...f..V.0 . V|
00001020: B2 31 34 33 20 A7 20 98 36 2C 22 3A 22 3B 00 3C |.143 . .6,":";.<|
00001030: 18 70 08 46 B2 30 3A 89 31 33 36 30 00 42 18 7A |.p.F.0:.1360.B.z|
00001040: 08 3A 00 60 18 84 08 8F 2A 2A 2A 2A 2A 2A 2A 2A |.:.`....********|
00001050: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001060: 00 77 18 8E 08 8F 20 45 4E 44 20 4F 46 20 43 4F |.w.... END OF CO|
00001070: 4D 50 41 43 54 20 2D 00 92 18 98 08 8F 20 57 52 |MPACT -...... WR|
00001080: 49 54 45 20 45 4E 44 20 4F 46 20 50 52 4F 47 52 |ITE END OF PROGR|
00001090: 41 4D 00 B0 18 A2 08 8F 2A 2A 2A 2A 2A 2A 2A 2A |AM......********|
000010A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000010B0: 00 B7 18 AC 08 8F 3A 00 CE 18 B6 08 98 36 2C C7 |......:......6,.|
000010C0: 28 30 29 3B C7 28 30 29 3B C7 28 30 29 3B 00 DE |(0);.(0);.(0);..|
000010D0: 18 C0 08 99 22 93 12 44 4F 4E 45 11 11 22 00 E8 |...."..DONE.."..|
000010E0: 18 CA 08 89 32 34 33 30 00 EE 18 D4 08 3A 00 0C |....2430.....:..|
000010F0: 19 DE 08 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |....************|
00001100: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 2A 19 E8 |************.*..|
00001110: 08 8F 2A 2A 2A 2A 2A 20 53 55 42 52 4F 55 54 49 |..***** SUBROUTI|
00001120: 4E 45 53 20 2A 2A 2A 2A 2A 2A 00 48 19 F2 08 8F |NES ******.H....|
00001130: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001140: 2A 2A 2A 2A 2A 2A 2A 2A 00 4E 19 FC 08 3A 00 5D |********.N...:.]|
00001150: 19 06 09 8D 32 33 33 30 3A 56 31 B2 56 00 63 19 |....2330:V1.V.c.|
00001160: 10 09 3A 00 74 19 1A 09 A1 23 35 2C 43 24 3A 8D |..:.t....#5,C$:.|
00001170: 32 33 37 30 00 85 19 24 09 8B 43 24 B2 22 22 A7 |2370...$..C$."".|
00001180: 56 B2 30 3A 8E 00 93 19 2E 09 56 B2 C6 28 43 24 |V.0:......V..(C$|
00001190: 29 3A 8E 00 99 19 38 09 3A 00 AE 19 42 09 84 31 |):....8.:...B..1|
000011A0: 35 2C 45 4E 2C 45 4D 24 2C 45 54 2C 45 53 00 BA |5,EN,EM$,ET,ES..|
000011B0: 19 4C 09 8B 45 4E B2 30 A7 8E 00 C0 19 56 09 3A |.L..EN.0.....V.:|
000011C0: 00 D8 19 60 09 99 3A 99 22 11 11 11 12 44 49 53 |...`..:."....DIS|
000011D0: 4B 20 45 52 52 4F 52 11 00 EA 19 6A 09 99 45 4E |K ERROR....j..EN|
000011E0: 2C 45 4D 24 2C 45 54 2C 45 53 00 F0 19 74 09 3A |,EM$,ET,ES...t.:|
000011F0: 00 FE 19 7E 09 A0 35 3A A0 36 3A A0 31 35 00 00 |...~..5:.6:.15..|
00001200: 00 7F 18 |... |
.......*********************.7....* C
OMPACTOR *.R....* 1541 VERSION
*.M.(..* BAKER ENTERPRISES *...2..*****
****************...D.:...N..:. TL(1000).
..X.:......********************.W.... R
EADY DISK FILES......*******************
*... .:......".".15)".COMPACTOR.".7....
PRINT".INPUT FILE IN DRIVE #0.".^.... PR
INT"OUTPUT FILE IN DRIVE #0.."...H.."...
....INPUT FILE NAME.";FL$...R..".SCANNIN
G FILE"......" FOR TARGET LINE......."
.O....15,8,15,"I":.2370......5,8,5,"0:".
FL$.",P,R".....:......******************
**.+.... READ LOAD ADR,LINK & LINES.E...
.********************.K.".:.[.,..2370:.2
310.Q.6..2310:.V.V1.0.790...@..2310:LN.V
1.(256.V)...J.:...T..*******************
*.A.^.. SCAN BASIC LINES...H.. FOR GOTO
GOSUB & THEN TOKENS...R..**************
******...|.:......2330......V.0 .310.5..
..V.137 . V.141 . 480.F....V..167. 390.L
...:.F....********************.~.B.. GE
T TARGET LINES...L..********************
...V.:.....LT.0......2330:.V.32.490.R...
.V.48 . V.57 . 580.....LT.(10.LT).E(C$).
.....2330:.500.....:......**************
******.3.&.. CHECK IF ALREADY FOUND.M.0.
.********************.S.:.:.^.D..X.0.N.R
.N.. TL(X).LT .710.Y.X..X...B.TL(N).LT:N
.N.1...L..LT,...V..N.1000.710.E...."..TO
O MANY TARGET LINES!".O....2430.U...:...
...*********************...... CHECK FOR
ON.GOTO/GOSUB.)....********************
*./...:.?.F..V.44 . 480.O.P.. V..32.400.
^.Z..2330:.710.D...:.....**************
*******...... SORT TARGET LINES......**
*******************.....:.I.... N.2 . 90
0.X. .. X.0. N.1...*.. Y.0. N.2...4.. TL
(Y). TL(X) . 840. .>.V.TL(Y):TL(Y).TL(X)
:TL(X).V.).H..Y,X./.R.:.P.\..***********
****************.N.F.. GET READY FOR COM
PACTOR...P..***************************.
..Z.:......".COMPACTING LINES.........."
..... 5.Z....5,8,5,"0:".FL$.",P,R"......
2370.....FO$.H(FL$,14)."/C"......15,"S0
:".FO$.)....6,8,6,"0:".FO$.",P,W".3.J..2
370.9.T.:.Z....*************************
**.T.... COPY LOAD ADDRESS......******
********************.....:...... 2310...
...6,G(V1);.D....6,G(V);:R.0.J.$.:......
**************************...8.. COPY LI
NK & LINE NUMBER.(.B..******************
********...L.:.C.V..2310:K1.V1:K2.V.].`.
F.0 : . V.V1.0 . 2230.R.J..2310:L1.V1:L2
.V...T.LN.L1.(256.L2):.LN,...~..2330....
..V.32 . V .58 . 1150......V.0 . 1200.N.
...V..143.1240......2330:.V.0.1190.....F
.1:.X.0.N...... TL(X).LN . .X...D.. TL(X
).LN .1240.$.N..1110.8.X..6,G(K1);G(K2);
.P....6,G(L1);G(L2);:R.4.D....F ..6,":";
:R.5.R...F.0:.1360.X...:......**********
****************......*** SCAN BASIC L
INE ***.X....*** & COMPACT PROGRAM ***
...(..**************************...2.:..
.<..6,C$;:R.R.1...F..2330.).P..V.137 .F.
1.B.Z..V.139 . V.167 . F.1.P.D..V.0.1820
._.N..V.32.1350.E.X.:......*************
*************...... 'REM ' TOKEN -..
.... DISCARD REST OF LINE... ..*******
*******************.....:...... V..143 .
1550......2330:.V.0.1470...H..1820...R.:
.8....**************************.F.... Q
UOTE -.B.... COPY TILL NEXT OR EOL......
**************************.....:...... V
..34.1690......6,C$;:R.R.1..."..2330.E.,
.. V.34 .1340.U.6.. V.0 .1560...@.. F .
V.0:.1050...J..6,G(34);:R.R.1...T..1820.
..^.:.-.H..**************************.J.
R.. IF COLON-CHK NEXT CHAR.C.|.. ELS
E COPY CHAR......***********************
***.....:...... V..58 .1340......2330...
... V.32 . V.58 . 1700.P.... V.143 .1470
...B.. V.0 . 1820...L..6,":";:R.R.1...V.
. 1360.....:."....**********************
**.6.... END OF LINE -.P.... COMPACT THI
S LINE ?.N....************************.T
...:...... F . (R.170) . V.0:. 1050...&.
.2310...0.. V.V1.0.2230.H.:.. 2310:LN.V1
.(256.V)...D.L1.V1:L2.V:.LN,...N.:...X..
*************************. .B.. CHK IF L
INE# IS A TARGET.?.L..******************
*******.E.V.:.P....X.0.N.E.... TL(X) .LN
. .X.{.... TL(X).LN . 2110.....:. ....*
************************...... NOT USED-
.L.... DISCARD LINE AND LINK...F..******
*******************...P.:...Z..2330:.V.1
43 .1470......V.32 . V.58 .2010.-....V.0
.1830.E....6,":";:R.R.1:.1360.K...:.I...
.************************.~.... LINE# NE
EDED -... .. WRITE LINE END,LINK LINE#..
.*..************************.B.4.:.Y.>..
6,G(0);G(1);G(1);...H..6,G(L1);G(L2);:R.
4...R..2330...\..V.32 . V.58 . 2130...F.
.V.0 . V.143 . .6,":";.<.P.F.0:.1360.B.Z
.:.`....************************.W.... E
ND OF COMPACT -...... WRITE END OF PROGR
AM......************************......:.
N....6,G(0);G(0);G(0);......"..DONE.."..
.J..2430...T.:......********************
****.*....***** SUBROUTINES ******.H....
************************.N...:.]....2330
:V1.V.C...:.T....#5,C$:.2370...$..C$."".
V.0:......V.F(C$):....8.:...B..15,EN,EM$
,ET,ES...L..EN.0.....V.:.X.`..:."....DIS
K ERROR....J..EN,EM$,ET,ES...T.:...~. 5:
6: 15....
> CLICK IMAGE PREVIEW FOR FULL MODAL