18.COMPACTOR
FILE INFORMATION
FILENAME(S): 18.COMPACTOR
FILE TYPE(S): PRG
FILE SIZE: 5.3K
FIRST SEEN: 2025-11-30 01:08:26
APPEARS ON: 2 disk(s)
FILE HASH
4fedaee33eb843cb40559aa97b878c314b1a3c76d4cf87d30383468626db5115
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FREEWARE DISK NR | 18.COMPACTOR | PRG | Treasure Chest - Wolfgang Rauprich | 12 | 9 | DOWNLOAD FILE |
| U TILITIES | 18.COMPACTOR | PRG | Treasure Chest - Wolfgang Rauprich | 12 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 16 08 64 00 8F 20 20 20 20 20 20 43 4F 4D |....d.. COM|
00000010: 50 41 43 54 4F 52 00 1C 08 6E 00 3A 00 40 08 78 |PACTOR...n.:.@.x|
00000020: 00 8F 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 |.. THIS PROGRAM |
00000030: 43 4F 4D 50 52 45 53 53 45 53 20 42 41 53 49 43 |COMPRESSES BASIC|
00000040: 00 5F 08 82 00 8F 20 50 52 4F 47 52 41 4D 53 20 |._.... PROGRAMS |
00000050: 49 4E 54 4F 20 52 45 53 54 52 49 43 54 45 44 00 |INTO RESTRICTED.|
00000060: 83 08 8C 00 8F 20 4D 45 4D 4F 52 59 20 53 50 41 |..... MEMORY SPA|
00000070: 43 45 53 2E 20 49 54 20 53 48 4F 55 4C 44 20 57 |CES. IT SHOULD W|
00000080: 4F 52 4B 00 A3 08 96 00 8F 20 4F 4E 20 41 4E 59 |ORK...... ON ANY|
00000090: 20 43 4F 4D 4D 4F 44 4F 52 45 20 43 4F 4D 50 55 | COMMODORE COMPU|
000000A0: 54 45 52 00 A9 08 A0 00 3A 00 AF 08 FA 00 3A 00 |TER.....:.....:.|
000000B0: C8 08 04 01 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..... **********|
000000C0: 2A 2A 2A 2A 2A 2A 2A 2A 00 E1 08 0E 01 8F 20 43 |********...... C|
000000D0: 48 45 43 4B 20 4D 41 43 48 49 4E 45 20 54 59 50 |HECK MACHINE TYP|
000000E0: 45 00 FA 08 18 01 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |E...... ********|
000000F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 00 09 22 01 3A |**********...".:|
00000100: 00 10 09 2C 01 50 4B B2 C2 28 35 37 33 34 35 29 |...,.PK..(57345)|
00000110: 00 43 09 36 01 53 4B B2 35 36 3A 8B 20 50 4B B2 |.C.6.SK.56:. PK.|
00000120: 37 32 20 B0 20 50 4B B2 31 32 37 20 B0 20 50 4B |72 . PK.127 . PK|
00000130: B2 35 34 20 B0 20 50 4B B2 37 35 20 A7 20 53 4B |.54 . PK.75 . SK|
00000140: B2 35 33 00 49 09 40 01 3A 00 65 09 4A 01 8F 20 |.53.I.@.:.e.J.. |
00000150: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000160: 2A 2A 2A 2A 2A 00 7F 09 54 01 8F 20 20 20 53 45 |*****...T.. SE|
00000170: 54 20 55 50 20 46 4C 41 47 20 53 50 41 43 45 00 |T UP FLAG SPACE.|
00000180: 9B 09 5E 01 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..^.. **********|
00000190: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 A1 09 68 01 |***********...h.|
000001A0: 3A 00 C9 09 72 01 53 41 B2 32 35 36 AC C2 28 53 |:...r.SA.256..(S|
000001B0: 4B 29 3A 8B 20 C2 28 53 41 AA 38 30 30 30 29 B2 |K):. .(SA.8000).|
000001C0: 32 35 34 20 A7 20 34 31 30 00 E4 09 7C 01 97 20 |254 . 410...|.. |
000001D0: 53 4B 2C C2 28 53 4B 29 AB 33 32 3A 97 20 53 4B |SK,.(SK).32:. SK|
000001E0: AB 31 2C 30 00 FD 09 86 01 97 20 32 35 36 AC C2 |.1,0...... 256..|
000001F0: 28 53 4B 29 AA 38 30 30 30 2C 32 35 34 00 03 0A |(SK).8000,254...|
00000200: 90 01 8A 00 1F 0A 9A 01 99 20 22 93 49 4E 49 54 |......... ".INIT|
00000210: 49 41 4C 49 5A 49 4E 47 2E 2E 2E 2E 2E 2E 22 00 |IALIZING......".|
00000220: 3C 0A A4 01 81 20 49 B2 53 41 20 A4 20 53 41 AA |<.... I.SA . SA.|
00000230: 37 39 39 39 3A 97 20 49 2C 30 3A 82 00 5C 0A AE |7999:. I,0:..\..|
00000240: 01 86 20 54 28 37 29 3A 81 20 49 B2 30 20 A4 20 |.. T(7):. I.0 . |
00000250: 37 3A 54 28 49 29 B2 32 AE 49 3A 82 00 62 0A B8 |7:T(I).2.I:..b..|
00000260: 01 3A 00 79 0A C2 01 8F 20 2A 2A 2A 2A 2A 2A 2A |.:.y.... *******|
00000270: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 90 0A CC 01 8F 20 |*********...... |
00000280: 52 45 41 44 59 20 44 49 53 4B 20 46 49 4C 45 53 |READY DISK FILES|
00000290: 00 A7 0A D6 01 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |...... *********|
000002A0: 2A 2A 2A 2A 2A 2A 2A 00 AD 0A E0 01 3A 00 DD 0A |*******.....:...|
000002B0: EA 01 99 20 22 93 27 53 51 55 45 45 5A 45 52 27 |... ".'SQUEEZER'|
000002C0: 20 2D 20 4D 4F 44 49 46 49 45 44 20 46 52 4F 4D | - MODIFIED FROM|
000002D0: 20 27 43 4F 4D 50 41 43 54 4F 52 27 22 00 05 0B | 'COMPACTOR'"...|
000002E0: F4 01 99 20 22 11 11 54 48 49 53 20 50 52 4F 47 |... "..THIS PROG|
000002F0: 52 41 4D 20 27 53 51 55 45 45 5A 45 53 27 20 42 |RAM 'SQUEEZES' B|
00000300: 41 53 49 43 22 00 2C 0B FE 01 99 20 22 50 52 4F |ASIC".,.... "PRO|
00000310: 47 52 41 4D 53 20 49 4E 54 4F 20 52 45 44 55 43 |GRAMS INTO REDUC|
00000320: 45 44 20 53 50 41 43 45 20 42 59 22 00 5D 0B 08 |ED SPACE BY".]..|
00000330: 02 99 20 22 44 45 4C 45 54 49 4E 47 20 27 52 45 |.. "DELETING 'RE|
00000340: 4D 27 53 2C 20 4C 45 4E 47 54 48 45 4E 49 4E 47 |M'S, LENGTHENING|
00000350: 20 4C 49 4E 45 53 2C 20 45 54 43 2E 22 00 7C 0B | LINES, ETC.".|.|
00000360: 12 02 99 3A 99 3A 85 20 22 49 4E 50 55 54 20 46 |...:.:. "INPUT F|
00000370: 49 4C 45 4E 41 4D 45 22 3B 46 49 24 00 92 0B 1C |ILENAME";FI$....|
00000380: 02 99 3A 99 20 22 44 52 49 56 45 20 23 20 3F 20 |..:. "DRIVE # ? |
00000390: 22 3B 00 B6 0B 26 02 A1 20 49 44 24 3A 8B 20 49 |";...&.. ID$:. I|
000003A0: 44 24 B3 22 30 22 20 B0 20 49 44 24 B1 22 31 22 |D$."0" . ID$."1"|
000003B0: 20 A7 20 35 35 30 00 C0 0B 30 02 99 20 49 44 24 | . 550...0.. ID$|
000003C0: 00 E0 0B 3A 02 99 3A 99 3A 85 20 22 4F 55 54 50 |...:..:.:. "OUTP|
000003D0: 55 54 20 46 49 4C 45 4E 41 4D 45 22 3B 4F 46 24 |UT FILENAME";OF$|
000003E0: 00 F6 0B 44 02 99 3A 99 20 22 44 52 49 56 45 20 |...D..:. "DRIVE |
000003F0: 23 20 3F 20 22 3B 00 1A 0C 4E 02 A1 20 4F 44 24 |# ? ";...N.. OD$|
00000400: 3A 8B 20 4F 44 24 B3 22 30 22 20 B0 20 4F 44 24 |:. OD$."0" . OD$|
00000410: B1 22 31 22 20 A7 20 35 39 30 00 24 0C 58 02 99 |."1" . 590.$.X..|
00000420: 20 4F 44 24 00 2A 0C 62 02 3A 00 3C 0C 6C 02 8F | OD$.*.b.:.<.l..|
00000430: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 4E 0C 76 | ***********.N.v|
00000440: 02 8F 20 52 45 41 44 59 20 54 4F 20 47 4F 00 60 |.. READY TO GO.`|
00000450: 0C 80 02 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.... ***********|
00000460: 00 66 0C 8A 02 3A 00 7B 0C 94 02 99 22 93 53 43 |.f...:.{....".SC|
00000470: 41 4E 4E 49 4E 47 20 46 49 4C 45 00 9C 0C 9E 02 |ANNING FILE.....|
00000480: 99 22 20 20 20 46 4F 52 20 54 41 52 47 45 54 20 |." FOR TARGET |
00000490: 4C 49 4E 45 53 2E 2E 2E 2E 2E 11 11 00 B1 0C A8 |LINES...........|
000004A0: 02 9F 20 31 35 2C 38 2C 31 35 3A 8D 20 32 37 32 |.. 15,8,15:. 272|
000004B0: 30 00 D0 0C B2 02 9F 20 35 2C 38 2C 35 2C 49 44 |0...... 5,8,5,ID|
000004C0: 24 AA 22 3A 22 AA 46 49 24 AA 22 2C 50 2C 52 22 |$.":".FI$.",P,R"|
000004D0: 00 D6 0C BC 02 3A 00 F8 0C C6 02 8F 20 2A 2A 2A |.....:...... ***|
000004E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000004F0: 2A 2A 2A 2A 2A 2A 2A 2A 00 1A 0D D0 02 8F 20 52 |********...... R|
00000500: 45 41 44 20 4C 4F 41 44 20 41 44 52 2C 20 4C 49 |EAD LOAD ADR, LI|
00000510: 4E 4B 20 26 20 4C 49 4E 45 23 00 3C 0D DA 02 8F |NK & LINE#.<....|
00000520: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
00000530: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 42 0D E4 |************.B..|
00000540: 02 3A 00 56 0D EE 02 8D 20 32 37 32 30 20 3A 20 |.:.V.... 2720 : |
00000550: 8D 20 32 36 36 30 00 73 0D F8 02 8D 20 32 36 36 |. 2660.s.... 266|
00000560: 30 20 3A 20 8B 20 56 AA 56 31 B2 30 20 A7 20 31 |0 : . V.V1.0 . 1|
00000570: 32 32 30 00 8E 0D 02 03 8D 20 32 36 36 30 20 3A |220...... 2660 :|
00000580: 20 4C 4E B2 56 31 AA 28 32 35 36 AC 56 29 00 94 | LN.V1.(256.V)..|
00000590: 0D 0C 03 3A 00 B9 0D 16 03 8F 20 2A 2A 2A 2A 2A |...:...... *****|
000005A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000005B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 D7 0D 20 03 8F 20 |*********... .. |
000005C0: 20 20 20 20 20 20 20 53 43 41 4E 20 42 41 53 49 | SCAN BASI|
000005D0: 43 20 4C 49 4E 45 53 00 FC 0D 2A 03 8F 20 46 4F |C LINES...*.. FO|
000005E0: 52 20 47 4F 54 4F 2C 20 47 4F 53 55 42 2C 20 26 |R GOTO, GOSUB, &|
000005F0: 20 54 48 45 4E 20 54 4F 4B 45 4E 53 00 21 0E 34 | THEN TOKENS.!.4|
00000600: 03 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.. *************|
00000610: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000620: 2A 00 27 0E 3E 03 3A 00 32 0E 48 03 8D 20 32 36 |*.'.>.:.2.H.. 26|
00000630: 38 30 00 42 0E 52 03 8B 20 56 B2 30 20 A7 20 37 |80.B.R.. V.0 . 7|
00000640: 36 30 00 5C 0E 5C 03 8B 20 56 B2 31 33 37 20 B0 |60.\.\.. V.137 .|
00000650: 20 56 B2 31 34 31 20 A7 20 39 33 30 00 6F 0E 66 | V.141 . 930.o.f|
00000660: 03 8B 20 56 B3 B1 31 36 37 20 A7 20 38 34 30 00 |.. V..167 . 840.|
00000670: 75 0E 70 03 3A 00 8C 0E 7A 03 8F 20 2A 2A 2A 2A |u.p.:...z.. ****|
00000680: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 A3 0E 84 |************....|
00000690: 03 8F 20 47 45 54 20 54 41 52 47 45 54 20 4C 49 |.. GET TARGET LI|
000006A0: 4E 45 23 00 BA 0E 8E 03 8F 20 2A 2A 2A 2A 2A 2A |NE#...... ******|
000006B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 C0 0E 98 03 3A |**********.....:|
000006C0: 00 C9 0E A2 03 4C 54 B2 30 00 E3 0E AC 03 8D 20 |.....LT.0...... |
000006D0: 32 36 38 30 20 3A 20 8B 20 56 B2 33 32 20 A7 20 |2680 : . V.32 . |
000006E0: 39 34 30 00 FC 0E B6 03 8B 20 56 B3 34 38 20 B0 |940...... V.48 .|
000006F0: 20 56 B1 35 37 20 A7 20 31 30 33 30 00 11 0F C0 | V.57 . 1030....|
00000700: 03 4C 54 B2 28 31 30 AC 4C 54 29 AA C5 28 43 24 |.LT.(10.LT)..(C$|
00000710: 29 00 24 0F CA 03 8D 20 32 36 38 30 20 3A 20 89 |).$.... 2680 : .|
00000720: 20 39 35 30 00 2A 0F D4 03 3A 00 42 0F DE 03 8F | 950.*...:.B....|
00000730: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
00000740: 2A 2A 00 5A 0F E8 03 8F 20 46 4C 41 47 20 54 41 |**.Z.... FLAG TA|
00000750: 52 47 45 54 20 4C 49 4E 45 53 00 72 0F F2 03 8F |RGET LINES.r....|
00000760: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
00000770: 2A 2A 00 78 0F FC 03 3A 00 8A 0F 06 04 8B 20 4C |**.x...:...... L|
00000780: 54 B2 30 20 A7 20 31 31 34 30 00 99 0F 10 04 42 |T.0 . 1140.....B|
00000790: 59 B2 B5 28 4C 54 AD 38 29 00 A7 0F 1A 04 5A B2 |Y..(LT.8).....Z.|
000007A0: 4C 54 AB 38 AC 42 59 00 B4 0F 24 04 41 44 B2 42 |LT.8.BY...$.AD.B|
000007B0: 59 AA 53 41 00 CA 0F 2E 04 97 20 41 44 2C C2 28 |Y.SA...... AD,.(|
000007C0: 41 44 29 20 B0 20 54 28 5A 29 00 D4 0F 38 04 99 |AD) . T(Z)...8..|
000007D0: 20 4C 54 2C 00 DA 0F 42 04 3A 00 FC 0F 4C 04 8F | LT,...B.:...L..|
000007E0: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
000007F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 1E 10 56 |************...V|
00000800: 04 8F 20 43 48 45 43 4B 20 46 4F 52 20 27 4F 4E |.. CHECK FOR 'ON|
00000810: 2E 2E 2E 47 4F 54 4F 2F 47 4F 53 55 42 27 00 40 |...GOTO/GOSUB'.@|
00000820: 10 60 04 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.`.. ***********|
00000830: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000840: 00 46 10 6A 04 3A 00 57 10 74 04 8B 20 56 B2 34 |.F.j.:.W.t.. V.4|
00000850: 34 20 A7 20 39 33 30 00 69 10 7E 04 8B 20 56 B3 |4 . 930.i.~.. V.|
00000860: B1 33 32 20 A7 20 38 35 30 00 7D 10 88 04 8D 20 |.32 . 850.}.... |
00000870: 32 36 38 30 20 3A 20 89 20 31 31 34 30 00 83 10 |2680 : . 1140...|
00000880: 92 04 3A 00 9F 10 9C 04 8F 20 2A 2A 2A 2A 2A 2A |..:...... ******|
00000890: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
000008A0: BB 10 A6 04 8F 20 47 45 54 20 52 45 41 44 59 20 |..... GET READY |
000008B0: 46 4F 52 20 43 4F 4D 50 41 43 54 00 D7 10 B0 04 |FOR COMPACT.....|
000008C0: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
000008D0: 2A 2A 2A 2A 2A 2A 2A 00 DD 10 BA 04 3A 00 FC 10 |*******.....:...|
000008E0: C4 04 99 20 22 93 43 4F 4D 50 41 43 54 49 4E 47 |... ".COMPACTING|
000008F0: 20 4C 49 4E 45 53 2E 2E 2E 2E 11 11 00 04 11 CE | LINES..........|
00000900: 04 A0 20 35 00 23 11 D8 04 9F 20 35 2C 38 2C 35 |.. 5.#.... 5,8,5|
00000910: 2C 49 44 24 AA 22 3A 22 AA 46 49 24 AA 22 2C 50 |,ID$.":".FI$.",P|
00000920: 2C 52 22 00 2E 11 E2 04 8D 20 32 37 32 30 00 45 |,R"...... 2720.E|
00000930: 11 EC 04 46 4F 24 B2 C8 28 46 4C 24 2C 31 34 29 |...FO$..(FL$,14)|
00000940: AA 22 2F 43 22 00 57 11 F6 04 98 31 35 2C 22 53 |."/C".W....15,"S|
00000950: 31 3A 22 AA 46 4F 24 00 76 11 00 05 9F 20 36 2C |1:".FO$.v.... 6,|
00000960: 38 2C 36 2C 4F 44 24 AA 22 3A 22 AA 4F 46 24 AA |8,6,OD$.":".OF$.|
00000970: 22 2C 50 2C 57 22 00 81 11 0A 05 8D 20 32 37 32 |",P,W"...... 272|
00000980: 30 00 87 11 14 05 3A 00 9C 11 1E 05 8F 20 20 2A |0.....:...... *|
00000990: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 B0 11 28 |************...(|
000009A0: 05 8F 20 43 4F 50 59 20 4C 4F 41 44 20 41 44 52 |.. COPY LOAD ADR|
000009B0: 00 C4 11 32 05 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |...2.. *********|
000009C0: 2A 2A 2A 2A 00 CA 11 3C 05 3A 00 D5 11 46 05 8D |****...<.:...F..|
000009D0: 20 32 36 36 30 00 E3 11 50 05 98 36 2C C7 28 56 | 2660...P..6,.(V|
000009E0: 31 29 3B 00 F5 11 5A 05 98 36 2C C7 28 56 29 3B |1);...Z..6,.(V);|
000009F0: 3A 20 52 B2 30 00 FB 11 64 05 3A 00 1B 12 6E 05 |: R.0...d.:...n.|
00000A00: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
00000A10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 3B 12 78 05 |***********.;.x.|
00000A20: 8F 20 43 4F 50 59 20 4C 49 4E 4B 20 41 4E 44 20 |. COPY LINK AND |
00000A30: 4C 49 4E 45 20 4E 55 4D 42 45 52 00 5B 12 82 05 |LINE NUMBER.[...|
00000A40: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
00000A50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 61 12 8C 05 |***********.a...|
00000A60: 3A 00 7A 12 96 05 8D 20 32 36 36 30 20 3A 20 4B |:.z.... 2660 : K|
00000A70: 31 B2 56 31 20 3A 4B 32 B2 56 00 93 12 A0 05 46 |1.V1 :K2.V.....F|
00000A80: B2 30 20 3A 8B 20 56 AA 56 31 B2 30 20 A7 20 32 |.0 :. V.V1.0 . 2|
00000A90: 35 38 30 00 AD 12 AA 05 8D 20 32 36 36 30 20 3A |580...... 2660 :|
00000AA0: 20 4C 31 B2 56 31 20 3A 20 4C 32 B2 56 00 C8 12 | L1.V1 : L2.V...|
00000AB0: B4 05 4C 4E B2 4C 31 AA 28 32 35 36 AC 4C 32 29 |..LN.L1.(256.L2)|
00000AC0: 20 3A 20 99 20 4C 4E 2C 00 D3 12 BE 05 8D 20 32 | : . LN,...... 2|
00000AD0: 36 38 30 00 EC 12 C8 05 8B 20 56 B2 33 32 20 B0 |680...... V.32 .|
00000AE0: 20 56 B2 35 38 20 A7 20 31 34 37 30 00 FD 12 D2 | V.58 . 1470....|
00000AF0: 05 8B 20 56 B2 30 20 A7 20 31 35 32 30 00 11 13 |.. V.0 . 1520...|
00000B00: DC 05 8B 20 56 B3 B1 31 34 33 20 A7 20 31 35 38 |... V..143 . 158|
00000B10: 30 00 2B 13 E6 05 8D 20 32 36 38 30 20 3A 20 8B |0.+.... 2680 : .|
00000B20: 20 56 B1 30 20 A7 20 31 35 31 30 00 33 13 F0 05 | V.0 . 1510.3...|
00000B30: 46 B2 31 00 42 13 FA 05 42 59 B2 B5 28 4C 4E AD |F.1.B...BY..(LN.|
00000B40: 38 29 00 50 13 04 06 5A B2 4C 4E AB 38 AC 42 59 |8).P...Z.LN.8.BY|
00000B50: 00 5D 13 0E 06 41 44 B2 42 59 AA 53 41 00 79 13 |.]...AD.BY.SA.y.|
00000B60: 18 06 8B 20 28 54 28 5A 29 20 AF 20 C2 28 41 44 |... (T(Z) . .(AD|
00000B70: 29 29 20 A7 20 31 35 38 30 00 84 13 22 06 89 20 |)) . 1580...".. |
00000B80: 31 34 33 30 00 98 13 2C 06 98 36 2C C7 28 4B 31 |1430...,..6,.(K1|
00000B90: 29 3B C7 28 4B 32 29 3B 00 B2 13 36 06 98 36 2C |);.(K2);...6..6,|
00000BA0: C7 28 4C 31 29 3B C7 28 4C 32 29 3B 20 3A 20 52 |.(L1);.(L2); : R|
00000BB0: B2 34 00 CD 13 40 06 3A 20 20 8B 20 46 20 A7 20 |.4...@.: . F . |
00000BC0: 98 36 2C 22 3A 22 3B 20 3A 20 52 B2 35 00 DE 13 |.6,":"; : R.5...|
00000BD0: 4A 06 46 B2 30 20 3A 20 89 20 31 37 30 30 00 E4 |J.F.0 : . 1700..|
00000BE0: 13 54 06 3A 00 06 14 5E 06 8F 20 2A 2A 2A 2A 2A |.T.:...^.. *****|
00000BF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000C00: 2A 2A 2A 2A 2A 2A 00 28 14 68 06 8F 20 2A 2A 2A |******.(.h.. ***|
00000C10: 2A 20 20 53 43 41 4E 20 42 41 53 49 43 20 4C 49 |* SCAN BASIC LI|
00000C20: 4E 45 20 20 2A 2A 2A 2A 00 4A 14 72 06 8F 20 2A |NE ****.J.r.. *|
00000C30: 2A 2A 2A 20 26 20 43 4F 4D 50 41 43 54 20 50 52 |*** & COMPACT PR|
00000C40: 4F 47 52 41 4D 20 2A 2A 2A 2A 00 6C 14 7C 06 8F |OGRAM ****.l.|..|
00000C50: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
00000C60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 72 14 86 |************.r..|
00000C70: 06 3A 00 85 14 90 06 98 36 2C 43 24 3B 20 3A 20 |.:......6,C$; : |
00000C80: 52 B2 52 AA 31 00 90 14 9A 06 8D 20 32 36 38 30 |R.R.1...... 2680|
00000C90: 00 A5 14 A4 06 3A 20 20 8B 20 56 B2 31 33 37 20 |.....: . V.137 |
00000CA0: A7 20 46 B2 31 00 C2 14 AE 06 3A 20 20 8B 20 56 |. F.1.....: . V|
00000CB0: B2 31 33 39 20 B0 20 56 B2 31 36 37 20 A7 20 46 |.139 . V.167 . F|
00000CC0: B2 31 00 D6 14 B8 06 3A 20 20 8B 20 56 B2 30 20 |.1.....: . V.0 |
00000CD0: A7 20 32 31 36 30 00 EB 14 C2 06 3A 20 20 8B 20 |. 2160.....: . |
00000CE0: 56 B2 33 32 20 A7 20 31 36 39 30 00 F1 14 CC 06 |V.32 . 1690.....|
00000CF0: 3A 00 0C 15 D6 06 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |:...... ********|
00000D00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 20 15 E0 |************. ..|
00000D10: 06 8F 20 27 52 45 4D 27 20 54 4F 4B 45 4E 20 2D |.. 'REM' TOKEN -|
00000D20: 00 3B 15 EA 06 8F 20 44 49 53 43 41 52 44 20 52 |.;.... DISCARD R|
00000D30: 45 53 54 20 4F 46 20 4C 49 4E 45 00 56 15 F4 06 |EST OF LINE.V...|
00000D40: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
00000D50: 2A 2A 2A 2A 2A 2A 00 5C 15 FE 06 3A 00 70 15 08 |******.\...:.p..|
00000D60: 07 8B 20 56 B3 B1 31 34 33 20 A7 20 31 38 39 30 |.. V..143 . 1890|
00000D70: 00 8A 15 12 07 8D 20 32 36 38 30 20 3A 20 8B 20 |...... 2680 : . |
00000D80: 56 B1 30 20 A7 20 31 38 31 30 00 95 15 1C 07 89 |V.0 . 1810......|
00000D90: 20 32 31 36 30 00 9B 15 26 07 3A 00 BC 15 30 07 | 2160...&.:...0.|
00000DA0: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
00000DB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 CA 15 3A |************...:|
00000DC0: 07 8F 20 51 55 4F 54 45 20 2D 00 EB 15 44 07 8F |.. QUOTE -...D..|
00000DD0: 20 43 4F 50 59 20 54 49 4C 4C 20 4E 45 58 54 20 | COPY TILL NEXT |
00000DE0: 4F 52 20 4C 49 4E 45 20 45 4E 44 00 0C 16 4E 07 |OR LINE END...N.|
00000DF0: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
00000E00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 12 16 58 |************...X|
00000E10: 07 3A 00 25 16 62 07 8B 20 56 B3 B1 33 34 20 A7 |.:.%.b.. V..34 .|
00000E20: 20 32 30 33 30 00 38 16 6C 07 98 36 2C 43 24 3B | 2030.8.l..6,C$;|
00000E30: 20 3A 20 52 B2 52 AA 31 00 43 16 76 07 8D 20 32 | : R.R.1.C.v.. 2|
00000E40: 36 38 30 00 55 16 80 07 8B 20 56 B2 33 34 20 A7 |680.U.... V.34 .|
00000E50: 20 31 36 38 30 00 66 16 8A 07 8B 20 56 B1 30 20 | 1680.f.... V.0 |
00000E60: A7 20 31 39 30 30 00 7D 16 94 07 8B 20 46 20 A7 |. 1900.}.... F .|
00000E70: 20 56 B2 30 20 3A 20 89 20 31 33 37 30 00 93 16 | V.0 : . 1370...|
00000E80: 9E 07 98 36 2C C7 28 33 34 29 3B 20 3A 20 52 B2 |...6,.(34); : R.|
00000E90: 52 AA 31 00 9E 16 A8 07 89 20 32 31 36 30 00 A4 |R.1...... 2160..|
00000EA0: 16 B2 07 3A 00 C3 16 BC 07 8F 20 2A 2A 2A 2A 2A |...:...... *****|
00000EB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000EC0: 2A 2A 2A 00 E2 16 C6 07 8F 20 49 46 20 43 4F 4C |***...... IF COL|
00000ED0: 4F 4E 20 2D 20 43 48 4B 20 4E 45 58 54 20 43 48 |ON - CHK NEXT CH|
00000EE0: 41 52 00 FC 16 D0 07 8F 20 20 20 20 20 20 45 4C |AR...... EL|
00000EF0: 53 45 20 43 4F 50 59 20 43 48 41 52 00 1B 17 DA |SE COPY CHAR....|
00000F00: 07 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.. *************|
00000F10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 21 17 E4 07 |***********.!...|
00000F20: 3A 00 34 17 EE 07 8B 20 56 B3 B1 35 38 20 A7 20 |:.4.... V..58 . |
00000F30: 31 36 38 30 00 3F 17 F8 07 8D 20 32 36 38 30 00 |1680.?.... 2680.|
00000F40: 58 17 02 08 8B 20 56 B2 33 32 20 B0 20 56 B2 35 |X.... V.32 . V.5|
00000F50: 38 20 A7 20 32 30 34 30 00 6B 17 0C 08 8B 20 56 |8 . 2040.k.... V|
00000F60: B2 31 34 33 20 A7 20 31 38 31 30 00 7C 17 16 08 |.143 . 1810.|...|
00000F70: 8B 20 56 B2 30 20 A7 20 32 31 36 30 00 90 17 20 |. V.0 . 2160... |
00000F80: 08 98 36 2C 22 3A 22 3B 20 3A 20 52 B2 52 AA 31 |..6,":"; : R.R.1|
00000F90: 00 9B 17 2A 08 89 20 31 37 30 30 00 A1 17 34 08 |...*.. 1700...4.|
00000FA0: 3A 00 C4 17 3E 08 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |:...>.. ********|
00000FB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000FC0: 2A 2A 2A 2A 00 D8 17 48 08 8F 20 45 4E 44 20 4F |****...H.. END O|
00000FD0: 46 20 4C 49 4E 45 20 2D 00 FB 17 52 08 8F 20 43 |F LINE -...R.. C|
00000FE0: 41 4E 20 57 45 20 43 4F 4D 50 41 43 54 20 54 48 |AN WE COMPACT TH|
00000FF0: 45 53 45 20 4C 49 4E 45 53 20 3F 00 1E 18 5C 08 |ESE LINES ?...\.|
00001000: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
00001010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 24 |**************.$|
00001020: 18 66 08 3A 00 43 18 70 08 8B 20 46 20 B0 20 28 |.f.:.C.p.. F . (|
00001030: 52 B1 31 37 30 29 20 A7 20 56 B2 30 3A 89 20 31 |R.170) . V.0:. 1|
00001040: 33 37 30 00 4E 18 7A 08 8D 20 32 36 36 30 00 62 |370.N.z.. 2660.b|
00001050: 18 84 08 8B 20 56 AA 56 31 B2 30 20 A7 20 32 35 |.... V.V1.0 . 25|
00001060: 38 30 00 7D 18 8E 08 8D 20 32 36 36 30 20 3A 20 |80.}.... 2660 : |
00001070: 4C 4E B2 56 31 AA 28 32 35 36 AC 56 29 00 96 18 |LN.V1.(256.V)...|
00001080: 98 08 4C 31 B2 56 31 20 3A 20 4C 32 B2 56 20 3A |..L1.V1 : L2.V :|
00001090: 20 99 20 4C 4E 2C 00 9C 18 A2 08 3A 00 BB 18 AC | . LN,.....:....|
000010A0: 08 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.. *************|
000010B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 DA 18 B6 08 |***********.....|
000010C0: 8F 20 43 48 4B 20 49 46 20 4C 49 4E 45 23 20 49 |. CHK IF LINE# I|
000010D0: 53 20 41 20 54 41 52 47 45 54 00 F9 18 C0 08 8F |S A TARGET......|
000010E0: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
000010F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 FF 18 CA 08 3A 00 |*********.....:.|
00001100: 0E 19 D4 08 42 59 B2 B5 28 4C 4E AD 38 29 00 1C |....BY..(LN.8)..|
00001110: 19 DE 08 5A B2 4C 4E AB 38 AC 42 59 00 29 19 E8 |...Z.LN.8.BY.)..|
00001120: 08 41 44 B2 42 59 AA 53 41 00 45 19 F2 08 8B 20 |.AD.BY.SA.E.... |
00001130: 28 54 28 5A 29 20 AF 20 C2 28 41 44 29 29 20 A7 |(T(Z) . .(AD)) .|
00001140: 20 32 34 36 30 00 4B 19 FC 08 3A 00 66 19 06 09 | 2460.K...:.f...|
00001150: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
00001160: 2A 2A 2A 2A 2A 2A 00 77 19 10 09 8F 20 4E 4F 54 |******.w.... NOT|
00001170: 20 55 53 45 44 20 2D 00 92 19 1A 09 8F 20 44 49 | USED -...... DI|
00001180: 53 43 41 52 44 20 4C 49 4E 4B 20 26 20 4C 49 4E |SCARD LINK & LIN|
00001190: 45 23 00 AD 19 24 09 8F 20 2A 2A 2A 2A 2A 2A 2A |E#...$.. *******|
000011A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 B3 19 |*************...|
000011B0: 2E 09 3A 00 CF 19 38 09 8D 20 32 36 38 30 20 3A |..:...8.. 2680 :|
000011C0: 20 8B 20 56 B2 31 34 33 20 A7 20 31 38 31 30 00 | . V.143 . 1810.|
000011D0: E8 19 42 09 8B 20 56 B2 33 32 20 B0 20 56 B2 35 |..B.. V.32 . V.5|
000011E0: 38 20 A7 20 32 33 36 30 00 F9 19 4C 09 8B 20 56 |8 . 2360...L.. V|
000011F0: B2 30 20 A7 20 32 31 37 30 00 16 1A 56 09 98 36 |.0 . 2170...V..6|
00001200: 2C 22 3A 22 3B 20 3A 20 52 B2 52 AA 31 20 3A 20 |,":"; : R.R.1 : |
00001210: 89 20 31 37 30 30 00 1C 1A 60 09 3A 00 3F 1A 6A |. 1700...`.:.?.j|
00001220: 09 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.. *************|
00001230: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00001240: 54 1A 74 09 8F 20 4C 49 4E 45 23 20 4E 45 45 44 |T.t.. LINE# NEED|
00001250: 45 44 20 2D 00 77 1A 7E 09 8F 20 57 52 49 54 45 |ED -.w.~.. WRITE|
00001260: 20 4C 49 4E 45 20 45 4E 44 2C 20 4C 49 4E 4B 20 | LINE END, LINK |
00001270: 26 20 4C 49 4E 45 23 00 9A 1A 88 09 8F 20 2A 2A |& LINE#...... **|
00001280: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001290: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 A0 1A 92 09 3A |**********.....:|
000012A0: 00 B7 1A 9C 09 98 36 2C C7 28 30 29 3B C7 28 31 |......6,.(0);.(1|
000012B0: 29 3B C7 28 31 29 3B 00 D1 1A A6 09 98 36 2C C7 |);.(1);......6,.|
000012C0: 28 4C 31 29 3B C7 28 4C 32 29 3B 20 3A 20 52 B2 |(L1);.(L2); : R.|
000012D0: 34 00 DC 1A B0 09 8D 20 32 36 38 30 00 F5 1A BA |4...... 2680....|
000012E0: 09 8B 20 56 B2 33 32 20 B0 20 56 B2 35 38 20 A7 |.. V.32 . V.58 .|
000012F0: 20 32 34 38 30 00 11 1B C4 09 8B 20 56 B2 30 20 | 2480...... V.0 |
00001300: B0 20 56 B2 31 34 33 20 A7 20 98 36 2C 22 3A 22 |. V.143 . .6,":"|
00001310: 3B 00 22 1B CE 09 46 B2 30 20 3A 20 89 20 31 37 |;."...F.0 : . 17|
00001320: 30 30 00 28 1B D8 09 3A 00 43 1B E2 09 8F 20 2A |00.(...:.C.... *|
00001330: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001340: 2A 2A 2A 00 5A 1B EC 09 8F 20 45 4E 44 20 4F 46 |***.Z.... END OF|
00001350: 20 43 4F 4D 50 41 43 54 20 2D 00 75 1B F6 09 8F | COMPACT -.u....|
00001360: 20 57 52 49 54 45 20 45 4E 44 20 4F 46 20 50 52 | WRITE END OF PR|
00001370: 4F 47 52 41 4D 00 90 1B 00 0A 8F 20 2A 2A 2A 2A |OGRAM...... ****|
00001380: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001390: 00 96 1B 0A 0A 3A 00 AD 1B 14 0A 98 36 2C C7 28 |.....:......6,.(|
000013A0: 30 29 3B C7 28 30 29 3B C7 28 30 29 3B 00 C0 1B |0);.(0);.(0);...|
000013B0: 1E 0A 99 22 93 11 11 11 12 44 4F 4E 45 11 11 22 |...".....DONE.."|
000013C0: 00 CB 1B 28 0A 89 20 32 37 38 30 00 D1 1B 32 0A |...(.. 2780...2.|
000013D0: 3A 00 F0 1B 3C 0A 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |:...<.. ********|
000013E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000013F0: 00 0F 1C 46 0A 8F 20 2A 2A 2A 2A 2A 20 20 53 55 |...F.. ***** SU|
00001400: 42 52 4F 55 54 49 4E 45 53 20 2A 2A 2A 2A 2A 00 |BROUTINES *****.|
00001410: 2E 1C 50 0A 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..P.. **********|
00001420: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 34 |**************.4|
00001430: 1C 5A 0A 3A 00 46 1C 64 0A 8D 20 32 36 38 30 20 |.Z.:.F.d.. 2680 |
00001440: 3A 20 56 31 B2 56 00 4C 1C 6E 0A 3A 00 60 1C 78 |: V1.V.L.n.:.`.x|
00001450: 0A A1 23 35 2C 43 24 20 3A 20 8D 20 32 37 32 30 |..#5,C$ : . 2720|
00001460: 00 76 1C 82 0A 8B 20 43 24 B2 22 22 20 A7 20 56 |.v.... C$."" . V|
00001470: B2 30 20 3A 20 8E 00 86 1C 8C 0A 56 B2 C6 28 43 |.0 : ......V..(C|
00001480: 24 29 20 3A 20 8E 00 8C 1C 96 0A 3A 00 A1 1C A0 |$) : ......:....|
00001490: 0A 84 31 35 2C 45 4E 2C 45 4D 24 2C 45 54 2C 45 |..15,EN,EM$,ET,E|
000014A0: 53 00 B0 1C AA 0A 8B 20 45 4E B2 30 20 A7 20 8E |S...... EN.0 . .|
000014B0: 00 B6 1C B4 0A 3A 00 D1 1C BE 0A 99 20 3A 20 99 |.....:...... : .|
000014C0: 22 11 11 11 12 44 49 53 4B 20 45 52 52 4F 52 11 |"....DISK ERROR.|
000014D0: 22 00 E4 1C C8 0A 99 20 45 4E 3B 45 4D 24 3B 45 |"...... EN;EM$;E|
000014E0: 54 3B 45 53 00 EA 1C D2 0A 3A 00 FF 1C DC 0A A0 |T;ES.....:......|
000014F0: 20 35 20 3A 20 A0 20 36 20 3A 20 A0 20 31 35 00 | 5 : . 6 : . 15.|
00001500: 15 1D E6 0A 97 20 53 4B 2C C2 28 53 4B 29 AA 33 |..... SK,.(SK).3|
00001510: 32 3A 9C 3A 80 00 00 00 |2:.:.... |
....D.. COMPACTOR...N.:.@.X.. THIS
PROGRAM COMPRESSES BASIC._.... PROGRAMS
INTO RESTRICTED...... MEMORY SPACES. IT
SHOULD WORK...... ON ANY COMMODORE COMPU
TER... .:.....:.H.... ******************
...... CHECK MACHINE TYPE...... ********
**********...".:...,.PK.B(57345).C.6.SK.
56:. PK.72 . PK.127 . PK.54 . PK.75 . SK
.53.I.@.:.E.J.. *********************..
T.. SET UP FLAG SPACE...^.. **********
***********...H.:.I.R.SA.256.B(SK):. B(S
A.8000).254 . 410...|.. SK,B(SK).32:. SK
.1,0...... 256.B(SK).8000,254...........
. ".INITIALIZING......".<.... I.SA . SA.
7999:. I,0:..\.... T(7):. I.0 . 7:T(I).2
.I:..B...:.Y.B.. ****************...L..
READY DISK FILES...V.. ****************.
....:...... ".'SQUEEZER' - MODIFIED FROM
'COMPACTOR'"...... "..THIS PROGRAM 'SQU
EEZES' BASIC".,.... "PROGRAMS INTO REDUC
ED SPACE BY".].... "DELETING 'REM'S, LEN
GTHENING LINES, ETC.".|....:.:. "INPUT F
ILENAME";FI$......:. "DRIVE # ? ";...&..
ID$:. ID$."0" . ID$."1" . 550...0.. ID$
...:..:.:. "OUTPUT FILENAME";OF$...D..:.
"DRIVE # ? ";...N.. OD$:. OD$."0" . OD$
."1" . 590.$.X.. OD$.*.B.:.<.L.. *******
****.N.V.. READY TO GO.`.... ***********
.F...:.{....".SCANNING FILE......" FOR
TARGET LINES............. 15,8,15:. 272
0.P.... 5,8,5,ID$.":".FI$.",P,R".V...:..
.F.. ***************************...P.. R
EAD LOAD ADR, LINK & LINE#.<.Z.. *******
********************.B...:.V.... 2720 :
. 2660.S.... 2660 : . V.V1.0 . 1220.....
. 2660 : LN.V1.(256.V).....:...... *****
*************************.W. .. S
CAN BASIC LINES...*.. FOR GOTO, GOSUB, &
THEN TOKENS.!.4.. *********************
*********.'.>.:.2.H.. 2680.B.R.. V.0 . 7
60.\.\.. V.137 . V.141 . 930.O.F.. V..16
7 . 840.U.P.:...Z.. ****************....
.. GET TARGET LINE#...... **************
**.....:.I...LT.0...... 2680 : . V.32 .
940...... V.48 . V.57 . 1030.....LT.(10.
LT).E(C$).$.J.. 2680 : . 950.*.T.:.B....
*****************.Z.... FLAG TARGET LIN
ES.R.... *****************.X...:...... L
T.0 . 1140.....BY..(LT.8).....Z.LT.8.BY.
..$.AD.BY.SA.J.... AD,B(AD) . T(Z).T.8..
LT,.Z.B.:...L.. ***********************
****...V.. CHECK FOR 'ON...GOTO/GOSUB'.@
.`.. ***************************.F.J.:.W
.T.. V.44 . 930.I.~.. V..32 . 850.}....
2680 : . 1140.....:...... **************
*******...... GET READY FOR COMPACT.W...
. *********************.....:...D.. ".CO
MPACTING LINES.........N. 5.#.X.. 5,8,5
,ID$.":".FI$.",P,R"...... 2720.E...FO$.H
(FL$,14)."/C".W....15,"S1:".FO$.V.... 6,
8,6,OD$.":".OF$.",P,W"...... 2720.....:.
..... *************...(.. COPY LOAD ADR
.D.2.. *************.J.<.:.U.F.. 2660...
P..6,G(V1);...Z..6,G(V);: R.0...D.:...N.
. *************************.;.X.. COPY L
INK AND LINE NUMBER.[.... **************
***********.A...:.Z.... 2660 : K1.V1 :K2
.V... .F.0 :. V.V1.0 . 2580...... 2660 :
L1.V1 : L2.V.H...LN.L1.(256.L2) : . LN,
.S.... 2680...H.. V.32 . V.58 . 1470...R
.. V.0 . 1520...... V..143 . 1580.+....
2680 : . V.0 . 1510.3...F.1.B...BY..(LN.
8).P...Z.LN.8.BY.]...AD.BY.SA.Y.... (T(Z
) . B(AD)) . 1580...".. 1430...,..6,G(K1
);G(K2);...6..6,G(L1);G(L2); : R.4.M.@.:
. F . .6,":"; : R.5...J.F.0 : . 1700..
.T.:...^.. ***************************.(
.H.. **** SCAN BASIC LINE ****.J.R.. *
*** & COMPACT PROGRAM ****.L.|.. *******
********************.R...:......6,C$; :
R.R.1...... 2680.....: . V.137 . F.1.B.
..: . V.139 . V.167 . F.1.V...: . V.0
. 2160...B.: . V.32 . 1690...L.:...V..
********************. .... 'REM' TOKEN -
.;.... DISCARD REST OF LINE.V.... ******
**************.\...:.P.... V..143 . 1890
...... 2680 : . V.0 . 1810...... 2160...
&.:...0.. **************************.J.:
.. QUOTE -...D.. COPY TILL NEXT OR LINE
END...N.. **************************...X
.:.%.B.. V..34 . 2030.8.L..6,C$; : R.R.1
.C.V.. 2680.U.... V.34 . 1680.F.... V.0
. 1900.}.... F . V.0 : . 1370......6,G(3
4); : R.R.1...... 2160.....:.C.... *****
*******************...F.. IF COLON - CHK
NEXT CHAR...P.. ELSE COPY CHAR...Z
.. ************************.!...:.4....
V..58 . 1680.?.... 2680.X.... V.32 . V.5
8 . 2040.K.... V.143 . 1810.|.... V.0 .
2160... ..6,":"; : R.R.1...*.. 1700...4.
:.D.>.. ****************************.X.H
.. END OF LINE -...R.. CAN WE COMPACT TH
ESE LINES ?...\.. **********************
******.$.F.:.C.P.. F . (R.170) . V.0:. 1
370.N.Z.. 2660.B.... V.V1.0 . 2580.}....
2660 : LN.V1.(256.V).....L1.V1 : L2.V :
. LN,.....:...... *********************
***.Z.... CHK IF LINE# IS A TARGET......
************************...J.:...T.BY..
(LN.8).....Z.LN.8.BY.)...AD.BY.SA.E....
(T(Z) . B(AD)) . 2460.K...:.F.... ******
**************.W.... NOT USED -...... DI
SCARD LINK & LINE#...$.. ***************
*****.....:.O.8.. 2680 : . V.143 . 1810.
..B.. V.32 . V.58 . 2360...L.. V.0 . 217
0...V..6,":"; : R.R.1 : . 1700...`.:.?.J
.. ****************************.T.T.. LI
NE# NEEDED -.W.~.. WRITE LINE END, LINK
& LINE#...... **************************
**. ...:......6,G(0);G(1);G(1);.Q....6,G
(L1);G(L2); : R.4...... 2680...... V.32
. V.58 . 2480...D.. V.0 . V.143 . .6,":"
;.".N.F.0 : . 1700.(.X.:.C.... *********
***********.Z.... END OF COMPACT -.U....
WRITE END OF PROGRAM...... ************
********.....:......6,G(0);G(0);G(0);...
...".....DONE..".K.(.. 2780.Q.2.:...<..
************************...F.. ***** SU
BROUTINES *****...P.. ******************
******.4.Z.:.F.D.. 2680 : V1.V.L.N.:.`.X
..#5,C$ : . 2720.V.... C$."" . V.0 : ...
...V.F(C$) : ......:... ..15,EN,EM$,ET,E
S...... EN.0 . ......:.Q.... : ."....DIS
K ERROR."...H.. EN;EM$;ET;ES...R.:.....
5 : 6 : 15...... SK,B(SK).32:.:....
> CLICK IMAGE PREVIEW FOR FULL MODAL