Raoued plage

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

1 PRINT TAB(32);"FOOTBALL" 2 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY" 3 PRINT:PRINT:PRINT 100 REM 120 DIM A(20),B(20),C(40),H(2),T(2),W(2),X(2),Y(2),Z(2) 130 DIM M$(2),D(2),P$(20) 140 PRINT "PRESENTING N.F.U. FOOTBALL (NO FORTRAN USED)" 145 PRINT:PRINT 150 INPUT "DO YOU WANT INSTRUCTIONS";A$ 160 IF A$="NO" THEN 290 165 IF A$<>"YES" THEN 150 170 PRINT "THIS IS A FOOTBALL GAME FOR TWO TEAMS IN WHICH PLAYERS MUST" 180 PRINT "PREPARE A TAPE WITH A DATA STATEMENT (1770 FOR TEAM 1," 190 PRINT "1780 FOR TEAM 2) IN WHICH EACH TEAM SCRAMBLES NOS. 1-20" 195 PRINT "THESE NUMBERS ARE THEN ASSIGNED TO TWENTY GIVEN PLAYS." 200 PRINT"A LIST OF NOS. AND THEIR PLAYS IS PROVIDED WITH" 210 PRINT "BOTH TEAMS HAVING THE SAME PLAYS. THE MORE SIMILAR THE" 220 PRINT "PLAYS THE LESS YARDAGE GAINED.  SCORES ARE GIVEN" 223 PRINT "WHENEVER SCORES ARE MADE.

1 PRINT TAB(34);"GOLF" 2 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY" 3 PRINT:PRINT:PRINT 4 PRINT "WELCOME TO THE CREATIVE COMPUTING COUNTRY CLUB," 5 PRINT "AN EIGHTEEN HOLE CHAMPIONSHIP LAYOUT LOCATED A SHORT" 6 PRINT "DISTANCE FROM SCENIC DOWNTOWN MORRISTOWN.  THE" 7 PRINT "COMMENTATOR WILL EXPLAIN THE GAME AS YOU PLAY." 8 PRINT "ENJOY YOUR GAME; SEE YOU AT THE 19TH HOLE..." 9 PRINT:PRINT: DIM L(10) 10 G1=18 20 G2=0 30 G3=0 40 A=0 50 N=.8 60 S2=0 70 F=1 80 PRINT "WHAT IS YOUR HANDICAP"; 90 INPUT H:PRINT 100 IF H>30 THEN 470 110 IF H<0 THEN 470 120 PRINT "DIFFICULTIES AT GOLF INCLUDE:" 130 PRINT "0=HOOK, 1=SLICE, 2=POOR DISTANCE, 4=TRAP SHOTS, 5=PUTTING" 140 PRINT "WHICH ONE (ONLY ONE) IS YOUR WORST"; 150 INPUT T:PRINT 160 IF T>5 THEN 120 170 S1=0 210 REM 230 L(0)=0 240 J=0 245 Q=0 250 S2=S2+1 260 K=0 270 IF F=1 THEN 310 290 PRINT "YOUR SCORE ON HOL

2 PRINT TAB(31);"BLACK JACK" 4 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY" 6 PRINT:PRINT:PRINT 10 DEF FNA(Q)=Q+11*(Q>=22) 20 DIM P(15,12),Q(15),C(52),D(52),T(8),S(7),B(15) 30 DIM R(15) 40 REM--P(I,J) IS THE JTH CARD IN HAND I, Q(I) IS TOTAL OF HAND I 50 REM--C IS THE DECK BEING DEALT FROM, D IS THE DISCARD PILE, 60 REM--T(I) IS THE TOTAL FOR PLAYER I, S(I) IS THE TOTAL THIS HAND FOR 70 REM--PLAYER I, B(I) IS TH BET FOR HAND I 80 REM--R(I) IS THE LENGTH OF P(I,*) 90 GOTO 1500 100 REM--SUBROUTINE TO GET A CARD.  RESULT IS PUT IN X. 110 IF C<51 THEN 230 120 PRINT "RESHUFFLING" 130 FOR D=D TO 1 STEP -1 140 C=C-1 150 C(C)=D(D) 160 NEXT D 170 FOR C1=52 TO C STEP -1 180 C2=INT(RND(1)*(C1-C+1))+C 190 C3=C(C2) 200 C(C2)=C(C1) 210 C(C1)=C3 220 NEXT C1 230 X=C(C) 240 C=C+1 250 RETURN 300 REM--SUBROUTINE TO EVALUATE HAND I.  TOTAL IS PUT INTO 310 REM--Q(I). TOTALS HAVE THE FOLLOWING MEANING: 320 REM--  2-10...HARD 2-10 330 REM-- 11-21...SOFT 11-21