diff --git a/dec/BOMBER.BAS b/dec/BOMBER.BAS
new file mode 100644
index 0000000..0b10a34
--- /dev/null
+++ b/dec/BOMBER.BAS
@@ -0,0 +1,57 @@
+5 RANDOM:PRINT"YOU ARE NOW A PILOT IN A WORLD WAR II BOMBER
+10 INPUT "WHAT SIDE -- ITALY(1), ALLIES(2), JAPANESE(3), GERMANY(4)";A
+20 IF A>0 AND A<5 THEN 25 ELSE PRINT "TRY AGAIN...."\GOTO 10
+25 ON A GOTO 30,110,200,220
+30 INPUT "WHAT IS YOUR TARGET -- ALBANIA(1), GREECE(2), NORTH AFRICA(3)";B
+40 IF B>0 AND B<4 THEN 45 ELSE PRINT "TRY AGAIN...."\GOTO 30
+45 PRINT\ONB GOTO 50,80,90
+50 PRINT"SHOULD BE EASY.YOU'RE FLYING A NAZI-MADE PLANE.
+60 GOTO 280
+80 PRINT "BE CAREFUL!!!"\GOTO 280
+90 PRINT "YOU'RE GOING FOR THE OIL, EH?"\GOTO 280
+110 INPUT "AIRCRAFT -- LIBERATOR(1), B-29(2), B-17(3), LANCASTER(4)";G
+120 IF G>0 AND G<5 THEN 125 ELSE PRINT "TRY AGAIN..."\GOTO 110
+125 PRINT\ON G GOTO 130,150,170,190
+130 PRINT "YOU'VE GOT 2 TONS OF BOMBS FLYING FOR PLOESTI"
+140 GOTO 280
+150 PRINT "YOU'RE DUMPING THE A-BOMB ON HIROSHIMA."
+160 GOTO 280
+170 PRINT "YOU'RE CHASING THE BISMARK IN THE NORTH SEA."
+180 GOTO 280
+190 PRINT "YOU'RE BUSTING A GERMAN HEAVY WATER PLANT IN THE RUHR."
+195 GOTO 280
+200 PRINT "YOU'RE FLYING A KAMIKAZE (SUICIDE BOMBER) OVER THE USS LEXINGTON."
+205 INPUT "YOUR FIRST KAMIKAZE MISSION (Y OR N)";F$
+207 IF F$="N" THEN S=0\GOTO 358
+210 PRINT\IF RND>.65 THEN 325 ELSE 380
+220 PRINT "A NAZI, EH?  OH WELL. ARE YOU GOING FOR RUSSIA(1), ENGLAND(2)"
+230 INPUT"OR FRANCE(3)";M\IF M>0 AND M<4 THEN 235 ELSE PRINT "WHAT??"\GOTO 220
+235 PRINT\ON M GOTO 250,260,270
+250 PRINT "YOU'RE NEARING STALINGRAD....."\GOTO 280
+260 PRINT "NEARING LONDON. BE CAREFUL, THEY'VE GOT A GOOD AIR-RAID DEFENCE."
+265 GOTO 280
+270 PRINT "NEARING VERSAILLES.  DUCK SOUP.  THEY'RE NEARLY DEFENSELESS."
+280 PRINT
+285 INPUT "HOW MANY MISSIONS HAVE YOU FLOWN";D
+290 IF D<160 THEN 300 ELSE PRINT "MISSIONS, NOT MILES..."
+295 PRINT "150 MISSIONS IS HIGH EVEN FOR OLD-TIMERS.  NOW THEN,"\GOTO 285
+300 PRINT\IF D<100 THEN 310 ELSE PRINT "THAT'S PUSHING THE ODDS!"\GOTO 320
+310 IF D<25 THEN PRINT "FRESH OUT OF TRAINING, EH?"
+320 PRINT\IF D<160*RND THEN 330
+325 PRINT "DIRECT HIT!!!! "INT(100*RND)"KILLED! MISSION SUCCESSFUL."\GOTO 390
+330 PRINT "MISSED TARGET BY"INT(2+30*RND)"MILES!!"
+335 PRINT "NOW YOU'RE REALLY IN FOR IT !!"\PRINT
+340 INPUT "DOES THE ENEMY HAVE GUNS(1), MISSILES(2), OR BOTH(3)";R
+345 IF R>0 AND R<4 THEN 350 ELSE PRINT "TRY AGAIN...."\GOTO 340
+350 PRINT\IF R=2 THEN 360
+355 INPUT "WHAT IS THE PERCENT HIT RATE OF ENEMY GUNNERS (10 TO 50)";S
+358 IF S<10 THEN PRINT "YOU LIE, BUT YOU'LL PAY..."\PRINT\GOTO 380
+360 PRINT\IF R>1 THEN T=35
+365 IF S+T>100*RND THEN 380
+370 PRINT"YOU MADE IT THROUGH TREMENDOUS FLAK!!"\GOTO 390
+380 PRINT "* * * * * BOOM * * * * *"
+384 PRINT "YOU HAVE BEEN SHOT DOWN......."
+386 PRINT "DEARLY BELOVED, WE ARE GATHERED HERE TODAY TO PAY OUR LAST TRIBUTE.."
+390 PRINT\PRINT\PRINT\INPUT "PLAY AGAIN (Y OR N)";U$\IF U$="Y" THEN 10
+400 PRINT "CHICKEN!!!!!"\PRINT\PRINT
+999 END
diff --git a/dec/ROCKT1.BAS b/dec/ROCKT1.BAS
new file mode 100644
index 0000000..71b8f61
--- /dev/null
+++ b/dec/ROCKT1.BAS
@@ -0,0 +1,68 @@
+70 PRINT "LUNAR LANDING SIMULATION"
+80 PRINT "----- ------- ----------"\PRINT
+100 INPUT "DO YOU WANT INSTRUCTIONS (YES OR NO)";A$
+110 IF A$="NO" THEN 390
+160 PRINT
+200 PRINT "YOU ARE LANDING ON THE MOON AND HAVE TAKEN OVER MANUAL"
+210 PRINT "CONTROL 500 FEET ABOVE A GOOD LANDING SPOT.  YOU HAVE A"
+220 PRINT "DOWNWARD VELOCITY OF 50 FT/SEC.  120 UNITS OF FUEL REMAIN."
+225 PRINT
+230 PRINT "HERE ARE THE RULES THAT GOVERN YOUR SPACE VEHICLE:"
+240 PRINT "(1) AFTER EACH SECOND, THE HEIGHT, VELOCITY, AND REMAINING"
+250 PRINT "    FUEL WILL BE REPORTED."
+260 PRINT "(2) AFTER THE REPORT, A '?' WILL BE TYPED.  ENTER THE"
+270 PRINT "    NUMBER OF UNITS OF FUEL YOU WISH TO BURN DURING THE"
+280 PRINT "    NEXT SECOND.  EACH UNIT OF FUEL WILL SLOW YOUR DESCENT"
+290 PRINT "    BY 1 FT/SEC."
+310 PRINT "(3) THE MAXIMUM THRUST OF YOUR ENGINE IS 30 FT/SEC/SEC OR"
+320 PRINT "    30 UNITS OF FUEL PER SECOND."
+330 PRINT "(4) WHEN YOU CONTACT THE LUNAR SURFACE, YOUR DESCENT ENGINE"
+340 PRINT "    WILL AUTOMATICALLY CUT OFF AND YOU WILL BE GIVEN A"
+350 PRINT "    REPORT OF YOUR LANDING SPEED AND REMAINING FUEL."
+360 PRINT "(5) IF YOU RUN OUT OF FUEL, THE '?' WILL NO LONGER APPEAR,"
+370 PRINT "    BUT YOUR SECOND BY SECOND REPORT WILL CONTINUE UNTIL"
+380 PRINT "    YOU CONTACT THE LUNAR SURFACE."\PRINT
+390 PRINT "BEGINNING LANDING PROCEDURE....."\PRINT
+400 PRINT "G O O D   L U C K ! ! !"
+420 PRINT\PRINT
+430 PRINT "SEC  FEET   SPEED    FUEL      PLOT OF DISTANCE"
+450 PRINT
+455 T=0\H=500\V=50\F=120
+490 PRINT T;TAB(4);H;TAB(12);V;TAB(20);F;TAB(29);"I";TAB(H/12+29);"*"
+500 INPUT B
+510 IF B<0 THEN 650
+520 IF B>30 THEN B=30
+530 IF B>F THEN B=F
+540 V1=V-B+5
+560 F=F-B
+570 H=H-.5*(V+V1)
+580 IF H<=0 THEN 670
+590 T=T+1
+600 V=V1
+610 IF F>0 THEN 490
+615 IF B=0 THEN 640
+620 PRINT "*** OUT OF FUEL ***"
+640 PRINT T;TAB(4);H;TAB(12);V;TAB(20);F;TAB(29);"I";TAB(H/12+29);"*"
+650 B=0
+660 GOTO 540
+670 PRINT "*** CONTACT ***"
+680 H=H+.5*(V+V1)
+690 IF B=5 THEN 720
+700 D=(-V+SQR(V*V+H*(10-2*B)))/(5-B)
+710 GOTO 730
+720 D=H/V
+730 V1=V+(5-B)*D
+760 PRINT "TOUCHDOWN AT";T+D;"SECONDS."
+770 PRINT "LANDING VELOCITY =";V1;"FT/SEC"
+780 PRINT F;"UNITS OF FUEL REMAINING."
+790 IF V1<>0 THEN 810
+800 PRINT "CONGRATULATIONS!!    A PERFECT LANDING!"
+805 PRINT "YOUR LICENSE WILL BE RENEWED.......LATER."
+810 IF ABS(V1)<2 THEN 840
+820 PRINT "***** SORRY, BUT YOU BLEW IT!!!!"
+830 PRINT "APPROPRIATE CONDOLENCES WILL BE SENT TO YOUR NEXT OF KIN."
+840 PRINT\PRINT\PRINT
+850 INPUT "ANOTHER MISSION";A$
+860 IF A$="YES" THEN 390
+870 PRINT\PRINT "CONTROL OUT."\PRINT
+999 END
diff --git a/dec/SALVO1.BAS b/dec/SALVO1.BAS
new file mode 100644
index 0000000..f3ad13a
--- /dev/null
+++ b/dec/SALVO1.BAS
@@ -0,0 +1,91 @@
+100 PRINT "YOU ARE ON A BATTLEFIELD WITH 4 PLATOONS AND YOU"
+110 PRINT "HAVE 25 OUTPOSTS AVAILABLE WHERE THEY MAY BE PLACED."
+120 PRINT "YOU CAN ONLY PLACE ONE PLATOON AT ANY  ONE OUTPOST."
+130 PRINT "THE COMPUTER DOES THE SAME WITH ITS FOUR PLATOONS."
+135 PRINT
+140 PRINT "THE OBJECT OF THE GAME IS TO FIRE MISSLES AT THE"
+150 PRINT "OUTPOSTS OF THE COMPUTER.  IT WILL DO THE SAME TO YOU."
+160 PRINT "THE ONE WHO DESTROYS ALL FOUR OF THE ENEMY'S PLATOONS "
+170 PRINT "FIRST IS THE WINNER."
+180  PRINT
+190 PRINT "GOOD LUCK... AND TELL US WHERE YOU WANT THE BODIES SENT!"
+200 PRINT
+210 PRINT"TEAR OFF THE MATRIX AND USE IT TO CHECK OFF THE NUMBERS."
+220 FOR R=1 TO 5\PRINT\NEXT R
+250 RANDOMIZE
+260 DIM M(100)
+270 FOR R=1 TO 5
+280 I=(R-1)*5+1
+290 PRINT I,I+1,I+2,I+3,I+4
+300 NEXT R
+350 FOR R=1 TO 10\PRINT\NEXT R
+380 LET C = INT(RND(N) * 25) + 1
+390 D = INT(RND(N) * 25) + 1
+400 E = INT(RND(N) *25) +1
+410 F = INT(RND(N) * 25) + 1
+420 IF C = D THEN 390
+430 IF C = E THEN 400
+440 IF C = F THEN 410
+450 IF D = E THEN 400
+460 IF D = F THEN 410
+470 IF E = F THEN 410
+480 PRINT "WHAT ARE YOUR FOUR POSITIONS";
+490 INPUT G,H,K,L
+495 PRINT
+500 PRINT "WHERE DO YOU WISH TO FIRE YOUR MISSLE";
+510 INPUT Y
+520IF Y = C THEN 710
+530 IF Y = D THEN 710
+540 IF Y = E THEN 710
+550 IF Y = F THEN 710
+560 GOTO 630
+570 M = INT(RND(N) * 25) + 1
+575 GOTO 1160
+580 IF X = G THEN 920
+590 IF X = H THEN 920
+600 IF X = L THEN 920
+610 IF X = K THEN 920
+620 GOTO 670
+630 PRINT" HA,HA YOU MISSED. MY TURN NOW"
+640 PRINT\PRINT\GOTO 570
+670 PRINT"I MISSED YOU, YOU DIRTY RAT. I PICKED";M;". YOUR TURN."
+680 PRINT\PRINT\GOTO 500
+710 Q = Q +1
+720 IF Q = 4 THEN 890
+730 PRINT "YOU GOT ONE OF MY OUTPOSTS."
+740 IF Q = 1 THEN 770
+750 IF Q = 2 THEN 810
+760 IF Q = 3 THEN 850
+770 PRINT " ONE DOWN THREE TO GO"
+780 PRINT\PRINT\GOTO 570
+810 PRINT " TWO DOWN TWO TO GO"
+820 PRINT\PRINT\GOTO 570
+850 PRINT " THREE DOWN ONE TO GO"
+860 PRINT\PRINT\GOTO 570
+890 PRINT " YOU GOT ME,I'M GOING FAST. BUT I'LL GET YOU WHEN "
+900 PRINT " Y TRANSISTORS $ECUPERA E"
+910 GOTO 1235
+920 Z=Z+1
+930 IF Z=4 THEN 1110
+940 PRINT "I GOT YOU.  IT WON'T BE LONG NOW. POST"X"WAS HIT."
+950 IF Z=1 THEN 990
+960 IF Z=2 THEN 1030
+970 IF Z=3 THEN 1070
+990 PRINT "YOU HAVE ONLY THREE OUTPOSTS LEFT"
+1000 PRINT\PRINT\GOTO 500
+1030 PRINT "YOU HAVE ONLY TWO OUTPOSTS LEFT"
+1040  PRINT\PRINT\GOTO 500
+1070 PRINT "YOU HAVE ONLY ONE OUTPOST LEFT"
+1080 PRINT\PRINT\GOTO 500
+1110 PRINT " YOU'RE DEAD.  YOUR LAST OUTPOST WAS AT"X".  HA, HA, HA!"
+1120 PRINT " BETTER LUCK NEXT TIME."
+1150 GOTO 1235
+1160 P=P+1
+1170 N=P-1
+1180 FOR T = 1 TO N
+1190 IF M = M(T) THEN 570
+1200 NEXT T
+1210 X = M
+1220 M(P) = M
+1230 GOTO 580
+1235 END
diff --git a/port/BOMBER.BAS b/port/BOMBER.BAS
new file mode 100644
index 0000000..f4747b0
--- /dev/null
+++ b/port/BOMBER.BAS
@@ -0,0 +1,65 @@
+   5 RANDOM\PRINT"YOU ARE NOW A PILOT IN A WORLD WAR II BOMBER"
+  10 PRINT "WHAT SIDE -- ITALY(1), ALLIES(2), JAPANESE(3), GERMANY(4)";\INPUT A
+  20 IF A<=0 THEN 22\IF A<5 THEN 25
+  22 PRINT "TRY AGAIN...."\GOTO 10
+  25 ON A GOTO 30,110,200,220
+  30 PRINT "WHAT IS YOUR TARGET -- ALBANIA(1), GREECE(2), NORTH AFRICA(3)";
+  35 INPUT B
+  40 IF B<=0 THEN 42\IF B<4 THEN 45
+  42 PRINT "TRY AGAIN...."\GOTO 30
+  45 PRINT\ONB GOTO 50,80,90
+  50 PRINT"SHOULD BE EASY.YOU'RE FLYING A NAZI-MADE PLANE."
+  60 GOTO 280
+  80 PRINT "BE CAREFUL!!!"\GOTO 280
+  90 PRINT "YOU'RE GOING FOR THE OIL, EH?"\GOTO 280
+ 110 PRINT "AIRCRAFT -- LIBERATOR(1), B-29(2), B-17(3), LANCASTER(4)";\INPUT G
+ 120 IF G<=0 THEN 122\IF G<5 THEN 125
+ 122 PRINT "TRY AGAIN..."\GOTO 110
+ 125 PRINT\ON G GOTO 130,150,170,190
+ 130 PRINT "YOU'VE GOT 2 TONS OF BOMBS FLYING FOR PLOESTI"
+ 140 GOTO 280
+ 150 PRINT "YOU'RE DUMPING THE A-BOMB ON HIROSHIMA."
+ 160 GOTO 280
+ 170 PRINT "YOU'RE CHASING THE BISMARK IN THE NORTH SEA."
+ 180 GOTO 280
+ 190 PRINT "YOU'RE BUSTING A GERMAN HEAVY WATER PLANT IN THE RUHR."
+ 195 GOTO 280
+ 200 PRINT "YOU'RE FLYING A KAMIKAZE (SUICIDE BOMBER) OVER THE USS LEXINGTON."
+ 205 PRINT "YOUR FIRST KAMIKAZE MISSION (Y OR N)";\INPUT F$
+ 207 IF F$<>"N" THEN 210\S=0\GOTO 358
+ 210 PRINT\IF RND(1)>.65 THEN 325\GOTO 380
+ 220 PRINT "A NAZI, EH?  OH WELL. ARE YOU GOING FOR RUSSIA(1), ENGLAND(2)"
+ 230 PRINT"OR FRANCE(3)";\INPUT M
+ 232 IF M<=0 THEN 234\IF M<4 THEN 235
+ 234 PRINT "WHAT??"\GOTO 220
+ 235 PRINT\ON M GOTO 250,260,270
+ 250 PRINT "YOU'RE NEARING STALINGRAD....."\GOTO 280
+ 260 PRINT "NEARING LONDON. BE CAREFUL, THEY'VE GOT A GOOD AIR-RAID DEFENCE."
+ 265 GOTO 280
+ 270 PRINT "NEARING VERSAILLES.  DUCK SOUP.  THEY'RE NEARLY DEFENSELESS."
+ 280 PRINT
+ 285 PRINT "HOW MANY MISSIONS HAVE YOU FLOWN";\INPUT D
+ 290 IF D<160 THEN 300\PRINT "MISSIONS, NOT MILES..."
+ 295 PRINT "150 MISSIONS IS HIGH EVEN FOR OLD-TIMERS.  NOW THEN,"\GOTO 285
+ 300 PRINT\IF D<100 THEN 310\PRINT "THAT'S PUSHING THE ODDS!"\GOTO 320
+ 310 IF D>=25 THEN 320\PRINT "FRESH OUT OF TRAINING, EH?"
+ 320 PRINT\IF D<160*RND(1) THEN 330
+ 325 PRINT "DIRECT HIT!!!! "INT(100*RND(1))"KILLED! MISSION SUCCESSFUL."
+ 327 GOTO 390
+ 330 PRINT "MISSED TARGET BY"INT(2+30*RND(1))"MILES!!"
+ 335 PRINT "NOW YOU'RE REALLY IN FOR IT !!"\PRINT
+ 340 PRINT "DOES THE ENEMY HAVE GUNS(1), MISSILES(2), OR BOTH(3)";\INPUT R
+ 345 IF R<=0 THEN 347\IF R<4 THEN 350
+ 347 PRINT "TRY AGAIN...."\GOTO 340
+ 350 PRINT\IF R=2 THEN 360
+ 355 PRINT "WHAT IS THE PERCENT HIT RATE OF ENEMY GUNNERS (10 TO 50)";\INPUT S
+ 358 IF S>=10 THEN 360\PRINT "YOU LIE, BUT YOU'LL PAY..."\PRINT\GOTO 380
+ 360 PRINT\IF R<=1 THEN 365\T=35
+ 365 IF S+T>100*RND(1) THEN 380
+ 370 PRINT"YOU MADE IT THROUGH TREMENDOUS FLAK!!"\GOTO 390
+ 380 PRINT "* * * * * BOOM * * * * *"
+ 384 PRINT "YOU HAVE BEEN SHOT DOWN......."
+ 386 PRINT "DEARLY BELOVED, WE ARE GATHERED HERE TODAY TO PAY OUR LAST TRIBUTE.."
+ 390 PRINT\PRINT\PRINT\PRINT "PLAY AGAIN (Y OR N)";\INPUT U$\IF U$="Y" THEN 10
+ 400 PRINT "CHICKEN!!!!!"\PRINT\PRINT
+ 999 END
diff --git a/port/ROCKT1.BAS b/port/ROCKT1.BAS
new file mode 100644
index 0000000..eb5f051
--- /dev/null
+++ b/port/ROCKT1.BAS
@@ -0,0 +1,68 @@
+  70 PRINT "LUNAR LANDING SIMULATION"
+  80 PRINT "----- ------- ----------"\PRINT
+ 100 PRINT "DO YOU WANT INSTRUCTIONS (YES OR NO)";\INPUT A$
+ 110 IF A$="NO" THEN 390
+ 160 PRINT
+ 200 PRINT "YOU ARE LANDING ON THE MOON AND HAVE TAKEN OVER MANUAL"
+ 210 PRINT "CONTROL 500 FEET ABOVE A GOOD LANDING SPOT.  YOU HAVE A"
+ 220 PRINT "DOWNWARD VELOCITY OF 50 FT/SEC.  120 UNITS OF FUEL REMAIN."
+ 225 PRINT
+ 230 PRINT "HERE ARE THE RULES THAT GOVERN YOUR SPACE VEHICLE:"
+ 240 PRINT "(1) AFTER EACH SECOND, THE HEIGHT, VELOCITY, AND REMAINING"
+ 250 PRINT "    FUEL WILL BE REPORTED."
+ 260 PRINT "(2) AFTER THE REPORT, A '?' WILL BE TYPED.  ENTER THE"
+ 270 PRINT "    NUMBER OF UNITS OF FUEL YOU WISH TO BURN DURING THE"
+ 280 PRINT "    NEXT SECOND.  EACH UNIT OF FUEL WILL SLOW YOUR DESCENT"
+ 290 PRINT "    BY 1 FT/SEC."
+ 310 PRINT "(3) THE MAXIMUM THRUST OF YOUR ENGINE IS 30 FT/SEC/SEC OR"
+ 320 PRINT "    30 UNITS OF FUEL PER SECOND."
+ 330 PRINT "(4) WHEN YOU CONTACT THE LUNAR SURFACE, YOUR DESCENT ENGINE"
+ 340 PRINT "    WILL AUTOMATICALLY CUT OFF AND YOU WILL BE GIVEN A"
+ 350 PRINT "    REPORT OF YOUR LANDING SPEED AND REMAINING FUEL."
+ 360 PRINT "(5) IF YOU RUN OUT OF FUEL, THE '?' WILL NO LONGER APPEAR,"
+ 370 PRINT "    BUT YOUR SECOND BY SECOND REPORT WILL CONTINUE UNTIL"
+ 380 PRINT "    YOU CONTACT THE LUNAR SURFACE."\PRINT
+ 390 PRINT "BEGINNING LANDING PROCEDURE....."\PRINT
+ 400 PRINT "G O O D   L U C K ! ! !"
+ 420 PRINT\PRINT
+ 430 PRINT "SEC  FEET   SPEED    FUEL      PLOT OF DISTANCE"
+ 450 PRINT
+ 455 T=0\H=500\V=50\F=120
+ 490 PRINT T;TAB(4);H;TAB(12);V;TAB(20);F;TAB(29);"I";TAB(H/12+29);"*"
+ 500 INPUT B
+ 510 IF B<0 THEN 650
+ 520 IF B<=30 THEN 530\B=30
+ 530 IF B<=F THEN 540\B=F
+ 540 V1=V-B+5
+ 560 F=F-B
+ 570 H=H-.5*(V+V1)
+ 580 IF H<=0 THEN 670
+ 590 T=T+1
+ 600 V=V1
+ 610 IF F>0 THEN 490
+ 615 IF B=0 THEN 640
+ 620 PRINT "*** OUT OF FUEL ***"
+ 640 PRINT T;TAB(4);H;TAB(12);V;TAB(20);F;TAB(29);"I";TAB(H/12+29);"*"
+ 650 B=0
+ 660 GOTO 540
+ 670 PRINT "*** CONTACT ***"
+ 680 H=H+.5*(V+V1)
+ 690 IF B=5 THEN 720
+ 700 D=(-V+SQR(V*V+H*(10-2*B)))/(5-B)
+ 710 GOTO 730
+ 720 D=H/V
+ 730 V1=V+(5-B)*D
+ 760 PRINT "TOUCHDOWN AT";T+D;"SECONDS."
+ 770 PRINT "LANDING VELOCITY =";V1;"FT/SEC"
+ 780 PRINT F;"UNITS OF FUEL REMAINING."
+ 790 IF V1<>0 THEN 810
+ 800 PRINT "CONGRATULATIONS!!    A PERFECT LANDING!"
+ 805 PRINT "YOUR LICENSE WILL BE RENEWED.......LATER."
+ 810 IF ABS(V1)<2 THEN 840
+ 820 PRINT "***** SORRY, BUT YOU BLEW IT!!!!"
+ 830 PRINT "APPROPRIATE CONDOLENCES WILL BE SENT TO YOUR NEXT OF KIN."
+ 840 PRINT\PRINT\PRINT
+ 850 PRINT "ANOTHER MISSION";\INPUT A$
+ 860 IF A$="YES" THEN 390
+ 870 PRINT\PRINT "CONTROL OUT."\PRINT
+ 999 END
diff --git a/port/SALVO1.BAS b/port/SALVO1.BAS
new file mode 100644
index 0000000..c2a2bfc
--- /dev/null
+++ b/port/SALVO1.BAS
@@ -0,0 +1,91 @@
+ 100 PRINT "YOU ARE ON A BATTLEFIELD WITH 4 PLATOONS AND YOU"
+ 110 PRINT "HAVE 25 OUTPOSTS AVAILABLE WHERE THEY MAY BE PLACED."
+ 120 PRINT "YOU CAN ONLY PLACE ONE PLATOON AT ANY  ONE OUTPOST."
+ 130 PRINT "THE COMPUTER DOES THE SAME WITH ITS FOUR PLATOONS."
+ 135 PRINT
+ 140 PRINT "THE OBJECT OF THE GAME IS TO FIRE MISSLES AT THE"
+ 150 PRINT "OUTPOSTS OF THE COMPUTER.  IT WILL DO THE SAME TO YOU."
+ 160 PRINT "THE ONE WHO DESTROYS ALL FOUR OF THE ENEMY'S PLATOONS "
+ 170 PRINT "FIRST IS THE WINNER."
+ 180  PRINT
+ 190 PRINT "GOOD LUCK... AND TELL US WHERE YOU WANT THE BODIES SENT!"
+ 200 PRINT
+ 210 PRINT"TEAR OFF THE MATRIX AND USE IT TO CHECK OFF THE NUMBERS."
+ 220 FOR R=1 TO 5\PRINT\NEXT R
+ 250 RANDOMIZE
+ 260 DIM M(100)
+ 270 FOR R=1 TO 5
+ 280 I=(R-1)*5+1
+ 290 PRINT I,I+1,I+2,I+3,I+4
+ 300 NEXT R
+ 350 FOR R=1 TO 10\PRINT\NEXT R
+ 380 LET C = INT(RND(N) * 25) + 1
+ 390 D = INT(RND(N) * 25) + 1
+ 400 E = INT(RND(N) *25) +1
+ 410 F = INT(RND(N) * 25) + 1
+ 420 IF C = D THEN 390
+ 430 IF C = E THEN 400
+ 440 IF C = F THEN 410
+ 450 IF D = E THEN 400
+ 460 IF D = F THEN 410
+ 470 IF E = F THEN 410
+ 480 PRINT "WHAT ARE YOUR FOUR POSITIONS";
+ 490 INPUT G,H,K,L
+ 495 PRINT
+ 500 PRINT "WHERE DO YOU WISH TO FIRE YOUR MISSLE";
+ 510 INPUT Y
+ 520IF Y = C THEN 710
+ 530 IF Y = D THEN 710
+ 540 IF Y = E THEN 710
+ 550 IF Y = F THEN 710
+ 560 GOTO 630
+ 570 M = INT(RND(N) * 25) + 1
+ 575 GOTO 1160
+ 580 IF X = G THEN 920
+ 590 IF X = H THEN 920
+ 600 IF X = L THEN 920
+ 610 IF X = K THEN 920
+ 620 GOTO 670
+ 630 PRINT" HA,HA YOU MISSED. MY TURN NOW"
+ 640 PRINT\PRINT\GOTO 570
+ 670 PRINT"I MISSED YOU, YOU DIRTY RAT. I PICKED";M;". YOUR TURN."
+ 680 PRINT\PRINT\GOTO 500
+ 710 Q = Q +1
+ 720 IF Q = 4 THEN 890
+ 730 PRINT "YOU GOT ONE OF MY OUTPOSTS."
+ 740 IF Q = 1 THEN 770
+ 750 IF Q = 2 THEN 810
+ 760 IF Q = 3 THEN 850
+ 770 PRINT " ONE DOWN THREE TO GO"
+ 780 PRINT\PRINT\GOTO 570
+ 810 PRINT " TWO DOWN TWO TO GO"
+ 820 PRINT\PRINT\GOTO 570
+ 850 PRINT " THREE DOWN ONE TO GO"
+ 860 PRINT\PRINT\GOTO 570
+ 890 PRINT " YOU GOT ME,I'M GOING FAST. BUT I'LL GET YOU WHEN "
+ 900 PRINT " Y TRANSISTORS $ECUPERA E"
+ 910 GOTO 1235
+ 920 Z=Z+1
+ 930 IF Z=4 THEN 1110
+ 940 PRINT "I GOT YOU.  IT WON'T BE LONG NOW. POST"X"WAS HIT."
+ 950 IF Z=1 THEN 990
+ 960 IF Z=2 THEN 1030
+ 970 IF Z=3 THEN 1070
+ 990 PRINT "YOU HAVE ONLY THREE OUTPOSTS LEFT"
+1000 PRINT\PRINT\GOTO 500
+1030 PRINT "YOU HAVE ONLY TWO OUTPOSTS LEFT"
+1040  PRINT\PRINT\GOTO 500
+1070 PRINT "YOU HAVE ONLY ONE OUTPOST LEFT"
+1080 PRINT\PRINT\GOTO 500
+1110 PRINT " YOU'RE DEAD.  YOUR LAST OUTPOST WAS AT"X".  HA, HA, HA!"
+1120 PRINT " BETTER LUCK NEXT TIME."
+1150 GOTO 1235
+1160 P=P+1
+1170 N=P-1
+1180 FOR T = 1 TO N
+1190 IF M = M(T) THEN 570
+1200 NEXT T
+1210 X = M
+1220 M(P) = M
+1230 GOTO 580
+1235 END