.legende

.legende

Follow by Email

prof

prof
sami

أخبار تونس

Rechercher dans ce blog

pampouna et panda




HAMURABI

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 PRINT "LAND IS TRADING AT";Y;"BUSHELS PER ACRE."
320 PRINT "HOW MANY ACRES DO YOU WISH TO BUY";
321 INPUT Q: IF Q<0 THEN 850
322 IF Y*Q<=S THEN 330
323 GOSUB 710
324 GOTO 320
330 IF Q=0 THEN 340
331 A=A+Q: S=S-Y*Q: C=0
334 GOTO 400
340 PRINT "HOW MANY ACRES DO YOU WISH TO SELL";
341 INPUT Q: IF Q<0 THEN 850
342 IF Q<A THEN 350
343 GOSUB 720
344 GOTO 340
350 A=A-Q: S=S+Y*Q: C=0
400 PRINT
410 PRINT "HOW MANY BUSHELS DO YOU WISH TO FEED YOUR PEOPLE";
411 INPUT Q
412 IF Q<0 THEN 850
418 REM *** TRYING TO USE MORE GRAIN THAN IS IN SILOS?
420 IF Q<=S THEN 430
421 GOSUB 710
422 GOTO 410
430 S=S-Q: C=1: PRINT
440 PRINT "HOW MANY ACRES DO YOU WISH TO PLANT WITH SEED";
441 INPUT D: IF D=0 THEN 511
442 IF D<0 THEN 850
444 REM *** TRYING TO PLANT MORE ACRES THAN YOU OWN?
445 IF D<=A THEN 450
446 GOSUB 720
447 GOTO 440
449 REM *** ENOUGH GRAIN FOR SEED?
450 IF INT(D/2)<=S THEN 455
452 GOSUB 710
453 GOTO 440
454 REM *** ENOUGH PEOPLE TO TEND THE CROPS?
455 IF D<10*P THEN 510
460 PRINT "BUT YOU HAVE ONLY";P;"PEOPLE TO TEND THE FIELDS!  NOW THEN,"
470 GOTO 440
510 S=S-INT(D/2)
511 GOSUB 800
512 REM *** A BOUNTIFUL HARVEST!
515 Y=C: H=D*Y: E=0
521 GOSUB 800
522 IF INT(C/2)<>C/2 THEN 530
523 REM *** RATS ARE RUNNING WILD!!
525 E=INT(S/C)
530 S=S-E+H
531 GOSUB 800
532 REM *** LET'S HAVE SOME BABIES
533 I=INT(C*(20*A+S)/P/100+1)
539 REM *** HOW MANY PEOPLE HAD FULL TUMMIES?
540 C=INT(Q/20)
541 REM *** HORROS, A 15% CHANCE OF PLAGUE
542 Q=INT(10*(2*RND(1)-.3))
550 IF P<C THEN 210
551 REM *** STARVE ENOUGH FOR IMPEACHMENT?
552 D=P-C: IF D>.45*P THEN 560
553 P1=((Z-1)*P1+D*100/P)/Z
555 P=C: D1=D1+D: GOTO 215
560 PRINT: PRINT "YOU STARVED";D;"PEOPLE IN ONE YEAR!!!"
565 PRINT "DUE TO THIS EXTREME MISMANAGEMENT YOU HAVE NOT ONLY"
566 PRINT "BEEN IMPEACHED AND THROWN OUT OF OFFICE BUT YOU HAVE"
567 PRINT "ALSO BEEN DECLARED NATIONAL FINK!!!!": GOTO 990
710 PRINT "HAMURABI:  THINK AGAIN.  YOU HAVE ONLY"
711 PRINT S;"BUSHELS OF GRAIN.  NOW THEN,"
712 RETURN
720 PRINT "HAMURABI:  THINK AGAIN.  YOU OWN ONLY";A;"ACRES.  NOW THEN,"
730 RETURN
800 C=INT(RND(1)*5)+1
801 RETURN
850 PRINT: PRINT "HAMURABI:  I CANNOT DO WHAT YOU WISH."
855 PRINT "GET YOURSELF ANOTHER STEWARD!!!!!"
857 GOTO 990
860 PRINT "IN YOUR 10-YEAR TERM OF OFFICE,";P1;"PERCENT OF THE"
862 PRINT "POPULATION STARVED PER YEAR ON THE AVERAGE, I.E. A TOTAL OF"
865 PRINT D1;"PEOPLE DIED!!": L=A/P
870 PRINT "YOU STARTED WITH 10 ACRES PER PERSON AND ENDED WITH"
875 PRINT L;"ACRES PER PERSON.": PRINT
880 IF P1>33 THEN 565
885 IF L<7 THEN 565
890 IF P1>10 THEN 940
892 IF L<9 THEN 940
895 IF P1>3 THEN 960
896 IF L<10 THEN 960
900 PRINT "A FANTASTIC PERFORMANCE!!!  CHARLEMANGE, DISRAELI, AND"
905 PRINT "JEFFERSON COMBINED COULD NOT HAVE DONE BETTER!":GOTO 990
940 PRINT "YOUR HEAVY-HANDED PERFORMANCE SMACKS OF NERO AND IVAN IV."
945 PRINT "THE PEOPLE (REMIANING) FIND YOU AN UNPLEASANT RULER, AND,"
950 PRINT "FRANKLY, HATE YOUR GUTS!!":GOTO 990
960 PRINT "YOUR PERFORMANCE COULD HAVE BEEN SOMEWHAT BETTER, BUT"
965 PRINT "REALLY WASN'T TOO BAD AT ALL. ";INT(P*.8*RND(1));"PEOPLE"
970 PRINT "WOULD DEARLY LIKE TO SEE YOU ASSASSINATED BUT WE ALL HAVE OUR"
975 PRINT "TRIVIAL PROBLEMS."
990 PRINT: FOR N=1 TO 10: PRINT CHR$(7);: NEXT N
995 PRINT "SO LONG FOR NOW.": PRINT
999 END

BUG

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 FOR PARTS AS FOLLOWS:"
210 PRINT "NUMBER","PART","NUMBER OF PART NEEDED"
220 PRINT "1","BODY","1"
230 PRINT "2","NECK","1"
240 PRINT "3","HEAD","1"
250 PRINT "4","FEELERS","2"
260 PRINT "5","TAIL","1"
270 PRINT "6","LEGS","6"
280 PRINT
290 PRINT
300 IF Y>0 THEN 2480
310 Z=INT(6*RND(1)+1)
320 C=1
330 PRINT "YOU ROLLED A";Z
340 ON Z GOTO 350,430,540,650,760,870
350 PRINT "1=BODY"
360 IF B=1 THEN 410
370 PRINT "YOU NOW HAVE A BODY."
380 B=1
390 C=0
400 GOTO 970
410 PRINT "YOU DO NOT NEED A BODY."
420 GOTO 970
430 PRINT "2=NECK"
440 IF N=1 THEN 500
450 IF B=0 THEN 520
460 PRINT "YOU NOW HAVE A NECK."
470 N=1
480 C=0
490 GOTO 970
500 PRINT "YOU DO NOT NEED A NECK."
510 GOTO 970
520 PRINT "YOU DO NOT HAVE A BODY."
530 GOTO 970
540 PRINT "3=HEAD"
550 IF N=0 THEN 610
560 IF H=1 THEN 630
570 PRINT "YOU NEEDED A HEAD."
580 H=1
590 C=0
600 GOTO 970
610 PRINT "YOU DO NOT HAVE A NECK."
620 GOTO 970
630 PRINT "YOU HAVE A HEAD."
640 GOTO 970
650 PRINT "4=FEELERS"
660 IF H=0 THEN 740
670 IF A=2 THEN 720
680 PRINT "I NOW GIVE YOU A FEELER."
690 A=A+1
700 C=0
710 GOTO 970
720 PRINT "YOU HAVE TWO FEELERS ALREADY."
730 GOTO 970
740 PRINT "YOU DO NOT HAVE A HEAD."
750 GOTO 970
760 PRINT "5=TAIL"
770 IF B=0 THEN 830
780 IF T=1 THEN 850
790 PRINT "I NOW GIVE YOU A TAIL."
800 T=T+1
810 C=0
820 GOTO 970
830 PRINT "YOU DO NOT HAVE A BODY."
840 GOTO 970
850 PRINT "YOU ALREADY HAVE A TAIL."
860 GOTO 970
870 PRINT "6=LEG"
880 IF L=6 THEN 940
890 IF B=0 THEN 960
900 L=L+1
910 C=0
920 PRINT "YOU NOW HAVE";L;"LEGS."
930 GOTO 970
940 PRINT "YOU HAVE 6 FEET ALREADY."
950 GOTO 970
960 PRINT "YOU DO NOT HAVE A BODY."
970 X=INT(6*RND(1)+1)
971 PRINT
975 FOR DELAY=1 TO 2000:NEXT DELAY
980 PRINT "I ROLLED A";X
990 ON X GOTO 1000,1080,1190,1300,1410,1520
1000 PRINT "1=BODY"
1010 IF P=1 THEN 1060
1020 PRINT "I NOW HAVE A BODY."
1030 C=0
1040 P=1
1050 GOTO 1630
1060 PRINT "I DO NOT NEED A BODY."
1070 GOTO 1630
1080 PRINT "2=NECK"
1090 IF Q=1 THEN 1150
1100 IF P=0 THEN 1170
1110 PRINT "I NOW HAVE A NECK."
1120 Q=1
1130 C=0
1140 GOTO 1630
1150 PRINT "I DO NOT NEED A NECK."
1160 GOTO 1630
1170 PRINT "I DO NOT HAVE A BODY."
1180 GOTO 1630
1190 PRINT "3=HEAD"
1200 IF Q=0 THEN 1260
1210 IF R=1 THEN 1280
1220 PRINT "I NEEDED A HEAD."
1230 R=1
1240 C=0
1250 GOTO 1630
1260 PRINT "I DO NOT HAVE A NECK."
1270 GOTO 1630
1280 PRINT "I DO NOT NEED A HEAD."
1290 GOTO 1630
1300 PRINT "4=FEELERS"
1310 IF R=0 THEN 1390
1320 IF S=2 THEN 1370
1330 PRINT "I GET A FEELER."
1340 S=S+1
1350 C=0
1360 GOTO 1630
1370 PRINT "I HAVE 2 FEELERS ALREADY."
1380 GOTO 1630
1390 PRINT "I DO NOT HAVE A HEAD."
1400 GOTO 1630
1410 PRINT "5=TAIL"
1420 IF P=0 THEN 1480
1430 IF U=1 THEN 1500
1440 PRINT "I NOW HAVE A TAIL."
1450 U=1
1460 C=0
1470 GOTO 1630
1480 PRINT "I DO NOT HAVE A BODY."
1490 GOTO 1630
1500 PRINT "I DO NOT NEED A TAIL."
1510 GOTO 1630
1520 PRINT "6=LEGS"
1530 IF V=6 THEN 1590
1540 IF P=0 THEN 1610
1550 V=V+1
1560 C=0
1570 PRINT "I NOW HAVE";V;"LEGS."
1580 GOTO 1630
1590 PRINT,"I HAVE 6 FEET."
1600 GOTO 1630
1610 PRINT "I DO NOT HAVE A BODY."
1620 GOTO 1630
1630 IF A=2 AND T=1 AND L=6 THEN 1650
1640 GOTO 1670
1650 PRINT "YOUR BUG IS FINISHED."
1660 Y=Y+1
1670 IF S=2 AND P=1 AND V=6 THEN 1690
1680 GOTO 1710
1690 PRINT "MY BUG IS FINISHED."
1700 Y=Y+2
1710 IF C=1 THEN 300
1720 PRINT "DO YOU WANT THE PICTURES";
1730 INPUT Z$
1740 IF Z$="NO" THEN 300
1750 PRINT "*****YOUR BUG*****"
1760 PRINT
1770 PRINT
1780 IF A=0 THEN 1860
1790 FOR Z=1 TO 4
1800 FOR X=1 TO A
1810 PRINT TAB(10);
1820 PRINT "A ";
1830 NEXT X
1840 PRINT
1850 NEXT Z
1860 IF H=0 THEN 1880
1870 GOSUB 2470
1880 IF N=0 THEN 1920
1890 FOR Z=1 TO 2
1900 PRINT "          N N"
1910 NEXT Z
1920 IF B=0 THEN 2000
1930 PRINT "     BBBBBBBBBBBB"
1940 FOR Z=1 TO 2
1950 PRINT "     B          B"
1960 NEXT Z
1970 IF T<>1 THEN 1990
1980 PRINT "TTTTTB          B"
1990 PRINT "     BBBBBBBBBBBB"
2000 IF L=0 THEN 2080
2010 FOR Z=1 TO 2
2020 PRINT TAB(5);
2030 FOR X=1 TO L
2040 PRINT " L";
2050 NEXT X
2060 PRINT
2070 NEXT Z
2080 FOR Z=1 TO 4
2090 PRINT
2100 NEXT Z
2110 PRINT "*****MY BUG*****"
2120 PRINT
2130 PRINT
2140 PRINT
2150 IF S=0 THEN 2230
2160 FOR Z=1 TO 4
2170 PRINT TAB(10);
2180 FOR X=1 TO S
2190 PRINT "F ";
2200 NEXT X
2210 PRINT
2220 NEXT Z
2230 IF R<>1 THEN 2250
2240 GOSUB 2470
2250 IF Q=0 THEN 2280
2260 PRINT "          N N"
2270 PRINT "          N N"
2280 IF P=0 THEN 2360
2290 PRINT "     BBBBBBBBBBBB"
2300 FOR Z=1 TO 2
2310 PRINT "     B          B"
2320 NEXT Z
2330 IF U<>1 THEN 2350
2340 PRINT "TTTTTB          B"
2350 PRINT "     BBBBBBBBBBBB"
2360 IF V=0 THEN 2450
2370 FOR Z=1 TO 2
2380 PRINT TAB(5);
2390 FOR X=1 TO V
2400 PRINT " L";
2410 NEXT X
2420 PRINT
2430 NEXT Z
2450 IF Y<>0 THEN 2540
2460 GOTO 300
2470 PRINT "        HHHHHHH"
2480 PRINT "        H     H"
2490 PRINT "        H O O H"
2500 PRINT "        H     H"
2510 PRINT "        H  V  H"
2520 PRINT "        HHHHHHH"
2530 RETURN
2540 PRINT "I HOPE YOU ENJOYED THE GAME, PLAY IT AGAIN SOON!!"
2550 END

