SQUEEZER.Z
FILE INFORMATION
FILENAME(S): SQUEEZER.Z
FILE TYPE(S): PRG
FILE SIZE: 5.5K
FIRST SEEN: 2025-11-30 01:07:56
APPEARS ON: 1 disk(s)
FILE HASH
7075b98a483854ea3068ccf3d74d8c0b86b7d61a3a5e014d5692c816dfe03625
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FREESOFT DISK NR | SQUEEZER.Z | PRG | Treasure Chest - Wolfgang Rauprich | 17 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 19 04 64 00 8F 20 20 20 20 20 20 20 20 27 |....d.. '|
00000010: 53 51 55 45 45 5A 45 52 27 00 1F 04 6E 00 3A 00 |SQUEEZER'...n.:.|
00000020: 43 04 78 00 8F 20 54 48 49 53 20 50 52 4F 47 52 |C.x.. THIS PROGR|
00000030: 41 4D 20 43 4F 4D 50 52 45 53 56 EE EE EE DE E6 |AM COMPRESV.....|
00000040: EC BE AC 80 A8 89 E8 88 E6 88 D8 E8 AF AD E8 9C |................|
00000050: BF E4 88 BE B9 D9 A6 88 E8 9D EC D9 E8 BE AC D9 |................|
00000060: 9D 99 88 E9 89 EF 88 E6 88 BF 9D BF AF E8 EE 88 |................|
00000070: EB A3 2B EB 3B EE 7E 23 61 BE 23 EB 21 F1 BB 31 |..+.;.~#a.#.!..1|
00000080: 3E 23 DB F1 E3 6A 26 F2 36 C8 88 E6 88 AF BA 88 |>#...j&.6.......|
00000090: 9C B9 EE 88 AC AF BF BF AF 99 AF E8 9E 88 AC AF |................|
000000A0: BF D8 DD D9 9D E8 81 8F 8B 88 80 58 88 7F 8B 18 |...........X....|
000000B0: 88 E6 88 BF AF 99 BE A9 BE 9D 9A 88 A8 EE 88 99 |................|
000000C0: 9C E9 BE 9A 88 ED BE 9F 9F BE 9C BF EC 80 FC 8B |................|
000000D0: C9 88 E6 88 9C B9 9A 88 99 AF AC DD BF 9D B9 D9 |................|
000000E0: 9D 9A 88 A8 EE 88 B8 AF 9E BA 88 9D 9C EC D9 AF |................|
000000F0: B9 88 48 8E 59 88 E6 88 EC D9 9C E8 D9 BE 4E 47 |..H.Y.........NG|
00000100: 20 46 52 4F 4D 20 54 48 45 20 50 52 4F 47 52 41 | FROM THE PROGRA|
00000110: 4D 3A 00 2F 05 C8 00 8F 20 20 20 20 20 20 43 20 |M:./.... C |
00000120: 4F 20 4D 20 50 20 41 20 43 20 54 20 4F 20 52 00 |O M P A C T O R.|
00000130: 4C 05 D2 00 8F 20 20 20 20 20 20 42 59 3A 20 20 |L.... BY: |
00000140: 52 4F 42 45 52 54 20 42 41 4B 45 52 00 69 05 DC |ROBERT BAKER.i..|
00000150: 00 8F 20 20 20 20 20 20 42 41 4B 45 52 20 45 4E |.. BAKER EN|
00000160: 54 45 52 50 52 49 53 45 53 00 84 05 E6 00 8F 20 |TERPRISES...... |
00000170: 20 20 20 20 20 20 31 35 20 57 49 4E 44 53 4F 52 | 15 WINDSOR|
00000180: 20 44 52 2E 00 A1 05 F0 00 8F 20 20 20 20 20 20 | DR....... |
00000190: 41 54 43 4F 2C 20 4E 2E 4A 2E 20 20 30 38 30 30 |ATCO, N.J. 0800|
000001A0: 34 00 A7 05 FA 00 3A 00 C0 05 04 01 8F 20 2A 2A |4.....:...... **|
000001B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000001C0: 00 D9 05 0E 01 8F 20 43 48 45 43 4B 20 4D 41 43 |...... CHECK MAC|
000001D0: 48 49 4E 45 20 54 59 50 45 00 F2 05 18 01 8F 20 |HINE TYPE...... |
000001E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000001F0: 2A 2A 00 F8 05 22 01 3A 00 08 06 2C 01 50 4B B2 |**...".:...,.PK.|
00000200: C2 28 6E 4E 44 CA CE 1E 80 5C 0A 49 8C EB 6E EE |.(nND....\.I..n.|
00000210: BE DE E2 4E 23 A3 6E EE DE EE 26 AE 23 A3 6E EE |...N#.n...&.#.n.|
00000220: AE EE DE 26 AE 23 A3 6E EE BE BE 26 AE 23 A3 6E |...&.#.n...&.#.n|
00000230: EE DE BE 26 FE 23 EB 6E EE BE EA 23 2A F3 22 2E |...&.#.n...#*.".|
00000240: E2 23 E0 F7 CE EE A9 E8 C8 C8 C8 C8 C8 C8 C8 C8 |.#..............|
00000250: C8 C8 C8 C8 C8 C8 C8 C8 C8 C8 C8 C8 CE E1 BF 1E |................|
00000260: 7E EE A9 E8 E8 EE 97 E7 78 EE 77 F8 EE 1E E7 E7 |~.......x.w.....|
00000270: 19 EE 97 FE E7 87 EF EE 9F 1E EE EE A9 E8 C8 C8 |................|
00000280: C8 C8 C8 C8 C8 C8 C8 C8 C8 C8 C8 C8 C8 C8 C8 C8 |................|
00000290: C8 C8 CE EE EF 11 EF E9 DE EE FF 11 9E E7 97 ED |................|
000002A0: 98 98 79 BC E6 98 E7 97 C9 E9 DE D9 EE 98 E7 97 |..y.............|
000002B0: ED C8 E9 F8 F8 F8 ED 98 98 79 78 EC 19 E8 78 F9 |.........yx...x.|
000002C0: FE E4 6F 11 6F EE B9 EE 97 C9 E6 98 E7 97 C9 ED |..o.o...........|
000002D0: C9 99 98 DE B9 EE 97 CD C9 F9 E9 FE E0 7F 1E BE |................|
000002E0: EE B9 E8 98 79 BC E6 98 E7 97 C9 ED C8 E9 F8 F8 |....y...........|
000002F0: F8 E9 98 79 7E E0 DF 1E FE E6 8A 00 17 07 9A 01 |...y~...........|
00000300: 99 20 22 93 49 4E 49 54 49 41 4C 49 5A 49 4E 47 |. ".INITIALIZING|
00000310: 2E 2E 2E 2E 2E 2E 22 00 34 07 A4 01 81 20 49 B2 |......".4.... I.|
00000320: 53 41 20 A4 20 53 41 AA 37 39 39 39 3A 97 20 49 |SA . SA.7999:. I|
00000330: 2C 30 3A 82 00 54 07 AE 01 86 20 54 28 37 29 3A |,0:..T.... T(7):|
00000340: 81 20 49 B2 30 20 A4 20 37 3A 54 28 49 29 B2 32 |. I.0 . 7:T(I).2|
00000350: AE 49 3A 82 00 5A 07 B8 01 3A 00 71 07 C2 01 8F |.I:..Z...:.q....|
00000360: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
00000370: 2A 00 88 07 CC 01 8F 20 52 45 41 44 59 20 44 49 |*...... READY DI|
00000380: 53 4B 20 46 49 4C 45 53 00 9F 07 D6 01 8F 20 2A |SK FILES...... *|
00000390: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
000003A0: A5 07 E0 01 3A 00 D5 07 EA 01 99 20 22 93 27 53 |....:...... ".'S|
000003B0: 51 55 45 45 5A 45 52 27 20 2D 20 4D 4F 44 49 46 |QUEEZER' - MODIF|
000003C0: 49 45 44 20 46 52 4F 4D 20 27 43 4F 4D 50 41 43 |IED FROM 'COMPAC|
000003D0: 54 4F 52 27 22 00 FD 07 F4 01 99 20 22 11 11 54 |TOR'"...... "..T|
000003E0: 48 49 53 20 50 52 4F 47 52 41 4D 20 27 53 51 55 |HIS PROGRAM 'SQU|
000003F0: 45 45 5A 45 53 27 20 42 41 53 49 43 22 00 24 08 |EEZES' BASIC".$.|
00000400: FE 01 99 20 22 50 52 4F 47 52 41 4D 53 20 49 4E |... "PROGRAMS IN|
00000410: 54 4F 20 52 45 44 55 43 45 44 20 53 50 41 43 45 |TO REDUCED SPACE|
00000420: 20 42 59 22 00 55 08 08 02 99 20 22 44 45 4C 45 | BY".U.... "DELE|
00000430: 54 49 4E 47 20 27 52 45 4D 27 53 2C 20 4C 45 4E |TING 'REM'S, LEN|
00000440: 47 54 48 45 4E 49 4E 47 20 4C 49 4E 45 53 2C 20 |GTHENING LINES, |
00000450: 45 54 43 2E 22 00 74 08 12 02 99 3A 99 3A 85 20 |ETC.".t....:.:. |
00000460: 22 49 4E 50 55 54 20 46 49 4C 45 4E 41 4D 45 22 |"INPUT FILENAME"|
00000470: 3B 46 49 24 00 8A 08 1C 02 99 3A 99 20 22 44 52 |;FI$......:. "DR|
00000480: 49 56 45 20 23 20 3F 20 22 3B 00 AE 08 26 02 A1 |IVE # ? ";...&..|
00000490: 20 49 44 24 3A 8B 20 49 44 24 B3 22 30 22 20 B0 | ID$:. ID$."0" .|
000004A0: 20 49 44 24 B1 22 31 22 20 A7 20 35 35 30 00 B8 | ID$."1" . 550..|
000004B0: 08 30 02 99 20 49 44 24 00 D8 08 3A 02 99 3A 99 |.0.. ID$...:..:.|
000004C0: 3A 85 20 22 4F 55 54 50 55 54 20 46 49 4C 45 4E |:. "OUTPUT FILEN|
000004D0: 41 4D 45 22 3B 4F 46 24 00 EE 08 44 02 99 3A 99 |AME";OF$...D..:.|
000004E0: 20 22 44 52 49 56 45 20 23 20 3F 20 22 3B 00 12 | "DRIVE # ? ";..|
000004F0: 09 4E 02 A1 20 4F 44 24 3A 8B 20 4F 44 24 B3 22 |.N.. OD$:. OD$."|
00000500: 30 22 20 B0 20 4F 44 24 B1 22 31 22 20 A7 20 35 |0" . OD$."1" . 5|
00000510: 39 30 00 1C 09 58 02 99 20 4F 44 24 00 22 09 62 |90...X.. OD$.".b|
00000520: 02 3A 00 34 09 6C 02 8F 20 2A 2A 2A 2A 2A 2A 2A |.:.4.l.. *******|
00000530: 2A 2A 2A 2A 00 46 09 76 02 8F 20 52 45 41 44 59 |****.F.v.. READY|
00000540: 20 54 4F 20 47 4F 00 58 09 80 02 8F 20 2A 2A 2A | TO GO.X.... ***|
00000550: 2A 2A 2A 2A 2A 2A 2A 2A 00 5E 09 8A 02 3A 00 73 |********.^...:.s|
00000560: 09 94 02 99 22 93 53 43 41 4E 4E 49 4E 47 20 46 |....".SCANNING F|
00000570: 49 4C 45 00 94 09 9E 02 99 22 20 20 20 46 4F 52 |ILE......" FOR|
00000580: 20 54 41 52 47 45 54 20 4C 49 4E 45 53 2E 2E 2E | TARGET LINES...|
00000590: 2E 2E 11 11 00 A9 09 A8 02 9F 20 31 35 2C 38 2C |.......... 15,8,|
000005A0: 31 35 3A 8D 20 32 37 32 30 00 C8 09 B2 02 9F 20 |15:. 2720...... |
000005B0: 35 2C 38 2C 35 2C 49 44 24 AA 22 3A 22 AA 46 49 |5,8,5,ID$.":".FI|
000005C0: 24 AA 22 2C 50 2C 52 22 00 CE 09 BC 02 3A 00 F0 |$.",P,R".....:..|
000005D0: 09 C6 02 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.... ***********|
000005E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000005F0: 00 12 0A D0 02 8F 20 52 45 41 44 20 4C 4F 41 44 |...... READ LOAD|
00000600: 20 41 44 52 2C 20 4C 49 4E 4B 20 26 20 4C 49 4E | ADR, LINK & LIN|
00000610: 45 23 00 34 0A DA 02 8F 20 2A 2A 2A 2A 2A 2A 2A |E#.4.... *******|
00000620: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000630: 2A 2A 2A 2A 00 3A 0A E4 02 3A 00 4E 0A EE 02 8D |****.:...:.N....|
00000640: 20 32 37 32 30 20 3A 20 8D 20 32 36 36 30 00 6B | 2720 : . 2660.k|
00000650: 0A F8 02 8D 20 32 36 36 30 20 3A 20 8B 20 56 AA |.... 2660 : . V.|
00000660: 56 31 B2 30 20 A7 20 31 32 32 30 00 86 0A 02 03 |V1.0 . 1220.....|
00000670: 8D 20 32 36 36 30 20 3A 20 4C 4E B2 56 31 AA 28 |. 2660 : LN.V1.(|
00000680: 32 35 36 AC 56 29 00 8C 0A 0C 03 3A 00 B1 0A 16 |256.V).....:....|
00000690: 03 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.. *************|
000006A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000006B0: 2A 00 CF 0A 20 03 8F 20 20 20 20 20 20 20 20 53 |*... .. S|
000006C0: 43 41 4E 20 42 41 53 49 43 20 4C 49 4E 45 53 00 |CAN BASIC LINES.|
000006D0: F4 0A 2A 03 8F 20 46 4F 52 20 47 4F 54 4F 2C 20 |..*.. FOR GOTO, |
000006E0: 47 4F 53 55 42 2C 20 26 20 54 48 45 4E 20 54 4F |GOSUB, & THEN TO|
000006F0: 4B 45 4E 53 00 19 0B 34 03 8F 20 2A 2A 2A 2A 2A |KENS...4.. *****|
00000700: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000710: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 1F 0B 3E 03 3A 00 |*********...>.:.|
00000720: 2A 0B 48 03 8D 20 32 36 38 30 00 3A 0B 52 03 8B |*.H.. 2680.:.R..|
00000730: 20 56 B2 30 20 A7 20 37 36 30 00 54 0B 5C 03 8B | V.0 . 760.T.\..|
00000740: 20 56 B2 31 33 37 20 B0 20 56 B2 31 34 31 20 A7 | V.137 . V.141 .|
00000750: 20 39 33 30 00 67 0B 66 03 8B 20 56 B3 B1 31 36 | 930.g.f.. V..16|
00000760: 37 20 A7 20 38 34 30 00 6D 0B 70 03 3A 00 84 0B |7 . 840.m.p.:...|
00000770: 7A 03 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |z.. ************|
00000780: 2A 2A 2A 2A 00 9B 0B 84 03 8F 20 47 45 54 20 54 |****...... GET T|
00000790: 41 52 47 45 54 20 4C 49 4E 45 23 00 B2 0B 8E 03 |ARGET LINE#.....|
000007A0: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
000007B0: 2A 2A 00 B8 0B 98 03 3A 00 C1 0B A2 03 4C 54 B2 |**.....:.....LT.|
000007C0: 30 00 DB 0B AC 03 8D 20 32 36 38 30 20 3A 20 8B |0...... 2680 : .|
000007D0: 20 56 B2 33 32 20 A7 20 39 34 30 00 F4 0B B6 03 | V.32 . 940.....|
000007E0: 8B 20 56 B3 34 38 20 B0 20 56 B1 35 37 20 A7 20 |. V.48 . V.57 . |
000007F0: 31 30 33 30 00 09 0C C0 03 4C 54 B2 28 31 30 AC |1030.....LT.(10.|
00000800: 4C 54 29 AA C5 28 43 24 29 00 1C 0C CA 03 8D 20 |LT)..(C$)...... |
00000810: 32 36 38 30 20 3A 20 89 20 39 35 30 00 22 0C D4 |2680 : . 950."..|
00000820: 03 3A 00 3A 0C DE 03 8F 20 2A 2A 2A 2A 2A 2A 2A |.:.:.... *******|
00000830: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 52 0C E8 03 8F |**********.R....|
00000840: 20 46 4C 41 47 20 54 41 52 47 45 54 20 4C 49 4E | FLAG TARGET LIN|
00000850: 45 53 00 6A 0C F2 03 8F 20 2A 2A 2A 2A 2A 2A 2A |ES.j.... *******|
00000860: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 70 0C FC 03 3A |**********.p...:|
00000870: 00 82 0C 06 04 8B 20 4C 54 B2 30 20 A7 20 31 31 |...... LT.0 . 11|
00000880: 34 30 00 91 0C 10 04 42 59 B2 B5 28 4C 54 AD 38 |40.....BY..(LT.8|
00000890: 29 00 9F 0C 1A 04 5A B2 4C 54 AB 38 AC 42 59 00 |).....Z.LT.8.BY.|
000008A0: AC 0C 24 04 41 44 B2 42 59 AA 53 41 00 C2 0C 2E |..$.AD.BY.SA....|
000008B0: 04 97 20 41 44 2C C2 28 41 44 29 20 B0 20 54 28 |.. AD,.(AD) . T(|
000008C0: 5A 29 00 CC 0C 38 04 99 20 4C 54 2C 00 D2 0C 42 |Z)...8.. LT,...B|
000008D0: 04 3A 00 F4 0C 4C 04 8F 20 2A 2A 2A 2A 2A 2A 2A |.:...L.. *******|
000008E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000008F0: 2A 2A 2A 2A 00 16 0D 56 04 8F 20 43 48 45 43 4B |****...V.. CHECK|
00000900: 20 46 4F 52 20 27 4F 4E 2E 2E 2E 47 4F 54 4F 2F | FOR 'ON...GOTO/|
00000910: 47 4F 53 55 42 27 00 38 0D 60 04 8F 20 2A 2A 2A |GOSUB'.8.`.. ***|
00000920: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000930: 2A 2A 2A 2A 2A 2A 2A 2A 00 3E 0D 6A 04 3A 00 4F |********.>.j.:.O|
00000940: 0D 74 04 8B 20 56 B2 34 34 20 A7 20 39 33 30 00 |.t.. V.44 . 930.|
00000950: 61 0D 7E 04 8B 20 56 B3 B1 33 32 20 A7 20 38 35 |a.~.. V..32 . 85|
00000960: 30 00 75 0D 88 04 8D 20 32 36 38 30 20 3A 20 89 |0.u.... 2680 : .|
00000970: 20 31 31 34 30 00 7B 0D 92 04 3A 00 97 0D 9C 04 | 1140.{...:.....|
00000980: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
00000990: 2A 2A 2A 2A 2A 2A 2A 00 B3 0D A6 04 8F 20 47 45 |*******...... GE|
000009A0: 54 20 52 45 41 44 59 20 46 4F 52 20 43 4F 4D 50 |T READY FOR COMP|
000009B0: 41 43 54 00 CF 0D B0 04 8F 20 2A 2A 2A 2A 2A 2A |ACT...... ******|
000009C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
000009D0: D5 0D BA 04 3A 00 F4 0D C4 04 99 20 22 93 43 4F |....:...... ".CO|
000009E0: 4D 50 41 43 54 49 4E 47 20 4C 49 4E 45 53 2E 2E |MPACTING LINES..|
000009F0: 2E 2E 11 11 00 FC 0D CE 04 A0 20 35 00 1B 0E D8 |.......... 5....|
00000A00: 04 9F 20 35 2C 38 2C 35 2C 49 44 24 AA 22 3A 22 |.. 5,8,5,ID$.":"|
00000A10: AA 46 49 24 AA 22 2C 50 2C 52 22 00 26 0E E2 04 |.FI$.",P,R".&...|
00000A20: 8D 20 32 37 32 30 00 3D 0E EC 04 46 4F 24 B2 C8 |. 2720.=...FO$..|
00000A30: 28 46 4C 24 2C 31 34 29 AA 22 2F 43 22 00 4F 0E |(FL$,14)."/C".O.|
00000A40: F6 04 98 31 35 2C 22 53 31 3A 22 AA 46 4F 24 00 |...15,"S1:".FO$.|
00000A50: 6E 0E 00 05 9F 20 36 2C 38 2C 36 2C 4F 44 24 AA |n.... 6,8,6,OD$.|
00000A60: 22 3A 22 AA 4F 46 24 AA 22 2C 50 2C 57 22 00 79 |":".OF$.",P,W".y|
00000A70: 0E 0A 05 8D 20 32 37 32 30 00 7F 0E 14 05 3A 00 |.... 2720.....:.|
00000A80: 94 0E 1E 05 8F 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |..... *********|
00000A90: 2A 2A 2A 2A 00 A8 0E 28 05 8F 20 43 4F 50 59 20 |****...(.. COPY |
00000AA0: 4C 4F 41 44 20 41 44 52 00 BC 0E 32 05 8F 20 2A |LOAD ADR...2.. *|
00000AB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 C2 0E 3C |************...<|
00000AC0: 05 3A 00 CD 0E 46 05 8D 20 32 36 36 30 00 DB 0E |.:...F.. 2660...|
00000AD0: 50 05 98 36 2C C7 28 56 31 29 3B 00 ED 0E 5A 05 |P..6,.(V1);...Z.|
00000AE0: 98 36 2C C7 28 56 29 3B 3A 20 52 B2 30 00 F3 0E |.6,.(V);: R.0...|
00000AF0: 64 05 3A 00 13 0F 6E 05 8F 20 2A 2A 2A 2A 2A 2A |d.:...n.. ******|
00000B00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000B10: 2A 2A 2A 00 33 0F 78 05 8F 20 43 4F 50 59 20 4C |***.3.x.. COPY L|
00000B20: 49 4E 4B 20 41 4E 44 20 4C 49 4E 45 20 4E 55 4D |INK AND LINE NUM|
00000B30: 42 45 52 00 53 0F 82 05 8F 20 2A 2A 2A 2A 2A 2A |BER.S.... ******|
00000B40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000B50: 2A 2A 2A 00 59 0F 8C 05 3A 00 72 0F 96 05 8D 20 |***.Y...:.r.... |
00000B60: 32 36 36 30 20 3A 20 4B 31 B2 56 31 20 3A 4B 32 |2660 : K1.V1 :K2|
00000B70: B2 56 00 8B 0F A0 05 46 B2 30 20 3A 8B 20 56 AA |.V.....F.0 :. V.|
00000B80: 56 31 B2 30 20 A7 20 32 35 38 30 00 A5 0F AA 05 |V1.0 . 2580.....|
00000B90: 8D 20 32 36 36 30 20 3A 20 4C 31 B2 56 31 20 3A |. 2660 : L1.V1 :|
00000BA0: 20 4C 32 B2 56 00 C0 0F B4 05 4C 4E B2 4C 31 AA | L2.V.....LN.L1.|
00000BB0: 28 32 35 36 AC 4C 32 29 20 3A 20 99 20 4C 4E 2C |(256.L2) : . LN,|
00000BC0: 00 CB 0F BE 05 8D 20 32 36 38 30 00 E4 0F C8 05 |...... 2680.....|
00000BD0: 8B 20 56 B2 33 32 20 B0 20 56 B2 35 38 20 A7 20 |. V.32 . V.58 . |
00000BE0: 31 34 37 30 00 F5 0F D2 05 8B 20 56 B2 30 20 A7 |1470...... V.0 .|
00000BF0: 20 31 35 32 30 00 09 10 DC 05 8B 20 56 B3 B1 31 | 1520...... V..1|
00000C00: 34 33 20 A7 20 31 35 38 30 00 23 10 E6 05 8D 20 |43 . 1580.#.... |
00000C10: 32 36 38 30 20 3A 20 8B 20 56 B1 30 20 A7 20 31 |2680 : . V.0 . 1|
00000C20: 35 31 30 00 2B 10 F0 05 46 B2 31 00 3A 10 FA 05 |510.+...F.1.:...|
00000C30: 42 59 B2 B5 28 4C 4E AD 38 29 00 48 10 04 06 5A |BY..(LN.8).H...Z|
00000C40: B2 4C 4E AB 38 AC 42 59 00 55 10 0E 06 41 44 B2 |.LN.8.BY.U...AD.|
00000C50: 42 59 AA 53 41 00 71 10 18 06 8B 20 28 54 28 5A |BY.SA.q.... (T(Z|
00000C60: 29 20 AF 20 C2 28 41 44 29 29 20 A7 20 31 35 38 |) . .(AD)) . 158|
00000C70: 30 00 7C 10 22 06 89 20 31 34 33 30 00 90 10 2C |0.|.".. 1430...,|
00000C80: 06 98 36 2C C7 28 4B 31 29 3B C7 28 4B 32 29 3B |..6,.(K1);.(K2);|
00000C90: 00 AA 10 36 06 98 36 2C C7 28 4C 31 29 3B C7 28 |...6..6,.(L1);.(|
00000CA0: 4C 32 29 3B 20 3A 20 52 B2 34 00 C5 10 40 06 3A |L2); : R.4...@.:|
00000CB0: 20 20 8B 20 46 20 A7 20 98 36 2C 22 3A 22 3B 20 | . F . .6,":"; |
00000CC0: 3A 20 52 B2 35 00 D6 10 4A 06 46 B2 30 20 3A 20 |: R.5...J.F.0 : |
00000CD0: 89 20 31 37 30 30 00 DC 10 54 06 3A 00 FE 10 5E |. 1700...T.:...^|
00000CE0: 06 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.. *************|
00000CF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 20 |**************. |
00000D00: 11 68 06 8F 20 2A 2A 2A 2A 20 20 53 43 41 4E 20 |.h.. **** SCAN |
00000D10: 42 41 53 49 43 20 4C 49 4E 45 20 20 2A 2A 2A 2A |BASIC LINE ****|
00000D20: 00 42 11 72 06 8F 20 2A 2A 2A 2A 20 26 20 43 4F |.B.r.. **** & CO|
00000D30: 4D 50 41 43 54 20 50 52 4F 47 52 41 4D 20 2A 2A |MPACT PROGRAM **|
00000D40: 2A 2A 00 64 11 7C 06 8F 20 2A 2A 2A 2A 2A 2A 2A |**.d.|.. *******|
00000D50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000D60: 2A 2A 2A 2A 00 6A 11 86 06 3A 00 7D 11 90 06 98 |****.j...:.}....|
00000D70: 36 2C 43 24 3B 20 3A 20 52 B2 52 AA 31 00 88 11 |6,C$; : R.R.1...|
00000D80: 9A 06 8D 20 32 36 38 30 00 9D 11 A4 06 3A 20 20 |... 2680.....: |
00000D90: 8B 20 56 B2 31 33 37 20 A7 20 46 B2 31 00 BA 11 |. V.137 . F.1...|
00000DA0: AE 06 3A 20 20 8B 20 56 B2 31 33 39 20 B0 20 56 |..: . V.139 . V|
00000DB0: B2 31 36 37 20 A7 20 46 B2 31 00 CE 11 B8 06 3A |.167 . F.1.....:|
00000DC0: 20 20 8B 20 56 B2 30 20 A7 20 32 31 36 30 00 E3 | . V.0 . 2160..|
00000DD0: 11 C2 06 3A 20 20 8B 20 56 B2 33 32 20 A7 20 31 |...: . V.32 . 1|
00000DE0: 36 39 30 00 E9 11 CC 06 3A 00 04 12 D6 06 8F 20 |690.....:...... |
00000DF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000E00: 2A 2A 2A 2A 00 18 12 E0 06 8F 20 27 52 45 4D 27 |****...... 'REM'|
00000E10: 20 54 4F 4B 45 4E 20 2D 00 33 12 EA 06 8F 20 44 | TOKEN -.3.... D|
00000E20: 49 53 43 41 52 44 20 52 45 53 54 20 4F 46 20 4C |ISCARD REST OF L|
00000E30: 49 4E 45 00 4E 12 F4 06 8F 20 2A 2A 2A 2A 2A 2A |INE.N.... ******|
00000E40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 54 |**************.T|
00000E50: 12 FE 06 3A 00 68 12 08 07 8B 20 56 B3 B1 31 34 |...:.h.... V..14|
00000E60: 33 20 A7 20 31 38 39 30 00 82 12 12 07 8D 20 32 |3 . 1890...... 2|
00000E70: 36 38 30 20 3A 20 8B 20 56 B1 30 20 A7 20 31 38 |680 : . V.0 . 18|
00000E80: 31 30 00 8D 12 1C 07 89 20 32 31 36 30 00 93 12 |10...... 2160...|
00000E90: 26 07 3A 00 B4 12 30 07 8F 20 2A 2A 2A 2A 2A 2A |&.:...0.. ******|
00000EA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000EB0: 2A 2A 2A 2A 00 C2 12 3A 07 8F 20 51 55 4F 54 45 |****...:.. QUOTE|
00000EC0: 20 2D 00 E3 12 44 07 8F 20 43 4F 50 59 20 54 49 | -...D.. COPY TI|
00000ED0: 4C 4C 20 4E 45 58 54 20 4F 52 20 4C 49 4E 45 20 |LL NEXT OR LINE |
00000EE0: 45 4E 44 00 04 13 4E 07 8F 20 2A 2A 2A 2A 2A 2A |END...N.. ******|
00000EF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000F00: 2A 2A 2A 2A 00 0A 13 58 07 3A 00 1D 13 62 07 8B |****...X.:...b..|
00000F10: 20 56 B3 B1 33 34 20 A7 20 32 30 33 30 00 30 13 | V..34 . 2030.0.|
00000F20: 6C 07 98 36 2C 43 24 3B 20 3A 20 52 B2 52 AA 31 |l..6,C$; : R.R.1|
00000F30: 00 3B 13 76 07 8D 20 32 36 38 30 00 4D 13 80 07 |.;.v.. 2680.M...|
00000F40: 8B 20 56 B2 33 34 20 A7 20 31 36 38 30 00 5E 13 |. V.34 . 1680.^.|
00000F50: 8A 07 8B 20 56 B1 30 20 A7 20 31 39 30 30 00 75 |... V.0 . 1900.u|
00000F60: 13 94 07 8B 20 46 20 A7 20 56 B2 30 20 3A 20 89 |.... F . V.0 : .|
00000F70: 20 31 33 37 30 00 8B 13 9E 07 98 36 2C C7 28 33 | 1370......6,.(3|
00000F80: 34 29 3B 20 3A 20 52 B2 52 AA 31 00 96 13 A8 07 |4); : R.R.1.....|
00000F90: 89 20 32 31 36 30 00 9C 13 B2 07 3A 00 BB 13 BC |. 2160.....:....|
00000FA0: 07 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.. *************|
00000FB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 DA 13 C6 07 |***********.....|
00000FC0: 8F 20 49 46 20 43 4F 4C 4F 4E 20 2D 20 43 48 4B |. IF COLON - CHK|
00000FD0: 20 4E 45 58 54 20 43 48 41 52 00 F4 13 D0 07 8F | NEXT CHAR......|
00000FE0: 20 20 20 20 20 20 45 4C 53 45 20 43 4F 50 59 20 | ELSE COPY |
00000FF0: 43 48 41 52 00 13 14 DA 07 8F 20 2A 2A 2A 2A 2A |CHAR...... *****|
00001000: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001010: 2A 2A 2A 00 19 14 E4 07 3A 00 2C 14 EE 07 8B 20 |***.....:.,.... |
00001020: 56 B3 B1 35 38 20 A7 20 31 36 38 30 00 37 14 F8 |V..58 . 1680.7..|
00001030: 07 8D 20 32 36 38 30 00 50 14 02 08 8B 20 56 B2 |.. 2680.P.... V.|
00001040: 33 32 20 B0 20 56 B2 35 38 20 A7 20 32 30 34 30 |32 . V.58 . 2040|
00001050: 00 63 14 0C 08 8B 20 56 B2 31 34 33 20 A7 20 31 |.c.... V.143 . 1|
00001060: 38 31 30 00 74 14 16 08 8B 20 56 B2 30 20 A7 20 |810.t.... V.0 . |
00001070: 32 31 36 30 00 88 14 20 08 98 36 2C 22 3A 22 3B |2160... ..6,":";|
00001080: 20 3A 20 52 B2 52 AA 31 00 93 14 2A 08 89 20 31 | : R.R.1...*.. 1|
00001090: 37 30 30 00 99 14 34 08 3A 00 BC 14 3E 08 8F 20 |700...4.:...>.. |
000010A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000010B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 D0 14 48 |************...H|
000010C0: 08 8F 20 45 4E 44 20 4F 46 20 4C 49 4E 45 20 2D |.. END OF LINE -|
000010D0: 00 F3 14 52 08 8F 20 43 41 4E 20 57 45 20 43 4F |...R.. CAN WE CO|
000010E0: 4D 50 41 43 54 20 54 48 45 53 45 20 4C 49 4E 45 |MPACT THESE LINE|
000010F0: 53 20 3F 00 16 15 5C 08 8F 20 2A 2A 2A 2A 2A 2A |S ?...\.. ******|
00001100: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001110: 2A 2A 2A 2A 2A 2A 00 1C 15 66 08 3A 00 3B 15 70 |******...f.:.;.p|
00001120: 08 8B 20 46 20 B0 20 28 52 B1 31 37 30 29 20 A7 |.. F . (R.170) .|
00001130: 20 56 B2 30 3A 89 20 31 33 37 30 00 46 15 7A 08 | V.0:. 1370.F.z.|
00001140: 8D 20 32 36 36 30 00 5A 15 84 08 8B 20 56 AA 56 |. 2660.Z.... V.V|
00001150: 31 B2 30 20 A7 20 32 35 38 30 00 75 15 8E 08 8D |1.0 . 2580.u....|
00001160: 20 32 36 36 30 20 3A 20 4C 4E B2 56 31 AA 28 32 | 2660 : LN.V1.(2|
00001170: 35 36 AC 56 29 00 8E 15 98 08 4C 31 B2 56 31 20 |56.V).....L1.V1 |
00001180: 3A 20 4C 32 B2 56 20 3A 20 99 20 4C 4E 2C 00 94 |: L2.V : . LN,..|
00001190: 15 A2 08 3A 00 B3 15 AC 08 8F 20 2A 2A 2A 2A 2A |...:...... *****|
000011A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000011B0: 2A 2A 2A 00 D2 15 B6 08 8F 20 43 48 4B 20 49 46 |***...... CHK IF|
000011C0: 20 4C 49 4E 45 23 20 49 53 20 41 20 54 41 52 47 | LINE# IS A TARG|
000011D0: 45 54 00 F1 15 C0 08 8F 20 2A 2A 2A 2A 2A 2A 2A |ET...... *******|
000011E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000011F0: 2A 00 F7 15 CA 08 3A 00 06 16 D4 08 42 59 B2 B5 |*.....:.....BY..|
00001200: 28 4C 4E AD 38 29 00 14 16 DE 08 5A B2 4C 4E AB |(LN.8).....Z.LN.|
00001210: 38 AC 42 59 00 21 16 E8 08 41 44 B2 42 59 AA 53 |8.BY.!...AD.BY.S|
00001220: 41 00 3D 16 F2 08 8B 20 28 54 28 5A 29 20 AF 20 |A.=.... (T(Z) . |
00001230: C2 28 41 44 29 29 20 A7 20 32 34 36 30 00 43 16 |.(AD)) . 2460.C.|
00001240: FC 08 3A 00 5E 16 06 09 8F 20 2A 2A 2A 2A 2A 2A |..:.^.... ******|
00001250: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 6F |**************.o|
00001260: 16 10 09 8F 20 4E 4F 54 20 55 53 45 44 20 2D 00 |.... NOT USED -.|
00001270: 8A 16 1A 09 8F 20 44 49 53 43 41 52 44 20 4C 49 |..... DISCARD LI|
00001280: 4E 4B 20 26 20 4C 49 4E 45 23 00 A5 16 24 09 8F |NK & LINE#...$..|
00001290: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
000012A0: 2A 2A 2A 2A 2A 00 AB 16 2E 09 3A 00 C7 16 38 09 |*****.....:...8.|
000012B0: 8D 20 32 36 38 30 20 3A 20 8B 20 56 B2 31 34 33 |. 2680 : . V.143|
000012C0: 20 A7 20 31 38 31 30 00 E0 16 42 09 8B 20 56 B2 | . 1810...B.. V.|
000012D0: 33 32 20 B0 20 56 B2 35 38 20 A7 20 32 33 36 30 |32 . V.58 . 2360|
000012E0: 00 F1 16 4C 09 8B 20 56 B2 30 20 A7 20 32 31 37 |...L.. V.0 . 217|
000012F0: 30 00 0E 17 56 09 98 36 2C 22 3A 22 3B 20 3A 20 |0...V..6,":"; : |
00001300: 52 B2 52 AA 31 20 3A 20 89 20 31 37 30 30 00 14 |R.R.1 : . 1700..|
00001310: 17 60 09 3A 00 37 17 6A 09 8F 20 2A 2A 2A 2A 2A |.`.:.7.j.. *****|
00001320: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001330: 2A 2A 2A 2A 2A 2A 2A 00 4C 17 74 09 8F 20 4C 49 |*******.L.t.. LI|
00001340: 4E 45 23 20 4E 45 45 44 45 44 20 2D 00 6F 17 7E |NE# NEEDED -.o.~|
00001350: 09 8F 20 57 52 49 54 45 20 4C 49 4E 45 20 45 4E |.. WRITE LINE EN|
00001360: 44 2C 20 4C 49 4E 4B 20 26 20 4C 49 4E 45 23 00 |D, LINK & LINE#.|
00001370: BE 74 22 F2 31 EF EF EF EF EF EF EF EF EF EF EF |.t".1...........|
00001380: EF EF EF EF EF EF EF EF EF EF EF EF EF EF EF EF |................|
00001390: EF EE EF 22 75 3E F3 EE EF F0 75 2A F3 23 EC EA |..."u>....u*.#..|
000013A0: B5 E3 EF E3 E6 B5 E3 E7 E3 E6 B5 E3 E7 E3 E6 EE |................|
000013B0: B2 75 FE F3 23 EC EA B5 E2 EB E7 E3 E6 B5 E2 EB |.u..#...........|
000013C0: EE E3 E7 EF EF EE EE 7E EE EF AE 75 6E F2 3B EF |.......~...un.;.|
000013D0: EE EC E3 EE EF DA 75 7E 09 8B 20 56 B2 33 32 20 |......u~.. V.32 |
000013E0: B0 20 56 B2 35 38 20 A7 20 32 34 38 30 00 09 18 |. V.58 . 2480...|
000013F0: C4 09 8B 20 56 B2 30 20 B0 20 56 B2 31 34 33 20 |... V.0 . V.143 |
00001400: A7 20 98 36 2C 22 3A 22 3B 00 1A 18 CE 09 46 B2 |. .6,":";.....F.|
00001410: 30 20 3A 20 89 20 31 37 30 30 00 20 18 D8 09 3A |0 : . 1700. ...:|
00001420: 00 3B 18 E2 09 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |.;.... *********|
00001430: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 52 18 EC 09 |***********.R...|
00001440: 8F 20 45 4E 44 20 4F 46 20 43 4F 4D 50 41 43 54 |. END OF COMPACT|
00001450: 20 2D 00 6D 18 F6 09 8F 20 57 52 49 54 45 20 45 | -.m.... WRITE E|
00001460: 4E 44 20 4F 46 20 50 52 4F 47 52 41 4D 00 88 18 |ND OF PROGRAM...|
00001470: 00 0A 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |... ************|
00001480: 2A 2A 2A 2A 2A 2A 2A 2A 00 8E 18 0A 0A 3A 00 A5 |********.....:..|
00001490: 18 14 0A 98 36 2C C7 28 30 29 3B C7 28 30 29 3B |....6,.(0);.(0);|
000014A0: C7 28 30 29 3B 00 B8 18 1E 0A 99 22 93 11 11 11 |.(0);......"....|
000014B0: 12 44 4F 4E 45 11 11 22 00 C3 18 28 0A 89 20 32 |.DONE.."...(.. 2|
000014C0: 37 38 30 00 C9 18 32 0A 3A 00 E8 18 3C 0A 8F 20 |780...2.:...<.. |
000014D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000014E0: 2A 2A 2A 2A 2A 2A 2A 2A 00 07 19 46 0A 8F 20 2A |********...F.. *|
000014F0: 2A 2A 2A 2A 20 20 53 55 42 52 4F 55 54 49 4E 45 |**** SUBROUTINE|
00001500: 53 20 2A 2A 2A 2A 2A 00 26 19 50 0A 8F 20 2A 2A |S *****.&.P.. **|
00001510: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001520: 2A 2A 2A 2A 2A 2A 00 2C 19 5A 0A 3A 00 3E 19 64 |******.,.Z.:.>.d|
00001530: 0A 8D 20 32 36 38 30 20 3A 20 56 31 B2 56 00 44 |.. 2680 : V1.V.D|
00001540: 19 6E 0A 3A 00 58 19 78 0A A1 23 35 2C 43 24 20 |.n.:.X.x..#5,C$ |
00001550: 3A 20 8D 20 32 37 32 30 00 6E 19 82 0A 8B 20 43 |: . 2720.n.... C|
00001560: 24 B2 22 22 20 A7 20 56 B2 30 20 3A 20 8E 00 7E |$."" . V.0 : ..~|
00001570: 19 8C 0A 56 B2 C6 28 43 24 29 20 3A 20 8E 00 84 |...V..(C$) : ...|
00001580: 19 96 0A 3A 00 99 19 A0 0A 84 31 35 2C 45 4E 2C |...:......15,EN,|
00001590: 45 4D 24 2C 45 54 2C 45 53 00 A8 19 AA 0A 8B 20 |EM$,ET,ES...... |
000015A0: 45 4E B2 30 20 A7 20 8E 00 AE 19 B4 0A 3A 00 C9 |EN.0 . ......:..|
000015B0: 19 BE 0A 99 20 3A 20 99 22 11 11 11 12 44 49 53 |.... : ."....DIS|
000015C0: 4B 20 45 52 52 4F 52 11 22 00 DC 19 C8 0A 99 20 |K ERROR."...... |
000015D0: 45 4E 3B 45 4D 24 3B 45 54 3B 45 53 00 E2 19 D2 |EN;EM$;ET;ES....|
000015E0: 0A 3A 00 F7 19 DC 0A A0 20 35 20 3A 20 A0 20 36 |.:...... 5 : . 6|
000015F0: 20 3A 20 A0 20 31 35 00 0D 1A E6 0A 97 20 53 4B | : . 15...... SK|
00001600: 2C C2 28 53 4B 29 AA 33 32 3A 9C 3A 80 00 00 00 |,.(SK).32:.:....|
....D.. 'SQUEEZER'...N.:.C.X.. TH
IS PROGRAM COMPRESV...............X.....
.....Y.....Y...Y..................+.;.~#
A.#.!..1>#...J&.6H......................
.X.Y.......X...........................
........I..............Y..............Y.
..H.Y....Y..Y.NG FROM THE PROGRAM:./.H..
C O M P A C T O R.L.R.. BY:
ROBERT BAKER.I.... BAKER ENTERPRISE
S...... 15 WINDSOR DR.......
ATCO, N.J. 08004.....:...... **********
********.Y.... CHECK MACHINE TYPE......
******************...".:...,.PK.B(NNDJN.
.\.I..N....N#.N...&.#.N....&.#.N...&.#.N
...&.#.N...#*."..#..N...HHHHHHHHHHHHHHHH
HHHHN...~.......X.W...................HH
HHHHHHHHHHHHHHHHHHN...............Y.....
I..Y.....H.......YX...X...O.O....I....I.
I......MI..........Y.....I.H......Y~...
......... ".INITIALIZING......".4.... I.
SA . SA.7999:. I,0:..T.... T(7):. I.0 .
7:T(I).2.I:..Z...:.Q.B.. ***************
*...L.. READY DISK FILES...V.. *********
*******.....:.U.... ".'SQUEEZER' - MODIF
IED FROM 'COMPACTOR'"...... "..THIS PROG
RAM 'SQUEEZES' BASIC".$.... "PROGRAMS IN
TO REDUCED SPACE BY".U.... "DELETING 'RE
M'S, LENGTHENING LINES, ETC.".T....:.:.
"INPUT FILENAME";FI$......:. "DRIVE # ?
";...&.. ID$:. ID$."0" . ID$."1" . 550..
.0.. ID$.X.:..:.:. "OUTPUT FILENAME";OF$
...D..:. "DRIVE # ? ";...N.. OD$:. OD$."
0" . OD$."1" . 590...X.. OD$.".B.:.4.L..
***********.F.V.. READY TO GO.X.... ***
********.^...:.S....".SCANNING FILE.....
." FOR TARGET LINES............. 15,8,
15:. 2720.H.... 5,8,5,ID$.":".FI$.",P,R"
.N...:...F.. ***************************
...P.. READ LOAD ADR, LINK & LINE#.4.Z..
***************************.:...:.N....
2720 : . 2660.K.... 2660 : . V.V1.0 . 1
220...... 2660 : LN.V1.(256.V).....:....
.. ******************************.O. ..
SCAN BASIC LINES...*.. FOR GOTO,
GOSUB, & THEN TOKENS...4.. *************
*****************...>.:.*.H.. 2680.:.R..
V.0 . 760.T.\.. V.137 . V.141 . 930.G.F
.. V..167 . 840.M.P.:...Z.. ************
****...... GET TARGET LINE#...... ******
**********.....:.A...LT.0...... 2680 : .
V.32 . 940...... V.48 . V.57 . 1030....
.LT.(10.LT).E(C$)...J.. 2680 : . 950.".T
.:.:.... *****************.R.... FLAG TA
RGET LINES.J.... *****************.P...:
...... LT.0 . 1140.....BY..(LT.8).....Z.
LT.8.BY...$.AD.BY.SA.B.... AD,B(AD) . T(
Z).L.8.. LT,.R.B.:...L.. ***************
************...V.. CHECK FOR 'ON...GOTO/
GOSUB'.8.`.. ***************************
.>.J.:.O.T.. V.44 . 930.A.~.. V..32 . 85
0.U.... 2680 : . 1140.{...:...... ******
***************...... GET READY FOR COMP
ACT.O.... *********************.U...:...
D.. ".COMPACTING LINES.........N. 5...X
.. 5,8,5,ID$.":".FI$.",P,R".&.... 2720.=
...FO$.H(FL$,14)."/C".O....15,"S1:".FO$.
N.... 6,8,6,OD$.":".OF$.",P,W".Y.... 272
0....:...... *************...(.. COPY
LOAD ADR...2.. *************.B.<.:.M.F..
2660...P..6,G(V1);...Z..6,G(V);: R.0...
D.:...N.. *************************.3.X.
. COPY LINK AND LINE NUMBER.S.... ******
*******************.Y...:.R.... 2660 : K
1.V1 :K2.V... .F.0 :. V.V1.0 . 2580.....
. 2660 : L1.V1 : L2.V.....LN.L1.(256.L2)
: . LN,.K.... 2680...H.. V.32 . V.58 .
1470...R.. V.0 . 1520...... V..143 . 158
0.#.... 2680 : . V.0 . 1510.+...F.1.:...
BY..(LN.8).H...Z.LN.8.BY.U...AD.BY.SA.Q.
... (T(Z) . B(AD)) . 1580.|.".. 1430...,
..6,G(K1);G(K2);...6..6,G(L1);G(L2); : R
.4.E.@.: . F . .6,":"; : R.5.V.J.F.0 :
. 1700...T.:...^.. *********************
******. .H.. **** SCAN BASIC LINE ****
.B.R.. **** & COMPACT PROGRAM ****.D.|..
***************************.J...:.}....
6,C$; : R.R.1...... 2680.....: . V.137
. F.1.....: . V.139 . V.167 . F.1.N...:
. V.0 . 2160...B.: . V.32 . 1690...L.
:...V.. ********************...... 'REM'
TOKEN -.3.... DISCARD REST OF LINE.N...
. ********************.T...:.H.... V..14
3 . 1890...... 2680 : . V.0 . 1810......
2160...&.:...0.. **********************
****.B.:.. QUOTE -...D.. COPY TILL NEXT
OR LINE END...N.. **********************
****...X.:...B.. V..34 . 2030.0.L..6,C$;
: R.R.1.;.V.. 2680.M.... V.34 . 1680.^.
... V.0 . 1900.U.... F . V.0 : . 1370...
...6,G(34); : R.R.1...... 2160.....:....
.. ************************.Z.F.. IF COL
ON - CHK NEXT CHAR...P.. ELSE COPY
CHAR...Z.. ************************.....
:.,.... V..58 . 1680.7.... 2680.P.... V.
32 . V.58 . 2040.C.... V.143 . 1810.T...
. V.0 . 2160... ..6,":"; : R.R.1...*.. 1
700...4.:...>.. ************************
****.P.H.. END OF LINE -...R.. CAN WE CO
MPACT THESE LINES ?...\.. **************
**************...F.:.;.P.. F . (R.170) .
V.0:. 1370.F.Z.. 2660.Z.... V.V1.0 . 25
80.U.... 2660 : LN.V1.(256.V).....L1.V1
: L2.V : . LN,.....:...... *************
***********.R.... CHK IF LINE# IS A TARG
ET...... ************************...J.:.
..T.BY..(LN.8).....Z.LN.8.BY.!...AD.BY.S
A.=.... (T(Z) . B(AD)) . 2460.C...:.^...
. ********************.O.... NOT USED -.
..... DISCARD LINK & LINE#...$.. *******
*************.....:.G.8.. 2680 : . V.143
. 1810...B.. V.32 . V.58 . 2360...L.. V
.0 . 2170...V..6,":"; : R.R.1 : . 1700..
.`.:.7.J.. ****************************.
L.T.. LINE# NEEDED -.O.~.. WRITE LINE EN
D, LINK & LINE#..T".1...................
..........."U>....U*.#..................
.U..#..................~...UN.;......ZU~
.. V.32 . V.58 . 2480...D.. V.0 . V.143
. .6,":";...N.F.0 : . 1700. .X.:.;.... *
*******************.R.... END OF COMPACT
-.M.... WRITE END OF PROGRAM...... ****
****************.....:......6,G(0);G(0);
G(0);......".....DONE..".C.(.. 2780.I.2.
:...<.. ************************...F.. *
**** SUBROUTINES *****.&.P.. **********
**************.,.Z.:.>.D.. 2680 : V1.V.D
.N.:.X.X..#5,C$ : . 2720.N.... C$."" . V
.0 : ..~...V.F(C$) : ......:... ..15,EN,
EM$,ET,ES...... EN.0 . ......:.I.... : .
"....DISK ERROR."...H.. EN;EM$;ET;ES...R
.:..... 5 : 6 : 15...... SK,B(SK).3
2:.:....
> CLICK IMAGE PREVIEW FOR FULL MODAL