0 'PACKER.BA - Author Unknown
1 'Club 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
2 CLEAR50:MAXFILES=0:AL=HIMEM-FRE(0)+1:AH=HIMEM-1:A0=60254:A1=62959:IFA0<ALORA1>AHTHENPRINT"MEMORY SPACE ERROR":END
3 CLEAR50,A0-1:A0=65536:A1=0:AB=60254:AE=60509:IFAB<A0THENA0=AB
4 IFAE>A1THENA1=AE
5 DATA 229,213,197,33,0,0,57,17,56,255,25,34,76,236,205,131:DATA 237,58,39,236,183,204,7,239,58,39,236,183,204,131,239,58:DATA 39,236,254,1,245,204,153,235,241,254,2,245,204,1,236,241:DATA 254,3,204,11,236,193,209,225,195,151,87,58,36,236,183,245
6 DATA 204,237,235,241,200,42,63,236,235,33,65,236,205,40,237,33:DATA 190,236,6,5,17,65,236,205,102,237,33,174,236,205,177,39:DATA 42,56,236,235,33,65,236,205,40,237,33,217,236,6,5,17:DATA 65,236,205,102,237,33,199,236,205,177,39,58,40,236,183,245
7 DATA 196,247,235,241,192,33,79,236,205,177,39,205,21,236,201,33:DATA 156,236,205,177,39,205,21,236,201,33,89,236,205,177,39,205:DATA 21,236,201,33,142,236,205,177,39,205,21,236,201,33,121,236
8 DATA 205,177,39,205,21,236,201,33,98,236,205,177,39,205,68,70:DATA 201,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0:DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0:DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0:DATA 0,83,117,99,99,101,115,115,13,10,0,69,114,114,111,114:FORAA=ABTOAE
9 READIC:POKEAA,IC:NEXT:AB=60510:AE=60765:IFAB<A0THENA0=AB
10 IFAE>A1THENA1=AE
11 DATA 115,13,10,0,80,114,101,115,115,32,60,69,78,84,69,82:DATA 62,32,102,111,114,32,109,101,110,117,0,84,101,114,109,105:DATA 110,97,116,101,100,32,98,121,32,117,115,101,114,13,10,0:DATA 70,97,116,97,108,32,101,114,114,111,114,13,10,0,78,111
12 DATA 116,104,105,110,103,32,99,104,97,110,103,101,100,13,10,0:DATA 79,114,105,103,105,110,97,108,32,108,101,110,103,116,104,58:DATA 32,0,0,0,0,0,13,10,0,67,111,109,112,114,101,115:DATA 115,101,100,32,108,101,110,103,116,104,58,32,0,0,0,0
13 DATA 0,13,10,0,84,93,229,72,6,0,9,54,46,35,54,66:DATA 35,54,65,35,54,0,121,198,4,71,225,126,254,97,212,33:DATA 237,35,13,194,249,236,120,205,171,90,245,204,21,237,241,200:DATA 205,227,90,34,41,236,201,33,223,245,205,177,39,62,2,50
14 DATA 39,236,201,254,123,208,230,95,119,201,229,235,34,26,252,1:DATA 0,0,33,233,251,205,195,60,205,69,237,209,120,18,183,192:DATA 60,18,62,48,19,18,201,213,235,6,6,62,32,205,11,79:DATA 6,0,33,232,251,209,35,126,254,48,202,84,237,216,19,18:FORAA=ABTOAE
15 READIC:POKEAA,IC:NEXT:AB=60766:AE=61021:IFAB<A0THENA0=AB
16 IFAE>A1THENA1=AE
17 DATA 4,35,126,183,194,92,237,201,19,35,26,119,5,194,102,237:DATA 201,42,58,236,34,32,236,94,35,86,35,34,45,236,235,34:DATA 58,236,124,181,201,33,48,238,205,177,39,175,50,39,236,50:DATA 6,239,50,60,236,205,177,237,58,6,239,183,202,147,237,58
18 DATA 39,236,183,192,175,50,6,239,205,235,237,58,6,239,183,202:DATA 166,237,201,33,172,238,205,177,39,205,68,70,245,212,201,237:DATA 241,208,62,3,50,39,236,50,6,239,201,5,120,183,245,204:DATA 228,237,241,200,254,7,245,212,228,237,241,208,35,205,226,236
19 DATA 62,1,50,6,239,201,33,234,238,205,177,39,201,33,184,238:DATA 205,177,39,205,68,70,245,212,3,238,241,208,62,3,50,39:DATA 236,50,6,239,201,35,205,235,8,245,220,41,238,241,216,33:DATA 0,1,235,223,245,212,41,238,241,208,125,183,245,204,41,238
20 DATA 241,200,50,55,236,62,1,50,6,239,201,33,205,238,205,177:DATA 39,201,9,32,67,111,109,112,114,101,115,115,32,97,32,66:DATA 65,83,73,67,32,70,105,108,101,13,10,9,40,67,41,32:DATA 67,111,112,121,114,105,103,104,116,32,49,57,56,52,32,98:FORAA=ABTOAE
21 READIC:POKEAA,IC:NEXT:AB=61022:AE=61277:IFAB<A0THENA0=AB
22 IFAE>A1THENA1=AE
23 DATA 121,13,10,32,32,32,32,32,71,101,110,101,114,97,108,32:DATA 66,117,115,105,110,101,115,115,32,83,121,115,116,101,109,115:DATA 44,32,73,110,99,46,13,10,32,32,32,32,32,32,76,105:DATA 99,101,110,115,101,100,32,116,111,32,67,117,115,116,111,109
24 DATA 32,83,111,102,116,119,97,114,101,13,10,13,10,0,70,105:DATA 108,101,32,110,97,109,101,58,32,0,77,97,120,105,109,117:DATA 109,32,108,105,110,101,32,108,101,110,103,116,104,58,0,32:DATA 32,32,32,32,66,97,100,32,118,97,108,117,101,32,45,32
25 DATA 116,114,121,32,97,103,97,105,110,13,10,0,32,32,32,32:DATA 32,66,97,100,32,110,97,109,101,32,45,32,116,114,121,32:DATA 97,103,97,105,110,13,10,0,0,42,182,251,35,35,34,47:DATA 236,205,74,239,42,76,236,43,54,255,35,54,255,35,34,53
26 DATA 236,42,41,236,34,58,236,205,111,237,245,204,68,239,241,200:DATA 58,39,236,183,192,42,45,236,94,35,86,235,34,37,236,235:DATA 205,244,239,195,37,239,42,53,236,43,43,201,58,76,236,149:DATA 111,58,77,236,156,103,245,220,100,239,241,216,124,183,192,125
27 FORAA=ABTOAE:READIC:POKEAA,IC:NEXT:AB=61278:AE=61533:IFAB<A0THENA0=AB
28 IFAE>A1THENA1=AE
29 DATA 254,50,220,100,239,201,33,112,239,205,177,39,62,2,50,39:DATA 236,201,78,111,116,32,101,110,111,117,103,104,32,115,112,97:DATA 99,101,13,10,0,42,41,236,34,58,236,43,34,73,236,42:DATA 76,236,34,53,236,175,50,36,236,50,44,236,205,66,242,58
30 DATA 39,236,183,202,154,239,58,36,236,183,200,42,41,236,205,243:DATA 5,42,41,236,235,58,45,236,147,111,58,46,236,154,103,34:DATA 63,236,58,73,236,147,111,58,74,236,154,103,35,34,56,236:DATA 42,63,236,58,56,236,149,95,58,57,236,156,87,42,174,251
31 DATA 25,34,174,251,175,147,79,62,0,154,71,42,73,236,35,205:DATA 159,107,205,70,33,201,175,50,72,236,35,126,183,200,254,32:DATA 202,248,239,254,131,245,220,24,240,241,218,248,239,254,206,245
32 DATA 212,24,240,241,220,29,240,195,248,239,175,50,72,236,201,50:DATA 78,236,235,33,186,240,205,55,240,183,202,36,240,235,254,2:DATA 200,229,19,26,111,19,26,103,233,35,35,35,58,78,236,190:DATA 62,1,200,62,0,208,62,2,201,205,24,240,225,35,126,183
33 DATA 43,200,35,254,58,200,254,34,204,178,240,195,75,240,58,72:FORAA=ABTOAE:READIC:POKEAA,IC:NEXT:AB=61534:AE=61789:IFAB<A0THENA0=AB
34 IFAE>A1THENA1=AE
35 DATA 236,60,50,72,236,254,3,196,24,240,225,205,225,240,205,24:DATA 240,201,225,35,126,183,194,113,240,43,205,24,240,201,225,58:DATA 72,236,60,50,72,236,254,2,196,24,240,201,225,62,1,50:DATA 72,236,201,225,35,126,254,32,202,146,240,254,220,202,146,240
36 DATA 254,221,202,146,240,254,222,202,146,240,43,183,200,205,225,240:DATA 205,24,240,201,35,126,254,34,200,183,194,178,240,43,201,131:DATA 71,240,136,92,240,137,104,240,139,104,240,140,104,240,142,112
37 DATA 240,145,104,240,148,124,240,149,104,240,151,138,240,196,145,240:DATA 205,104,240,205,247,240,58,78,236,254,136,245,204,141,241,241:DATA 254,140,204,141,241,42,49,236,201,205,35,241,58,65,236,183
38 DATA 200,33,66,236,205,235,8,245,220,168,241,241,216,235,34,61:DATA 236,58,72,236,254,3,245,196,230,241,241,192,42,61,236,124:DATA 181,196,230,241,201,175,50,65,236,62,32,6,5,229,33,66:DATA 236,205,11,79,225,205,157,241,126,254,48,216,254,58,208,43
39 DATA 34,34,236,35,50,66,236,62,1,50,65,236,71,79,17,66:DATA 236,205,83,241,201,34,49,236,35,126,12,254,32,202,83,241:FORAA=ABTOAE:READIC:POKEAA,IC:NEXT:AB=61790:AE=62045:IFAB<A0THENA0=AB
40 IFAE>A1THENA1=AE
41 DATA 254,48,216,254,58,208,120,254,5,245,220,131,241,241,218,83:DATA 241,194,83,241,4,229,213,197,205,168,241,193,209,225,175,50:DATA 65,236,195,83,241,60,71,121,50,65,236,19,126,18,201,42
42 DATA 49,236,205,157,241,126,254,44,192,205,247,240,195,141,241,34:DATA 49,236,35,126,254,32,202,157,241,201,62,1,50,40,236,42:DATA 37,236,235,33,65,236,205,40,237,33,221,241,6,5,17,65:DATA 236,205,102,237,33,201,241,205,177,39,201,82,101,102,46,32
43 DATA 116,111,111,32,98,105,103,32,105,110,32,108,105,110,101,32:DATA 0,0,0,0,0,13,10,0,42,76,236,35,43,126,43,166:DATA 60,245,204,9,242,241,200,35,86,43,94,229,42,61,236,223:DATA 225,200,245,220,9,242,241,216,194,234,241,229,42,47,236,235
44 DATA 42,53,236,43,43,34,53,236,223,225,220,51,242,216,235,19:DATA 42,53,236,43,68,77,11,11,205,57,242,58,62,236,119,43:DATA 58,61,236,119,201,62,2,50,39,236,201,35,3,126,2,223:DATA 194,57,242,201,205,111,237,245,204,130,242,241,200,42,45,236
45 DATA 94,35,86,34,49,236,235,34,37,236,235,33,65,236,205,40:FORAA=ABTOAE:READIC:POKEAA,IC:NEXT:AB=62046:AE=62301:IFAB<A0THENA0=AB
46 IFAE>A1THENA1=AE
47 DATA 237,175,50,43,236,50,75,236,50,31,236,205,154,242,58,75:DATA 236,183,196,7,243,205,188,242,42,49,236,126,183,194,115,242:DATA 205,87,244,201,62,1,50,39,236,58,36,236,183,200,42,73:DATA 236,175,35,119,35,119,35,119,34,73,236,201,42,53,236,86
48 DATA 43,94,42,37,236,223,216,245,204,182,242,241,200,42,53,236:DATA 43,43,34,53,236,195,154,242,62,1,50,75,236,201,42,49:DATA 236,35,34,49,236,126,183,200,254,32,204,231,242,200,254,58
49 DATA 245,204,237,242,241,200,254,34,245,204,190,245,241,200,254,128:DATA 245,220,133,245,241,212,30,243,201,62,1,50,36,236,201,35:DATA 71,126,254,142,120,245,196,133,245,241,192,35,126,254,255,120
50 DATA 245,204,71,245,241,196,133,245,201,175,50,60,236,58,44,236:DATA 183,200,42,73,236,35,34,73,236,54,0,175,50,44,236,201:DATA 254,131,245,204,62,243,241,200,254,149,245,204,135,243,241,200
51 DATA 254,138,204,105,243,254,142,245,204,71,245,241,196,112,243,201:DATA 205,112,243,42,49,236,35,34,49,236,126,183,200,254,58,245:DATA 204,133,245,241,200,254,34,245,196,133,245,241,194,65,243,205:FORAA=ABTOAE:READIC:POKEAA,IC:NEXT:AB=62302:AE=62557
52 IFAB<A0THENA0=AB
53 IFAE>A1THENA1=AE
54 DATA 190,245,42,49,236,126,183,194,65,243,201,62,1,50,43,236:DATA 126,201,245,205,133,245,241,214,128,95,22,0,33,187,243,25:DATA 70,58,31,236,128,50,31,236,201,205,112,243,42,49,236,35:DATA 34,49,236,126,254,32,202,138,243,254,130,204,164,243,42,49
55 DATA 236,43,34,49,236,201,62,1,50,40,236,33,78,244,6,5:DATA 17,65,236,205,102,237,33,59,244,205,177,39,201,2,2,3:DATA 3,4,2,3,2,3,2,1,6,4,5,2,3,4,3,3:DATA 3,4,5,2,1,4,3,4,3,4,4,3,5,5,2,3:DATA 4,3,3,4,4,4,4,4,4,3,2,2,2,2,3,4
56 DATA 4,3,5,4,2,4,3,3,2,3,3,5,2,3,1,4:DATA 5,2,2,6,4,4,5,5,2,4,3,2,3,0,0,0:DATA 0,0,2,1,2,2,2,2,0,0,0,0,2,2,2,2:DATA 2,3,2,2,2,2,2,2,2,2,2,3,2,2,2,3:DATA 3,3,2,2,3,2,2,3,5,4,5,3,0,82,69,83:DATA 85,77,69,32,78,69,88,84,32,105,110,32,108,105,110,101
57 DATA 32,0,0,0,0,0,13,10,0,58,31,236,183,200,71,58:FORAA=ABTOAE:READIC:POKEAA,IC:NEXT:AB=62558:AE=62813:IFAB<A0THENA0=AB
58 IFAE>A1THENA1=AE
59 DATA 44,236,128,50,1,245,220,135,244,58,1,245,79,58,55,236:DATA 185,245,204,251,244,241,220,135,244,58,1,245,50,44,236,205:DATA 234,244,42,73,236,34,51,236,201,58,44,236,183,200,42,73:DATA 236,229,42,51,236,34,73,236,205,7,243,42,73,236,235,193
60 DATA 33,4,0,9,34,73,236,10,119,43,11,120,186,194,165,244:DATA 121,187,194,165,244,42,51,236,35,35,35,35,58,37,236,119:DATA 35,58,38,236,119,58,65,236,95,58,31,236,61,131,50,1:DATA 245,201,205,251,244,33,6,245,17,65,236,6,5,205,102,237
61 DATA 33,2,245,205,177,39,62,1,50,40,236,201,79,58,55,236:DATA 185,220,208,244,58,43,236,183,200,50,60,236,201,62,1,50:DATA 60,236,201,0,76,105,110,101,32,0,0,0,0,0,32,101:DATA 120,99,101,101,100,115,32,109,97,120,105,109,117,109,32,108
62 DATA 101,110,103,116,104,13,10,0,42,73,236,35,54,255,35,54:DATA 255,35,58,37,236,119,35,58,38,236,119,34,73,236,58,65:DATA 236,50,31,236,175,50,60,236,201,42,58,236,43,34,49,236:DATA 58,75,236,183,245,204,127,245,241,200,58,31,236,183,245,196
63 FORAA=ABTOAE:READIC:POKEAA,IC:NEXT:AB=62814:AE=62942:IFAB<A0THENA0=AB
64 IFAE>A1THENA1=AE
65 DATA 127,245,241,192,62,142,205,133,245,58,31,236,60,60,50,31:DATA 236,62,1,50,43,236,42,49,236,43,126,254,142,196,127,245:DATA 201,62,1,50,36,236,201,245,58,60,236,183,196,7,243,58:DATA 44,236,71,58,31,236,176,245,204,38,245,241,196,174,245,241
66 DATA 42,73,236,35,34,73,236,119,58,31,236,60,50,31,236,201:DATA 58,31,236,183,192,62,58,205,158,245,62,1,50,36,236,201:DATA 205,133,245,42,49,236,35,34,49,236,126,183,245,204,217,245:DATA 241,200,254,34,194,190,245,205,133,245,201,62,1,50,43,236
67 DATA 201:FORAA=ABTOAE:READIC:POKEAA,IC:NEXT:AB=62943:AE=62959:IFAB<A0THENA0=AB
68 IFAE>A1THENA1=AE
69 DATA 70,105,108,101,32,110,111,116,32,102,111,117,110,100,13,10:DATA 0:FORAA=ABTOAE:READIC:POKEAA,IC:NEXT:A2=60254:PRINT"START ADDRESS";A2:INPUT"NAME OF FILE FOR PROGRAM";SF$:SAVEMSF$,A0,A1,A2:END