Raoued plage

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

100 ' 105 '>>>>> Trivia Master Program 110 ' 115 '>>>>> by Randy Hawkins 120 ' 130 COMMON RH: IF RH=0 THEN SYSTEM 140 CLEAR: ON ERROR GOTO 1410 150 DIM P(73,6),ID(73),X(8),Y(8),X2(8),Y2(8),PN$(6),TC$(7),AN(6,7),W(6): WIDTH 80: COLOR 14,1,1: SCREEN 0: CLS: KEY OFF: TT=60 160 COLOR 4,4: FOR A=1 TO 23: LOCATE A,1: PRINT "  ";: LOCATE A,79: PRINT "  ";: NEXT A: FOR A=1 TO 80: LOCATE 1,A: PRINT " ";: LOCATE 3,A: PRINT " ";: LOCATE 8,A: PRINT " ";: LOCATE 23,A: PRINT " ";: NEXT A: COLOR 14,1 170 LOCATE 2,27: PRINT "T R I V I A   M A S T E R";: LOCATE 4,3: PRINT "This program will assist you and as many as five of your friends as you play";: LOCATE 5,3: PRINT "Trivial Pursuit (tm Selchow and Righter Company) or any similar trivia game."; 180 LOCATE 6,3: PRINT "The computer will keep track of your position on the board, keep scores for";: LOCATE

10 ' 20 ' COMPUTER BACKGAMMON 30 ' 35 ' by Randy Hawkins 40 '    5342 Gateridge 45 '    Corpus Christi, TX 78413 50 ' 60 COMMON RH: IF RH=0 THEN SYSTEM 70 CLEAR: ON ERROR GOTO 1630 80 KEY OFF:COLOR 14,0,0:WIDTH 80:CLS:COLOR 14:LOCATE 4:KEY(1) ON:ON KEY(1) GOSUB 1330:PRINT"C O M P U T E R   B A C K G A M M O N":RANDOMIZE TIMER 82 KEY (17) ON 84 KEY 17, CHR$(0)+CHR$(1) 86 ON KEY (17) GOSUB 1620 90 PRINT:PRINT"This public domain version of Backgammon was downloaded from":PRINT"a local computer bulletin board service.  The original author is":PRINT"unknown.  Extensive modifications were added by Randy Hawkins." 100 PRINT:PRINT"In this version of Backgammon, you will be playing against":PRINT"the computer.  To turn the sound effects off or on, press":PRINT"the F1 key.  When you are ready to bear off, press <ENTER>.":PRINT 110 INPUT"Whom will I be playing today";A$(1):A$(2)="

1 PRINT TAB(34);"KING" 2 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY" 3 PRINT:PRINT:PRINT 4 PRINT "DO YOU WANT INSTRUCTIONS"; 5 INPUT Z$ 6 N5=8 10 IF LEFT$(Z$,1)="N" THEN 47 11 IF Z$="AGAIN" THEN 1960 12 PRINT:PRINT:PRINT 20 PRINT "CONGRATULATIONS! YOU'VE JUST BEEN ELECTED PREMIER OF SETATS" 22 PRINT "DETINU, A SMALL COMMUNIST ISLAND 30 BY 70 MILES LONG. YOUR" 24 PRINT "JOB IS TO DECIDE UPON THE CONTRY'S BUDGET AND DISTRIBUTE" 26 PRINT "MONEY TO YOUR COUNTRYMEN FROM THE COMMUNAL TREASURY." 28 PRINT "THE MONEY SYSTEM IS RALLODS, AND EACH PERSON NEEDS 100" 30 PRINT "RALLODS PER YEAR TO SURVIVE. YOUR COUNTRY'S INCOME COMES" 32 PRINT "FROM FARM PRODUCE AND TOURISTS VISITING YOUR MAGNIFICENT" 34 PRINT "FORESTS, HUNTING, FISHING, ETC. HALF YOUR LAND IS FARM LAND" 36 PRINT "WHICH ALSO HAS AN EXCELLENT MINERAL CONTENT AND MAY BE SOLD&q