Directory of image this file is from
This file as a plain text file

3 DEF FNT(X)=SIN(X)/COS(X)
4 DEF FNC(X)=COS(X)/SIN(X)
10 PRINT"DAS ZIEL DES SPIELES IST ES:"
15 PRINT""
20PRINT "X X X X X X X X X X "
25 PRINT 
30 PRINT"UMZUWANDELN  IN:"
35 PRINT
40 PRINT"0 0 0 0 0 0 0 0 0 0"
45 PRINT"INDEM MAN DIE NUMMER DIE ZU DEM JEWEILIGEN X GEHOERT"
50 PRINT"EINGIBT.DAS X WIRD DANN ZU 0 GEMACHT "
55 PRINT"ES KANN ABER AUCH SEIN ,DASS ZWEI POSITIONEN VERAENDERT WERDEN"
60 PRINT "SIE KOENNEN DANN ZU 0 WERDEN,ES KANN ABER AUCH"
65 PRINT"X WERDEN . FINDEN SIE DIE RICHTIGE STRATEGIE"
70 PRINT"WENN SIE DIE GANZE ZEILE WIEDER ZU X GEMACHT"
75 PRINT"HABEN WOLLEN, GEBEN SIE 0 EIN."
80 PRINT"WENN SIE MITTEN IM SPIEL NEU ANFANGEN WOLLEN,GEBEN SIE 11"
85 PRINT"VIEL GLUECK..."
180RANDOMIZE
190 Q=RND(Y)
210 PRINT
220 C=0
230 PRINT"1,2,3,4,5,6,7,8,9,10"
240 PRINT"X X X X X X X X X  X"
250 PRINT
260DIM A$(20)
270  FOR X=1 TO 10
280 A$(X)="X"
290  NEXT X
300 GOTO 320
310 PRINT"FALSCHE EINGABE, NEU EINGEBEN"
320 PRINT "GEBEN SIE DIE ZAHL EIN";
330 INPUT N
340 IFN<>INT(N)  THEN 310
350 IF N=11 THEN 180
360 IF N>11 THEN 310
370 IF N=0 THEN 230
380 IF M=N THEN 510
390M=N
400 IF A$(N)="0" THEN480
410 A$(N)="0"
415 A=Q+N/Q-N\B=Q/N\C1=.8*N
420 R=FNT(A)-SIN(B)+336*SIN(C1)
430 N= R-INT(R)
440 N=INT(10*N)
450 IF A$(N)="0"THEN 480
460 A$(N)="0"
470 GOTO 610
480 A$(N)="X"
490 IF M=N THEN 415
500 GOTO 610
510 IF A$(N)="0"THEN 590
520 A$(N)="0"
525 A=Q/N+Q\B=N*2+Q\C1=N
530 R=592*FNC(A)/SIN(B)-COS(C1)
540 N=R-INT(R)
550 N=INT(10*N)
560 IF A$(N)="0" THEN 590
570 A$(N)="0"
580GOTO 610
590 A$(N)="X"
600 IF M=N THEN 525
610 PRINT"1 2 3 4 5 6 7 8 9 10"
620 FOR Z=1 TO 10 \PRINTA$(Z);" ";\NEXT Z
630 C=C+1
640 PRINT
650 FOR Z=1 TO 10
660 IF A$(Z)<>"0"THEN 320
670 NEXT Z
680 IF C>12 THEN 710
690 PRINT "SEHR GUT  SIE HABEN NUR ;";C;"VERSUCHE GEBRAUCHT"
700 GOTO 720
710 PRINT "VERSUCHEN SIE ES BEIM NAECHSTEN MAL BESSER ZU MACHEN"
715 PRINT "SIE HABEN";C;"VERSUCHE GEBRAUCHT"
720 PRINT "WOLLEN SIE NOCH EINMAL SPIELEN(J ODER N)"
730 INPUT X$
740 IF X$="N" THEN 780
750 PRINT
760 GOTO 180
780 END