Screenshot 1
2bc0 3b15 0302 B ... HIRNVERWINDER
Sie haben ein Feld mit 9 Steinen die Sie so wenden sollen, dass alle bis auf den in der Mitte eine 'O' zeigen. Mit Hilfe der Kursortasten oder des Spielhebels waehlen Sie den zu wendenden Stein an . Nach druecken der Ausloesetaste wendet sich der angebene Stein, aber auch ein Teil der Nachbarsteine. Hier liegt das Problem und die Schwierigkeit.
Zeichensatz UTF-8+Z1013()+CTRL()-ohne Umlaute(äöüß)

    5 WINDOW
   10 CLEAR:CLS
   15 GOSUB 3000
   20 DIM B$(4,4),A$(3)     
   30 A$(1)="":A$(2)="":A$(3)=""
   40 FOR B=1 TO 3
   50 A(B)=INT(RND(1)*8)
   60 GOSUB 300
   70 NEXT B
   80 FOR I=1 TO 3:FOR J=1 TO 3
   90 B$(I,J)=MID$(A$(I),J,1)
  100 NEXT J,I
  110 FOR I=0 TO 4:B$(0,I)="":B$(4,I)="":B$(I,0)="":B$(I,4)="":NEXT I:Z=1
  120 GOSUB 710
  125 GOSUB 3000
  130 GOTO 1020
  150 PRINT AT(12,17);Z:PRINT AT(12,20);". VERSUCH"  
  155 PRINT AT(14,28);" " 
  160 PRINT AT(14,17);WE:PRINT AT(14,19);" RICHTIGE"  
  161 IF WE=1 THEN PRINT AT(14,28);"N"  
  175 PRINT
  176 GOSUB 2000
  177 WINDOW 8,15,8,15 
  179 CLS
  180 FOR I=1 TO 3:PRINT B$(1,I);"  ";:NEXT                   
  185 PRINT
  186 PRINT
  190 FOR I=1 TO 3:PRINT B$(2,I);"  ";:NEXT                   
  195 PRINT
  196 PRINT
  200 FOR I=1 TO 3:PRINT B$(3,I);"  ";:NEXT:WINDOW 31,31,0,0    
  201 GOSUB 4000
  202 GOSUB 5000
  210 WINDOW 31,31,0,0 
  215 IF U<>13 THEN 202
  220 D=10*C+A
  221 DATA 77,107,137,80,110,140,83,113,143
  222 RESTORE 221
  224 FOR FE=1 TO 9
  225 READ V
  227 IF V=D THEN 230
  228 NEXT
  230 IF FE=0 THEN 620
  240 IF FE<0 OR FE>9 THEN 150
  250 GOSUB 370:Z=Z+1
  260 REMMMMMMMMMM
  270 GOTO 1020
  300 DATA OOX,OXO,OXX,XOO,XOX,XXO,XXX,OOO
  310 RESTORE 300
  320 FOR I=0 TO A(B)
  330 READ X$
  340 NEXT
  350 A$(B)=X$
  360 RETURN
  370 ON FE GOTO 380,420,450,460,500,530,540,580,590
  380 K=1:L=2:GOSUB 600
  390 L=1:GOSUB 600
  400 K=2:GOSUB 600
  410 L=2:GOTO 600
  420 K=1
  430 L=1:GOSUB 600
  440 L=3:GOSUB 600:GOTO 410
  450 K=1:L=3:GOSUB 600:GOSUB 410:K=2:GOTO 440
  460 L=1
  470 K=1:GOSUB 600
  480 K=2:GOSUB 600
  490 K=3:GOTO 600
  500 L=2:GOSUB 470
  510 K=2:L=1:GOSUB 600
  520 L=3:GOTO 600
  530 L=3:GOTO 470
  540 K=2:L=1:GOSUB 600
  550 K=3:GOSUB 600
  560 K=2:L=2:GOSUB 600
  570 GOTO 490
  580 K=3:GOTO 430
  590 K=2:GOSUB 520:GOTO 550
  600 IF B$(K,L)="O"THEN B$(K,L)="X":RETURN
  610 B$(K,L)="O":RETURN
  620 CLS:PRINT:PRINT:PRINT "SIE HABEN AUFGEGEBEN !"
  625 IF Z<15 THEN 690
  630 PRINT "NACH";Z;"FEHLVERSUCHEN WAR"
  640 PRINT "DAS NICHT ANDERS ZU ERWARTEN !"
  650 PRINT
  660 INPUT "NOCH EIN VERSUCH";Y$
  670 IF Y$<>"N"THEN RUN           
  680 CLS:PRINT "AUF WIEDERSEHEN !":END
  690 PRINT "NOCH EIN PAAR VERSUCHE UND"
  700 PRINT "SIE HAETEN ES AUCH GESCHAFFT !":PRINT "SIE SCHWAECHLING !":GOTO 650
  710 K=K
  720 PRINT
  730 PRINT AT(7,5);"KENNEN SIE DIE REGELN ?"     
  735 Y$=INKEY$
  736 IF Y$=""THEN 735
  740 IF Y$<>"N"THEN PRINT AT(7,5);"                          ":RETURN  
  750 CLS
  755 OUT 136,4
  760 PRINT " HIRNVERWINDER" 
  770 PRINT
  775 PRINT
  780 PRINT "Sie haben ein Feld mit 9 Steinen" 
  800 PRINT " die Sie so wenden sollen, dass"  
  820 PRINT "alle bis auf den in der Mitte "  
  840 PRINT "eine 'O' zeigen."    
  850 PRINT
  860 PRINT "Mit Hilfe der Kursortasten oder"  
  880 PRINT "des Spielhebels waehlen Sie den"
  890 PRINT "zu wendenden Stein an . "   
  900 PRINT "Nach druecken der Ausloesetaste"                      
  920 PRINT "wendet sich der angebene Stein,"                        
  940 PRINT "aber auch ein Teil der Nachbar-"                        
  950 PRINT "steine.Hier liegt das Problem "
  960 PRINT "         und die Schwierigkeit."
  970 PRINT:PRINT:PRINT:PRINT       
  980 PRINT "     Und nun viel Spass !!"
  990 PRINT:PRINT:PRINT
 1000 INPUT II
 1005 OUT 136,0
 1010 CLS:RETURN
 1020 WE=0
 1030 FOR I=1 TO 3
 1040 IF B$(1,I)="O"THEN WE=WE+1
 1050 IF B$(3,I)="O"THEN WE=WE+1
 1060 NEXT
 1070 IF B$(2,1)="O"THEN WE=WE+1
 1080 IF B$(2,2)="X"THEN WE=WE+1
 1090 IF B$(2,3)="O"THEN WE=WE+1
 1091 IF Z=20 THEN PRINT AT(29,0);"Sie muessen schon Ihr Gehirn     anstrengen"   
 1092 IF Z=25 THEN PRINT AT(31,0);"   ... oder haben Sie keines ???" 
 1093 IF Z=33 THEN PRINT AT(31,0);STRING$(40," "):GOSUB 6000  
 1094 IF Z=46 THEN PRINT AT(29,0);"Werden Sie heute noch fertig    werden ?? "
 1100 IF WE<>9 THEN GOTO 150
 1110 WINDOW 22,31,0,31:PRINT "Sie haben es nach"Z-1 "Versuchen "        
 1120 PRINT "geschafft !!       Das ist"
 1130 IF Z>20 THEN PRINT "schon ganz gut !":GOTO 650
 1140 IF Z>10 THEN PRINT "sehr gut !":GOTO 650
 1150 IF Z>5 THEN PRINT "brilliant - weiter so !":GOTO 650
 1160 PRINT "unwahrscheinlich ! - Ich werde"
 1170 PRINT "den Zufallsgenerator ueberarbeiten !"                 
 1180 GOTO 650
 2000 PRINT AT(6,5);""
 2010 FOR L=2 TO 10
 2015 PRINT AT(L+5,5);"           "
 2020 NEXT
 2025 PRINT AT(16,5);""
 2030 RETURN
 3000 PRINT AT(0,1);"" 
 3005 PRINT AT(1,1);"  H I R N V E R W I N D E R  "   
 3010 PRINT AT(2,1);""                         
 3015 RETURN
 4000 A=10:C=10
 4010 PRINT AT(A,C);""
 4020 PRINT AT(A+1,C);"":PRINT AT(A+1,C+2);""
 4030 PRINT AT(A+2,C);"" 
 4040 RETURN
 4110 PRINT AT(A,C);"   "
 4120 PRINT AT(A+1,C);" ":PRINT AT(A+1,C+2);" "
 4130 PRINT AT(A+2,C);"   "
 4140 RETURN
 5000 T$=INKEY$:IF T$=""THEN 5000  
 5005 U=ASC(T$)
 5010 IF U=9 THEN GOSUB 4110:C=C+3
 5020 IF U=8 THEN GOSUB 4110:C=C-3
 5030 IF U=85 THEN GOSUB 4110:A=A-3
 5040 IF U=32 THEN GOSUB 4110:A=A+3
 5042 IF C>13 THEN C=13
 5043 IF C<7 THEN C=7
 5045 IF A>13 THEN A=13
 5047 IF A<7 THEN A=7
 5050 GOSUB 4010
 5060 RETURN
 6000 PRINT AT(29,0);"Langsam verliere ich die Geduld
 6001 RETURN