Raoued plage

10 PRINT TAB(32);"HAMURABI" 20 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY" 30 PRINT:PRINT:PRINT 80 PRINT "TRY YOUR HAND AT GOVERNING ANCIENT SUMERIA" 90 PRINT "FOR A TEN-YEAR TERM OF OFFICE.":PRINT 95 D1=0: P1=0 100 Z=0: P=95:S=2800: H=3000: E=H-S 110 Y=3: A=H/Y: I=5: Q=1 210 D=0 215 PRINT:PRINT:PRINT "HAMURABI:  I BEG TO REPORT TO YOU,": Z=Z+1 217 PRINT "IN YEAR";Z;",";D;"PEOPLE STARVED,";I;"CAME TO THE CITY," 218 P=P+I 227 IF Q>0 THEN 230 228 P=INT(P/2) 229 PRINT "A HORRIBLE PLAGUE STRUCK!  HALF THE PEOPLE DIED." 230 PRINT "POPULATION IS NOW";P 232 PRINT "THE CITY NOW OWNS ";A;"ACRES." 235 PRINT "YOU HARVESTED";Y;"BUSHELS PER ACRE." 250 PRINT "THE RATS ATE";E;"BUSHELS." 260 PRINT "YOU NOW HAVE ";S;"BUSHELS IN STORE.": PRINT 270 IF Z=11 THEN 860 310 C=INT(10*RND(1)): Y=C+17 312 PR

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$: