CONSTRICTOR
FILE INFORMATION
FILENAME(S): CONSTRICTOR
FILE TYPE(S): PRG
FILE SIZE: 5.7K
FIRST SEEN: 2025-11-30 21:23:29
APPEARS ON: 1 disk(s)
FILE HASH
05bbb259be8b7f9739cc79b70517c842624a684b9718a9f434e5fdeb0e9cbcd6
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 HULP 20 2 | CONSTRICTOR | PRG | DuncanTwain | 29 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 23 08 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 08 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 08 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 08 8F FF FA 9F 8C 8F |-- *.........|
00000070: 8F 8F 8F F8 FF 9D 8F 8F F9 F0 78 FF 79 F7 8F F8 |..........x.y...|
00000080: FF 7C 7F 79 8F 8F 8F 8F 8C FF CC FF 99 FF FA 9F |.|.y............|
00000090: 8C 8F 8F 8F 8F 8F 8F 8F 8F 8F 8F 8F 8F 8F 8F 8F |................|
000000A0: 8F 8F 8F 8F 8F 8F 8F 8F 8F 8F 8C FF FE FF 96 FF |................|
000000B0: FA 9F 8C 8F 8F 8F 8F F8 FF 7C 7F 79 8F FF 75 F7 |.........|.y..u.|
000000C0: FF 79 FF F9 FF 79 7F 79 9F 8F 8F 8F 8C FF 50 FF |.y...y.y......P.|
000000D0: 71 FF FA 9F 8C 8F 8F 8F 8F 8F 8F 97 9F FB 7F 75 |q..............u|
000000E0: FF F9 70 79 8F FF F9 85 8F 8F 8F 8F 8F 8F 8C FF |..py............|
000000F0: FF FF 7F FF FA 9F 8C 8F 8F 8F 8F FF 77 F8 4F 2C |............w.O,|
00000100: 20 4E 2E 4A 2E 20 20 30 38 30 30 34 20 20 20 20 | N.J. 08004 |
00000110: 2A 00 33 09 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 7C 0B FF FF 31 FD FF DA D0 FD FF FF |***.|...1.......|
00000140: F6 F3 FF EF F2 D0 DA F6 FF FD F3 FF FF F7 F7 FC |................|
00000150: FF EF D1 FF D4 D2 FF FF FF FF DF F2 D0 D2 DF FF |................|
00000160: FF D0 DC FF FF FF D2 FF FE FF FF FC FF F6 EE EF |................|
00000170: D1 FA FA D2 DF D7 FF DF D2 E3 FF FA FF 3A F3 CF |.............:..|
00000180: FF 31 FF FF FF FF FF FF FF FF FF FF FF FF FF FF |.1..............|
00000190: FF FF FF FF FF FF FF FF FF FF FF FF FF FF 7F F3 |................|
000001A0: 42 FF 31 FF FF FF D2 DF FF EF FF EE DF EF D2 D0 |B.1.............|
000001B0: DF FF FF F6 FF FF FE FD FF DF F3 FF FF FF FF B0 |................|
000001C0: F2 3F FF 31 FF FF FF FF FF FF DF D0 F2 DD FF FE |.?.1............|
000001D0: F6 FF EF D0 DD FF DF D0 FF FF FF FF FF FF FF FF |................|
000001E0: FF FF 2A FF 31 FF DF F2 FF D2 FF EF D2 F6 DD FF |..*.1...........|
000001F0: FF DF D0 DA EF EE EF FE FF F0 DF F7 53 45 44 2A |............SED*|
00000200: 00 21 0A 96 00 8F 2A 20 20 20 20 20 20 43 4F 4D |.!....* COM|
00000210: 4D 55 4E 49 43 41 54 49 4F 4E 53 20 20 20 20 20 |MUNICATIONS |
00000220: 2A 00 42 0A A0 00 8F 2A 20 20 20 20 20 20 34 34 |*.B....* 44|
00000230: 20 44 45 4C 4D 41 20 44 52 49 56 45 20 20 20 20 | DELMA DRIVE |
00000240: 20 2A 00 63 0A AA 00 8F 2A 54 4F 52 4F 4E 54 4F | *.c....*TORONTO|
00000250: 2C 20 4F 4E 54 41 52 49 4F 20 20 4D 38 57 20 34 |, ONTARIO M8W 4|
00000260: 4E 36 2A 00 84 0A B4 00 8F 2A 2A 2A 2A 2A 2A 2A |N6*......*******|
00000270: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000280: 2A 2A 2A 2A 00 8A 0A BE 00 3A 00 9D 0A C8 00 9C |****.....:......|
00000290: 20 3A 20 86 20 54 4C 28 31 30 30 30 29 00 A3 0A | : . TL(1000)...|
000002A0: D2 00 3A 00 BA 0A DC 00 8F 20 2A 2A 2A 2A 2A 2A |..:...... ******|
000002B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 D1 0A E6 00 8F |**********......|
000002C0: 20 52 45 41 44 59 20 44 49 53 4B 20 46 49 4C 45 | READY DISK FILE|
000002D0: 53 00 E8 0A F0 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |S...... ********|
000002E0: 2A 2A 2A 2A 2A 2A 2A 2A 00 EE 0A FA 00 3A 00 0A |********.....:..|
000002F0: 0B 04 01 99 22 93 22 A6 31 34 29 22 12 20 43 4F |....".".14)". CO|
00000300: 4D 50 41 43 54 4F 52 20 11 11 00 35 0B 0E 01 99 |MPACTOR ...5....|
00000310: 22 54 48 49 53 20 50 52 4F 47 52 41 4D 20 57 49 |"THIS PROGRAM WI|
00000320: 4C 4C 20 43 4F 4D 50 41 43 54 20 41 20 50 52 4F |LL COMPACT A PRO|
00000330: 47 52 41 4D 22 00 65 0B 18 01 99 22 4C 4F 43 41 |GRAM".e...."LOCA|
00000340: 54 45 44 20 4F 4E 20 41 4E 59 20 44 52 49 56 45 |TED ON ANY DRIVE|
00000350: 20 42 59 20 44 45 4C 45 54 49 4E 47 20 41 4C 4C | BY DELETING ALL|
00000360: 20 52 45 4D 22 00 93 0B 22 01 99 22 4E 4F 54 41 | REM"...".."NOTA|
00000370: 54 49 4F 4E 53 2C 20 42 4C 41 4E 4B 20 4C 49 4E |TIONS, BLANK LIN|
00000380: 45 53 2C 20 41 4E 44 20 42 59 20 4C 49 4E 4B 49 |ES, AND BY LINKI|
00000390: 4E 47 22 00 B8 0B 2C 01 99 22 54 4F 47 45 54 48 |NG"...,.."TOGETH|
000003A0: 45 52 20 41 4C 4C 20 50 4F 53 53 49 42 4C 45 20 |ER ALL POSSIBLE |
000003B0: 4C 49 4E 45 53 2E 11 22 00 E7 0B 36 01 99 22 54 |LINES.."...6.."T|
000003C0: 48 45 20 4E 45 57 20 43 4F 4D 50 41 43 54 45 44 |HE NEW COMPACTED|
000003D0: 20 50 52 4F 47 52 41 4D 20 57 49 4C 4C 20 42 45 | PROGRAM WILL BE|
000003E0: 20 53 41 56 45 44 22 00 17 0C 40 01 99 22 54 4F | SAVED"...@.."TO|
000003F0: 20 41 4E 59 20 44 49 53 4B 20 44 52 49 56 45 20 | ANY DISK DRIVE |
00000400: 57 49 54 48 20 54 48 45 20 53 41 4D 45 20 46 49 |WITH THE SAME FI|
00000410: 4C 45 4E 41 4D 45 22 00 37 0C 4A 01 99 22 42 55 |LENAME".7.J.."BU|
00000420: 54 20 57 49 54 48 20 41 20 27 2F 43 27 20 53 55 |T WITH A '/C' SU|
00000430: 46 46 49 58 2E 11 22 00 57 0C 54 01 85 22 12 20 |FFIX..".W.T..". |
00000440: 49 4E 50 55 54 20 46 49 4C 45 20 44 52 49 56 45 |INPUT FILE DRIVE|
00000450: 20 23 22 3B 44 49 24 00 77 0C 5E 01 85 22 12 4F | #";DI$.w.^..".O|
00000460: 55 54 50 55 54 20 46 49 4C 45 20 44 52 49 56 45 |UTPUT FILE DRIVE|
00000470: 20 23 22 3B 44 4F 24 00 94 0C 68 01 85 22 12 49 | #";DO$...h..".I|
00000480: 4E 50 55 54 20 46 49 4C 45 20 4E 41 4D 45 92 22 |NPUT FILE NAME."|
00000490: 3B 46 4C 24 00 A9 0C 72 01 99 22 93 53 43 41 4E |;FL$...r..".SCAN|
000004A0: 4E 49 4E 47 20 46 49 4C 45 00 CA 0C 7C 01 99 22 |NING FILE...|.."|
000004B0: 20 20 20 46 4F 52 20 54 41 52 47 45 54 20 4C 49 | FOR TARGET LI|
000004C0: 4E 45 53 2E 2E 2E 2E 2E 11 11 00 DF 0C 86 01 9F |NES.............|
000004D0: 20 31 35 2C 38 2C 67 FF FF 3B FF FF FC FF FF FF | 15,8,g..;......|
000004E0: 1F FB 2F F7 31 FF FF FB F3 FB FF FA FF D6 8B 10 |../.1...........|
000004F0: 00 50 01 18 A9 9F 24 AA 22 2C 50 2C 52 22 00 04 |.P....$.",P,R"..|
00000500: 0D 9A 01 3A 00 26 0D A4 01 8F 20 2A 2A 2A 2A 2A |...:.&.... *****|
00000510: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000520: 2A 2A 2A 2A 2A 2A 00 48 0D AE 01 8F 20 52 45 41 |******.H.... REA|
00000530: 44 20 4C 4F 41 44 20 41 44 52 2C 20 4C 49 4E 4B |D LOAD ADR, LINK|
00000540: 20 26 20 4C 49 4E 45 23 00 6A 0D B8 01 8F 20 2A | & LINE#.j.... *|
00000550: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000560: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 70 0D C2 01 3A |**********.p...:|
00000570: 00 83 0D CC 01 8D 20 32 36 30 30 3A 20 8D 20 32 |...... 2600: . 2|
00000580: 35 34 30 00 9E 0D D6 01 8D 20 32 35 34 30 3A 20 |540...... 2540: |
00000590: 8B 20 56 AA 56 31 B2 30 20 A7 20 39 35 30 00 B8 |. V.V1.0 . 950..|
000005A0: 0D E0 01 8D 20 32 35 34 30 3A 20 4C 4E B2 56 31 |.... 2540: LN.V1|
000005B0: AA 28 32 35 36 AC 56 29 00 BE 0D EA 01 3A 00 E3 |.(256.V).....:..|
000005C0: 0D F4 01 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.... ***********|
000005D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000005E0: 2A 2A 2A 00 01 0E FE 01 8F 20 20 20 20 20 20 20 |***...... |
000005F0: 20 53 43 41 4E 20 42 41 53 49 43 20 4C 49 4E 45 | SCAN BASIC LINE|
00000600: 53 00 26 0E 08 02 8F 20 46 4F 52 20 47 4F 54 4F |S.&.... FOR GOTO|
00000610: 2C 20 47 4F 53 55 42 2C 20 26 20 54 48 45 4E 20 |, GOSUB, & THEN |
00000620: 54 4F 4B 45 4E 53 00 4B 0E 12 02 8F 20 2A 2A 2A |TOKENS.K.... ***|
00000630: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000640: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 51 0E 1C 02 |***********.Q...|
00000650: 3A 00 5C 0E 26 02 8D 20 32 35 36 30 00 6C 0E 30 |:.\.&.. 2560.l.0|
00000660: 02 8B 20 56 B2 30 20 A7 20 34 37 30 00 86 0E 3A |.. V.0 . 470...:|
00000670: 02 8B 20 56 B2 31 33 37 20 B0 20 56 B2 31 34 31 |.. V.137 . V.141|
00000680: 20 A7 20 36 34 30 00 99 0E 44 02 8B 20 56 B3 B1 | . 640...D.. V..|
00000690: 31 36 37 20 A7 20 35 35 30 00 9F 0E 4E 02 3A 00 |167 . 550...N.:.|
000006A0: B6 0E 58 02 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..X.. **********|
000006B0: 2A 2A 2A 2A 2A 2A 00 CD 0E 62 02 8F 20 47 45 54 |******...b.. GET|
000006C0: 20 54 41 52 47 45 54 20 4C 49 4E 45 23 00 E4 0E | TARGET LINE#...|
000006D0: 6C 02 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |l.. ************|
000006E0: 2A 2A 2A 2A 00 EA 0E 76 02 3A 00 F6 FF 2F FF FA |****...v.:.../..|
000006F0: ED 7F 30 00 0C 0F 8A 02 8D 20 32 35 36 30 3A 20 |..0...... 2560: |
00000700: 8B 20 56 B2 33 32 20 A7 20 36 35 30 00 24 0F 94 |. V.32 . 650.$..|
00000710: 02 8B 20 56 B3 34 38 20 B0 20 56 B1 35 37 20 A7 |.. V.48 . V.57 .|
00000720: 20 37 34 30 00 39 0F 9E 02 4C 54 B2 28 31 30 AC | 740.9...LT.(10.|
00000730: 4C 54 29 AA C5 28 43 24 29 00 4B 0F A8 02 8D 20 |LT)..(C$).K.... |
00000740: 32 35 36 30 3A 20 89 20 36 36 30 00 51 0F B2 02 |2560: . 660.Q...|
00000750: 3A 00 6E 0F BC 02 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |:.n.... ********|
00000760: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 8B |**************..|
00000770: 0F C6 02 8F 20 43 48 45 43 4B 20 49 46 20 41 4C |.... CHECK IF AL|
00000780: 52 45 41 44 59 20 46 4F 55 4E 44 00 A8 0F D0 02 |READY FOUND.....|
00000790: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
000007A0: 2A 2A 2A 2A 2A 2A 2A 2A 00 AE 0F DA 02 3A 00 BC |********.....:..|
000007B0: 0F E4 02 81 20 58 B2 30 20 A4 20 4E 00 D3 0F EE |.... X.0 . N....|
000007C0: 02 20 20 8B 20 54 4C 28 58 29 B2 4C 54 20 A7 20 |. . TL(X).LT . |
000007D0: 38 37 30 00 DB 0F F8 02 82 20 58 00 F0 0F 02 03 |870...... X.....|
000007E0: 54 4C 28 4E 29 B2 4C 54 20 3A 20 4E B2 4E AA 31 |TL(N).LT : N.N.1|
000007F0: 00 FA 0F 0C 03 99 20 4C 54 2C 00 0D 10 16 03 8B |...... LT,......|
00000800: 20 4E B3 31 30 30 30 20 A7 20 38 37 30 00 2C 10 | N.1000 . 870.,.|
00000810: 20 03 99 22 11 11 54 4F 4F 20 4D 41 4E 59 20 54 | .."..TOO MANY T|
00000820: 41 52 47 45 54 20 4C 49 4E 45 53 21 00 37 10 2A |ARGET LINES!.7.*|
00000830: 03 89 20 32 36 36 30 00 3D 10 34 03 3A 00 5F 10 |.. 2660.=.4.:._.|
00000840: 3E 03 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |>.. ************|
00000850: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00000860: 81 10 48 03 8F 20 43 48 45 43 4B 20 46 4F 52 20 |..H.. CHECK FOR |
00000870: 27 4F 4E 2E 2E 2E 47 4F 54 4F 2F 47 4F 53 55 42 |'ON...GOTO/GOSUB|
00000880: 27 00 A3 10 52 03 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |'...R.. ********|
00000890: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000008A0: 2A 2A 2A 00 A9 10 5C 03 3A 00 BA 10 66 03 8B 20 |***...\.:...f.. |
000008B0: 56 B2 34 34 20 A7 20 36 34 30 00 CC 10 70 03 8B |V.44 . 640...p..|
000008C0: 20 56 B3 B1 33 32 20 A7 20 35 36 30 00 DE 10 7A | V..32 . 560...z|
000008D0: 03 8D 20 32 35 36 30 3A 20 89 20 38 37 30 00 E4 |.. 2560: . 870..|
000008E0: 10 84 03 3A 00 FC 10 8E 03 8F 20 2A 2A 2A 2A 2A |...:...... *****|
000008F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 14 11 98 |************....|
00000900: 03 8F 20 53 4F 52 54 20 54 41 52 47 45 54 20 4C |.. SORT TARGET L|
00000910: 49 4E 45 53 00 2C 11 A2 03 8F 20 2A 2A 2A 2A 2A |INES.,.... *****|
00000920: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 32 11 AC |************.2..|
00000930: 03 3A 00 43 11 B6 03 8B 20 4E B3 32 20 A7 20 31 |.:.C.... N.2 . 1|
00000940: 30 36 30 00 53 11 C0 03 81 20 58 B2 30 20 A4 20 |060.S.... X.0 . |
00000950: 4E AB 31 00 66 11 CA 03 3A 20 20 81 20 59 B2 30 |N.1.f...: . Y.0|
00000960: 20 A4 20 4E AB 32 00 86 11 D4 03 3A 20 20 20 20 | . N.2.....: |
00000970: 8B 20 54 4C 28 59 29 20 B3 20 54 4C 28 58 29 20 |. TL(Y) . TL(X) |
00000980: A7 20 31 30 30 30 00 AF 11 DE 03 3A 20 20 20 20 |. 1000.....: |
00000990: 56 B2 54 4C 28 59 29 8F 8D 8F F7 FF 9F 7F 9F D9 |V.TL(Y).........|
000009A0: F7 FF 9F 7F 9F 9F 8D 8F F7 FF 9F 7F 9F D9 FB FF |................|
000009B0: CF FF FF F8 F9 8F FF 9F 7F FF CA FF A9 F8 9D FF |................|
000009C0: 4D FF A6 F8 FA 9F 8C 8C 8C 8C 8C 8C 8C 8C 8C 8C |M...............|
000009D0: 8C 8C 8C 8C 8C 8C 8C 8C 8C 8C 8C FF 0B FF F1 FF |................|
000009E0: FA 9F F1 7F 77 8F F9 FF 7F 7F FF 9F 46 4F 52 20 |....w.......FOR |
000009F0: 43 4F 4D 50 41 43 54 00 13 12 10 04 8F 20 2A 2A |COMPACT...... **|
00000A00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000A10: 2A 2A 2A 00 19 12 1A 04 3A 00 38 12 24 04 99 20 |***.....:.8.$.. |
00000A20: 22 A6 DF D0 DA EF F6 DF EF D2 DF D5 FF FA D2 DF |"...............|
00000A30: FE FF FD FD FD FF 66 66 FF FF 7F FF FD FF FF FE |......ff........|
00000A40: FF F0 7F F2 FD 66 80 CE 86 CF 86 CE 8F 99 BF 8B |.....f..........|
00000A50: 10 00 50 01 18 A9 96 8B 10 00 8F D0 8F E0 08 80 |..P.............|
00000A60: B8 48 A8 89 F6 80 40 4A C0 C8 88 FC 48 9F 89 A9 |.H....@J....H...|
00000A70: A6 8B 48 FF F2 DF FB FD FB F7 FD F3 FF FF F0 DF |..H.............|
00000A80: FF FF 3C 48 E9 8B FF C4 CE 86 08 E4 C4 50 01 18 |..<H.........P..|
00000A90: A9 A6 89 81 48 40 98 8B CF 2F DF 3F AF 3F DF 31 |....H@.../.?.?.1|
00000AA0: 3F AF 36 6F FF EF F6 63 F3 FF 36 6F FF 31 AF 31 |?.6o...c..6o.1.1|
00000AB0: DF F2 26 F0 FF 62 32 5F 2F FF DF AF A2 23 CF 91 |..&..b2_/....#..|
00000AC0: 7F F8 DF F4 FF 91 FF FF A9 F8 F8 C8 C8 C8 C8 C8 |................|
00000AD0: C8 C8 C8 C8 C8 C8 C8 CF F5 FF 9F FF FF A9 FF 87 |................|
00000AE0: 07 FF F9 FF F7 07 F7 F8 FF FA 44 52 00 00 13 92 |..........DR....|
00000AF0: 04 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.. *************|
00000B00: 00 06 13 9C 04 3A 00 11 13 A6 04 8D 20 32 35 34 |.....:...... 254|
00000B10: 30 00 1F 13 B0 04 98 36 2C C7 28 56 31 29 3B 00 |0......6,.(V1);.|
00000B20: 31 13 BA 04 98 36 2C C7 28 56 29 3B 3A 20 52 B2 |1....6,.(V);: R.|
00000B30: 30 00 37 13 C4 04 3A 00 57 13 CE 04 8F 20 2A 2A |0.7...:.W.... **|
00000B40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000B50: 2A 2A 2A 2A 2A 2A 2A 00 77 13 D8 04 8F 20 43 4F |*******.w.... CO|
00000B60: 50 5B FF FA D2 DF D7 FF F6 DF FD FF FA D2 DF FF |P[..............|
00000B70: FF DF EE DA DF FE FF FF 34 7F DF FF 31 FF FF FF |........4...1...|
00000B80: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF |................|
00000B90: FF FF FF FF FF FF FF FF 3A 7F FA FD FF FF 6E 7F |........:.....n.|
00000BA0: 1F FF 3B FF FF FF FD FF FF FF D7 F7 7F FC F7 FF |..;.............|
00000BB0: FF D7 FF 7F FF FF BF 7F FF FE DC 7F FF FF FF 37 |...............7|
00000BC0: FF FC FF FC F7 7F FF FF F5 FF FF FF F2 6F FF D4 |.............o..|
00000BD0: 7F FF FE 3B FF FF FF FD FF FF FF FB F7 7F FC F7 |...;............|
00000BE0: FF FF FF FB FF 7F FF FF 02 14 14 05 4C 4E B2 4C |............LN.L|
00000BF0: 67 FF F3 FF FF FC FA FB FF F3 FF FF FF 33 FF FA |g............3..|
00000C00: DD FA FF FA 6F 7F FE 3B FF FF FF FC FF FF FF 6D |....o..;.......m|
00000C10: F2 FE 37 FF FC 7F FF FF FF 6F FF FC 7F FF F3 FF |..7......o......|
00000C20: F5 FF F7 FF F7 FF FF F4 6D FF FE 37 FF FC 7F FF |........m..7....|
00000C30: FF F5 FF F7 FF FC FF FF D6 6D FA FE 37 FF FC 7F |.........m..7...|
00000C40: 67 F7 FD FF FF F5 FF F7 FD FF FF FF FF 6F DF FE |g............o..|
00000C50: 3B FF FF FF FC FF FF FF 37 FF FC 67 FF FF F5 FF |;.......7..g....|
00000C60: F7 FF FF FF FF 42 6F EF FE DC 7F F7 FF FF FF 27 |.....Bo........'|
00000C70: FF E3 7F FF FF FD FF DF FF 2F 6F FF FF FF FF FF |........./o.....|
00000C80: 37 FF EF FB F2 E3 F3 7F FA DD FF F5 FF 3F FF E2 |7............?..|
00000C90: FF F2 6D FF FF FF FF FF 37 FF EF FB F2 E3 F3 7F |..m.....7.......|
00000CA0: FA DD FF F5 FF F7 FD FF FF FF 6F 6D CF FE 33 FF |..........om..3.|
00000CB0: F7 FF F5 FF FF A2 6D 42 FF 23 FC FA B5 F2 D7 F7 |......mB.#......|
00000CC0: F3 5C 6E 8F B4 40 1F 5C 81 A8 C9 F8 8F FF DF 31 |.\n..@.\.......1|
00000CD0: CF 21 3C F9 F9 D6 B9 F7 F9 98 F9 D9 F8 D8 FF 9C |.!<.............|
00000CE0: 98 7F F0 EF 7F 69 05 3A 20 20 8B 20 46 20 A7 20 |.....i.: . F . |
00000CF0: 98 36 2C 22 3A 22 3B 20 3A 20 52 B2 35 00 0E 15 |.6,":"; : R.5...|
00000D00: 96 05 46 B2 30 20 3A 20 89 20 31 35 32 30 00 14 |..F.0 : . 1520..|
00000D10: 15 A0 05 3A 00 36 15 AA 05 8F 20 2A 2A 2A 2A 2A |...:.6.... *****|
00000D20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000D30: 2A 2A 2A 2A 2A 2A 00 58 15 B4 05 8F 20 2A 2A 2A |******.X.... ***|
00000D40: 2A 20 20 53 43 41 4E 20 42 41 53 49 43 20 4C 49 |* SCAN BASIC LI|
00000D50: 4E 45 20 20 2A 2A 2A 2A 00 7A 15 BE 05 8F 20 2A |NE ****.z.... *|
00000D60: 2A 2A 2A 20 26 20 43 4F 4D 50 41 43 54 20 50 52 |*** & COMPACT PR|
00000D70: 4F 47 52 41 4D 20 2A 2A 2A 2A 00 9C 15 C8 05 8F |OGRAM ****......|
00000D80: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
00000D90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 A2 15 D2 |************....|
00000DA0: 05 3A 00 B5 15 DC 05 98 36 2C 43 24 3B 20 3A 20 |.:......6,C$; : |
00000DB0: 52 B2 52 AA 31 00 C0 15 E6 05 8D 20 32 35 36 30 |R.R.1...... 2560|
00000DC0: 00 D5 15 F0 05 3A 20 20 8B 20 56 B2 31 33 37 20 |.....: . V.137 |
00000DD0: A7 20 46 B2 31 00 F2 15 FA 05 3A 20 20 8B 20 56 |. F.1.....: . V|
00000DE0: B2 31 33 39 20 B0 20 56 B2 31 36 37 20 A7 20 46 |.139 . V.167 . F|
00000DF0: B2 31 00 06 16 04 06 3A 20 20 8B 20 56 B2 30 20 |.1.....: . V.0 |
00000E00: A7 20 31 39 38 8F FF FD FB F5 F1 8D 8F 8F FD 9F |. 198...........|
00000E10: FB C9 89 99 8F C1 9F 8F 97 9F 9F FF 8F FB FF F1 |................|
00000E20: 8D FF 86 FB 88 F1 FA 9F 8C 8C 8C 8C 8C 8C 8C 8C |................|
00000E30: 8C 8C 8C 8C 8C 8C 8C 8C 8C 8C 8C 8C FF FF FB 8F |................|
00000E40: F1 FA 9F 81 79 FF 74 91 9F F7 F0 7C 7F 75 8F 84 |....y.t....|.u..|
00000E50: FF 1C FB 8B F1 FA 9F FF FF 79 78 7F 79 FF 8F F9 |.........yx.y...|
00000E60: FF 79 77 8F F0 71 8F FF 7F 75 FF FF FB FB FF F1 |.yw..q...u......|
00000E70: FA 9F 8C 8C 8C 8C 8C 8C 8C 8C 8C 8C 8C 8C 8C 8C |................|
00000E80: 8C 8C 8C 8C 8C 8C FF F6 FB FC F1 8D FF CF FB F7 |................|
00000E90: F1 FD 9F FB C9 DF 9F 97 89 9F C1 9F 8F 9B 9F 9F |................|
00000EA0: FF CF FB FF F1 FE 9F 89 87 9B 8F 8D 8F FD 9F FB |................|
00000EB0: CF 9F 8F C1 9F 8F 9B 89 9F FF F7 FB 1F F1 FF 9F |................|
00000EC0: 8F 9F 9F B0 00 CA 16 72 06 3A 00 EB 16 7C 06 8F |.......r.:...|..|
00000ED0: 20 2A 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 F9 16 86 06 |***********.....|
00000EF0: 8F 20 51 55 4F 54 45 20 2D 00 1A 17 90 06 8F 20 |. QUOTE -...... |
00000F00: 43 4F 50 59 20 54 49 4C 4C 20 4E 45 58 54 20 4F |COPY TILL NEXT O|
00000F10: 52 20 4C 49 4E 45 20 45 4E 44 00 3B 17 9A 06 8F |R LINE END.;....|
00000F20: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
00000F30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 41 17 A4 06 |***********.A...|
00000F40: 3A 00 54 17 AE 06 8B 20 56 B3 B1 33 34 20 A7 20 |:.T.... V..34 . |
00000F50: 31 38 6F FF FF C4 75 62 FC 38 36 2C 43 24 3B 20 |18o...ub.86,C$; |
00000F60: 3A 20 52 B2 52 AA 31 00 72 17 C2 06 8D 20 32 35 |: R.R.1.r.... 25|
00000F70: 36 30 00 84 17 CC 06 8B 20 56 B2 33 34 20 A7 20 |60...... V.34 . |
00000F80: 31 35 30 30 00 95 17 D6 06 8B 20 56 B1 30 20 A7 |1500...... V.0 .|
00000F90: 20 31 37 32 30 00 AC 17 E0 06 8B 20 46 20 A7 20 | 1720...... F . |
00000FA0: 56 B2 30 20 3A 20 89 20 31 32 31 30 00 C2 17 EA |V.0 : . 1210....|
00000FB0: 06 98 36 2C C7 28 33 34 2B F7 FF FF FF FF 7F FF |..6,.(34+.......|
00000FC0: FF F6 FF BA 75 0F FF 33 FF F7 F3 F3 C8 81 6C 4E |....u..3......lN|
00000FD0: 79 0A 58 80 68 4D 8F 0D F6 80 10 10 10 10 10 10 |y.X.hM..........|
00000FE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000FF0: 2A 2A 00 11 18 12 07 8F 20 49 46 20 43 4F 4C 4F |**...... IF COLO|
00001000: 4E 20 2D 20 43 48 4B 20 4E 45 58 54 20 43 48 41 |N - CHK NEXT CHA|
00001010: 52 00 2B 18 1C 07 8F 20 20 20 20 20 20 45 4C 53 |R.+.... ELS|
00001020: 45 20 43 4F 50 59 20 43 48 41 52 00 4A 18 26 07 |E COPY CHAR.J.&.|
00001030: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
00001040: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 50 18 30 07 3A |**********.P.0.:|
00001050: 00 63 18 3A 07 8B 20 56 B3 B1 35 38 20 A7 20 31 |.c.:.. V..58 . 1|
00001060: 35 30 30 00 6E 18 44 07 8D 20 32 35 36 30 00 87 |500.n.D.. 2560..|
00001070: 18 4E 07 8B 20 56 B2 33 32 20 B0 20 56 B2 35 38 |.N.. V.32 . V.58|
00001080: 20 A7 20 31 38 8B 8F FF FD FF 7F F1 FD 9F FB C9 | . 18...........|
00001090: 8F 97 89 9F C1 9F 8F 9B 89 9F FF CC FF B8 F1 FD |................|
000010A0: 9F FB C9 8F 8F C1 9F 8F 9F B8 30 00 BF 18 6C 07 |..........0...l.|
000010B0: 98 16 2C 22 3A 22 3B 20 3A 20 52 B2 52 AA 31 00 |..,":"; : R.R.1.|
000010C0: CA 18 76 07 89 20 31 35 32 30 00 D0 18 80 07 3A |..v.. 1520.....:|
000010D0: 00 F3 18 8A 07 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |...... *********|
000010E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000010F0: 2A 2A 2A 00 07 19 94 07 8F 20 45 4E 44 20 4F 46 |***...... END OF|
00001100: 20 4C 49 4E 45 20 2D 00 2A 19 9E 07 8F 20 43 41 | LINE -.*.... CA|
00001110: 4E 20 57 45 20 43 4F 4D 50 41 43 54 20 54 48 45 |N WE COMPACT THE|
00001120: 53 45 20 4C 49 4E 45 53 20 3F 00 4D 19 A8 07 8F |SE LINES ?.M....|
00001130: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
00001140: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 53 19 |*************.S.|
00001150: B2 07 3A 00 72 19 BC 07 8B 20 46 20 B0 20 28 52 |..:.r.... F . (R|
00001160: B1 31 37 30 29 20 A7 20 56 B2 30 3A 89 20 31 32 |.170) . V.0:. 12|
00001170: 31 30 00 7D 19 C6 07 8D 20 32 35 34 30 00 91 19 |10.}.... 2540...|
00001180: D0 07 8B 20 56 AA 56 31 B2 30 20 A7 20 32 33 39 |... V.V1.0 . 239|
00001190: 30 00 AB 19 DA 07 8D 20 32 35 34 30 3A 20 4C 4E |0...... 2540: LN|
000011A0: B2 56 31 AA 28 32 35 36 AC 56 29 00 C4 19 E4 07 |.V1.(256.V).....|
000011B0: 4C 67 7F FC F7 FF FF FF FB FF 7F FC FF FF FF 33 |Lg.............3|
000011C0: FF FA DD FA FF BF 73 DF F5 FF FF D2 73 02 F4 31 |......s.....s..1|
000011D0: FF FF FF FF FF FF FF FF FF FF FF FF 2A 2A 2A 2A |............****|
000011E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 08 1A 02 08 8F 20 |*********...... |
000011F0: 43 48 4B 20 49 46 20 4C 49 4E 45 23 20 49 53 20 |CHK IF LINE# IS |
00001200: 41 20 54 41 52 47 45 54 00 27 1A 0C 08 8F 20 2A |A TARGET.'.... *|
00001210: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001220: 2A 2A 2A 2A 2A 2A 2A 00 2D 1A 16 08 1A 00 3B 1A |*******.-.....;.|
00001230: 20 08 81 20 58 B2 30 20 A4 20 4E 00 50 1A 2A 08 | .. X.0 . N.P.*.|
00001240: 8B 20 54 4C 28 58 29 B3 4C 4E 20 A7 20 82 20 58 |. TL(X).LN . . X|
00001250: 00 66 1A 34 08 8B 20 54 4C 28 58 29 B2 4C 4E 20 |.f.4.. TL(X).LN |
00001260: A7 20 32 32 37 30 00 6A 7F FF F3 FF FF 34 7F F2 |. 2270.j.....4..|
00001270: F2 31 FF FF FF FF FF FF FF FF FF FF FF FF FF FF |.1..............|
00001280: FF FF FF FF FF FF FF FF 22 7F FF F2 31 FF DF D0 |........"...1...|
00001290: ED FF EE FF FE FD FF FA FF 7F 7F EA F2 31 FF FF |.............1..|
000012A0: D2 FF DF F6 FF FD FF FA D2 DF D7 FF FC FF FA D2 |................|
000012B0: DF FF FF FF BF 7F CF F2 31 FF FF FF FF FF FF FF |........1.......|
000012C0: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF AF |................|
000012D0: 7F 4F F2 7F FF D0 7F 5F F2 3B 20 32 35 36 30 3A |.O....._.; 2560:|
000012E0: 20 8B 20 56 B2 31 34 33 20 A7 20 31 36 33 30 00 | . V.143 . 1630.|
000012F0: 08 1B 84 08 8B 20 56 B2 33 32 20 B0 20 56 B2 35 |..... V.32 . V.5|
00001300: 38 20 A7 20 32 31 37 30 00 19 1B 8E 08 8B 20 56 |8 . 2170...... V|
00001310: B2 30 20 A7 20 31 39 8F FF FF 8B FD FF FF FF 9B |.0 . 19.........|
00001320: 8F 98 8D 88 8D 9F 8D 8F F9 C9 F9 CC 8F 9F 8D 8F |................|
00001330: FF 9F 8F 97 99 8F FF 86 FD D8 FF 9D FF FA FD DF |................|
00001340: FF FA 9F 8C 8C 8C 8C 8C 8C 8C 8C 8C 8C 8C 8C 8C |................|
00001350: 8C 8C 8C 8C 8C 8C 8C 8C 8C 8C 8C 8C 8C 8C 8C FF |................|
00001360: 17 FD DB FF FA 9F FF 7F 75 FF 98 9F F5 FF 7F 7F |........u.......|
00001370: FF 7F 8F 84 FF FB FD 6F FF FA 9F FB 79 FF 77 FF |.......o....y.w.|
00001380: 9F FF 7F 75 FF 9F FF 75 FF 8F 9F FF 7F 75 FC 9F |...u...u.....u..|
00001390: 81 8F FF 7F 75 FF 98 FF CD FD 6D FF FA 9F 8C 8C |....u.....m.....|
000013A0: 8C 8C 8C 8C 8C 8C 8C 8C 8C 8C 8C 8C 8C 8C 8C 8C |................|
000013B0: 8C 8C 8C 8C 8C 8C 8C 8C 8C 8C FF FF FD E7 FF 9D |................|
000013C0: FF 4B FD EF FF FF 9B 8F 6B 9F 9F 8F 9D 6B 9F 9F |.K......k....k..|
000013D0: 9F FE BC F2 FA F6 FE A2 F1 1B E8 08 98 16 2C C7 |..............,.|
000013E0: 28 4C 67 F6 5C 6E 8F 96 40 1F 54 80 50 88 E1 40 |(Lg.\n..@.T.P..@|
000013F0: C9 80 FF 54 68 8F F6 80 40 CE 4A C8 88 CD C6 FF |...Th...@.J.....|
00001400: 8F F4 88 EB 40 44 40 81 C0 88 EB 40 CE CF 81 0E |....@D@....@....|
00001410: 80 40 40 5F A2 2F AA B0 F2 60 4F 23 D6 FF AF 26 |.@@_./...`O#...&|
00001420: AF 23 D6 FF AF BF FF 26 FF 26 0F DF 3F FF EF FF |.#.....&.&..?...|
00001430: EA 23 F2 B0 A2 61 F6 FF AF 2F EF 22 4F 2F AF BF |.#...a.../."O/..|
00001440: FF A2 23 20 B0 E2 60 58 80 AC C6 89 1F F6 80 10 |..# ..`X........|
00001450: 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 |................|
00001460: 10 10 18 80 F8 C6 19 1F F6 88 9D B9 9A 88 AF AA |................|
00001470: 88 AC AF BF D8 9C AC DA 80 1F 81 FD C6 CF 1F F6 |................|
00001480: 88 ED E8 BF D9 9E 88 9D B9 9A 88 AF AA 88 D8 E8 |................|
00001490: AF AD E8 9C BF 81 C8 CF A8 1F F6 80 10 10 10 10 |................|
000014A0: 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 18 |................|
000014B0: 81 49 CF 9F 1F 58 81 6D CF E9 1F F3 FC FA B5 F3 |.I...X.m........|
000014C0: C0 1F 5C 6E 8F AF 69 D6 B9 FB 02 A7 7F FF FF FF |..\n..i.........|
000014D0: FF FF CF FF FF 74 35 00 1E 1D 60 09 99 88 F9 FF |.....t5...`.....|
000014E0: FF FF F9 F4 70 7F FF 71 FF 9F FF FF 7F 79 7F 9F |....p..q.....y..|
000014F0: F8 70 74 7F FF 7F 77 FF 94 7F F0 9F F5 F0 77 8F |.pt...w.......w.|
00001500: F7 F0 77 78 7F 9F F7 FF 7F 9F 8F 8F 8F 8F 8F FC |..wx............|
00001510: 7F 7F 78 F0 7F 79 FF 8F FF 7F 77 FF FF 98 FF 8F |..x..y....w.....|
00001520: FE BC FF FF 7C C9 8F DF 89 9F 8F 8F 8D F9 FC 8D |....|...........|
00001530: FF 9F C9 FB 9F 99 97 8F FF FF FE B7 FF FF 98 F9 |................|
00001540: FF FF 7F 70 7F 7F 88 FF 9F FF 8F 8F 88 8D 88 F1 |...p............|
00001550: F0 9F FF 9F 88 8F B8 22 00 70 1D 7E 09 99 22 11 |.......".p.~..".|
00001560: 11 11 11 43 4C 52 3A 53 59 53 34 36 32 36 32 22 |...CLR:SYS46262"|
00001570: 00 92 1D 88 09 99 22 11 11 53 41 56 45 22 51 24 |......"..SAVE"Q$|
00001580: 22 40 22 44 4F 24 22 3A 22 46 4F 24 51 24 22 2C |"@"DO$":"FO$Q$",|
00001590: 38 22 00 B1 1D 92 09 97 31 35 38 2C 33 3A 81 4A |8"......158,3:.J|
000015A0: B2 36 32 33 A4 36 32 35 3A B4 DF FB F7 FF FF 3F |.623.625:......?|
000015B0: DF FF 7A 7B 2A F3 33 FF 7F FF F7 FF 2F FF BF 7B |..z{*.3...../..{|
000015C0: 6F F6 E2 23 40 F4 E2 6F E2 27 20 F1 12 60 CF 2F |o..#@..o.' ..`./|
000015D0: 6F 6F 6F 66 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |ooof************|
000015E0: 2A 2A 2A 2A 2A 2A 2A 2A 00 07 1E CE 09 8F 20 2A |********...... *|
000015F0: 2A 2A 2A 2A 20 20 53 55 42 52 4F 55 54 49 4E 45 |**** SUBROUTINE|
00001600: 53 20 2A 2A 2A 2A 2A 00 26 1E D8 09 8F 20 2A 2A |S *****.&.... **|
00001610: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001620: 2A 2A 2A 2A 2A 2A 00 2C 1E E2 0A 7F FF FA 7D FA |******.,......}.|
00001630: F2 3B FF FF FF FC FF FF FF FC F7 7F FF FF DF 7D |.;.............}|
00001640: 1F F3 FF FF F4 7F FF FF F7 FF FF FA DF FD FF FF |................|
00001650: FF 3B FF FF FC FF FF FF CA 7F FF FF 37 FF DF FD |.;..........7...|
00001660: 7F FF FF FF F5 FF FC 7F FF FF FF FF 3F FF 5A 7F |............?.Z.|
00001670: 6F FF FC 7F BC F2 DF FD F3 FF FF FF 3F FF 3C 59 |o...........?.<Y|
00001680: 59 10 58 81 FF 5A 8F 18 FA C4 CE 8F 9D BA 8F 9D |Y.X..Z..........|
00001690: B6 8A 8F 9D DA 8F 9D EC 81 0D 5A 48 18 F4 88 9D |..........ZH....|
000016A0: BB 40 C0 81 0E 88 F9 81 1F 5A CF 10 58 88 FF 59 |.@.......Z..X..Y|
000016B0: A9 11 FF 80 50 81 FF 08 CC CC CC 48 99 BF EC B4 |....P......H....|
000016C0: 88 9D E8 E8 AF E8 C4 08 81 7C 59 D8 11 FF 88 9D |.........|Y.....|
000016D0: BA 54 45 4D 24 3B 45 54 3B 45 53 00 E1 1E 5A 0A |.TEM$;ET;ES...Z.|
000016E0: 3A 00 00 00 |:... |
..#.... ***************************.E...
. * C O M P A C T O R *.G.... *
----------------- *.................
..X.Y....|Y......L.....................
.........................|Y..U..Y...YY
......P.Q.............U..PY............
...........W.O, N.J. 08004 *.3.Z..
***************************.|...1..ZP...
.....PZ...........Q.TR......PR...P....R.
........Q..R.W..R....:.O.1..............
...............B.1...R.......RP........
.........?.1.......P.......P...P........
..*.1....R..R.....PZ........SED*.!....*
COMMUNICATIONS *.B. ..* 44
DELMA DRIVE *.C....*TORONTO, ONTARI
O M8W 4N6*......***********************
****.....:...H.. : . TL(1000)...R.:.....
. ****************.Q.... READY DISK FILE
S...... ****************.....:......".".
14)". COMPACTOR ...5...."THIS PROGRAM WI
LL COMPACT A PROGRAM".E...."LOCATED ON A
NY DRIVE BY DELETING ALL REM"...".."NOTA
TIONS, BLANK LINES, AND BY LINKING"...,.
."TOGETHER ALL POSSIBLE LINES.."...6.."T
HE NEW COMPACTED PROGRAM WILL BE SAVED".
..@.."TO ANY DISK DRIVE WITH THE SAME FI
LENAME".7.J.."BUT WITH A '/C' SUFFIX..".
W.T..". INPUT FILE DRIVE #";DI$.W.^..".O
UTPUT FILE DRIVE #";DO$...H..".INPUT FIL
E NAME.";FL$...R..".SCANNING FILE.J.|.."
FOR TARGET LINES............. 15,8,G.
.;......../.1........V...P....$.",P,R"..
...:.&.... ***************************.H
.... READ LOAD ADR, LINK & LINE#.J.... *
**************************.P.B.:...L.. 2
600: . 2540...V.. 2540: . V.V1.0 . 950..
.... 2540: LN.V1.(256.V).....:...... ***
***************************......
SCAN BASIC LINES.&.... FOR GOTO, GOSUB,
& THEN TOKENS.K.... *******************
***********.Q...:.\.&.. 2560.L.0.. V.0 .
470...:.. V.137 . V.141 . 640...D.. V..
167 . 550...N.:...X.. ****************.M
.B.. GET TARGET LINE#...L.. ************
****...V.:.../...0...... 2560: . V.32 .
650.$.... V.48 . V.57 . 740.9...LT.(10.
LT).E(C$).K.... 2560: . 660.Q...:.N....
**********************...F.. CHECK IF AL
READY FOUND...P.. **********************
...Z.:...... X.0 . N.S... . TL(X).LT .
870...... X.....TL(N).LT : N.N.1...... L
T,...... N.1000 . 870.,. .."..TOO MANY T
ARGET LINES!.7.*.. 2660.=.4.:._.>.. ****
***********************...H.. CHECK FOR
'ON...GOTO/GOSUB'...R.. ****************
***********...\.:...F.. V.44 . 640.L.P..
V..32 . 560...Z.. 2560: . 870.....:....
.. *****************...... SORT TARGET L
INES.,.... *****************.2...:.C....
N.2 . 1060.S.... X.0 . N.1.F.J.: . Y.0
. N.2...T.: . TL(Y) . TL(X) . 1000..
...: V.TL(Y).......Y...........Y..
O........J.....M.......................
...........W.....FOR COMPACT...... **
*******************.....:.8.$.. "..PZ...
.R.U..R.......FF...........F.N.O.N....
..P........P.....H....@J.H..H.....H.....
..........<H...DN...DP......H@..O/.?.?.1
?.6O...C..6O.1.1..&..B2_/....#O........
...HHHHHHHHHHHHO..................DR....
.. *************.....:...... 2540......6
,G(V1);.1....6,G(V);: R.0.7.D.:.W.N.. **
***********************.W.X.. COP[..R.W.
.....R.....Z....4..1...................
........:....N..;.......W.....W....
......7............O.T..;...........
...........LN.LG............3......O.;
.......M..7.....O.............M..7...
........VM..7..G............O..;.......
7..G.........BO.......'......../O.....
7...........?....M.....7..............
..OMO.3.......MB.#....W..\N..@.\..I....1
O!<..V.....Y.X.....I.: . F . .6,":";
: R.5.....F.0 : . 1520... .:.6.... *****
**********************.X.... **** SCAN
BASIC LINE ****.Z.... **** & COMPACT PR
OGRAM ****...H.. ***********************
****...R.:......6,C$; : R.R.1...... 2560
.U...: . V.137 . F.1.....: . V.139 . V
.167 . F.1.....: . V.0 . 198...........
.I...A..................................
............Y.T....|U...........YXY...
.YW..Q..U..............................
.....O......I.....A......O..............
O..A.................J.R.:...|.. *******
*******************...... QUOTE -......
COPY TILL NEXT OR LINE END.;.... *******
*******************.A...:.T.... V..34 .
18O..DUB.86,C$; : R.R.1.R.B.. 2560...L..
V.34 . 1500...V.. V.0 . 1720...... F .
V.0 : . 1210.B....6,G(34+..........U..3
....H.LNY.X.HM..........****************
**...... IF COLON - CHK NEXT CHAR.+....
ELSE COPY CHAR.J.&.. **************
**********.P.0.:.C.:.. V..58 . 1500.N.D.
. 2560...N.. V.32 . V.58 . 18.........I
....A......L......I..A....0...L...,":";
: R.R.1.J.V.. 1520.P...:...... *********
*******************...... END OF LINE -.
*.... CAN WE COMPACT THESE LINES ?.M....
****************************.S...:.R...
. F . (R.170) . V.0:. 1210.}.F.. 2540...
P.. V.V1.0 . 2390...Z.. 2540: LN.V1.(256
.V).D...LG...........3......S....RS..1
............*************...... CHK IF L
INE# IS A TARGET.'.... *****************
*******.-.....;. .. X.0 . N.P.*.. TL(X).
LN . . X.F.4.. TL(X).LN . 2270.J....4.
.1......................"..1..P........
...1..R.......R.W....R.....O.1.......
................O..P_.; 2560: . V.143
. 1630...... V.32 . V.58 . 2170...... V
.0 . 19..................I.L............
.X......................................
.......U...........O....Y.W...U...U
....U.....U...M.M.....................
.................K......K....K..........
......,G(LG.\N..@.T.P..@I..TH...@NJH.MF.
....@D@....@NO...@@_./...`O#V..&.#V....&
.&..?....#...A.../."O/....# ..`X..F.....
.....................F..............X..Z
....FO......Y.........X.......HO........
.................IO..X.MO.........\N..IV
.........O..T5...`.........P.Q....Y.
.PT.W......W...WX..........X.Y..
.W.........|I............I.............
..P.................".P.~.."....CLR:S
YS46262"......"..SAVE"Q$"@"DO$":"FO$Q$",
8"......158,3:.J.623.625:......?..Z{*.3.
.../..{O..#@..O.' ..`O/OOOF************
********...N.. ***** SUBROUTINES *****.
&.X.. ************************.,.....}.
.;............}................;......
J..7.............?.ZO..........?.<Y
Y.X..Z...DN.........Z.....ZH.....@......
.ZO.X..Y....P...LLLH..........D..|YX....
.TEM$;ET;ES...Z.:...
> CLICK IMAGE PREVIEW FOR FULL MODAL