ROULETTE

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    30*"
1230 PRINT "31    32*   33 "
1240 PRINT "34*   35    36*"
1250 PRINT "---------------"
1260 PRINT "    00    0    "
1270 PRINT
1280 PRINT "TYPES OF BETS"
1290 PRINT
1300 PRINT "THE NUMBERS 1 TO 36 SIGNIFY A STRAIGHT BET"
1310 PRINT "ON THAT NUMBER."
1320 PRINT "THESE PAY OFF 35:1"
1330 PRINT
1340 PRINT "THE 2:1 BETS ARE:"
1350 PRINT " 37) 1-12     40) FIRST COLUMN"
1360 PRINT " 38) 13-24    41) SECOND COLUMN"
1370 PRINT " 39) 25-36    42) THIRD COLUMN"
1380 PRINT
1390 PRINT "THE EVEN MONEY BETS ARE:"
1400 PRINT " 43) 1-18     46) ODD"
1410 PRINT " 44) 19-36    47) RED"
1420 PRINT " 45) EVEN     48) BLACK"
1430 PRINT
1440 PRINT " 49)0 AND 50)00 PAY OFF 35:1"
1450 PRINT " NOTE: 0 AND 00 DO NOT COUNT UNDER ANY"
1460 PRINT "       BETS EXCEPT THEIR OWN."
1470 PRINT
1480 PRINT "WHEN I ASK FOR EACH BET, TYPE THE NUMBER"
1490 PRINT "AND THE AMOUNT, SEPARATED BY A COMMA."
1500 PRINT "FOR EXAMPLE: TO BET $500 ON BLACK, TYPE 48,500"
1510 PRINT "WHEN I ASK FOR A BET."
1520 PRINT
1530 PRINT "THE MINIMUM BET IS $5, THE MAXIMUM IS $500."
1540 PRINT
1550 REM-PROGRAM BEGINS HERE
1560 REM-TYPE OF BET(NUMBER) ODDS
1570 REM  DON'T NEED TO DIMENSION STRINGS
1580 DIM B(100),C(100),T(100),X(38)
1590 DIM A(50)
1600 FOR I=1 TO 38: X(I)=0: NEXT I: REM  MAT X=ZER
1610 P=1000
1620 D=100000.
1630 PRINT "HOW MANY BETS";
1640 INPUT Y
1650 IF Y<1 OR Y<>INT(Y) THEN 1630
1660 FOR I=1 TO 50: A(I)=0: NEXT I: REM  MAT A=ZER
1670 FOR C=1 TO Y
1680 PRINT "NUMBER";C;
1690 INPUT X,Z
1700 B(C)=Z
1710 T(C)=X
1720 IF X<1 OR X>50 OR X<>INT(X) THEN 1680
1730 IF Z<1 OR Z<>INT(Z) THEN 1680
1740 IF Z<5 OR Z>500 THEN 1680
1750 IF A(X)=0 THEN 1780
1760 PRINT "YOU MADE THAT BET ONCE ALREADY,DUM-DUM"
1770 GOTO 1680
1780 A(X)=1
1790 NEXT C
1800 PRINT "SPINNING"
1810 PRINT
1820 PRINT
1830 S=INT(RND(1)*100)
1840 IF S=0 OR S>38 THEN 1830
1850 X(S)=X(S)+1
1860 IF S<37 THEN 1920
1870 IF S=37 THEN 1900
1880 PRINT "00"
1890 GOTO 2020
1900 PRINT "0"
1910 GOTO 2020
1920 RESTORE
1930 FOR I1=1 TO 18
1940 READ R
1950 IF R=S THEN 2000
1960 NEXT I1
1970 A$="BLACK"
1980 PRINT S;A$
1990 GOTO 2020
2000 A$="RED"
2010 GOTO 1980
2020 PRINT
2030 FOR C=1 TO Y
2040 IF T(C)<37 THEN 2710
2050 ON T(C)-36 GOTO 2090,2190,2220,2250,2300,2350,2400,2470,2500
2060 ON T(C)-45 GOTO 2530,2560,2630
2070 GOTO 2710
2080 STOP
2090 REM  1-12(37) 2:1
2100 IF S <= 12 THEN 2150
2110 PRINT "YOU LOSE";B(C);"DOLLARS ON BET";C
2120 D=D+B(C)
2130 P=P-B(C)
2140 GOTO 2180
2150 PRINT "YOU WIN";B(C)*2;"DOLLARS ON BET"C
2160 D=D-B(C)*2
2170 P=P+B(C)*2
2180 GOTO 2810
2190 REM  13-24(38) 2:1
2200 IF S>12 AND S<25 THEN 2150
2210 GOTO 2110
2220 REM  25-36(39) 2:1
2230 IF S>24 AND S<37 THEN 2150
2240 GOTO 2110
2250 REM  FIRST COLUMN(40) 2:1
2260 FOR I=1 TO 34 STEP 3
2270 IF S=I THEN 2150
2280 NEXT I
2290 GOTO 2110
2300 REM  SECOND COLUMN(41) 2:1
2310 FOR I=2 TO 35 STEP 3
2320 IF S=I THEN 2150
2330 NEXT I
2340 GOTO 2110
2350 REM  THIRD COLUMN(42) 2:1
2360 FOR I=3 TO 36 STEP 3
2370 IF S=I THEN 2150
2380 NEXT I
2390 GOTO 2110
2400 REM  1-18(43) 1:1
2410 IF S<19 THEN 2430
2420 GOTO 2110
2430 PRINT "YOU WIN";B(C);"DOLLARS ON BET";C
2440 D=D-B(C)
2450 P=P+B(C)
2460 GOTO 2810
2470 REM  19-36(44) 1:1
2480 IF S<37 AND S>18 THEN 2430
2490 GOTO 2110
2500 REM  EVEN(45) 1:1
2510 IF S/2=INT(S/2) AND S<37 THEN 2430
2520 GOTO 2110
2530 REM  ODD(46) 1:1
2540 IF S/2<>INT(S/2) AND S<37 THEN 2430
2550 GOTO 2110
2560 REM  RED(47) 1:1
2570 RESTORE
2580 FOR I=1 TO 18
2590 READ R
2600 IF S=R THEN 2430
2610 NEXT I
2620 GOTO 2110
2630 REM  BLACK(48) 1:1
2640 RESTORE
2650 FOR I=1 TO 18
2660 READ R
2670 IF S=R THEN 2110
2680 NEXT I
2690 IF S>36 THEN 2110
2700 GOTO 2430
2710 REM--1TO36,0,00(1-36,49,50)35:1
2720 IF T(C)<49 THEN 2760
2730 IF T(C)=49 AND S=37 THEN 2780
2740 IF T(C)=50 AND S=38 THEN 2780
2750 GOTO 2110
2760 IF T(C)=S THEN 2780
2770 GOTO 2110
2780 PRINT "YOU WIN";B(C)*35;"DOLLARS ON BET";C
2790 D=D-B(C)*35
2800 P=P+B(C)*35
2810 NEXT C
2820 PRINT
2830 PRINT "TOTALS:","ME","YOU"
2840 PRINT " ",D,P
2850 IF P>0 THEN 2880
2860 PRINT "OOPS! YOU JUST SPENT YOUR LAST DOLLAR!"
2870 GOTO 3190
2880 IF D>0 THEN 2920
2890 PRINT "YOU BROKE THE HOUSE!"
2900 P=101000.
2910 GOTO 2960
2920 PRINT "AGAIN";
2930 INPUT Y$
2940 IF LEFT$(Y$,1)="Y" THEN 1630
2950 DATA 1,3,5,7,9,12,14,16,18,19,21,23,25,27,30,32,34,36
2960 IF P<1 THEN 3190
2970 PRINT "TO WHOM SHALL I MAKE THE CHECK";
2980 INPUT B$
2990 PRINT
3000 FOR I=1 TO 72: PRINT "-";: NEXT I: REM PRINT 72 DASHES
3010 PRINT TAB(50);"CHECK NO. ";INT(RND(1)*100)
3020 PRINT
3030 GOSUB 3230
3040 PRINT TAB(40);M$
3050 PRINT
3060 PRINT
3070 PRINT "PAY TO THE ORDER OF-----";B$;"-----$ ";
3080 PRINT P
3090 PRINT
3100 PRINT
3110 PRINT TAB(10),"THE MEMORY BANK OF NEW YORK"
3120 PRINT
3130 PRINT TAB(40),"THE COMPUTER"
3140 PRINT TAB(40)"----------X-----"
3150 PRINT
3160 FOR I=1 TO 62: PRINT "-";: NEXT I
3170 PRINT "COME BACK SOON!"
3180 GOTO 3210
3190 PRINT "THANKS FOR YOUR MONEY."
3200 PRINT "I'LL USE IT TO BUY A SOLID GOLD ROULETTE WHEEL"
3210 PRINT
3220 GOTO 3420
3230 REM
3240 REM     THIS ROUTINE RETURNS THE CURRENT DATE IN M$
3250 REM     IF YOU HAVE SYSTEM FUNCTIONS TO HANDLE THIS
3260 REM     THEY CAN BE USED HERE.  HOWEVER IN THIS
3270 REM     PROGRAM, WE JUST INPUT THE DATE AT THE START
3280 REM     THE GAME
3290 REM
3300 REM     THE DATE IS RETURNED IN VARIABLE M$
3310 M$=D$+", "+E$
3320 RETURN
3420 END

