Raoued plage

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

10 PRINT TAB(34);"CUBE" 20 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY" 30 PRINT : PRINT : PRINT 100 PRINT "DO YOU WANT TO SEE THE INSTRUCTIONS? (YES--1,NO--0)" 110 INPUT B7 120 IF B7=0 THEN 370 130 PRINT"THIS IS A GAME IN WHICH YOU WILL BE PLAYING AGAINST THE" 140 PRINT"RANDOM DECISION OF THE COMPUTER. THE FIELD OF PLAY IS A" 150 PRINT"CUBE OF SIDE 3. ANY OF THE 27 LOCATIONS CAN BE DESIGNATED" 160 PRINT"BY INPUTING THREE NUMBERS SUCH AS 2,3,1. AT THE START," 170 PRINT"YOU ARE AUTOMATICALLY AT LOCATION 1,1,1. THE OBJECT OF" 180 PRINT"THE GAME IS TO GET TO LOCATION 3,3,3. ONE MINOR DETAIL:" 190 PRINT"THE COMPUTER WILL PICK, AT RANDOM, 5 LOCATIONS AT WHICH" 200 PRINT"IT WILL PLANT LAND MINES. IF YOU HIT ONE OF THESE LOCATIONS" 210 PRINT"YOU LOSE. ONE OTHER DETAIL: YOU MAY MOVE ONLY ONE SPACE " 220 PRINT"IN ONE DIRECTION EACH MOVE. FOR  EXAMPLE: FROM 1

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