COMPACTOR
FILE INFORMATION
FILENAME(S): COMPACTOR
FILE TYPE(S): PRG
FILE SIZE: 6.1K
FIRST SEEN: 2025-12-01 13:41:57
APPEARS ON: 1 disk(s)
FILE HASH
779a83ee7256a67796000b4bc439de8c245ad57f423c3f509cb408420f6f15eb
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MAD GAMES 1985 | COMPACTOR | PRG | hedning, smalandsstenar | 17 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 41 08 0B 08 64 00 8F 22 8D 93 9E 00 35 08 6E 00 |A...d.."....5.n.|
00000010: 8F 22 14 14 14 14 14 14 14 14 2A 2A 2A 2A 2A 2A |."........******|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000030: 2A 2A 2A 2A 2A 00 5F 08 78 00 8F 22 14 14 14 14 |*****._.x.."....|
00000040: 14 14 14 14 2A 20 20 20 20 43 20 4F 20 4D 20 50 |....* C O M P|
00000050: 20 41 20 43 20 54 20 4F 20 52 20 20 20 20 2A 00 | A C T O R *.|
00000060: 89 08 82 00 8F 22 14 14 14 14 14 14 14 14 2A 20 |....."........* |
00000070: 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D | -------------|
00000080: 2D 2D 2D 2D 20 20 20 20 2A 00 B3 08 8C 00 8F 22 |---- *......"|
00000090: 14 14 14 14 14 14 14 14 2A 20 20 20 20 42 59 3A |........* BY:|
000000A0: 20 20 52 4F 42 45 52 54 20 42 41 4B 45 52 20 20 | ROBERT BAKER |
000000B0: 20 20 2A 00 DD 08 96 00 8F 22 14 14 14 14 14 14 | *......"......|
000000C0: 14 14 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 |..* |
000000D0: 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 07 09 | *...|
000000E0: A0 00 8F 22 14 14 14 14 14 14 14 14 2A 20 20 20 |..."........* |
000000F0: 20 42 41 4B 45 52 20 45 4E 54 45 52 50 52 49 53 | BAKER ENTERPRIS|
00000100: 45 53 20 20 20 20 2A 00 31 09 AA 00 8F 22 14 14 |ES *.1...."..|
00000110: 14 14 14 14 14 14 2A 20 20 20 20 20 31 35 20 57 |......* 15 W|
00000120: 49 4E 44 53 4F 52 20 44 52 2E 20 20 20 20 20 20 |INDSOR DR. |
00000130: 2A 00 5B 09 B4 00 8F 22 14 14 14 14 14 14 14 14 |*.[...."........|
00000140: 2A 20 20 20 20 41 54 43 4F 2C 20 4E 2E 4A 2E 20 |* ATCO, N.J. |
00000150: 20 30 38 30 30 34 20 20 20 20 2A 00 85 09 BE 00 | 08004 *.....|
00000160: 8F 22 14 14 14 14 14 14 14 14 2A 2A 2A 2A 2A 2A |."........******|
00000170: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000180: 2A 2A 2A 2A 2A 00 D0 09 C8 00 8F 22 14 14 14 14 |*****......"....|
00000190: 14 14 14 14 3E 20 4D 4F 44 2E 52 41 59 20 54 48 |....> MOD.RAY TH|
000001A0: 4F 4D 41 53 20 54 4F 20 47 49 56 45 20 20 43 48 |OMAS TO GIVE CH|
000001B0: 4F 49 43 45 20 4F 46 20 44 52 49 56 45 53 20 26 |OICE OF DRIVES &|
000001C0: 20 41 55 54 4F 2D 4C 49 4E 4B 20 46 49 58 20 3C | AUTO-LINK FIX <|
000001D0: 00 FA 09 D2 00 8F 22 14 14 14 14 14 14 14 14 2A |......"........*|
000001E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000001F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 24 0A DC 00 8F |**********.$....|
00000200: 22 14 14 14 14 14 14 14 14 2A 20 20 20 20 50 55 |"........* PU|
00000210: 42 4C 49 53 48 45 44 20 31 39 38 34 20 42 59 20 |BLISHED 1984 BY |
00000220: 20 20 20 2A 00 4E 0A E6 00 8F 22 14 14 14 14 14 | *.N....".....|
00000230: 14 14 14 2A 20 20 20 20 20 20 20 20 20 20 20 20 |...* |
00000240: 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 78 | *.x|
00000250: 0A F0 00 8F 22 14 14 14 14 14 14 14 14 2A 20 20 |...."........* |
00000260: 20 20 20 20 20 4D 50 53 20 53 4F 46 54 57 41 52 | MPS SOFTWAR|
00000270: 45 20 20 20 20 20 20 2A 00 A2 0A FA 00 8F 22 14 |E *......".|
00000280: 14 14 14 14 14 14 14 2A 20 20 20 20 33 36 20 41 |.......* 36 A|
00000290: 4C 45 58 41 4E 44 52 41 20 47 52 4F 56 45 20 20 |LEXANDRA GROVE |
000002A0: 20 2A 00 CC 0A 04 01 8F 22 14 14 14 14 14 14 14 | *......".......|
000002B0: 14 2A 20 20 20 20 20 20 4C 4F 4E 44 4F 4E 2C 20 |.* LONDON, |
000002C0: 4E 34 20 32 4C 46 20 20 20 20 20 2A 00 F6 0A 0E |N4 2LF *....|
000002D0: 01 8F 22 14 14 14 14 14 14 14 14 2A 20 20 20 20 |.."........* |
000002E0: 20 20 20 20 20 45 4E 47 4C 41 4E 44 20 20 20 20 | ENGLAND |
000002F0: 20 20 20 20 20 2A 00 20 0B 18 01 8F 22 14 14 14 | *. ...."...|
00000300: 14 14 14 14 14 2A 20 20 20 20 20 20 20 20 20 20 |.....* |
00000310: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A | *|
00000320: 00 4A 0B 22 01 8F 22 14 14 14 14 14 14 14 14 2A |.J.".."........*|
00000330: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000340: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 58 0B 2C 01 8F |**********.X.,..|
00000350: 22 14 14 14 8D 90 91 91 00 5F 0B 36 01 8F CC 00 |"........_.6....|
00000360: 65 0B 40 01 3A 00 78 0B 4A 01 9C 20 3A 20 86 20 |e.@.:.x.J.. : . |
00000370: 54 4C 28 31 30 30 30 29 00 7E 0B 54 01 3A 00 95 |TL(1000).~.T.:..|
00000380: 0B 5E 01 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.^.. ***********|
00000390: 2A 2A 2A 2A 2A 00 AC 0B 68 01 8F 20 52 45 41 44 |*****...h.. READ|
000003A0: 59 20 44 49 53 4B 20 46 49 4C 45 53 00 C3 0B 72 |Y DISK FILES...r|
000003B0: 01 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.. *************|
000003C0: 2A 2A 2A 00 C9 0B 7C 01 3A 00 DF 0B 86 01 97 35 |***...|.:......5|
000003D0: 33 32 38 31 2C 30 3A 97 35 33 32 38 30 2C 30 00 |3281,0:.53280,0.|
000003E0: 05 0C 90 01 99 22 93 11 22 A3 31 32 29 22 9C 2A |....."..".12)".*|
000003F0: 2A 2A 9E 4D 50 53 20 53 4F 46 54 57 41 52 45 9C |**.MPS SOFTWARE.|
00000400: 2A 2A 2A 9F 22 00 20 0C 9A 01 99 A3 31 35 29 22 |***.". .....15)"|
00000410: 11 11 12 20 43 4F 4D 50 41 43 54 4F 52 20 11 11 |... COMPACTOR ..|
00000420: 00 4B 0C A4 01 99 22 54 48 49 53 20 50 52 4F 47 |.K...."THIS PROG|
00000430: 52 41 4D 20 57 49 4C 4C 20 43 4F 4D 50 41 43 54 |RAM WILL COMPACT|
00000440: 20 41 20 50 52 4F 47 52 41 4D 22 00 78 0C AE 01 | A PROGRAM".x...|
00000450: 99 22 4C 4F 43 41 54 45 44 20 4F 4E 20 41 4E 59 |."LOCATED ON ANY|
00000460: 20 44 52 49 56 45 20 42 59 20 44 45 4C 45 54 49 | DRIVE BY DELETI|
00000470: 4E 47 20 41 4C 4C 20 22 00 A3 0C B8 01 99 22 52 |NG ALL "......"R|
00000480: 45 4D 20 4E 4F 54 41 54 49 4F 4E 53 2C 20 42 4C |EM NOTATIONS, BL|
00000490: 41 4E 4B 20 4C 49 4E 45 53 2C 20 41 4E 44 20 42 |ANK LINES, AND B|
000004A0: 59 20 22 00 D0 0C C2 01 99 22 4C 49 4E 4B 49 4E |Y "......"LINKIN|
000004B0: 47 20 54 4F 47 45 54 48 45 52 20 41 4C 4C 20 50 |G TOGETHER ALL P|
000004C0: 4F 53 53 49 42 4C 45 20 4C 49 4E 45 53 2E 11 22 |OSSIBLE LINES.."|
000004D0: 00 FF 0C CC 01 99 22 54 48 45 20 4E 45 57 20 43 |......"THE NEW C|
000004E0: 4F 4D 50 41 43 54 45 44 20 50 52 4F 47 52 41 4D |OMPACTED PROGRAM|
000004F0: 20 57 49 4C 4C 20 42 45 20 53 41 56 45 44 22 00 | WILL BE SAVED".|
00000500: 26 0D D6 01 99 22 54 4F 20 41 4E 59 20 44 49 53 |&...."TO ANY DIS|
00000510: 4B 20 44 52 49 56 45 20 57 49 54 48 20 54 48 45 |K DRIVE WITH THE|
00000520: 20 53 41 4D 45 22 00 4F 0D E0 01 99 22 46 49 4C | SAME".O...."FIL|
00000530: 45 4E 41 4D 45 20 42 55 54 20 57 49 54 48 20 41 |ENAME BUT WITH A|
00000540: 20 27 2F 43 27 20 53 55 46 46 49 58 2E 11 22 00 | '/C' SUFFIX..".|
00000550: 81 0D EA 01 99 22 05 20 12 49 4E 50 55 54 20 46 |.....". .INPUT F|
00000560: 49 4C 45 20 44 52 49 56 45 20 23 92 9F 20 30 9D |ILE DRIVE #.. 0.|
00000570: 22 3B 3A 9F 31 2C 30 3A 84 31 2C 44 49 24 3A A0 |";:.1,0:.1,DI$:.|
00000580: 31 00 B7 0D F4 01 99 3A 99 22 11 05 20 12 4F 55 |1......:.".. .OU|
00000590: 54 50 55 54 20 46 49 4C 45 20 44 52 49 56 45 20 |TPUT FILE DRIVE |
000005A0: 23 92 9F 20 30 9D 22 3B 3A 9F 31 2C 30 3A 84 31 |#.. 0.";:.1,0:.1|
000005B0: 2C 44 4F 24 3A A0 31 00 E9 0D FE 01 99 3A 99 22 |,DO$:.1......:."|
000005C0: 11 05 20 12 45 4E 54 45 52 20 46 49 4C 45 20 4E |.. .ENTER FILE N|
000005D0: 41 4D 45 20 23 92 9F 20 22 3B 3A 9F 31 2C 30 3A |AME #.. ";:.1,0:|
000005E0: 84 31 2C 46 4C 24 3A A0 31 00 FE 0D 08 02 99 22 |.1,FL$:.1......"|
000005F0: 93 53 43 41 4E 4E 49 4E 47 20 46 49 4C 45 00 1F |.SCANNING FILE..|
00000600: 0E 12 02 99 22 20 20 20 46 4F 52 20 54 41 52 47 |...." FOR TARG|
00000610: 45 54 20 4C 49 4E 45 53 2E 2E 2E 2E 2E 11 11 00 |ET LINES........|
00000620: 33 0E 1C 02 9F 20 31 35 2C 38 2C 31 35 3A 8D 32 |3.... 15,8,15:.2|
00000630: 37 33 30 00 52 0E 26 02 9F 20 35 2C 38 2C 35 2C |730.R.&.. 5,8,5,|
00000640: 44 49 24 AA 22 3A 22 AA 46 4C 24 AA 22 2C 50 2C |DI$.":".FL$.",P,|
00000650: 52 22 00 58 0E 30 02 3A 00 7A 0E 3A 02 8F 20 2A |R".X.0.:.z.:.. *|
00000660: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000670: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 9C 0E 44 02 8F |**********...D..|
00000680: 20 52 45 41 44 20 4C 4F 41 44 20 41 44 52 2C 20 | READ LOAD ADR, |
00000690: 4C 49 4E 4B 20 26 20 4C 49 4E 45 23 00 BE 0E 4E |LINK & LINE#...N|
000006A0: 02 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.. *************|
000006B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 C4 |**************..|
000006C0: 0E 58 02 3A 00 D5 0E 62 02 8D 32 37 33 30 3A 20 |.X.:...b..2730: |
000006D0: 8D 32 36 37 30 00 EF 0E 6C 02 8D 32 36 37 30 3A |.2670...l..2670:|
000006E0: 20 8B 20 56 AA 56 31 B2 30 20 A7 31 31 30 30 00 | . V.V1.0 .1100.|
000006F0: 08 0F 76 02 8D 32 36 37 30 3A 20 4C 4E B2 56 31 |..v..2670: LN.V1|
00000700: AA 28 32 35 36 AC 56 29 00 0E 0F 80 02 3A 00 33 |.(256.V).....:.3|
00000710: 0F 8A 02 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.... ***********|
00000720: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000730: 2A 2A 2A 00 51 0F 94 02 8F 20 20 20 20 20 20 20 |***.Q.... |
00000740: 20 53 43 41 4E 20 42 41 53 49 43 20 4C 49 4E 45 | SCAN BASIC LINE|
00000750: 53 00 76 0F 9E 02 8F 20 46 4F 52 20 47 4F 54 4F |S.v.... FOR GOTO|
00000760: 2C 20 47 4F 53 55 42 2C 20 26 20 54 48 45 4E 20 |, GOSUB, & THEN |
00000770: 54 4F 4B 45 4E 53 00 9B 0F A8 02 8F 20 2A 2A 2A |TOKENS...... ***|
00000780: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000790: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 A1 0F B2 02 |***********.....|
000007A0: 3A 00 AB 0F BC 02 8D 32 36 39 30 00 BA 0F C6 02 |:......2690.....|
000007B0: 8B 20 56 B2 30 20 A7 36 32 30 00 D3 0F D0 02 8B |. V.0 .620......|
000007C0: 20 56 B2 31 33 37 20 B0 20 56 B2 31 34 31 20 A7 | V.137 . V.141 .|
000007D0: 37 39 30 00 E5 0F DA 02 8B 20 56 B3 B1 31 36 37 |790...... V..167|
000007E0: 20 A7 37 30 30 00 EB 0F E4 02 3A 00 02 10 EE 02 | .700.....:.....|
000007F0: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
00000800: 2A 2A 00 19 10 F8 02 8F 20 47 45 54 20 54 41 52 |**...... GET TAR|
00000810: 47 45 54 20 4C 49 4E 45 23 00 30 10 02 03 8F 20 |GET LINE#.0.... |
00000820: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000830: 00 36 10 0C 03 3A 00 3F 10 16 03 4C 54 B2 30 00 |.6...:.?...LT.0.|
00000840: 56 10 20 03 8D 32 36 39 30 3A 20 8B 20 56 B2 33 |V. ..2690: . V.3|
00000850: 32 20 A7 38 30 30 00 6D 10 2A 03 8B 20 56 B3 34 |2 .800.m.*.. V.4|
00000860: 38 20 B0 20 56 B1 35 37 20 A7 38 39 30 00 82 10 |8 . V.57 .890...|
00000870: 34 03 4C 54 B2 28 31 30 AC 4C 54 29 AA C5 28 43 |4.LT.(10.LT)..(C|
00000880: 24 29 00 92 10 3E 03 8D 32 36 39 30 3A 20 89 38 |$)...>..2690: .8|
00000890: 31 30 00 98 10 48 03 3A 00 B5 10 52 03 8F 20 2A |10...H.:...R.. *|
000008A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000008B0: 2A 2A 2A 2A 2A 00 D2 10 5C 03 8F 20 43 48 45 43 |*****...\.. CHEC|
000008C0: 4B 20 49 46 20 41 4C 52 45 41 44 59 20 46 4F 55 |K IF ALREADY FOU|
000008D0: 4E 44 00 EF 10 66 03 8F 20 2A 2A 2A 2A 2A 2A 2A |ND...f.. *******|
000008E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
000008F0: F5 10 70 03 3A 00 03 11 7A 03 81 20 58 B2 30 20 |..p.:...z.. X.0 |
00000900: A4 20 4E 00 1A 11 84 03 20 20 8B 20 54 4C 28 58 |. N..... . TL(X|
00000910: 29 B2 4C 54 20 A7 31 30 32 30 00 22 11 8E 03 82 |).LT .1020."....|
00000920: 20 58 00 37 11 98 03 54 4C 28 4E 29 B2 4C 54 20 | X.7...TL(N).LT |
00000930: 3A 20 4E B2 4E AA 31 00 41 11 A2 03 99 20 4C 54 |: N.N.1.A.... LT|
00000940: 2C 00 54 11 AC 03 8B 20 4E B3 31 30 30 30 20 A7 |,.T.... N.1000 .|
00000950: 31 30 32 30 00 73 11 B6 03 99 22 11 11 54 4F 4F |1020.s...."..TOO|
00000960: 20 4D 41 4E 59 20 54 41 52 47 45 54 20 4C 49 4E | MANY TARGET LIN|
00000970: 45 53 21 00 7E 11 C0 03 89 26 32 36 36 30 00 84 |ES!.~....&2660..|
00000980: 11 CA 03 3A 00 A6 11 D4 03 8F 20 2A 2A 2A 2A 2A |...:...... *****|
00000990: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000009A0: 2A 2A 2A 2A 2A 2A 00 C8 11 DE 03 8F 20 43 48 45 |******...... CHE|
000009B0: 43 4B 20 46 4F 52 20 27 4F 4E 2E 2E 2E 47 4F 54 |CK FOR 'ON...GOT|
000009C0: 4F 2F 47 4F 53 55 42 27 00 EA 11 E8 03 8F 20 2A |O/GOSUB'...... *|
000009D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000009E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 F0 11 F2 03 3A |**********.....:|
000009F0: 00 00 12 FC 03 8B 20 56 B2 34 34 20 A7 37 39 30 |...... V.44 .790|
00000A00: 00 11 12 06 04 8B 20 56 B3 B1 33 32 20 A7 37 31 |...... V..32 .71|
00000A10: 30 00 22 12 10 04 8D 32 36 39 30 3A 20 89 31 30 |0."....2690: .10|
00000A20: 32 30 00 28 12 1A 04 3A 00 40 12 24 04 8F 20 2A |20.(...:.@.$.. *|
00000A30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000A40: 00 58 12 2E 04 8F 20 53 4F 52 54 20 54 41 52 47 |.X.... SORT TARG|
00000A50: 45 54 20 4C 49 4E 45 53 00 70 12 38 04 8F 20 2A |ET LINES.p.8.. *|
00000A60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000A70: 00 76 12 42 04 3A 00 86 12 4C 04 8B 20 4E B3 32 |.v.B.:...L.. N.2|
00000A80: 20 A7 31 32 32 30 00 96 12 56 04 81 20 58 B2 30 | .1220...V.. X.0|
00000A90: 20 A4 20 4E AB 31 00 A9 12 60 04 3A 20 20 81 20 | . N.1...`.: . |
00000AA0: 59 B2 30 20 A4 20 4E AB 32 00 C8 12 6A 04 3A 20 |Y.0 . N.2...j.: |
00000AB0: 20 20 20 8B 20 54 4C 28 59 29 20 B3 20 54 4C 28 | . TL(Y) . TL(|
00000AC0: 58 29 20 A7 31 31 35 30 00 F1 12 74 04 3A 20 20 |X) .1150...t.: |
00000AD0: 20 20 56 B2 54 4C 28 59 29 20 3A 20 54 4C 28 59 | V.TL(Y) : TL(Y|
00000AE0: 29 B2 54 4C 28 58 29 20 3A 20 54 4C 28 58 29 B2 |).TL(X) : TL(X).|
00000AF0: 56 00 FB 12 7E 04 82 20 59 2C 58 00 01 13 88 04 |V...~.. Y,X.....|
00000B00: 3A 00 1D 13 92 04 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |:...... ********|
00000B10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 39 13 |*************.9.|
00000B20: 9C 04 8F 20 47 45 54 20 52 45 41 44 59 20 46 4F |... GET READY FO|
00000B30: 52 20 43 4F 4D 50 41 43 54 00 55 13 A6 04 8F 20 |R COMPACT.U.... |
00000B40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000B50: 2A 2A 2A 2A 2A 00 A4 13 B0 04 8F 22 8D 93 9E 11 |*****......"....|
00000B60: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000B70: 11 11 11 11 11 1D 1D 1D 44 4F 20 4E 4F 54 20 4C |........DO NOT L|
00000B80: 49 53 54 20 54 48 49 53 20 50 52 4F 47 52 41 4D |IST THIS PROGRAM|
00000B90: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000BA0: 11 11 11 90 00 AA 13 BA 04 3A 00 C9 13 C4 04 99 |.........:......|
00000BB0: 20 22 93 43 4F 4D 50 41 43 54 49 4E 47 20 4C 49 | ".COMPACTING LI|
00000BC0: 4E 45 53 2E 2E 2E 2E 11 11 00 D1 13 CE 04 A0 20 |NES............ |
00000BD0: 35 00 F0 13 D8 04 9F 20 35 2C 38 2C 35 2C 44 49 |5...... 5,8,5,DI|
00000BE0: 24 AA 22 3A 22 AA 46 4C 24 AA 22 2C 50 2C 52 22 |$.":".FL$.",P,R"|
00000BF0: 00 FA 13 E2 04 8D 32 37 33 30 00 11 14 EC 04 46 |......2730.....F|
00000C00: 4F 24 B2 C8 28 46 4C 24 2C 31 34 29 AA 22 2F 43 |O$..(FL$,14)."/C|
00000C10: 22 00 23 14 F6 04 98 31 35 2C 22 53 31 3A 22 AA |".#....15,"S1:".|
00000C20: 46 4F 24 00 42 14 00 05 9F 20 36 2C 38 2C 36 2C |FO$.B.... 6,8,6,|
00000C30: 44 30 24 AA 22 3A 22 AA 46 4F 24 AA 22 2C 50 2C |D0$.":".FO$.",P,|
00000C40: 57 22 00 4C 14 0A 05 8D 32 37 33 30 00 52 14 14 |W".L....2730.R..|
00000C50: 05 3A 00 67 14 1E 05 8F 20 20 2A 2A 2A 2A 2A 2A |.:.g.... ******|
00000C60: 2A 2A 2A 2A 2A 2A 2A 00 7B 14 28 05 8F 20 43 4F |*******.{.(.. CO|
00000C70: 50 59 20 4C 4F 41 44 20 41 44 52 00 8F 14 32 05 |PY LOAD ADR...2.|
00000C80: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |. *************.|
00000C90: 95 14 3C 05 3A 00 9F 14 46 05 8D 32 36 37 30 00 |..<.:...F..2670.|
00000CA0: AD 14 50 05 98 36 2C C7 28 56 31 29 3B 00 BF 14 |..P..6,.(V1);...|
00000CB0: 5A 05 98 36 2C C7 28 56 29 3B 3A 20 52 B2 30 00 |Z..6,.(V);: R.0.|
00000CC0: C5 14 64 05 3A 00 E5 14 6E 05 8F 20 2A 2A 2A 2A |..d.:...n.. ****|
00000CD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000CE0: 2A 2A 2A 2A 2A 00 05 15 78 05 8F 20 43 4F 50 59 |*****...x.. COPY|
00000CF0: 20 4C 49 4E 4B 20 41 4E 44 20 4C 49 4E 45 20 4E | LINK AND LINE N|
00000D00: 55 4D 42 45 52 00 25 15 82 05 8F 20 2A 2A 2A 2A |UMBER.%.... ****|
00000D10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000D20: 2A 2A 2A 2A 2A 00 2B 15 8C 05 3A 00 42 15 96 05 |*****.+...:.B...|
00000D30: 8D 32 36 37 30 3A 20 4B 31 B2 56 31 20 3A 4B 32 |.2670: K1.V1 :K2|
00000D40: B2 56 00 5A 15 A0 05 46 B2 30 20 3A 8B 20 56 AA |.V.Z...F.0 :. V.|
00000D50: 56 31 B2 30 20 A7 32 35 35 30 00 72 15 AA 05 8D |V1.0 .2550.r....|
00000D60: 32 36 37 30 3A 20 4C 31 B2 56 31 20 3A 20 4C 32 |2670: L1.V1 : L2|
00000D70: B2 56 00 8D 15 B4 05 4C 4E B2 4C 31 AA 28 32 35 |.V.....LN.L1.(25|
00000D80: 36 AC 4C 32 29 20 3A 20 99 20 4C 4E 2C 00 97 15 |6.L2) : . LN,...|
00000D90: BE 05 8D 32 36 39 30 00 AF 15 C8 05 8B 20 56 B2 |...2690...... V.|
00000DA0: 33 32 20 B0 20 56 B2 35 38 20 A7 31 34 37 30 00 |32 . V.58 .1470.|
00000DB0: BF 15 D2 05 8B 20 56 B2 30 20 A7 31 35 32 30 00 |..... V.0 .1520.|
00000DC0: D2 15 DC 05 8B 20 56 B3 B1 31 34 33 20 A7 31 35 |..... V..143 .15|
00000DD0: 36 30 00 E9 15 E6 05 8D 32 36 39 30 3A 20 8B 20 |60......2690: . |
00000DE0: 56 B1 30 20 A7 31 35 31 30 00 FD 15 F0 05 46 B2 |V.0 .1510.....F.|
00000DF0: 31 20 3A 20 81 20 58 B2 30 20 A4 20 4E 00 15 16 |1 : . X.0 . N...|
00000E00: FA 05 3A 20 20 8B 20 54 4C 28 58 29 B3 4C 4E 20 |..: . TL(X).LN |
00000E10: A7 20 82 20 58 00 2D 16 04 06 3A 20 20 8B 20 54 |. . X.-...: . T|
00000E20: 4C 28 58 29 B2 4C 4E 20 A7 31 35 36 30 00 37 16 |L(X).LN .1560.7.|
00000E30: 0E 06 89 31 34 33 30 00 4B 16 18 06 98 36 2C C7 |...1430.K....6,.|
00000E40: 28 4B 31 29 3B C7 28 4B 32 29 3B 00 65 16 22 06 |(K1);.(K2);.e.".|
00000E50: 98 36 2C C7 28 4C 31 29 3B C7 28 4C 32 29 3B 20 |.6,.(L1);.(L2); |
00000E60: 3A 20 52 B2 34 00 80 16 2C 06 3A 20 20 8B 20 46 |: R.4...,.: . F|
00000E70: 20 A7 20 98 36 2C 22 3A 22 3B 20 3A 20 52 B2 35 | . .6,":"; : R.5|
00000E80: 00 90 16 36 06 46 B2 30 20 3A 20 89 31 36 38 30 |...6.F.0 : .1680|
00000E90: 00 96 16 40 06 3A 00 B8 16 4A 06 8F 20 2A 2A 2A |...@.:...J.. ***|
00000EA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000EB0: 2A 2A 2A 2A 2A 2A 2A 2A 00 DA 16 54 06 8F 20 2A |********...T.. *|
00000EC0: 2A 2A 2A 20 20 53 43 41 4E 20 42 41 53 49 43 20 |*** SCAN BASIC |
00000ED0: 4C 49 4E 45 20 20 2A 2A 2A 2A 00 FC 16 5E 06 8F |LINE ****...^..|
00000EE0: 20 2A 2A 2A 2A 20 26 20 43 4F 4D 50 41 43 54 20 | **** & COMPACT |
00000EF0: 50 52 4F 47 52 41 4D 20 2A 2A 2A 2A 00 1E 17 68 |PROGRAM ****...h|
00000F00: 06 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 2A 2A 2A 00 24 |**************.$|
00000F20: 17 72 06 3A 00 37 17 7C 06 98 36 2C 43 24 3B 20 |.r.:.7.|..6,C$; |
00000F30: 3A 20 52 B2 52 AA 31 00 41 17 86 06 8D 32 36 39 |: R.R.1.A....269|
00000F40: 30 00 56 17 90 06 3A 20 20 8B 20 56 B2 31 33 37 |0.V...: . V.137|
00000F50: 20 A7 20 46 B2 31 00 73 17 9A 06 3A 20 20 8B 20 | . F.1.s...: . |
00000F60: 56 B2 31 33 39 20 B0 20 56 B2 31 36 37 20 A7 20 |V.139 . V.167 . |
00000F70: 46 B2 31 00 86 17 A4 06 3A 20 20 8B 20 56 B2 30 |F.1.....: . V.0|
00000F80: 20 A7 32 31 34 30 00 9A 17 AE 06 3A 20 20 8B 20 | .2140.....: . |
00000F90: 56 B2 33 32 20 A7 31 36 37 30 00 A0 17 B8 06 3A |V.32 .1670.....:|
00000FA0: 00 BB 17 C2 06 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |...... *********|
00000FB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 CF 17 CC 06 |***********.....|
00000FC0: 8F 20 27 52 45 4D 27 20 54 4F 4B 45 4E 20 2D 00 |. 'REM' TOKEN -.|
00000FD0: EA 17 D6 06 8F 20 44 49 53 43 41 52 44 20 52 45 |..... DISCARD RE|
00000FE0: 53 54 20 4F 46 20 4C 49 4E 45 00 05 18 E0 06 8F |ST OF LINE......|
00000FF0: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
00001000: 2A 2A 2A 2A 2A 00 0B 18 EA 06 3A 00 1E 18 F4 06 |*****.....:.....|
00001010: 8B 20 56 B3 B1 31 34 33 20 A7 31 38 37 30 00 35 |. V..143 .1870.5|
00001020: 18 FE 06 8D 32 36 39 30 3A 20 8B 20 56 B1 30 20 |....2690: . V.0 |
00001030: A7 31 37 39 30 00 3F 18 08 07 89 32 31 34 30 00 |.1790.?....2140.|
00001040: 45 18 12 07 3A 00 66 18 1C 07 8F 20 2A 2A 2A 2A |E...:.f.... ****|
00001050: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001060: 2A 2A 2A 2A 2A 2A 00 74 18 26 07 8F 20 51 55 4F |******.t.&.. QUO|
00001070: 54 45 20 2D 00 95 18 30 07 8F 20 43 4F 50 59 20 |TE -...0.. COPY |
00001080: 54 49 4C 4C 20 4E 45 58 54 20 4F 52 20 4C 49 4E |TILL NEXT OR LIN|
00001090: 45 20 45 4E 44 00 B6 18 3A 07 8F 20 2A 2A 2A 2A |E END...:.. ****|
000010A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000010B0: 2A 2A 2A 2A 2A 2A 00 BC 18 44 07 3A 00 CE 18 4E |******...D.:...N|
000010C0: 07 8B 20 56 B3 B1 33 34 20 A7 32 30 31 30 00 E1 |.. V..34 .2010..|
000010D0: 18 58 07 98 36 2C 43 24 3B 20 3A 20 52 B2 52 AA |.X..6,C$; : R.R.|
000010E0: 31 00 EB 18 62 07 8D 32 36 39 30 00 FC 18 6C 07 |1...b..2690...l.|
000010F0: 8B 20 56 B2 33 34 20 A7 31 36 36 30 00 0C 19 76 |. V.34 .1660...v|
00001100: 07 8B 20 56 B1 30 20 A7 31 38 38 30 00 22 19 80 |.. V.0 .1880."..|
00001110: 07 8B 20 46 20 A7 20 56 B2 30 20 3A 20 89 31 33 |.. F . V.0 : .13|
00001120: 37 30 00 38 19 8A 07 98 36 2C C7 28 33 34 29 3B |70.8....6,.(34);|
00001130: 20 3A 20 52 B2 52 AA 31 00 42 19 94 07 89 32 31 | : R.R.1.B....21|
00001140: 34 30 00 48 19 9E 07 3A 00 67 19 A8 07 8F 20 2A |40.H...:.g.... *|
00001150: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001160: 2A 2A 2A 2A 2A 2A 2A 00 86 19 B2 07 8F 20 49 46 |*******...... IF|
00001170: 20 43 4F 4C 4F 4E 20 2D 20 43 48 4B 20 4E 45 58 | COLON - CHK NEX|
00001180: 54 20 43 48 41 52 00 A0 19 BC 07 8F 20 20 20 20 |T CHAR...... |
00001190: 20 20 45 4C 53 45 20 43 4F 50 59 20 43 48 41 52 | ELSE COPY CHAR|
000011A0: 00 BF 19 C6 07 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |...... *********|
000011B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
000011C0: C5 19 D0 07 3A 00 D7 19 DA 07 8B 20 56 B3 B1 35 |....:...... V..5|
000011D0: 38 20 A7 31 36 36 30 00 E1 19 E4 07 8D 32 36 39 |8 .1660......269|
000011E0: 30 00 F9 19 EE 07 8B 20 56 B2 33 32 20 B0 20 56 |0...... V.32 . V|
000011F0: B2 35 38 20 A7 32 30 32 30 00 0B 1A F8 07 8B 20 |.58 .2020...... |
00001200: 56 B2 31 34 33 20 A7 31 37 39 30 00 1B 1A 02 08 |V.143 .1790.....|
00001210: 8B 20 56 B2 30 20 A7 32 31 34 30 00 2F 1A 0C 08 |. V.0 .2140./...|
00001220: 98 36 2C 22 3A 22 3B 20 3A 20 52 B2 52 AA 31 00 |.6,":"; : R.R.1.|
00001230: 39 1A 16 08 89 31 36 38 30 00 3F 1A 20 08 3A 00 |9....1680.?. .:.|
00001240: 62 1A 2A 08 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |b.*.. **********|
00001250: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001260: 2A 2A 00 76 1A 34 08 8F 20 45 4E 44 20 4F 46 20 |**.v.4.. END OF |
00001270: 4C 49 4E 45 20 2D 00 99 1A 3E 08 8F 20 43 41 4E |LINE -...>.. CAN|
00001280: 20 57 45 20 43 4F 4D 50 41 43 54 20 54 48 45 53 | WE COMPACT THES|
00001290: 45 20 4C 49 4E 45 53 20 3F 00 BC 1A 48 08 8F 20 |E LINES ?...H.. |
000012A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000012B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 C2 1A 52 |************...R|
000012C0: 08 3A 00 E0 1A 5C 08 8B 20 46 20 B0 20 28 52 B1 |.:...\.. F . (R.|
000012D0: 31 37 30 29 20 A7 20 56 B2 30 3A 89 31 33 37 30 |170) . V.0:.1370|
000012E0: 00 EA 1A 66 08 8D 32 36 37 30 00 FD 1A 70 08 8B |...f..2670...p..|
000012F0: 20 56 AA 56 31 B2 30 20 A7 32 35 35 30 00 16 1B | V.V1.0 .2550...|
00001300: 7A 08 8D 32 36 37 30 3A 20 4C 4E B2 56 31 AA 28 |z..2670: LN.V1.(|
00001310: 32 35 36 AC 56 29 00 2F 1B 84 08 4C 31 B2 56 31 |256.V)./...L1.V1|
00001320: 20 3A 20 4C 32 B2 56 20 3A 20 99 20 4C 4E 2C 00 | : L2.V : . LN,.|
00001330: 35 1B 8E 08 3A 00 54 1B 98 08 8F 20 2A 2A 2A 2A |5...:.T.... ****|
00001340: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001350: 2A 2A 2A 2A 00 73 1B A2 08 8F 20 43 48 4B 20 49 |****.s.... CHK I|
00001360: 46 20 4C 49 4E 45 23 20 49 53 20 41 20 54 41 52 |F LINE# IS A TAR|
00001370: 47 45 54 00 92 1B AC 08 8F 20 2A 2A 2A 2A 2A 2A |GET...... ******|
00001380: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001390: 2A 2A 00 98 1B B6 08 3A 00 A6 1B C0 08 81 20 58 |**.....:...... X|
000013A0: B2 30 20 A4 20 4E 00 BB 1B CA 08 8B 20 54 4C 28 |.0 . N...... TL(|
000013B0: 58 29 B3 4C 4E 20 A7 20 82 20 58 00 D0 1B D4 08 |X).LN . . X.....|
000013C0: 8B 20 54 4C 28 58 29 B2 4C 4E 20 A7 32 34 33 30 |. TL(X).LN .2430|
000013D0: 00 D6 1B DE 08 3A 00 F1 1B E8 08 8F 20 2A 2A 2A |.....:...... ***|
000013E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000013F0: 2A 00 02 1C F2 08 8F 20 4E 4F 54 20 55 53 45 44 |*...... NOT USED|
00001400: 20 2D 00 1D 1C FC 08 8F 20 44 49 53 43 41 52 44 | -...... DISCARD|
00001410: 20 4C 49 4E 4B 20 26 20 4C 49 4E 45 23 00 38 1C | LINK & LINE#.8.|
00001420: 06 09 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |... ************|
00001430: 2A 2A 2A 2A 2A 2A 2A 2A 00 3E 1C 10 09 3A 00 57 |********.>...:.W|
00001440: 1C 1A 09 8D 32 36 39 30 3A 20 8B 20 56 B2 31 34 |....2690: . V.14|
00001450: 33 20 A7 31 37 39 30 00 6F 1C 24 09 8B 20 56 B2 |3 .1790.o.$.. V.|
00001460: 33 32 20 B0 20 56 B2 35 38 20 A7 32 33 33 30 00 |32 . V.58 .2330.|
00001470: 7F 1C 2E 09 8B 20 56 B2 30 20 A7 32 31 35 30 00 |..... V.0 .2150.|
00001480: 9B 1C 38 09 98 36 2C 22 3A 22 3B 20 3A 20 52 B2 |..8..6,":"; : R.|
00001490: 52 AA 31 20 3A 20 89 31 36 38 30 00 A1 1C 42 09 |R.1 : .1680...B.|
000014A0: 3A 00 C4 1C 4C 09 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |:...L.. ********|
000014B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000014C0: 2A 2A 2A 2A 00 D9 1C 56 09 8F 20 4C 49 4E 45 23 |****...V.. LINE#|
000014D0: 20 4E 45 45 44 45 44 20 2D 00 FC 1C 60 09 8F 20 | NEEDED -...`.. |
000014E0: 57 52 49 54 45 20 4C 49 4E 45 20 45 4E 44 2C 20 |WRITE LINE END, |
000014F0: 4C 49 4E 4B 20 26 20 4C 49 4E 45 23 00 1F 1D 6A |LINK & LINE#...j|
00001500: 09 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.. *************|
00001510: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00001520: 25 1D 74 09 3A 00 3C 1D 7E 09 98 36 2C C7 28 30 |%.t.:.<.~..6,.(0|
00001530: 29 3B C7 28 31 29 3B C7 28 31 29 3B 00 56 1D 88 |);.(1);.(1);.V..|
00001540: 09 98 36 2C C7 28 4C 31 29 3B C7 28 4C 32 29 3B |..6,.(L1);.(L2);|
00001550: 20 3A 20 52 B2 34 00 60 1D 92 09 8D 32 36 39 30 | : R.4.`....2690|
00001560: 00 78 1D 9C 09 8B 20 56 B2 33 32 20 B0 20 56 B2 |.x.... V.32 . V.|
00001570: 35 38 20 A7 32 34 35 30 00 94 1D A6 09 8B 20 56 |58 .2450...... V|
00001580: B2 30 20 B0 20 56 B2 31 34 33 20 A7 20 98 36 2C |.0 . V.143 . .6,|
00001590: 22 3A 22 3B 00 A4 1D B0 09 46 B2 30 20 3A 20 89 |":";.....F.0 : .|
000015A0: 31 36 38 30 00 AA 1D BA 09 3A 00 C5 1D C4 09 8F |1680.....:......|
000015B0: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
000015C0: 2A 2A 2A 2A 2A 00 DC 1D CE 09 8F 20 45 4E 44 20 |*****...... END |
000015D0: 4F 46 20 43 4F 4D 50 41 43 54 20 2D 00 F7 1D D8 |OF COMPACT -....|
000015E0: 09 8F 20 57 52 49 54 45 20 45 4E 44 20 4F 46 20 |.. WRITE END OF |
000015F0: 50 52 4F 47 52 41 4D 00 12 1E E2 09 8F 20 2A 2A |PROGRAM...... **|
00001600: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001610: 2A 2A 00 18 1E EC 09 3A 00 39 1E F6 09 98 36 2C |**.....:.9....6,|
00001620: C7 28 30 29 3B C7 28 30 29 3B C7 28 30 29 3B 3A |.(0);.(0);.(0);:|
00001630: A0 35 3A A0 36 3A A0 31 35 00 6C 1E 00 0A 99 22 |.5:.6:.15.l...."|
00001640: 93 11 11 11 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D |................|
00001650: 1D 1D 1D 1D 1D 1D 12 4D 4F 44 49 46 59 49 4E 47 |.......MODIFYING|
00001660: 20 43 4F 4D 50 4C 45 54 45 11 11 22 00 86 1E 0A | COMPLETE.."....|
00001670: 0A 81 4A B2 31 A4 31 35 33 37 3A 82 4A 3A 51 24 |..J.1.1537:.J:Q$|
00001680: B2 C7 28 33 34 29 00 A6 1E 14 0A 99 22 93 11 11 |..(34)......"...|
00001690: 4C 4F 41 44 22 51 24 44 30 24 22 3A 22 46 4F 24 |LOAD"Q$D0$":"FO$|
000016A0: 51 24 22 2C 38 22 00 B6 1E 1E 0A 99 22 11 11 11 |Q$",8"......"...|
000016B0: 11 4C 49 53 54 22 00 C2 1E 28 0A 99 22 13 22 3B |.LIST"...(..".";|
000016C0: 3A 80 00 C8 1E 32 0A 3A 00 CE 1E 3C 0A 3A 00 ED |:....2.:...<.:..|
000016D0: 1E 46 0A 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.F.. ***********|
000016E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 0C 1F |*************...|
000016F0: 50 0A 8F 20 2A 2A 2A 2A 2A 20 20 53 55 42 52 4F |P.. ***** SUBRO|
00001700: 55 54 49 4E 45 53 20 2A 2A 2A 2A 2A 00 2B 1F 5A |UTINES *****.+.Z|
00001710: 0A 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.. *************|
00001720: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 31 1F 64 0A |***********.1.d.|
00001730: 3A 00 41 1F 6E 0A 8D 32 36 39 30 3A 20 56 31 B2 |:.A.n..2690: V1.|
00001740: 56 00 47 1F 78 0A 3A 00 5A 1F 82 0A A1 23 35 2C |V.G.x.:.Z....#5,|
00001750: 43 24 20 3A 20 8D 32 37 33 30 00 70 1F 8C 0A 8B |C$ : .2730.p....|
00001760: 20 43 24 B2 22 22 20 A7 20 56 B2 30 20 3A 20 8E | C$."" . V.0 : .|
00001770: 00 80 1F 96 0A 56 B2 C6 28 43 24 29 20 3A 20 8E |.....V..(C$) : .|
00001780: 00 86 1F A0 0A 3A 00 9B 1F AA 0A 84 31 35 2C 45 |.....:......15,E|
00001790: 4E 2C 45 4D 24 2C 45 54 2C 45 53 00 AA 1F B4 0A |N,EM$,ET,ES.....|
000017A0: 8B 20 45 4E B2 30 20 A7 20 8E 00 B0 1F BE 0A 3A |. EN.0 . ......:|
000017B0: 00 CD 1F C8 0A 99 20 3A 20 99 22 11 11 11 12 9E |...... : .".....|
000017C0: 44 49 53 4B 20 45 52 52 4F 52 11 9F 22 00 E0 1F |DISK ERROR.."...|
000017D0: D2 0A 99 20 45 4E 3B 45 4D 24 3B 45 54 3B 45 53 |... EN;EM$;ET;ES|
000017E0: 00 E6 1F DC 0A 3A 00 33 20 E6 0A 8F 22 8D 93 9E |.....:.3 ..."...|
000017F0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00001800: 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001810: 4D 50 53 20 53 4F 46 54 57 41 52 45 90 11 11 11 |MPS SOFTWARE....|
00001820: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00001830: 11 11 11 00 00 00 |...... |
A...D.."....5.N.."........**************
*************._.X.."........* C O M P
A C T O R *......"........* -----
------------ *......"........* BY:
ROBERT BAKER *......"........*
*... .."........*
BAKER ENTERPRISES *.1...."........*
15 WINDSOR DR. *.[...."........
* ATCO, N.J. 08004 *......"......
..***************************.P.H.."....
....> MOD.RAY THOMAS TO GIVE CHOICE OF
DRIVES & AUTO-LINK FIX <...R.."........*
**************************.$....".......
.* PUBLISHED 1984 BY *.N....".....
...* *.X...."...
.....* MPS SOFTWARE *......".
.......* 36 ALEXANDRA GROVE *.L....
"........* LONDON, N4 2LF *....
.."........* ENGLAND *.
...."........* *
.J.".."........*************************
**.X.,.."........_.6..L.E.@.:.X.J.. : .
TL(1000).~.T.:...^.. ****************...
H.. READY DISK FILES.C.R.. *************
***.I.|.:......53281,0:.53280,0......"..
".12)".***.MPS SOFTWARE.***.". .....15)"
... COMPACTOR ...K...."THIS PROGRAM WILL
COMPACT A PROGRAM".X...."LOCATED ON ANY
DRIVE BY DELETING ALL "......"REM NOTAT
IONS, BLANK LINES, AND BY ".P.B.."LINKIN
G TOGETHER ALL POSSIBLE LINES.."...L.."T
HE NEW COMPACTED PROGRAM WILL BE SAVED".
&.V.."TO ANY DISK DRIVE WITH THE SAME".O
...."FILENAME BUT WITH A '/C' SUFFIX..".
.....". .INPUT FILE DRIVE #.. 0.";:.1,0:
.1,DI$: 1......:.".. .OUTPUT FILE DRIVE
#.. 0.";:.1,0:.1,DO$: 1......:.".. .ENTE
R FILE NAME #.. ";:.1,0:.1,FL$: 1......"
.SCANNING FILE......" FOR TARGET LINES
........3.... 15,8,15:.2730.R.&.. 5,8,5,
DI$.":".FL$.",P,R".X.0.:.Z.:.. *********
******************...D.. READ LOAD ADR,
LINK & LINE#...N.. *********************
******.D.X.:.U.B..2730: .2670...L..2670:
. V.V1.0 .1100...V..2670: LN.V1.(256.V)
.....:.3.... ***************************
***.Q.... SCAN BASIC LINES.V....
FOR GOTO, GOSUB, & THEN TOKENS...... ***
***************************.....:......2
690...F.. V.0 .620.S.P.. V.137 . V.141 .
790...Z.. V..167 .700.....:...... ******
**********...... GET TARGET LINE#.0....
****************.6...:.?...LT.0.V. ..269
0: . V.32 .800.M.*.. V.48 . V.57 .890...
4.LT.(10.LT).E(C$)...>..2690: .810...H.:
...R.. **********************.R.\.. CHEC
K IF ALREADY FOUND...F.. ***************
*******...P.:...Z.. X.0 . N..... . TL(X
).LT .1020.".... X.7...TL(N).LT : N.N.1.
A.... LT,.T.... N.1000 .1020.S...."..TOO
MANY TARGET LINES!.~....&2660...J.:...T
.. ***************************.H.... CHE
CK FOR 'ON...GOTO/GOSUB'...... *********
******************.....:...... V.44 .790
...... V..32 .710."....2690: .1020.(...:
.@.$.. *****************.X.... SORT TARG
ET LINES.P.8.. *****************.V.B.:..
.L.. N.2 .1220...V.. X.0 . N.1...`.: .
Y.0 . N.2.H.J.: . TL(Y) . TL(X) .1150
...T.: V.TL(Y) : TL(Y).TL(X) : TL(X).
V...~.. Y,X.....:...... ****************
*****.9.... GET READY FOR COMPACT.U....
*********************......"............
................DO NOT LIST THIS PROGRAM
.........................:.I.D.. ".COMPA
CTING LINES.......Q.N. 5...X.. 5,8,5,DI
$.":".FL$.",P,R"......2730.....FO$.H(FL$
,14)."/C".#....15,"S1:".FO$.B.... 6,8,6,
D0$.":".FO$.",P,W".L....2730.R...:.G....
*************.{.(.. COPY LOAD ADR...2.
. *************...<.:...F..2670...P..6,G
(V1);...Z..6,G(V);: R.0.E.D.:...N.. ****
*********************...X.. COPY LINK AN
D LINE NUMBER.%.... ********************
*****.+...:.B....2670: K1.V1 :K2.V.Z. .F
.0 :. V.V1.0 .2550.R....2670: L1.V1 : L2
.V.....LN.L1.(256.L2) : . LN,......2690.
..H.. V.32 . V.58 .1470...R.. V.0 .1520.
R.... V..143 .1560......2690: . V.0 .151
0.....F.1 : . X.0 . N.....: . TL(X).LN
. . X.-...: . TL(X).LN .1560.7....1430.
K....6,G(K1);G(K2);.E."..6,G(L1);G(L2);
: R.4...,.: . F . .6,":"; : R.5...6.F.0
: .1680...@.:...J.. *******************
********.Z.T.. **** SCAN BASIC LINE **
**...^.. **** & COMPACT PROGRAM ****...H
.. ***************************.$.R.:.7.|
..6,C$; : R.R.1.A....2690.V...: . V.137
. F.1.S...: . V.139 . V.167 . F.1.....
: . V.0 .2140.....: . V.32 .1670. ...:
...B.. ********************.O.L.. 'REM'
TOKEN -...V.. DISCARD REST OF LINE......
********************.....:...... V..143
.1870.5....2690: . V.0 .1790.?....2140.
E...:.F.... **************************.T
.&.. QUOTE -...0.. COPY TILL NEXT OR LIN
E END...:.. **************************..
.D.:.N.N.. V..34 .2010...X..6,C$; : R.R.
1...B..2690...L.. V.34 .1660...V.. V.0 .
1880.".... F . V.0 : .1370.8....6,G(34);
: R.R.1.B....2140.H...:.G.... *********
***************...... IF COLON - CHK NEX
T CHAR. .... ELSE COPY CHAR...F.. *
***********************.E.P.:.W.Z.. V..5
8 .1660......2690...... V.32 . V.58 .202
0...... V.143 .1790...... V.0 .2140./...
.6,":"; : R.R.1.9....1680.?. .:.B.*.. **
**************************.V.4.. END OF
LINE -...>.. CAN WE COMPACT THESE LINES
?...H.. ****************************.B.R
.:...\.. F . (R.170) . V.0:.1370...F..26
70...P.. V.V1.0 .2550...Z..2670: LN.V1.(
256.V)./...L1.V1 : L2.V : . LN,.5...:.T.
... ************************.S.... CHK I
F LINE# IS A TARGET...... **************
**********.....:...... X.0 . N...J.. TL(
X).LN . . X.P.T.. TL(X).LN .2430.V...:..
.... ********************...... NOT USED
-...... DISCARD LINK & LINE#.8.... ****
****************.>...:.W....2690: . V.14
3 .1790.O.$.. V.32 . V.58 .2330..... V.
0 .2150...8..6,":"; : R.R.1 : .1680...B.
:.D.L.. ****************************.Y.V
.. LINE# NEEDED -...`.. WRITE LINE END,
LINK & LINE#...J.. *********************
*******.%.T.:.<.~..6,G(0);G(1);G(1);.V..
..6,G(L1);G(L2); : R.4.`....2690.X.... V
.32 . V.58 .2450...... V.0 . V.143 . .6,
":";.....F.0 : .1680.....:.E.D.. *******
*************...N.. END OF COMPACT -...X
.. WRITE END OF PROGRAM...... **********
**********.....:.9....6,G(0);G(0);G(0);:
5: 6: 15.L....".......................M
ODIFYING COMPLETE.."......J.1.1537:.J:Q$
.G(34)......"...LOAD"Q$D0$":"FO$Q$",8"..
...."....LIST".B.(..".";:..H.2.:.N.<.:..
.F.. ************************...P.. ****
* SUBROUTINES *****.+.Z.. *************
***********.1.D.:.A.N..2690: V1.V.G.X.:.
Z....#5,C$ : .2730.P.... C$."" . V.0 : .
.....V.F(C$) : .... .:......15,EN,EM$,ET
,ES...... EN.0 . ......:.M.H.. : .".....
DISK ERROR.."...R.. EN;EM$;ET;ES.....:.3
..."...................................
MPS SOFTWARE..........................
> CLICK IMAGE PREVIEW FOR FULL MODAL