DIE MAUS (♠) HAT ALLE KAESE-
STUECKCHEN (.) IM LABYRINTH
ZU FRESSEN. DER RECHNER
STEUERT DIE KATZE (◯).
ABER NUR DIE MAUS KANN DIE
BEGRENZUNGEN UEBERSCHREITEN.
FUER JEDES GEFRESSENE KAESE-
STUECK GIBT ES EINEN PUNKT.
JE NACH LAENGE DER DENKPAUSEN
WERDEN DAVON PUNKTE ABGEZOGEN.
FALLS DIE MAUS GEFANGEN WIRD,
FAELLT DIE DOPPELTE ANZAHL
DER VERBLIEBENEN KAESESTUECKE
NEGATIV INS GEWICHT.
10 REM 1/87
20 WINDOW:CLS:BEEP
30 GOSUB 1470
40 CLS
50 GP=-5555
60 PZ=0:PU=0
70 V$=CHR$(158):FOR I=1 TO 32:W$=W$+V$:NEXT
80 PRINT "øøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøø";
90 FOR I=0 TO 28:PRINT "ÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇ";:NEXT
100 PRINT AT(30,0);W$
110 FOR I=0 TO 14
120 PZ=PZ+3
130 PRINT AT(10+I,11);"Ù"
140 PRINT AT(12+I,29);"Ù"
150 PRINT AT(24,I+11);"Ù"
160 IF I>12 THEN 760
170 PZ=PZ+3
180 PRINT AT(28,I+1);"Ù"
190 PRINT AT(I+5,5);"Ù"
200 PRINT AT(4,I+1);"Ù"
210 IF I>10 THEN 760
220 PZ=PZ+3
230 PRINT AT(14+I,15);"Ù"
240 PRINT AT(22,I);"Ù"
250 PRINT AT(12,21+I);"Ù"
260 IF I>8 THEN 760
270 PZ=PZ+1
280 PRINT AT(10,12+I);"Ù"
290 IF I>6 THEN 760
300 PZ=PZ+6
310 PRINT AT(13,I+12);"Ù"
320 PRINT AT(I+22,1);"Ù"
330 PRINT AT(17,4+I);"Ù"
340 PRINT AT(7,9+I);"Ù"
350 PRINT AT(I+2,28);"Ù"
360 PRINT AT(9,22+I);"Ù"
370 IF I>5 THEN 760
380 PZ=PZ+10
390 PRINT AT(12+I,25);"Ù"
400 PRINT AT(I+1,13);"Ù"
410 PRINT AT(27,17+I);"Ù"
420 PRINT AT(22,26+I);"Ù"
430 PRINT AT(19+I,21);"Ù"
440 PRINT AT(17+I,3);"Ù"
450 PRINT AT(19+I,22);"Ù"
460 PRINT AT(19+I,23);"Ù"
470 PRINT AT(19+I,24);"Ù"
480 PRINT AT(19+I,25);"Ù"
490 IF I>4 THEN 760
500 PZ=PZ+6
510 PRINT AT(18,I+21);"Ù"
520 PRINT AT(15,I+20);"Ù"
530 PRINT AT(12,I);"Ù"
540 PRINT AT(7+I,8);"Ù"
550 PRINT AT(25+I,13);"Ù"
560 PRINT AT(25+I,25);"Ù"
570 IF I>3 THEN 760
580 PZ=PZ+11
590 PRINT AT(27,26+I);"Ù"
600 PRINT AT(11,8+I);"Ù"
610 PRINT AT(4+I,16);"Ù"
620 PRINT AT(4+I,17);"Ù"
630 PRINT AT(4+I,18);"Ù"
640 PRINT AT(4+I,19);"Ù"
650 PRINT AT(4+I,20);"Ù"
660 PRINT AT(4+I,21);"Ù"
670 PRINT AT(8+I,21);"Ù"
680 PRINT AT(I+1,25);"Ù"
690 PRINT AT(4,22+I);"Ù"
700 IF I>2 THEN 760
710 PZ=PZ+4
720 PRINT AT(13+I,19);"Ù"
730 PRINT AT(25+I,17);"Ù"
740 PRINT AT(2,25+I);"Ù"
750 PRINT AT(28,22+I);"Ù"
760 NEXT I
770 PRINT AT(22,4);"Ì"
780 PRINT AT(7,13);""
790 PZ=PZ-22:BS=-5120
800 PRINT AT(31,1);"PUNKTE: BISHER : "
810 PRINT AT(31,25);GP
820 BEEP
830 H=22:V=4
840 Z$="Ù"
850 MA=7:MB=13
860 HN=H:VN=V
870 POKE 4,0:RI$=INKEY$:IF RI$<>""THEN RI=ASC(RI$)
880 PU=PU-.125
890 IF INT(PU)=PU THEN PRINT AT(31,11);PU
900 IF RI=8 THEN GOSUB 980
910 IF RI=9 THEN GOSUB 1230
920 IF RI=10 THEN GOSUB 1250
930 IF RI=11 THEN GOSUB 1270
940 GOSUB 1070
950 IF H=MA AND V=MB THEN 1390
960 IF PZ=0 THEN 1350
970 GOTO 870
980!R.STEINBRINK 1/87
990 MA$="Ì"
1000 VN=VN-1
1010 SP=PEEK(32*HN+VN+BS)
1020 IF SP=199 OR SP=158 OR SP=248 THEN 1290
1030 IF SP=217 THEN PZ=PZ-1:BEEP:PU=PU+1
1040 PRINT AT(H,V);" "
1050 H=HN:V=VN
1060 PRINT AT(H,V);MA$
1070 IF MA>H THEN MH=MA-1
1080 IF MA<H THEN MH=MA+1
1090 MP=PEEK(32*MH+MV+BS)
1100 IF MP=199 THEN MH=MA
1110 IF MB>V THEN MV=MB-1
1120 IF MB<V THEN MV=MB+1
1130 MP=PEEK(32*MH+MV+BS)
1140 IF MP=199 THEN MV=MB
1150 IF MH=MA AND MV=MB THEN RETURN
1160 PRINT AT(MA,MB);Z$
1170 ZA=PEEK(32*MH+MV+BS)
1180 Z$="Ù"
1190 IF ZA<>217 THEN Z$=" "
1200 PRINT AT(MH,MV);""
1210 MA=MH:MB=MV
1220 RETURN
1230 VN=V+1:MA$="Ì"
1240 GOTO 1010
1250 HN=H+1:MA$="Ì"
1260 GOTO 1010
1270 HN=H-1:MA$="Ì"
1280 GOTO 1010
1290 IF HN=0 THEN HN=29:GOTO 1010
1300 IF HN=30 THEN HN=1:GOTO 1010
1310 IF VN<0 THEN VN=31:GOTO 1010
1320 IF VN>31 THEN VN=0:GOTO 1010
1330 HN=H:VN=V
1340 GOTO 1070
1380 GOTO 1440
1390 PU=PU-2*PZ
1400 PRINT AT(31,10);INT(PU)," "
1410 FOR I=1 TO 6
1430 NEXT
1440 PAUSE 30
1450 IF PU>GP THEN GP=INT(PU)-1
1460 PZ=0:PU=0:CLS:GOTO 80
1470 PRINT:PRINT
1480 PRINT " **************** "
1490 PRINT " * * "
1500 PRINT " *ôatz &> ";CHR$(157);CHR$(157)"aus * ô "
1510 PRINT " * * ôòÕè"
1520 PRINT " **************** ÓîîîîÐ"
1530 PRINT:PRINT
1540 PRINT " DIE MAUS (Ì) HAT ALLE KAESE-"
1550 PRINT " STUECKCHEN (Ö) IM LABYRINTH"
1560 PRINT " ZU FRESSEN. DER RECHNER"
1570 PRINT " STEUERT DIE KATZE ().":PRINT:PRINT
1580 PRINT " ABER NUR DIE MAUS KANN DIE"
1590 PRINT " BEGRENZUNGEN UEBERSCHREITEN.":PRINT:PRINT
1600 PRINT " FUER JEDES GEFRESSENE KAESE-"
1610 PRINT " STUECK GIBT ES EINEN PUNKT."
1620 PRINT " JE NACH LAENGE DER DENKPAUSEN"
1630 PRINT " WERDEN DAVON PUNKTE ABGEZOGEN.
1640 PRINT " FALLS DIE MAUS GEFANGEN WIRD,"
1650 PRINT " FAELLT DIE DOPPELTE ANZAHL"
1660 PRINT " DER VERBLIEBENEN KAESESTUECKE"
1670 PRINT " NEGATIV INS GEWICHT.":PRINT:PRINT
1680 PRINT:INPUT " DANN VIEL ERFOLG !!!";O
1690 RETURN
