10 REM EINSIEDLERSPIEL =========64
95 GOSUB1000:POKE646,0:POKE53281,1
100 PRINTCL$C1$"           DAS EINSIEDLERSPIEL"
110 PRINTC1$" ZUM SETZEN FAEHRST DU MIT DEN CURSOR-
120 [153]C1$" STEUERTASTEN UNTER DEN ZU SETZENDEN
130 PRINTC1$" STEIN, DRUECKST SPACE UND FAEHRST DANN
140 [153]C1$" UNTER DIE ZIELPOSITION UND DRUECKST
150 PRINTC1$" ERNEUT SPACE."
160 PRINTC1$" MIT (*) KANNST DU DAS SPIEL BEENDEN."
170 PRINTC1$C1$" WAEHLE EINE DER 2 MOEGLICHKEITEN
180 [153]C1$" 1 = LOESUNG
190 PRINTC1$" 2 = VOLLES FELD
200 [161]A$:A[178][197](A$):[139]A[179]1[176]A[177]2[167]200
210 [145]A[137]220,220
220 [153]CL$C1$"           DAS EINSIEDLERSPIEL
230 PRINT:PRINT"*****************************************
240 [153]R1$"                (null) (null) (null)
245 PRINTR1$"                [209] [209] [209]
250 [153]R1$"            (null) (null) (null) (null) (null) (null) (null)
260 PRINTR1$"            [209] [209] [209] [215] [209] [209] [209]
270 [153]R1$"            (null) (null) (null) (null) (null) (null) (null)
275 PRINTR1$"                [209] [209] [209]
280 [153]R1$"                (null) (null) (null)
285 PRINTC4$"**
290 [153]C4$"**
295 PRINTC4$"*****************************************"
300 X=1403:POKEX,30:POKEX+54272,0:ZA=32
310 IFA=1THEN340
320 GETA$:IFA$="*"THEN540
330 GOSUB410:GOTO320
340 READX$:I=1
350 W=VAL(MID$(X$,I,1)):A$=MID$(SC$,W,1):IFA$=KL$THEN540
360 FORT=1TO 00:NEXT
370 GOSUB410:I=I+1:IFI<=LEN(X$)THEN350
380 GOTO340
410 IFA$<>" "THEN480
420 IFY<>0THEN450
430 IFPEEK(X-40)<>81THENRETURN
440 Y=X-40:POKEY,42:RETURN
450 IFPEEK(X-40)<>87OR(ABS(Y-X+40)<>4ANDABS(Y-X+40)<>160)THENPOKEY,81:Y=0:RETURN
460 IFPEEK((Y-X+40)/2+X-40)<>81THENPOKEY,81:Y=0:RETURN
470 POKEX-40,81:POKE(Y-X+40)/2+X-40,87:POKEY,87:Y=0:Z=Z+1:RETURN
480 IFA$=C3$ANDPEEK(X-80)=32THENPOKEX,32:X=X-80
490 IFA$=C1$ANDPEEK(X+80)=32THENPOKEX,32:X=X+80
500 IFA$=C4$ANDPEEK(X-2)=32THENPOKEX,32:X=X-2
510 IFA$=C2$ANDPEEK(X+2)=32THENPOKEX,32:X=X+2
520 POKEX,30:POKEX+54272,0
530 RETURN
540 IFA<>1THEN560
545 POKE782,1:POKE781,23:SYS65520:PRINT"DER COMPUTER HAT DIR JETZT DIE LOESUNG"
550 PRINT" GEZEIGT. NUN BIST DU AN DER REIHE.":GOTO590
560 POKE782,7:POKE781,23:SYS65520:PRINT"DU HAST":PRINTZ"STEINE GESCHLAGEN."
570 IFZA-Z>1THENPRINT"     ES SIND NOCH"ZA-Z"STEINE UEBRIG.":GOTO590
580 PRINT"           DAS IST OPTIMAL !!!
590 [161]A$:[139]A$[178]""[167]590
600 [138]
610 [131]"51153445225433511533225445111533535115254452111533"
620 [131]"53445225511534452255115344522533222544521153351122"
630 [131]"54453345225254453511515335122544535115452254115335"
640 [131]"254455445221153353511541533545225153356"
1000 C1$[178][199](017):C2$[178][199](029)
1010 C3$[178][199](145):C4$[178][199](157)
1020 KL$[178][199](064):CL$[178][199](147)
1030 SC$[178]C1$[170]C2$[170]C3$[170]C4$[170]" "[170]KL$
1040 R1$[178]C4$[170]"**"[170]C1$[170]C4$[170]C4$[170]"**"
2000 [142]
3300 [143] PROGRAMMENDE=============