> 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 78 09 64 00 8B 20 | ".x.d.. |
00000170: 52 46 20 89 20 32 31 30 00 96 09 6E 00 97 35 33 |RF . 210...n..53|
00000180: 32 38 30 2C 31 32 3A 97 35 33 32 38 31 2C 30 3A |280,12:.53281,0:|
00000190: 99 22 93 1E 22 3B 00 BA 09 78 00 99 22 11 11 11 |."..";...x.."...|
000001A0: 20 20 20 20 20 20 20 20 20 20 20 20 46 49 4C 45 | FILE|
000001B0: 20 53 51 55 45 45 5A 45 52 22 00 D7 09 82 00 99 | SQUEEZER"......|
000001C0: 22 11 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |". |
000001D0: 20 20 20 20 42 59 22 00 F8 09 8C 00 99 22 11 20 | BY"......". |
000001E0: 20 20 20 20 20 20 20 20 20 20 20 20 4A 4F 48 4E | JOHN|
000001F0: 20 4C 45 45 53 4F 4E 22 00 2D 0A 96 00 85 22 11 | LEESON".-....".|
00000200: 11 11 49 4E 50 55 54 20 44 45 56 49 43 45 20 20 |..INPUT DEVICE |
00000210: 38 9D 9D 9D 22 3B 49 44 3A 8B 20 49 44 B3 38 20 |8...";ID:. ID.8 |
00000220: B0 20 49 44 B1 31 30 20 89 20 31 35 30 00 74 0A |. ID.10 . 150.t.|
00000230: A0 00 85 22 11 49 4E 50 55 54 20 44 52 49 56 45 |...".INPUT DRIVE|
00000240: 20 20 30 9D 9D 9D 22 3B 49 56 24 3A 49 56 24 B2 | 0...";IV$:IV$.|
00000250: C8 28 49 56 24 2C 31 29 3A 8B 20 49 56 24 B3 B1 |.(IV$,1):. IV$..|
00000260: 22 30 22 20 AF 20 49 56 24 B3 B1 22 31 22 20 89 |"0" . IV$.."1" .|
00000270: 20 31 36 30 00 A8 0A AA 00 85 22 11 4F 55 54 50 | 160......".OUTP|
00000280: 55 54 20 44 45 56 49 43 45 20 20 38 9D 9D 9D 22 |UT DEVICE 8..."|
00000290: 3B 4F 44 3A 8B 20 4F 44 B3 38 20 B0 20 4F 44 B1 |;OD:. OD.8 . OD.|
000002A0: 31 30 20 89 20 31 37 30 00 EE 0A B4 00 85 22 11 |10 . 170......".|
000002B0: 4F 55 54 50 55 54 20 44 52 49 56 45 20 20 30 9D |OUTPUT DRIVE 0.|
000002C0: 9D 9D 22 3B 4F 56 24 3A 4F 56 24 B2 C8 28 4F 56 |..";OV$:OV$..(OV|
000002D0: 24 2C 31 29 3A 8B 20 4F 56 24 B3 B1 22 30 22 AF |$,1):. OV$.."0".|
000002E0: 4F 56 24 B3 B1 22 31 22 20 89 20 31 38 30 00 1A |OV$.."1" . 180..|
000002F0: 0B BE 00 97 39 30 34 2C 49 44 3A 97 39 30 36 2C |....904,ID:.906,|
00000300: 4F 44 3A 97 39 30 35 2C C6 28 49 56 24 29 3A 97 |OD:.905,.(IV$):.|
00000310: 39 30 37 2C C6 28 4F 56 24 29 00 4E 0B C8 00 52 |907,.(OV$).N...R|
00000320: 46 B2 AB 31 3A 8B 20 C2 20 28 34 39 31 35 32 29 |F..1:. . (49152)|
00000330: B3 B1 31 39 38 20 A7 20 93 20 49 56 24 AA 22 3A |..198 . . IV$.":|
00000340: 53 51 31 31 2E 45 58 45 22 2C 49 44 2C 31 00 90 |SQ11.EXE",ID,1..|
00000350: 0B D2 00 99 22 11 11 49 4E 53 45 52 54 20 49 4E |...."..INSERT IN|
00000360: 50 55 54 20 41 4E 44 20 4F 55 54 50 55 54 20 44 |PUT AND OUTPUT D|
00000370: 49 53 4B 53 2E 20 50 52 45 53 53 20 41 4E 59 4B |ISKS. PRESS ANYK|
00000380: 45 59 20 57 48 45 4E 20 52 45 41 44 59 2E 2E 22 |EY WHEN READY.."|
00000390: 00 A3 0B DC 00 A1 41 24 3A 8B 41 24 B2 22 22 89 |......A$:.A$."".|
000003A0: 32 32 30 00 DE 0B E6 00 4E 41 24 B2 22 22 3A 99 |220.....NA$."":.|
000003B0: 22 11 46 49 4C 45 20 4E 41 4D 45 20 54 4F 20 53 |".FILE NAME TO S|
000003C0: 51 55 45 45 5A 45 20 28 24 20 46 4F 52 20 44 49 |QUEEZE ($ FOR DI|
000003D0: 52 45 43 54 4F 52 59 29 22 3A 85 4E 41 24 00 F1 |RECTORY)":.NA$..|
000003E0: 0B F0 00 8B 20 4E 41 24 B2 22 22 20 A7 20 80 3A |.... NA$."" . .:|
000003F0: 8A 00 07 0C FA 00 8B C8 28 4E 41 24 2C 31 29 B2 |........(NA$,1).|
00000400: 22 24 22 89 34 37 30 00 43 0C 04 01 A0 31 35 3A |"$".470.C....15:|
00000410: 9F 31 35 2C 4F 44 2C 31 35 3A A0 31 35 3A 8B 53 |.15,OD,15:.15:.S|
00000420: 54 B3 B1 30 A7 99 22 11 4F 55 54 50 55 54 20 44 |T..0..".OUTPUT D|
00000430: 52 49 56 45 20 4E 4F 54 20 52 45 41 44 59 22 3A |RIVE NOT READY":|
00000440: 90 3A 8A 00 5E 0C 0E 01 49 45 B2 31 35 3A 8B 20 |.:..^...IE.15:. |
00000450: 49 44 B3 B1 4F 44 20 A7 20 49 45 B2 31 36 00 9E |ID..OD . IE.16..|
00000460: 0C 18 01 A0 49 45 3A 9F 49 45 2C 49 44 2C 31 35 |....IE:.IE,ID,15|
00000470: 3A 4E 42 24 B2 C8 28 4F 56 24 AA 22 3A 51 2F 22 |:NB$..(OV$.":Q/"|
00000480: AA 4E 41 24 2C 31 38 29 3A 4E 41 24 B2 C8 28 49 |.NA$,18):NA$..(I|
00000490: 56 24 AA 22 3A 22 AA 4E 41 24 2C 31 38 29 00 BE |V$.":".NA$,18)..|
000004A0: 0C 22 01 A0 32 3A 45 24 B2 22 2C 53 2C 52 22 3A |."..2:E$.",S,R":|
000004B0: 9F 32 2C 49 44 2C 32 2C 4E 41 24 AA 45 24 00 D9 |.2,ID,2,NA$.E$..|
000004C0: 0C 2C 01 84 49 45 2C 41 24 2C 42 24 3A 8B 41 24 |.,..IE,A$,B$:.A$|
000004D0: B3 22 32 30 22 89 33 36 30 00 F9 0C 36 01 A0 32 |."20".360...6..2|
000004E0: 3A 45 24 B2 22 2C 50 2C 52 22 3A 9F 32 2C 49 44 |:E$.",P,R":.2,ID|
000004F0: 2C 32 2C 4E 41 24 AA 45 24 00 14 0D 40 01 84 49 |,2,NA$.E$...@..I|
00000500: 45 2C 41 24 2C 42 24 3A 8B 41 24 B3 22 32 30 22 |E,A$,B$:.A$."20"|
00000510: 89 33 36 30 00 34 0D 4A 01 A0 32 3A 45 24 B2 22 |.360.4.J..2:E$."|
00000520: 2C 55 2C 52 22 3A 9F 32 2C 49 44 2C 32 2C 4E 41 |,U,R":.2,ID,2,NA|
00000530: 24 AA 45 24 00 4F 0D 54 01 84 49 45 2C 41 24 2C |$.E$.O.T..IE,A$,|
00000540: 42 24 3A 8B 41 24 B3 22 32 30 22 89 33 36 30 00 |B$:.A$."20".360.|
00000550: 7B 0D 5E 01 99 22 44 49 53 4B 20 45 52 52 4F 52 |{.^.."DISK ERROR|
00000560: 20 22 41 24 22 20 20 20 22 42 24 3A A0 49 45 3A | "A$" "B$:.IE:|
00000570: A0 32 3A A0 31 35 3A 89 32 31 30 00 96 0D 68 01 |.2:.15:.210...h.|
00000580: 8B 20 49 44 B3 B1 20 4F 44 20 A7 20 9F 20 31 35 |. ID.. OD . . 15|
00000590: 2C 4F 44 2C 31 35 00 D0 0D 72 01 45 24 B2 4E 41 |,OD,15...r.E$.NA|
000005A0: 24 AA 45 24 3A 97 38 32 38 2C C3 28 45 24 29 3A |$.E$:.828,.(E$):|
000005B0: 81 49 B2 31 A4 C3 28 45 24 29 3A 97 38 32 38 AA |.I.1..(E$):.828.|
000005C0: 49 2C C6 28 CA 28 45 24 2C 49 2C 31 29 29 3A 82 |I,.(.(E$,I,1)):.|
000005D0: 00 01 0E 7C 01 A0 34 3A 9F 34 2C 4F 44 2C 34 2C |...|..4:.4,OD,4,|
000005E0: 4E 42 24 AA 22 2C 53 2C 57 22 3A 84 31 35 2C 41 |NB$.",S,W":.15,A|
000005F0: 24 2C 42 24 3A 8B 41 24 B3 22 32 30 22 89 34 30 |$,B$:.A$."20".40|
00000600: 30 00 40 0E 86 01 99 22 45 52 52 4F 52 20 4F 50 |0.@...."ERROR OP|
00000610: 45 4E 49 4E 47 20 4F 55 54 20 46 49 4C 45 22 3A |ENING OUT FILE":|
00000620: 99 4E 42 24 3A 99 41 24 22 20 22 42 24 3A A0 32 |.NB$:.A$" "B$:.2|
00000630: 3A A0 34 3A A0 49 45 3A A0 31 35 3A 89 32 33 30 |:.4:.IE:.15:.230|
00000640: 00 53 0E 90 01 58 B2 B8 28 30 29 3A 9E 20 34 39 |.S...X..(0):. 49|
00000650: 31 35 32 00 5E 0E 9A 01 99 22 11 11 11 22 00 7F |152.^...."..."..|
00000660: 0E A4 01 84 20 49 45 2C 41 24 2C 42 24 3A 8B 20 |.... IE,A$,B$:. |
00000670: 41 24 B1 22 31 39 22 20 A7 20 8D 20 34 36 30 00 |A$."19" . . 460.|
00000680: A3 0E AE 01 A0 32 3A 84 20 49 45 2C 41 24 2C 42 |.....2:. IE,A$,B|
00000690: 24 3A 8B 20 41 24 B1 22 31 39 22 20 A7 20 8D 20 |$:. A$."19" . . |
000006A0: 34 36 30 00 C7 0E B8 01 A0 34 3A 84 20 31 35 2C |460......4:. 15,|
000006B0: 41 24 2C 42 24 3A 8B 20 41 24 B1 22 31 39 22 20 |A$,B$:. A$."19" |
000006C0: A7 20 8D 20 34 36 30 00 DB 0E C2 01 A0 20 49 45 |. . 460...... IE|
000006D0: 3A A0 20 31 35 3A 89 20 32 33 30 00 F7 0E CC 01 |:. 15:. 230.....|
000006E0: 99 22 44 49 53 4B 20 45 52 52 4F 52 20 22 41 24 |."DISK ERROR "A$|
000006F0: 22 20 22 42 24 3A 8E 00 1E 0F D6 01 A0 32 3A 9F |" "B$:.......2:.|
00000700: 32 2C 49 44 2C 30 2C 4E 41 24 3A A1 23 32 2C 41 |2,ID,0,NA$:.#2,A|
00000710: 24 2C 41 24 2C 41 24 2C 41 24 3A 99 3A 99 00 4C |$,A$,A$,A$:.:..L|
00000720: 0F E0 01 A1 23 32 2C 41 24 2C 42 24 3A 4C B2 C6 |....#2,A$,B$:L..|
00000730: 28 41 24 AA C7 28 30 29 29 AA 32 35 36 AC C6 28 |(A$..(0)).256..(|
00000740: 42 24 AA C7 28 30 29 29 3A 99 4C 3B 00 69 0F EA |B$..(0)):.L;.i..|
00000750: 01 A1 23 32 2C 41 24 3A 8B 41 24 B3 B1 22 22 A7 |..#2,A$:.A$.."".|
00000760: 99 41 24 3B 3A 89 34 39 30 00 8A 0F F4 01 99 3A |.A$;:.490......:|
00000770: A1 23 32 2C 41 24 3A 8B 41 24 B3 B1 22 22 A7 A1 |.#2,A$:.A$..""..|
00000780: 23 32 2C 41 24 3A 89 34 38 30 00 A1 0F FE 01 A1 |#2,A$:.480......|
00000790: 23 32 2C 41 24 3A 8B 41 24 B3 B1 22 22 89 34 38 |#2,A$:.A$.."".48|
000007A0: 30 00 B1 0F 08 02 A0 32 3A A0 49 45 3A 89 32 33 |0......2:.IE:.23|
000007B0: 30 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |0...............|
000007C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000007D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000007E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000007F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
..).... "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.
".X.D.. RF . 210...N..53280,12:.53281,0:
."..";...X.."... FILE SQUEEZE
R".W....". BY"......".
JOHN LEESON".-...."...INPUT
DEVICE 8...";ID:. ID.8 . ID.10 . 150.T.
..".INPUT DRIVE 0...";IV$:IV$.H(IV$,1)
:. IV$.."0" . IV$.."1" . 160......".OUTP
UT DEVICE 8...";OD:. OD.8 . OD.10 . 170
......".OUTPUT DRIVE 0...";OV$:OV$.H(OV
$,1):. OV$.."0".OV$.."1" . 180......904,
ID:.906,OD:.905,F(IV$):.907,F(OV$).N.H.R
F..1:. B (49152)..198 . . IV$.":SQ11.EXE
",ID,1...R.."..INSERT INPUT AND OUTPUT D
ISKS. PRESS ANYKEY WHEN READY.."......A$
:.A$."".220.....NA$."":.".FILE NAME TO S
QUEEZE ($ FOR DIRECTORY)":.NA$...... NA$
."" . .:.......H(NA$,1)."$".470.C... 15:
.15,OD,15: 15:.ST..0..".OUTPUT DRIVE NOT
READY":.:..^...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$.Y.,..IE,A$,B$:.A$."20".36
0...6. 2:E$.",P,R":.2,ID,2,NA$.E$...@..I
E,A$,B$:.A$."20".360.4.J. 2:E$.",U,R":.2
,ID,2,NA$.E$.O.T..IE,A$,B$:.A$."20".360.
{.^.."DISK ERROR "A$" "B$: IE: 2: 15:.
210...H.. ID.. OD . . 15,OD,15.P.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$."20".400.@...."ERROR OPENING OU
T FILE":.NB$:.A$" "B$: 2: 4: IE: 15:.230
.S...X..(0):. 49152.^...."..."..... IE,
A$,B$:. A$."19" . . 460..... 2:. IE,A$,B
$:. A$."19" . . 460.G... 4:. 15,A$,B$:.
A$."19" . . 460...B. IE: 15:. 230...L.
."DISK ERROR "A$" "B$:....V. 2:.2,ID,0,N
A$:.#2,A$,A$,A$,A$:.:..L....#2,A$,B$:L.F
(A$.G(0)).256.F(B$.G(0)):.L;.I....#2,A$:
.A$..""..A$;:.490......:.#2,A$:.A$..""..
#2,A$:.480......#2,A$:.A$.."".480..... 2
: IE:.230...............................
........................................
........
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL