0 GOSUB2000:REM TITELBILD 1 REM WAS BRAUCHT MAN ALLES: 2 DIM ZZ(50):REM GEDAECHTNIS DER MAUS 3 RS=160:REM REVERSES SPACE 4 LR=20: REM ANFANGSPOS. DER MAUS 5 FR=1: REM RICHTUNG DER MAUS (1=L/2=R) 6 ZR=LR: REM HILFSVARIABLE 7 Z=1: REM ZEILENZAEHLER 8 L$=" [146]" 9 BS=1024:REM ANFANGSADRESSE DES BILDSCHIRMSPEICHERS 10 : 15 : 20 REM---------------------------------- 30 : 100 REM HAUPTPROGRAMM 110 GOSUB310: REM ERSTMAL BILDSCHIRM AUFBAUEN 120 GOSUB550: REM MAUS DUMM MACHEN 140 GOSUB600: REM MAUS LERNT 150 POKE214,22:POKE211,1:SYS58732:REM CURSOR SETZEN 160 PRINT"[206][146]EUER [214]ERSUCH ODER [199][146]ELERNTER [215]EG? "; 170 GETX$:IF X$="" THEN170 180 IF X$="N" OR X$="[206]" THENRUN1 190 IF X$<>"G" THEN IF X$<>"[199]" THEN170 195 GOSUB950: REM TEXT LOESCHEN 210 GOSUB1000: REM MAUS ZEIGT WAS SIE GELERNT HAT 220 GOTO150 222 : 224 REM--------------------------------- 300 REM BILDSCHIRM AUFBAUEN 302 REM--------------------------------- 304 : 310 PRINT"[147]";: REM BILDSCHIRM LOESCHEN 320 : 330 REM WAAGERECHTE BALKEN SCHREIBEN 332 REM--------------------- 340 : 350 FOR I=1 TO 11 360 PRINTL$ 370 NEXT 380 : 390 REM ZWISCHEN DIE REVERSEN BALKEN EIN ODER ZWEI BRUECKEN SETZEN 392 REM--------------------- 400 : 410 Y=BS+40: REM ANFANGSADRESSE DER ZWEITEN BILDSCHIRMZEILE 420 XX=RND(-RND(33)):REM WIRKLICH ZUFAELLIG 430 I=INT(RND(1)*2+1) 440 FOR J=1 TO I 450 X=INT(RND(1)*39)+1:REM SPALTEN-POSITION FESTLEGEN 460 POKEY+X,RS: REM REVERSES SPACE SETZEN 470 NEXT 480 : 490 REM UND JETZT DIE NAECHSTE ZEILE 492 REM--------------------- 500 : 510 Y=Y+80 520 IF Y<=1784 THEN420:REM UNTERSTE ZEILE ERREICHT? NEIN, DANN WEITER 530 RETURN: REM ZURUECK ZUM HAUPTPROGRAMM 532 : 534 REM--------------------------------- 550 REM MAUS DUMM MACHEN 552 REM--------------------------------- 554 : 560 FOR I=1 TO 50:ZZ(I)=0:NEXT 570 RETURN 572 : 574 REM--------------------------------- 600 REM MAUS LERNT 602 REM--------------------------------- 604 : 605 POKE214,22:POKE211,1:SYS58732:REM CURSOR SETZEN 606 PRINT"[218]UM [211]TARTEN BITTE EINE [212]ASTE DRUECKEN!! "; 607 POKE198,0 608 GETX$:IFX$=""THEN608:REM MAUS ANSCHIEBEN 609 POKE214,22:POKE211,1:SYS58732:REM CURSOR SETZEN 610 PRINT" "; 615 X=1024: REM BILDSCHIRM-BASISADRESSE 620 XF=55296: REM FARBRAM-BASISADRESSE 630 LR=20: REM ANFANGSPOSITION DER MAUS 640 FR=1: REM RICHTUNGSFLAGGE 650 ZR=LR: REM HILFSVARIABLE 660 Z=1: REM ZEILENZAEHLER 670 POKEXF+ZR,1: REM PLATZ FUER DIE MAUS WIRD SAUBERGEFEGT 690 ZR=LR 700 POKEXF+LR,2: REM DER ROTE TEPPICH WIRD AUSGEBREITET 720 FOR W=1 TO 50:NEXT:REM NICHT SO SCHNELL 730 IF PEEK(X+LR+40)=RS THEN780:REM EINE ZEILE TIEFER GEHEN? JA, DANN NACH 780 735 IF X=1824 AND LR=20 THEN ZZ(Z)=FR:RETURN:REM DIE MAUS IST AM ENDE 740 IF FR=1 THEN GOSUB850:GOTO770:REM RICHTUNGSFLAGGE STEHT NACH RECHTS 750 GOSUB900 770 GOTO670 780 ZZ(Z)=FR: REM MAUS LERNT DAZU 790 POKEXF+ZR,1:REM MAUS LOESCHEN 800 X=X+40: REM NAECHSTE ZEILE 810 XF=XF+40:Z=Z+1 820 GOTO690 850 REM MAUS GEHT NACH RECHTS 860 LR=LR+1 870 IF LR>39 THEN LR=39:FR=0: REM IST SIE SCHON RECHTS ANGEKOMMEN? 880 RETURN 900 REM MAUS GEHT NACH LINKS 910 LR=LR-1 920 IF LR< 0 THEN LR=0:FR=1:REM IST SIE SCHON LINKS ANGEKOMMEN? 930 RETURN 932 : 934 REM--------------------------------- 935 REM TEXT LOESCHEN 937 REM--------------------------------- 939 : 950 POKE214,22:POKE211,1:SYS58732:REM CURSOR SETZEN 960 PRINT" "; 962 POKE1824+20,RS:POKE56096+20,5 970 RETURN 972 : 974 REM--------------------------------- 1000 REM MAUS ZEIGT WAS SIE GELERNT HAT 1002 REM--------------------------------- 1004 : 1010 X=1024:XF=55296 1020 LR=20: REM MAUS AUF MITTEL-POSITION 1030 FR=1:ZR=LR:Z=1 1040 POKEXF+ZR,6: REM PLATZ FUER DIE MAUS WIRD SAUBERGEFEGT 1050 REM UND VORBEREITET 1060 ZR=LR 1070 POKEXF+LR,2: REM DER ROTE TEPPICH WIRD AUSGEBREITET 1100 IF PEEK(X+LR+40)=RS THEN1150:REM EINE ZEILE TIEFER GEHEN? JA,DANN NACH 1150 1105 IF X=1824 AND LR=20 THENRETURN:REM MAUS HAT IHR ZIEL ERREICHT 1110 IFZZ(Z)=1 THEN GOSUB850:GOTO1140:REM MAUS HAT SICH GEMERKT, NACH RECHTS 1120 GOSUB900 1140 GOTO1040 1150 POKEXF+ZR,6:REM MAUS LOESCHEN 1160 X=X+40: REM NAECHSTE ZEILE 1170 XF=XF+40:Z=Z+1 1180 GOTO1060 1900 : 1910 REM --------------------------- 1920 REM TITELBILD 1930 REM --------------------------- 1940 : 2000 IFPEEK(50307)<>120THEN2010 2005 POKE50257,16 2010 PRINT"[147]";CHR$(14);CHR$(8) 2020 POKE53280,0:POKE53281,0 2030 PRINT" [211] [201] [205] [193]" 2040 PRINT" [163][163][163][163][163][163][163]" 2050 PRINT" VON [203].- [198]. [208]ROBST" 2060 PRINT"[211] [201] [205] [193], DIE SELBSTLERNENDE ";CHR$(34);"INTELLI-"; 2070 PRINT"GENTE";CHR$(34);" [205]AUS IST EIN NETTES KLEINES [208]RO-"; 2080 PRINT"GRAMM, DAS [211]IE ZUM [196]ENKEN ANREGEN SOLL." 2090 PRINT"" 2100 PRINT"[211]TARTEN [211]IE DIE [205]AUS MIT IRGENDEINER"; 2110 PRINT"[212]ASTE. [206]ACHDEM DIE [205]AUS EINMAL DURCH"; 2120 PRINT"DAS [204]ABYRINTH GELAUFEN IST, HABEN [211]IE"; 2130 PRINT"DIE [205]OEGLICHKEIT MIT DER [212]ASTE '[206]' EIN"; 2140 PRINT"NEUES [204]ABYRINTH AUFZUBAUEN, ODER MIT '[199]'"; 2150 PRINT"DEN GELERNTEN [215]EG ZU WIEDERHOLEN." 2160 PRINT"":PRINT"[201]M [194]EIHEFT FINDEN [211]IE NAEHERES UEBER DIE"; 2170 PRINT"[204]OGIK, DIE DEM [208]ROGRAMM DAS [215]ISSEN GIBT." 2180 PRINT:PRINT 2190 PRINT"[194]ITTE [212]ASTE DRUECKEN!! "; 2200 POKE198,0 2210 GETX$:IFX$=""THEN2210 3010 RETURN