> 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 1D 4E 4F 54 20 |DOWNLOADS. .NOT |
00000070: 54 4F 20 42 45 20 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 97 09 6E 00 97 20 35 |RF . 210...n.. 5|
00000180: 33 32 38 30 2C 31 32 3A 97 35 33 32 38 31 2C 30 |3280,12:.53281,0|
00000190: 3A 99 22 93 1E 22 3B 00 BC 09 78 00 99 22 11 11 |:."..";...x.."..|
000001A0: 11 20 20 20 20 20 20 20 20 20 20 20 20 46 49 4C |. FIL|
000001B0: 45 20 55 4E 53 51 55 45 45 5A 45 22 00 D9 09 82 |E UNSQUEEZE"....|
000001C0: 00 99 22 11 20 20 20 20 20 20 20 20 20 20 20 20 |..". |
000001D0: 20 20 20 20 20 20 42 59 22 00 FA 09 8C 00 99 22 | BY"......"|
000001E0: 11 20 20 20 20 20 20 20 20 20 20 20 20 20 4A 4F |. JO|
000001F0: 48 4E 20 4C 45 45 53 4F 4E 22 00 2F 0A 96 00 85 |HN LEESON"./....|
00000200: 22 11 11 11 49 4E 50 55 54 20 44 45 56 49 43 45 |"...INPUT DEVICE|
00000210: 20 20 38 9D 9D 9D 22 3B 49 44 3A 8B 20 49 44 B3 | 8...";ID:. ID.|
00000220: 38 20 B0 20 49 44 B1 31 30 20 89 20 31 35 30 00 |8 . ID.10 . 150.|
00000230: 76 0A A0 00 85 22 11 49 4E 50 55 54 20 44 52 49 |v....".INPUT DRI|
00000240: 56 45 20 20 30 9D 9D 9D 22 3B 49 56 24 3A 49 56 |VE 0...";IV$:IV|
00000250: 24 B2 C8 28 49 56 24 2C 31 29 3A 8B 20 49 56 24 |$..(IV$,1):. IV$|
00000260: B3 B1 22 30 22 20 AF 20 49 56 24 B3 B1 22 31 22 |.."0" . IV$.."1"|
00000270: 20 89 20 31 36 30 00 AA 0A AA 00 85 22 11 4F 55 | . 160......".OU|
00000280: 54 50 55 54 20 44 45 56 49 43 45 20 20 38 9D 9D |TPUT DEVICE 8..|
00000290: 9D 22 3B 4F 44 3A 8B 20 4F 44 B3 38 20 B0 20 4F |.";OD:. OD.8 . O|
000002A0: 44 B1 31 30 20 89 20 31 37 30 00 F0 0A B4 00 85 |D.10 . 170......|
000002B0: 22 11 4F 55 54 50 55 54 20 44 52 49 56 45 20 20 |".OUTPUT DRIVE |
000002C0: 30 9D 9D 9D 22 3B 4F 56 24 3A 4F 56 24 B2 C8 28 |0...";OV$:OV$..(|
000002D0: 4F 56 24 2C 31 29 3A 8B 20 4F 56 24 B3 B1 22 30 |OV$,1):. OV$.."0|
000002E0: 22 AF 4F 56 24 B3 B1 22 31 22 20 89 20 31 38 30 |".OV$.."1" . 180|
000002F0: 00 1C 0B BE 00 97 39 30 34 2C 49 44 3A 97 39 30 |......904,ID:.90|
00000300: 36 2C 4F 44 3A 97 39 30 35 2C C6 28 49 56 24 29 |6,OD:.905,.(IV$)|
00000310: 3A 97 39 30 37 2C C6 28 4F 56 24 29 00 4F 0B C8 |:.907,.(OV$).O..|
00000320: 00 52 46 B2 AB 31 3A 8B 20 C2 20 28 34 39 31 35 |.RF..1:. . (4915|
00000330: 32 29 B3 B1 31 36 39 20 A7 20 93 20 49 56 24 AA |2)..169 . . IV$.|
00000340: 22 3A 55 53 51 2E 45 58 45 22 2C 49 44 2C 31 00 |":USQ.EXE",ID,1.|
00000350: 91 0B D2 00 99 22 11 11 49 4E 53 45 52 54 20 49 |....."..INSERT I|
00000360: 4E 50 55 54 20 41 4E 44 20 4F 55 54 50 55 54 20 |NPUT AND OUTPUT |
00000370: 44 49 53 4B 53 2E 20 50 52 45 53 53 20 41 4E 59 |DISKS. PRESS ANY|
00000380: 4B 45 59 20 57 48 45 4E 20 52 45 41 44 59 2E 2E |KEY WHEN READY..|
00000390: 22 00 A4 0B DC 00 A1 41 24 3A 8B 41 24 B2 22 22 |"......A$:.A$.""|
000003A0: 89 32 32 30 00 E1 0B E6 00 4E 41 24 B2 22 22 3A |.220.....NA$."":|
000003B0: 99 22 11 46 49 4C 45 20 4E 41 4D 45 20 54 4F 20 |.".FILE NAME TO |
000003C0: 55 4E 53 51 55 45 45 5A 45 20 28 24 20 46 4F 52 |UNSQUEEZE ($ FOR|
000003D0: 20 44 49 52 45 43 54 4F 52 59 29 22 3A 85 4E 41 | DIRECTORY)":.NA|
000003E0: 24 00 F4 0B F0 00 8B 20 4E 41 24 B2 22 22 20 A7 |$...... NA$."" .|
000003F0: 20 80 3A 8A 00 0A 0C FA 00 8B C8 28 4E 41 24 2C | .:........(NA$,|
00000400: 31 29 B2 22 24 22 89 35 32 30 00 46 0C 04 01 A0 |1)."$".520.F....|
00000410: 31 35 3A 9F 31 35 2C 4F 44 2C 31 35 3A A0 31 35 |15:.15,OD,15:.15|
00000420: 3A 8B 53 54 B3 B1 30 A7 99 22 11 4F 55 54 50 55 |:.ST..0..".OUTPU|
00000430: 54 20 44 52 49 56 45 20 4E 4F 54 20 52 45 41 44 |T DRIVE NOT READ|
00000440: 59 22 3A 90 3A 8A 00 61 0C 0E 01 49 45 B2 31 35 |Y":.:..a...IE.15|
00000450: 3A 8B 20 49 44 B3 B1 4F 44 20 A7 20 49 45 B2 31 |:. ID..OD . IE.1|
00000460: 36 00 89 0C 18 01 A0 49 45 3A 9F 49 45 2C 49 44 |6......IE:.IE,ID|
00000470: 2C 31 35 3A 4E 41 24 B2 C8 28 49 56 24 AA 22 3A |,15:NA$..(IV$.":|
00000480: 22 AA 4E 41 24 2C 31 38 29 00 A3 0C 22 01 A0 32 |".NA$,18)..."..2|
00000490: 3A 9F 32 2C 49 44 2C 32 2C 4E 41 24 AA 22 2C 53 |:.2,ID,2,NA$.",S|
000004A0: 2C 52 22 00 BE 0C 2C 01 84 49 45 2C 41 24 2C 42 |,R"...,..IE,A$,B|
000004B0: 24 3A 8B 41 24 B3 22 32 30 22 89 33 32 30 00 F3 |$:.A$."20".320..|
000004C0: 0C 36 01 99 22 44 49 53 4B 20 45 52 52 4F 52 20 |.6.."DISK ERROR |
000004D0: 4F 50 45 4E 49 4E 47 20 46 49 4C 45 3A 22 3A 99 |OPENING FILE:":.|
000004E0: 4E 41 24 3A 99 41 24 22 20 20 20 22 42 24 3A 89 |NA$:.A$" "B$:.|
000004F0: 32 31 30 00 0E 0D 40 01 8B 20 49 44 B3 B1 20 4F |210...@.. ID.. O|
00000500: 44 20 A7 20 9F 20 31 35 2C 4F 44 2C 31 35 00 30 |D . . 15,OD,15.0|
00000510: 0D 4A 01 58 B2 B8 28 30 29 3A 99 22 52 45 41 44 |.J.X..(0):."READ|
00000520: 49 4E 47 2F 55 4E 53 51 55 45 45 5A 49 4E 47 22 |ING/UNSQUEEZING"|
00000530: 00 3C 0D 54 01 9E 20 34 39 31 35 32 00 56 0D 5E |.<.T.. 49152.V.^|
00000540: 01 58 B2 C2 28 37 38 30 29 3A 8B 20 58 B3 B1 30 |.X..(780):. X..0|
00000550: 20 89 20 33 39 30 00 7D 0D 68 01 99 3A 99 20 22 | . 390.}.h..:. "|
00000560: 55 4E 53 51 55 45 45 5A 45 20 43 4F 4D 50 4C 45 |UNSQUEEZE COMPLE|
00000570: 54 45 22 3A 4C 45 B2 C2 28 38 32 38 29 00 B2 0D |TE":LE..(828)...|
00000580: 72 01 81 20 49 B2 31 20 A4 20 4C 45 3A 99 20 C7 |r.. I.1 . LE:. .|
00000590: 28 C2 28 38 32 38 AA 49 29 29 3B 3A 82 3A 99 3A |(.(828.I));:.:.:|
000005A0: 99 20 22 46 49 4C 45 20 43 52 45 41 54 45 44 11 |. "FILE CREATED.|
000005B0: 11 22 00 BB 0D 7C 01 89 32 33 30 00 DE 0D 86 01 |."...|..230.....|
000005C0: 99 20 22 45 52 52 4F 52 20 4E 55 4D 42 45 52 22 |. "ERROR NUMBER"|
000005D0: 20 58 20 22 4F 43 43 55 52 52 45 44 2E 22 00 08 | X "OCCURRED."..|
000005E0: 0E 90 01 8B 20 58 B2 31 20 A7 20 99 20 22 46 49 |.... X.1 . . "FI|
000005F0: 4C 45 20 49 53 20 4E 4F 54 20 53 51 55 45 45 5A |LE IS NOT SQUEEZ|
00000600: 45 44 22 3A 89 32 33 30 00 32 0E 9A 01 8B 20 58 |ED":.230.2.... X|
00000610: B2 32 20 A7 20 99 20 22 53 54 41 54 55 53 20 45 |.2 . . "STATUS E|
00000620: 52 52 4F 52 20 4F 4E 20 4F 50 45 4E 22 3A 89 32 |RROR ON OPEN":.2|
00000630: 33 30 00 6E 0E A4 01 8B 20 58 B2 34 20 A7 20 99 |30.n.... X.4 . .|
00000640: 20 22 50 48 59 53 49 43 41 4C 20 45 4F 46 20 42 | "PHYSICAL EOF B|
00000650: 45 46 4F 52 45 20 45 4E 44 20 4F 46 20 46 49 4C |EFORE END OF FIL|
00000660: 45 20 4D 41 52 4B 45 52 22 3A 89 32 33 30 00 A3 |E MARKER":.230..|
00000670: 0E AE 01 8B 20 58 B2 35 20 A7 20 99 20 22 43 48 |.... X.5 . . "CH|
00000680: 45 43 4B 53 55 4D 20 45 52 52 4F 52 2E 20 46 49 |ECKSUM ERROR. FI|
00000690: 4C 45 20 4D 41 59 20 42 45 20 42 41 44 22 3A 89 |LE MAY BE BAD":.|
000006A0: 32 33 30 00 D6 0E B8 01 8B 20 58 B2 36 20 A7 20 |230...... X.6 . |
000006B0: 99 22 44 49 53 4B 20 53 54 41 54 55 53 20 45 52 |."DISK STATUS ER|
000006C0: 52 4F 52 20 41 46 54 45 52 20 57 52 49 54 45 2E |ROR AFTER WRITE.|
000006D0: 22 3A 89 34 38 30 00 08 0F C2 01 8B 20 58 B2 37 |":.480...... X.7|
000006E0: 20 A7 20 99 22 46 4F 52 4D 41 54 20 45 52 52 4F | . ."FORMAT ERRO|
000006F0: 52 20 49 4E 20 53 51 55 45 45 5A 45 44 20 46 49 |R IN SQUEEZED FI|
00000700: 4C 45 22 3A 89 32 33 30 00 30 0F CC 01 8B 20 58 |LE":.230.0.... X|
00000710: B3 B1 33 20 A7 20 99 22 55 4E 44 45 46 49 4E 45 |..3 . ."UNDEFINE|
00000720: 44 20 45 52 52 4F 52 20 23 22 58 3A 89 32 33 30 |D ERROR #"X:.230|
00000730: 00 54 0F D6 01 99 20 22 44 49 53 4B 20 53 54 41 |.T.... "DISK STA|
00000740: 54 55 53 20 45 52 52 4F 52 20 4F 4E 20 4F 50 45 |TUS ERROR ON OPE|
00000750: 4E 2E 11 22 00 62 0F E0 01 4C 45 B2 C2 28 38 32 |N..".b...LE..(82|
00000760: 38 29 00 84 0F EA 01 81 20 49 B2 31 20 A4 20 4C |8)...... I.1 . L|
00000770: 45 3A 99 20 C7 28 C2 28 38 32 38 AA 49 29 29 3B |E:. .(.(828.I));|
00000780: 3A 82 3A 99 00 BA 0F F4 01 99 22 45 52 52 4F 52 |:.:......."ERROR|
00000790: 20 4D 53 47 3A 20 22 3B 3A 81 20 49 B2 31 20 A4 | MSG: ";:. I.1 .|
000007A0: 20 C2 28 38 35 33 29 3A 99 20 C7 28 C2 28 38 35 | .(853):. .(.(85|
000007B0: 33 AA 49 29 29 3B 3A 82 3A 99 00 C3 0F FE 01 89 |3.I));:.:.......|
000007C0: 32 33 30 00 EA 0F 08 02 A0 32 3A 9F 32 2C 49 44 |230......2:.2,ID|
000007D0: 2C 30 2C 4E 41 24 3A A1 23 32 2C 41 24 2C 41 24 |,0,NA$:.#2,A$,A$|
000007E0: 2C 41 24 2C 41 24 3A 99 3A 99 00 18 10 12 02 A1 |,A$,A$:.:.......|
000007F0: 23 32 2C 41 24 2C 42 24 3A 4C B2 C6 28 41 24 AA |#2,A$,B$:L..(A$.|
00000800: C7 28 30 29 29 AA 32 35 36 AC C6 28 42 24 AA C7 |.(0)).256..(B$..|
00000810: 28 30 29 29 3A 99 4C 3B 00 35 10 1C 02 A1 23 32 |(0)):.L;.5....#2|
00000820: 2C 41 24 3A 8B 41 24 B3 B1 22 22 A7 99 41 24 3B |,A$:.A$..""..A$;|
00000830: 3A 89 35 34 30 00 56 10 26 02 99 3A A1 23 32 2C |:.540.V.&..:.#2,|
00000840: 41 24 3A 8B 41 24 B3 B1 22 22 A7 A1 23 32 2C 41 |A$:.A$..""..#2,A|
00000850: 24 3A 89 35 33 30 00 6D 10 30 02 A1 23 32 2C 41 |$:.530.m.0..#2,A|
00000860: 24 3A 8B 41 24 B3 B1 22 22 89 35 33 30 00 7D 10 |$:.A$.."".530.}.|
00000870: 3A 02 A0 32 3A A0 49 45 3A 89 32 33 30 00 00 00 |:..2:.IE:.230...|
..).... "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 UNSQUE
EZE".Y....". BY"......"
. JOHN LEESON"./...."...INPU
T DEVICE 8...";ID:. ID.8 . ID.10 . 150.
V. ..".INPUT DRIVE 0...";IV$:IV$.H(IV$,
1):. IV$.."0" . IV$.."1" . 160......".OU
TPUT DEVICE 8...";OD:. OD.8 . OD.10 . 1
70......".OUTPUT DRIVE 0...";OV$:OV$.H(
OV$,1):. OV$.."0".OV$.."1" . 180......90
4,ID:.906,OD:.905,F(IV$):.907,F(OV$).O.H
.RF..1:. B (49152)..169 . . IV$.":USQ.EX
E",ID,1...R.."..INSERT INPUT AND OUTPUT
DISKS. PRESS ANYKEY WHEN READY.."......A
$:.A$."".220.....NA$."":.".FILE NAME TO
UNSQUEEZE ($ FOR DIRECTORY)":.NA$......
NA$."" . .:.......H(NA$,1)."$".520.F...
15:.15,OD,15: 15:.ST..0..".OUTPUT DRIVE
NOT READY":.:..A...IE.15:. ID..OD . IE.1
6..... IE:.IE,ID,15:NA$.H(IV$.":".NA$,18
)...". 2:.2,ID,2,NA$.",S,R"...,..IE,A$,B
$:.A$."20".320...6.."DISK ERROR OPENING
FILE:":.NA$:.A$" "B$:.210...@.. ID.. O
D . . 15,OD,15.0.J.X..(0):."READING/UNSQ
UEEZING".<.T.. 49152.V.^.X.B(780):. X..0
. 390.}.H..:. "UNSQUEEZE COMPLETE":LE.B
(828)...R.. I.1 . LE:. G(B(828.I));:.:.:
. "FILE CREATED.."...|..230...... "ERROR
NUMBER" X "OCCURRED."...... X.1 . . "FI
LE IS NOT SQUEEZED":.230.2.... X.2 . . "
STATUS ERROR ON OPEN":.230.N.... X.4 . .
"PHYSICAL EOF BEFORE END OF FILE MARKER
":.230...... X.5 . . "CHECKSUM ERROR. FI
LE MAY BE BAD":.230.V.... X.6 . ."DISK S
TATUS ERROR AFTER WRITE.":.480...B.. X.7
. ."FORMAT ERROR IN SQUEEZED FILE":.230
.0.L.. X..3 . ."UNDEFINED ERROR #"X:.230
.T.V.. "DISK STATUS ERROR ON OPEN..".B..
.LE.B(828)...... I.1 . LE:. G(B(828.I));
:.:......."ERROR MSG: ";:. I.1 . B(853):
. G(B(853.I));:.:..C....230..... 2:.2,ID
,0,NA$:.#2,A$,A$,A$,A$:.:.......#2,A$,B$
:L.F(A$.G(0)).256.F(B$.G(0)):.L;.5....#2
,A$:.A$..""..A$;:.540.V.&..:.#2,A$:.A$..
""..#2,A$:.530.M.0..#2,A$:.A$.."".530.}.
:. 2: IE:.230...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL