Raoued plage

10 PRINT TAB(34);"BUG" 20 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY" 30 PRINT:PRINT:PRINT 40 REM 50 A=0: B=0: H=0: L=0: N=0: P=0: Q=0: R=0: S=0: T=0: U=0: V=0: Y=0 60 PRINT "THE GAME BUG" 70 PRINT "I HOPE YOU ENJOY THIS GAME." 80 PRINT 90 PRINT "DO YOU WANT INSTRUCTIONS"; 100 INPUT Z$ 110 IF Z$="NO" THEN 300 120 PRINT "THE OBJECT OF BUG IS TO FINISH YOUR BUG BEFORE I FINISH" 130 PRINT "MINE. EACH NUMBER STANDS FOR A PART OF THE BUG BODY." 140 PRINT "I WILL ROLL THE DIE FOR YOU, TELL YOU WHAT I ROLLED FOR YOU" 150 PRINT "WHAT THE NUMBER STANDS FOR, AND IF YOU CAN GET THE PART." 160 PRINT "IF YOU CAN GET THE PART I WILL GIVE IT TO YOU." 170 PRINT "THE SAME WILL HAPPEN ON MY TURN." 180 PRINT "IF THERE IS A CHANGE IN EITHER BUG I WILL GIVE YOU THE" 190 PRINT "OPTION OF SEEING THE PICTURES OF THE BUGS." 200 PRINT "THE NUMBERS STAND

10 PRINT TAB(32);"ROULETTE" 20 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY" 30 PRINT:PRINT:PRINT 40 PRINT "ENTER THE CURRENT DATE (AS IN 'JANUARY 23, 1979') -"; 50 INPUT D$,E$ 1000 REM-ROULETTE 1010 REM-DAVID JOSLIN 1020 PRINT "WELCOME TO THE ROULETTE TABLE" 1030 PRINT 1040 PRINT "DO YOU WANT INSTRUCTIONS"; 1050 INPUT Y$ 1060 IF LEFT$(Y$,1)="N" THEN 1550 1070 PRINT 1080 PRINT "THIS IS THE BETTING LAYOUT" 1090 PRINT "  (*=RED)" 1100 PRINT 1110 PRINT " 1*    2     3*" 1120 PRINT " 4     5*    6 " 1130 PRINT " 7*    8     9*" 1140 PRINT "10    11    12*" 1150 PRINT "---------------" 1160 PRINT "13    14*   15 " 1170 PRINT "16*   17    18*" 1180 PRINT "19*   20    21*" 1190 PRINT "22    23*   24 " 1200 PRINT "---------------" 1210 PRINT "25*   26    27*" 1220 PRINT "28    29  

1 REM ********************************************************************************PARTIE I DE L'AFFICHAGE DE LA TABLE 10 CLS : KEY OFF: RANDOMIZE TIMER 20 COLOR 1, 4, 2: CLS 30 LOCATE 3, 22: PRINT "- Tableau des El‚ments P‚riodiques -" 40 LOCATE 4, 22: PRINT "     - Affichage des Elements -" 41 LOCATE 5, 22: PRINT "      HydrogŠne I … Krypton IV " 50 COLOR 14: A$ = CHR$(205) 60 LOCATE 2, 20: PRINT CHR$(201) 70 LOCATE 2, 59: PRINT CHR$(187) 80 LOCATE 3, 20: PRINT CHR$(186) 90 LOCATE 3, 59: PRINT CHR$(186) 100 LOCATE 4, 20: PRINT CHR$(186) 110 LOCATE 4, 59: PRINT CHR$(186) 111 LOCATE 5, 20: PRINT CHR$(186) 112 LOCATE 5, 59: PRINT CHR$(186) 120 LOCATE 6, 20: PRINT CHR$(200) 130 LOCATE 6, 59: PRINT CHR$(188) 160 FOR A = 1 TO 38 170 LOCATE 2, 20 + A: PRINT A$ 180 LOCATE 6, 20 + A: PRINT A$ 190 NEXT A 195 PLAY "A": PLAY "A": PLAY "B": PLAY "E" 200 REM ****************************************************************

10 REM *** CONVERTED TO RUN ON IBM-PC BY YUTAKA ARAI *** 20 CLS : PRINT TAB(20); "*** OTHELLO ***": PRINT : DIM A(9, 9), I4(8), J4(8), C$(8), D$(2): PRINT "SHOULD I PLAY MY BEST STRATEGY"; : S2 = 0 30 INPUT X$: IF LEFT$(X$, 1) = "N" THEN 60 40 IF LEFT$(X$, 1) <> "Y" THEN 30 50 S2 = 2 60 B = -1: W = 1: D$(B + 1) = "X": D$(O + 1) = ".": D$(W + 1) = "O": FOR K = 1 TO 8: READ I4(K): NEXT K: DATA 0,-1,-1,-1,0,1,1,1: FOR K = 1 TO 8: READ J4(K): NEXT K: DATA 1,1,0,-1,-1,-1,0,1: FOR K = 1 TO 8: READ C$(K): NEXT K: DATA A,B,C,D,E,F,G,H 70 FOR I = 0 TO 9: FOR J = 0 TO 9: A(I, J) = 0: NEXT J: NEXT I: A(4, 4) = W: A(5, 5) = W: A(4, 5) = B: A(5, 4) = B: C1 = 2: H1 = 2: N1 = 4: Z = 0: PRINT "DO YOU WANT TO HAVE X OR O "; : C = W: H = B 80 INPUT X$: IF LEFT$(X$, 1) = "X" THEN 110 90 IF LEFT$(X$, 1) <> "O" THEN 80 100 C = B: H = W 110 PRINT "DO YOU WANT TO GO FIRST"; 120 INPUT X$:

10 PRINT TAB(33);"SLALOM" 20 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY" 30 PRINT:PRINT:PRINT 310 PRINT "HOW MANY GATES DOES THIS COURSE HAVE (1 TO 25)"; 320 INPUT V 330 IF V>25 THEN 360 340 IF V<1 THEN 390 350 GOTO 1440 360 PRINT "25 IS THE LIMIT." 370 LET V=25 380 GOTO 1440 390 PRINT "TRY AGAIN," 400 GOTO 310 410 PRINT "RATE YOURSELF AS A SKIER, (1=WORST, 3=BEST)"; 420 INPUT A 430 IF A<1 THEN 460 440 IF A>3 THEN 460 450 GOTO 480 460 PRINT "THE BOUNDS ARE 1-3" 470 GOTO 410 480 PRINT"THE STARTER COUNTS DOWN...5...4...3...2...1...GO!"; 490 REM 500 LET T=0 510 LET S=INT(RND(1)*(18-9)+9) 520 PRINT 525 PRINT "YOU'RE OFF!" 530 FOR O=1 TO V 540    READ Q 550    PRINT 555    PRINT "HERE COMES GATE #";STR$(O);":" 560    PRINT S;"M.P.H." 570    LET S1=S 580    PRINT "OPTION"; 590    INPUT O1 600    IF O1=0 THEN 970 610   IF O1>8 THEN