> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 29 08 0A 00 8F 20 22 53 51 2F 55 53 51 20 |..).... "SQ/USQ |
00000010: 42 59 20 4A 4F 48 4E 20 4C 45 45 53 4F 4E 2C 20 |BY JOHN LEESON, |
00000020: 44 45 43 20 31 39 38 35 22 00 51 08 14 00 8F 20 |DEC 1985".Q.... |
00000030: 22 4D 41 59 20 42 45 20 46 52 45 45 4C 59 20 43 |"MAY BE FREELY C|
00000040: 4F 50 49 45 44 20 41 4E 44 20 46 49 4C 45 44 20 |OPIED AND FILED |
00000050: 22 00 79 08 1E 00 8F 20 22 4F 4E 20 42 42 53 20 |".y.... "ON BBS |
00000060: 44 4F 57 4E 4C 4F 41 44 53 2E 20 20 20 4E 4F 54 |DOWNLOADS. NOT|
00000070: 20 54 4F 20 42 45 20 20 22 00 A1 08 28 00 8F 20 | TO BE "...(.. |
00000080: 22 53 4F 4C 44 20 4F 52 20 43 4F 50 49 45 44 20 |"SOLD OR COPIED |
00000090: 46 4F 52 20 41 4E 59 20 43 4F 50 59 20 46 45 45 |FOR ANY COPY FEE|
000000A0: 22 00 C9 08 32 00 8F 20 22 53 4F 55 52 43 45 20 |"...2.. "SOURCE |
000000B0: 43 4F 44 45 20 41 4E 44 20 43 4F 44 49 4E 47 20 |CODE AND CODING |
000000C0: 4E 4F 54 45 53 20 20 20 22 00 F1 08 3C 00 8F 20 |NOTES "...<.. |
000000D0: 22 57 49 4C 4C 20 42 45 20 41 56 41 49 4C 41 42 |"WILL BE AVAILAB|
000000E0: 4C 45 20 53 4F 4F 4E 20 46 52 4F 4D 20 54 48 45 |LE SOON FROM THE|
000000F0: 22 00 19 09 46 00 8F 20 22 41 55 54 48 4F 52 20 |"...F.. "AUTHOR |
00000100: 4F 4E 4C 59 20 46 4F 52 20 41 20 43 4F 50 59 20 |ONLY FOR A COPY |
00000110: 43 48 41 52 47 45 2E 20 22 00 41 09 50 00 8F 20 |CHARGE. ".A.P.. |
00000120: 22 45 2D 4D 41 49 4C 20 54 4F 20 27 53 45 42 41 |"E-MAIL TO 'SEBA|
00000130: 53 54 49 41 4E 27 20 4F 4E 20 51 55 41 4E 54 55 |STIAN' ON QUANTU|
00000140: 4D 00 69 09 5A 00 8F 20 22 4C 49 4E 4B 20 46 4F |M.i.Z.. "LINK FO|
00000150: 52 20 49 4E 46 4F 2E 20 20 20 20 20 20 20 20 20 |R INFO. |
00000160: 20 20 20 20 20 20 20 20 22 00 9B 09 64 00 91 AB | "...d...|
00000170: 28 C2 28 34 39 31 35 32 29 B2 31 39 38 29 89 32 |(.(49152).198).2|
00000180: 31 30 3A 87 58 3A 9E 20 C2 28 36 37 29 AA 32 35 |10:.X:. .(67).25|
00000190: 36 AC C2 28 36 38 29 AA 37 3A 9C 00 B9 09 6E 00 |6..(68).7:....n.|
000001A0: 97 35 33 32 38 30 2C 31 32 3A 97 35 33 32 38 31 |.53280,12:.53281|
000001B0: 2C 30 3A 99 22 93 1E 22 3B 00 DD 09 78 00 99 22 |,0:."..";...x.."|
000001C0: 11 11 11 20 20 20 20 20 20 20 20 20 20 20 20 46 |... F|
000001D0: 49 4C 45 20 53 51 55 45 45 5A 45 52 22 00 FA 09 |ILE SQUEEZER"...|
000001E0: 82 00 99 22 11 20 20 20 20 20 20 20 20 20 20 20 |...". |
000001F0: 20 20 20 20 20 20 20 42 59 22 00 1B 0A 8C 00 99 | BY"......|
00000200: 22 11 20 20 20 20 20 20 20 20 20 20 20 20 20 4A |". J|
00000210: 4F 48 4E 20 4C 45 45 53 4F 4E 22 00 50 0A 96 00 |OHN LEESON".P...|
00000220: 85 22 11 11 11 49 4E 50 55 54 20 44 45 56 49 43 |."...INPUT DEVIC|
00000230: 45 20 20 38 9D 9D 9D 22 3B 49 44 3A 8B 20 49 44 |E 8...";ID:. ID|
00000240: B3 38 20 B0 20 49 44 B1 31 30 20 89 20 31 35 30 |.8 . ID.10 . 150|
00000250: 00 97 0A A0 00 85 22 11 49 4E 50 55 54 20 44 52 |......".INPUT DR|
00000260: 49 56 45 20 20 30 9D 9D 9D 22 3B 49 56 24 3A 49 |IVE 0...";IV$:I|
00000270: 56 24 B2 C8 28 49 56 24 2C 31 29 3A 8B 20 49 56 |V$..(IV$,1):. IV|
00000280: 24 B3 B1 22 30 22 20 AF 20 49 56 24 B3 B1 22 31 |$.."0" . IV$.."1|
00000290: 22 20 89 20 31 36 30 00 CB 0A AA 00 85 22 11 4F |" . 160......".O|
000002A0: 55 54 50 55 54 20 44 45 56 49 43 45 20 20 38 9D |UTPUT DEVICE 8.|
000002B0: 9D 9D 22 3B 4F 44 3A 8B 20 4F 44 B3 38 20 B0 20 |..";OD:. OD.8 . |
000002C0: 4F 44 B1 31 30 20 89 20 31 37 30 00 11 0B B4 00 |OD.10 . 170.....|
000002D0: 85 22 11 4F 55 54 50 55 54 20 44 52 49 56 45 20 |.".OUTPUT DRIVE |
000002E0: 20 30 9D 9D 9D 22 3B 4F 56 24 3A 4F 56 24 B2 C8 | 0...";OV$:OV$..|
000002F0: 28 4F 56 24 2C 31 29 3A 8B 20 4F 56 24 B3 B1 22 |(OV$,1):. OV$.."|
00000300: 30 22 AF 4F 56 24 B3 B1 22 31 22 20 89 20 31 38 |0".OV$.."1" . 18|
00000310: 30 00 3D 0B BE 00 97 39 30 34 2C 49 44 3A 97 39 |0.=....904,ID:.9|
00000320: 30 36 2C 4F 44 3A 97 39 30 35 2C C6 28 49 56 24 |06,OD:.905,.(IV$|
00000330: 29 3A 97 39 30 37 2C C6 28 4F 56 24 29 00 43 0B |):.907,.(OV$).C.|
00000340: C8 00 3A 00 85 0B D2 00 99 22 11 11 49 4E 53 45 |..:......"..INSE|
00000350: 52 54 20 49 4E 50 55 54 20 41 4E 44 20 4F 55 54 |RT INPUT AND OUT|
00000360: 50 55 54 20 44 49 53 4B 53 2E 20 50 52 45 53 53 |PUT DISKS. PRESS|
00000370: 20 41 4E 59 4B 45 59 20 57 48 45 4E 20 52 45 41 | ANYKEY WHEN REA|
00000380: 44 59 2E 2E 22 00 98 0B DC 00 A1 41 24 3A 8B 41 |DY.."......A$:.A|
00000390: 24 B2 22 22 89 32 32 30 00 D3 0B E6 00 4E 41 24 |$."".220.....NA$|
000003A0: B2 22 22 3A 99 22 11 46 49 4C 45 20 4E 41 4D 45 |."":.".FILE NAME|
000003B0: 20 54 4F 20 53 51 55 45 45 5A 45 20 28 24 20 46 | TO SQUEEZE ($ F|
000003C0: 4F 52 20 44 49 52 45 43 54 4F 52 59 29 22 3A 85 |OR DIRECTORY)":.|
000003D0: 4E 41 24 00 E6 0B F0 00 8B 20 4E 41 24 B2 22 22 |NA$...... NA$.""|
000003E0: 20 A7 20 80 3A 8A 00 FC 0B FA 00 8B C8 28 4E 41 | . .:........(NA|
000003F0: 24 2C 31 29 B2 22 24 22 89 34 37 30 00 38 0C 04 |$,1)."$".470.8..|
00000400: 01 A0 31 35 3A 9F 31 35 2C 4F 44 2C 31 35 3A A0 |..15:.15,OD,15:.|
00000410: 31 35 3A 8B 53 54 B3 B1 30 A7 99 22 11 4F 55 54 |15:.ST..0..".OUT|
00000420: 50 55 54 20 44 52 49 56 45 20 4E 4F 54 20 52 45 |PUT DRIVE NOT RE|
00000430: 41 44 59 22 3A 90 3A 8A 00 53 0C 0E 01 49 45 B2 |ADY":.:..S...IE.|
00000440: 31 35 3A 8B 20 49 44 B3 B1 4F 44 20 A7 20 49 45 |15:. ID..OD . IE|
00000450: B2 31 36 00 93 0C 18 01 A0 49 45 3A 9F 49 45 2C |.16......IE:.IE,|
00000460: 49 44 2C 31 35 3A 4E 42 24 B2 C8 28 4F 56 24 AA |ID,15:NB$..(OV$.|
00000470: 22 3A 51 2F 22 AA 4E 41 24 2C 31 38 29 3A 4E 41 |":Q/".NA$,18):NA|
00000480: 24 B2 C8 28 49 56 24 AA 22 3A 22 AA 4E 41 24 2C |$..(IV$.":".NA$,|
00000490: 31 38 29 00 B3 0C 22 01 A0 32 3A 45 24 B2 22 2C |18)..."..2:E$.",|
000004A0: 53 2C 52 22 3A 9F 32 2C 49 44 2C 32 2C 4E 41 24 |S,R":.2,ID,2,NA$|
000004B0: AA 45 24 00 CE 0C 2C 01 84 49 45 2C 41 24 2C 42 |.E$...,..IE,A$,B|
000004C0: 24 3A 8B 41 24 B3 22 32 30 22 89 33 36 30 00 EE |$:.A$."20".360..|
000004D0: 0C 36 01 A0 32 3A 45 24 B2 22 2C 50 2C 52 22 3A |.6..2:E$.",P,R":|
000004E0: 9F 32 2C 49 44 2C 32 2C 4E 41 24 AA 45 24 00 09 |.2,ID,2,NA$.E$..|
000004F0: 0D 40 01 84 49 45 2C 41 24 2C 42 24 3A 8B 41 24 |.@..IE,A$,B$:.A$|
00000500: B3 22 32 30 22 89 33 36 30 00 29 0D 4A 01 A0 32 |."20".360.).J..2|
00000510: 3A 45 24 B2 22 2C 55 2C 52 22 3A 9F 32 2C 49 44 |:E$.",U,R":.2,ID|
00000520: 2C 32 2C 4E 41 24 AA 45 24 00 44 0D 54 01 84 49 |,2,NA$.E$.D.T..I|
00000530: 45 2C 41 24 2C 42 24 3A 8B 41 24 B3 22 32 30 22 |E,A$,B$:.A$."20"|
00000540: 89 33 36 30 00 70 0D 5E 01 99 22 44 49 53 4B 20 |.360.p.^.."DISK |
00000550: 45 52 52 4F 52 20 22 41 24 22 20 20 20 22 42 24 |ERROR "A$" "B$|
00000560: 3A A0 49 45 3A A0 32 3A A0 31 35 3A 89 32 31 30 |:.IE:.2:.15:.210|
00000570: 00 8B 0D 68 01 8B 20 49 44 B3 B1 20 4F 44 20 A7 |...h.. ID.. OD .|
00000580: 20 9F 20 31 35 2C 4F 44 2C 31 35 00 C5 0D 72 01 | . 15,OD,15...r.|
00000590: 45 24 B2 4E 41 24 AA 45 24 3A 97 38 32 38 2C C3 |E$.NA$.E$:.828,.|
000005A0: 28 45 24 29 3A 81 49 B2 31 A4 C3 28 45 24 29 3A |(E$):.I.1..(E$):|
000005B0: 97 38 32 38 AA 49 2C C6 28 CA 28 45 24 2C 49 2C |.828.I,.(.(E$,I,|
000005C0: 31 29 29 3A 82 00 F6 0D 7C 01 A0 34 3A 9F 34 2C |1)):....|..4:.4,|
000005D0: 4F 44 2C 34 2C 4E 42 24 AA 22 2C 53 2C 57 22 3A |OD,4,NB$.",S,W":|
000005E0: 84 31 35 2C 41 24 2C 42 24 3A 8B 41 24 B3 22 32 |.15,A$,B$:.A$."2|
000005F0: 30 22 89 34 30 30 00 35 0E 86 01 99 22 45 52 52 |0".400.5...."ERR|
00000600: 4F 52 20 4F 50 45 4E 49 4E 47 20 4F 55 54 20 46 |OR OPENING OUT F|
00000610: 49 4C 45 22 3A 99 4E 42 24 3A 99 41 24 22 20 22 |ILE":.NB$:.A$" "|
00000620: 42 24 3A A0 32 3A A0 34 3A A0 49 45 3A A0 31 35 |B$:.2:.4:.IE:.15|
00000630: 3A 89 32 33 30 00 48 0E 90 01 58 B2 B8 28 30 29 |:.230.H...X..(0)|
00000640: 3A 9E 20 34 39 31 35 32 00 53 0E 9A 01 99 22 11 |:. 49152.S....".|
00000650: 11 11 22 00 74 0E A4 01 84 20 49 45 2C 41 24 2C |..".t.... IE,A$,|
00000660: 42 24 3A 8B 20 41 24 B1 22 31 39 22 20 A7 20 8D |B$:. A$."19" . .|
00000670: 20 34 36 30 00 98 0E AE 01 A0 32 3A 84 20 49 45 | 460......2:. IE|
00000680: 2C 41 24 2C 42 24 3A 8B 20 41 24 B1 22 31 39 22 |,A$,B$:. A$."19"|
00000690: 20 A7 20 8D 20 34 36 30 00 BC 0E B8 01 A0 34 3A | . . 460......4:|
000006A0: 84 20 31 35 2C 41 24 2C 42 24 3A 8B 20 41 24 B1 |. 15,A$,B$:. A$.|
000006B0: 22 31 39 22 20 A7 20 8D 20 34 36 30 00 D0 0E C2 |"19" . . 460....|
000006C0: 01 A0 20 49 45 3A A0 20 31 35 3A 89 20 32 33 30 |.. IE:. 15:. 230|
000006D0: 00 EC 0E CC 01 99 22 44 49 53 4B 20 45 52 52 4F |......"DISK ERRO|
000006E0: 52 20 22 41 24 22 20 22 42 24 3A 8E 00 13 0F D6 |R "A$" "B$:.....|
000006F0: 01 A0 32 3A 9F 32 2C 49 44 2C 30 2C 4E 41 24 3A |..2:.2,ID,0,NA$:|
00000700: A1 23 32 2C 41 24 2C 41 24 2C 41 24 2C 41 24 3A |.#2,A$,A$,A$,A$:|
00000710: 99 3A 99 00 41 0F E0 01 A1 23 32 2C 41 24 2C 42 |.:..A....#2,A$,B|
00000720: 24 3A 4C B2 C6 28 41 24 AA C7 28 30 29 29 AA 32 |$:L..(A$..(0)).2|
00000730: 35 36 AC C6 28 42 24 AA C7 28 30 29 29 3A 99 4C |56..(B$..(0)):.L|
00000740: 3B 00 5E 0F EA 01 A1 23 32 2C 41 24 3A 8B 41 24 |;.^....#2,A$:.A$|
00000750: B3 B1 22 22 A7 99 41 24 3B 3A 89 34 39 30 00 7F |..""..A$;:.490..|
00000760: 0F F4 01 99 3A A1 23 32 2C 41 24 3A 8B 41 24 B3 |....:.#2,A$:.A$.|
00000770: B1 22 22 A7 A1 23 32 2C 41 24 3A 89 34 38 30 00 |.""..#2,A$:.480.|
00000780: 96 0F FE 01 A1 23 32 2C 41 24 3A 8B 41 24 B3 B1 |.....#2,A$:.A$..|
00000790: 22 22 89 34 38 30 00 A6 0F 08 02 A0 32 3A A0 49 |"".480......2:.I|
000007A0: 45 3A 89 32 33 30 00 CB 0F E7 03 80 3A 8F 20 22 |E:.230......:. "|
000007B0: 4E 4F 20 4D 4F 44 49 46 49 43 41 54 49 4F 4E 20 |NO MODIFICATION |
000007C0: 41 46 54 45 52 20 48 45 52 45 22 00 D5 0F E8 03 |AFTER HERE".....|
000007D0: 83 20 30 2C 30 00 00 00 00 20 78 20 8A 00 58 BA |. 0,0.... x ..X.|
000007E0: BD FF 00 38 E9 05 85 2D 85 2F BD 00 01 E9 00 85 |...8...-./......|
000007F0: 2E A8 C8 84 30 A9 00 85 22 A9 C0 85 23 A0 00 B1 |....0..."...#...|
00000800: 2F 91 22 E6 22 D0 02 E6 23 E6 2F D0 02 E6 30 A5 |/."."...#./...0.|
00000810: 2F C5 31 D0 EA A5 30 C5 32 D0 E4 A5 2D 85 2F 85 |/.1...0.2...-./.|
00000820: 31 A5 2E 85 30 85 32 A9 53 A2 51 A0 20 60 00 00 |1...0.2.S.Q. `..|
00000830: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000840: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000850: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000860: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000870: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000880: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000890: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000008A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000008B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000008C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000008D0: 00 00 00 00 00 00 00 C0 C6 34 A9 00 8D 8C 03 8D |.........4......|
000008E0: 84 03 8D 85 03 8D 86 03 8D 87 03 20 56 C4 A9 00 |........... V...|
000008F0: A2 00 A0 C9 20 C5 C4 A2 00 A0 CA 20 C5 C4 A2 00 |.... ...... ....|
00000900: A0 CF 20 C5 C4 A9 FF A2 00 A0 C8 20 C5 C4 A2 00 |.. ........ ....|
00000910: A0 FF 98 9D 00 C7 88 E8 D0 F8 A2 97 A0 C4 20 86 |.............. .|
00000920: C4 20 4B C3 AD 85 03 F0 F8 A9 02 20 C3 FF A9 FF |. K........ ....|
00000930: 85 4B A9 00 85 4C A2 00 BD 00 CA E8 DD 00 CA 90 |.K...L..........|
00000940: 1B F0 0D EA E4 4B D0 F0 C6 4B E6 4C F0 E8 D0 3A |.....K...K.L...:|
00000950: CA BD 00 C9 E8 DD 00 C9 90 02 B0 E7 EA BC 00 CA |................|
00000960: BD FF C9 9D 00 CA 98 9D FF C9 BC 00 C9 BD FF C8 |................|
00000970: 9D 00 C9 98 9D FF C8 BC 00 C7 BD FF C6 9D 00 C7 |................|
00000980: 98 9D FF C6 A9 FF 85 4C D0 B9 EA A2 00 F0 03 E8 |.......L........|
00000990: F0 0A BD 00 C9 D0 F8 BD 00 CA D0 F3 CA 8E 80 03 |................|
000009A0: A9 FF 9D 00 CB A9 FE 9D 00 CC BD 00 C7 9D 00 CD |................|
000009B0: BD 00 C8 9D 00 CE A0 00 84 4D C8 84 4C 20 2A C1 |.........M..L *.|
000009C0: 20 40 C1 EA CA BD 01 C7 9D 00 CB A8 BD 01 C8 9D | @..............|
000009D0: 00 CC 30 04 8A 99 00 CF BD 01 C9 85 4C BD 01 CA |..0.........L...|
000009E0: 85 4D BD 00 C7 9D 00 CD A8 BD 00 C8 9D 00 CE 30 |.M.............0|
000009F0: 04 8A 99 00 CF 20 2A C1 20 40 C1 E0 00 D0 C4 4C |..... *. @.....L|
00000A00: 8A C1 18 BD 00 C9 65 4C 85 4C BD 00 CA 65 4D 85 |......eL.L...eM.|
00000A10: 4D 90 04 C6 4C C6 4D 60 86 4B 8A A8 88 B9 00 CA |M...L.M`.K......|
00000A20: C5 4D F0 1F B0 26 B9 00 C7 9D 00 C7 B9 00 C8 9D |.M...&..........|
00000A30: 00 C8 B9 00 C9 9D 00 C9 B9 00 CA 9D 00 CA CA D0 |................|
00000A40: DB F0 09 B9 00 C9 C5 4C 90 DC F0 DA A5 4C 9D 00 |.......L.....L..|
00000A50: C9 A5 4D 9D 00 CA A9 00 9D 00 C8 A5 4B 9D 00 C7 |..M.........K...|
00000A60: AA 60 EA A9 00 A2 00 A0 C7 20 C5 C4 A2 00 EA BD |.`....... ......|
00000A70: 00 CE 10 06 20 DB C1 20 C9 C1 BD 00 CC 10 0A C9 |.... .. ........|
00000A80: FE F0 09 20 E2 C1 20 C9 C1 E8 D0 E2 20 E2 C1 A5 |... .. ..... ...|
00000A90: 4B 8D 81 03 A5 4C 8D 82 03 A5 4D 8D 83 03 4C 1E |K....L....M...L.|
00000AA0: C2 A4 4E A5 4B 99 00 C7 A5 4C 99 00 C9 A5 4D 99 |..N.K....L....M.|
00000AB0: 00 CA 60 BD 00 CD A0 01 D0 05 BD 00 CB A0 00 84 |..`.............|
00000AC0: 4C 49 FF 85 4E A0 01 84 4B 86 51 A9 00 85 50 BC |LI..N...K.Q...P.|
00000AD0: 00 CF B9 00 CC 30 06 8A D9 00 CB F0 04 A9 01 85 |.....0..........|
00000AE0: 50 A5 50 06 4C 26 4D 05 4C 85 4C E6 4B 98 F0 03 |P.P.L&M.L.L.K...|
00000AF0: AA D0 D8 A6 51 60 EA A2 04 20 C9 FF A9 76 20 D2 |....Q`... ...v .|
00000B00: FF A9 FF 20 D2 FF AD 86 03 20 D2 FF AD 87 03 20 |... ..... ..... |
00000B10: D2 FF A2 00 BD 3F 03 C9 2C F0 06 20 D2 FF E8 D0 |.....?..,.. ....|
00000B20: F3 8A A8 A9 A0 E0 10 B0 06 20 D2 FF E8 D0 F6 C8 |......... ......|
00000B30: B9 3F 03 20 D2 FF A9 00 20 D2 FF EE 80 03 AD 80 |.?. .... .......|
00000B40: 03 20 D2 FF A9 00 AE 80 03 D0 02 A9 01 20 D2 FF |. ........... ..|
00000B50: A2 00 BD 00 CB 20 D2 FF BD 00 CC 20 D2 FF BD 00 |..... ..... ....|
00000B60: CD 20 D2 FF BD 00 CE 20 D2 FF E8 EC 80 03 D0 E2 |. ..... ........|
00000B70: 20 CC FF EA A9 F8 85 4E A2 00 8E 85 03 CA 8E 8C | ......N........|
00000B80: 03 A2 A0 A0 C4 20 86 C4 AD 84 03 F0 03 20 6E C4 |..... ....... n.|
00000B90: EA AD 85 03 D0 45 AD 84 03 D0 07 A9 FF 8D 85 03 |.....E..........|
00000BA0: D0 03 20 4B C3 A5 31 85 41 A5 32 85 42 A2 04 20 |.. K..1.A.2.B.. |
00000BB0: C9 FF EA A0 00 B1 41 AA BC 00 C7 84 4F BD 00 C9 |......A.....O...|
00000BC0: 85 4C BD 00 CA 85 4D 20 32 C3 E6 41 D0 02 E6 42 |.L....M 2..A...B|
00000BD0: 20 B2 C4 D0 DD 20 CC FF 4C B8 C2 EA A2 04 20 C9 | .... ..L..... .|
00000BE0: FF AC 81 03 84 4F AD 82 03 85 4C AD 83 03 85 4D |.....O....L....M|
00000BF0: 20 32 C3 A5 4B 4A E6 4E 30 FB 20 D2 FF 20 CC FF | 2..KJ.N0. .. ..|
00000C00: A2 AB A0 C4 20 86 C4 E6 34 60 EA 46 4D 66 4C 66 |.... ...4`.FMfLf|
00000C10: 4B E6 4E 30 09 A9 F8 85 4E A5 4B 20 D2 FF C6 4F |K.N0....N.K ...O|
00000C20: D0 E8 60 EA A9 00 8D 85 03 85 5B 85 5A 20 56 C4 |..`.......[.Z V.|
00000C30: 20 CC FF A9 2B 20 D2 FF A2 02 20 C6 FF 20 CF FF | ...+ .... .. ..|
00000C40: 85 5E 20 B7 FF 85 5D 2C 8C 03 30 05 A5 5E 20 47 |.^ ...],..0..^ G|
00000C50: C4 EA 20 B2 C4 D0 12 A9 FF 85 5A A5 5D 85 5C A5 |.. .......Z.].\.|
00000C60: 5E 85 5F A9 00 85 5B F0 03 20 EC C3 A5 5F 20 26 |^._...[.. ..._ &|
00000C70: C4 C9 90 D0 05 A9 00 20 26 C4 A5 5B C9 03 90 0F |....... &..[....|
00000C80: A9 90 20 26 C4 C6 5B A5 5B 20 26 C4 B8 50 12 C9 |.. &..[.[ &..P..|
00000C90: 02 90 0E A5 5F 20 26 C4 C9 90 D0 05 A9 00 20 26 |...._ &....... &|
00000CA0: C4 A5 5A D0 04 A5 5C F0 A8 EA A5 5C F0 05 8D 85 |..Z...\....\....|
00000CB0: 03 D0 05 A9 FF 8D 84 03 A5 41 85 3F A5 42 85 40 |.........A.?.B.@|
00000CC0: 20 CC FF 60 A5 5E 85 5F A5 5D 85 5C A9 00 85 5B | ..`.^._.].\...[|
00000CD0: A5 5D F0 03 4C 25 C4 A5 5E C5 5F F0 03 4C 25 C4 |.]..L%..^._..L%.|
00000CE0: 20 CF FF 85 5E 2C 8C 03 30 03 20 47 C4 20 B7 FF | ...^,..0. G. ..|
00000CF0: 85 5D E6 5B A6 5B E0 FE F0 03 4C F8 C3 60 A0 00 |.].[.[....L..`..|
00000D00: 91 41 E6 41 D0 02 E6 42 2C 8C 03 30 11 AA FE 00 |.A.A...B,..0....|
00000D10: C9 D0 0B FE 00 CA D0 06 DE 00 C9 DE 00 CA 60 48 |..............`H|
00000D20: 18 6D 86 03 8D 86 03 90 03 EE 87 03 68 60 A5 31 |.m..........h`.1|
00000D30: 85 41 A5 32 85 42 A5 33 85 3F A5 34 85 40 60 A9 |.A.2.B.3.?.4.@`.|
00000D40: 01 45 01 85 01 60 AD 3C 03 A2 3D A0 03 20 BD FF |.E...`.<..=.. ..|
00000D50: A9 02 AE 88 03 A0 02 20 BA FF 20 C0 FF 60 86 4B |....... .. ..`.K|
00000D60: 84 4C A0 00 B1 4B F0 06 20 D2 FF C8 D0 F6 60 20 |.L...K.. .....` |
00000D70: 52 45 41 44 49 4E 47 00 20 53 51 55 45 45 5A 49 |READING. SQUEEZI|
00000D80: 4E 47 00 20 44 4F 4E 45 2E 00 A5 42 C5 40 90 0C |NG. DONE...B.@..|
00000D90: D0 08 A5 41 C5 3F F0 04 90 02 A9 00 60 86 22 84 |...A.?......`.".|
00000DA0: 23 A0 00 91 22 C8 D0 FB 60 FF |#..."...`. |
..).... "SQ/USQ BY JOHN LEESON, DEC 1985
".Q.... "MAY BE FREELY COPIED AND FILED
".Y.... "ON BBS DOWNLOADS. NOT TO BE
"...(.. "SOLD OR COPIED FOR ANY COPY FEE
".I.2.. "SOURCE CODE AND CODING NOTES
"...<.. "WILL BE AVAILABLE SOON FROM THE
"...F.. "AUTHOR ONLY FOR A COPY CHARGE.
".A.P.. "E-MAIL TO 'SEBASTIAN' ON QUANTU
M.I.Z.. "LINK FOR INFO.
"...D...(B(49152).198).210:.X:. B(67).25
6.B(68).7:....N..53280,12:.53281,0:.".."
;...X.."... FILE SQUEEZER"...
...". BY"......".
JOHN LEESON".P...."...INPUT DEVIC
E 8...";ID:. ID.8 . ID.10 . 150... ..".
INPUT DRIVE 0...";IV$:IV$.H(IV$,1):. IV
$.."0" . IV$.."1" . 160.K....".OUTPUT DE
VICE 8...";OD:. OD.8 . OD.10 . 170.....
.".OUTPUT DRIVE 0...";OV$:OV$.H(OV$,1):
. OV$.."0".OV$.."1" . 180.=....904,ID:.9
06,OD:.905,F(IV$):.907,F(OV$).C.H.:...R.
."..INSERT INPUT AND OUTPUT DISKS. PRESS
ANYKEY WHEN READY.."......A$:.A$."".220
.S...NA$."":.".FILE NAME TO SQUEEZE ($ F
OR DIRECTORY)":.NA$...... NA$."" . .:...
....H(NA$,1)."$".470.8... 15:.15,OD,15:
15:.ST..0..".OUTPUT DRIVE NOT READY":.:.
.S...IE.15:. ID..OD . IE.16..... IE:.IE,
ID,15:NB$.H(OV$.":Q/".NA$,18):NA$.H(IV$.
":".NA$,18)...". 2:E$.",S,R":.2,ID,2,NA$
.E$.N.,..IE,A$,B$:.A$."20".360...6. 2:E$
.",P,R":.2,ID,2,NA$.E$...@..IE,A$,B$:.A$
."20".360.).J. 2:E$.",U,R":.2,ID,2,NA$.E
$.D.T..IE,A$,B$:.A$."20".360.P.^.."DISK
ERROR "A$" "B$: IE: 2: 15:.210...H.. I
D.. OD . . 15,OD,15.E.R.E$.NA$.E$:.828,C
(E$):.I.1.C(E$):.828.I,F(J(E$,I,1)):....
|. 4:.4,OD,4,NB$.",S,W":.15,A$,B$:.A$."2
0".400.5...."ERROR OPENING OUT FILE":.NB
$:.A$" "B$: 2: 4: IE: 15:.230.H...X..(0)
:. 49152.S...."...".T.... IE,A$,B$:. A$.
"19" . . 460..... 2:. IE,A$,B$:. A$."19"
. . 460..... 4:. 15,A$,B$:. A$."19" . .
460.P.B. IE: 15:. 230...L.."DISK ERRO
R "A$" "B$:....V. 2:.2,ID,0,NA$:.#2,A$,A
$,A$,A$:.:..A....#2,A$,B$:L.F(A$.G(0)).2
56.F(B$.G(0)):.L;.^....#2,A$:.A$..""..A$
;:.490.....:.#2,A$:.A$..""..#2,A$:.480.
.....#2,A$:.A$.."".480..... 2: IE:.230.K
....:. "NO MODIFICATION AFTER HERE".U...
. 0,0.... X ..X....8...-./........H.0...
"...# ../."."P..#./P..0./E1P..0E2P..-./.
1...0.2.S.Q `..........................
........................................
........................................
........................................
........................F4..............
... VD.... I ED.. J ED.. O ED.... H ED..
....G..P... D .D KC....... C....K...L..
..J...J......KP.FK.L..P:J..I...I.......J
..I..J...I..I..H..I...H..G..F..G...F...L
P...........IP...JP.J.......K....L..G..M
..H..N ..MH.L *A @A.J..G..K...H..L0....O
..I.L..J.M..G..M...H..N0....O *A @A..PDL
.A...IEL.L..JEM.M..FLFM`.K.....JEM...&..
G..G..H..H..I..I..J..JJP.....IEL...Z.L..
I.M..J....H.K..G.`..... G ED.....N.. .A
IA..L..I... .A IA.P. .A.K....L....M...L.
B.N.K..G.L..I.M..J`..M .P...K ..LI..N ..
K.Q...P..O..L0..Y.K.....P.P.L&M.L.L.K...
.PX.Q`... I..V R... R.... R.... R....?.I
,.. R..P.... .... R..P.H.?. R... R......
. R......P... R.....K R...L R...M R...N
R.....P. L.....N.....J.... D .D..... ND
....PE...P......P. KC.1.A.2.B.. I.. ..A.
..G.O..I.L..J.M 2C.AP..B .DP. L.L.B... I
.....O....L....M 2C.KJ.N0. R. L... D .D.
4`.FMFLFK.N0....N.K R.FOP.`.......[.Z VD
L..+ R... F. O..^ ...],..0..^ GD. .DP..
..Z.].\.^._...[.. .C._ &DI.P... &D.[I...
.. &DF[.[ &D.P.I...._ &DI.P... &D.ZP..\.
...\.....P.......A.?.B.@ L.`.^._.].\...[
.]..L%D.^E_..L%D O..^,..0. GD ...].[.[..
..L.C` ..A.AP..B,..0....IP...JP...I..J`H
.M..........H`.1.A.2.B.3.?.4.@`..E...`.<
..= . ....... . .. ..`.K.L ..K.. R.HP.`
READING. SQUEEZING. DONE...BE@..P..AE?..
....`.".# .."HP.`.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL