Een aantal tekens uit de CBM-tekenset resulteren op de PC in een teken met een ascii-waarde < 32, deze zijn hier vervangen door een -teken. Veel andere tekens zien er op een PC uiteraard ook anders uit, maar de basic-commando's zijn wel gewoon te lezen. 1 REM GOSUB9999 2 PRINT"STOP DE TAPE-RECORDER" 3 PRINT"EVEN GEDULD A.U.B. VOOR INLEZEN VAN DATA" 4 PRINT"UW TREIN KAN OVER 70 SECONDEN VERTREKKEN" 5 GOSUB567 6 POKE53280,6:POKE53281,6:POKE54296,0:DEMO=0 7 PRINT"";SPC(15);"@ 1984" 8 PRINT" A A C K 0 S 0 F T PRESENTEERT" 9 POKE50274,PEEK(853)*5.5:POKE50278,PEEK(50274) 10 PRINT" DE" 11 POKE53269,0 12 PRINT" Β Β Β Β Β Β Β Β" 13 PRINT" " 14 PRINT" Β Ξ Ξ Πη "; 15 PRINT" Ξ " 16 PRINT" "; 17 PRINT" " 18 PRINT" ߐΒ Β "; 19 PRINT" ߐΒ" 20 PRINT" "; 21 PRINT" " 22 PRINT" DOOR H.J. VAN STRAATEN" 23 PRINT"OOK VERKRYGBAAR VOOR DE 48-K SPECTRUM" 24 PRINT" DRUK EEN TOETS" 25 IFHS>1THENPRINT"RECORD AFSTAND =";INT(HS*1000)/1000;"KM" 26 IFPEEK(197)=64THEN26 27 REM CABINE OPZET 28 POKE53280,0:POKE53281,0 29 PRINT"" 30 PRINT" ߐ "; 31 PRINT" "; 32 PRINT" ߷ "; 33 PRINT" ’ ߷ "; 34 PRINT" [\ ’ "; 35 PRINT" ]' ’ "; 36 PRINT" #+ "; 37 PRINT" "; 38 PRINT" ʰ נ ͷ "; 39 PRINT" ئ #$$$$% ئ ܘ ߷ "; 40 PRINT" ɷ "; 41 PRINT" ̯ ";:IFDEMO=1THENRETURN 42 PRINT" Șנɠ ͒ "; 43 PRINT" Η ˜ ѥ "; 44 PRINT" ͗ ɗ — "; 45 PRINT" ͞ ɗԷї "; 46 PRINT" ѷ ɗ̯ "; 47 PRINT" ߒ "; 48 PRINT" ";:IFDEMO=2THENRETURN 49 PRINT" "; 50 PRINT" "; 51 PRINT" "; 52 PRINT" ߷ ߷ "; 53 PRINT"I = INSTRUCTIES : RETURN IS TITEL PAGINA" 54 GOSUB181 55 V=0:VV=0:R=2:DD=0 56 SIG=40:ATB=120:CO=4 57 BEL=0:BL=0:SE=0 58 AF=0:CO=4:RY=0 59 TA=0:PR=0 60 IFRR<>157THENGOSUB610 61 GOSUB63 62 GOTO159 63 REM SNELHEIDSKEUZE 64 IFDD=0ANDPEEK(197)=18THEN397 65 IFPEEK(197)=38THENPOKE55712,6:DD=0 66 IFPEEK(197)=33THEN416 67 U=VV 68 IFPEEK(197)=1THEN6 69 IFR=2THEN72 70 IFR=1ANDVV>1THEN72 71 GOTO84 72 REM 73 IFPEEK(197)=64THEN82 74 IFPEEK(197)=11THENV=40 75 IFPEEK(197)=19THENV=60 76 IFPEEK(197)=24THENV=70 77 IFPEEK(197)=27THENV=80 78 IFPEEK(197)=32THENV=90 79 IFPEEK(197)=35THENV=100 80 IFPEEK(197)=56THENV=110 81 IFPEEK(197)=59THENV=120 82 PRINT""INT(V);" " 83 REM 84 REM RY/REM/HANDEL 85 IFPEEK(197)>7THEN100 86 IFPEEK(197)<>4THEN89 87 R=1:POKE50682,81:POKE50722,66:POKE50762,66:POKE50802,109 88 POKE50564,92:POKE55720,6 89 IFPEEK(197)<>5THEN92 90 R=2:POKE50682,122:POKE50722,81:POKE50762,66:POKE50802,109 91 POKE50564,92:POKE55720,6:POKE50551,92 92 IFPEEK(197)<>6THEN96 93 R=3:POKE50682,122:POKE50722,32:POKE50762,81:POKE50802,109 94 POKE50564,90:POKE55720,7:V=0 95 PRINT""INT(V);" " 96 IFPEEK(197)<>3THEN100 97 R=4:POKE50682,122:POKE50722,32:POKE50762,32:POKE50802,81 98 POKE50564,102:POKE55720,7:V=0 99 PRINT""INT(V);" " 100 IFTA=1ANDVV=0THENGOTO403 101 IFV=0ANDVV=0ANDSE=0THEN63 102 IFVV=0ANDPEEK(50722)=81THEN63 103 IFR=1ANDV=0ANDVV>1THEN126 104 IFDD=0THEN318 105 IFSE=1THEN109 106 IFV>ATBTHEN109 107 PRINT" ";" ";" "; 108 PRINT" ";" ";" " 109 IFSE=1THENPRINT"";10*SIG;"M " 110 IFSE1ANDVV=0THENGOSUB392:GOTO253 111 IFU>0THEN113 112 PRINT" ":U=1 113 IFTA=1THENGOSUB359 114 ONRGOTO115,126,131,136 115 IFVV>VTHEN119 116 IFVVVTHENVV=V 118 GOTO121 119 IFVV>VANDV>1THENVV=VV-4 120 IFVV>VTHENPOKE1412,102 121 IFVV0THENPOKE50551,90 123 IFVV=VTHENPOKE50564,92 124 IFVV>VTHENPOKE50551,92 125 GOTO141 126 IFV10THEN119 127 VV=VV-.2 128 IFVV<0THENVV=O 129 POKE50551,92 130 GOTO141 131 V=0:VV=VV-2:IFPEEK(850)<>69THENVV=VV+1 132 IFVV<0THENVV=0 133 POKE50551,92 134 PRINT""INT(V);" " 135 GOTO141 136 V=0:VV=VV-4:IFPEEK(849)=32THENVV=VV+3 137 IFVV<0THENVV=0 138 POKE50551,92 139 PRINT""INT(V);" " 140 GOTO141 141 REM VV-METER 142 KM=INT(VV+10)/10:PRINT"" 143 ONKMGOTO144,144,145,146,147,148,149,150,151,152,153,154,155 144 PRINT"#$$$$%":GOTO156 145 PRINT"&$$$$%":GOTO156 146 PRINT"'($$$%":GOTO156 147 PRINT"')$$$%":GOTO156 148 PRINT"'*($$%":GOTO156 149 PRINT"'*)$$%":GOTO156 150 PRINT"'**($%":GOTO156 151 PRINT"'**)$%":GOTO156 152 PRINT"'***(%":GOTO156 153 PRINT"'***)%":GOTO156 154 PRINT"'****+":GOTO156 155 PRINT"'****,":GOTO156 156 IFTA=0THENSIG=SIG-1:IFSIG<0THENGOTO251 157 REM 158 RETURN 159 REM RY-SIMULATIE 160 IFRR+PEEK(853)=183THEN162 161 FORS=1TO5:POKE848+S,32:NEXT 162 FORN=1TO8 163 IFSIG/2<>INT(SIG/2)THEN166 164 FORT=1TO2:S=54272:POKES+8,INT((VV+10)/10):POKES+12,4:POKES+24,15 165 POKE54283,0:POKES+11,129:FORU=1TO15+(120-VV):NEXT:NEXT 166 IFVV2THENPOKE54290,0:GOTO170 167 S=54272:POKES+15,30:POKES+19,9:POKES+24,15:POKES+14,0 168 POKE54290,0:POKES+18,17:BL=1 169 BEL=BEL+1:IFBEL=4THEN331 170 IFV=ATBORR>2THENAF=AF+.03 171 IFBL=1ANDVV<=ATBTHEN173 172 GOTO175 173 FORJ=1TO3:S=54272:POKES+15,68:POKES+19,9:POKES+24,15:POKES+14,149 174 POKE54290,0:POKES+18,17:FORE=1TO50:NEXT:NEXT:BL=0 175 REM 176 FORP=0TO(300-2.5*VV):NEXTP 177 ONNGOSUB181,189,198,207,216,225,233,241 178 GOSUB63 179 NEXTN 180 GOTO159 181 PRINT" > > >" 182 PRINT" > > >>" 183 PRINT" > > >>>" 184 PRINT" > > >>>>" 185 PRINT" > > >>> " 186 PRINT" > > >> ]'" 187 PRINT" > > > #+" 188 RETURN 189 PRINT" > " 190 PRINT" > ?" 191 PRINT" > ??" 192 PRINT" > ???" 193 PRINT" > ??" 194 PRINT" > ? ^(" 195 PRINT" > $," 196 PRINT" >" 197 RETURN 198 PRINT" > > " 199 PRINT"> > > " 200 PRINT" > > > " 201 PRINT" > > > " 202 PRINT" > > > " 203 PRINT" > > > _)" 204 PRINT" > > > %-" 205 PRINT" > ":PRINT" >" 206 RETURN 207 PRINT" > " 208 PRINT" > " 209 PRINT"> > " 210 PRINT"> > " 211 PRINT"> > " 212 PRINT"> > !*" 213 PRINT"> > &." 214 PRINT"> ":PRINT"> ":PRINT">" 215 RETURN 216 PRINT" > > " 217 PRINT" > > " 218 PRINT" > > " 219 PRINT" > > " 220 PRINT" > > " 221 PRINT" > > ]'" 222 PRINT" > > #+" 223 PRINT" ":PRINT" ":PRINT" " 224 RETURN 225 PRINT" > " 226 PRINT" > " 227 PRINT" > " 228 PRINT" > " 229 PRINT" > " 230 PRINT" > ^(" 231 PRINT" > $," 232 RETURN 233 PRINT" > > " 234 PRINT" > > " 235 PRINT" > > " 236 PRINT" > > " 237 PRINT" > > ķ" 238 PRINT" > > ķ _)" 239 PRINT" > > %-" 240 RETURN 241 PRINT" > " 242 PRINT" > " 243 PRINT" > " 244 PRINT" > " 245 PRINT" > " 246 PRINT" > !*" 247 PRINT" > &." 248 RETURN 249 GETA$:IFA$=""THEN249 250 GOTO181 251 REM ATB BEDRYF 252 IFSE=1ANDVV>0THENRY=1:GOTO331 253 BEL=0 254 IFCO=5THEN282 255 CO=INT(4*RND(1))+1 256 SE=0 257 ONCOGOTO258,263,269,275,282 258 IFVV>0ANDINT(2*RND(1))=1THENTA=1:CO=4:GOTO275 259 PRINT"[ \";" ";" "; 260 PRINT" ";"] _";" " 261 CO=5 262 GOTO286 263 PRINT"[ \";" ";" "; 264 PRINT" ";"]6_";" " 265 ATB=60:SIG=20 266 IFATB64THEN328 329 IFPEEK(197)=64THEN329 330 GOTO28 331 REM ATB-REMOPDRACHT 332 S=54272:POKES+8,17:POKES+12,15:POKES+24,15:POKES+7,37 333 POKE54283,0:POKES+11,129 334 FORM=1TO100:POKE53280,INT(16*RND(1)) 335 NEXT:POKE53280,0 336 IFRY=1THEN313 337 PRINT"NIET TYDIG GEREMD" 338 PRINT"L E V E N S G E V A A R L Y K" 339 PRINT"U LEGDE ";INT(AF*1000)/1000;" KM AF."; 340 IFAF>HSTHENHS=AF 341 IFPEEK(197)=64THEN341 342 GOTO6 343 REM DEUREN SLUITEN 344 FORO=1TO50 345 S=54272:POKES+15,102:POKES+19,64:POKES+24,15:POKES+14,194 346 POKE54290,0:POKES+18,33 347 NEXT 348 FORW=1TO500:NEXT 349 S=54272:POKES+15,43:POKES+19,12:POKES+24,15:POKES+14,52 350 POKE54290,0:POKES+18,17 351 FORW=1TO1000:NEXT 352 S=54272:POKES+15,34:POKES+19,12:POKES+24,15:POKES+14,75 353 POKE54290,0:POKES+18,17 354 FORW=1TO1000:NEXT 355 PRINT" ";"" 356 POKE55712,5:DD=1:GOTO402 357 STOP 358 REM SPRITES 359 PR=PR+1:IFPR/4<>INT(PR/4)THENRETURN 360 IFPR>24THEN374 361 ONPR/4GOTO362,364,366,368,370,372 362 POKE53269,128 363 GOTO374 364 POKE53269,192 365 GOTO374 366 POKE53269,224 367 GOTO374 368 POKE53269,240 369 GOTO374 370 POKE53269,248 371 GOTO374 372 POKE53269,252 373 GOTO374 374 IFPR<28THENRETURN 375 IFPR>48THEN388 376 ON(PR-24)/4GOTO377,379,381,383,385,387 377 POKE53269,124 378 GOTO388 379 POKE53269,60 380 GOTO388 381 POKE53269,28 382 GOTO388 383 POKE53269,12 384 GOTO388 385 POKE53269,4 386 GOTO388 387 POKE53269,0 388 IFPR>56THEN412 389 RETURN 390 RETURN 391 STOP 392 REM PASSERENDE TREIN 393 POKE53269,2 394 FORXX=0TO255:POKE53250,XX:NEXTXX 395 POKE53264,2:FORXX=0TO63:POKE53250,XX:NEXTXX:POKE53269,0:POKE53264,0 396 RETURN 397 REM SPIEGEL 398 POKE53264,1 :REM X=255 399 POKE53269,1 :REM SPR AAN 400 PRINT"߷ ";"" 401 GOTO343 402 POKE53269,0:POKE53264,0:GOTO65 403 REM STATIONS CONTROLE 404 IFPR>=44ANDPR<=52ANDVV=0THENTA=0:PR=0:DD=O:POKE55712,6:RETURN 405 POKE53269,0 406 PRINT" DE TREIN STAAT NIET HELEMAAL" 407 PRINT" LANGS HET PERRON." 408 PRINT" U KRYGT EEN NIEUWE KANS MAAR UW SCORE" 409 PRINT" WORDT NU OP 0 KM GEZET!" 410 FORPV=1TO5000:NEXT:GOTO27 411 STOP 412 PRINT" U BENT EEN STATION VOORBY GEREDEN" 413 PRINT" EN DAT WORDT NIET GETOLEREERD." 414 GOTO339 415 STOP 416 REM INSTRUKTIES 417 POKE53280,7:POKE53281,7 418 PRINT""SPC(13);"DE SPRINTER" 419 PRINT"DIT SPEL TOONT U DE COMPLETE CABINE VAN EEN SPRINTER EN HET "; 420 PRINT"UITZICHT VAN DE MACHINIST OP DE BAAN." 421 PRINT"U MOET PROBEREN MET DIT TREINSTEL ZOVEELMOGELYK KILOMETERS AF TE "; 422 PRINT"LEGGEN." 423 PRINT"DE KILOMETERTELLER WERKT NIET ALS U EEN LAGERE SNELHEID KIEST DAN "; 424 PRINT"IS TOEGESTAAN." 425 PRINT"AAN HET BEGIN VAN DE RIT MAG MET 120KM/UVERTROKKEN WORDEN." 426 GOSUB558 427 PRINT"DE SPRINTER HEEFT EEN AANTAL TYPISCHE EIGENSCHAPPEN WAARDOOR HY "; 428 PRINT"ZICH ONDER-":PRINT"SCHEIDT VAN ALLE ANDERE TREINSTELLEN." 429 PRINT"DE VOLGENDE 3 ZYN VOOR U VAN BELANG:" 430 PRINT"1 RYDEN EN REMMEN D.M.V. 1 HANDEL DE RY-/REMHANDEL" 431 PRINT"2 AUTOMATISCHE SNELHEIDSREGELING D.M.V. DRUKKNOPPEN" 432 PRINT"3 CENTRALE DEUR-BEDIENING DOOR DE MACHINIST" 433 GOSUB558:POKE53280,14:POKE53281,14 434 PRINT" RY-/REMHANDEL ":PRINT"DEZE HANDEL KUNT U D.M.V. DE FUNCTIE-" 435 PRINT"TOETSEN IN 4 STANDEN PLAATSEN." 436 PRINT"TE WETEN:":PRINT"F1 = HANDEL GEHEEL NAAR VOREN." 437 PRINT" RESULTAAT:":PRINT" ALS SNELHEIDSKEUZE GEMAAKT IS ZAL" 438 PRINT" DE TREIN ZICH IN BEWEGING ZETTEN. DE REMMEN ZYN DAN LOS"; 439 PRINT" EN DE REMLAMP IS UIT." 440 PRINT" DE AMPEREMETER WYST EEN HOGE STROOM DOOR DE MOTOREN AAN." 441 PRINT" ALS DE GEKOZEN SNELHEID BEREIKT IS ZAKT DE STROOM IETS TERUG." 442 PRINT" NB. ALS DE HANDEL IN DEZE STAND STAAT KUNT U MITS DE "; 443 PRINT"TREIN RYDT EEN ANDERE SNELHEID KIEZEN.":GOSUB558 444 PRINT"F3 = 2E OF NEUTRALE STAND.":PRINT" RESULTAAT:" 445 PRINT" DE REMMEN ZYN LOS EN DE REMLAMP IS UIT." 446 PRINT" DE MOTOREN ZYN UITGESCHAKELD." 447 PRINT" ALS U DEZE STAND TYDENS DE RIT KIEST RYDT DE TREIN LANG"; 448 PRINT"ZAAM UIT." 449 PRINT" NB. ALS DE HANDEL IN DEZE STAND STAAT KUNT U"; 450 PRINT" SNELHEID KIEZEN." 451 PRINT"F5 = 3E OF REMSTAND.":PRINT" RESULTAAT:" 452 PRINT" DE MOTOREN WORDEN UITGESCHAKELD." 453 PRINT" ER STROOMT LUCHT NAAR DE REM- CILINDERS. DE REM"; 454 PRINT"CILINDERDRUKMETER GAAT AANWYZEN." 455 PRINT"F7 = 4E STAND." 456 PRINT" RESULTAAT:":PRINT" ALS F5 MAAR MET" 457 PRINT" STERKERE REMWERKING."; 458 GOSUB559 459 POKE53280,8:POKE53281,8 460 PRINT" SNELHEIDSKEUZE-KNOPPEN" 461 PRINT"MIDDEN OP DE STUURTAFEL BEVINDEN ZICH DE8 DRUKKNOPPEN VOOR DE "; 462 PRINT"SNELHEIDSKEUZE." 463 PRINT"DE VOLGENDE KEUZES KUNNEN GEMAAKT WORDEN" 464 PRINT" 40 KM = TOETS 4 OP DE COMMODORE":PRINT" 60 KM = TOETS 6 " 465 PRINT" 70 KM = TOETS 7":PRINT" 80 KM = TOETS 8":PRINT" 90 KM = TOETS 9" 466 PRINT"100 KM = TOETS 0":PRINT"110 KM = TOETS 1":PRINT"120 KM = TOETS 2" 467 PRINT"DE RY-/REMHANDEL MAG NIET IN EEN REMSTAND STAAN. 468 GOSUB558:POKE53280,5:POKE53281,5 469 PRINT" CENTRALE DEURBEDIENING" 470 PRINT"MIDDEN BOVEN DE 8 KEUZEKNOPPEN ZYN 2 KNOPPEN VOOR DE DEUR"; 471 PRINT"BEDIENING":PRINT"AANGEBRACHT." 472 PRINT"VOOR DAT U VERTREKT MOET U DE DEUREN D.M.V. TOETS D SLUITEN." 473 PRINT"DE REIZIGERS WORDEN DAN DOOR EEN FLUIT- SIGNAAL GEWAARSCHUWD EN IN "; 474 PRINT"DE CABINE":PRINT"KLINKT EEN DING-DONG." 475 PRINT"WANNEER DE DEUREN GESLOTEN ZYN GAAT OP HET METERPANEEL EEN "; 476 PRINT"GROENE LAMP BRANDEN." 477 PRINT"U KUNT DE DEUREN OPENEN DOOR TOETS O IN TE DRUKKEN." 478 PRINT"VIA DE UITKLAPPENDE SPIEGEL IS DE ZYKANT"; 479 PRINT"VAN DE TREIN EN HET PERRON TE OVERZIEN.":GOSUB558 480 POKE53280,0:POKE53281,0 481 DEMO=1 482 PRINT" HET METERPANEEL";:GOSUB37 483 PRINT" 1 2 3 4 5 6 7 8" 484 PRINT" 9 10 11" 485 PRINT"1 - SCHAKELAARS LICHT EN VERWARMING" 486 PRINT"2 - HOOGSPANNINGS-VOLTMETER 1800V" 487 PRINT"3 - AMPEREMETER 300-500 AMP." 488 PRINT"4 - SNELHEIDSMETER":PRINT"5 - DRUK IN LUCHTRESERVOIR" 489 PRINT"6 - REMCILINDERDRUKMETER":PRINT"7 - DIM SCHAKELAARS" 490 PRINT"8 - SCHAKELAARS HOOGSPANNINGSAPPARATUUR":PRINT"9-11 MELDLAMPJES" 491 PRINT"10- ATB KNOPPEN" 492 PRINT"DE STREEPJES OP DE SNELHEIDSMETER STAAN OM DE 10 KM. HET 1E STAAT BY 20"; 493 PRINT"KM/U.":PRINT" DRUK EEN TOETS" 494 GOSUB559 495 PRINT" DE STUURTAFEL":DEMO=2:GOSUB41 496 PRINT" 1 2 3" 497 PRINT"1 - SCHAKELKRUKKEN" 498 PRINT"2 - SNELHEIDSKEUZE KNOPPEN":PRINT" UW KEUZE WORDT HIER AFGEBEELD" 499 PRINT"3 - RY-/REMHANDEL":PRINT" STAAT NU IN 2E STAND F3" 500 PRINT" DRUK EEN TOETS" 501 GOSUB558:POKE53280,3:POKE53281,3 502 PRINT" ATBAUTOMATISHE TREIN BEINVLOEDING" 503 PRINT"AAN DE SEINEN LANGS DE SPOORBAAN IS APPARATUUR GEKOPPELD WELKE "; 504 PRINT"VIA DE RAILS":PRINT"EEN CODE NAAR DE TREIN ZENDT. 505 PRINT"IN DE TREIN WORDT DEZE CODE VERTAALD EN" 506 PRINT"ZO WEET DE TREIN HOE HARD TER PLAATSE" 507 PRINT"MAXIMAAL GEREDEN MAG WORDEN." 508 PRINT"DEZE BERICHTEN WORDEN U D.M.V. BELLEN EN LAMPJES DOORGEGEVEN." 509 GOSUB558 510 PRINT" DE LAMPJES EN DE SEINEN" 511 PRINT"DE SEINEN ZYN STEEDS SLECHTS KORTE TYD IN BEELD EN BETEKENEN:" 512 PRINT"GROEN = 120 KM/U" 513 PRINTSPC(9)"LAMPJE IN SNELHEIDSMETER BRANDT":PRINT" BY 120" 514 PRINT"GROEN8= 80 KM/U" 515 PRINTSPC(9)"LAMJE BY 80" 516 PRINT"GROEN6= 60 KM/U":PRINTSPC(9)"LAMPJE BY 60" 517 PRINT"GEEL8 = AFREMMEN TOT 80KM/U":PRINT"GEEL6 = AFREMMEN TOT 60 KM/U" 518 PRINT"GEEL = AFREMMEN TOT 40 KM/U EN" 519 PRINT" REKENEN OP EEN ROOD SEIN":GOSUB558 520 PRINT" DE BELLEN" 521 PRINT"ALS U EEN SEIN PASSEERT DAT EEN ANDERE SNELHEID TOESTAAT DAN HET "; 522 PRINT"VOORGAANDE" 523 PRINT"KLINKT IN DE CABINE EEN GONGSLAG." 524 PRINT"HET KAN ZYN DAT UW SNELHEID TE HOOG IS: EEN BEL GAAT RINKELEN EN "; 525 PRINT"U MOET DAN":PRINT"DIREKT REMMEN ANDERS BRENGT DE ATB DE TREIN TOT STILSTAND" 526 PRINT"ALS DE SNELHEID VOLDOENDE VERLAAGD IS KLINKT WEER EEN BELLETJE." 527 PRINT"DIT BETEKENT DAT U DE REMMEN WEER KUNT LOSSEN." 528 PRINT"ER MOET DAN OOK WEER OPNIEUW SNELHEID WORDEN GEKOZEN." 529 PRINT"DE TOETSEN MOET U INGEDRUKT HOUDEN TOT- DAT UW COMMANDO WORDT UITGEVOERD." 530 GOSUB558:POKE53280,2:POKE53281,2 531 PRINT" HET RODE SEIN" 532 PRINT" S T O P P E N " 533 PRINT"DIT SEIN VERDWYNT NIET UIT HET BEELD MAAR NAAST HET SEIN WORDT NU "; 534 PRINT"GETOOND" 535 PRINT"HOEVEEL METER U ER NOG VANAF BENT." 536 PRINT"AAN U DE TAAK OM DE TREIN VOOR DIT SEIN TOT STILSTAND TE BRENGEN." 537 PRINT" LET OP " 538 PRINT"DE ATB REAGEERT NIET OP RODE SEINEN." 539 PRINT"ZY GEEFT ALLEEN AAN DAT U EEN ROOD SEIN KUNT VERWACHTEN D.M.V. GEEL 4." 540 GOSUB558 541 POKE53280,12:POKE53281,12 542 PRINT" DE STATIONS" 543 PRINT"DE SPRINTER IS EEN STOPTREIN DUS MOET U OP ALLE STATIONS STOPPEN." 544 PRINT"ALS U EEN STATION NADERT VERSCHYNT EVEN EEN GROTE S IN BEELD." 545 PRINT"AAN DE HORIZON DOEMT DAN HET PERRON OP." 546 PRINT"DE TREIN STAAT LANGS HET PERRON ALS HET LAATSTE STUKJE VAN HET PERRON"; 547 PRINT" NOG NET" 548 PRINT"ZICHTBAAR IS BOVEN DE ONDERKANT VAN HET CABINERAAM OF NET VERDWENEN IS." 549 PRINT"PAS OP NA ELKE STOP MOET U DE DEUREN OPNIEUW SLUITEN." 550 GOSUB558 551 POKE53280,13:POKE53281,13 552 PRINT" NA DEZE PAGINA BEVINDT U ZICH" 553 PRINT"IN DE CABINE." 554 PRINT" VEEL SUKSES EN GOEDE REIS!" 555 PRINT" HENRI VAN STRAATEN"; 556 PRINT" MACHINIST BY DE NS" 557 GOTO563 558 PRINT" DRUK EEN TOETS" 559 IFPEEK(197)<>64THEN559 560 IFPEEK(197)=64THEN560 561 PRINT""; 562 RETURN 563 IFPEEK(197)<>64THEN563 564 IFPEEK(197)=64THEN564 565 DEMO=0 566 GOTO27 567 REM PROG.CHAR 568 POKE56334,PEEK(56334)AND254:POKE1,PEEK(1)AND251 569 FORI=0TO255:FORJ=0TO7 570 POKE51200+I*8+J,PEEK(53248+I*8+J) 571 NEXTJ:NEXTI 572 POKE1,PEEK(1)OR4:POKE56334,PEEK(56334)OR1 573 POKE56578,PEEK(56578)OR3 574 POKE56576,(PEEK(56576)AND252)OR0 575 POKE53272,(PEEK(53272)AND15)+16 576 POKE53272,(PEEK(53272)AND240)+2 577 FORCH=1TO83:READC:FORBY=0TO7 578 READNUM 579 POKE51200+(8*C)+BY,NUM 580 NEXTBY:NEXTCH 581 POKE648,196 582 HS=0 583 REM SPRITES 584 FORS=0TO511:POKE49216+S,0:NEXT 585 FORS=0TO5:READSP:POKE49664+S,SP:NEXT 586 FORS=0TO5:READSP:POKE49606+S,SP:NEXT 587 FORS=0TO5:READSP:POKE49548+S,SP:NEXT 588 FORS=0TO5:READSP:POKE49490+S,SP:NEXT 589 FORS=0TO5:READSP:POKE49432+S,SP:NEXT 590 FORS=0TO5:READSP:POKE49374+S,SP:NEXT 591 FORS=53252TO53262STEP2:POKES,192:POKES+1,82:NEXTS:POKE53251,75 592 POKE51199,8 593 POKE51198,7 594 POKE51197,6 595 POKE51196,5 596 POKE51195,4 597 POKE51194,3:POKE51193,2:POKE51192,1 598 POKE53277,254:POKE53271,253 599 FORS=0TO20:READSP:POKE49280+S,SP:NEXT 600 FORS=0TO62:READSP:POKE49216+S,SP:NEXT 601 POKE53248,56 602 POKE53249,64 603 POKE53287,0 604 POKE53285,7 605 POKE53286,11 606 RR=PEEK(851)+PEEK(852) 607 POKE53276,1 608 FORKL=53289TO53294:POKEKL,11:NEXTKL:POKE53288,0 609 IFRR+PEEK(853)=183THEN611 610 FORS=1TO5:POKE848+S,32:NEXT 611 RETURN 612 DATA65,255,128,128,128,131,132,136,136 613 DATA83,255,1,29,225,1,1,1,1 614 DATA88,144,144,144,160,160,160,128,255 615 DATA90,129,65,33,17,9,5,1,255 616 DATA92,1,1,1,1,1,253,1,255 617 DATA108,0,0,0,0,6,15,15,6 618 DATA87,0,0,28,42,42,42,28,0 619 DATA73,0,0,28,62,62,62,28,0 620 DATA74,24,12,6,3,3,0,0,0 621 DATA75,24,48,96,192,192,0,0,0 622 DATA112,0,0,0,31,3,0,0,0 623 DATA110,0,0,0,248,192,0,0,0 624 DATA123,255,128,128,128,132,132,132,132 625 DATA124,255,0,0,0,4,68,68,68 626 DATA125,255,1,1,1,5,69,69,69 627 DATA126,255,0,12,0,4,68,68,68 628 DATA127,255,1,13,1,5,69,69,69 629 DATA35,128,176,160,128,128,128,128,255 630 DATA36,0,0,0,0,0,0,0,255 631 DATA37,1,1,1,1,1,1,1,255 632 DATA64,0,0,0,0,255,0,0,0 633 DATA190,254,254,254,254,254,254,254,254 634 DATA191,253,253,253,253,253,253,253,253 635 DATA192,251,251,251,251,251,251,251,251 636 DATA193,247,247,247,247,247,247,247,247 637 DATA194,239,239,239,239,239,239,239,239 638 DATA195,223,223,223,223,223,223,223,223 639 DATA196,191,191,191,191,191,191,191,191 640 DATA197,127,127,127,127,127,127,127,127 641 DATA198,0,255,255,255,255,255,255,255 642 DATA199,255,0,255,255,255,255,255,255 643 DATA200,255,255,0,255,255,255,255,255 644 DATA201,255,255,255,0,255,255,255,255 645 DATA202,255,255,255,255,0,255,255,255 646 DATA203,255,255,255,255,255,0,255,255 647 DATA204,255,255,255,255,255,255,0,255 648 DATA205,255,255,255,255,255,255,255,0 649 DATA221,255,255,255,255,255,255,255,254 650 DATA207,255,255,255,255,255,255,252,253 651 DATA208,255,255,255,255,255,248,251,251 652 DATA209,255,255,255,255,240,247,247,247 653 DATA210,255,255,255,224,239,239,239,239 654 DATA211,255,255,192,223,223,223,223,223 655 DATA212,255,128,191,191,191,191,191,191 656 DATA213,0,127,127,127,127,127,127,127 657 DATA214,253,255,255,255,255,255,255,255 658 DATA215,251,251,255,255,255,255,255,255 659 DATA216,247,247,247,255,255,255,255,255 660 DATA217,239,239,239,239,255,255,255,255 661 DATA218,223,223,223,223,223,255,255,255 662 DATA219,191,191,191,191,191,191,255,255 663 DATA220,127,127,127,127,127,127,127,255 664 DATA222,0,0,2,6,14,30,62,126 665 DATA102,17,17,9,9,5,5,1,255 666 DATA155,252,248,248,251,240,247,240,247 667 DATA156,63,31,31,223,15,239,15,239 668 DATA157,224,239,239,239,192,223,223,223 669 DATA158,239,224,239,239,223,192,223,223 670 DATA159,239,239,224,239,223,223,192,223 671 DATA161,239,239,239,224,223,223,223,192 672 DATA163,128,191,191,191,0,127,127,127 673 DATA164,191,128,191,191,127,0,127,127 674 DATA165,191,191,128,191,127,127,0,127 675 DATA166,191,191,191,128,127,127,127,0 676 DATA167,7,247,247,247,3,251,251,251 677 DATA168,247,7,247,247,251,3,251,251 678 DATA169,247,247,7,247,251,251,3,251 679 DATA170,247,247,247,7,251,251,251,3 680 DATA171,1,253,253,253,0,254,254,254 681 DATA172,253,1,253,253,254,0,254,254 682 DATA173,253,253,1,253,254,254,0,254 683 DATA174,253,253,253,1,254,254,254,0 684 DATA38,128,188,128,128,128,128,128,255 685 DATA39,128,191,128,128,128,128,128,255 686 DATA40,0,192,0,0,0,0,0,255 687 DATA41,0,252,0,0,0,0,0,255 688 DATA42,0,255,0,0,0,0,0,255 689 DATA43,1,193,1,1,1,1,1,255 690 DATA44,1,253,1,1,1,1,1,255 691 DATA27,252,240,192,192,128,128,0,0 692 DATA29,0,0,128,128,192,192,240,252 693 DATA28,63,15,3,3,1,1,0,0 694 DATA31,0,0,1,1,3,3,15,63 695 REM DATA PERRONS 696 DATA192,0,0,112,0,0,124,0,0,63,0,0 697 DATA31,192,0,15,240,0,7,252,0,3,255,0 698 DATA1,255,192,0,255,240,0,127,252,0,63,255 699 REM SPRINTERTJE 700 DATA0,4,0,0,2,0,0,4,0,127,255,254 701 DATA213,90,171,255,255,255,48,102,12 702 REM SPIEGEL BEELD 703 DATA0,0,0,170,170,170,149,64,2 704 DATA149,80,2,154,84,2,154,101,2 705 DATA154,101,66,154,102,82,154,102,102 706 DATA154,102,102,154,102,102,154,85,102 707 DATA154,85,102,154,89,102,154,101,94 708 DATA154,85,126,154,85,254,154,87,254 709 DATA154,95,254,154,127,254,170,170,170 710 POKE808,225:POKE775,200:RETURN