liste des éléments chimiques

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 **********************************************************************CHOIX
2540 COLOR 2
2550 LOCATE 9, 10: PRINT CHR$(219); " Entrez le nom ou le symbole de l'El‚ment … consulter : "; CHR$(219)
2560 LOCATE 10, 10: PRINT CHR$(219); " (Tout en majuscule) "; CHR$(219)
2561 COLOR 1
2570 COLOR 14: LOCATE 14, 10: INPUT A$
2580 IF A$ = "HYDROGENE" OR A$ = "H" THEN GOTO 3730
2590 IF A$ = "HELIUM" OR A$ = "HE" THEN GOTO 4080
2600 IF A$ = "LITHIUM" OR A$ = "LI" THEN GOTO 4340
2610 IF A$ = "BERYLLIUM" OR A$ = "BE" THEN GOTO 4600
2620 IF A$ = "BORE" OR A$ = "B" THEN GOTO 7990
2630 IF A$ = "CARBONE" OR A$ = "C" THEN GOTO 8250
2640 IF A$ = "AZOTE" OR A$ = "N" THEN GOTO 8510
2650 IF A$ = "OXYGENE" OR A$ = "O" THEN GOTO 5130
2660 IF A$ = "FLUOR" OR A$ = "F" THEN GOTO 5390
2670 IF A$ = "NEON" OR A$ = "NE" THEN GOTO 5650
2680 IF A$ = "SODIUM" OR A$ = "NA" THEN GOTO 5910
2690 IF A$ = "MAGNESIUM" OR A$ = "MG" THEN GOTO 6170
2700 IF A$ = "ALUMINIUM" OR A$ = "AL" THEN GOTO 6430
2710 IF A$ = "SILICIUM" OR A$ = "SI" THEN GOTO 6690
2720 IF A$ = "PHOSPHORE" OR A$ = "P" THEN GOTO 6950
2730 IF A$ = "SOUFRE" OR A$ = "S" THEN GOTO 7210
2740 IF A$ = "CHLORE" OR A$ = "CL" THEN GOTO 7470
2750 IF A$ = "ARGON" OR A$ = "AR" THEN GOTO 7730
2760 IF A$ = "POTASSIUM" OR A$ = "K" THEN GOTO 8770
2770 IF A$ = "CALCIUM" OR A$ = "CA" THEN GOTO 9030
2780 IF A$ = "SCANDIUM" OR A$ = "SC" THEN GOTO 9290
2790 IF A$ = "TITANE" OR A$ = "TI" THEN GOTO 9550
2800 IF A$ = "VANADIUM" OR A$ = "V" THEN GOTO 9810
2810 IF A$ = "CHROME" OR A$ = "CR" THEN GOTO 10070
2820 IF A$ = "MANGANESE" OR A$ = "MN" THEN GOTO 10330
2830 IF A$ = "FER" OR A$ = "FE" THEN GOTO 10590
2840 IF A$ = "COBALT" OR A$ = "CO" THEN GOTO 10850
2850 IF A$ = "NICKEL" OR A$ = "NI" THEN GOTO 11110
2860 IF A$ = "CUIVRE" OR A$ = "CU" THEN GOTO 11370
2870 IF A$ = "ZINC" OR A$ = "ZN" THEN GOTO 11630
2880 IF A$ = "GALLIUM" OR A$ = "GA" THEN GOTO 11890
2890 IF A$ = "GERMANIUM" OR A$ = "GE" THEN GOTO 12150
2900 IF A$ = "ARSENIC" OR A$ = "AS" THEN GOTO 12410
2910 IF A$ = "SELENIUM" OR A$ = "SE" THEN GOTO 12670
2920 IF A$ = "BROME" OR A$ = "BR" THEN GOTO 12930
2930 IF A$ = "KRYPTON" OR A$ = "KR" THEN GOTO 13200
2940 LOCATE 14, 10: PRINT "                                             "
2950 GOTO 2570
3720 REM **********************************************************************AFFICHAGE DES DETAILS SUR LES ELEMENTS
3730 REM ********** HYDROGENE
3740 COLOR 1, 4, 2: CLS
3750 LOCATE 1, 20: PRINT "+---------------+"
3760 LOCATE 2, 20: PRINT "Ý HYDROGENE - H Ý"
3770 LOCATE 3, 20: PRINT "+---------------+"
3780 COLOR 2, 4, 2
3790 LOCATE 6, 10: PRINT CHR$(176); CHR$(176); " Symbole :............................."
3800 LOCATE 7, 10: PRINT CHR$(176); CHR$(176); " Ligne du tableau :...................."
3810 LOCATE 8, 10: PRINT CHR$(176); CHR$(176); " Colonne du tableau :.................."
3820 LOCATE 9, 10: PRINT CHR$(176); CHR$(176); " Famille :............................."
3830 LOCATE 10, 10: PRINT CHR$(176); CHR$(176); " Type :..............................."
3840 LOCATE 11, 10: PRINT CHR$(176); CHR$(176); " Num‚ro atomique Z :.................."
3850 LOCATE 12, 10: PRINT CHR$(176); CHR$(176); " Masse molaire atomique (g.mol-1) :..."
3860 LOCATE 13, 10: PRINT CHR$(176); CHR$(176); " Obtenu artificiellement ? :.........."
3870 LOCATE 14, 10: PRINT CHR$(176); CHR$(176); " Etat … 25øC et 1 bar :..............."
3880 COLOR 1, 4, 2
3890 LOCATE 6, 52: PRINT "H"
3900 LOCATE 7, 52: PRINT "1"
3910 LOCATE 8, 52: PRINT "I"
3920 LOCATE 9, 52: PRINT "I"
3930 LOCATE 10, 52: PRINT "m‚taux"
3940 LOCATE 11, 52: PRINT "Z = 1"
3950 LOCATE 12, 52: PRINT "1,0 g.mol-1"
3960 LOCATE 13, 52: PRINT "non"
3970 LOCATE 14, 52: PRINT "gaz"
3980 GOTO 3990
3990 REM **********************************************************************CHOIX DE FIN
4000 COLOR 14, 2: LOCATE 21, 10: PRINT " Retour au sommaire g‚n‚ral : 1         "
4010 COLOR 14, 2: LOCATE 22, 10: PRINT " Retour … la s‚lection : 2  Quitter : 3 "
4020 Z$ = INKEY$: IF Z$ = "" THEN GOTO 4020
4030 IF Z$ = "3" THEN SYSTEM: END
4040 IF Z$ = "1" THEN RUN "Sommaire"
4050 IF Z$ = "2" THEN GOTO 1
4070 PLAY "A": GOTO 4020
4080 REM ********** HELIUM
4090 COLOR 1, 4, 2: CLS
4100 LOCATE 1, 20: PRINT "+-------------+"
4110 LOCATE 2, 20: PRINT "Ý HELIUM - He Ý"
4120 LOCATE 3, 20: PRINT "+-------------+"
4130 COLOR 2, 4, 2
4140 LOCATE 6, 10: PRINT CHR$(176); CHR$(176); " Symbole :............................."
4150 LOCATE 7, 10: PRINT CHR$(176); CHR$(176); " Ligne du tableau :...................."
4160 LOCATE 8, 10: PRINT CHR$(176); CHR$(176); " Colonne du tableau :.................."
4170 LOCATE 9, 10: PRINT CHR$(176); CHR$(176); " Famille :............................."
4180 LOCATE 10, 10: PRINT CHR$(176); CHR$(176); " Type :..............................."
4190 LOCATE 11, 10: PRINT CHR$(176); CHR$(176); " Num‚ro atomique Z :.................."
4200 LOCATE 12, 10: PRINT CHR$(176); CHR$(176); " Masse molaire atomique (g.mol-1) :..."
4210 LOCATE 13, 10: PRINT CHR$(176); CHR$(176); " Obtenu artificiellement ? :.........."
4220 LOCATE 14, 10: PRINT CHR$(176); CHR$(176); " Etat … 25øC et 1 bar :..............."
4230 COLOR 1, 4, 2
4240 LOCATE 6, 52: PRINT "He"
4250 LOCATE 7, 52: PRINT "1"
4260 LOCATE 8, 52: PRINT "XVIII"
4270 LOCATE 9, 52: PRINT "gaz nobles"
4280 LOCATE 10, 52: PRINT "gaz nobles"
4290 LOCATE 11, 52: PRINT "Z = 2"
4300 LOCATE 12, 52: PRINT "4,0 g.mol-1"
4310 LOCATE 13, 52: PRINT "non"
4320 LOCATE 14, 52: PRINT "gaz"
4330 GOTO 3990
4340 REM ********** LITHIUM
4350 COLOR 1, 4, 2: CLS
4360 LOCATE 1, 20: PRINT "+--------------+"
4370 LOCATE 2, 20: PRINT "Ý LITHIUM - Li Ý"
4380 LOCATE 3, 20: PRINT "+--------------+"
4390 COLOR 2, 4, 2
4400 LOCATE 6, 10: PRINT CHR$(176); CHR$(176); " Symbole :............................."
4410 LOCATE 7, 10: PRINT CHR$(176); CHR$(176); " Ligne du tableau :...................."
4420 LOCATE 8, 10: PRINT CHR$(176); CHR$(176); " Colonne du tableau :.................."
4430 LOCATE 9, 10: PRINT CHR$(176); CHR$(176); " Famille :............................."
4440 LOCATE 10, 10: PRINT CHR$(176); CHR$(176); " Type :..............................."
4450 LOCATE 11, 10: PRINT CHR$(176); CHR$(176); " Num‚ro atomique Z :.................."
4460 LOCATE 12, 10: PRINT CHR$(176); CHR$(176); " Masse molaire atomique (g.mol-1) :..."
4470 LOCATE 13, 10: PRINT CHR$(176); CHR$(176); " Obtenu artificiellement ? :.........."
4480 LOCATE 14, 10: PRINT CHR$(176); CHR$(176); " Etat … 25øC et 1 bar :..............."
4490 COLOR 1, 4, 2
4500 LOCATE 6, 52: PRINT "Li"
4510 LOCATE 7, 52: PRINT "2"
4520 LOCATE 8, 52: PRINT "I"
4530 LOCATE 9, 52: PRINT "alcalin"
4540 LOCATE 10, 52: PRINT "m‚taux"
4550 LOCATE 11, 52: PRINT "Z = 3"
4560 LOCATE 12, 52: PRINT "6,9 g.mol-1"
4570 LOCATE 13, 52: PRINT "non"
4580 LOCATE 14, 52: PRINT "solide"
4590 GOTO 3990
4600 REM ********** BERYLLIUM
4610 COLOR 1, 4, 2: CLS
4620 LOCATE 1, 20: PRINT "+----------------+"
4630 LOCATE 2, 20: PRINT "Ý BERYLLIUM - Be Ý"
4640 LOCATE 3, 20: PRINT "+----------------+"
4650 COLOR 2, 4, 2
4660 LOCATE 6, 10: PRINT CHR$(176); CHR$(176); " Symbole :............................."
4670 LOCATE 7, 10: PRINT CHR$(176); CHR$(176); " Ligne du tableau :...................."
4680 LOCATE 8, 10: PRINT CHR$(176); CHR$(176); " Colonne du tableau :.................."
4690 LOCATE 9, 10: PRINT CHR$(176); CHR$(176); " Famille :............................."
4700 LOCATE 10, 10: PRINT CHR$(176); CHR$(176); " Type :..............................."
4710 LOCATE 11, 10: PRINT CHR$(176); CHR$(176); " Num‚ro atomique Z :.................."
4720 LOCATE 12, 10: PRINT CHR$(176); CHR$(176); " Masse molaire atomique (g.mol-1) :..."
4730 LOCATE 13, 10: PRINT CHR$(176); CHR$(176); " Obtenu artificiellement ? :.........."
4740 LOCATE 14, 10: PRINT CHR$(176); CHR$(176); " Etat … 25øC et 1 bar :..............."
4750 COLOR 1, 4, 2
4760 LOCATE 6, 52: PRINT "Be"
4770 LOCATE 7, 52: PRINT "2"
4780 LOCATE 8, 52: PRINT "II"
4790 LOCATE 9, 52: PRINT "II"
4800 LOCATE 10, 52: PRINT "m‚taux"
4810 LOCATE 11, 52: PRINT "Z = 4"
4820 LOCATE 12, 52: PRINT "9,0 g.mol-1"
4830 LOCATE 13, 52: PRINT "non"
4840 LOCATE 14, 52: PRINT "solide"
4850 GOTO 3990
5130 REM ********** OXYGENE
5140 COLOR 1, 4, 2: CLS
5150 LOCATE 1, 20: PRINT "+-------------+"
5160 LOCATE 2, 20: PRINT "Ý OXYGENE - O Ý"
5170 LOCATE 3, 20: PRINT "+-------------+"
5180 COLOR 2, 4, 2
5190 LOCATE 6, 10: PRINT CHR$(176); CHR$(176); " Symbole :............................."
5200 LOCATE 7, 10: PRINT CHR$(176); CHR$(176); " Ligne du tableau :...................."
5210 LOCATE 8, 10: PRINT CHR$(176); CHR$(176); " Colonne du tableau :.................."
5220 LOCATE 9, 10: PRINT CHR$(176); CHR$(176); " Famille :............................."
5230 LOCATE 10, 10: PRINT CHR$(176); CHR$(176); " Type :..............................."
5240 LOCATE 11, 10: PRINT CHR$(176); CHR$(176); " Num‚ro atomique Z :.................."
5250 LOCATE 12, 10: PRINT CHR$(176); CHR$(176); " Masse molaire atomique (g.mol-1) :..."
5260 LOCATE 13, 10: PRINT CHR$(176); CHR$(176); " Obtenu artificiellement ? :.........."
5270 LOCATE 14, 10: PRINT CHR$(176); CHR$(176); " Etat … 25øC et 1 bar :..............."
5280 COLOR 1, 4, 2
5290 LOCATE 6, 52: PRINT "O"
5300 LOCATE 7, 52: PRINT "2"
5310 LOCATE 8, 52: PRINT "XVI"
5320 LOCATE 9, 52: PRINT "XVI"
5330 LOCATE 10, 52: PRINT "non-m‚taux"
5340 LOCATE 11, 52: PRINT "Z = 8"
5350 LOCATE 12, 52: PRINT "16,0 g.mol-1"
5360 LOCATE 13, 52: PRINT "non"
5370 LOCATE 14, 52: PRINT "gaz"
5380 GOTO 3990
5390 REM ********** FLUOR
5400 COLOR 1, 4, 2: CLS
5410 LOCATE 1, 20: PRINT "+-----------+"
5420 LOCATE 2, 20: PRINT "Ý FLUOR - F Ý"
5430 LOCATE 3, 20: PRINT "+-----------+"
5440 COLOR 2, 4, 2
5450 LOCATE 6, 10: PRINT CHR$(176); CHR$(176); " Symbole :............................."
5460 LOCATE 7, 10: PRINT CHR$(176); CHR$(176); " Ligne du tableau :...................."
5470 LOCATE 8, 10: PRINT CHR$(176); CHR$(176); " Colonne du tableau :.................."
5480 LOCATE 9, 10: PRINT CHR$(176); CHR$(176); " Famille :............................."
5490 LOCATE 10, 10: PRINT CHR$(176); CHR$(176); " Type :..............................."
5500 LOCATE 11, 10: PRINT CHR$(176); CHR$(176); " Num‚ro atomique Z :.................."
5510 LOCATE 12, 10: PRINT CHR$(176); CHR$(176); " Masse molaire atomique (g.mol-1) :..."
5520 LOCATE 13, 10: PRINT CHR$(176); CHR$(176); " Obtenu artificiellement ? :.........."
5530 LOCATE 14, 10: PRINT CHR$(176); CHR$(176); " Etat … 25øC et 1 bar :..............."
5540 COLOR 1, 4, 2
5550 LOCATE 6, 52: PRINT "F"
5560 LOCATE 7, 52: PRINT "2"
5570 LOCATE 8, 52: PRINT "XVII"
5580 LOCATE 9, 52: PRINT "halogŠnes"
5590 LOCATE 10, 52: PRINT "non-m‚taux"
5600 LOCATE 11, 52: PRINT "Z = 9"
5610 LOCATE 12, 52: PRINT "19,0 g.mol-1"
5620 LOCATE 13, 52: PRINT "non"
5630 LOCATE 14, 52: PRINT "gaz"
5640 GOTO 3990
5650 REM ********** NEON
5660 COLOR 1, 4, 2: CLS
5670 LOCATE 1, 20: PRINT "+-----------+"
5680 LOCATE 2, 20: PRINT "Ý NEON - Ne Ý"
5690 LOCATE 3, 20: PRINT "+-----------+"
5700 COLOR 2, 4, 2
5710 LOCATE 6, 10: PRINT CHR$(176); CHR$(176); " Symbole :............................."
5720 LOCATE 7, 10: PRINT CHR$(176); CHR$(176); " Ligne du tableau :...................."
5730 LOCATE 8, 10: PRINT CHR$(176); CHR$(176); " Colonne du tableau :.................."
5740 LOCATE 9, 10: PRINT CHR$(176); CHR$(176); " Famille :............................."
5750 LOCATE 10, 10: PRINT CHR$(176); CHR$(176); " Type :..............................."
5760 LOCATE 11, 10: PRINT CHR$(176); CHR$(176); " Num‚ro atomique Z :.................."
5770 LOCATE 12, 10: PRINT CHR$(176); CHR$(176); " Masse molaire atomique (g.mol-1) :..."
5780 LOCATE 13, 10: PRINT CHR$(176); CHR$(176); " Obtenu artificiellement ? :.........."
5790 LOCATE 14, 10: PRINT CHR$(176); CHR$(176); " Etat … 25øC et 1 bar :..............."
5800 COLOR 1, 4, 2
5810 LOCATE 6, 52: PRINT "Ne"
5820 LOCATE 7, 52: PRINT "2"
5830 LOCATE 8, 52: PRINT "XVIII"
5840 LOCATE 9, 52: PRINT "gaz nobles"
5850 LOCATE 10, 52: PRINT "gaz nobles"
5860 LOCATE 11, 52: PRINT "Z = 10"
5870 LOCATE 12, 52: PRINT "20,2 g.mol-1"
5880 LOCATE 13, 52: PRINT "non"
5890 LOCATE 14, 52: PRINT "gaz"
5900 GOTO 3990
5910 REM ********** SODIUM
5920 COLOR 1, 4, 2: CLS
5930 LOCATE 1, 20: PRINT "+-------------+"
5940 LOCATE 2, 20: PRINT "Ý SODIUM - Na Ý"
5950 LOCATE 3, 20: PRINT "+-------------+"
5960 COLOR 2, 4, 2
5970 LOCATE 6, 10: PRINT CHR$(176); CHR$(176); " Symbole :............................."
5980 LOCATE 7, 10: PRINT CHR$(176); CHR$(176); " Ligne du tableau :...................."
5990 LOCATE 8, 10: PRINT CHR$(176); CHR$(176); " Colonne du tableau :.................."
6000 LOCATE 9, 10: PRINT CHR$(176); CHR$(176); " Famille :............................."
6010 LOCATE 10, 10: PRINT CHR$(176); CHR$(176); " Type :..............................."
6020 LOCATE 11, 10: PRINT CHR$(176); CHR$(176); " Num‚ro atomique Z :.................."
6030 LOCATE 12, 10: PRINT CHR$(176); CHR$(176); " Masse molaire atomique (g.mol-1) :..."
6040 LOCATE 13, 10: PRINT CHR$(176); CHR$(176); " Obtenu artificiellement ? :.........."
6050 LOCATE 14, 10: PRINT CHR$(176); CHR$(176); " Etat … 25øC et 1 bar :..............."
6060 COLOR 1, 4, 2
6070 LOCATE 6, 52: PRINT "Na"
6080 LOCATE 7, 52: PRINT "3"
6090 LOCATE 8, 52: PRINT "I"
6100 LOCATE 9, 52: PRINT "alcalins"
6110 LOCATE 10, 52: PRINT "m‚taux"
6120 LOCATE 11, 52: PRINT "Z = 11"
6130 LOCATE 12, 52: PRINT "23,0 g.mol-1"
6140 LOCATE 13, 52: PRINT "non"
6150 LOCATE 14, 52: PRINT "solide"
6160 GOTO 3990
6170 REM ********** MAGNESIUM
6180 COLOR 1, 4, 2: CLS
6190 LOCATE 1, 20: PRINT "+----------------+"
6200 LOCATE 2, 20: PRINT "Ý MAGNESIUM - MG Ý"
6210 LOCATE 3, 20: PRINT "+----------------+"
6220 COLOR 2, 4, 2
6230 LOCATE 6, 10: PRINT CHR$(176); CHR$(176); " Symbole :............................."
6240 LOCATE 7, 10: PRINT CHR$(176); CHR$(176); " Ligne du tableau :...................."
6250 LOCATE 8, 10: PRINT CHR$(176); CHR$(176); " Colonne du tableau :.................."
6260 LOCATE 9, 10: PRINT CHR$(176); CHR$(176); " Famille :............................."
6270 LOCATE 10, 10: PRINT CHR$(176); CHR$(176); " Type :..............................."
6280 LOCATE 11, 10: PRINT CHR$(176); CHR$(176); " Num‚ro atomique Z :.................."
6290 LOCATE 12, 10: PRINT CHR$(176); CHR$(176); " Masse molaire atomique (g.mol-1) :..."
6300 LOCATE 13, 10: PRINT CHR$(176); CHR$(176); " Obtenu artificiellement ? :.........."
6310 LOCATE 14, 10: PRINT CHR$(176); CHR$(176); " Etat … 25øC et 1 bar :..............."
6320 COLOR 1, 4, 2
6330 LOCATE 6, 52: PRINT "Mg"
6340 LOCATE 7, 52: PRINT "3"
6350 LOCATE 8, 52: PRINT "II"
6360 LOCATE 9, 52: PRINT "II"
6370 LOCATE 10, 52: PRINT "m‚taux"
6380 LOCATE 11, 52: PRINT "Z = 12"
6390 LOCATE 12, 52: PRINT "24,3 g.mol-1"
6400 LOCATE 13, 52: PRINT "non"
6410 LOCATE 14, 52: PRINT "solide"
6420 GOTO 3990
6430 REM ********** ALUMINIUM
6440 COLOR 1, 4, 2: CLS
6450 LOCATE 1, 20: PRINT "+----------------+"
6460 LOCATE 2, 20: PRINT "Ý ALUMINIUM - Al Ý"
6470 LOCATE 3, 20: PRINT "+----------------+"
6480 COLOR 2, 4, 2
6490 LOCATE 6, 10: PRINT CHR$(176); CHR$(176); " Symbole :............................."
6500 LOCATE 7, 10: PRINT CHR$(176); CHR$(176); " Ligne du tableau :...................."
6510 LOCATE 8, 10: PRINT CHR$(176); CHR$(176); " Colonne du tableau :.................."
6520 LOCATE 9, 10: PRINT CHR$(176); CHR$(176); " Famille :............................."
6530 LOCATE 10, 10: PRINT CHR$(176); CHR$(176); " Type :..............................."
6540 LOCATE 11, 10: PRINT CHR$(176); CHR$(176); " Num‚ro atomique Z :.................."
6550 LOCATE 12, 10: PRINT CHR$(176); CHR$(176); " Masse molaire atomique (g.mol-1) :..."
6560 LOCATE 13, 10: PRINT CHR$(176); CHR$(176); " Obtenu artificiellement ? :.........."
6570 LOCATE 14, 10: PRINT CHR$(176); CHR$(176); " Etat … 25øC et 1 bar :..............."
6580 COLOR 1, 4, 2
6590 LOCATE 6, 52: PRINT "Al"
6600 LOCATE 7, 52: PRINT "3"
6610 LOCATE 8, 52: PRINT "XIII"
6620 LOCATE 9, 52: PRINT "XIII"
6630 LOCATE 10, 52: PRINT "m‚taux"
6640 LOCATE 11, 52: PRINT "Z = 13"
6650 LOCATE 12, 52: PRINT "27,0 g.mol-1"
6660 LOCATE 13, 52: PRINT "non"
6670 LOCATE 14, 52: PRINT "solide"
6680 GOTO 3990
6690 REM ********** SILICIUM
6700 COLOR 1, 4, 2: CLS
6710 LOCATE 1, 20: PRINT "+---------------+"
6720 LOCATE 2, 20: PRINT "Ý SILICIUM - Si Ý"
6730 LOCATE 3, 20: PRINT "+---------------+"
6740 COLOR 2, 4, 2
6750 LOCATE 6, 10: PRINT CHR$(176); CHR$(176); " Symbole :............................."
6760 LOCATE 7, 10: PRINT CHR$(176); CHR$(176); " Ligne du tableau :...................."
6770 LOCATE 8, 10: PRINT CHR$(176); CHR$(176); " Colonne du tableau :.................."
6780 LOCATE 9, 10: PRINT CHR$(176); CHR$(176); " Famille :............................."
6790 LOCATE 10, 10: PRINT CHR$(176); CHR$(176); " Type :..............................."
6800 LOCATE 11, 10: PRINT CHR$(176); CHR$(176); " Num‚ro atomique Z :.................."
6810 LOCATE 12, 10: PRINT CHR$(176); CHR$(176); " Masse molaire atomique (g.mol-1) :..."
6820 LOCATE 13, 10: PRINT CHR$(176); CHR$(176); " Obtenu artificiellement ? :.........."
6830 LOCATE 14, 10: PRINT CHR$(176); CHR$(176); " Etat … 25øC et 1 bar :..............."
6840 COLOR 1, 4, 2
6850 LOCATE 6, 52: PRINT "Si"
6860 LOCATE 7, 52: PRINT "3"
6870 LOCATE 8, 52: PRINT "XIV"
6880 LOCATE 9, 52: PRINT "XIV"
6890 LOCATE 10, 52: PRINT "non-m‚taux"
6900 LOCATE 11, 52: PRINT "Z = 14"
6910 LOCATE 12, 52: PRINT "28,1 g.mol-1"
6920 LOCATE 13, 52: PRINT "non"
6930 LOCATE 14, 52: PRINT "solide"
6940 GOTO 3990
6950 REM ********** PHOSPHORE
6960 COLOR 1, 4, 2: CLS
6970 LOCATE 1, 20: PRINT "+---------------+"
6980 LOCATE 2, 20: PRINT "Ý PHOSPHORE - P Ý"
6990 LOCATE 3, 20: PRINT "+---------------+"
7000 COLOR 2, 4, 2
7010 LOCATE 6, 10: PRINT CHR$(176); CHR$(176); " Symbole :............................."
7020 LOCATE 7, 10: PRINT CHR$(176); CHR$(176); " Ligne du tableau :...................."
7030 LOCATE 8, 10: PRINT CHR$(176); CHR$(176); " Colonne du tableau :.................."
7040 LOCATE 9, 10: PRINT CHR$(176); CHR$(176); " Famille :............................."
7050 LOCATE 10, 10: PRINT CHR$(176); CHR$(176); " Type :..............................."
7060 LOCATE 11, 10: PRINT CHR$(176); CHR$(176); " Num‚ro atomique Z :.................."
7070 LOCATE 12, 10: PRINT CHR$(176); CHR$(176); " Masse molaire atomique (g.mol-1) :..."
7080 LOCATE 13, 10: PRINT CHR$(176); CHR$(176); " Obtenu artificiellement ? :.........."
7090 LOCATE 14, 10: PRINT CHR$(176); CHR$(176); " Etat … 25øC et 1 bar :..............."
7100 COLOR 1, 4, 2
7110 LOCATE 6, 52: PRINT "P"
7120 LOCATE 7, 52: PRINT "3"
7130 LOCATE 8, 52: PRINT "XV"
7140 LOCATE 9, 52: PRINT "XV"
7150 LOCATE 10, 52: PRINT "non-m‚taux"
7160 LOCATE 11, 52: PRINT "Z = 15"
7170 LOCATE 12, 52: PRINT "31,0 g.mol-1"
7180 LOCATE 13, 52: PRINT "non"
7190 LOCATE 14, 52: PRINT "solide"
7200 GOTO 3990
7210 REM ********** SOUFRE
7220 COLOR 1, 4, 2: CLS
7230 LOCATE 1, 20: PRINT "+------------+"
7240 LOCATE 2, 20: PRINT "Ý SOUFRE - S Ý"
7250 LOCATE 3, 20: PRINT "+------------+"
7260 COLOR 2, 4, 2
7270 LOCATE 6, 10: PRINT CHR$(176); CHR$(176); " Symbole :............................."
7280 LOCATE 7, 10: PRINT CHR$(176); CHR$(176); " Ligne du tableau :...................."
7290 LOCATE 8, 10: PRINT CHR$(176); CHR$(176); " Colonne du tableau :.................."
7300 LOCATE 9, 10: PRINT CHR$(176); CHR$(176); " Famille :............................."
7310 LOCATE 10, 10: PRINT CHR$(176); CHR$(176); " Type :..............................."
7320 LOCATE 11, 10: PRINT CHR$(176); CHR$(176); " Num‚ro atomique Z :.................."
7330 LOCATE 12, 10: PRINT CHR$(176); CHR$(176); " Masse molaire atomique (g.mol-1) :..."
7340 LOCATE 13, 10: PRINT CHR$(176); CHR$(176); " Obtenu artificiellement ? :.........."
7350 LOCATE 14, 10: PRINT CHR$(176); CHR$(176); " Etat … 25øC et 1 bar :..............."
7360 COLOR 1, 4, 2
7370 LOCATE 6, 52: PRINT "S"
7380 LOCATE 7, 52: PRINT "3"
7390 LOCATE 8, 52: PRINT "XVI"
7400 LOCATE 9, 52: PRINT "XVI"
7410 LOCATE 10, 52: PRINT "non-m‚taux"
7420 LOCATE 11, 52: PRINT "Z = 16"
7430 LOCATE 12, 52: PRINT "32,1 g.mol-1"
7440 LOCATE 13, 52: PRINT "non"
7450 LOCATE 14, 52: PRINT "solide"
7460 GOTO 3990
7470 REM ********** CHLORE
7480 COLOR 1, 4, 2: CLS
7490 LOCATE 1, 20: PRINT "+-------------+"
7500 LOCATE 2, 20: PRINT "Ý CHLORE - Cl Ý"
7510 LOCATE 3, 20: PRINT "+-------------+"
7520 COLOR 2, 4, 2
7530 LOCATE 6, 10: PRINT CHR$(176); CHR$(176); " Symbole :............................."
7540 LOCATE 7, 10: PRINT CHR$(176); CHR$(176); " Ligne du tableau :...................."
7550 LOCATE 8, 10: PRINT CHR$(176); CHR$(176); " Colonne du tableau :.................."
7560 LOCATE 9, 10: PRINT CHR$(176); CHR$(176); " Famille :............................."
7570 LOCATE 10, 10: PRINT CHR$(176); CHR$(176); " Type :..............................."
7580 LOCATE 11, 10: PRINT CHR$(176); CHR$(176); " Num‚ro atomique Z :.................."
7590 LOCATE 12, 10: PRINT CHR$(176); CHR$(176); " Masse molaire atomique (g.mol-1) :..."
7600 LOCATE 13, 10: PRINT CHR$(176); CHR$(176); " Obtenu artificiellement ? :.........."
7610 LOCATE 14, 10: PRINT CHR$(176); CHR$(176); " Etat … 25øC et 1 bar :..............."
7620 COLOR 1, 4, 2
7630 LOCATE 6, 52: PRINT "Cl"
7640 LOCATE 7, 52: PRINT "3"
7650 LOCATE 8, 52: PRINT "XVII"
7660 LOCATE 9, 52: PRINT "halogŠnes"
7670 LOCATE 10, 52: PRINT "non-m‚taux"
7680 LOCATE 11, 52: PRINT "Z = 17"
7690 LOCATE 12, 52: PRINT "35,5 g.mol-1"
7700 LOCATE 13, 52: PRINT "non"
7710 LOCATE 14, 52: PRINT "gaz"
7720 GOTO 3990
7730 REM ********** ARGON
7740 COLOR 1, 4, 2: CLS
7750 LOCATE 1, 20: PRINT "+------------+"
7760 LOCATE 2, 20: PRINT "Ý ARGON - Ar Ý"
7770 LOCATE 3, 20: PRINT "+------------+"
7780 COLOR 2, 4, 2
7790 LOCATE 6, 10: PRINT CHR$(176); CHR$(176); " Symbole :............................."
7800 LOCATE 7, 10: PRINT CHR$(176); CHR$(176); " Ligne du tableau :...................."
7810 LOCATE 8, 10: PRINT CHR$(176); CHR$(176); " Colonne du tableau :.................."
7820 LOCATE 9, 10: PRINT CHR$(176); CHR$(176); " Famille :............................."
7830 LOCATE 10, 10: PRINT CHR$(176); CHR$(176); " Type :..............................."
7840 LOCATE 11, 10: PRINT CHR$(176); CHR$(176); " Num‚ro atomique Z :.................."
7850 LOCATE 12, 10: PRINT CHR$(176); CHR$(176); " Masse molaire atomique (g.mol-1) :..."
7860 LOCATE 13, 10: PRINT CHR$(176); CHR$(176); " Obtenu artificiellement ? :.........."
7870 LOCATE 14, 10: PRINT CHR$(176); CHR$(176); " Etat … 25øC et 1 bar :..............."
7880 COLOR 1, 4, 2
7890 LOCATE 6, 52: PRINT "Ar"
7900 LOCATE 7, 52: PRINT "3"
7910 LOCATE 8, 52: PRINT "XVIII"
7920 LOCATE 9, 52: PRINT "gaz nobles"
7930 LOCATE 10, 52: PRINT "gaz nobles"
7940 LOCATE 11, 52: PRINT "Z = 18"
7950 LOCATE 12, 52: PRINT "39,9 g.mol-1"
7960 LOCATE 13, 52: PRINT "non"
7970 LOCATE 14, 52: PRINT "gaz"
7980 GOTO 3990
7990 REM ********** BORE
8000 COLOR 1, 4, 2: CLS
8010 LOCATE 1, 20: PRINT "+----------+"
8020 LOCATE 2, 20: PRINT "Ý BORE - B Ý"
8030 LOCATE 3, 20: PRINT "+----------+"
8040 COLOR 2, 4, 2
8050 LOCATE 6, 10: PRINT CHR$(176); CHR$(176); " Symbole :............................."
8060 LOCATE 7, 10: PRINT CHR$(176); CHR$(176); " Ligne du tableau :...................."
8070 LOCATE 8, 10: PRINT CHR$(176); CHR$(176); " Colonne du tableau :.................."
8080 LOCATE 9, 10: PRINT CHR$(176); CHR$(176); " Famille :............................."
8090 LOCATE 10, 10: PRINT CHR$(176); CHR$(176); " Type :..............................."
8100 LOCATE 11, 10: PRINT CHR$(176); CHR$(176); " Num‚ro atomique Z :.................."
8110 LOCATE 12, 10: PRINT CHR$(176); CHR$(176); " Masse molaire atomique (g.mol-1) :..."
8120 LOCATE 13, 10: PRINT CHR$(176); CHR$(176); " Obtenu artificiellement ? :.........."
8130 LOCATE 14, 10: PRINT CHR$(176); CHR$(176); " Etat … 25øC et 1 bar :..............."
8140 COLOR 1, 4, 2
8150 LOCATE 6, 52: PRINT "B"
8160 LOCATE 7, 52: PRINT "2"
8170 LOCATE 8, 52: PRINT "XIII"
8180 LOCATE 9, 52: PRINT "XIII"
8190 LOCATE 10, 52: PRINT "non-m‚taux"
8200 LOCATE 11, 52: PRINT "Z = 5"
8210 LOCATE 12, 52: PRINT "10,8 g.mol-1"
8220 LOCATE 13, 52: PRINT "non"
8230 LOCATE 14, 52: PRINT "solide"
8240 GOTO 3990
8250 REM ********** CARBONE
8260 COLOR 1, 4, 2: CLS
8270 LOCATE 1, 20: PRINT "+-------------+"
8280 LOCATE 2, 20: PRINT "Ý CARBONE - C Ý"
8290 LOCATE 3, 20: PRINT "+-------------+"
8300 COLOR 2, 4, 2
8310 LOCATE 6, 10: PRINT CHR$(176); CHR$(176); " Symbole :............................."
8320 LOCATE 7, 10: PRINT CHR$(176); CHR$(176); " Ligne du tableau :...................."
8330 LOCATE 8, 10: PRINT CHR$(176); CHR$(176); " Colonne du tableau :.................."
8340 LOCATE 9, 10: PRINT CHR$(176); CHR$(176); " Famille :............................."
8350 LOCATE 10, 10: PRINT CHR$(176); CHR$(176); " Type :..............................."
8360 LOCATE 11, 10: PRINT CHR$(176); CHR$(176); " Num‚ro atomique Z :.................."
8370 LOCATE 12, 10: PRINT CHR$(176); CHR$(176); " Masse molaire atomique (g.mol-1) :..."
8380 LOCATE 13, 10: PRINT CHR$(176); CHR$(176); " Obtenu artificiellement ? :.........."
8390 LOCATE 14, 10: PRINT CHR$(176); CHR$(176); " Etat … 25øC et 1 bar :..............."
8400 COLOR 1, 4, 2
8410 LOCATE 6, 52: PRINT "C"
8420 LOCATE 7, 52: PRINT "2"
8430 LOCATE 8, 52: PRINT "XIV"
8440 LOCATE 9, 52: PRINT "XIV"
8450 LOCATE 10, 52: PRINT "non-m‚taux"
8460 LOCATE 11, 52: PRINT "Z = 6"
8470 LOCATE 12, 52: PRINT "12,0 g.mol-1"
8480 LOCATE 13, 52: PRINT "non"
8490 LOCATE 14, 52: PRINT "solide"
8500 GOTO 3990
8510 REM ********** AZOTE
8520 COLOR 1, 4, 2: CLS
8530 LOCATE 1, 20: PRINT "+-----------+"
8540 LOCATE 2, 20: PRINT "Ý AZOTE - N Ý"
8550 LOCATE 3, 20: PRINT "+-----------+"
8560 COLOR 2, 4, 2
8570 LOCATE 6, 10: PRINT CHR$(176); CHR$(176); " Symbole :............................."
8580 LOCATE 7, 10: PRINT CHR$(176); CHR$(176); " Ligne du tableau :...................."
8590 LOCATE 8, 10: PRINT CHR$(176); CHR$(176); " Colonne du tableau :.................."
8600 LOCATE 9, 10: PRINT CHR$(176); CHR$(176); " Famille :............................."
8610 LOCATE 10, 10: PRINT CHR$(176); CHR$(176); " Type :..............................."
8620 LOCATE 11, 10: PRINT CHR$(176); CHR$(176); " Num‚ro atomique Z :.................."
8630 LOCATE 12, 10: PRINT CHR$(176); CHR$(176); " Masse molaire atomique (g.mol-1) :..."
8640 LOCATE 13, 10: PRINT CHR$(176); CHR$(176); " Obtenu artificiellement ? :.........."
8650 LOCATE 14, 10: PRINT CHR$(176); CHR$(176); " Etat … 25øC et 1 bar :..............."
8660 COLOR 1, 4, 2
8670 LOCATE 6, 52: PRINT "N"
8680 LOCATE 7, 52: PRINT "2"
8690 LOCATE 8, 52: PRINT "XV"
8700 LOCATE 9, 52: PRINT "XV"
8710 LOCATE 10, 52: PRINT "non-m‚taux"
8720 LOCATE 11, 52: PRINT "Z = 7"
8730 LOCATE 12, 52: PRINT "14,0 g.mol-1"
8740 LOCATE 13, 52: PRINT "non"
8750 LOCATE 14, 52: PRINT "gaz"
8760 GOTO 3990
8770 REM ********** POTASSIUM
8780 COLOR 1, 4, 2: CLS
8790 LOCATE 1, 20: PRINT "+---------------+"
8800 LOCATE 2, 20: PRINT "Ý POTASSIUM - K Ý"
8810 LOCATE 3, 20: PRINT "+---------------+"
8820 COLOR 2, 4, 2
8830 LOCATE 6, 10: PRINT CHR$(176); CHR$(176); " Symbole :............................."
8840 LOCATE 7, 10: PRINT CHR$(176); CHR$(176); " Ligne du tableau :...................."
8850 LOCATE 8, 10: PRINT CHR$(176); CHR$(176); " Colonne du tableau :.................."
8860 LOCATE 9, 10: PRINT CHR$(176); CHR$(176); " Famille :............................."
8870 LOCATE 10, 10: PRINT CHR$(176); CHR$(176); " Type :..............................."
8880 LOCATE 11, 10: PRINT CHR$(176); CHR$(176); " Num‚ro atomique Z :.................."
8890 LOCATE 12, 10: PRINT CHR$(176); CHR$(176); " Masse molaire atomique (g.mol-1) :..."
8900 LOCATE 13, 10: PRINT CHR$(176); CHR$(176); " Obtenu artificiellement ? :.........."
8910 LOCATE 14, 10: PRINT CHR$(176); CHR$(176); " Etat … 25øC et 1 bar :..............."
8920 COLOR 1, 4, 2
8930 LOCATE 6, 52: PRINT "K"
8940 LOCATE 7, 52: PRINT "4"
8950 LOCATE 8, 52: PRINT "I"
8960 LOCATE 9, 52: PRINT "alcalins"
8970 LOCATE 10, 52: PRINT "m‚taux"
8980 LOCATE 11, 52: PRINT "Z = 19"
8990 LOCATE 12, 52: PRINT "39,1 g.mol-1"
9000 LOCATE 13, 52: PRINT "non"
9010 LOCATE 14, 52: PRINT "solide"
9020 GOTO 3990
9030 REM ********** CALCIUM
9040 COLOR 1, 4, 2: CLS
9050 LOCATE 1, 20: PRINT "+--------------+"
9060 LOCATE 2, 20: PRINT "Ý CALCIUM - Ca Ý"
9070 LOCATE 3, 20: PRINT "+--------------+"
9080 COLOR 2, 4, 2
9090 LOCATE 6, 10: PRINT CHR$(176); CHR$(176); " Symbole :............................."
9100 LOCATE 7, 10: PRINT CHR$(176); CHR$(176); " Ligne du tableau :...................."
9110 LOCATE 8, 10: PRINT CHR$(176); CHR$(176); " Colonne du tableau :.................."
9120 LOCATE 9, 10: PRINT CHR$(176); CHR$(176); " Famille :............................."
9130 LOCATE 10, 10: PRINT CHR$(176); CHR$(176); " Type :..............................."
9140 LOCATE 11, 10: PRINT CHR$(176); CHR$(176); " Num‚ro atomique Z :.................."
9150 LOCATE 12, 10: PRINT CHR$(176); CHR$(176); " Masse molaire atomique (g.mol-1) :..."
9160 LOCATE 13, 10: PRINT CHR$(176); CHR$(176); " Obtenu artificiellement ? :.........."
9170 LOCATE 14, 10: PRINT CHR$(176); CHR$(176); " Etat … 25øC et 1 bar :..............."
9180 COLOR 1, 4, 2
9190 LOCATE 6, 52: PRINT "Ca"
9200 LOCATE 7, 52: PRINT "4"
9210 LOCATE 8, 52: PRINT "II"
9220 LOCATE 9, 52: PRINT "II"
9230 LOCATE 10, 52: PRINT "m‚taux"
9240 LOCATE 11, 52: PRINT "Z = 20"
9250 LOCATE 12, 52: PRINT "40,1 g.mol-1"
9260 LOCATE 13, 52: PRINT "non"
9270 LOCATE 14, 52: PRINT "solide"
9280 GOTO 3990
9290 REM ********** SCANDIUM
9300 COLOR 1, 4, 2: CLS
9310 LOCATE 1, 20: PRINT "+---------------+"
9320 LOCATE 2, 20: PRINT "Ý SCANDIUM - Sc Ý"
9330 LOCATE 3, 20: PRINT "+---------------+"
9340 COLOR 2, 4, 2
9350 LOCATE 6, 10: PRINT CHR$(176); CHR$(176); " Symbole :............................."
9360 LOCATE 7, 10: PRINT CHR$(176); CHR$(176); " Ligne du tableau :...................."
9370 LOCATE 8, 10: PRINT CHR$(176); CHR$(176); " Colonne du tableau :.................."
9380 LOCATE 9, 10: PRINT CHR$(176); CHR$(176); " Famille :............................."
9390 LOCATE 10, 10: PRINT CHR$(176); CHR$(176); " Type :..............................."
9400 LOCATE 11, 10: PRINT CHR$(176); CHR$(176); " Num‚ro atomique Z :.................."
9410 LOCATE 12, 10: PRINT CHR$(176); CHR$(176); " Masse molaire atomique (g.mol-1) :..."
9420 LOCATE 13, 10: PRINT CHR$(176); CHR$(176); " Obtenu artificiellement ? :.........."
9430 LOCATE 14, 10: PRINT CHR$(176); CHR$(176); " Etat … 25øC et 1 bar :..............."
9440 COLOR 1, 4, 2
9450 LOCATE 6, 52: PRINT "Sc"
9460 LOCATE 7, 52: PRINT "4"
9470 LOCATE 8, 52: PRINT "III"
9480 LOCATE 9, 52: PRINT "m‚taux de transition"
9490 LOCATE 10, 52: PRINT "m‚taux"
9500 LOCATE 11, 52: PRINT "Z = 21"
9510 LOCATE 12, 52: PRINT "45,0 g.mol-1"
9520 LOCATE 13, 52: PRINT "non"
9530 LOCATE 14, 52: PRINT "solide"
9540 GOTO 3990
9550 REM ********** TITANE
9560 COLOR 1, 4, 2: CLS
9570 LOCATE 1, 20: PRINT "+-------------+"
9580 LOCATE 2, 20: PRINT "Ý TITANE - Ti Ý"
9590 LOCATE 3, 20: PRINT "+-------------+"
9600 COLOR 2, 4, 2
9610 LOCATE 6, 10: PRINT CHR$(176); CHR$(176); " Symbole :............................."
9620 LOCATE 7, 10: PRINT CHR$(176); CHR$(176); " Ligne du tableau :...................."
9630 LOCATE 8, 10: PRINT CHR$(176); CHR$(176); " Colonne du tableau :.................."
9640 LOCATE 9, 10: PRINT CHR$(176); CHR$(176); " Famille :............................."
9650 LOCATE 10, 10: PRINT CHR$(176); CHR$(176); " Type :..............................."
9660 LOCATE 11, 10: PRINT CHR$(176); CHR$(176); " Num‚ro atomique Z :.................."
9670 LOCATE 12, 10: PRINT CHR$(176); CHR$(176); " Masse molaire atomique (g.mol-1) :..."
9680 LOCATE 13, 10: PRINT CHR$(176); CHR$(176); " Obtenu artificiellement ? :.........."
9690 LOCATE 14, 10: PRINT CHR$(176); CHR$(176); " Etat … 25øC et 1 bar :..............."
9700 COLOR 1, 4, 2
9710 LOCATE 6, 52: PRINT "Ti"
9720 LOCATE 7, 52: PRINT "4"
9730 LOCATE 8, 52: PRINT "IV"
9740 LOCATE 9, 52: PRINT "m‚taux de transition"
9750 LOCATE 10, 52: PRINT "m‚taux"
9760 LOCATE 11, 52: PRINT "Z = 22"
9770 LOCATE 12, 52: PRINT "47,9 g.mol-1"
9780 LOCATE 13, 52: PRINT "non"
9790 LOCATE 14, 52: PRINT "solide"
9800 GOTO 3990
9810 REM ********** VANADIUM
9820 COLOR 1, 4, 2: CLS
9830 LOCATE 1, 20: PRINT "+--------------+"
9840 LOCATE 2, 20: PRINT "Ý VANADIUM - V Ý"
9850 LOCATE 3, 20: PRINT "+--------------+"
9860 COLOR 2, 4, 2
9870 LOCATE 6, 10: PRINT CHR$(176); CHR$(176); " Symbole :............................."
9880 LOCATE 7, 10: PRINT CHR$(176); CHR$(176); " Ligne du tableau :...................."
9890 LOCATE 8, 10: PRINT CHR$(176); CHR$(176); " Colonne du tableau :.................."
9900 LOCATE 9, 10: PRINT CHR$(176); CHR$(176); " Famille :............................."
9910 LOCATE 10, 10: PRINT CHR$(176); CHR$(176); " Type :..............................."
9920 LOCATE 11, 10: PRINT CHR$(176); CHR$(176); " Num‚ro atomique Z :.................."
9930 LOCATE 12, 10: PRINT CHR$(176); CHR$(176); " Masse molaire atomique (g.mol-1) :..."
9940 LOCATE 13, 10: PRINT CHR$(176); CHR$(176); " Obtenu artificiellement ? :.........."
9950 LOCATE 14, 10: PRINT CHR$(176); CHR$(176); " Etat … 25øC et 1 bar :..............."
9960 COLOR 1, 4, 2
9970 LOCATE 6, 52: PRINT "V"
9980 LOCATE 7, 52: PRINT "4"
9990 LOCATE 8, 52: PRINT "V"
10000 LOCATE 9, 52: PRINT "m‚taux de transition"
10010 LOCATE 10, 52: PRINT "m‚taux"
10020 LOCATE 11, 52: PRINT "Z = 23"
10030 LOCATE 12, 52: PRINT "50,9 g.mol-1"
10040 LOCATE 13, 52: PRINT "non"
10050 LOCATE 14, 52: PRINT "solide"
10060 GOTO 3990
10070 REM ********** CHROME
10080 COLOR 1, 4, 2: CLS
10090 LOCATE 1, 20: PRINT "+-------------+"
10100 LOCATE 2, 20: PRINT "Ý CHROME - Cr Ý"
10110 LOCATE 3, 20: PRINT "+-------------+"
10120 COLOR 2, 4, 2
10130 LOCATE 6, 10: PRINT CHR$(176); CHR$(176); " Symbole :............................."
10140 LOCATE 7, 10: PRINT CHR$(176); CHR$(176); " Ligne du tableau :...................."
10150 LOCATE 8, 10: PRINT CHR$(176); CHR$(176); " Colonne du tableau :.................."
10160 LOCATE 9, 10: PRINT CHR$(176); CHR$(176); " Famille :............................."
10170 LOCATE 10, 10: PRINT CHR$(176); CHR$(176); " Type :..............................."
10180 LOCATE 11, 10: PRINT CHR$(176); CHR$(176); " Num‚ro atomique Z :.................."
10190 LOCATE 12, 10: PRINT CHR$(176); CHR$(176); " Masse molaire atomique (g.mol-1) :..."
10200 LOCATE 13, 10: PRINT CHR$(176); CHR$(176); " Obtenu artificiellement ? :.........."
10210 LOCATE 14, 10: PRINT CHR$(176); CHR$(176); " Etat … 25øC et 1 bar :..............."
10220 COLOR 1, 4, 2
10230 LOCATE 6, 52: PRINT "Cr"
10240 LOCATE 7, 52: PRINT "4"
10250 LOCATE 8, 52: PRINT "VI"
10260 LOCATE 9, 52: PRINT "m‚taux de transition"
10270 LOCATE 10, 52: PRINT "m‚taux"
10280 LOCATE 11, 52: PRINT "Z = 24"
10290 LOCATE 12, 52: PRINT "52,0 g.mol-1"
10300 LOCATE 13, 52: PRINT "non"
10310 LOCATE 14, 52: PRINT "solide"
10320 GOTO 3990
10330 REM ********** MANGANESE
10340 COLOR 1, 4, 2: CLS
10350 LOCATE 1, 20: PRINT "+----------------+"
10360 LOCATE 2, 20: PRINT "Ý MANGANESE - Mn Ý"
10370 LOCATE 3, 20: PRINT "+----------------+"
10380 COLOR 2, 4, 2
10390 LOCATE 6, 10: PRINT CHR$(176); CHR$(176); " Symbole :............................."
10400 LOCATE 7, 10: PRINT CHR$(176); CHR$(176); " Ligne du tableau :...................."
10410 LOCATE 8, 10: PRINT CHR$(176); CHR$(176); " Colonne du tableau :.................."
10420 LOCATE 9, 10: PRINT CHR$(176); CHR$(176); " Famille :............................."
10430 LOCATE 10, 10: PRINT CHR$(176); CHR$(176); " Type :..............................."
10440 LOCATE 11, 10: PRINT CHR$(176); CHR$(176); " Num‚ro atomique Z :.................."
10450 LOCATE 12, 10: PRINT CHR$(176); CHR$(176); " Masse molaire atomique (g.mol-1) :..."
10460 LOCATE 13, 10: PRINT CHR$(176); CHR$(176); " Obtenu artificiellement ? :.........."
10470 LOCATE 14, 10: PRINT CHR$(176); CHR$(176); " Etat … 25øC et 1 bar :..............."
10480 COLOR 1, 4, 2
10490 LOCATE 6, 52: PRINT "Mn"
10500 LOCATE 7, 52: PRINT "4"
10510 LOCATE 8, 52: PRINT "VII"
10520 LOCATE 9, 52: PRINT "m‚taux de transition"
10530 LOCATE 10, 52: PRINT "m‚taux"
10540 LOCATE 11, 52: PRINT "Z = 25"
10550 LOCATE 12, 52: PRINT "54,9 g.mol-1"
10560 LOCATE 13, 52: PRINT "non"
10570 LOCATE 14, 52: PRINT "solide"
10580 GOTO 3990
10590 REM ********** FER
10600 COLOR 1, 4, 2: CLS
10610 LOCATE 1, 20: PRINT "+----------+"
10620 LOCATE 2, 20: PRINT "Ý FER - Fe Ý"
10630 LOCATE 3, 20: PRINT "+----------+"
10640 COLOR 2, 4, 2
10650 LOCATE 6, 10: PRINT CHR$(176); CHR$(176); " Symbole :............................."
10660 LOCATE 7, 10: PRINT CHR$(176); CHR$(176); " Ligne du tableau :...................."
10670 LOCATE 8, 10: PRINT CHR$(176); CHR$(176); " Colonne du tableau :.................."
10680 LOCATE 9, 10: PRINT CHR$(176); CHR$(176); " Famille :............................."
10690 LOCATE 10, 10: PRINT CHR$(176); CHR$(176); " Type :..............................."
10700 LOCATE 11, 10: PRINT CHR$(176); CHR$(176); " Num‚ro atomique Z :.................."
10710 LOCATE 12, 10: PRINT CHR$(176); CHR$(176); " Masse molaire atomique (g.mol-1) :..."
10720 LOCATE 13, 10: PRINT CHR$(176); CHR$(176); " Obtenu artificiellement ? :.........."
10730 LOCATE 14, 10: PRINT CHR$(176); CHR$(176); " Etat … 25øC et 1 bar :..............."
10740 COLOR 1, 4, 2
10750 LOCATE 6, 52: PRINT "Fe"
10760 LOCATE 7, 52: PRINT "4"
10770 LOCATE 8, 52: PRINT "VIII"
10780 LOCATE 9, 52: PRINT "m‚taux de transition"
10790 LOCATE 10, 52: PRINT "m‚taux"
10800 LOCATE 11, 52: PRINT "Z = 26"
10810 LOCATE 12, 52: PRINT "55,8 g.mol-1"
10820 LOCATE 13, 52: PRINT "non"
10830 LOCATE 14, 52: PRINT "solide"
10840 GOTO 3990
10850 REM
10860 COLOR 1, 4, 2: CLS
10870 LOCATE 1, 20: PRINT "+-------------+"
10880 LOCATE 2, 20: PRINT "Ý COBALT - Co Ý"
10890 LOCATE 3, 20: PRINT "+-------------+"
10900 COLOR 2, 4, 2
10910 LOCATE 6, 10: PRINT CHR$(176); CHR$(176); " Symbole :............................."
10920 LOCATE 7, 10: PRINT CHR$(176); CHR$(176); " Ligne du tableau :...................."
10930 LOCATE 8, 10: PRINT CHR$(176); CHR$(176); " Colonne du tableau :.................."
10940 LOCATE 9, 10: PRINT CHR$(176); CHR$(176); " Famille :............................."
10950 LOCATE 10, 10: PRINT CHR$(176); CHR$(176); " Type :..............................."
10960 LOCATE 11, 10: PRINT CHR$(176); CHR$(176); " Num‚ro atomique Z :.................."
10970 LOCATE 12, 10: PRINT CHR$(176); CHR$(176); " Masse molaire atomique (g.mol-1) :..."
10980 LOCATE 13, 10: PRINT CHR$(176); CHR$(176); " Obtenu artificiellement ? :.........."
10990 LOCATE 14, 10: PRINT CHR$(176); CHR$(176); " Etat … 25øC et 1 bar :..............."
11000 COLOR 1, 4, 2
11010 LOCATE 6, 52: PRINT "Co"
11020 LOCATE 7, 52: PRINT "4"
11030 LOCATE 8, 52: PRINT "IX"
11040 LOCATE 9, 52: PRINT "m‚taux de transition"
11050 LOCATE 10, 52: PRINT "m‚taux"
11060 LOCATE 11, 52: PRINT "Z = 27"
11070 LOCATE 12, 52: PRINT "58,9 g.mol-1"
11080 LOCATE 13, 52: PRINT "non"
11090 LOCATE 14, 52: PRINT "solide"
11100 GOTO 3990
11110 REM ********** NICKEL
11120 COLOR 1, 4, 2: CLS
11130 LOCATE 1, 20: PRINT "+-------------+"
11140 LOCATE 2, 20: PRINT "Ý NICKEL - Ni Ý"
11150 LOCATE 3, 20: PRINT "+-------------+"
11160 COLOR 2, 4, 2
11170 LOCATE 6, 10: PRINT CHR$(176); CHR$(176); " Symbole :............................."
11180 LOCATE 7, 10: PRINT CHR$(176); CHR$(176); " Ligne du tableau :...................."
11190 LOCATE 8, 10: PRINT CHR$(176); CHR$(176); " Colonne du tableau :.................."
11200 LOCATE 9, 10: PRINT CHR$(176); CHR$(176); " Famille :............................."
11210 LOCATE 10, 10: PRINT CHR$(176); CHR$(176); " Type :..............................."
11220 LOCATE 11, 10: PRINT CHR$(176); CHR$(176); " Num‚ro atomique Z :.................."
11230 LOCATE 12, 10: PRINT CHR$(176); CHR$(176); " Masse molaire atomique (g.mol-1) :..."
11240 LOCATE 13, 10: PRINT CHR$(176); CHR$(176); " Obtenu artificiellement ? :.........."
11250 LOCATE 14, 10: PRINT CHR$(176); CHR$(176); " Etat … 25øC et 1 bar :..............."
11260 COLOR 1, 4, 2
11270 LOCATE 6, 52: PRINT "Ni"
11280 LOCATE 7, 52: PRINT "4"
11290 LOCATE 8, 52: PRINT "X"
11300 LOCATE 9, 52: PRINT "m‚taux de transition"
11310 LOCATE 10, 52: PRINT "m‚taux"
11320 LOCATE 11, 52: PRINT "Z = 28"
11330 LOCATE 12, 52: PRINT "58,7 g.mol-1"
11340 LOCATE 13, 52: PRINT "non"
11350 LOCATE 14, 52: PRINT "solide"
11360 GOTO 3990
11370 REM ********** CUIVRE
11380 COLOR 1, 4, 2: CLS
11390 LOCATE 1, 20: PRINT "+-------------+"
11400 LOCATE 2, 20: PRINT "Ý CUIVRE - Cu Ý"
11410 LOCATE 3, 20: PRINT "+-------------+"
11420 COLOR 2, 4, 2
11430 LOCATE 6, 10: PRINT CHR$(176); CHR$(176); " Symbole :............................."
11440 LOCATE 7, 10: PRINT CHR$(176); CHR$(176); " Ligne du tableau :...................."
11450 LOCATE 8, 10: PRINT CHR$(176); CHR$(176); " Colonne du tableau :.................."
11460 LOCATE 9, 10: PRINT CHR$(176); CHR$(176); " Famille :............................."
11470 LOCATE 10, 10: PRINT CHR$(176); CHR$(176); " Type :..............................."
11480 LOCATE 11, 10: PRINT CHR$(176); CHR$(176); " Num‚ro atomique Z :.................."
11490 LOCATE 12, 10: PRINT CHR$(176); CHR$(176); " Masse molaire atomique (g.mol-1) :..."
11500 LOCATE 13, 10: PRINT CHR$(176); CHR$(176); " Obtenu artificiellement ? :.........."
11510 LOCATE 14, 10: PRINT CHR$(176); CHR$(176); " Etat … 25øC et 1 bar :..............."
11520 COLOR 1, 4, 2
11530 LOCATE 6, 52: PRINT "Cu"
11540 LOCATE 7, 52: PRINT "4"
11550 LOCATE 8, 52: PRINT "XI"
11560 LOCATE 9, 52: PRINT "m‚taux de transtion"
11570 LOCATE 10, 52: PRINT "m‚taux"
11580 LOCATE 11, 52: PRINT "Z = 29"
11590 LOCATE 12, 52: PRINT "63,5 g.mol-1"
11600 LOCATE 13, 52: PRINT "non"
11610 LOCATE 14, 52: PRINT "solide"
11620 GOTO 3990
11630 REM ********** ZINC
11640 COLOR 1, 4, 2: CLS
11650 LOCATE 1, 20: PRINT "+-----------+"
11660 LOCATE 2, 20: PRINT "Ý ZINC - Zn Ý"
11670 LOCATE 3, 20: PRINT "+-----------+"
11680 COLOR 2, 4, 2
11690 LOCATE 6, 10: PRINT CHR$(176); CHR$(176); " Symbole :............................."
11700 LOCATE 7, 10: PRINT CHR$(176); CHR$(176); " Ligne du tableau :...................."
11710 LOCATE 8, 10: PRINT CHR$(176); CHR$(176); " Colonne du tableau :.................."
11720 LOCATE 9, 10: PRINT CHR$(176); CHR$(176); " Famille :............................."
11730 LOCATE 10, 10: PRINT CHR$(176); CHR$(176); " Type :..............................."
11740 LOCATE 11, 10: PRINT CHR$(176); CHR$(176); " Num‚ro atomique Z :.................."
11750 LOCATE 12, 10: PRINT CHR$(176); CHR$(176); " Masse molaire atomique (g.mol-1) :..."
11760 LOCATE 13, 10: PRINT CHR$(176); CHR$(176); " Obtenu artificiellement ? :.........."
11770 LOCATE 14, 10: PRINT CHR$(176); CHR$(176); " Etat … 25øC et 1 bar :..............."
11780 COLOR 1, 4, 2
11790 LOCATE 6, 52: PRINT "Zn"
11800 LOCATE 7, 52: PRINT "4"
11810 LOCATE 8, 52: PRINT "XII"
11820 LOCATE 9, 52: PRINT "m‚taux de transition"
11830 LOCATE 10, 52: PRINT "m‚taux"
11840 LOCATE 11, 52: PRINT "Z = 30"
11850 LOCATE 12, 52: PRINT "65,4 g.mol-1"
11860 LOCATE 13, 52: PRINT "non"
11870 LOCATE 14, 52: PRINT "solide"
11880 GOTO 3990
11890 REM ********** GALLIUM
11900 COLOR 1, 4, 2: CLS
11910 LOCATE 1, 20: PRINT "+--------------+"
11920 LOCATE 2, 20: PRINT "Ý GALLIUM - Ga Ý"
11930 LOCATE 3, 20: PRINT "+--------------+"
11940 COLOR 2, 4, 2
11950 LOCATE 6, 10: PRINT CHR$(176); CHR$(176); " Symbole :............................."
11960 LOCATE 7, 10: PRINT CHR$(176); CHR$(176); " Ligne du tableau :...................."
11970 LOCATE 8, 10: PRINT CHR$(176); CHR$(176); " Colonne du tableau :.................."
11980 LOCATE 9, 10: PRINT CHR$(176); CHR$(176); " Famille :............................."
11990 LOCATE 10, 10: PRINT CHR$(176); CHR$(176); " Type :..............................."
12000 LOCATE 11, 10: PRINT CHR$(176); CHR$(176); " Num‚ro atomique Z :.................."
12010 LOCATE 12, 10: PRINT CHR$(176); CHR$(176); " Masse molaire atomique (g.mol-1) :..."
12020 LOCATE 13, 10: PRINT CHR$(176); CHR$(176); " Obtenu artificiellement ? :.........."
12030 LOCATE 14, 10: PRINT CHR$(176); CHR$(176); " Etat … 25øC et 1 bar :..............."
12040 COLOR 1, 4, 2
12050 LOCATE 6, 52: PRINT "Ga"
12060 LOCATE 7, 52: PRINT "4"
12070 LOCATE 8, 52: PRINT "XIII"
12080 LOCATE 9, 52: PRINT "XIII"
12090 LOCATE 10, 52: PRINT "m‚taux"
12100 LOCATE 11, 52: PRINT "Z = 31"
12110 LOCATE 12, 52: PRINT "69,7 g.mol-1"
12120 LOCATE 13, 52: PRINT "non"
12130 LOCATE 14, 52: PRINT "solide"
12140 GOTO 3990
12150 REM ********** GERMANIUM
12160 COLOR 1, 4, 2: CLS
12170 LOCATE 1, 20: PRINT "+----------------+"
12180 LOCATE 2, 20: PRINT "Ý GERMANIUM - Ge Ý"
12190 LOCATE 3, 20: PRINT "+----------------+"
12200 COLOR 2, 4, 2
12210 LOCATE 6, 10: PRINT CHR$(176); CHR$(176); " Symbole :............................."
12220 LOCATE 7, 10: PRINT CHR$(176); CHR$(176); " Ligne du tableau :...................."
12230 LOCATE 8, 10: PRINT CHR$(176); CHR$(176); " Colonne du tableau :.................."
12240 LOCATE 9, 10: PRINT CHR$(176); CHR$(176); " Famille :............................."
12250 LOCATE 10, 10: PRINT CHR$(176); CHR$(176); " Type :..............................."
12260 LOCATE 11, 10: PRINT CHR$(176); CHR$(176); " Num‚ro atomique Z :.................."
12270 LOCATE 12, 10: PRINT CHR$(176); CHR$(176); " Masse molaire atomique (g.mol-1) :..."
12280 LOCATE 13, 10: PRINT CHR$(176); CHR$(176); " Obtenu artificiellement ? :.........."
12290 LOCATE 14, 10: PRINT CHR$(176); CHR$(176); " Etat … 25øC et 1 bar :..............."
12300 COLOR 1, 4, 2
12310 LOCATE 6, 52: PRINT "Ge"
12320 LOCATE 7, 52: PRINT "4"
12330 LOCATE 8, 52: PRINT "XIV"
12340 LOCATE 9, 52: PRINT "XIV"
12350 LOCATE 10, 52: PRINT "m‚taux"
12360 LOCATE 11, 52: PRINT "Z = 32"
12370 LOCATE 12, 52: PRINT "72,6 g.mol-1"
12380 LOCATE 13, 52: PRINT "non"
12390 LOCATE 14, 52: PRINT "solide"
12400 GOTO 3990
12410 REM ********** ARSENIC
12420 COLOR 1, 4, 2: CLS
12430 LOCATE 1, 20: PRINT "+--------------+"
12440 LOCATE 2, 20: PRINT "Ý ARSENIC - As Ý"
12450 LOCATE 3, 20: PRINT "+--------------+"
12460 COLOR 2, 4, 2
12470 LOCATE 6, 10: PRINT CHR$(176); CHR$(176); " Symbole :............................."
12480 LOCATE 7, 10: PRINT CHR$(176); CHR$(176); " Ligne du tableau :...................."
12490 LOCATE 8, 10: PRINT CHR$(176); CHR$(176); " Colonne du tableau :.................."
12500 LOCATE 9, 10: PRINT CHR$(176); CHR$(176); " Famille :............................."
12510 LOCATE 10, 10: PRINT CHR$(176); CHR$(176); " Type :..............................."
12520 LOCATE 11, 10: PRINT CHR$(176); CHR$(176); " Num‚ro atomique Z :.................."
12530 LOCATE 12, 10: PRINT CHR$(176); CHR$(176); " Masse molaire atomique (g.mol-1) :..."
12540 LOCATE 13, 10: PRINT CHR$(176); CHR$(176); " Obtenu artificiellement ? :.........."
12550 LOCATE 14, 10: PRINT CHR$(176); CHR$(176); " Etat … 25øC et 1 bar :..............."
12560 COLOR 1, 4, 2
12570 LOCATE 6, 52: PRINT "As"
12580 LOCATE 7, 52: PRINT "4"
12590 LOCATE 8, 52: PRINT "XV"
12600 LOCATE 9, 52: PRINT "XV"
12610 LOCATE 10, 52: PRINT "non-m‚taux"
12620 LOCATE 11, 52: PRINT "Z = 33"
12630 LOCATE 12, 52: PRINT "74,9 g.mol-1"
12640 LOCATE 13, 52: PRINT "non"
12650 LOCATE 14, 52: PRINT "solide"
12660 GOTO 3990
12670 REM ********** SELENIUM
12680 COLOR 1, 4, 2: CLS
12690 LOCATE 1, 20: PRINT "+---------------+"
12700 LOCATE 2, 20: PRINT "Ý SELENIUM - Se Ý"
12710 LOCATE 3, 20: PRINT "+---------------+"
12720 COLOR 2, 4, 2
12730 LOCATE 6, 10: PRINT CHR$(176); CHR$(176); " Symbole :............................."
12740 LOCATE 7, 10: PRINT CHR$(176); CHR$(176); " Ligne du tableau :...................."
12750 LOCATE 8, 10: PRINT CHR$(176); CHR$(176); " Colonne du tableau :.................."
12760 LOCATE 9, 10: PRINT CHR$(176); CHR$(176); " Famille :............................."
12770 LOCATE 10, 10: PRINT CHR$(176); CHR$(176); " Type :..............................."
12780 LOCATE 11, 10: PRINT CHR$(176); CHR$(176); " Num‚ro atomique Z :.................."
12790 LOCATE 12, 10: PRINT CHR$(176); CHR$(176); " Masse molaire atomique (g.mol-1) :..."
12800 LOCATE 13, 10: PRINT CHR$(176); CHR$(176); " Obtenu artificiellement ? :.........."
12810 LOCATE 14, 10: PRINT CHR$(176); CHR$(176); " Etat … 25øC et 1 bar :..............."
12820 COLOR 1, 4, 2
12830 LOCATE 6, 52: PRINT "Se"
12840 LOCATE 7, 52: PRINT "4"
12850 LOCATE 8, 52: PRINT "XVI"
12860 LOCATE 9, 52: PRINT "XVI"
12870 LOCATE 10, 52: PRINT "non-m‚taux"
12880 LOCATE 11, 52: PRINT "Z = 34"
12890 LOCATE 12, 52: PRINT "79,0 g.mol-1"
12900 LOCATE 13, 52: PRINT "non"
12910 LOCATE 14, 52: PRINT "solide"
12920 GOTO 3990
12930 REM ********** BROME
12940 COLOR 1, 4, 2: CLS
12950 LOCATE 1, 20: PRINT "+------------+"
12960 LOCATE 2, 20: PRINT "Ý BROME - Br Ý"
12970 LOCATE 3, 20: PRINT "+------------+"
12980 COLOR 2, 4, 2
12990 LOCATE 6, 10: PRINT CHR$(176); CHR$(176); " Symbole :............................."
13000 LOCATE 7, 10: PRINT CHR$(176); CHR$(176); " Ligne du tableau :...................."
13010 LOCATE 8, 10: PRINT CHR$(176); CHR$(176); " Colonne du tableau :.................."
13020 LOCATE 9, 10: PRINT CHR$(176); CHR$(176); " Famille :............................."
13030 LOCATE 10, 10: PRINT CHR$(176); CHR$(176); " Type :..............................."
13040 LOCATE 11, 10: PRINT CHR$(176); CHR$(176); " Num‚ro atomique Z :.................."
13050 LOCATE 12, 10: PRINT CHR$(176); CHR$(176); " Masse molaire atomique (g.mol-1) :..."
13060 LOCATE 13, 10: PRINT CHR$(176); CHR$(176); " Obtenu artificiellement ? :.........."
13070 LOCATE 14, 10: PRINT CHR$(176); CHR$(176); " Etat … 25øC et 1 bar :..............."
13080 COLOR 1, 4, 2
13090 LOCATE 6, 52: PRINT "Br"
13100 LOCATE 7, 52: PRINT "4"
13110 LOCATE 8, 52: PRINT "XVII"
13120 LOCATE 9, 52: PRINT "XVII"
13140 LOCATE 10, 52: PRINT "non-m‚taux"
13150 LOCATE 11, 52: PRINT "Z = 35"
13160 LOCATE 12, 52: PRINT "79,9 g.mol-1"
13170 LOCATE 13, 52: PRINT "non"
13180 LOCATE 14, 52: PRINT "liquide"
13190 GOTO 3990
13200 REM ********** KRYPTON
13210 COLOR 1, 4, 2: CLS
13220 LOCATE 1, 20: PRINT "+--------------+"
13230 LOCATE 2, 20: PRINT "Ý KRYPTON - Kr Ý"
13240 LOCATE 3, 20: PRINT "+--------------+"
13250 COLOR 2, 4, 2
13260 LOCATE 6, 10: PRINT CHR$(176); CHR$(176); " Symbole :............................."
13270 LOCATE 7, 10: PRINT CHR$(176); CHR$(176); " Ligne du tableau :...................."
13280 LOCATE 8, 10: PRINT CHR$(176); CHR$(176); " Colonne du tableau :.................."
13290 LOCATE 9, 10: PRINT CHR$(176); CHR$(176); " Famille :............................."
13300 LOCATE 10, 10: PRINT CHR$(176); CHR$(176); " Type :..............................."
13310 LOCATE 11, 10: PRINT CHR$(176); CHR$(176); " Num‚ro atomique Z :.................."
13320 LOCATE 12, 10: PRINT CHR$(176); CHR$(176); " Masse molaire atomique (g.mol-1) :..."
13330 LOCATE 13, 10: PRINT CHR$(176); CHR$(176); " Obtenu artificiellement ? :.........."
13340 LOCATE 14, 10: PRINT CHR$(176); CHR$(176); " Etat … 25øC et 1 bar :..............."
13350 COLOR 1, 4, 2
13360 LOCATE 6, 52: PRINT "Kr"
13370 LOCATE 7, 52: PRINT "4"
13380 LOCATE 8, 52: PRINT "XVIII"
13390 LOCATE 9, 52: PRINT "gaz nobles"
13400 LOCATE 10, 52: PRINT "gaz nobles"
13410 LOCATE 11, 52: PRINT "Z = 36"
13420 LOCATE 12, 52: PRINT "83,8 g.mol-1"
13430 LOCATE 13, 52: PRINT "non"
13440 LOCATE 14, 52: PRINT "gaz"
13450 GOTO 3990

