1 REM Ins{nd av Gunnar Larsson <4876> 1986-05-10 18.16.47 100 ! Program Utvidgad BASIC 101 ! (c) P U G programutveckling 102 ! Gunnar Larsson 103 ! Hagebygatan 163 104 ! 603 62 Norrk|ping 105 ! Tele 011- 14 29 65 106 ! Ver 2.06 107 ! 1986-05-09 108 ! 109 ! H|r g{rna av er med kommentarer BUGGAR osv 110 ! 111 ! Provat p} ABC800/M, ABC802 112 ! F}r kopieras fritt f|r ICKE-komersiell anv{ndning 113 ! 114 INTEGER 115 EXTEND 116 Fil$='KEY800.BAC' ! "KEY.BAC" Kass18 117 Slask=FNPoke 118 Slask=CALL(32835) 119 ; CHR$(12) 120 ; 'Skriv help s} f}r du KORTFATTADE instruktiner' 121 ; 'f|r mer omfattande information L[S filen PUG800.INF' 122 ; 123 ; 'N}gra funktioner {r h{mtade fr}n PUL800 ' 124 ; ' ( RAD FIND INFO VISA )' 125 ; 126 INPUT 'Tryck p} RETN 'Svar$ 127 ON ERROR GOTO 129 128 CHAIN Fil$ 129 CHAIN 'NUL:' 130 END 131 DEF FNPoke 132 POKE 32835,195,228,141,195,0,0,195,0,0,195,0,0,195,0,0,195 133 POKE 32851,0,0,195,0,0,195,0,0,195,0,0,195,0,0,243,245 134 POKE 32867,197,213,229,58,212,131,254,0,40,26,58,245,255,254,0,32 135 POKE 32883,34,17,242,255,33,200,127,205,162,128,54,46,205,161,128,54 136 POKE 32899,46,205,161,128,58,35,255,203,87,40,8,58,236,128,254,0 137 POKE 32915,196,237,128,225,209,193,241,205,247,137,251,195,0,0,35,26 138 POKE 32931,19,14,255,12,214,10,48,251,71,121,198,48,119,35,120,198 139 POKE 32947,58,119,35,201,73,110,116,101,103,101,114,70,108,111,97,116 140 POKE 32963,32,32,78,111,32,101,120,116,101,110,100,83,105,110,103,108 141 POKE 32979,101,68,111,117,98,108,101,79,112,116,105,111,110,32,98,97 142 POKE 32995,115,101,32,68,105,103,105,116,115,0,17,128,127,253,203,29 143 POKE 33011,70,1,7,0,33,183,128,204,204,129,205,129,129,253,203,29 144 POKE 33027,78,1,9,0,33,208,129,204,217,129,205,129,129,253,203,30 145 POKE 33043,86,1,6,0,33,206,128,204,221,129,205,129,129,1,12,0 146 POKE 33059,33,218,128,237,176,253,126,34,254,2,212,241,129,48,4,246 147 POKE 33075,48,18,19,205,131,129,1,7,0,33,230,128,237,176,253,126 148 POKE 33091,31,254,100,212,240,129,48,10,111,38,0,62,255,8,175,205 149 POKE 33107,159,129,205,131,129,1,5,0,33,225,129,237,176,42,6,255 150 POKE 33123,237,75,10,255,167,237,66,242,115,129,42,14,255,167,237,66 151 POKE 33139,167,1,32,0,237,66,8,205,140,129,205,131,129,201,237,176 152 POKE 33155,1,3,0,33,230,129,237,176,201,175,1,240,216,205,168,129 153 POKE 33171,1,24,252,205,168,129,1,156,255,205,168,129,1,246,255,205 154 POKE 33187,168,129,125,24,29,213,30,255,28,167,237,74,56,250,237,66 155 POKE 33203,179,209,32,14,8,167,40,7,8,62,32,18,19,175,201,8 156 POKE 33219,175,201,246,48,18,19,62,48,201,33,190,128,201,32,69,120 157 POKE 33235,116,101,110,100,32,32,33,197,128,201,33,212,128,201,70,114 158 POKE 33251,101,101,32,32,127,32,54,63,35,54,63,35,201,235,235,205 159 POKE 33267,236,129,235,201,0,0,208,21,13,130,55,130,143,130,0,0 160 POKE 33283,208,0,11,130,11,130,12,130,255,255,205,133,117,134,145,134 161 POKE 33299,207,134,31,135,93,135,155,135,217,135,207,133,7,134,33,134 162 POKE 33315,58,134,149,141,231,137,239,137,99,132,195,132,154,133,36,132 163 POKE 33331,213,131,185,131,128,80,82,79,67,129,87,65,73,84,130,77 164 POKE 33347,79,131,68,82,132,77,70,133,72,68,134,83,70,135,85,70 165 POKE 33363,68,136,76,91,83,137,67,76,83,138,67,76,82,139,68,69 166 POKE 33379,86,140,73,78,86,141,68,79,69,68,142,78,79,69,68,143 167 POKE 33395,82,65,68,144,70,73,78,68,145,86,73,83,65,146,73,78 168 POKE 33411,70,79,147,67,76,75,148,72,69,76,80,255,185,130,185,130 169 POKE 33427,185,130,185,130,185,130,185,130,185,130,195,130,185,130,195,130 170 POKE 33443,195,130,195,130,195,130,195,130,195,130,195,130,190,130,185,130 171 POKE 33459,195,130,195,130,195,130,6,1,195,29,0,6,2,195,29,0 172 POKE 33475,201,80,32,85,32,71,32,32,112,114,111,103,114,97,109,117 173 POKE 33491,116,118,101,99,107,108,105,110,103,46,13,10,13,10,78,121 174 POKE 33507,97,32,107,111,109,109,97,110,100,111,110,32,58,32,32,32 175 POKE 33523,32,32,32,80,82,79,67,44,87,65,73,84,44,77,79,44 176 POKE 33539,68,82,44,77,70,44,72,68,44,13,10,32,32,32,32,32 177 POKE 33555,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 178 POKE 33571,83,70,44,85,70,68,44,76,91,83,44,67,76,83,44,67 179 POKE 33587,76,82,44,68,69,86,44,13,10,32,32,32,32,32,32,32 180 POKE 33603,32,32,32,32,32,32,32,32,32,32,32,32,32,32,73,78 181 POKE 33619,86,44,68,79,69,68,44,78,79,69,68,44,82,65,68,44 182 POKE 33635,70,73,78,68,44,13,10,32,32,32,32,32,32,32,32,32 183 POKE 33651,32,32,32,32,32,32,32,32,32,32,32,32,86,73,83,65 184 POKE 33667,44,73,78,70,79,44,67,76,75,44,72,69,76,80,13,10 185 POKE 33683,13,10,78,121,97,32,67,84,82,76,45,116,97,110,103,101 186 POKE 33699,110,116,101,114,32,58,32,81,44,65,44,90,44,87,44,83 187 POKE 33715,44,68,44,80,44,86,245,197,213,229,1,205,0,33,196,130 188 POKE 33731,205,11,0,1,40,0,33,145,131,205,11,0,225,209,193,241 189 POKE 33747,201,1,245,58,212,131,254,0,32,34,197,213,229,62,1,50 190 POKE 33763,212,131,33,128,127,17,129,127,1,80,0,54,32,237,176,62 191 POKE 33779,6,211,56,62,25,211,57,225,209,193,241,201,175,50,212,131 192 POKE 33795,197,213,229,17,201,127,33,200,127,54,32,1,8,0,237,176 193 POKE 33811,58,236,128,254,1,40,224,62,6,211,56,62,24,211,57,24 194 POKE 33827,214,245,58,236,128,254,0,32,15,62,1,50,236,128,62,6 195 POKE 33843,211,56,62,25,211,57,241,201,197,213,229,62,0,50,236,128 196 POKE 33859,33,128,127,17,129,127,1,80,0,54,32,237,176,225,209,193 197 POKE 33875,241,201,65,110,116,97,108,32,114,97,100,101,114,32,61,32 198 POKE 33891,221,229,221,42,6,255,221,126,20,254,135,221,225,40,2,215 199 POKE 33907,202,229,197,213,245,33,85,132,1,14,0,205,70,128,213,205 200 POKE 33923,73,128,35,17,0,0,6,0,62,1,78,185,40,4,19,9 201 POKE 33939,24,248,225,235,175,8,205,140,129,205,164,132,241,209,193,225 202 POKE 33955,201,175,50,82,255,195,76,128,0,0,49,50,51,52,53,32 203 POKE 33971,32,32,0,0,225,209,193,241,215,209,225,209,193,241,215,221 204 POKE 33987,221,229,221,42,6,255,221,126,20,221,225,254,135,40,2,215 205 POKE 34003,202,245,197,213,229,205,81,0,34,171,132,126,254,32,35,40 206 POKE 34019,250,35,35,35,35,126,254,32,35,40,250,43,126,254,39,40 207 POKE 34035,5,254,34,194,183,132,235,42,171,132,35,79,6,0,235,35 208 POKE 34051,126,254,13,40,20,185,40,5,4,18,19,24,242,205,85,128 209 POKE 34067,126,185,40,244,254,13,194,189,132,197,205,164,132,205,73,128 210 POKE 34083,35,126,254,1,32,9,205,164,132,193,225,209,193,241,201,17 211 POKE 34099,149,140,35,34,152,133,43,50,150,133,205,79,128,33,149,140 212 POKE 34115,14,255,62,32,237,177,205,82,128,229,42,171,132,35,235,225 213 POKE 34131,193,197,34,181,132,213,26,190,32,31,19,35,16,248,42,152 214 POKE 34147,133,126,35,102,111,17,173,132,62,255,8,205,140,129,1,8 215 POKE 34163,0,33,173,132,205,70,128,24,12,42,181,132,35,126,254,13 216 POKE 34179,40,3,209,24,203,209,42,152,133,43,58,150,133,79,6,0 217 POKE 34195,9,24,142,0,0,0,0,231,245,197,213,229,205,164,132,229 218 POKE 34211,205,88,128,62,255,8,205,140,129,19,19,19,19,225,229,126 219 POKE 34227,18,19,19,111,38,0,205,140,129,205,164,132,205,91,128,225 220 POKE 34243,35,254,32,40,218,225,209,193,241,201,231,201,231,213,235,205 221 POKE 34259,102,96,209,58,21,253,203,127,194,4,134,33,0,245,1,0 222 POKE 34275,0,126,254,32,242,237,133,62,127,119,230,127,254,32,250,234 223 POKE 34291,133,119,35,16,236,1,255,0,33,0,245,213,205,11,0,209 224 POKE 34307,201,215,42,201,62,32,50,0,120,33,0,120,213,17,1,120 225 POKE 34323,1,255,7,237,176,209,175,50,82,255,50,83,255,201,213,1 226 POKE 34339,1,0,33,57,134,17,0,0,205,253,127,33,0,0,1,0 227 POKE 34355,64,205,253,127,209,201,0,213,229,197,42,123,255,34,94,134 228 POKE 34371,35,35,126,254,32,202,93,134,250,93,134,1,3,0,205,11 229 POKE 34387,0,33,112,134,1,5,0,205,11,0,42,93,134,125,254,0 230 POKE 34403,194,64,134,124,254,0,194,64,134,193,225,209,201,58,32,32 231 POKE 34419,32,32,231,175,58,241,255,254,0,200,50,245,255,58,244,255 232 POKE 34435,79,124,181,200,58,244,255,185,40,247,79,43,24,243,231,245 233 POKE 34451,197,213,229,124,254,0,32,47,125,254,4,48,42,62,6,50 234 POKE 34467,79,136,1,15,0,237,67,164,136,62,1,50,111,136,17,12 235 POKE 34483,0,25,125,50,1,253,17,57,137,175,203,21,25,94,35,86 236 POKE 34499,235,1,6,0,205,46,136,225,209,193,241,201,231,245,197,213 237 POKE 34515,229,124,254,0,194,202,134,125,254,4,210,202,134,1,15,0 238 POKE 34531,237,67,164,136,125,50,1,253,237,75,107,96,10,22,0,95 239 POKE 34547,229,25,17,26,136,25,126,50,111,136,254,1,40,4,62,14 240 POKE 34563,24,2,62,6,50,79,136,225,17,57,137,175,203,21,25,94 241 POKE 34579,35,86,235,1,6,0,205,46,136,195,202,134,231,245,197,213 242 POKE 34595,229,124,254,0,194,202,134,125,254,4,210,202,134,1,15,0 243 POKE 34611,237,67,164,136,62,4,50,111,136,62,14,50,79,136,17,8 244 POKE 34627,0,25,125,50,1,253,17,57,137,175,203,21,25,94,35,86 245 POKE 34643,235,1,6,0,205,46,136,195,202,134,231,245,197,213,229,124 246 POKE 34659,254,0,194,202,134,125,254,4,210,202,134,1,15,0,237,67 247 POKE 34675,164,136,62,32,50,111,136,62,14,50,79,136,17,4,0,25 248 POKE 34691,125,50,1,253,17,57,137,175,203,21,25,94,35,86,235,1 249 POKE 34707,6,0,205,46,136,195,202,134,231,245,197,213,229,124,254,0 250 POKE 34723,194,202,134,125,254,4,210,202,134,1,15,0,237,67,164,136 251 POKE 34739,62,4,50,111,136,62,14,50,79,136,17,16,0,25,125,50 252 POKE 34755,1,253,17,57,137,175,203,21,25,94,35,86,235,1,6,0 253 POKE 34771,205,46,136,195,202,134,245,197,213,229,58,249,255,254,0,202 254 POKE 34787,202,134,50,1,253,22,0,95,33,26,136,25,126,50,111,136 255 POKE 34803,254,1,40,4,62,14,24,2,62,6,50,79,136,42,247,255 256 POKE 34819,175,17,1,0,237,82,34,164,136,33,217,137,1,6,0,205 257 POKE 34835,46,136,195,202,134,13,10,1,1,1,1,32,32,32,32,4 258 POKE 34851,4,4,4,1,1,1,1,4,4,4,4,205,11,0,58,84 259 POKE 34867,255,254,40,194,69,136,62,39,50,232,136,60,50,251,136,195 260 POKE 34883,78,136,62,79,50,232,136,61,50,251,136,17,6,0,205,102 261 POKE 34899,96,58,21,253,254,0,194,39,137,17,0,245,33,0,0,26 262 POKE 34915,254,255,40,15,6,8,203,39,56,6,197,1,1,0,9,193 263 POKE 34931,5,32,243,19,62,161,187,32,230,205,88,128,205,140,129,62 264 POKE 34947,13,50,82,255,33,146,136,1,17,0,205,11,0,24,17,76 265 POKE 34963,101,100,105,103,97,32,115,101,107,116,111,114,101,114,13,10 266 POKE 34979,33,15,0,6,8,197,35,229,235,205,102,96,33,4,245,6 267 POKE 34995,16,197,126,254,0,40,120,254,93,48,116,1,8,0,205,11 268 POKE 35011,0,229,33,223,137,1,1,0,205,11,0,1,3,0,225,205 269 POKE 35027,11,0,229,33,226,137,1,1,0,205,11,0,225,17,5,0 270 POKE 35043,25,58,82,255,254,39,194,247,136,229,33,226,137,1,1,0 271 POKE 35059,205,11,0,225,58,82,255,254,78,194,32,137,229,33,224,137 272 POKE 35075,1,2,0,205,11,0,225,58,83,255,254,23,194,247,136,205 273 POKE 35091,2,0,254,32,202,247,136,193,225,193,195,39,137,193,16,145 274 POKE 35107,225,193,16,129,62,128,50,226,255,62,13,50,227,255,201,17 275 POKE 35123,16,0,25,195,247,136,97,137,103,137,109,137,115,137,121,137 276 POKE 35139,127,137,133,137,139,137,169,137,175,137,181,137,187,137,145,137 277 POKE 35155,151,137,157,137,163,137,193,137,199,137,205,137,211,137,68,114 278 POKE 35171,48,58,32,32,68,114,49,58,32,32,68,114,50,58,32,32 279 POKE 35187,68,114,51,58,32,32,72,100,48,58,32,32,72,100,49,58 280 POKE 35203,32,32,72,100,50,58,32,32,72,100,51,58,32,32,77,111 281 POKE 35219,48,58,32,32,77,111,49,58,32,32,77,111,50,58,32,32 282 POKE 35235,77,111,51,58,32,32,77,102,48,58,32,32,77,102,49,58 283 POKE 35251,32,32,77,102,50,58,32,32,77,102,51,58,32,32,83,102 284 POKE 35267,48,58,32,32,83,102,49,58,32,32,83,102,50,58,32,32 285 POKE 35283,83,102,51,58,32,32,85,102,100,58,32,32,46,13,10,32 286 POKE 35299,48,48,48,48,245,62,0,50,247,137,241,201,245,62,201,50 287 POKE 35315,247,137,241,201,0,245,197,213,229,33,227,255,126,254,1,202 288 POKE 35331,197,139,254,19,202,232,139,254,23,202,104,140,254,26,202,125 289 POKE 35347,140,254,17,202,181,139,254,22,202,77,139,254,16,202,50,138 290 POKE 35363,254,9,202,11,140,254,4,202,219,138,225,209,193,241,201,54 291 POKE 35379,0,43,54,128,58,82,255,254,0,202,158,138,17,80,0,33 292 POKE 35395,0,120,58,83,255,254,0,202,81,138,71,25,16,253,58,82 293 POKE 35411,255,254,0,202,93,138,71,35,16,253,35,205,205,138,194,155 294 POKE 35427,138,43,126,254,32,194,119,138,35,35,205,205,138,194,155,138 295 POKE 35443,43,195,101,138,87,54,32,35,126,95,35,205,205,138,194,155 296 POKE 35459,138,122,43,119,83,35,122,254,32,202,146,138,195,123,138,126 297 POKE 35475,254,32,202,155,138,195,124,138,195,45,138,58,83,255,95,62 298 POKE 35491,23,147,33,80,0,40,10,71,33,0,0,17,80,0,25,16 299 POKE 35507,253,229,193,33,47,127,17,127,127,237,184,205,88,128,235,6 300 POKE 35523,80,62,32,119,35,16,252,195,155,138,1,128,128,175,229,9 301 POKE 35539,125,225,208,254,0,200,60,201,54,0,43,54,128,58,82,255 302 POKE 35555,254,0,202,35,139,205,88,128,235,35,126,43,119,254,32,194 303 POKE 35571,255,138,35,205,205,138,194,32,139,195,236,138,205,205,138,194 304 POKE 35587,32,139,84,93,35,205,205,138,194,32,139,126,18,254,32,202 305 POKE 35603,24,139,195,255,138,35,126,254,32,43,194,255,138,195,45,138 306 POKE 35619,58,83,255,95,62,24,147,71,33,0,0,17,80,0,25,16 307 POKE 35635,253,229,205,88,128,33,80,0,25,193,237,176,33,48,127,6 308 POKE 35651,80,62,32,119,35,16,252,195,32,139,54,0,43,54,128,33 309 POKE 35667,0,120,213,17,80,0,197,58,83,255,254,0,202,102,139,71 310 POKE 35683,25,16,253,58,82,255,254,0,202,114,139,71,35,16,253,34 311 POKE 35699,179,139,193,209,42,145,255,34,177,139,33,140,139,34,145,255 312 POKE 35715,42,179,139,34,175,139,195,45,138,229,42,175,139,126,35,34 313 POKE 35731,175,139,225,254,32,192,229,42,175,139,126,254,32,194,171,139 314 POKE 35747,42,177,139,34,145,255,227,201,43,126,225,201,0,0,0,0 315 POKE 35763,0,0,54,0,43,54,128,33,82,255,54,0,35,54,0,195 316 POKE 35779,45,138,54,0,43,54,128,33,82,255,126,254,0,202,216,139 317 POKE 35795,61,119,195,45,138,35,126,254,0,202,45,138,61,119,62,79 318 POKE 35811,43,119,195,45,138,54,0,43,54,128,33,82,255,126,254,79 319 POKE 35827,202,251,139,60,119,195,45,138,35,126,254,23,202,45,138,60 320 POKE 35843,119,62,0,43,119,195,45,138,54,0,43,54,128,33,82,255 321 POKE 35859,126,254,79,202,45,138,205,42,140,254,0,194,45,138,33,82 322 POKE 35875,255,126,60,119,195,45,138,33,0,120,213,17,80,0,197,58 323 POKE 35891,83,255,254,0,202,62,140,71,25,16,253,58,82,255,254,0 324 POKE 35907,202,74,140,71,35,16,253,126,254,32,202,87,140,33,227,255 325 POKE 35923,119,193,209,201,35,126,254,32,194,99,140,62,0,195,80,140 326 POKE 35939,43,126,195,80,140,54,0,43,54,128,58,83,255,254,0,202 327 POKE 35955,45,138,61,33,83,255,119,195,45,138,54,0,43,54,128,33 328 POKE 35971,83,255,126,254,23,202,45,138,60,119,195,45,138,0,0,0 329 POKE 35987,0,0 330 POKE 36245,245,213,229,197,62,65,17,0,0,237,83,144,140,237,83,146 331 POKE 36261,140,50,148,140,1,255,0,17,149,140,42,144,140,205,253,127 332 POKE 36277,1,255,0,34,144,140,33,149,140,126,238,255,119,35,16,249 333 POKE 36293,1,255,0,237,91,146,140,33,149,140,205,253,127,237,83,146 334 POKE 36309,140,58,148,140,61,254,0,194,166,141,193,225,209,241,201,229 335 POKE 36325,33,228,141,34,12,255,34,48,255,42,125,255,34,247,129,33 336 POKE 36341,247,129,34,125,255,42,127,255,34,1,130,33,1,130,34,127 337 POKE 36357,255,42,214,255,34,159,128,33,97,128,34,214,255,205,7,134 338 POKE 36373,245,62,6,211,56,62,25,211,57,213,33,46,142,1,44,0 339 POKE 36389,17,138,127,237,176,209,241,225,201,80,32,85,32,71,32,32 340 POKE 36405,112,114,111,103,114,97,109,117,116,118,101,99,107,108,105,110 341 POKE 36421,103,46,32,84,101,108,101,32,32,48,49,49,45,49,52,32 342 POKE 36437,50,57,32,54,53 343 A$='' 344 POKE VAROOT(A$),0,128,0,0,0,128 345 A=INSTR(1,A$,CHR$(221,229,221,33,76,255))-1 ! conwr 346 POKE 32839,A,SWAP%(A) 347 A=68 348 POKE 32842,A,SWAP%(A) 349 A=INSTR(1,A$,CHR$(58,83,255,60,254))-1 ! crlf2 350 POKE 32845,A,SWAP%(A) 351 A=INSTR(1,A$,CHR$(6,0,72,197,229))-1 ! Tillbaka 352 POKE 32848,A,SWAP%(A) 353 A=INSTR(1,A$,CHR$(43,35,126,254,32,40,250,167))-1 ! Skipspc 354 POKE 32851,A,SWAP%(A) 355 A=A+1 356 POKE 32854,A,SWAP%(A) 357 A=INSTR(1,A$,CHR$(58,82,255,221,190,8))-1 ! Curpos 358 POKE 32857,A,SWAP%(A) 359 A=65424 ! Get tkn 360 POKE 32860,A,SWAP%(A) 361 A=INSTR(1,A$,CHR$(66,75,17,0,0,213))-4 ! S|krad 362 POKE 32863,A,SWAP%(A) 363 RETURN 0 364 FNEND