10  DIM A[7,8],B[7,8],C[7,8],F[7,8],A$[8],C$[3]
12  REM HP 36879A, 6/74
15  A$="BCEHILNO"
20  K=L=R=R1=S1=S2=0
30  MAT  READ A
40  DATA 431011.,431011.,432029.,0,0,0,0,0
45  DATA 651011.,650009.,650009.,0,0,0,0,0
50  DATA 132011.,132039.,131011.,130009.,0,0,0,0
55  DATA 0,0,103031.,100009.,100009.,105059.,0,0
60  DATA 0,0,204049.,204059.,200009.,200009.,206069.,0
65  DATA 0,0,0,705059.,705069.,700009.,700009.,707079.
70  DATA 0,0,0,806059.,806069.,806079.,800009.,800009.
130  MAT  READ B
140  DATA 0,0,500005.,0,0,0,0,0
145  DATA 0,567906.,250002.,0,0,0,0,0
150  DATA 0,500005.,0,235782.,0,0,0,0
155  DATA 0,0,0,123582.,259002.,500005.,0,0
160  DATA 0,0,900009.,500005.,780007.,590005.,500005.,0
165  DATA 0,0,0,900009.,590009.,134681.,590009.,500005.
170  DATA 0,0,0,900009.,500005.,500005.,590005.,580005.
230  MAT  READ C
240  DATA 4.0026,5.0122,6.0189,0,0,0,0,0
245  DATA 5.0125,6.0151,7.016,0,0,0,0,0
250  DATA 6.0197,7.0169,8.0053,9.0122,0,0,0,0
255  DATA 0,0,9.0133,10.0129,11.0093,12.0143,0,0
260  DATA 0,0,10.0168,11.0114,12,13.0034,14.0033,0
265  DATA 0,0,0,12.0186,13.0058,14.0031,15.0001,16.0061
270  DATA 0,0,0,13.0248,14.0086,15.0031,15.9949,16.9991
271  MAT  READ F
272  DATA 0,1.0087,0,0,0,0,0,0
273  DATA 1.0078,0,0,0,0,0,0,0
274  DATA 1.0078,-.00003,4.0026,0,0,0,0,0
275  DATA 0,0,1.0078,0,0,0,0,0
276  DATA 0,0,0,0,0,0,.00002,0
277  DATA 0,0,0,0,0,0,0,0
278  DATA 0,0,0,0,0,0,0,0
280  PRINT "HOW MANY PLAYERS, 0, 1, OR 2"
285  INPUT P
286  IF P=0 THEN 289
287  IF P=1 THEN 289
288  IF P#2 THEN 280
289  PRINT "IS THIS A TEST"
290  INPUT C$
291  IF C$[1,1]="N" THEN 310
292  IF C$[1,1]#"Y" THEN 289
293  PRINT "WHAT Z"
294  INPUT Z
295  IF Z<2 THEN 299
296  IF Z>8 THEN 299
297  IF ABS(Z-INT(Z))#0 THEN 299
298  GOTO 301
299  PRINT "Z MUST BE AN INTEGER BETWEEN 2 & 8."
300  GOTO 293
301  PRINT "WHAT N"
302  INPUT N
303  IF N<2 THEN 307
304  IF N>9 THEN 307
305  IF ABS(N-INT(N))#0 THEN 307
306  GOTO 320
307  PRINT "N MUST BE AN INTEGER BETWEEN 2 & 9."
308  GOTO 301
310  Z=3
315  N=4
320  Y=Z-1
325  M=N-1
326  IF A[Y,M]#0 THEN 330
327  PRINT "YOU FELL OFF THE GAMEBOARD."
328  PRINT "CLIMB ON AND TRY AGAIN."
329  GOTO 293
330  H=1
340  MAT D=ZER[7,8]
350  D[8-Y,M]=1
900  S=C[Y,M]
910  X1=.00001*A[Y,M]
920  X2=INT(X1)
930  X3=10*(X1-X2)
940  X4=INT(X3)
950  X5=10*(X3-X4)
960  X6=INT(X5)
970  X7=100*(X5-X6)
980  X8=INT(X7)
990  X9=10*(X7-X8)
995  GOTO 1050
1000  IF X4=0 THEN 1015
1001  PRINT 
1002  IF P=2 AND Y=1 AND M=1 AND R1=0 THEN 1040
1005  PRINT A$[X2,X2];A$[X4,X4];TAB(6);Z+N
1007  PRINT 
1010  RETURN 
1011  PRINT 
1015  PRINT A$[X2,X2];TAB(5);Z+N
1030  PRINT 
1040  RETURN 
1050  GOSUB 1000
1100  IF D[8-Y,M]=1 THEN 1112
1101  IF P#0 THEN 1105
1102  GOSUB 9300
1105  H=H+1
1110  D[8-Y,M]=1
1112  IF Y=1 AND M=1 THEN 1200
1114  R1=0
1115  GOSUB 6020
1120  GOTO 1500
1200  IF P=2 THEN 1210
1205  IF D[1,8]=0 THEN 1250
1210  IF H<(24-(2*P*P)) THEN 1300
1212  IF P=2 THEN 1230
1215  PRINT "YOUR SCORE=";99+H-L
1220  GOTO 1400
1230  IF R1=1 THEN 1400
1240  GOTO 1115
1250  IF P=0 THEN 1400
1260  PRINT "O 17 NOT INCLUDED IN GAME ROUTE."
1300  IF P=0 THEN 1400
1305  PRINT "YOU WENT TO HELIUM 4 TOO SOON"
1310  PRINT "GAME LOST"
1320  IF P#2 THEN 1340
1330  PRINT "BY THE PLAYER WHO JUST MOVED."
1335  PRINT "(NOT NECESSARILY THE PLAYER WHO RECEIVED"
1336  PRINT "THE LAST ENERGY PRINT-OUT.)"
1340  PRINT 
1400  PRINT "END OF GAME"
1405  PRINT "DO YOU WANT A FINAL DISPLAY"
1410  INPUT C$
1415  IF C$[1,1]="N" THEN 1450
1420  IF C$[1,1]#"Y" THEN 1405
1425  GOSUB 9190
1430  PRINT 
1450  GOTO 9999
1500  IF X9<5 THEN 4996
1506  GOSUB 8160
1510  IF P<1.5 THEN 2010
1515  GOTO 1599
1520  IF L/4-INT(L/4)=0 THEN 1560
1530  IF (L-1)/4-INT((L-1)/4)=0 THEN 1560
1535  PRINT 
1540  PRINT "PLAYER 2"
1545  PRINT 
1550  RETURN 
1560  PRINT 
1565  PRINT "PLAYER 1"
1570  PRINT 
1590  RETURN 
1599  IF P#2 THEN 2010
1600  GOSUB 1520
2010  PRINT "WHAT NUCLEAR REACTION"
2020  INPUT U
2025  IF U=999 THEN 9999
2030  IF U=0 THEN 4995
3105  U1=.00001*B[Y,M]
3110  U2=INT(U1)
3115  U3=10*(U1-U2)
3120  U4=INT(U3)
3125  U5=10*(U3-U4)
3130  V0=INT(U5)
3135  V1=10*(U5-V0)
3140  V2=INT(V1)
3145  V3=10*(V1-V2)
3150  V4=INT(V3)
3155  V5=10*(V3-V4)
3160  V6=INT(V5)
3175  IF U2=U THEN 3300
3180  IF U4=U THEN 3300
3185  IF V0=U THEN 3300
3190  IF V2=U THEN 3300
3195  IF V4=U THEN 3300
3200  IF V6=U THEN 3300
3210  PRINT 
3220  PRINT "REACTION NOT LISTED ON GAMEBOARD."
3230  PRINT "TRY AGAIN."
3250  PRINT 
3280  GOTO 2010
3300  IF U#1 THEN 3330
3305  Y=Y+1
3310  Z=Z+1
3315  M=M+2
3320  N=N+2
3325  E=-2.9948
3330  IF U#2 THEN 3360
3335  Y=Y+2
3340  Z=Z+2
3345  M=M+1
3350  N=N+1
3355  E=-2.9939
3360  IF U#3 THEN 3390
3365  Y=Y-1
3370  Z=Z-1
3375  M=M-2
3380  N=N-2
3385  E=2.9948
3390  IF U#4 THEN 3420
3395  Y=Y+1
3400  Z=Z+1
3415  E=-1.0078
3420  IF U#5 THEN 3450
3435  M=M-1
3440  N=N-1
3445  E=1.0087
3450  IF U#6 THEN 3480
3455  Y=Y-1
3460  Z=Z-1
3465  M=M-1
3470  N=N-1
3475  E=1.9885
3480  IF U#7 THEN 3510
3485  Y=Y+1
3490  Z=Z+1
3505  E=-1.0054
3510  IF U#8 THEN 4000
3515  Y=Y-2
3520  Z=Z-2
3525  M=M-1
3530  N=N-1
3535  E=2.9939
4000  IF U#9 THEN 6000
4015  M=M+1
4020  N=N+1
4025  E=-1.0087
4060  GOTO 6000
4995  IF X6=0 THEN 3210
4996  IF X9 >= 5 THEN 5500
4997  IF Y=1 AND M=1 THEN 5100
5009  IF P#2 THEN 5020
5010  GOSUB 1520
5020  PRINT "SHORT-LIVED ISOTOPE."
5100  R=1
5200  U=0
5500  GOSUB 8000
6000  L=L+1
6010  K=K+1
6015  IF P=2 THEN 6300
6017  GOTO 900
6020  IF K<3.5 THEN 6075
6030  K=0
6035  PRINT 
6040  PRINT "ISOTOPE COUNT=";H
6050  PRINT "TRANSITIONS MADE=";L
6051  IF P#1 THEN 6055
6052  PRINT "YOUR SCORE=";99+H-L
6055  PRINT 
6056  PRINT "DO YOU WANT A CHECKLIST DISPLAY"
6057  INPUT C$
6058  IF C$[1,1]="N" THEN 6070
6059  IF C$[1,1]#"Y" THEN 6056
6060  GOSUB 9190
6065  PRINT 
6070  GOSUB 1000
6075  RETURN 
6300  GOSUB 9000
6330  IF L/2-INT(L/2)=0 THEN 6335
6332  S0=S
6333  GOTO 900
6335  S=S0+S
6340  IF L/4-INT(L/4)=0 THEN 6370
6350  S1=S1+S
6360  GOTO 900
6370  S2=S2+S
6375  PRINT 
6380  GOSUB 9100
6397  IF L >= 24 THEN 1400
6410  GOTO 900
8000  G=F[Y,M]
8010  Y=X6
8020  Z=Y+1
8030  M=X8
8040  N=M+1
8041  IF RND(0)>.5 THEN 8085
8042  IF R=1 THEN 8085
8045  IF Y=5 AND M=5 THEN 8050
8047  GOTO 8055
8050  A[5,5]=203031.
8051  F[5,5]=4.0026
8052  GOTO 8085
8055  IF Y=7 AND M=7 THEN 8060
8057  GOTO 8065
8060  A[7,7]=805051.
8061  F[7,7]=4.0026
8062  GOTO 8085
8065  IF Y=6 AND M=5 THEN 8070
8067  GOTO 8085
8070  A[6,5]=705051.
8071  F[6,5]=1.0078
8085  R=0
8090  PRINT 
8095  RETURN 
8160  A[7,7]=800009.
8161  F[7,7]=0
8170  A[6,5]=705069.
8171  F[6,5]=0
8195  RETURN 
9000  IF U=0 THEN 9020
9010  S=S-E-C[Y,M]
9015  RETURN 
9020  S=S-G-C[Y,M]
9025  RETURN 
9100  PRINT "PLAYER 1'S SCORE IN MEV=";(INT(100*931.8*S1))/100
9110  PRINT "PLAYER 2'S SCORE IN MEV=";(INT(100*931.8*S2))/100
9115  R1=1
9120  RETURN 
9190  PRINT 
9200  PRINT "OXYGEN (O)";TAB(36);D[1,4];D[1,5];D[1,6];D[1,7];D[1,8]
9205  PRINT 
9210  PRINT "NITROGEN (N)";TAB(36);D[2,4];D[2,5];D[2,6];D[2,7];D[2,8]
9215  PRINT 
9220  PRINT "CARBON (C)";TAB(30);D[3,3];D[3,4];D[3,5];D[3,6];D[3,7]
9225  PRINT 
9230  PRINT "BORON (B)";TAB(30);D[4,3];D[4,4];D[4,5];D[4,6]
9235  PRINT 
9240  PRINT "BERYLLIUM (BE)";TAB(18);D[5,1];D[5,2];D[5,3];D[5,4]
9245  PRINT 
9250  PRINT "LITHIUM (LI)";TAB(18);D[6,1];D[6,2];D[6,3]
9255  PRINT 
9260  PRINT "HELIUM (HE)";TAB(18);D[7,1];D[7,2];D[7,3]
9270  RETURN 
9300  IF Y=3 AND M=3 THEN 9302
9301  GOTO 9320
9302  PRINT "BE 8 LIVES JUST LONG ENOUGH (10 TO THE MINUS 16"
9303  PRINT "SECONDS) TO FORM A REACTION BRIDGE TO C 12."
9304  PRINT "THE REACTIONS, OCCURRING IN STELLAR INTERIORS,"
9305  PRINT "ARE: HE 4 + HE 4 = BE 8; THEN, BE 8 + HE 4 = C 12."
9306  PRINT "WITHOUT THIS BRIDGE THERE WOULD BE NO ELEMENTS"
9307  PRINT "HEAVIER THAN HELIUM IN THE UNIVERSE.  BERYLLIUM 8"
9308  PRINT "WAS THE FLICKERING GATE THAT LED TO SOLID PLANETS"
9309  PRINT "AND CARBON CHAINS AND LIFE IN THE UNIVERSE."
9320  IF Y=5 AND M=7 THEN 9322
9321  GOTO 9330
9322  PRINT "THIS IS THE NATURALLY OCCURRING ISOTOPE WHOSE"
9323  PRINT "FAINT EMISSIONS ARE USED FOR RADIOACTIVE"
9324  PRINT "CARBON DATING IN ARCHAEOLOGY."
9330  IF U=1 AND Y=7 AND M=8 THEN 9332
9331  GOTO 9340
9332  PRINT "THIS IS THE FIRST ARTIFICIAL NUCLEAR TRANS-"
9333  PRINT "MUTATION EVER CARRIED OUT--RUTHERFORD, 1919."
9340  IF Y=1 AND M=1 THEN 9342
9341  GOTO 9350
9342  PRINT "HE 4 IS A VERY STABLE ISOTOPE, AND THEREFORE"
9343  PRINT "THE END POINT OF MANY NUCLEAR REACTIONS, AND"
9344  PRINT "THE END POINT OF THIS GAME."
9350  IF U=2 AND Y=5 AND M=5 THEN 9352
9351  GOTO 9360
9352  PRINT "THIS REACTION LED TO THE DISCOVERY OF THE NEUTRON"
9353  PRINT "--CHADWICK, 1932."
9360  IF U=2 AND Y=6 AND M=5 THEN 9362
9361  GOTO 9370
9362  PRINT "THIS REACTION LED TO THE FIRST KNOWN EMISSION OF"
9363  PRINT "POSITRONS (N 13 BETA DECAY)--THE CURIE-JOLIOTS, 1934."
9364  PRINT 
9370  IF Y=4 AND M=4 THEN 9372
9371  GOTO 9380
9372  PRINT "B 10 IS ONE OF THE MAIN MOBILITY CENTERS OF THIS"
9373  PRINT "GAME.  THERE ARE MANY PLACES YOU CAN GO FROM HERE."
9374  PRINT "IN PART, THIS REFLECTS THE MANY REACTIONSTHAT HAVE"
9375  PRINT "BEEN CARRIED OUT INVOLVING B 10 BOMBARDMENT.  BE 9"
9376  PRINT "AND N14 ARE SIMILAR STRATEGIC HUBS."
9380  IF Y=5 AND M=5 THEN 9382
9381  GOTO 9390
9382  PRINT "THIS IS THE MOST COMMON ISOTOPE OF CARBON AND THE"
9383  PRINT "KEY ATOM IN THE CARBON CHAINSOF ORGANIC MOLECULES."
9384  PRINT "C 12 IS STABLE--UNLESS IT IS REACHED BY CERTAIN"
9385  PRINT "DECAY ROUTES THAT CREATE IT IN AN EXCITED STATE"
9386  PRINT "FROM WHICH IT BREAKS DOWN, IN A CASCADE OF ALPHA"
9389  PRINT "RADIATIONS."
9390  IF Y=7 AND M=7 THEN 9392
9391  GOTO 9400
9392  PRINT "THIS IS THE FAMILIAR OXYGEN THAT WE BREATHE.  IT"
9393  PRINT "IS COMPLETELY STABLE--UNLESS IT IS PRODUCED IN AN"
9394  PRINT "EXCITED STATE BY N 16 BETA DECAY."
9400  IF Y=6 AND M=5 THEN 9402
9401  GOTO 9410
9402  PRINT "N 13 DECAYS SLOWLY BY POSITRON EMISSION--UNLESS"
9403  PRINT "IT WAS CREATED IN AN EXCITED STATE BY BETA DECAY"
9404  PRINT "FROM O 13.  THEN IT IS VERY SHORT-LIVED, EJECTING"
9405  PRINT "A PROTON TO YIELD C 12."
9410  PRINT 
9900  RETURN 
9999  END 