OTHELLO

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$: IF LEFT$(X$, 1) = "N" THEN 170
130 IF LEFT$(X$, 1) <> "Y" THEN 120
140 GOSUB 820: GOTO 330
150 IF F2 = 0 THEN 170
160 INPUT X$
170 B1 = -1: I3 = 0: J3 = 0: T1 = C: T2 = H: FOR J = 1 TO 2: NEXT J: FOR I = 1 TO 8: FOR J = 1 TO 8: IF A(I, J) <> 0 THEN 280
180 GOSUB 720: IF F1 = 0 THEN 280
190 U = -1: GOSUB 750: IF S1 = 0 THEN 280
200 IF (I - 1) * (I - 8) <> 0 THEN 220
210 S1 = S1 + S2
220 IF (J - 1) * (J - 8) <> 0 THEN 240
230 S1 = S1 + S2
240 IF S1 < B1 THEN 280
250 IF S1 > B1 THEN 270
260 R = RND(1): IF R > .5 THEN 280
270 B1 = S1: I3 = I: J3 = J
280 NEXT J: NEXT I: IF B1 > 0 THEN 310
290 PRINT "I HAVE TO FORFEIT MY MOVE": IF Z = 1 THEN 520
300 Z = 1: GOTO 330
310 Z = 0: CLS : PRINT "I WILL MOVE TO "; : PRINT I3; : PRINT ", "; : PRINT C$(J3): I = I3: J = J3: U = 1: GOSUB 750: C1 = C1 + S1 + 1: H1 = H1 - S1: N1 = N1 + 1: PRINT "THAT GIVES ME "; : PRINT S1; : PRINT " OF YOUR PIECES": GOSUB 820: IF H1 = 0  _
THEN 520
320 IF N1 = 64 THEN 520
330 T1 = H: T2 = C
340 PRINT "YOUR MOVE -- (ROW COL) ";
350 INPUT X$: I = VAL(X$): X$ = RIGHT$(X$, 1): IF I < 0 THEN 350
360 IF I > 8 THEN 350
370 IF I <> 0 THEN 410
380 PRINT "ARE YOU FORFEITING YOUR TURN"; : INPUT X$: IF LEFT$(X$, 1) <> "Y" THEN 340
390 IF Z = 1 THEN 520
400 Z = 1: GOTO 150
410 FOR J = 1 TO 8: IF C$(J) = X$ THEN 430
420 NEXT J: GOTO 350
430 IF A(I, J) = 0 THEN 450
440 PRINT "SORRY, THAT SQUARE IS OCCUPIED; TRY AGAIN": GOTO 350
450 GOSUB 720: IF F1 = 1 THEN 470
460 PRINT "SORRY, YOU ARE NOT NEXT TO ONE OF MY PIECES;": PRINT "TRY AGAIN": GOTO 350
470 U = -1: GOSUB 750: IF S1 > 0 THEN 490
480 PRINT "SORRY, THAT DOESN'T FLANK A ROW; TRY AGAIN": GOTO 350
490 Z = 0: CLS : PRINT "THAT GIVES YOU "; : PRINT S1; : PRINT " OF MY PIECES": U = 1: GOSUB 750: H1 = H1 + S1 + 1: C1 = C1 - S1: N1 = N1 + 1: GOSUB 820: IF C1 = 0 THEN 520
500 IF N1 = 64 THEN 520
510 GOTO 150
520 PRINT : PRINT "YOU HAVE "; : PRINT H1; : PRINT "PIECES AND I HAVE "; : PRINT C1; : PRINT "PIECES--"; : IF H1 = C1 THEN 550
530 IF H1 > C1 THEN 560
540 PRINT "SORRY, I WON THAT ONE.": GOTO 570
550 PRINT " A TIE !!": GOTO 680
560 PRINT "YOU WON !"
570 C1 = C1 - H1: IF C1 > 0 THEN 590
580 C1 = -C1
590 C1 = (64 * C1) / N1: PRINT "THAT WAS A "; : IF C1 < 11 THEN 670
600 IF C1 < 25 THEN 660
610 IF C1 < 39 THEN 650
620 IF C1 < 53 THEN 640
630 PRINT "PERFECT GAME!!!": GOTO 680
640 PRINT "WALKAWAY": GOTO 680
650 PRINT "FIGHT.": GOTO 680
660 PRINT "HOT GAME !": GOTO 680
670 PRINT "SQUEAKER ! !"
680 PRINT : PRINT "DO YOU WANT TO PLAY ANOTHER GAME";
690 INPUT X$: IF LEFT$(X$, 1) = "Y" THEN 70
700 IF LEFT$(X$, 1) <> "N" THEN 690
710 PRINT "THANKS FOR PLAYING": GOTO 850
720 FOR I1 = -1 TO 1: FOR J1 = -1 TO 1: IF A(I + I1, J + J1) = T2 THEN 740
730 NEXT J1: NEXT I1: F1 = 0: RETURN
740 F1 = 1: RETURN
750 S1 = 0: FOR K = 1 TO 8: I5 = I4(K): J5 = J4(K): I6 = I + I5: J6 = J + J5: S3 = 0: IF A(I6, J6) <> T2 THEN 810
760 S3 = S3 + 1: I6 = I6 + I5: J6 = J6 + J5: IF A(I6, J6) = T1 THEN 790
770 IF A(I6, J6) = 0 THEN 810
780 GOTO 760
790 S1 = S1 + S3: IF U <> 1 THEN 810
800 I6 = I: J6 = J: FOR K1 = 0 TO S3: A(I6, J6) = T1: I6 = I6 + I5: J6 = J6 + J5: NEXT K1
810 NEXT K: RETURN
820 PRINT : PRINT "    A B C D E F G H       COMPUTER           HUMAN": FOR I = 1 TO 8: PRINT I; : FOR J = 1 TO 8: PRINT " "; : PRINT D$(A(I, J) + 1); : NEXT J: IF I = 1 THEN PRINT TAB(28); C1; TAB(46); H1;
830 PRINT : NEXT I: PRINT : RETURN
840 GOTO 850
850 '

SLALOM

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 1420
620    IF O1<1 THEN 1420
630    GOSUB 990
640    IF S<7 THEN 1390
650    LET T=T+(Q-S+1)
660    IF S>Q THEN 1630
670 NEXT O
680 PRINT:PRINT "YOU TOOK";(T+RND(1));"SECONDS."
690 LET M=T
700 LET M=M/V
710 IF M<1.5-(A*.1) THEN 1650
720 IF M<2.9-(A*.1) THEN 1680
730 IF M<4.4-(A*.01) THEN 1710
740 PRINT:PRINT "DO YOU WANT TO RACE AGAIN";
750 INPUT B$
760 REM
770 IF B$="NO" THEN 1740
780 IF B$="YES" THEN 480
790 PRINT "PLEASE TYPE 'YES' OR 'NO'"
800 GOTO 740
810 STOP
820 PRINT
825 PRINT "*** SLALOM: THIS IS THE 1976 WINTER OLYMPIC GIANT SLALOM.  YOU ARE"
830 PRINT "            THE AMERICAN TEAM'S ONLY HOPE OF A GOLD MEDAL."
840 PRINT
845 PRINT "     0 -- TYPE THIS IS YOU WANT TO SEE HOW LONG YOU'VE TAKEN."
850 PRINT "     1 -- TYPE THIS IF YOU WANT TO SPEED UP A LOT."
860 PRINT "     2 -- TYPE THIS IF YOU WANT TO SPEED UP A LITTLE."
870 PRINT "     3 -- TYPE THIS IF YOU WANT TO SPEED UP A TEENSY."
880 PRINT "     4 -- TYPE THIS IF YOU WANT TO KEEP GOING THE SAME SPEED."
890 PRINT "     5 -- TYPE THIS IF YOU WANT TO CHECK A TEENSY."
900 PRINT "     6 -- TYPE THIS IF YOU WANT TO CHECK A LITTLE."
910 PRINT "     7 -- TYPE THIS IF YOU WANT TO CHECK A LOT."
920 PRINT "     8 -- TYPE THIS IF YOU WANT TO CHEAT AND TRY TO SKIP A GATE."
930 PRINT
935 PRINT " THE PLACE TO USE THESE OPTIONS IS WHEN THE COMPUTER ASKS:"
940 PRINT
945 PRINT "OPTION?"
950 PRINT
955 PRINT "                GOOD LUCK!"
957 PRINT
960 GOTO 1470
970 PRINT "YOU'VE TAKEN";(T+RND(1));"SECONDS."
980 GOTO 580
990 ON O1 GOTO 1130,1010,1170,1080,1190,1100,1150,1210
1000 STOP
1010 LET S=S+INT(RND(1)*(5-3)+3)
1020 PRINT S;"M.P.H."
1030 IF S>Q THEN 1290
1040 IF S>Q-1 THEN 1060
1050 RETURN
1060 PRINT "CLOSE ONE!"
1070 RETURN
1080 PRINT S;"M.P.H."
1090 GOTO 1030
1100 LET S=S-INT(RND(1)*(5-3)+3)
1110 PRINT S;"M.P.H."
1120 GOTO 1030
1130 LET S=S+INT(RND(1)*(10-5)+5)
1140 GOTO 1080
1150 LET S=S-INT(RND(1)*(10-5)+5)
1160 GOTO 1110
1170 LET S=S+INT(RND(1)*(4-1)+1)
1180 GOTO 1110
1190 LET S=S-INT(RND(1)*(4-1)+1)
1200 GOTO 1110
1210 PRINT "***CHEAT"
1220 IF RND(1)<.7 THEN 1260
1230 PRINT "YOU MADE IT! "
1240 LET T=T+1.5
1250 RETURN
1260 PRINT "AN OFFICIAL CAUGHT YOU!"
1270 PRINT "YOU TOOK";(T+RND(1));"SECONDS."
1280 GOTO 740
1290 IF RND(1)<((S-Q)*.1)+.2 THEN 1320
1300 PRINT "YOU WENT OVER THE NAXIMUM SPEED AND MADE IT!"
1310 RETURN
1320 PRINT "YOU WENT OVER THE MAXIMUM SPEED AND ";
1330 IF RND(1)<.5 THEN 1370
1340 PRINT "WIPED OUT!"
1350 PRINT "YOU TOOK";(T+RND(1));"SECONDS"
1360 GOTO 740
1370 PRINT "SNAGGED A FLAG!"
1380 GOTO 1350
1390 PRINT "LET'S BE REALISTIC, OK?  LET'S GO BACK AND TRY AGAIN..."
1400 LET S=S1
1410 GOTO 550
1420 PRINT "WHAT?"
1430 GOTO 580
1440 PRINT
1445 PRINT "TYPE ";CHR$(34);"INS";CHR$(34);" FOR INSTRUCTIONS"
1450 PRINT "TYPE ";CHR$(34);"MAX";CHR$(34);" FOR APPROXIMATE MAXIMUM SPEEDS"
1460 PRINT "TYPE ";CHR$(34);"RUN";CHR$(34);" FOR THE BEGINNING OF THE RACE"
1470 PRINT "COMMAND--";
1480 INPUT A$
1490 REM
1500 IF A$="INS" THEN 820
1510 IF A$="MAX" THEN 1550
1520 IF A$="RUN" THEN 410
1530 PRINT CHR$(34);A$;CHR$(34);" IS AN ILLEGAL COMMAND--RETRY";
1540 GOTO 1480
1550 PRINT "GATE MAX"
1560 PRINT " #  M.P.H."
1570 PRINT"----------"
1580 FOR B=1 TO V
1590    READ Q
1600    PRINT B;"  ";Q
1610 NEXT B
1620 GOTO 1470
1630 LET T=T+.5
1640 GOTO 670
1650 PRINT "YOU WON A GOLD MEDAL!"
1660 LET G(1)=G(1)+1
1670 GOTO 1730
1680 PRINT "YOU WON A SILVER MEDAL"
1690 LET S(1)=S(1)+1
1700 GOTO 1730
1710 PRINT "YOU WON A BRONZE MEDAL"
1720 LET B(1)=B(1)+1
1730 GOTO 740
1740 PRINT "THANKS FOR THE RACE"
1750 IF G(1)<1 THEN 1770
1760 PRINT "GOLD MEDALS:";G(1)
1770 IF S(1)<1 THEN 1790
1780 PRINT "SILVER MEDALS:";S(1)
1790 IF B(1)<1 THEN 1830
1800 PRINT "BRONZE MEDALS:";B(1)
1810 DATA 14,18,26,29,18,25,28,32,29,20,29,29,25,21,26,29,20,21,20
1820 DATA 18,26,25,33,31,22
1830 END

CUBE

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,2 YOU"
230 PRINT"MAY MOVE TO 2,1,2 OR 1,1,3. YOU MAY NOT CHANGE"
240 PRINT"TWO OF THE NUMBERS ON THE SAME MOVE. IF YOU MAKE AN ILLEGAL"
250 PRINT"MOVE, YOU LOSE AND THE COMPUTER TAKES THE MONEY YOU MAY"
260 PRINT"HAVE BET ON THAT ROUND."
270 PRINT
280 PRINT
290 PRINT"ALL YES OR NO QUESTIONS WILL BE ANSWERED BY A 1 FOR YES"
300 PRINT"OR A 0 (ZERO) FOR NO."
310 PRINT
320 PRINT"WHEN STATING THE AMOUNT OF A WAGER, PRINT ONLY THE NUMBER"
330 PRINT"OF DOLLARS (EXAMPLE: 250)  YOU ARE AUTOMATICALLY STARTED WITH"
340 PRINT"500 DOLLARS IN YOUR ACCOUNT."
350 PRINT
360 PRINT "GOOD LUCK!"
370 LET A1=500
380 LET A=INT(3*(RND(X)))
390 IF A<>0 THEN 410
400 LET A=3
410 LET B=INT(3*(RND(X)))
420 IF B<>0 THEN 440
430 LET B=2
440 LET C=INT(3*(RND(X)))
450 IF C<>0 THEN 470
460 LET C=3
470 LET D=INT(3*(RND(X)))
480 IF D<>0 THEN 500
490 LET D=1
500 LET E=INT(3*(RND(X)))
510 IF E<>0 THEN 530
520 LET E=3
530 LET F=INT(3*(RND(X)))
540 IF F<>0 THEN 560
550 LET F=3
560 LET G=INT(3*(RND(X)))
570 IF G<>0 THEN 590
580 LET G=3
590 LET H=INT(3*(RND(X)))
600 IF H<>0 THEN 620
610 LET H=3
620 LET I=INT(3*(RND(X)))
630 IF I<>0 THEN 650
640 LET I=2
650 LET J=INT(3*(RND(X)))
660 IF J<>0 THEN 680
670 LET J=3
680 LET K=INT(3*(RND(X)))
690 IF K<>0 THEN 710
700 LET K=2
710 LET L=INT(3*(RND(X)))
720 IF L<>0 THEN 740
730 LET L=3
740 LET M=INT(3*(RND(X)))
750 IF M<>0 THEN 770
760 LET M=3
770 LET N=INT(3*(RND(X)))
780 IF N<>0 THEN 800
790 LET N=1
800 LET O=INT (3*(RND(X)))
810 IF O <>0 THEN 830
820 LET O=3
830 PRINT "WANT TO MAKE A WAGER?"
840 INPUT Z
850 IF Z=0 THEN 920
860 PRINT "HOW MUCH ";
870 INPUT Z1
876 IF A1<Z1 THEN 1522
880 LET W=1
890 LET X=1
900 LET Y=1
910 PRINT
920 PRINT "IT'S YOUR MOVE:  ";
930 INPUT P,Q,R
940 IF P>W+1 THEN 1030
950 IF P=W+1 THEN 1000
960 IF Q>X+1 THEN 1030
970 IF Q=(X+1) THEN 1010
980 IF R >(Y+1)  THEN 1030
990 GOTO 1050
1000 IF Q>= X+1 THEN 1030
1010 IF R>=Y+1 THEN 1030
1020 GOTO 1050
1030 PRINT:PRINT "ILLEGAL MOVE. YOU LOSE."
1040 GOTO 1440
1050 LET W=P
1060 LET X=Q
1070 LET Y=R
1080 IF P=3 THEN 1100
1090 GOTO 1130
1100 IF  Q=3 THEN 1120
1110 GOTO 1130
1120 IF R=3 THEN 1530
1130 IF P=A THEN 1150
1140 GOTO 1180
1150 IF Q=B THEN 1170
1160 GOTO 1180
1170 IF R=C THEN 1400
1180 IF P=D THEN 1200
1190 GOTO 1230
1200 IF Q=E THEN 1220
1210 GOTO 1230
1220 IF  R=F THEN 1400
1230 IF P=G THEN 1250
1240 GOTO 1280
1250 IF Q=H THEN 1270
1260 GOTO 1280
1270 IF R=I THEN 1400
1280 IF P=J THEN 1300
1290 GOTO 1330
1300 IF Q=K THEN 1320
1310 GOTO 1330
1320 IF R=L THEN 1440
1330 IF P=M THEN 1350
1340 GOTO 1380
1350 IF Q=N THEN 1370
1360 GOTO 1380
1370 IF R=O THEN 1400
1380 PRINT "NEXT MOVE: ";
1390 GOTO 930
1400 PRINT"******BANG******"
1410 PRINT "YOU LOSE!"
1420 PRINT
1430 PRINT
1440 IF   Z=0 THEN 1580
1450 PRINT
1460 LET Z2=A1-Z1
1470 IF Z2>0 THEN 1500
1480 PRINT "YOU BUST."
1490 GOTO 1610
1500 PRINT " YOU NOW HAVE"; Z2; "DOLLARS."
1510 LET A1=Z2
1520 GOTO 1580
1522 PRINT"TRIED TO FOOL ME; BET AGAIN";
1525 GOTO 870
1530 PRINT"CONGRATULATIONS!"
1540 IF Z=0 THEN 1580
1550 LET Z2=A1+Z1
1560 PRINT "YOU NOW HAVE"; Z2;"DOLLARS."
1570 LET A1=Z2
1580 PRINT"DO YOU WANT TO TRY AGAIN ";
1590 INPUT S
1600 IF S=1 THEN 380
1610 PRINT "TOUGH LUCK!"
1620 PRINT
1630 PRINT "GOODBYE."
1640 END

QUEEN

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 THE DIRECTIONS AGAIN."
170 PRINT "YOU HAVE BEGUN ILLEGALLY."
175 PRINT
180 GOTO 100
200 GOSUB 2000
210 PRINT "COMPUTER MOVES TO SQUARE";M
215 IF M=158 THEN 3400
220 PRINT "WHAT IS YOUR MOVE";
230 INPUT M1
231 IF M1<>0 THEN 239
232 PRINT
233 PRINT "IT LOOKS LIKE I HAVE WON BY FORFEIT."
234 PRINT
235 GOTO 4000
239 IF M1<=M THEN 3200
240 T1=INT(M1/10)
250 U1=M1-10*T1
260 P=U1-U
270 IF P<>0 THEN 300
280 L=T1-T
290 IF L<=0 THEN 3200
295 GOTO 200
300 IF T1-T <>P THEN 320
310 GOTO 200
320 IF T1-T <>2*P THEN 3200
330 GOTO 200
1990 REM     LOCATE MOVE FOR COMPUTER
2000 IF M1=41 THEN 2180
2010 IF M1=44 THEN 2180
2020 IF M1=73 THEN 2180
2030 IF M1=75 THEN 2180
2040 IF M1=126 THEN 2180
2050 IF M1=127 THEN 2180
2060 IF M1=158 THEN 3300
2065 C=0
2070 FOR K=7 TO 1 STEP -1
2080 U=U1
2090 T=T1+K
2100 GOSUB 3500
2105 IF C=1 THEN 2160
2110 U=U+K
2120 GOSUB 3500
2125 IF C=1 THEN 2160
2130 T=T+K
2140 GOSUB 3500
2145 IF C=1 THEN 2160
2150 NEXT K
2155 GOTO 2180
2160 C=0
2170 RETURN
2180 GOSUB 3000
2190 RETURN
2990 REM     RANDOM MOVE
3000 Z=RND(1)
3010 IF Z>.6 THEN 3110
3020 IF Z>.3 THEN 3070
3030 U=U1
3040 T=T1+1
3050 M=10*T+U
3060 RETURN
3070 U=U1+1
3080 T=T1+2
3090 M=10*T+U
3100 RETURN
3110 U=U1+1
3120 T=T1+1
3130 M=10*T+U
3140 RETURN
3190 REM     ILLEGAL MOVE MESSAGE
3200 PRINT
3210 PRINT "Y O U   C H E A T . . .  TRY AGAIN";
3220 GOTO 230
3290 REM     PLAYER WINS
3300 PRINT
3310 PRINT "C O N G R A T U L A T I O N S . . ."
3320 PRINT
3330 PRINT "YOU HAVE WON--VERY WELL PLAYED."
3340 PRINT "IT LOOKS LIKE I HAVE MET MY MATCH."
3350 PRINT "THANKS FOR PLAYING---I CAN'T WIN ALL THE TIME."
3360 PRINT
3370 GOTO 4000
3390 REM     COMPUTER WINS
3400 PRINT
3410 PRINT "NICE TRY, BUT IT LOOKS LIKE I HAVE WON."
3420 PRINT "THANKS FOR PLAYING."
3430 PRINT
3440 GOTO 4000
3490 REM     TEST FOR COMPUTER MOVE
3500 M=10*T+U
3510 IF M=158 THEN 3570
3520 IF M=127 THEN 3570
3530 IF M=126 THEN 3570
3540 IF M=75 THEN 3570
3550 IF M=73 THEN 3570
3560 RETURN
3570 C=1
3580 GOTO 3560
3990 REM     ANOTHER GAME???
4000 PRINT "ANYONE ELSE CARE TO TRY";
4010 INPUT Q$
4020 PRINT
4030 IF Q$="YES" THEN 30
4040 IF Q$="NO" THEN 4050
4042 PRINT "PLEASE ANSWER 'YES' OR 'NO'."
4045 GOTO 4000
4050 PRINT:PRINT "OK --- THANKS AGAIN."
4060 STOP
4990 REM     DIRECTIONS
5000 PRINT "WE ARE GOING TO PLAY A GAME BASED ON ONE OF THE CHESS"
5010 PRINT "MOVES.  OUR QUEEN WILL BE ABLE TO MOVE ONLY TO THE LEFT,"
5020 PRINT "DOWN, OR DIAGONALLY DOWN AND TO THE LEFT."
5030 PRINT
5040 PRINT "THE OBJECT OF THE GAME IS TO PLACE THE QUEEN IN THE LOWER"
5050 PRINT "LEFT HAND SQUARE BY ALTERNATING MOVES BETWEEN YOU AND THE"
5060 PRINT "COMPUTER.  THE FIRST ONE TO PLACE THE QUEEN THERE WINS."
5070 PRINT
5080 PRINT "YOU GO FIRST AND PLACE THE QUEEN IN ANY ONE OF THE SQUARES"
5090 PRINT "ON THE TOP ROW OR RIGHT HAND COLUMN."
5100 PRINT "THAT WILL BE YOUR FIRST MOVE."
5110 PRINT "WE ALTERNATE MOVES."
5120 PRINT "YOU MAY FORFEIT BY TYPING '0' AS YOUR MOVE."
5130 PRINT "BE SURE TO PRESS THE RETURN KEY AFTER EACH RESPONSE."
5140 PRINT
5150 PRINT
5160 PRINT
5170 FOR A=0 TO 7
5180 FOR B=1 TO 8
5185 I=8*A+B
5190 PRINT S(I);
5200 NEXT B
5210 PRINT
5220 PRINT
5230 PRINT
5240 NEXT A
5250 PRINT
5260 RETURN
9999 END

اكتشاف صور جديدة لظاهرة كونية نادرة

​ اكتشاف صور جديدة لظاهرة كونية نادرة ساعد تلسكوب متطور "في إل تي" العلماء للحصول على صور أكثر تفصيلًا للمجرة "إن...

sss

make-money-234x60

turess

cours a raoued

cours a raoued
cours a domicile par sami bouguila

fanslave

get-fans-468x60

fb

compteur visites

cfb

adm

autosurf

h

socialtroc

SocialTroc