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