diff --git a/dec/CHEMIST.BAS b/dec/CHEMIST.BAS
new file mode 100644
index 0000000..eb1de89
--- /dev/null
+++ b/dec/CHEMIST.BAS
@@ -0,0 +1,25 @@
+10 PRINT "THE FICTITIOUS CHEMICAL KRYPTOCYANIC ACID CAN ONLY BE"
+20 PRINT "DILUTED BY THE RATIO OF 7 PARTS WATER TO 3 PARTS ACIE."
+30 PRINT "IF ANY OTHER RATIO IS ATTEMPTED, THE ACID BECOMES UNSTABLE"
+40 PRINT "AND SOON EXPLODES.  GIVEN THE AMOUNT OF ACID, YOU MUST"
+50 PRINT "DECIDE HOW MUCH WATER TO ADD FOR DILUTION.  IF YOU MISS"
+60 PRINT "YOU FACE THE CONSEQUENCES."
+100 LET A=INT(RND(1)*50)
+110 LET W=7*A/3
+120 PRINT A"LITERS OF KRYPTOCYANIC ACID. HOW MUCH WATER";
+130 INPUT R
+140 LET D=ABS(W-R)
+150 IF D>W/20 THEN 200
+160 PRINT "GOOD JOB! YOU MAY BREATHE NOW, BUT DON'T INHALE THE FUMES!"
+170 PRINT
+180 GO TO 100
+200 PRINT "SIZZLE!  YOU HAVE JUST BEEN DESALINATED INTO A BLOB"
+210 PRINT "OF QUIVERING PROTOPLASM!"
+220 LET T=T+1
+230 IF T=9 THEN 260
+240 PRINT "HOWEVER, YOU MAY TRY AGAIN WITH ANOTHER LIFE."
+245 PRINT
+250 GO TO 100
+260 PRINT "YOUR 9 LIVES ARE USED, BUT YOU WILL BE LONG REMEMBERED FOR"
+270 PRINT "YOUR CONTRIBUTIONS TO THE FIELD OF COMIC BOOK CHEMISTRY."
+280 END
diff --git a/dec/DIAMND.BAS b/dec/DIAMND.BAS
new file mode 100644
index 0000000..41d5109
--- /dev/null
+++ b/dec/DIAMND.BAS
@@ -0,0 +1,30 @@
+3 PRINT "FOR A PRETTY DIAMOND PATTERN,"
+4 PRINT "TYPE IN AN ODD NUMBER BETWEEN 5 AND 31."
+5 INPUT R\PRINT
+6 Q=INT(60/R)
+8 FOR L=1 TO Q
+10 X=1\Y=R\Z=2
+20 FOR N=X TO Y STEP Z
+25 PRINT TAB((R-N)/2);
+28 FOR M=1 TO Q
+29 C=1
+30 FOR A=1 TO N
+31 IF C=1 THEN 40
+32 IF C=2 THEN 42
+33 IF C=3 THEN 44
+35 PRINT "!";\GOTO 50
+40 PRINT "D";\GOTO 47
+42 PRINT "E";\GOTO 47
+44 PRINT "C";
+47 C=C+1
+50 NEXT A
+53 IF M=Q THEN 60
+55 PRINT TAB(R*M+(R-N)/2);
+56 NEXT M
+60 PRINT
+70 NEXT N
+83 IF X<>1 THEN 95
+85 X=R-2\Y=1\Z=-2
+90 GOTO 20
+95 NEXT L
+99 END
diff --git a/dec/DICE.BAS b/dec/DICE.BAS
new file mode 100644
index 0000000..8956d10
--- /dev/null
+++ b/dec/DICE.BAS
@@ -0,0 +1,27 @@
+10 DIM F(12)
+20 REM DANNY FREIDUS
+30 PRINT "THIS PROGRAM SIMULATES THE ROLLING OF A"
+40 PRINT "PAIR OF DICE."
+50 PRINT "YOU ENTER THE NUMBER OF TIMES YOU WANT THE COMPUTER"
+60 PRINT "TO 'ROLL' THE DICE.  WATCH OUT, VERY LARGE NUMBERS TAKE"
+70 PRINT "A LONG TIME, IN PARTICULAR, NUMBERS OVER 5000."
+80 FOR Q=1 TO 12
+90 F(Q)=0
+100 NEXT Q
+110 PRINT\PRINT "HOW MANY ROLLS";
+120 INPUT X
+130 FOR S=1 TO X
+140 A=INT(6*RND(1)+1)
+150 B=INT(6*RND(1)+1)
+160 R=A+B
+170 F(R)=F(R)+1
+180 NEXT S
+185 PRINT
+190 PRINT "TOTAL SPOTS","NUMBER OF TIMES"
+200 FOR V=2 TO 12
+210 PRINT V,F(V)
+220 NEXT V
+222 PRINT\PRINT "TRY AGAIN";
+223 INPUT Z$
+224 IF Z$="YES" THEN 80
+240 END
diff --git a/dec/GUESS.BAS b/dec/GUESS.BAS
new file mode 100644
index 0000000..01c4b32
--- /dev/null
+++ b/dec/GUESS.BAS
@@ -0,0 +1,37 @@
+1 PRI "THIS IS A NUMBER GUESSING GAME.  I'LL THINK"
+2 PRI "OF A NUMBER BETWEEN 1 AND ANY LIMIT YOU WANT."
+3 PRI "THEN YOU HAVE TO GUESS WHAT IT IS."
+4 PRI
+5 PRI "WHAT LIMIT DO YOU WANT";
+6 INPL
+7 PRI
+8 L1=INT(LOG(L)/LOG(2))+1
+10 PRI"I'M THINKING OF A NUMBER BETWEEN 1 AND"L
+11 G=1
+14 PRI "NOW YOU TRY TO GUESS WHAT IT IS"
+15 M=INT(L*RND(0)+1)
+20 INP N
+21 IF N>0 THEN 25
+22 GOSUB70
+23 GOTO1
+25 IF N=M THEN 50
+30 G=G+1
+31 IF N>M THEN 40
+32 PRI "TOO LOW. GUESS AGAIN."
+33 GOTO 20
+40 PRI "TOO HIGH.  GUESS AGAIN."
+42 GOTO 20
+50 PRI "THAT'S IT! YOU GOT IT IN"G"TRIES.
+52 IF G<L1 THEN 58
+54 IF G=L1 THEN 60
+56 PRI"YOU SHOULD HAVE BEEN ABLE TO GET IT IN ONLY"L1".
+57 GOT 65
+58 PRI"VERY ";
+60 PRI"GOOD!
+65 GOSUB70
+66 GOTO10
+70 FOR H=1 TO 5
+71 PRI
+72 NEXT H
+73 RETURN
+99 END
diff --git a/dec/HILO.BAS b/dec/HILO.BAS
new file mode 100644
index 0000000..8a4e1b1
--- /dev/null
+++ b/dec/HILO.BAS
@@ -0,0 +1,26 @@
+90 RANDOMIZE
+100 PRINT "THIS IS THE GAME OF HI-LO"\PRINT
+110 PRINT "YOU WILL HAVE 6 TRIES TO GUESS THE AMOUNT OF MONEY IN THE"
+120 PRINT "HI-LO JACKPOT, WHICH IS BETWEEN 1AND 100 DOLLARS.  IF YOU"
+130 PRINT "GUESS THE AMOUNT, YOU WIN ALL THE MONEY IN THE JACKPOT!"
+140 PRINT "THEN YOU GET ANOTHER CHANCE TO WIN MORE MONEY.  HOWEVER,"
+150 PRINT "IF YOU DO NOT GUESS THE AMOUNT, THE GAME ENDS."\PRINT
+160 R=0
+170 B=0\PRINT
+180 Y=INT(100*RND)
+200 PRINT "YOUR GUESS";
+210 INPUT A
+220 B=B+1
+230 IF A=Y THEN 300
+240 IF A>Y THEN 270
+250 PRINT "YOUR GUESS IS TOO LOW"\GOTO 280
+270 PRINT "YOUR GUESS IS TOO HIGH"
+280 PRINT\IF B<6 THEN 200
+290 PRINT "YOU BLEW IT....TOO BAD....THE NUMBER WAS"Y\R=0\GOTO 350
+300 PRINT "GOT IT!!!!!!!!   YOU WIN"Y"DOLLARS."
+310 R=R+Y
+320 PRINT "YOUR TOTAL WINNINGS ARE NOW"R"DOLLARS."
+350 PRINT\PRINT "PLAY AGAIN (YES OR NO)";
+360 INPUT A$\IF A$="YES" THEN 170
+380 PRINT\PRINT "SO LONG.  HOPE YOU ENJOYED YOURSELF!!"
+390 END
diff --git a/dec/KINEMA.BAS b/dec/KINEMA.BAS
new file mode 100644
index 0000000..256e05c
--- /dev/null
+++ b/dec/KINEMA.BAS
@@ -0,0 +1,36 @@
+100 PRINT
+105 PRINT
+106 Q=0
+110 V=5+INT(35*RND(0))
+111 PRINT "A BALL IS THROWN UPWARDS AT"V"METERS PER SECOND."
+112 PRINT
+115 A=V^2/19.6
+116 PRINT "HOW HIGH WILL IT GO (IN METERS)";
+117 GOSUB 500
+120 A=V/4.9
+122 PRINT "HOW LONG UNTIL IT RETURNS (IN SECONDS)";
+124 GOSUB 500
+130 T=1+INT(2*V*RND(1))/10
+132 A=V-9.8*T
+134 PRINT "WHAT WILL ITS VELOCITY BE AFTER"T"SECONDS";
+136 GOSUB 500
+140 PRINT
+150 PRINT Q"RIGHT OUT OF 3.";
+160 IF Q<2 THEN 100
+170 PRINT "  NOT BAD."
+180 GOTO 100
+500 INPUT G
+501 G=100*ABS(G-A)
+502 IF G<=ABS(A) THEN 507
+503 IF G<=15*ABS(A) THEN 510
+504 PRINT "NOT EVEN CLOSE...."
+506 GOTO 512
+507 Q=Q+1
+508 PRI"CORRECT! VERY GOOD!
+509 GOTO 520
+510 PRINT "CLOSE ENOUGH."
+511 Q=Q+1
+512 PRINT "CORRECT ANSWER IS "A
+520 PRINT
+530 RETURN
+999 END
diff --git a/dec/LETTER.BAS b/dec/LETTER.BAS
new file mode 100644
index 0000000..10b2fe3
--- /dev/null
+++ b/dec/LETTER.BAS
@@ -0,0 +1,24 @@
+90 RANDOMIZE
+100 PRINT "LETTER GUESSING GAME"\PRINT
+210 PRINT "I'LL THINK OF A LETTER OF THE ALPHABET, A TO Z."
+220 PRINT "TRY TO GUESS MY LETTER AND I'LL GIVE YOU CLUES"
+230 PRINT "AS TO HOW CLOSE YOU'RE GETTING TO MY LETTER."
+310 L=65+INT(RND(0)*26)
+320 G=0
+340 PRINT\PRINT "OK, I HAVE A LETTER.  START GUESSING."
+410 PRINT\PRINT "WHAT IS YOUR GUESS?";
+420 G=G+1
+430 INPUT $A\PRINT
+440 IF A=L THEN 500
+450 IF A>L THEN 480
+460 PRINT "TOO LOW.  TRY A HIGHER LETTER."\GOTO 410
+480 PRINT "TOO HIGH.  TRY A LOWER LETTER."\GOTO 410
+500 PRINT\PRINT "YOU GOT IT IN"G"GUESSES!!"
+504 IF G<=5 THEN 508
+506 PRINT "BUT IT SHOULDN'T TAKE MORE THAN 5 GUESSES!"\GOTO 515
+508 PRINT "GOOD JOB !!!!!"
+510 FOR N=1 TO 15\PRINT CHR$(7);\NEXT N
+515 PRINT
+520 PRINT "LET'S PLAY AGAIN....."
+530 GOTO 310
+999 END
diff --git a/dec/NICOMA.BAS b/dec/NICOMA.BAS
new file mode 100644
index 0000000..c2668d3
--- /dev/null
+++ b/dec/NICOMA.BAS
@@ -0,0 +1,31 @@
+10 PRINT "BOOMERANG PUZZLE FROM ARITHMETICA OF NICOMACHUS -- A.D. 90!"
+20 PRINT
+30 PRINT "PLEASE THINK OF A NUMBER BETWEEN 1 AND 100."
+40 PRINT "YOUR NUMBER DIVIDED BY 3 HAS A REMAINDER OF";
+45 INPUT A
+50 PRINT "YOUR NUMBER DIVIDED BY 5 HAS A REMAINDER OF";
+55 INPUT B
+60 PRINT "YOUR NUMBER DIVIDED BY 7 HAS A REMAINDER OF";
+65 INPUT C
+70 PRINT
+80 PRINT "LET ME THINK A MOMENT...."
+90 SLEEP(5)
+100 D=70*A+21*B+15*C
+110 IF D<=105 THEN 140
+120 D=D-105
+130 GOTO 110
+140 PRINT
+150 PRINT "YOUR NUMBER WAS"D", RIGHT";
+160 INPUT A$
+165 PRINT
+170 IF A$="YES" THEN 220
+180 IF A$="NO" THEN 240
+190 PRINT "EH?  I DON'T UNDERSTAND '"A$"'   TRY 'YES' OR 'NO'"
+200 GOTO 150
+220 PRINT "HOW ABOUT THAT!!"
+230 GOTO 250
+240 PRINT "I FEEL YOUR ARITHMETIC IS IN ERROR."
+250 PRINT
+260 PRINT "LET'S TRY ANOTHER."
+270 GOTO 20
+999 END
diff --git a/dec/NUMBER.BAS b/dec/NUMBER.BAS
new file mode 100644
index 0000000..c515814
--- /dev/null
+++ b/dec/NUMBER.BAS
@@ -0,0 +1,36 @@
+1 PRINT "                 NUMBER GAME"
+2 PRINT\PRINT "YOU NOW HAVE 100 POINTS"
+3 PRINT "BY GUESSING NUMBERS FROM 1 TO 5, YOU CAN GAIN OR LOSE"
+4 PRINT "POINTS DEPENDING UPON HOW CLOSE YOU GET TO A RANDOM"
+5 PRINT "NUMBER SELECTED BY THE COMPUTER"\PRINT
+6 PRINT "YOU OCCASIONALLY WILL GET A JACKPOT WHICH WILL DOUBLE(!)"
+7 PRINT "YOUR POINT COUNT.  YOU WIN WHEN YOU GET 500 POINTS."
+8 PRINT\P=100
+11 PRINT "GUESS A NUMBER FROM 1 TO 5";
+12 INPUT G
+15 LET R=INT(5*RND(0))
+16 LET S=INT(5*RND(0))
+17 LET T=INT(5*RND(0))
+18 LET U=INT(5*RND(0))
+19 LET V=INT(5*RND(0))
+20 IF G=R THEN 30
+21 IF G=S THEN 40
+22 IF G=T THEN 50
+23 IF G=U THEN 60
+24 IF G=V THEN 70
+25 IF G>5 THEN 11
+30 LET P=P-5
+35 GOTO 80
+40 LET P=P+5
+45 GOTO 80
+50 LET P=P+P
+53 PRINT "YOU HIT THE JACKPOT"
+55 GOTO 80
+60 LET P=P+1
+65 GOTO 80
+70 LET P=P-(P*.5)
+80 IF P>500 THEN 90
+82 PRINT "YOU HAVE";P;"POINTS"
+85 GOTO 11
+90 PRINT "!!!!YOU WIN!!!! WITH ";P;"POINTS."
+99 END
diff --git a/dec/ROCKSP.BAS b/dec/ROCKSP.BAS
new file mode 100644
index 0000000..2611f97
--- /dev/null
+++ b/dec/ROCKSP.BAS
@@ -0,0 +1,33 @@
+1 PRINT "THIS PROGRAM ALLOWS YOU TO PLAY THE OLD GAME OF"
+2 PRINT "ROCKS, PAPER, AND SISSORS AGAINST THE COMPUTER."
+5 RANDOMIZE
+6 INPUT "HOW MANY GAMES DO YOU WANT";Q
+8 IF Q<11 THEN  11
+9 PRINT "SORRY, BUT WE AREN'T ALLOWED TO PLAY THAT MANY."\GOTO 6
+11 FOR G=1 TO Q
+15 PRINT\PRINT "GAME NUMBER"G
+20 X=INT(RND*3+1)
+25 PRINT "3=ROCK...2=SISSORS...1=PAPER"
+30 INPUT "1....2....3....WHAT'S YOUR CHOICE";K
+32 IF (K-1)*(K-2)*(K-3)<>0 THEN PRINT "INVALID"\GOTO 25
+35 PRINT "THIS IS MY CHOICE..."
+40 ON X GOTO 50,60,70
+50 PRINT "...PAPER"\GOTO 80
+60 PRINT "...SISSORS"\GOTO 80
+70 PRINT "...ROCK"
+80 IF X=K THEN 155
+85 IF X>K THEN 125
+90 IF X=1 THEN 105
+95 PRINT "YOU WIN!!!"\H=H+1\GOTO 160
+105 IF K=3 THEN 115 ELSE GOTO 95
+115 PRINT "WOW!  I WIN!!"\C=C+1\GOTO 160
+125 IF K<>1 THEN 115
+140 IF X<>3 THEN 115 ELSE 95
+155 PRINT "TIE GAME, NO WINNER."
+160 NEXT G
+170 PRINT\PRINT "HERE IS THE FINAL SCORE:"
+175 PRINT "I HAVE WON"C"GAME(S)."
+180 PRINT "YOU HAVE WON"H"GAME(S)."
+185 PRINT "AND"G-(C+H)"GAME(S) ENDED IN A TIE."
+190 PRINT\PRINT "THANKS FOR PLAYING!!"
+200 END
diff --git a/dec/RUSROU.BAS b/dec/RUSROU.BAS
new file mode 100644
index 0000000..927aa8d
--- /dev/null
+++ b/dec/RUSROU.BAS
@@ -0,0 +1,21 @@
+5 RANDOMIZE
+8 PRINT "THIS IS A GAME OF >>>>>>>>>>>RUSSIAN ROULETTE."
+10 PRINT\PRINT "HERE IS A REVOLVER"
+20 PRINT "HIT '1' TO SPIN CHAMBER AND PULL TRIGGER."
+22 PRINT "     (HIT '2' TO GIVE UP)"\PRINT "GO";
+25 N=0
+30 INPUT I
+31 IF I<>2 THEN 35
+32 PRINT "      CHICKEN !!!"\GOTO 72
+35 N=N+1
+40 IF RND(0)>0.83333 THEN 70
+45 IF N>10 THEN 80
+50 PRINT "- CLICK -"
+60 PRINT\GOTO 30
+70 PRINT "     BANG!!!!  YOU'RE DEAD!"
+71 PRINT "CONDOLENCES WILL BE SENT TO YOUR RELATIVES."
+72 PRINT\PRINT\PRINT\PRINT "...NEXT VICTIM..."\GOTO 20
+80 PRINT "YOU WIN !!!"
+85 PRINT "LET SOMEONE ELSE BLOW HIS BRAINS OUT."
+90 GOTO 10
+99 END
diff --git a/port/CHEMIST.BAS b/port/CHEMIST.BAS
new file mode 100644
index 0000000..b419be2
--- /dev/null
+++ b/port/CHEMIST.BAS
@@ -0,0 +1,26 @@
+  10 PRINT "THE FICTITIOUS CHEMICAL KRYPTOCYANIC ACID CAN ONLY BE"
+  20 PRINT "DILUTED BY THE RATIO OF 7 PARTS WATER TO 3 PARTS ACID."
+  30 PRINT "IF ANY OTHER RATIO IS ATTEMPTED, THE ACID BECOMES UNSTABLE"
+  40 PRINT "AND SOON EXPLODES.  GIVEN THE AMOUNT OF ACID, YOU MUST"
+  50 PRINT "DECIDE HOW MUCH WATER TO ADD FOR DILUTION.  IF YOU MISS"
+  60 PRINT "YOU FACE THE CONSEQUENCES."
+  90 RANDOMIZE
+ 100 LET A=INT(RND(1)*50)+1
+ 110 LET W=7*A/3
+ 120 PRINT A"LITERS OF KRYPTOCYANIC ACID. HOW MUCH WATER";
+ 130 INPUT R
+ 140 LET D=ABS(W-R)
+ 150 IF D>W/20 THEN 200
+ 160 PRINT "GOOD JOB! YOU MAY BREATHE NOW, BUT DON'T INHALE THE FUMES!"
+ 170 PRINT
+ 180 GO TO 100
+ 200 PRINT "SIZZLE!  YOU HAVE JUST BEEN DESALINATED INTO A BLOB"
+ 210 PRINT "OF QUIVERING PROTOPLASM!"
+ 220 LET T=T+1
+ 230 IF T=9 THEN 260
+ 240 PRINT "HOWEVER, YOU MAY TRY AGAIN WITH ANOTHER LIFE."
+ 245 PRINT
+ 250 GO TO 100
+ 260 PRINT "YOUR 9 LIVES ARE USED, BUT YOU WILL BE LONG REMEMBERED FOR"
+ 270 PRINT "YOUR CONTRIBUTIONS TO THE FIELD OF COMIC BOOK CHEMISTRY."
+ 280 END
diff --git a/port/DIAMND.BAS b/port/DIAMND.BAS
new file mode 100644
index 0000000..8dd4ba8
--- /dev/null
+++ b/port/DIAMND.BAS
@@ -0,0 +1,30 @@
+   3 PRINT "FOR A PRETTY DIAMOND PATTERN,"
+   4 PRINT "TYPE IN AN ODD NUMBER BETWEEN 5 AND 31."
+   5 INPUT R\PRINT
+   6 Q=INT(60/R)
+   8 FOR L=1 TO Q
+  10 X=1\Y=R\Z=2
+  20 FOR N=X TO Y STEP Z
+  25 PRINT TAB((R-N)/2);
+  28 FOR M=1 TO Q
+  29 C=1
+  30 FOR A=1 TO N
+  31 IF C=1 THEN 40
+  32 IF C=2 THEN 42
+  33 IF C=3 THEN 44
+  35 PRINT "!";\GOTO 50
+  40 PRINT "D";\GOTO 47
+  42 PRINT "E";\GOTO 47
+  44 PRINT "C";
+  47 C=C+1
+  50 NEXT A
+  53 IF M=Q THEN 60
+  55 PRINT TAB(R*M+(R-N)/2);
+  56 NEXT M
+  60 PRINT
+  70 NEXT N
+  83 IF X<>1 THEN 95
+  85 X=R-2\Y=1\Z=-2
+  90 GOTO 20
+  95 NEXT L
+  99 END
diff --git a/port/DICE.BAS b/port/DICE.BAS
new file mode 100644
index 0000000..8b988ed
--- /dev/null
+++ b/port/DICE.BAS
@@ -0,0 +1,28 @@
+   5 RANDOMIZE
+  10 DIM F(12)
+  20 REM DANNY FREIDUS
+  30 PRINT "THIS PROGRAM SIMULATES THE ROLLING OF A"
+  40 PRINT "PAIR OF DICE."
+  50 PRINT "YOU ENTER THE NUMBER OF TIMES YOU WANT THE COMPUTER"
+  60 PRINT "TO 'ROLL' THE DICE.  WATCH OUT, VERY LARGE NUMBERS TAKE"
+  70 PRINT "A LONG TIME, IN PARTICULAR, NUMBERS OVER 5000."
+  80 FOR Q=1 TO 12
+  90 F(Q)=0
+ 100 NEXT Q
+ 110 PRINT\PRINT "HOW MANY ROLLS";
+ 120 INPUT X
+ 130 FOR S=1 TO X
+ 140 A=INT(6*RND(1)+1)
+ 150 B=INT(6*RND(1)+1)
+ 160 R=A+B
+ 170 F(R)=F(R)+1
+ 180 NEXT S
+ 185 PRINT
+ 190 PRINT "TOTAL SPOTS","NUMBER OF TIMES"
+ 200 FOR V=2 TO 12
+ 210 PRINT V,F(V)
+ 220 NEXT V
+ 222 PRINT\PRINT "TRY AGAIN";
+ 223 INPUT Z$
+ 224 IF Z$="YES" THEN 80
+ 240 END
diff --git a/port/GUESS.BAS b/port/GUESS.BAS
new file mode 100644
index 0000000..b6a6946
--- /dev/null
+++ b/port/GUESS.BAS
@@ -0,0 +1,38 @@
+   1 PRINT "THIS IS A NUMBER GUESSING GAME.  I'LL THINK"
+   2 PRINT "OF A NUMBER BETWEEN 1 AND ANY LIMIT YOU WANT."
+   3 PRINT "THEN YOU HAVE TO GUESS WHAT IT IS."
+   4 PRINT
+   5 PRINT "WHAT LIMIT DO YOU WANT";
+   6 INPUT L
+   7 PRINT
+   8 L1=INT(LOG(L)/LOG(2))+1
+   9 RANDOMIZE
+  10 PRINT"I'M THINKING OF A NUMBER BETWEEN 1 AND"L
+  11 G=1
+  14 PRINT "NOW YOU TRY TO GUESS WHAT IT IS"
+  15 M=INT(L*RND(0)+1)
+  20 INPUT N
+  21 IF N>0 THEN 25
+  22 GOSUB70
+  23 GOTO1
+  25 IF N=M THEN 50
+  30 G=G+1
+  31 IF N>M THEN 40
+  32 PRINT "TOO LOW. GUESS AGAIN."
+  33 GOTO 20
+  40 PRINT "TOO HIGH.  GUESS AGAIN."
+  42 GOTO 20
+  50 PRINT "THAT'S IT! YOU GOT IT IN"G"TRIES."
+  52 IF G<L1 THEN 58
+  54 IF G=L1 THEN 60
+  56 PRINT"YOU SHOULD HAVE BEEN ABLE TO GET IT IN ONLY"L1"."
+  57 GOTO 65
+  58 PRINT"VERY ";
+  60 PRINT"GOOD!"
+  65 GOSUB70
+  66 GOTO10
+  70 FOR H=1 TO 5
+  71 PRINT
+  72 NEXT H
+  73 RETURN
+  99 END
diff --git a/port/HILO.BAS b/port/HILO.BAS
new file mode 100644
index 0000000..b8e7191
--- /dev/null
+++ b/port/HILO.BAS
@@ -0,0 +1,26 @@
+  90 RANDOMIZE
+ 100 PRINT "THIS IS THE GAME OF HI-LO"\PRINT
+ 110 PRINT "YOU WILL HAVE 6 TRIES TO GUESS THE AMOUNT OF MONEY IN THE"
+ 120 PRINT "HI-LO JACKPOT, WHICH IS BETWEEN 1 AND 100 DOLLARS.  IF YOU"
+ 130 PRINT "GUESS THE AMOUNT, YOU WIN ALL THE MONEY IN THE JACKPOT!"
+ 140 PRINT "THEN YOU GET ANOTHER CHANCE TO WIN MORE MONEY.  HOWEVER,"
+ 150 PRINT "IF YOU DO NOT GUESS THE AMOUNT, THE GAME ENDS."\PRINT
+ 160 R=0
+ 170 B=0\PRINT
+ 180 Y=INT(100*RND(1)+1)
+ 200 PRINT "YOUR GUESS";
+ 210 INPUT A
+ 220 B=B+1
+ 230 IF A=Y THEN 300
+ 240 IF A>Y THEN 270
+ 250 PRINT "YOUR GUESS IS TOO LOW"\GOTO 280
+ 270 PRINT "YOUR GUESS IS TOO HIGH"
+ 280 PRINT\IF B<6 THEN 200
+ 290 PRINT "YOU BLEW IT....TOO BAD....THE NUMBER WAS"Y\R=0\GOTO 350
+ 300 PRINT "GOT IT!!!!!!!!   YOU WIN"Y"DOLLARS."
+ 310 R=R+Y
+ 320 PRINT "YOUR TOTAL WINNINGS ARE NOW"R"DOLLARS."
+ 350 PRINT\PRINT "PLAY AGAIN (YES OR NO)";
+ 360 INPUT A$\IF A$="YES" THEN 170
+ 380 PRINT\PRINT "SO LONG.  HOPE YOU ENJOYED YOURSELF!!"
+ 390 END
diff --git a/port/KINEMA.BAS b/port/KINEMA.BAS
new file mode 100644
index 0000000..390ce34
--- /dev/null
+++ b/port/KINEMA.BAS
@@ -0,0 +1,37 @@
+  90 RANDOMIZE
+ 100 PRINT
+ 105 PRINT
+ 106 Q=0
+ 110 V=5+INT(35*RND(0))
+ 111 PRINT "A BALL IS THROWN UPWARDS AT"V"METERS PER SECOND."
+ 112 PRINT
+ 115 A=V^2/19.6
+ 116 PRINT "HOW HIGH WILL IT GO (IN METERS)";
+ 117 GOSUB 500
+ 120 A=V/4.9
+ 122 PRINT "HOW LONG UNTIL IT RETURNS (IN SECONDS)";
+ 124 GOSUB 500
+ 130 T=1+INT(2*V*RND(1))/10
+ 132 A=V-9.8*T
+ 134 PRINT "WHAT WILL ITS VELOCITY BE AFTER"T"SECONDS";
+ 136 GOSUB 500
+ 140 PRINT
+ 150 PRINT Q"RIGHT OUT OF 3.";
+ 160 IF Q<2 THEN 100
+ 170 PRINT "  NOT BAD."
+ 180 GOTO 100
+ 500 INPUT G
+ 501 G=100*ABS(G-A)
+ 502 IF G<=ABS(A) THEN 507
+ 503 IF G<=15*ABS(A) THEN 510
+ 504 PRINT "NOT EVEN CLOSE...."
+ 506 GOTO 512
+ 507 Q=Q+1
+ 508 PRINT "CORRECT! VERY GOOD!"
+ 509 GOTO 520
+ 510 PRINT "CLOSE ENOUGH."
+ 511 Q=Q+1
+ 512 PRINT "CORRECT ANSWER IS "A
+ 520 PRINT
+ 530 RETURN
+ 999 END
diff --git a/port/LETTER.BAS b/port/LETTER.BAS
new file mode 100644
index 0000000..a90a32a
--- /dev/null
+++ b/port/LETTER.BAS
@@ -0,0 +1,25 @@
+  80 DIM A(6)
+  90 RANDOMIZE
+ 100 PRINT "LETTER GUESSING GAME"\PRINT
+ 210 PRINT "I'LL THINK OF A LETTER OF THE ALPHABET, A TO Z."
+ 220 PRINT "TRY TO GUESS MY LETTER AND I'LL GIVE YOU CLUES"
+ 230 PRINT "AS TO HOW CLOSE YOU'RE GETTING TO MY LETTER."
+ 310 L=65+INT(RND(0)*26)
+ 320 G=0
+ 340 PRINT\PRINT "OK, I HAVE A LETTER.  START GUESSING."
+ 410 PRINT\PRINT "WHAT IS YOUR GUESS";
+ 420 G=G+1
+ 430 LINPUT A$\CHANGE A$ TO A\A=A(1)\PRINT
+ 440 IF A=L THEN 500
+ 450 IF A>L THEN 480
+ 460 PRINT "TOO LOW.  TRY A HIGHER LETTER."\GOTO 410
+ 480 PRINT "TOO HIGH.  TRY A LOWER LETTER."\GOTO 410
+ 500 PRINT\PRINT "YOU GOT IT IN"G"GUESSES!!"
+ 504 IF G<=5 THEN 508
+ 506 PRINT "BUT IT SHOULDN'T TAKE MORE THAN 5 GUESSES!"\GOTO 515
+ 508 PRINT "GOOD JOB !!!!!"
+ 510 FOR N=1 TO 15\PRINT CHR$(7);\NEXT N
+ 515 PRINT
+ 520 PRINT "LET'S PLAY AGAIN....."
+ 530 GOTO 310
+ 999 END
diff --git a/port/NICOMA.BAS b/port/NICOMA.BAS
new file mode 100644
index 0000000..3956eba
--- /dev/null
+++ b/port/NICOMA.BAS
@@ -0,0 +1,31 @@
+  10 PRINT "BOOMERANG PUZZLE FROM ARITHMETICA OF NICOMACHUS -- A.D. 90!"
+  20 PRINT
+  30 PRINT "PLEASE THINK OF A NUMBER BETWEEN 1 AND 100."
+  40 PRINT "YOUR NUMBER DIVIDED BY 3 HAS A REMAINDER OF";
+  45 INPUT A
+  50 PRINT "YOUR NUMBER DIVIDED BY 5 HAS A REMAINDER OF";
+  55 INPUT B
+  60 PRINT "YOUR NUMBER DIVIDED BY 7 HAS A REMAINDER OF";
+  65 INPUT C
+  70 PRINT
+  80 PRINT "LET ME THINK A MOMENT...."
+  90 SLEEP(5)
+ 100 D=70*A+21*B+15*C
+ 110 IF D<=105 THEN 140
+ 120 D=D-105
+ 130 GOTO 110
+ 140 PRINT
+ 150 PRINT "YOUR NUMBER WAS"D", RIGHT";
+ 160 INPUT A$
+ 165 PRINT
+ 170 IF A$="YES" THEN 220
+ 180 IF A$="NO" THEN 240
+ 190 PRINT "EH?  I DON'T UNDERSTAND '"A$"'   TRY 'YES' OR 'NO'"
+ 200 GOTO 150
+ 220 PRINT "HOW ABOUT THAT!!"
+ 230 GOTO 250
+ 240 PRINT "I FEEL YOUR ARITHMETIC IS IN ERROR."
+ 250 PRINT
+ 260 PRINT "LET'S TRY ANOTHER."
+ 270 GOTO 20
+ 999 END
diff --git a/port/NUMBER.BAS b/port/NUMBER.BAS
new file mode 100644
index 0000000..7f7654f
--- /dev/null
+++ b/port/NUMBER.BAS
@@ -0,0 +1,37 @@
+   1 PRINT "                 NUMBER GAME"
+   2 PRINT\PRINT "YOU NOW HAVE 100 POINTS"
+   3 PRINT "BY GUESSING NUMBERS FROM 1 TO 5, YOU CAN GAIN OR LOSE"
+   4 PRINT "POINTS DEPENDING UPON HOW CLOSE YOU GET TO A RANDOM"
+   5 PRINT "NUMBER SELECTED BY THE COMPUTER"\PRINT
+   6 PRINT "YOU OCCASIONALLY WILL GET A JACKPOT WHICH WILL DOUBLE(!)"
+   7 PRINT "YOUR POINT COUNT.  YOU WIN WHEN YOU GET 500 POINTS."
+   8 PRINT\P=100
+  10 RANDOMIZE
+  11 PRINT "GUESS A NUMBER FROM 1 TO 5";
+  12 INPUT G
+  15 LET R=INT(5*RND(0))+1
+  16 LET S=INT(5*RND(0))+1
+  17 LET T=INT(5*RND(0))+1
+  18 LET U=INT(5*RND(0))+1
+  19 LET V=INT(5*RND(0))+1
+  20 IF G=R THEN 30
+  21 IF G=S THEN 40
+  22 IF G=T THEN 50
+  23 IF G=U THEN 60
+  24 IF G=V THEN 70
+  25 IF G>5 THEN 11
+  30 LET P=P-5
+  35 GOTO 80
+  40 LET P=P+5
+  45 GOTO 80
+  50 LET P=P+P
+  53 PRINT "YOU HIT THE JACKPOT"
+  55 GOTO 80
+  60 LET P=P+1
+  65 GOTO 80
+  70 LET P=P-(P*.5)
+  80 IF P>500 THEN 90
+  82 PRINT "YOU HAVE";P;"POINTS"
+  85 GOTO 11
+  90 PRINT "!!!!YOU WIN!!!! WITH ";P;"POINTS."
+  99 END
diff --git a/port/ROCKSP.BAS b/port/ROCKSP.BAS
new file mode 100644
index 0000000..a10e16a
--- /dev/null
+++ b/port/ROCKSP.BAS
@@ -0,0 +1,33 @@
+   1 PRINT "THIS PROGRAM ALLOWS YOU TO PLAY THE OLD GAME OF"
+   2 PRINT "ROCK, PAPER, AND SCISSORS AGAINST THE COMPUTER."
+   5 RANDOMIZE
+   6 PRINT "HOW MANY GAMES DO YOU WANT";\INPUT Q
+   8 IF Q<11 THEN  11
+   9 PRINT "SORRY, BUT WE AREN'T ALLOWED TO PLAY THAT MANY."\GOTO 6
+  11 FOR G=1 TO Q
+  15 PRINT\PRINT "GAME NUMBER"G
+  20 X=INT(RND(1)*3+1)
+  25 PRINT "3=ROCK...2=SCISSORS...1=PAPER"
+  30 PRINT "1....2....3....WHAT'S YOUR CHOICE";\INPUT K
+  32 IF (K-1)*(K-2)*(K-3)=0 THEN 35\PRINT "INVALID"\GOTO 25
+  35 PRINT "THIS IS MY CHOICE..."
+  40 ON X GOTO 50,60,70
+  50 PRINT "...PAPER"\GOTO 80
+  60 PRINT "...SCISSORS"\GOTO 80
+  70 PRINT "...ROCK"
+  80 IF X=K THEN 155
+  85 IF X>K THEN 125
+  90 IF X=1 THEN 105
+  95 PRINT "YOU WIN!!!"\H=H+1\GOTO 160
+ 105 IF K=3 THEN 115\ GOTO 95
+ 115 PRINT "WOW!  I WIN!!"\C=C+1\GOTO 160
+ 125 IF K<>1 THEN 115
+ 140 IF X<>3 THEN 115\GOTO 95
+ 155 PRINT "TIE GAME, NO WINNER."
+ 160 NEXT G
+ 170 PRINT\PRINT "HERE IS THE FINAL SCORE:"
+ 175 PRINT "I HAVE WON"C"GAME(S)."
+ 180 PRINT "YOU HAVE WON"H"GAME(S)."
+ 185 PRINT "AND"Q-(C+H)"GAME(S) ENDED IN A TIE."
+ 190 PRINT\PRINT "THANKS FOR PLAYING!!"
+ 200 END
diff --git a/port/RUSROU.BAS b/port/RUSROU.BAS
new file mode 100644
index 0000000..43d3915
--- /dev/null
+++ b/port/RUSROU.BAS
@@ -0,0 +1,21 @@
+   5 RANDOMIZE
+   8 PRINT "THIS IS A GAME OF >>>>>>>>>>>RUSSIAN ROULETTE."
+  10 PRINT\PRINT "HERE IS A REVOLVER"
+  20 PRINT "HIT '1' TO SPIN CHAMBER AND PULL TRIGGER."
+  22 PRINT "     (HIT '2' TO GIVE UP)"\PRINT "GO";
+  25 N=0
+  30 INPUT I
+  31 IF I<>2 THEN 35
+  32 PRINT "      CHICKEN !!!"\GOTO 72
+  35 N=N+1
+  40 IF RND(0)>0.83333 THEN 70
+  45 IF N>10 THEN 80
+  50 PRINT "- CLICK -"
+  60 PRINT\GOTO 30
+  70 PRINT "     BANG!!!!  YOU'RE DEAD!"
+  71 PRINT "CONDOLENCES WILL BE SENT TO YOUR RELATIVES."
+  72 PRINT\PRINT\PRINT\PRINT "...NEXT VICTIM..."\GOTO 20
+  80 PRINT "YOU WIN !!!"
+  85 PRINT "LET SOMEONE ELSE BLOW HIS BRAINS OUT."
+  90 GOTO 10
+  99 END