> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 22 08 05 00 8F 20 3E 3E 3E 3E 20 57 45 53 |..".... >>>> WES|
00000010: 20 57 49 45 53 45 20 39 2D 31 2D 38 38 20 3C 3C | WIESE 9-1-88 <<|
00000020: 3C 3C 00 39 08 07 00 8F 20 3E 3E 3E 3E 20 57 45 |<<.9.... >>>> WE|
00000030: 53 32 35 36 20 3C 3C 3C 3C 00 7A 08 0A 00 8F 20 |S256 <<<<.z.... |
00000040: 3E 3E 20 49 4E 53 45 52 54 20 46 49 4C 45 4E 41 |>> INSERT FILENA|
00000050: 4D 45 20 57 49 54 48 20 2E 53 48 50 20 53 55 46 |ME WITH .SHP SUF|
00000060: 46 49 58 20 49 4E 20 46 24 28 4C 49 4E 45 35 30 |FIX IN F$(LINE50|
00000070: 29 54 4F 20 55 4E 50 41 43 4B 00 9F 08 14 00 8F |)TO UNPACK......|
00000080: 20 3E 3E 20 47 52 41 50 48 49 43 53 20 46 52 4F | >> GRAPHICS FRO|
00000090: 4D 20 4C 4F 41 44 53 54 41 52 20 44 49 53 4B 00 |M LOADSTAR DISK.|
000000A0: BF 08 1E 00 8F 20 3E 3E 20 42 45 46 4F 52 45 20 |..... >> BEFORE |
000000B0: 52 55 4E 4E 49 4E 47 20 50 52 4F 47 52 41 4D 00 |RUNNING PROGRAM.|
000000C0: EF 08 28 00 8F 20 3E 3E 20 55 4E 50 41 43 4B 45 |..(.. >> UNPACKE|
000000D0: 52 20 41 4E 44 20 46 24 20 48 41 56 45 20 54 4F |R AND F$ HAVE TO|
000000E0: 20 42 45 20 4F 4E 20 54 48 45 20 44 49 53 4B 00 | BE ON THE DISK.|
000000F0: 12 09 2D 00 8F 20 3E 3E 20 54 48 49 53 20 50 52 |..-.. >> THIS PR|
00000100: 4F 47 52 41 4D 20 49 53 20 43 2D 36 34 20 4F 4E |OGRAM IS C-64 ON|
00000110: 4C 59 00 1C 09 32 00 46 24 B2 22 22 00 26 09 3C |LY...2.F$."".&.<|
00000120: 00 4F 24 B2 46 24 00 69 09 3D 00 8B 20 46 24 B2 |.O$.F$.i.=.. F$.|
00000130: 22 22 A7 99 22 93 11 11 11 11 11 11 11 12 55 20 |""..".........U |
00000140: 46 4F 52 47 4F 54 20 54 4F 20 50 55 54 20 46 49 |FORGOT TO PUT FI|
00000150: 4C 45 4E 41 4D 45 20 49 4E 20 46 24 28 4C 49 4E |LENAME IN F$(LIN|
00000160: 45 20 35 30 29 92 22 3A 80 00 82 09 3E 00 4C B2 |E 50).":....>.L.|
00000170: C3 28 46 24 29 3A 46 24 B2 C8 28 46 24 2C 4C AB |.(F$):F$..(F$,L.|
00000180: 34 29 00 A3 09 41 00 4C B2 C3 28 46 24 29 3A 8B |4)...A.L..(F$):.|
00000190: 4C B3 31 33 A7 37 30 3A 46 24 B2 C8 28 46 24 2C |L.13.70:F$..(F$,|
000001A0: 31 32 29 00 C0 09 46 00 8B 58 B2 30 A7 58 B2 31 |12)...F..X.0.X.1|
000001B0: 3A 93 22 55 4E 50 41 43 4B 45 52 22 2C 38 2C 31 |:."UNPACKER",8,1|
000001C0: 00 D6 09 50 00 8B 58 B2 31 A7 58 B2 32 3A 93 20 |...P..X.1.X.2:. |
000001D0: 4F 24 2C 38 2C 31 00 06 0A 5A 00 97 32 34 39 2C |O$,8,1...Z..249,|
000001E0: 33 32 3A 97 32 35 30 2C 34 3A 97 32 35 31 2C 30 |32:.250,4:.251,0|
000001F0: 3A 97 32 35 32 2C 36 34 3A 97 32 35 33 2C 30 3A |:.252,64:.253,0:|
00000200: 97 32 35 34 2C 30 00 1A 0A 64 00 9E 35 31 34 35 |.254,0...d..5145|
00000210: 36 3A 8F 20 55 4E 50 41 43 4B 00 2F 0A 78 00 9E |6:. UNPACK./.x..|
00000220: 35 31 34 35 39 3A 8F 20 44 49 53 50 4C 41 59 00 |51459:. DISPLAY.|
00000230: 50 0A 82 00 42 B2 C2 28 35 33 32 38 31 29 3A 97 |P...B..(53281):.|
00000240: 35 36 32 39 36 2C 42 3A 97 35 36 32 39 37 2C 42 |56296,B:.56297,B|
00000250: 00 66 0A 8C 00 97 31 37 34 2C 32 33 33 3A 97 31 |.f....174,233:.1|
00000260: 37 35 2C 32 31 39 00 7A 0A 96 00 97 31 39 33 2C |75,219.z....193,|
00000270: 30 3A 97 31 39 34 2C 32 31 36 00 97 0A A0 00 9E |0:.194,216......|
00000280: 35 37 38 31 32 46 24 AA 22 2E 43 4C 52 22 2C 38 |57812F$.".CLR",8|
00000290: 3A 9E 36 32 39 35 34 00 AB 0A AA 00 97 31 37 34 |:.62954......174|
000002A0: 2C 32 33 32 3A 97 31 37 35 2C 37 00 BD 0A B4 00 |,232:.175,7.....|
000002B0: 97 31 39 33 2C 30 3A 97 31 39 34 2C 34 00 DA 0A |.193,0:.194,4...|
000002C0: BE 00 9E 35 37 38 31 32 46 24 AA 22 2E 53 43 52 |...57812F$.".SCR|
000002D0: 22 2C 38 3A 9E 36 32 39 35 34 00 EE 0A C8 00 97 |",8:.62954......|
000002E0: 31 37 34 2C 36 34 3A 97 31 37 35 2C 36 33 00 01 |174,64:.175,63..|
000002F0: 0B D2 00 97 31 39 33 2C 30 3A 97 31 39 34 2C 33 |....193,0:.194,3|
00000300: 32 00 1E 0B DC 00 9E 35 37 38 31 32 46 24 AA 22 |2......57812F$."|
00000310: 2E 42 4D 50 22 2C 38 3A 9E 36 32 39 35 34 00 58 |.BMP",8:.62954.X|
00000320: 0B F0 00 9E 35 37 38 31 32 46 24 AA 22 2E 42 4D |....57812F$.".BM|
00000330: 50 22 2C 38 3A 97 31 38 35 2C 30 3A 97 37 38 30 |P",8:.185,0:.780|
00000340: 2C 30 3A 97 37 38 31 2C 30 3A 97 37 38 32 2C 33 |,0:.781,0:.782,3|
00000350: 32 3A 9E 36 35 34 39 33 00 93 0B 04 01 9E 35 37 |2:.65493......57|
00000360: 38 31 32 46 24 AA 22 2E 53 43 52 22 2C 38 3A 97 |812F$.".SCR",8:.|
00000370: 31 38 35 2C 30 3A 97 37 38 30 2C 30 3A 97 37 38 |185,0:.780,0:.78|
00000380: 31 2C 36 34 3A 97 37 38 32 2C 36 33 3A 9E 36 35 |1,64:.782,63:.65|
00000390: 34 39 33 00 CE 0B 18 01 9E 35 37 38 31 32 46 24 |493......57812F$|
000003A0: AA 22 2E 43 4C 52 22 2C 38 3A 97 31 38 35 2C 30 |.".CLR",8:.185,0|
000003B0: 3A 97 37 38 30 2C 30 3A 97 37 38 31 2C 34 30 3A |:.780,0:.781,40:|
000003C0: 97 37 38 32 2C 36 37 3A 9E 36 35 34 39 33 00 D8 |.782,67:.65493..|
000003D0: 0B 2C 01 4E 24 B2 46 24 00 F9 0B 36 01 4C B2 C3 |.,.N$.F$...6.L..|
000003E0: 28 4E 24 29 3A 8B 4C B1 38 A7 4E 24 B2 C8 28 4E |(N$):.L.8.N$..(N|
000003F0: 24 2C 38 29 3A 89 33 35 30 00 0C 0C 40 01 8B 4C |$,8):.350...@..L|
00000400: B3 39 A7 8D 33 33 30 3A 89 33 35 30 00 21 0C 4A |.9..330:.350.!.J|
00000410: 01 4C 31 B2 C3 28 4E 24 29 3A 8B 4C 31 B2 38 A7 |.L1..(N$):.L1.8.|
00000420: 8E 00 34 0C 54 01 4E 24 B2 4E 24 AA 22 20 22 3A |..4.T.N$.N$." ":|
00000430: 89 33 33 30 00 48 0C 5E 01 4E 24 B2 22 81 50 49 |.330.H.^.N$.".PI|
00000440: 43 20 41 20 22 AA 4E 24 00 5E 0C 9A 01 97 20 31 |C A ".N$.^.... 1|
00000450: 37 34 2C 31 38 3A 97 20 31 37 35 2C 37 31 00 73 |74,18:. 175,71.s|
00000460: 0C A4 01 97 20 31 39 33 2C 30 3A 97 20 31 39 34 |.... 193,0:. 194|
00000470: 2C 33 32 00 89 0C AE 01 9E 35 37 38 31 32 4E 24 |,32......57812N$|
00000480: 2C 38 3A 9E 36 32 39 35 34 00 CB 0C B8 01 51 B2 |,8:.62954.....Q.|
00000490: 33 32 3A 46 B2 32 35 36 3A 56 B2 31 36 3A 50 B2 |32:F.256:V.16:P.|
000004A0: 32 34 35 37 36 3A 42 B2 B5 28 50 AD 46 29 3A 41 |24576:B..(P.F):A|
000004B0: B2 50 AB 42 AC 46 3A 50 24 B2 C7 28 41 29 AA C7 |.P.B.F:P$..(A)..|
000004C0: 28 42 29 3A 5A 24 B2 C7 28 30 29 00 D8 0C BD 01 |(B):Z$..(0).....|
000004D0: 53 B2 31 3A 54 B2 31 38 00 ED 0C C2 01 4A B2 C3 |S.1:T.18.....J..|
000004E0: 28 4E 24 29 3A 8B 4A B2 56 A7 34 37 30 00 09 0D |(N$):.J.V.470...|
000004F0: CC 01 81 58 B2 4A AA 31 A4 56 3A 4E 24 B2 4E 24 |...X.J.1.V:N$.N$|
00000500: AA C7 28 31 36 30 29 3A 82 00 20 0D D6 01 9F 31 |..(160):.. ....1|
00000510: 2C 38 2C 31 35 3A 9F 32 2C 38 2C 32 2C 22 23 22 |,8,15:.2,8,2,"#"|
00000520: 00 35 0D E0 01 98 31 2C 22 55 31 3A 22 3B 32 3B |.5....1,"U1:";2;|
00000530: 30 3B 54 3B 53 00 51 0D EA 01 98 31 2C 22 42 2D |0;T;S.Q....1,"B-|
00000540: 50 3A 22 3B 32 3B 30 3A A1 23 32 2C 41 24 2C 42 |P:";2;0:.#2,A$,B|
00000550: 24 00 6F 0D F4 01 54 B2 C6 28 41 24 AA 5A 24 29 |$.o...T..(A$.Z$)|
00000560: 3A 53 B2 C6 28 42 24 AA 5A 24 29 3A 48 B2 32 00 |:S..(B$.Z$):H.2.|
00000570: 88 0D FE 01 98 31 2C 22 42 2D 50 3A 22 3B 32 3B |.....1,"B-P:";2;|
00000580: 48 3A A1 23 32 2C 54 24 00 A3 0D 08 02 43 B2 C6 |H:.#2,T$.....C..|
00000590: 28 54 24 AA 5A 24 29 3A 8B 43 B3 B1 31 33 30 A7 |(T$.Z$):.C..130.|
000005A0: 35 36 30 00 BE 0D 12 02 A1 23 32 2C 41 24 2C 42 |560......#2,A$,B|
000005B0: 24 3A 47 24 B2 22 22 3A 81 58 B2 31 A4 56 00 D4 |$:G$."":.X.1.V..|
000005C0: 0D 1C 02 A1 23 32 2C 54 24 3A 47 24 B2 47 24 AA |....#2,T$:G$.G$.|
000005D0: 54 24 3A 82 00 E3 0D 26 02 8B 47 24 B2 4E 24 A7 |T$:....&..G$.N$.|
000005E0: 35 38 30 00 F6 0D 30 02 48 B2 48 AA 51 3A 8B 48 |580...0.H.H.Q:.H|
000005F0: B3 46 A7 35 31 30 00 FF 0D 3A 02 89 34 38 30 00 |.F.510...:..480.|
00000600: 19 0E 44 02 41 B2 C6 28 41 24 AA 5A 24 29 3A 42 |..D.A..(A$.Z$):B|
00000610: B2 C6 28 42 24 AA 5A 24 29 00 2E 0E 4E 02 98 31 |..(B$.Z$)...N..1|
00000620: 2C 22 55 31 3A 22 3B 32 3B 30 3B 41 3B 42 00 47 |,"U1:";2;0;A;B.G|
00000630: 0E 58 02 98 31 2C 22 42 2D 50 3A 22 3B 32 3B 32 |.X..1,"B-P:";2;2|
00000640: 3A 98 32 2C 50 24 3B 00 5C 0E 62 02 98 31 2C 22 |:.2,P$;.\.b..1,"|
00000650: 55 32 3A 22 3B 32 3B 30 3B 41 3B 42 00 66 0E 6C |U2:";2;0;A;B.f.l|
00000660: 02 A0 32 3A A0 31 00 83 0E 76 02 9F 31 35 2C 38 |..2:.1...v..15,8|
00000670: 2C 31 35 3A 98 31 35 2C 22 53 3A 22 AA 46 24 AA |,15:.15,"S:".F$.|
00000680: 22 2A 22 00 8B 0E 80 02 A0 31 35 00 96 0E 85 02 |"*"......15.....|
00000690: 9E 35 31 34 35 39 00 AD 0E 8A 02 97 35 33 32 38 |.51459......5328|
000006A0: 30 2C 31 34 3A 97 35 33 32 38 31 2C 36 00 B8 0E |0,14:.53281,6...|
000006B0: 94 02 9E 35 38 32 36 30 00 00 00 |...58260... |
..".... >>>> WES WIESE 9-1-88 <<<<.9....
>>>> WES256 <<<<.Z.... >> INSERT FILENA
ME WITH .SHP SUFFIX IN F$(LINE50)TO UNPA
CK...... >> GRAPHICS FROM LOADSTAR DISK.
..... >> BEFORE RUNNING PROGRAM...(.. >>
UNPACKER AND F$ HAVE TO BE ON THE DISK.
..-.. >> THIS PROGRAM IS C-64 ONLY...2.F
$."".&.<.O$.F$.I.=.. F$.""..".........U
FORGOT TO PUT FILENAME IN F$(LINE 50).":
....>.L.C(F$):F$.H(F$,L.4)...A.L.C(F$):.
L.13.70:F$.H(F$,12)...F..X.0.X.1:."UNPAC
KER",8,1.V.P..X.1.X.2:. O$,8,1...Z..249,
32:.250,4:.251,0:.252,64:.253,0:.254,0..
.D..51456:. UNPACK./.X..51459:. DISPLAY.
P...B.B(53281):.56296,B:.56297,B.F....17
4,233:.175,219.Z....193,0:.194,216... ..
57812F$.".CLR",8:.62954......174,232:.17
5,7......193,0:.194,4.Z....57812F$.".SCR
",8:.62954...H..174,64:.175,63...R..193,
0:.194,32......57812F$.".BMP",8:.62954.X
....57812F$.".BMP",8:.185,0:.780,0:.781,
0:.782,32:.65493......57812F$.".SCR",8:.
185,0:.780,0:.781,64:.782,63:.65493.N...
.57812F$.".CLR",8:.185,0:.780,0:.781,40:
.782,67:.65493.X.,.N$.F$...6.L.C(N$):.L.
8.N$.H(N$,8):.350...@..L.9..330:.350.!.J
.L1.C(N$):.L1.8...4.T.N$.N$." ":.330.H.^
.N$.".PIC A ".N$.^.... 174,18:. 175,71.S
.... 193,0:. 194,32......57812N$,8:.6295
4.K...Q.32:F.256:V.16:P.24576:B..(P.F):A
.P.B.F:P$.G(A).G(B):Z$.G(0).X...S.1:T.18
...B.J.C(N$):.J.V.470...L..X.J.1.V:N$.N$
.G(160):.. .V..1,8,15:.2,8,2,"#".5....1,
"U1:";2;0;T;S.Q....1,"B-P:";2;0:.#2,A$,B
$.O...T.F(A$.Z$):S.F(B$.Z$):H.2......1,"
B-P:";2;H:.#2,T$.....C.F(T$.Z$):.C..130.
560......#2,A$,B$:G$."":.X.1.V.T....#2,T
$:G$.G$.T$:....&..G$.N$.580...0.H.H.Q:.H
.F.510...:..480...D.A.F(A$.Z$):B.F(B$.Z$
)...N..1,"U1:";2;0;A;B.G.X..1,"B-P:";2;2
:.2,P$;.\.B..1,"U2:";2;0;A;B.F.L. 2: 1..
.V..15,8,15:.15,"S:".F$."*"..... 15.....
.51459......53280,14:.53281,6......58260
...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL