Directory of image this file is from
This file as a plain text file
1 REM ----------------------------------------HUERT1.B30 LA 1 2 REM ***** ERSTELLUNGSDATUM: 21-NOV-75 SPL0000009 3RE ***** VERSION VOM 12-MAR-76 10 DIM A(16),B(16),D(16),V(16),W(16),T$(16),Y(16) 15 DEF FNA(X)=X+1-2*INT(X/2) 16 DEF FNB(X)=X-INT(X/210)*210 20 RANDOMIZE 30 PRINT"CH BEGRUESSE SIE ZU EINEM SPIEL AUS DER BOOLE-SERIE" 80 DATA 1,106,141,85,91,36,190,196,15,21,175,120,126,70,105,0 90 FOR I=1 TO 16 \ READ A(I) \ NEXT I 100 DATA1,2
,5,7,6,10,14,15,21,35,30,42,70,105,210 110 FOR I=1 TO 16 \ READ Y(I) \ NEXT I 120 DATA "LEER","A","B","C","D","AB","AC","AD","BC","BD","CD" 130 DATA "ABC","ABD""ACD","BCD","ABCD" 140 FOR I=1 TO 16 \ READ T$(I) \ NEXT I 150 FOR I=2 TO 5 \ B(I)=100*INT(4*RND+1) \ NEXT I \ Z1=0 \ Z2=0 160 FOR I=6 TO 11 \ B(I)=1000*INT(6*RND+1)T I 170 FOR I=12 TO 15 \ B(I)=10000*INT(4*RND+1) \ NEXT I 175 FOR I=2 TO 15 \ B(I)=B(I)+1 \ NEXT I 180 FOR I=2 TO 15 \ D(I)=A(I)*B(I) \ NEXT I 190 Z=0 \ FOR J= TO4 \ IF D(J)<=D(J+1) THEN 210 \ Z=1 \ H=D(J) 200 D(J)=D(J+1) \ D(J+1)=H 210 NEXT J \ IF Z=1 THEN 190 \ FOR I=2 TO 15 \ FOR J=2 TO 15 230 IF D(I)<>A(J)*B(J) THEN 240 \ D(I)=A(J) 240 NEXT J \ NEXT I \ PRINT 250 PRINT "WELCHE SPIELART? MENGE, TEILER, RECHNEN ODER LOGIK"; 260 INPUT K$ \ IF K$="MENGE" THEN 310 290 IF K$="TEILER" THE310 \ IF K$="RECHNEN" THEN 310 300 IF K$="LOGIK" THEN 310 \ GO TO 250 310 PRINT "KENNZAHL DER GEWAEHLTEN OPERATION"; \ Z1=0 320 INPUT G \ IF G-INT(G)<>0 THEN 360 340 IF G<>0 THEN 350 \ G=8 350 IF (G-1)*(G-2)*(G-3)*(G-4)*(G-5)*(G-6)*(G-7)*(G-8)=0 THEN 370 360 GOSUB 2100 \ GO TO 320 370 D(1)=1 \ D(16)=0 \ IF FNA(G)=2 THEN 390 380 FOR I=1 TO 8 \ J=D(I) \ D(I)=D(17-I) \ D(17-I)=J \ NEXT I 390 REM 700 OVERLAY "HUERT2" 710 GO TO 19 1999 REM ***** UNTERPROGRAMM ZUR FEHLERBEHANDLUNG ***** 200PR NT \ Z1=Z1+1 \ PRINT "SIE HABEN "; \ IF Z1=0 THEN 2020 2010 PRINT "ZUM"Z1"- TEN MALE "; 2020 PRINT "FALSCH GEWAEHLT !" \ IF Z1>3 THEN 2200 2030 IF Z1<3 THEN 2050 2040 PRINT "NAECHSTES MAL BRECHE ICH AB !!!" 2050 PRINT "GEBEN SIE BITTE NEU EIN" \ RETURN 2100 PRINT \ Z2=Z2+1 \ PRINT "SIE HABEN "; \ IF Z2=0 THEN 2120 2110 PRIT "ZUM"Z2"- TEN MALE "; 2120 PRINT "FALSCH GERECHNET !" \ IF Z2>3 THEN 2200 2130 IF Z2<3 THEN 2040 \ GO TO 2050 2200 PRINT \ PRINT "SIE HABEN ZUM 4 - TEN MALE "; \ IF Z1=4 THEN 2220 2210 IF Z2<4 THEN 2230 \ PRINT "FALSCH GERECHNET !" \ GO TO 2230 2220 PRINT "FALSCH GEWAEHLT !" 2230 PRINT \ PRINT "DAS SPIEL IST ZU ENDE !!!" \ PRINT 2240 END