10 REM --------------- 11 REM Testprogramm 1 12 REM --------------- 13 GOSUB 100: S=0 14 FOR i = 100 TO 500 15 READ d 16 s=s+d 17 NEXT i 18 PRINT s 19 IF s=120300THENPRINT "Test PASS!" ELSE PRINT "Test FAIL!" 20 END 21 REM --------------- 100 DATA100 101 DATA101 102 DATA102 103 DATA103 104 DATA104 105 DATA105 106 DATA106 107 DATA107 108 DATA108 109 DATA109 110 DATA110 111 DATA111 112 DATA112 113 DATA113 114 DATA114 115 DATA115 116 DATA116 117 DATA117 118 DATA118 119 DATA119 120 DATA120 121 DATA121 122 DATA122 123 DATA123 124 DATA124 125 DATA125 126 DATA126 127 DATA127 128 DATA128 129 DATA129 130 DATA130 131 DATA131 132 DATA132 133 DATA133 134 DATA134 135 DATA135 136 DATA136 137 DATA137 138 DATA138 139 DATA139 140 DATA140 141 DATA141 142 DATA142 143 DATA143 144 DATA144 145 DATA145 146 DATA146 147 DATA147 148 DATA148 149 DATA149 150 DATA150 151 DATA151 152 DATA152 153 DATA153 154 DATA154 155 DATA155 156 DATA156 157 DATA157 158 DATA158 159 DATA159 160 DATA160 161 DATA161 162 DATA162 163 DATA163 164 DATA164 165 DATA165 166 DATA166 167 DATA167 168 DATA168 169 DATA169 170 DATA170 171 DATA171 172 DATA172 173 DATA173 174 DATA174 175 DATA175 176 DATA176 177 DATA177 178 DATA178 179 DATA179 180 DATA180 181 DATA181 182 DATA182 183 DATA183 184 DATA184 185 DATA185 186 DATA186 187 DATA187 188 DATA188 189 DATA189 190 DATA190 191 DATA191 192 DATA192 193 DATA193 194 DATA194 195 DATA195 196 DATA196 197 DATA197 198 DATA198 199 DATA199 200 DATA200 201 DATA201 202 DATA202 203 DATA203 204 DATA204 205 DATA205 206 DATA206 207 DATA207 208 DATA208 209 DATA209 210 DATA210 211 DATA211 212 DATA212 213 DATA213 214 DATA214 215 DATA215 216 DATA216 217 DATA217 218 DATA218 219 DATA219 220 DATA220 221 DATA221 222 DATA222 223 DATA223 224 DATA224 225 DATA225 226 DATA226 227 DATA227 228 DATA228 229 DATA229 230 DATA230 231 DATA231 232 DATA232 233 DATA233 234 DATA234 235 DATA235 236 DATA236 237 DATA237 238 DATA238 239 DATA239 240 DATA240 241 DATA241 242 DATA242 243 DATA243 244 DATA244 245 DATA245 246 DATA246 247 DATA247 248 DATA248 249 DATA249 250 DATA250 251 DATA251 252 DATA252 253 DATA253 254 DATA254 255 DATA255 256 DATA256 257 DATA257 258 DATA258 259 DATA259 260 DATA260 261 DATA261 262 DATA262 263 DATA263 264 DATA264 265 DATA265 266 DATA266 267 DATA267 268 DATA268 269 DATA269 270 DATA270 271 DATA271 272 DATA272 273 DATA273 274 DATA274 275 DATA275 276 DATA276 277 DATA277 278 DATA278 279 DATA279 280 DATA280 281 DATA281 282 DATA282 283 DATA283 284 DATA284 285 DATA285 286 DATA286 287 DATA287 288 DATA288 289 DATA289 290 DATA290 291 DATA291 292 DATA292 293 DATA293 294 DATA294 295 DATA295 296 DATA296 297 DATA297 298 DATA298 299 DATA299 300 DATA300 301 DATA301 302 DATA302 303 DATA303 304 DATA304 305 DATA305 306 DATA306 307 DATA307 308 DATA308 309 DATA309 310 DATA310 311 DATA311 312 DATA312 313 DATA313 314 DATA314 315 DATA315 316 DATA316 317 DATA317 318 DATA318 319 DATA319 320 DATA320 321 DATA321 322 DATA322 323 DATA323 324 DATA324 325 DATA325 326 DATA326 327 DATA327 328 DATA328 329 DATA329 330 DATA330 331 DATA331 332 DATA332 333 DATA333 334 DATA334 335 DATA335 336 DATA336 337 DATA337 338 DATA338 339 DATA339 340 DATA340 341 DATA341 342 DATA342 343 DATA343 344 DATA344 345 DATA345 346 DATA346 347 DATA347 348 DATA348 349 DATA349 350 DATA350 351 DATA351 352 DATA352 353 DATA353 354 DATA354 355 DATA355 356 DATA356 357 DATA357 358 DATA358 359 DATA359 360 DATA360 361 DATA361 362 DATA362 363 DATA363 364 DATA364 365 DATA365 366 DATA366 367 DATA367 368 DATA368 369 DATA369 370 DATA370 371 DATA371 372 DATA372 373 DATA373 374 DATA374 375 DATA375 376 DATA376 377 DATA377 378 DATA378 379 DATA379 380 DATA380 381 DATA381 382 DATA382 383 DATA383 384 DATA384 385 DATA385 386 DATA386 387 DATA387 388 DATA388 389 DATA389 390 DATA390 391 DATA391 392 DATA392 393 DATA393 394 DATA394 395 DATA395 396 DATA396 397 DATA397 398 DATA398 399 DATA399 400 DATA400 401 DATA401 402 DATA402 403 DATA403 404 DATA404 405 DATA405 406 DATA406 407 DATA407 408 DATA408 409 DATA409 410 DATA410 411 DATA411 412 DATA412 413 DATA413 414 DATA414 415 DATA415 416 DATA416 417 DATA417 418 DATA418 419 DATA419 420 DATA420 421 DATA421 422 DATA422 423 DATA423 424 DATA424 425 DATA425 426 DATA426 427 DATA427 428 DATA428 429 DATA429 430 DATA430 431 DATA431 432 DATA432 433 DATA433 434 DATA434 435 DATA435 436 DATA436 437 DATA437 438 DATA438 439 DATA439 440 DATA440 441 DATA441 442 DATA442 443 DATA443 444 DATA444 445 DATA445 446 DATA446 447 DATA447 448 DATA448 449 DATA449 450 DATA450 451 DATA451 452 DATA452 453 DATA453 454 DATA454 455 DATA455 456 DATA456 457 DATA457 458 DATA458 459 DATA459 460 DATA460 461 DATA461 462 DATA462 463 DATA463 464 DATA464 465 DATA465 466 DATA466 467 DATA467 468 DATA468 469 DATA469 470 DATA470 471 DATA471 472 DATA472 473 DATA473 474 DATA474 475 DATA475 476 DATA476 477 DATA477 478 DATA478 479 DATA479 480 DATA480 481 DATA481 482 DATA482 483 DATA483 484 DATA484 485 DATA485 486 DATA486 487 DATA487 488 DATA488 489 DATA489 490 DATA490 491 DATA491 492 DATA492 493 DATA493 494 DATA494 495 DATA495 496 DATA496 497 DATA497 498 DATA498 499 DATA499 500 DATA500 510 RETURN