Raoued plage

1 PRINT TAB(33);"QUEEN" 2 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY" 3 PRINT:PRINT:PRINT 10 DIM S(64) 11 FOR I=1 TO 64 12 READ S(I) 13 NEXT I 14 DATA  81,  71,  61,  51,  41,  31,  21,  11 15 DATA  92,  82,  72,  62,  52,  42,  32,  22 16 DATA 103,  93,  83,  73,  63,  53,  43,  33 17 DATA 114, 104,  94,  84,  74,  64,  54,  44 18 DATA 125, 115, 105,  95,  85,  75,  65,  55 19 DATA 136, 126, 116, 106,  96,  86,  76,  66 20 DATA 147, 137, 127, 117, 107,  97,  87,  77 21 DATA 158, 148, 138, 128, 118, 108,  98,  88 22 INPUT "DO YOU WANT INSTRUCTIONS";W$ 23 IF W$="NO" THEN 30 24 IF W$="YES" THEN 28 25 PRINT "PLEASE ANSWER 'YES' OR 'NO'." 26 GOTO 22 28 GOSUB 5000 29 GOTO 100 30 GOSUB 5160 90 REM     ERROR CHECKS 100 PRINT "WHERE WOULD YOU LIKE TO START"; 110 INPUT M1 115 IF M1=0 THEN 232 120 T1=INT(M1/10) 130 U1=M1-10*T1 140 IF U1=1 THEN 200 150 IF U1=T1 THEN 200 160 PRINT "PLEASE READ

10 PRINT TAB(33);"SPLAT" 20 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY" 40 PRINT:PRINT:PRINT 50 DIM A(42) 95 PRINT "WELCOME TO 'SPLAT' -- THE GAME THAT SIMULATES A PARACHUTE" 96 PRINT "JUMP.  TRY TO OPEN YOUR CHUTE AT THE LAST POSSIBLE" 97 PRINT "MOMENT WITHOUT GOING SPLAT." 118 PRINT:PRINT:D1=0:V=0:A=0:N=0:M=0:D1=INT(9001*RND(1)+1000) 119 PRINT "SELECT YOUR OWN TERMINAL VELOCITY (YES OR NO)";:INPUT A1$   120 IF A1$="NO" GOTO 128 121 IF A1$<>"YES" THEN PRINT "YES OR NO";:INPUT A1$:GOTO 120 123 PRINT "WHAT TERMINAL VELOCITY (MI/HR)";:INPUT V1 125 V1=V1*(5280/3600):V=V1+((V1*RND(1))/20)-((V1*RND(1))/20):GOTO 135 128 V1=INT(1000*RND(1)) 130 PRINT "OK.  TERMINAL VELOCITY ="V1"MI/HR" 131 V1=V1*(5280/3600):V=V1+((V1*RND(1))/20)-((V1*RND(1))/20) 135  PRINT "WANT TO SELECT ACCELERATION DUE TO GRAVITY (YES OR NO)"; 136 INPUT B1$ 140 IF B1

5 PRINT TAB(33);"BATTLE" 7 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY" 10 REM -- BATTLE WRITTEN BY RAY WESTERGARD  10/70 20 REM COPYRIGHT 1971 BY THE REGENTS OF THE UNIV. OF CALIF. 30 REM PRODUCED AT THE LAWRENCE HALL OF SCIENCE, BERKELEY 40 REM DIM F(6,6),H(6,6),A(4)<B(4),C(6),L(3) 50 FOR X=1 TO 6 51 FOR Y=1 TO 6 52 F(X,Y)=0 53 NEXT Y 54 NEXT X 60 FOR I=1 TO 3 70 N=4-I 80 FOR J=1 TO 2 90 A=INT(6*RND(1)+1) 100 B=INT(6*RND(1)+1) 110 D=INT(4*RND(1)+1) 120 IF F(A,B)>0 THEN 90 130 M=0 140 ON D GOTO 150,340,550,740 150 B(1)=B 160 B(2)=7:B(3)=7 170 FOR K=1 TO N 180 IF M>1 THEN 240 190 IF B(K)=6 THEN 230 200 IF F(A,B(K)+1)>0 THEN 230 210 B(K+1)=B(K)+1 220 GOTO 280 230 M=2 240 IF B(1)<B(2) AND B(1)<B(3) THEN Z=B(1) 242 IF B(2)<B(1) AND B(2)<B(3) THEN Z=B(2) 244 IF B(3)<B(1) AND B(3)<B(2) THEN Z=B(3) 250 IF Z=1 THEN 90 260 IF F(A,Z-1)>0 THEN 90 270 B(K+1)=Z-1 280 NEXT K 290 F(A,B)=9-2*I-J 300 FOR K=1 TO N 310 F(A,B(K+1))=F(A,B)

5 PRINT TAB(31);"BASKETBALL" 7 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY" 8 PRINT:PRINT:PRINT 10 PRINT "THIS IS DARTMOUTH COLLEGE BASKETBALL.  YOU WILL BE DARTMOUTH" 20 PRINT " CAPTAIN AND PLAYMAKER.  CALL SHOTS AS FOLLOWS:  1. LONG" 30 PRINT " (30 FT.) JUMP SHOT; 2. SHORT (15 FT.) JUMP SHOT; 3. LAY" 40 PRINT " UP; 4. SET SHOT." 60 PRINT "BOTH TEAMS WILL USE THE SAME DEFENSE.  CALL DEFENSE AS" 70 PRINT "FOLLOWS:  6. PRESS; 6.5 MAN-TO MAN; 7. ZONE; 7.5 NONE." 72 PRINT "TO CHANGE DEFENSE, JUST TYPE 0 AS YOUR NEXT SHOT." 76 INPUT "YOUR STARTING DEFENSE WILL BE";D:IF D<6 THEN 2010 79 PRINT 80 INPUT "CHOOSE YOUR OPPONENT";O$ 370 PRINT "CENTER JUMP" 390 IF RND(1)> 3/5 THEN 420 400 PRINT O$;" CONTROLS THE TAP." 410 GOTO 3000 420 PRINT "DARTMOUTH CONTROLS THE TAP." 425 PRINT 430 INPUT "YOUR SHOT";Z 440 P=0 445 IF Z<>IN

2 PRINT TAB(30);"MASTERMIND" 4 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY" 6 PRINT: PRINT: PRINT 10 REM 20 REM     MASTERMIND II 30 REM     STEVE NORTH 40 REM     CREATIVE COMPUTING 50 REM     PO BOX 789-M MORRISTOWN NEW JERSEY 07960 60 REM 70 REM 80 INPUT "NUMBER OF COLORS";C9 90 IF C9>8 THEN PRINT "NO MORE THAN 8, PLEASE!":GOTO 80 100 INPUT "NUMBER OF POSITIONS";P9 110 INPUT "NUMBER OF ROUNDS";R9 120 P=C9^P9 130 PRINT "TOTAL POSSIBILITIES =";P 140 H=0:C=0 150 DIM Q(P9),S(10,2),S$(10),A$(P9),G$(P9),I(P),H$(P9) 160 L$="BWRGOYPT" 170 PRINT 180 PRINT 190 PRINT "COLOR     LETTER" 200 PRINT "=====     ======" 210 FOR X=1 TO C9 220 READ X$ 230 PRINT X$;TAB(13);MID$(L$,X,1) 240 NEXT X 250 PRINT 260 FOR R=1 TO R9 270 PRINT  280 PRINT "ROUND NUMBER";R;"----" 290 PRINT 300 PRINT "GUESS MY COMBINATION.":PRINT 310 REM     GET A COMBINATION 320 A=INT(P