COMPACTOR
FILE INFORMATION
FILENAME(S): COMPACTOR
FILE TYPE(S): PRG
FILE SIZE: 5.9K
FIRST SEEN: 2025-11-30 21:05:48
APPEARS ON: 2 disk(s)
FILE HASH
cd81a98c9701003b57ba3c55e1cda497709ec254b115add44e74bb109cfd8c94
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| VAN DOUWEN | COMPACTOR | PRG | DuncanTwain | 4 | 7 | DOWNLOAD FILE |
| C64 HULP 11 1 | COMPACTOR | PRG | DuncanTwain | 23 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 23 04 0A 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..#.... ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 00 45 04 14 00 8F 20 2A 20 20 20 20 43 |***.E.... * C|
00000030: 20 4F 20 4D 20 50 20 41 20 43 20 54 20 4F 20 52 | O M P A C T O R|
00000040: 20 20 20 20 2A 00 67 04 1E 00 8F 20 2A 20 20 20 | *.g.... * |
00000050: 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D | ---------------|
00000060: 2D 2D 20 20 20 20 2A 00 89 04 28 00 8F 20 2A 20 |-- *...(.. * |
00000070: 20 20 20 42 59 3A 20 20 52 4F 42 45 52 54 20 42 | BY: ROBERT B|
00000080: 41 4B 45 52 20 20 20 20 2A 00 AB 04 32 00 8F 20 |AKER *...2.. |
00000090: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* |
000000A0: 20 20 20 20 20 20 20 20 20 20 2A 00 CD 04 3C 00 | *...<.|
000000B0: 8F 20 2A 20 20 20 20 42 41 4B 45 52 20 45 4E 54 |. * BAKER ENT|
000000C0: 45 52 50 52 49 53 45 53 20 20 20 20 2A 00 EF 04 |ERPRISES *...|
000000D0: 46 00 8F 20 2A 20 20 20 20 20 31 35 20 57 49 4E |F.. * 15 WIN|
000000E0: 44 53 4F 52 20 44 52 2E 20 20 20 20 20 20 2A 00 |DSOR DR. *.|
000000F0: 11 05 50 00 8F 20 2A 20 20 20 20 41 54 43 4F 2C |..P.. * ATCO,|
00000100: 20 4E 2E 4A 2E 20 20 30 38 30 30 34 20 20 20 20 | N.J. 08004 |
00000110: 2A 00 33 05 5A 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |*.3.Z.. ********|
00000120: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000130: 2A 2A 2A 00 39 05 64 00 3A 00 5A 05 65 00 8F 2A |***.9.d.:.Z.e..*|
00000140: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000150: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 7B 05 66 00 8F |**********.{.f..|
00000160: 2A 20 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 20 |* INSTRUCTIONS |
00000170: 41 44 44 45 44 20 42 59 20 20 2A 00 9C 05 67 00 |ADDED BY *...g.|
00000180: 8F 2A 20 20 20 20 20 4A 4F 48 4E 20 45 41 53 54 |.* JOHN EAST|
00000190: 4F 4E 20 46 4F 52 20 20 20 20 20 2A 00 BD 05 68 |ON FOR *...h|
000001A0: 00 8F 2A 43 48 52 49 53 54 49 41 4E 20 20 43 4F |..*CHRISTIAN CO|
000001B0: 4D 50 55 54 45 52 2F 42 41 53 45 44 2A 00 DE 05 |MPUTER/BASED*...|
000001C0: 69 00 8F 2A 20 20 20 20 20 20 43 4F 4D 4D 55 4E |i..* COMMUN|
000001D0: 49 43 41 54 49 4F 4E 53 20 20 20 20 20 2A 00 FF |ICATIONS *..|
000001E0: 05 6A 00 8F 2A 20 20 20 20 20 20 34 34 20 44 45 |.j..* 44 DE|
000001F0: 4C 4D 41 20 44 52 49 56 45 20 20 20 20 20 2A 00 |LMA DRIVE *.|
00000200: 20 06 6B 00 8F 2A 54 4F 52 4F 4E 54 4F 2C 20 4F | .k..*TORONTO, O|
00000210: 4E 54 41 52 49 4F 20 20 4D 38 57 20 34 4E 36 2A |NTARIO M8W 4N6*|
00000220: 00 41 06 6C 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.A.l..**********|
00000230: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000240: 2A 00 47 06 6D 00 3A 00 5A 06 6E 00 9C 20 3A 20 |*.G.m.:.Z.n.. : |
00000250: 86 20 54 4C 28 31 30 30 30 29 00 60 06 78 00 3A |. TL(1000).`.x.:|
00000260: 00 77 06 82 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |.w.... *********|
00000270: 2A 2A 2A 2A 2A 2A 2A 00 8E 06 8C 00 8F 20 52 45 |*******...... RE|
00000280: 41 44 59 20 44 49 53 4B 20 46 49 4C 45 53 00 A5 |ADY DISK FILES..|
00000290: 06 96 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.... ***********|
000002A0: 2A 2A 2A 2A 2A 00 AB 06 A0 00 3A 00 C7 06 AA 00 |*****.....:.....|
000002B0: 99 22 93 22 A6 31 34 29 22 12 20 43 4F 4D 50 41 |.".".14)". COMPA|
000002C0: 43 54 4F 52 20 11 11 00 F2 06 AC 00 99 22 54 48 |CTOR ........"TH|
000002D0: 49 53 20 50 52 4F 47 52 41 4D 20 57 49 4C 4C 20 |IS PROGRAM WILL |
000002E0: 43 4F 4D 50 41 43 54 20 41 20 50 52 4F 47 52 41 |COMPACT A PROGRA|
000002F0: 4D 22 00 21 07 AE 00 99 22 4C 4F 43 41 54 45 44 |M".!...."LOCATED|
00000300: 20 4F 4E 20 44 52 49 56 45 20 23 30 20 42 59 20 | ON DRIVE #0 BY |
00000310: 44 45 4C 45 54 49 4E 47 20 41 4C 4C 20 52 45 4D |DELETING ALL REM|
00000320: 22 00 4F 07 B0 00 99 22 4E 4F 54 41 54 49 4F 4E |".O...."NOTATION|
00000330: 53 2C 20 42 4C 41 4E 4B 20 4C 49 4E 45 53 2C 20 |S, BLANK LINES, |
00000340: 41 4E 44 20 42 59 20 4C 49 4E 4B 49 4E 47 22 00 |AND BY LINKING".|
00000350: 74 07 B2 00 99 22 54 4F 47 45 54 48 45 52 20 41 |t...."TOGETHER A|
00000360: 4C 4C 20 50 4F 53 53 49 42 4C 45 20 4C 49 4E 45 |LL POSSIBLE LINE|
00000370: 53 2E 11 22 00 A3 07 B4 00 99 22 54 48 45 20 4E |S.."......"THE N|
00000380: 45 57 20 43 4F 4D 50 41 43 54 45 44 20 50 52 4F |EW COMPACTED PRO|
00000390: 47 52 41 4D 20 57 49 4C 4C 20 42 45 20 53 41 56 |GRAM WILL BE SAV|
000003A0: 45 44 22 00 D2 07 B6 00 99 22 54 4F 20 44 49 53 |ED"......"TO DIS|
000003B0: 4B 20 44 52 49 56 45 20 23 31 20 57 49 54 48 20 |K DRIVE #1 WITH |
000003C0: 54 48 45 20 53 41 4D 45 20 46 49 4C 45 4E 41 4D |THE SAME FILENAM|
000003D0: 45 22 00 F2 07 B8 00 99 22 42 55 54 20 57 49 54 |E"......"BUT WIT|
000003E0: 48 20 41 20 27 2F 43 27 20 53 55 46 46 49 58 2E |H A '/C' SUFFIX.|
000003F0: 11 22 00 16 08 B9 00 99 2C 22 9D 9D 9D B9 B9 B9 |."......,"......|
00000400: B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 |................|
00000410: B9 B9 B9 B9 B9 B9 00 3C 08 BB 00 99 2C 22 9D 9D |.......<....,"..|
00000420: 9D 12 20 49 4E 50 55 54 20 46 49 4C 45 20 49 4E |.. INPUT FILE IN|
00000430: 20 20 44 52 49 56 45 20 23 30 20 22 00 62 08 BC | DRIVE #0 ".b..|
00000440: 00 99 2C 22 9D 9D 9D 12 4F 55 54 50 55 54 20 46 |..,"....OUTPUT F|
00000450: 49 4C 45 20 49 4E 20 20 44 52 49 56 45 20 23 31 |ILE IN DRIVE #1|
00000460: 20 22 00 89 08 BE 00 99 2C 22 9D 9D 9D B7 B7 B7 | "......,"......|
00000470: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................|
00000480: B7 B7 B7 B7 B7 B7 11 11 22 00 A6 08 C8 00 85 22 |........"......"|
00000490: 12 49 4E 50 55 54 20 46 49 4C 45 20 4E 41 4D 45 |.INPUT FILE NAME|
000004A0: 92 22 3B 46 4C 24 00 BB 08 D2 00 99 22 93 53 43 |.";FL$......".SC|
000004B0: 41 4E 4E 49 4E 47 20 46 49 4C 45 00 DC 08 DC 00 |ANNING FILE.....|
000004C0: 99 22 20 20 20 46 4F 52 20 54 41 52 47 45 54 20 |." FOR TARGET |
000004D0: 4C 49 4E 45 53 2E 2E 2E 2E 2E 11 11 00 F1 08 E6 |LINES...........|
000004E0: 00 9F 20 31 35 2C 38 2C 31 35 3A 8D 20 32 33 37 |.. 15,8,15:. 237|
000004F0: 30 00 0D 09 F0 00 9F 20 35 2C 38 2C 35 2C 22 30 |0...... 5,8,5,"0|
00000500: 3A 22 AA 46 4C 24 AA 22 2C 50 2C 52 22 00 13 09 |:".FL$.",P,R"...|
00000510: FA 00 3A 00 35 09 04 01 8F 20 2A 2A 2A 2A 2A 2A |..:.5.... ******|
00000520: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000530: 2A 2A 2A 2A 2A 00 57 09 0E 01 8F 20 52 45 41 44 |*****.W.... READ|
00000540: 20 4C 4F 41 44 20 41 44 52 2C 20 4C 49 4E 4B 20 | LOAD ADR, LINK |
00000550: 26 20 4C 49 4E 45 23 00 79 09 18 01 8F 20 2A 2A |& LINE#.y.... **|
00000560: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000570: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 7F 09 22 01 3A 00 |*********...".:.|
00000580: 93 09 2C 01 8D 20 32 33 37 30 20 3A 20 8D 20 32 |..,.. 2370 : . 2|
00000590: 33 31 30 00 AF 09 36 01 8D 20 32 33 31 30 20 3A |310...6.. 2310 :|
000005A0: 20 8B 20 56 AA 56 31 B2 30 20 A7 20 37 39 30 00 | . V.V1.0 . 790.|
000005B0: CA 09 40 01 8D 20 32 33 31 30 20 3A 20 4C 4E B2 |..@.. 2310 : LN.|
000005C0: 56 31 AA 28 32 35 36 AC 56 29 00 D0 09 4A 01 3A |V1.(256.V)...J.:|
000005D0: 00 F5 09 54 01 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |...T.. *********|
000005E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000005F0: 2A 2A 2A 2A 2A 00 13 0A 5E 01 8F 20 20 20 20 20 |*****...^.. |
00000600: 20 20 20 53 43 41 4E 20 42 41 53 49 43 20 4C 49 | SCAN BASIC LI|
00000610: 4E 45 53 00 38 0A 68 01 8F 20 46 4F 52 20 47 4F |NES.8.h.. FOR GO|
00000620: 54 4F 2C 20 47 4F 53 55 42 2C 20 26 20 54 48 45 |TO, GOSUB, & THE|
00000630: 4E 20 54 4F 4B 45 4E 53 00 5D 0A 72 01 8F 20 2A |N TOKENS.].r.. *|
00000640: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000650: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 63 0A |*************.c.|
00000660: 7C 01 3A 00 6E 0A 86 01 8D 20 32 33 33 30 00 7E ||.:.n.... 2330.~|
00000670: 0A 90 01 8B 20 56 B2 30 20 A7 20 33 31 30 00 98 |.... V.0 . 310..|
00000680: 0A 9A 01 8B 20 56 B2 31 33 37 20 B0 20 56 B2 31 |.... V.137 . V.1|
00000690: 34 31 20 A7 20 34 38 30 00 AB 0A A4 01 8B 20 56 |41 . 480...... V|
000006A0: B3 B1 31 36 37 20 A7 20 33 39 30 00 B1 0A AE 01 |..167 . 390.....|
000006B0: 3A 00 C8 0A B8 01 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |:...... ********|
000006C0: 2A 2A 2A 2A 2A 2A 2A 2A 00 DF 0A C2 01 8F 20 47 |********...... G|
000006D0: 45 54 20 54 41 52 47 45 54 20 4C 49 4E 45 23 00 |ET TARGET LINE#.|
000006E0: F6 0A CC 01 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..... **********|
000006F0: 2A 2A 2A 2A 2A 2A 00 FC 0A D6 01 3A 00 05 0B E0 |******.....:....|
00000700: 01 4C 54 B2 30 00 1F 0B EA 01 8D 20 32 33 33 30 |.LT.0...... 2330|
00000710: 20 3A 20 8B 20 56 B2 33 32 20 A7 20 34 39 30 00 | : . V.32 . 490.|
00000720: 37 0B F4 01 8B 20 56 B3 34 38 20 B0 20 56 B1 35 |7.... V.48 . V.5|
00000730: 37 20 A7 20 35 38 30 00 4C 0B FE 01 4C 54 B2 28 |7 . 580.L...LT.(|
00000740: 31 30 AC 4C 54 29 AA C5 28 43 24 29 00 5F 0B 08 |10.LT)..(C$)._..|
00000750: 02 8D 20 32 33 33 30 20 3A 20 89 20 35 30 30 00 |.. 2330 : . 500.|
00000760: 65 0B 12 02 3A 00 82 0B 1C 02 8F 20 2A 2A 2A 2A |e...:...... ****|
00000770: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000780: 2A 2A 00 9F 0B 26 02 8F 20 43 48 45 43 4B 20 49 |**...&.. CHECK I|
00000790: 46 20 41 4C 52 45 41 44 59 20 46 4F 55 4E 44 00 |F ALREADY FOUND.|
000007A0: BC 0B 30 02 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..0.. **********|
000007B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 C2 0B 3A |************...:|
000007C0: 02 3A 00 D0 0B 44 02 81 20 58 B2 30 20 A4 20 4E |.:...D.. X.0 . N|
000007D0: 00 E7 0B 4E 02 20 20 8B 20 54 4C 28 58 29 B2 4C |...N. . TL(X).L|
000007E0: 54 20 A7 20 37 31 30 00 EF 0B 58 02 82 20 58 00 |T . 710...X.. X.|
000007F0: 04 0C 62 02 54 4C 28 4E 29 B2 4C 54 20 3A 20 4E |..b.TL(N).LT : N|
00000800: B2 4E AA 31 00 0E 0C 6C 02 99 20 4C 54 2C 00 21 |.N.1...l.. LT,.!|
00000810: 0C 76 02 8B 20 4E B3 31 30 30 30 20 A7 20 37 31 |.v.. N.1000 . 71|
00000820: 30 00 40 0C 80 02 99 22 11 11 54 4F 4F 20 4D 41 |0.@...."..TOO MA|
00000830: 4E 59 20 54 41 52 47 45 54 20 4C 49 4E 45 53 21 |NY TARGET LINES!|
00000840: 00 4B 0C 8A 02 89 20 32 34 33 30 00 51 0C 94 02 |.K.... 2430.Q...|
00000850: 3A 00 73 0C 9E 02 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |:.s.... ********|
00000860: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000870: 2A 2A 2A 00 95 0C A8 02 8F 20 43 48 45 43 4B 20 |***...... CHECK |
00000880: 46 4F 52 20 27 4F 4E 2E 2E 2E 47 4F 54 4F 2F 47 |FOR 'ON...GOTO/G|
00000890: 4F 53 55 42 27 00 B7 0C B2 02 8F 20 2A 2A 2A 2A |OSUB'...... ****|
000008A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000008B0: 2A 2A 2A 2A 2A 2A 2A 00 BD 0C BC 02 3A 00 CE 0C |*******.....:...|
000008C0: C6 02 8B 20 56 B2 34 34 20 A7 20 34 38 30 00 E0 |... V.44 . 480..|
000008D0: 0C D0 02 8B 20 56 B3 B1 33 32 20 A7 20 34 30 30 |.... V..32 . 400|
000008E0: 00 F3 0C DA 02 8D 20 32 33 33 30 20 3A 20 89 20 |...... 2330 : . |
000008F0: 37 31 30 00 F9 0C E4 02 3A 00 11 0D EE 02 8F 20 |710.....:...... |
00000900: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000910: 2A 00 29 0D F8 02 8F 20 53 4F 52 54 20 54 41 52 |*.).... SORT TAR|
00000920: 47 45 54 20 4C 49 4E 45 53 00 41 0D 02 03 8F 20 |GET LINES.A.... |
00000930: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000940: 2A 00 47 0D 0C 03 3A 00 57 0D 16 03 8B 20 4E B3 |*.G...:.W.... N.|
00000950: 32 20 A7 20 39 30 30 00 67 0D 20 03 81 20 58 B2 |2 . 900.g. .. X.|
00000960: 30 20 A4 20 4E AB 31 00 7A 0D 2A 03 3A 20 20 81 |0 . N.1.z.*.: .|
00000970: 20 59 B2 30 20 A4 20 4E AB 32 00 99 0D 34 03 3A | Y.0 . N.2...4.:|
00000980: 20 20 20 20 8B 20 54 4C 28 59 29 20 B3 20 54 4C | . TL(Y) . TL|
00000990: 28 58 29 20 A7 20 38 34 30 00 C2 0D 3E 03 3A 20 |(X) . 840...>.: |
000009A0: 20 20 20 56 B2 54 4C 28 59 29 20 3A 20 54 4C 28 | V.TL(Y) : TL(|
000009B0: 59 29 B2 54 4C 28 58 29 20 3A 20 54 4C 28 58 29 |Y).TL(X) : TL(X)|
000009C0: B2 56 00 CC 0D 48 03 82 20 59 2C 58 00 D2 0D 52 |.V...H.. Y,X...R|
000009D0: 03 3A 00 EE 0D 5C 03 8F 20 2A 2A 2A 2A 2A 2A 2A |.:...\.. *******|
000009E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 0A |**************..|
000009F0: 0E 66 03 8F 20 47 45 54 20 52 45 41 44 59 20 46 |.f.. GET READY F|
00000A00: 4F 52 20 43 4F 4D 50 41 43 54 00 26 0E 70 03 8F |OR COMPACT.&.p..|
00000A10: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
00000A20: 2A 2A 2A 2A 2A 2A 00 2C 0E 7A 03 3A 00 4B 0E 84 |******.,.z.:.K..|
00000A30: 03 99 20 22 93 43 4F 4D 50 41 43 54 49 4E 47 20 |.. ".COMPACTING |
00000A40: 4C 49 4E 45 53 2E 2E 2E 2E 11 11 00 53 0E 8E 03 |LINES.......S...|
00000A50: A0 20 35 00 6F 0E 98 03 9F 20 35 2C 38 2C 35 2C |. 5.o.... 5,8,5,|
00000A60: 22 4F 3A 22 AA 46 4C 24 AA 22 2C 50 2C 52 22 00 |"O:".FL$.",P,R".|
00000A70: 7A 0E A2 03 8D 20 32 33 37 30 00 91 0E AC 03 46 |z.... 2370.....F|
00000A80: 4F 24 B2 C8 28 46 4C 24 2C 31 34 29 AA 22 2F 43 |O$..(FL$,14)."/C|
00000A90: 22 00 A3 0E B6 03 98 31 35 2C 22 53 31 3A 22 AA |"......15,"S1:".|
00000AA0: 46 4F 24 00 BF 0E C0 03 9F 20 36 2C 38 2C 36 2C |FO$...... 6,8,6,|
00000AB0: 22 31 3A 22 AA 46 4F 24 AA 22 2C 50 2C 57 22 00 |"1:".FO$.",P,W".|
00000AC0: CA 0E CA 03 8D 20 32 33 37 30 00 D0 0E D4 03 3A |..... 2370.....:|
00000AD0: 00 E5 0E DE 03 8F 20 20 2A 2A 2A 2A 2A 2A 2A 2A |...... ********|
00000AE0: 2A 2A 2A 2A 2A 00 F9 0E E8 03 8F 20 43 4F 50 59 |*****...... COPY|
00000AF0: 20 4C 4F 41 44 20 41 44 52 00 0D 0F F2 03 8F 20 | LOAD ADR...... |
00000B00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 13 0F |*************...|
00000B10: FC 03 3A 00 1E 0F 06 04 8D 20 32 33 31 30 00 2C |..:...... 2310.,|
00000B20: 0F 10 04 98 36 2C C7 28 56 31 29 3B 00 3E 0F 1A |....6,.(V1);.>..|
00000B30: 04 98 36 2C C7 28 56 29 3B 3A 20 52 B2 30 00 44 |..6,.(V);: R.0.D|
00000B40: 0F 24 04 3A 00 64 0F 2E 04 8F 20 2A 2A 2A 2A 2A |.$.:.d.... *****|
00000B50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000B60: 2A 2A 2A 2A 00 84 0F 38 04 8F 20 43 4F 50 59 20 |****...8.. COPY |
00000B70: 4C 49 4E 4B 20 41 4E 44 20 4C 49 4E 45 20 4E 55 |LINK AND LINE NU|
00000B80: 4D 42 45 52 00 A4 0F 42 04 8F 20 2A 2A 2A 2A 2A |MBER...B.. *****|
00000B90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000BA0: 2A 2A 2A 2A 00 AA 0F 4C 04 3A 00 C3 0F 56 04 8D |****...L.:...V..|
00000BB0: 20 32 33 31 30 20 3A 20 4B 31 B2 56 31 20 3A 4B | 2310 : K1.V1 :K|
00000BC0: 32 B2 56 00 DC 0F 60 04 46 B2 30 20 3A 8B 20 56 |2.V...`.F.0 :. V|
00000BD0: AA 56 31 B2 30 20 A7 20 32 32 33 30 00 F6 0F 6A |.V1.0 . 2230...j|
00000BE0: 04 8D 20 32 33 31 30 20 3A 20 4C 31 B2 56 31 20 |.. 2310 : L1.V1 |
00000BF0: 3A 20 4C 32 B2 56 00 11 10 74 04 4C 4E B2 4C 31 |: L2.V...t.LN.L1|
00000C00: AA 28 32 35 36 AC 4C 32 29 20 3A 20 99 20 4C 4E |.(256.L2) : . LN|
00000C10: 2C 00 1C 10 7E 04 8D 20 32 33 33 30 00 35 10 88 |,...~.. 2330.5..|
00000C20: 04 8B 20 56 B2 33 32 20 B0 20 56 B2 35 38 20 A7 |.. V.32 . V.58 .|
00000C30: 20 31 31 35 30 00 46 10 92 04 8B 20 56 B2 30 20 | 1150.F.... V.0 |
00000C40: A7 20 31 32 30 30 00 5A 10 9C 04 8B 20 56 B3 B1 |. 1200.Z.... V..|
00000C50: 31 34 33 20 A7 20 31 32 34 30 00 74 10 A6 04 8D |143 . 1240.t....|
00000C60: 20 32 33 33 30 20 3A 20 8B 20 56 B1 30 20 A7 20 | 2330 : . V.0 . |
00000C70: 31 31 39 30 00 88 10 B0 04 46 B2 31 20 3A 20 81 |1190.....F.1 : .|
00000C80: 20 58 B2 30 20 A4 20 4E 00 A0 10 BA 04 3A 20 20 | X.0 . N.....: |
00000C90: 8B 20 54 4C 28 58 29 B3 4C 4E 20 A7 20 82 20 58 |. TL(X).LN . . X|
00000CA0: 00 B9 10 C4 04 3A 20 20 8B 20 54 4C 28 58 29 B2 |.....: . TL(X).|
00000CB0: 4C 4E 20 A7 20 31 32 34 30 00 C4 10 CE 04 89 20 |LN . 1240...... |
00000CC0: 31 31 31 30 00 D8 10 D8 04 98 36 2C C7 28 4B 31 |1110......6,.(K1|
00000CD0: 29 3B C7 28 4B 32 29 3B 00 F2 10 E2 04 98 36 2C |);.(K2);......6,|
00000CE0: C7 28 4C 31 29 3B C7 28 4C 32 29 3B 20 3A 20 52 |.(L1);.(L2); : R|
00000CF0: B2 34 00 0D 11 EC 04 3A 20 20 8B 20 46 20 A7 20 |.4.....: . F . |
00000D00: 98 36 2C 22 3A 22 3B 20 3A 20 52 B2 35 00 1E 11 |.6,":"; : R.5...|
00000D10: F6 04 46 B2 30 20 3A 20 89 20 31 33 36 30 00 24 |..F.0 : . 1360.$|
00000D20: 11 00 05 3A 00 46 11 0A 05 8F 20 2A 2A 2A 2A 2A |...:.F.... *****|
00000D30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000D40: 2A 2A 2A 2A 2A 2A 00 68 11 14 05 8F 20 2A 2A 2A |******.h.... ***|
00000D50: 2A 20 20 53 43 41 4E 20 42 41 53 49 43 20 4C 49 |* SCAN BASIC LI|
00000D60: 4E 45 20 20 2A 2A 2A 2A 00 8A 11 1E 05 8F 20 2A |NE ****...... *|
00000D70: 2A 2A 2A 20 26 20 43 4F 4D 50 41 43 54 20 50 52 |*** & COMPACT PR|
00000D80: 4F 47 52 41 4D 20 2A 2A 2A 2A 00 AC 11 28 05 8F |OGRAM ****...(..|
00000D90: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
00000DA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 B2 11 32 |************...2|
00000DB0: 05 3A 00 C5 11 3C 05 98 36 2C 43 24 3B 20 3A 20 |.:...<..6,C$; : |
00000DC0: 52 B2 52 AA 31 00 D0 11 46 05 8D 20 32 33 33 30 |R.R.1...F.. 2330|
00000DD0: 00 E5 11 50 05 3A 20 20 8B 20 56 B2 31 33 37 20 |...P.: . V.137 |
00000DE0: A7 20 46 B2 31 00 02 12 5A 05 3A 20 20 8B 20 56 |. F.1...Z.: . V|
00000DF0: B2 31 33 39 20 B0 20 56 B2 31 36 37 20 A7 20 46 |.139 . V.167 . F|
00000E00: B2 31 00 16 12 64 05 3A 20 20 8B 20 56 B2 30 20 |.1...d.: . V.0 |
00000E10: A7 20 31 38 32 30 00 2B 12 6E 05 3A 20 20 8B 20 |. 1820.+.n.: . |
00000E20: 56 B2 33 32 20 A7 20 31 33 35 30 00 31 12 78 05 |V.32 . 1350.1.x.|
00000E30: 3A 00 4C 12 82 05 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |:.L.... ********|
00000E40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 60 12 8C |************.`..|
00000E50: 05 8F 20 27 52 45 4D 27 20 54 4F 4B 45 4E 20 2D |.. 'REM' TOKEN -|
00000E60: 00 7B 12 96 05 8F 20 44 49 53 43 41 52 44 20 52 |.{.... DISCARD R|
00000E70: 45 53 54 20 4F 46 20 4C 49 4E 45 00 96 12 A0 05 |EST OF LINE.....|
00000E80: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
00000E90: 2A 2A 2A 2A 2A 2A 00 9C 12 AA 05 3A 00 B0 12 B4 |******.....:....|
00000EA0: 05 8B 20 56 B3 B1 31 34 33 20 A7 20 31 35 35 30 |.. V..143 . 1550|
00000EB0: 00 CA 12 BE 05 8D 20 32 33 33 30 20 3A 20 8B 20 |...... 2330 : . |
00000EC0: 56 B1 30 20 A7 20 31 34 37 30 00 D5 12 C8 05 89 |V.0 . 1470......|
00000ED0: 20 31 38 32 30 00 DB 12 D2 05 3A 00 FC 12 DC 05 | 1820.....:.....|
00000EE0: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
00000EF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 0A 13 E6 |************....|
00000F00: 05 8F 20 51 55 4F 54 45 20 2D 00 2B 13 F0 05 8F |.. QUOTE -.+....|
00000F10: 20 43 4F 50 59 20 54 49 4C 4C 20 4E 45 58 54 20 | COPY TILL NEXT |
00000F20: 4F 52 20 4C 49 4E 45 20 45 4E 44 00 4C 13 FA 05 |OR LINE END.L...|
00000F30: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
00000F40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 52 13 04 |************.R..|
00000F50: 06 3A 00 65 13 0E 06 8B 20 56 B3 B1 33 34 20 A7 |.:.e.... V..34 .|
00000F60: 20 31 36 39 30 00 78 13 18 06 98 36 2C 43 24 3B | 1690.x....6,C$;|
00000F70: 20 3A 20 52 B2 52 AA 31 00 83 13 22 06 8D 20 32 | : R.R.1...".. 2|
00000F80: 33 33 30 00 95 13 2C 06 8B 20 56 B2 33 34 20 A7 |330...,.. V.34 .|
00000F90: 20 31 33 34 30 00 A6 13 36 06 8B 20 56 B1 30 20 | 1340...6.. V.0 |
00000FA0: A7 20 31 35 36 30 00 BD 13 40 06 8B 20 46 20 A7 |. 1560...@.. F .|
00000FB0: 20 56 B2 30 20 3A 20 89 20 31 30 35 30 00 D3 13 | V.0 : . 1050...|
00000FC0: 4A 06 98 36 2C C7 28 33 34 29 3B 20 3A 20 52 B2 |J..6,.(34); : R.|
00000FD0: 52 AA 31 00 DE 13 54 06 89 20 31 38 32 30 00 E4 |R.1...T.. 1820..|
00000FE0: 13 5E 06 3A 00 03 14 68 06 8F 20 2A 2A 2A 2A 2A |.^.:...h.. *****|
00000FF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001000: 2A 2A 2A 00 22 14 72 06 8F 20 49 46 20 43 4F 4C |***.".r.. IF COL|
00001010: 4F 4E 20 2D 20 43 48 4B 20 4E 45 58 54 20 43 48 |ON - CHK NEXT CH|
00001020: 41 52 00 3C 14 7C 06 8F 20 20 20 20 20 20 45 4C |AR.<.|.. EL|
00001030: 53 45 20 43 4F 50 59 20 43 48 41 52 00 5B 14 86 |SE COPY CHAR.[..|
00001040: 06 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.. *************|
00001050: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 61 14 90 06 |***********.a...|
00001060: 3A 00 74 14 9A 06 8B 20 56 B3 B1 35 38 20 A7 20 |:.t.... V..58 . |
00001070: 31 33 34 30 00 7F 14 A4 06 8D 20 32 33 33 30 00 |1340...... 2330.|
00001080: 98 14 AE 06 8B 20 56 B2 33 32 20 B0 20 56 B2 35 |..... V.32 . V.5|
00001090: 38 20 A7 20 31 37 30 30 00 AB 14 B8 06 8B 20 56 |8 . 1700...... V|
000010A0: B2 31 34 33 20 A7 20 31 34 37 30 00 BC 14 C2 06 |.143 . 1470.....|
000010B0: 8B 20 56 B2 30 20 A7 20 31 38 32 30 00 D0 14 CC |. V.0 . 1820....|
000010C0: 06 98 36 2C 22 3A 22 3B 20 3A 20 52 B2 52 AA 31 |..6,":"; : R.R.1|
000010D0: 00 DB 14 D6 06 89 20 31 33 36 30 00 E1 14 E0 06 |...... 1360.....|
000010E0: 3A 00 04 15 EA 06 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |:...... ********|
000010F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001100: 2A 2A 2A 2A 00 18 15 F4 06 8F 20 45 4E 44 20 4F |****...... END O|
00001110: 46 20 4C 49 4E 45 20 2D 00 3B 15 FE 06 8F 20 43 |F LINE -.;.... C|
00001120: 41 4E 20 57 45 20 43 4F 4D 50 41 43 54 20 54 48 |AN WE COMPACT TH|
00001130: 45 53 45 20 4C 49 4E 45 53 20 3F 00 5E 15 08 07 |ESE LINES ?.^...|
00001140: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
00001150: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 64 |**************.d|
00001160: 15 12 07 3A 00 83 15 1C 07 8B 20 46 20 B0 20 28 |...:...... F . (|
00001170: 52 B1 31 37 30 29 20 A7 20 56 B2 30 3A 89 20 31 |R.170) . V.0:. 1|
00001180: 30 35 30 00 8E 15 26 07 8D 20 32 33 31 30 00 A2 |050...&.. 2310..|
00001190: 15 30 07 8B 20 56 AA 56 31 B2 30 20 A7 20 32 32 |.0.. V.V1.0 . 22|
000011A0: 33 30 00 BD 15 3A 07 8D 20 32 33 31 30 20 3A 20 |30...:.. 2310 : |
000011B0: 4C 4E B2 56 31 AA 28 32 35 36 AC 56 29 00 D6 15 |LN.V1.(256.V)...|
000011C0: 44 07 4C 31 B2 56 31 20 3A 20 4C 32 B2 56 20 3A |D.L1.V1 : L2.V :|
000011D0: 20 99 20 4C 4E 2C 00 DC 15 4E 07 3A 00 FB 15 58 | . LN,...N.:...X|
000011E0: 07 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.. *************|
000011F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 1A 16 62 07 |***********...b.|
00001200: 8F 20 43 48 4B 20 49 46 20 4C 49 4E 45 23 20 49 |. CHK IF LINE# I|
00001210: 53 20 41 20 54 41 52 47 45 54 00 39 16 6C 07 8F |S A TARGET.9.l..|
00001220: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
00001230: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 3F 16 76 07 3A 00 |*********.?.v.:.|
00001240: 4D 16 80 07 81 20 58 B2 30 20 A4 20 4E 00 62 16 |M.... X.0 . N.b.|
00001250: 8A 07 8B 20 54 4C 28 58 29 B3 4C 4E 20 A7 20 82 |... TL(X).LN . .|
00001260: 20 58 00 78 16 94 07 8B 20 54 4C 28 58 29 B2 4C | X.x.... TL(X).L|
00001270: 4E 20 A7 20 32 31 31 30 00 7E 16 9E 07 3A 00 99 |N . 2110.~...:..|
00001280: 16 A8 07 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.... ***********|
00001290: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 AA 16 B2 07 8F 20 |*********...... |
000012A0: 4E 4F 54 20 55 53 45 44 20 2D 00 C5 16 BC 07 8F |NOT USED -......|
000012B0: 20 44 49 53 43 41 52 44 20 4C 49 4E 4B 20 26 20 | DISCARD LINK & |
000012C0: 4C 49 4E 45 23 00 E0 16 C6 07 8F 20 2A 2A 2A 2A |LINE#...... ****|
000012D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000012E0: 00 E6 16 D0 07 3A 00 02 17 DA 07 8D 20 32 33 33 |.....:...... 233|
000012F0: 30 20 3A 20 8B 20 56 B2 31 34 33 20 A7 20 31 34 |0 : . V.143 . 14|
00001300: 37 30 00 1B 17 E4 07 8B 20 56 B2 33 32 20 B0 20 |70...... V.32 . |
00001310: 56 B2 35 38 20 A7 20 32 30 31 30 00 2C 17 EE 07 |V.58 . 2010.,...|
00001320: 8B 20 56 B2 30 20 A7 20 31 38 33 30 00 49 17 F8 |. V.0 . 1830.I..|
00001330: 07 98 36 2C 22 3A 22 3B 20 3A 20 52 B2 52 AA 31 |..6,":"; : R.R.1|
00001340: 20 3A 20 89 20 31 33 36 30 00 4F 17 02 08 3A 00 | : . 1360.O...:.|
00001350: 72 17 0C 08 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |r.... **********|
00001360: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001370: 2A 2A 00 87 17 16 08 8F 20 4C 49 4E 45 23 20 4E |**...... LINE# N|
00001380: 45 45 44 45 44 20 2D 00 AA 17 20 08 8F 20 57 52 |EEDED -... .. WR|
00001390: 49 54 45 20 4C 49 4E 45 20 45 4E 44 2C 20 4C 49 |ITE LINE END, LI|
000013A0: 4E 4B 20 26 20 4C 49 4E 45 23 00 CD 17 2A 08 8F |NK & LINE#...*..|
000013B0: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
000013C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 D3 17 |*************...|
000013D0: 34 08 3A 00 EA 17 3E 08 98 36 2C C7 28 30 29 3B |4.:...>..6,.(0);|
000013E0: C7 28 31 29 3B C7 28 31 29 3B 00 04 18 48 08 98 |.(1);.(1);...H..|
000013F0: 36 2C C7 28 4C 31 29 3B C7 28 4C 32 29 3B 20 3A |6,.(L1);.(L2); :|
00001400: 20 52 B2 34 00 0F 18 52 08 8D 20 32 33 33 30 00 | R.4...R.. 2330.|
00001410: 28 18 5C 08 8B 20 56 B2 33 32 20 B0 20 56 B2 35 |(.\.. V.32 . V.5|
00001420: 38 20 A7 20 32 31 33 30 00 44 18 66 08 8B 20 56 |8 . 2130.D.f.. V|
00001430: B2 30 20 B0 20 56 B2 31 34 33 20 A7 20 98 36 2C |.0 . V.143 . .6,|
00001440: 22 3A 22 3B 00 55 18 70 08 46 B2 30 20 3A 20 89 |":";.U.p.F.0 : .|
00001450: 20 31 33 36 30 00 5B 18 7A 08 3A 00 76 18 84 08 | 1360.[.z.:.v...|
00001460: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
00001470: 2A 2A 2A 2A 2A 2A 00 8D 18 8E 08 8F 20 45 4E 44 |******...... END|
00001480: 20 4F 46 20 43 4F 4D 50 41 43 54 20 2D 00 A8 18 | OF COMPACT -...|
00001490: 98 08 8F 20 57 52 49 54 45 20 45 4E 44 20 4F 46 |... WRITE END OF|
000014A0: 20 50 52 4F 47 52 41 4D 00 C3 18 A2 08 8F 20 2A | PROGRAM...... *|
000014B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000014C0: 2A 2A 2A 00 C9 18 AC 08 3A 00 E0 18 B6 08 98 36 |***.....:......6|
000014D0: 2C C7 28 30 29 3B C7 28 30 29 3B C7 28 30 29 3B |,.(0);.(0);.(0);|
000014E0: 00 F3 18 C0 08 99 22 93 11 11 11 12 44 4F 4E 45 |......".....DONE|
000014F0: 11 11 22 00 24 19 C2 08 99 22 4E 4F 57 20 4C 4F |..".$...."NOW LO|
00001500: 41 44 20 54 48 45 20 4E 45 57 20 50 52 4F 47 52 |AD THE NEW PROGR|
00001510: 41 4D 20 46 52 4F 4D 20 44 52 49 56 45 20 23 31 |AM FROM DRIVE #1|
00001520: 2E 11 11 22 00 53 19 C3 08 99 22 41 53 20 49 54 |...".S...."AS IT|
00001530: 20 53 49 54 53 20 4E 4F 57 2C 54 48 45 20 50 52 | SITS NOW,THE PR|
00001540: 4F 47 52 41 4D 20 50 4F 49 4E 54 45 52 53 20 41 |OGRAM POINTERS A|
00001550: 52 45 22 00 82 19 C4 08 99 22 41 4C 4C 20 53 48 |RE"......"ALL SH|
00001560: 4F 4F 4B 20 55 50 20 3E 20 52 45 2F 53 45 54 20 |OOK UP > RE/SET |
00001570: 54 48 45 20 50 52 4F 47 52 41 4D 20 4C 49 4E 4B |THE PROGRAM LINK|
00001580: 53 22 00 A5 19 C5 08 99 A3 31 35 29 22 A3 A3 A3 |S".......15)"...|
00001590: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
000015A0: A3 A3 A3 A3 A3 00 D8 19 C6 08 99 22 12 20 52 45 |...........". RE|
000015B0: 2D 4C 49 4E 4B 20 92 20 54 48 45 20 4C 49 4E 45 |-LINK . THE LINE|
000015C0: 53 20 42 59 20 45 4E 54 45 52 49 4E 47 20 41 20 |S BY ENTERING A |
000015D0: 12 20 43 4C 52 20 92 22 00 09 1A C7 08 99 22 43 |. CLR ."......"C|
000015E0: 4F 4D 4D 41 4E 44 20 20 42 45 46 4F 52 45 20 52 |OMMAND BEFORE R|
000015F0: 55 4E 4E 49 4E 47 20 4F 52 20 53 41 56 49 4E 47 |UNNING OR SAVING|
00001600: 20 50 52 4F 47 2E 11 11 22 00 47 1A C8 08 99 22 | PROG...".G...."|
00001610: 54 48 45 4E 20 20 20 52 45 2D 53 41 56 45 20 54 |THEN RE-SAVE T|
00001620: 48 45 20 50 52 4F 47 52 41 4D 20 57 48 45 52 45 |HE PROGRAM WHERE|
00001630: 56 45 52 20 59 4F 55 22 3B A3 35 35 29 22 44 45 |VER YOU";.55)"DE|
00001640: 53 49 52 45 20 21 22 00 52 1A CA 08 89 20 32 34 |SIRE !".R.... 24|
00001650: 33 30 00 58 1A D4 08 3A 00 77 1A DE 08 8F 20 2A |30.X...:.w.... *|
00001660: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001670: 2A 2A 2A 2A 2A 2A 2A 00 96 1A E8 08 8F 20 2A 2A |*******...... **|
00001680: 2A 2A 2A 20 20 53 55 42 52 4F 55 54 49 4E 45 53 |*** SUBROUTINES|
00001690: 20 2A 2A 2A 2A 2A 00 B5 1A F2 08 8F 20 2A 2A 2A | *****...... ***|
000016A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000016B0: 2A 2A 2A 2A 2A 00 BB 1A FC 08 3A 00 CD 1A 06 09 |*****.....:.....|
000016C0: 8D 20 32 33 33 30 20 3A 20 56 31 B2 56 00 D3 1A |. 2330 : V1.V...|
000016D0: 10 09 3A 00 E7 1A 1A 09 A1 23 35 2C 43 24 20 3A |..:......#5,C$ :|
000016E0: 20 8D 20 32 33 37 30 00 FD 1A 24 09 8B 20 43 24 | . 2370...$.. C$|
000016F0: B2 22 22 20 A7 20 56 B2 30 20 3A 20 8E 00 0D 1B |."" . V.0 : ....|
00001700: 2E 09 56 B2 C6 28 43 24 29 20 3A 20 8E 00 13 1B |..V..(C$) : ....|
00001710: 38 09 3A 00 28 1B 42 09 84 31 35 2C 45 4E 2C 45 |8.:.(.B..15,EN,E|
00001720: 4D 24 2C 45 54 2C 45 53 00 37 1B 4C 09 8B 20 45 |M$,ET,ES.7.L.. E|
00001730: 4E B2 30 20 A7 20 8E 00 3D 1B 56 09 3A 00 58 1B |N.0 . ..=.V.:.X.|
00001740: 60 09 99 20 3A 20 99 22 11 11 11 12 44 49 53 4B |`.. : ."....DISK|
00001750: 20 45 52 52 4F 52 11 22 00 6B 1B 6A 09 99 20 45 | ERROR.".k.j.. E|
00001760: 4E 3B 45 4D 24 3B 45 54 3B 45 53 00 71 1B 74 09 |N;EM$;ET;ES.q.t.|
00001770: 3A 00 86 1B 7E 09 A0 20 35 20 3A 20 A0 20 36 20 |:...~.. 5 : . 6 |
00001780: 3A 20 A0 20 31 35 00 8C 1B 88 09 80 00 00 00 |: . 15......... |
..#.... ***************************.E...
. * C O M P A C T O R *.G.... *
----------------- *...(.. * BY:
ROBERT BAKER *...2.. *
*.M.<.. * BAKER ENTERPRISES
*...F.. * 15 WINDSOR DR. *.
..P.. * ATCO, N.J. 08004 *.3.Z..
***************************.9.D.:.Z.E..*
**************************.{.F..* INSTR
UCTIONS ADDED BY *...G..* JOHN EAST
ON FOR *...H..*CHRISTIAN COMPUTER/B
ASED*...I..* COMMUNICATIONS *..
.J..* 44 DELMA DRIVE *. .K..*TO
RONTO, ONTARIO M8W 4N6*.A.L..**********
*****************.G.M.:.Z.N.. : . TL(100
0).`.X.:.W.... ****************...... RE
ADY DISK FILES...... ****************...
.:.G....".".14)". COMPACTOR ........"TH
IS PROGRAM WILL COMPACT A PROGRAM".!....
"LOCATED ON DRIVE #0 BY DELETING ALL REM
".O...."NOTATIONS, BLANK LINES, AND BY L
INKING".T...."TOGETHER ALL POSSIBLE LINE
S.."......"THE NEW COMPACTED PROGRAM WIL
L BE SAVED".R...."TO DISK DRIVE #1 WITH
THE SAME FILENAME"......"BUT WITH A '/C'
SUFFIX.."......,"......................
.......<....,".... INPUT FILE IN DRIVE
#0 ".B....,"....OUTPUT FILE IN DRIVE #1
"......,"..............................
"...H..".INPUT FILE NAME.";FL$...R..".SC
ANNING FILE......" FOR TARGET LINES...
.......... 15,8,15:. 2370...... 5,8,5,"0
:".FL$.",P,R".....:.5.... **************
*************.W.... READ LOAD ADR, LINK
& LINE#.Y.... **************************
*..".:...,.. 2370 : . 2310...6.. 2310 :
. V.V1.0 . 790.J.@.. 2310 : LN.V1.(256.
V).P.J.:...T.. *************************
*****...^.. SCAN BASIC LINES.8.H.
. FOR GOTO, GOSUB, & THEN TOKENS.].R.. *
*****************************.C.|.:.N...
. 2330.~.... V.0 . 310...... V.137 . V.1
41 . 480...... V..167 . 390.....:.H....
****************...B.. GET TARGET LINE#.
..L.. ****************...V.:.....LT.0...
... 2330 : . V.32 . 490.7.... V.48 . V.5
7 . 580.L...LT.(10.LT).E(C$)._.... 2330
: . 500.E...:...... ********************
**...&.. CHECK IF ALREADY FOUND...0.. **
********************.B.:.:.P.D.. X.0 . N
...N. . TL(X).LT . 710...X.. X...B.TL(N
).LT : N.N.1...L.. LT,.!.V.. N.1000 . 71
0.@...."..TOO MANY TARGET LINES!.K.... 2
430.Q...:.S.... ************************
***...... CHECK FOR 'ON...GOTO/GOSUB'...
... ***************************.....:.N.
F.. V.44 . 480...P.. V..32 . 400...Z.. 2
330 : . 710.....:...... ****************
*.).... SORT TARGET LINES.A.... ********
*********.G...:.W.... N.2 . 900.G. .. X.
0 . N.1.Z.*.: . Y.0 . N.2...4.: . TL
(Y) . TL(X) . 840.B.>.: V.TL(Y) : TL(
Y).TL(X) : TL(X).V.L.H.. Y,X.R.R.:...\..
*********************...F.. GET READY F
OR COMPACT.&.P.. *********************.,
.Z.:.K.... ".COMPACTING LINES.......S...
5.O.... 5,8,5,"O:".FL$.",P,R".Z.... 23
70.....FO$.H(FL$,14)."/C"......15,"S1:".
FO$...... 6,8,6,"1:".FO$.",P,W".J.J.. 23
70.P.T.:...... *************...... COPY
LOAD ADR...... *************.....:.....
. 2310.,....6,G(V1);.>....6,G(V);: R.0.D
.$.:.D.... *************************...8
.. COPY LINK AND LINE NUMBER...B.. *****
********************...L.:.C.V.. 2310 :
K1.V1 :K2.V...`.F.0 :. V.V1.0 . 2230...J
.. 2310 : L1.V1 : L2.V...T.LN.L1.(256.L2
) : . LN,...~.. 2330.5.... V.32 . V.58 .
1150.F.... V.0 . 1200.Z.... V..143 . 12
40.T.... 2330 : . V.0 . 1190.....F.1 : .
X.0 . N. ...: . TL(X).LN . . X...D.:
. TL(X).LN . 1240.D.N.. 1110.X.X..6,G(K1
);G(K2);......6,G(L1);G(L2); : R.4.....:
. F . .6,":"; : R.5.....F.0 : . 1360.$
...:.F.... ***************************.H
.... **** SCAN BASIC LINE ****...... *
*** & COMPACT PROGRAM ****...(.. *******
********************...2.:.E.<..6,C$; :
R.R.1.P.F.. 2330...P.: . V.137 . F.1...
Z.: . V.139 . V.167 . F.1...D.: . V.0
. 1820.+.N.: . V.32 . 1350.1.X.:.L....
********************.`.... 'REM' TOKEN -
.{.... DISCARD REST OF LINE... .. ******
**************.....:...... V..143 . 1550
.J.... 2330 : . V.0 . 1470.U.H.. 1820...
R.:...... **************************....
.. QUOTE -.+.... COPY TILL NEXT OR LINE
END.L.... **************************.R..
.:.E.... V..34 . 1690.X....6,C$; : R.R.1
...".. 2330...,.. V.34 . 1340...6.. V.0
. 1560...@.. F . V.0 : . 1050.S.J..6,G(3
4); : R.R.1...T.. 1820...^.:...H.. *****
*******************.".R.. IF COLON - CHK
NEXT CHAR.<.|.. ELSE COPY CHAR.[..
.. ************************.A...:.T....
V..58 . 1340..... 2330...... V.32 . V.5
8 . 1700...... V.143 . 1470...B.. V.0 .
1820.P.L..6,":"; : R.R.1...V.. 1360.....
:...... ****************************....
.. END OF LINE -.;.... CAN WE COMPACT TH
ESE LINES ?.^.... **********************
******.D...:...... F . (R.170) . V.0:. 1
050...&.. 2310...0.. V.V1.0 . 2230...:..
2310 : LN.V1.(256.V).V.D.L1.V1 : L2.V :
. LN,...N.:...X.. *********************
***...B.. CHK IF LINE# IS A TARGET.9.L..
************************.?.V.:.M.... X.
0 . N.B.... TL(X).LN . . X.X.... TL(X).L
N . 2110.~...:...... *******************
*...... NOT USED -.E.... DISCARD LINK &
LINE#...F.. ********************...P.:..
.Z.. 2330 : . V.143 . 1470...... V.32 .
V.58 . 2010.,.... V.0 . 1830.I....6,":";
: R.R.1 : . 1360.O...:.R.... **********
******************...... LINE# NEEDED -.
.. .. WRITE LINE END, LINK & LINE#.M.*..
****************************.S.4.:...>.
.6,G(0);G(1);G(1);...H..6,G(L1);G(L2); :
R.4...R.. 2330.(.\.. V.32 . V.58 . 2130
.D.F.. V.0 . V.143 . .6,":";.U.P.F.0 : .
1360.[.Z.:.V.... ********************..
.... END OF COMPACT -...... WRITE END OF
PROGRAM.C.... ********************.I...
:......6,G(0);G(0);G(0);......".....DONE
..".$.B.."NOW LOAD THE NEW PROGRAM FROM
DRIVE #1...".S.C.."AS IT SITS NOW,THE PR
OGRAM POINTERS ARE"...D.."ALL SHOOK UP >
RE/SET THE PROGRAM LINKS"...E...15)"...
......................X.F..". RE-LINK .
THE LINES BY ENTERING A . CLR ."...G.."C
OMMAND BEFORE RUNNING OR SAVING PROG...
".G.H.."THEN RE-SAVE THE PROGRAM WHERE
VER YOU";.55)"DESIRE !".R.J.. 2430.X.T.:
.W.... ************************...... **
*** SUBROUTINES *****...... ***********
*************.....:.M.... 2330 : V1.V.S.
..:......#5,C$ : . 2370...$.. C$."" . V.
0 : ......V.F(C$) : ....8.:.(.B..15,EN,E
M$,ET,ES.7.L.. EN.0 . ..=.V.:.X.`.. : ."
....DISK ERROR.".K.J.. EN;EM$;ET;ES.Q.T.
:...~. 5 : 6 : 15.........
> CLICK IMAGE PREVIEW FOR FULL MODAL