diff --git a/dec/BOAT.BAS b/dec/BOAT.BAS new file mode 100644 index 0000000..2861d36 --- /dev/null +++ b/dec/BOAT.BAS @@ -0,0 +1,114 @@ + 5 PRINT "THIS IS THE GAME OF WAR BETWEEN A SUBMARINE AND A" + 10 PRINT "NAVAL GUN BOAT. WOULD YOU LIKE INSTRUCTIONS"; + 11 INPUT X$ + 12 IF X$="NO" THEN 100 + 13 PRINT "YOU ARE THE CAPTAIN OF THE SUBMARINE AND THE" + 14 PRINT "COMPUTER IS THE CAPTAIN OF THE GUN BOAT." + 20 PRINT "THE SPEED OF THE GUN BOAT WILL BE GIVEN AT THE BEGINNING OF" + 25 PRINT "THE GAME AND YOU HAVE TO HIT THE GUN BOAT TWICE" + 30 PRINT "IN AT LEAST TWO VULNERABLE PLACES, OR ONCE IN A " + 35 PRINT "VULNERABLE PLACE AND TWICE IN ANY OTHER PART OF THE" + 40 PRINT "HULL OF THE GUN BOAT. BUT IF YOU MISS ANY ONE TIME THE" + 45 PRINT "GUN BOAT WILL OPEN FIRE ON YOU UNTIL IT SINKS YOU OR YOU" + 50 PRINT "SINK THE GUN BOAT! YOU WILL BE ALLOWED TO TAKE TURNS FIRE-" + 55 PRINT "ING AT THE GUN BOAT ......GOOD LUCK , MEIN FURHER!!!!!!!!!" + 100 A=0 + 110 B=0 + 120 RANDOMIZE + 130 FOR I=1 TO 5 + 140 LET R=100*RND(0) + 170 IF R>=10 THEN 190 + 180 NEXT I + 190 IF R<=40 THEN 210 + 200 GOTO 130 + 210 PRINT "THE SPEED OF THE GUN BOAT IS NOW ";R;" KNOTS" + 220 RANDOMIZE + 230 FOR F=1 TO 5 + 240 LET S=10000*RND(0) + 270 IF S>=1000 THEN 290 + 280 NEXT F + 290 IF S<=10000 THEN 310 + 300 GOTO 230 + 310 PRINT "THE RANGE FROM THE GUN BOAT TO THE SUBMARINE IS" + 320 PRINT "NOW ";S;" YARDS." + 330 LET Z=ATN(50/R) + 340 LET D3=Z*(180/3.14159) + 345 PRINT "THE APPROXIMATE ANGLE YOU SHOULD FIRE YOUR TORPEDO IS" + 346 PRINT "BETWEEN ";INT(D3-2);" AND ";INT(D3+2);" DEGREES." + 350 INPUT D + 351 LET T=D*3.14159/180 + 360 LET R8=S/COS(Z) + 370 LET Y3=R8*SIN(Z) + 380 LET Y9=R8*SIN(T) + 390 LET Y2=Y3-20 + 400 LET Y0=Y3-40 + 410 LET Y4=Y3+20 + 420 LET Y5=Y3+40 + 430 IF Y9>=Y0 THEN 710 + 432 GOTO 520 + 435 IF Y9=Y3 THEN 490 + 480 GOTO 890 + 490 IF Y9=2000 GOTO 120 + 590 PRINT "YOU ARE SUNK MEIN FRIEND!" + 595 GOTO 1900 + 610 PRINT + 612 PRINT + 613 PRINT "********* YOU MADE A VUL?N?ERABLE STRIKE! *************" + 620 A=A+1 + 630 IF A>=2 GOTO 700 + 640 GOTO 120 + 650 PRINT + 651 PRINT + 652 PRINT "********* YOU DAMAGED THE GUN BOAT! *************" + 660 B=B+1 + 670 IF B>=3 GOTO 700 + 680 IF A+B>=3 THEN 700 + 690 GO TO 120 + 700 PRINT "I AM SUNK!........GOOD BYE CRUEL WORLD....(GLUB..GLUB..)" + 705 GOTO 1800 + 710 PRINT " ********* **+ !" + 720 PRINT " ********* ***+*+* !" + 730 PRINT " HHH !" + 740 PRINT " UUU ! +++++]" + 750 PRINT " \\\\===0=0=0" + 760 PRINT " L---------I" + 770 PRINT " --/DR IIIIIIIIII /DD\--" + 780 PRINT " [=======================]" + 790 PRINT " ----/DDDR /HHHHH O O O O O HHHH\ /PDDD\----" + 800 GO TO 435 + 810 PRINT " EEEEEEEEEEE\.................../EEEEEEEEEEEEEEEEEEEE/" + 820PRINT" EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE O EEEEEEEEE/" + 830PRINT" * EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE/" + 840 GO TO 610 + 850PRINT"\EEEEEEEEEEEEEEEEEEEEEEE\.................../EEEEEEEEEEEEEEEEE/" + 860PRINT" EEEEEEEEEEE EEEEEEEEEEEEEEEEEEEEEEEEEE 0 EEEEEE/" + 870PRINT" \EEEEEE * EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE/" + 880 GO TO 650 + 890PRINT"\EEEEEEEEEEEEEEEEEEEEEEEE.................../EEEEEEEEEEEEEEEEE/" + 900PRINT" EEEEEEEEEEEEEEEEEE EEEEE O EEEEE/" + 910PRINT" \EEEEEEEEEEEEEE EEEEEEEEEEEEEEEE/" + 920 GO TO 610 + 930PRINT"\EEEEEEEEEEEEEEEEEEEEEEEE................../EEEEEEEEEEEEEEEEEE/" + 950PRINT" EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE" + 960PRINT" \EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE *" + 970 GO TO 650 +1800 PRINT " /!" +1801 PRINT " //HH!" +1802 PRINT " X> T/HHHH!" +1803 PRINT " *******************************" +1804 PRINT +1900 PRINT "WOULD YOU LIKE TO TRY AGAIN"; +1901 INPUT Z$ +1902 IF Z$="YES" THEN 5 +2000 END diff --git a/dec/KING.BAS b/dec/KING.BAS new file mode 100644 index 0000000..d0fe67f --- /dev/null +++ b/dec/KING.BAS @@ -0,0 +1,287 @@ +1 REM JIM STORER +2 PRINT "HOW MANY TIMES HAVE YOU PLAYED"; +3 INPUT Z +5 LET N5=8 +6 RANDOMIZE +12 IF Z=500 THEN 47 +14 IF Z=1000 THEN 1960 +17 FOR Y1=1 TO 10 +18 PRINT +19 NEXT Y1 +20 PRINT "CONGRATULATIONS! YOU'VE BEEN ELECTED PREMIER OF SETATS DETINU," +22 PRINT "A SMALL COMMUNIST ISLAND 30 BY 70 MILES LONG. YOUR JOB IS TO" +24 PRINT "DECIDE UPON THE CONTRY'S BUDGET AND DISTRIBUTE MONEY TO YOUR" +26 PRINT "COUNTRYMEN FROM THE COMMUNAL TREASURY."; +27 IF Z<>0 THEN 47 +28 PRINT " THE MONEY SYSTEM IS RALLODS," +30 PRINT "AND EACH PERSON NEEDS 100 RALLODS PER YEAR TO SURVIVE." +32 PRINT "YOUR COUNTRY'S INCOME COMES FROM FARM PRODUCE AND TOURISTS" +34 PRINT "VISITING YOUR MAGNIFICENT FORESTS, HUNTING, FISHING, ETC. HALF" +36 PRINT "YOUR LAND IS FARM LAND WHICH ALSO HAS AN EXCELLENT MINERAL" +38 PRINT "CONTENT AND MAY BE SOLD TO FOREIGN INDUSTRY (STRIP MINING)" +39 PRINT "WHO IMPORT AND SUPPORT THEIR OWN WORKERS. CROPS COST BETWEEN" +40 PRINT "10 AND 15 RALLODS PER SQU. MILE TO PLANT." +42 PRINT "YOUR GOAL IS TO COMPLETE YOUR";N5;"YEAR TERM OF OFFICE."; +44 PRINT " GOOD LUCK!" +47 FOR Y1=1 TO 4 +48 PRINT +49 NEXT Y1 +50 LET A=INT(60000+(RND(1)*1000)-(RND(1)*1000)) +55 LET B=INT(500+(RND(1)*10)-(RND(1)*10)) +65 LET D=2000 +100 LET W=INT(RND(1)*10+95) +101 FOR Y1=1 TO 8 +102 PRINT +103 NEXT Y1 +105 PRINT "YOU NOW HAVE ";A;"RALLODS IN THE TREASURY." +110 PRINT INT(B);"COUNTRYMEN,"; +115 LET V9=INT(((RND(1)/2)*10+10)) +120 IF C=0 THEN 140 +130 PRINT INT(C);"FOREIGN WORKERS,"; +140 PRINT " AND";INT(D);"SQ. MILES OF LAND." +150 PRINT"THIS YEAR INDUSTRY WILL BUY LAND FOR";W;"RALLODS PER SQ. MILE." +155 PRINT "LAND CURRENTLY COSTS";V9;"RALLODS PER SQ. MILE TO PLANT." +160 FOR Y1=1 TO 3 +162 PRINT +164 NEXT Y1 +200 PRINT "HOW MANY SQ. MILES DO YOU WISH TO SELL TO INDUSTRY"; +210 INPUT H +215 IF H<0 THEN 200 +220 IF H<=D-1000 THEN 300 +230 PRINT " THINK AGAIN. YOU'VE ONLY";D-1000;"SQUARE MILES OF FARM LAND" +240 IF X <> 0 THEN 200 +250 PRINT "(FOREIGN INDUSTRY WILL ONLY BUY FARM LAND BECAUSE FOREST" +260 PRINT "LAND IS UNECONOMICAL TO STRIP MINE DUE TO TREES," +270 PRINT "THICKER TOP SOIL, ETC.)" +280 LET X=1 +299 GOTO 200 +300 LET D=INT(D-H) +310 LET A=INT(A+(H*W)) +320 PRINT "HOW MANY RALLODS DO YOU WISH TO DISTRIBUTE TO YOUR COUNTRYMEN"; +340 INPUT I +342 IF I<0 THEN 320 +350 IF I0 THEN 1002 +602 IF I<>0 THEN 1002 +604 IF J<>0 THEN 1002 +606 IF K<>0 THEN 1002 +608 FOR Y1=1 TO 5 +609 PRINT +610 NEXT Y1 +612 PRINT "GOODBYE." +614 PRINT "(IF YOU WISH TO CONTINUE THIS GAME AT A LATER DATE, ANSWER " +616 PRINT "1000 FOR HOW MANY TIMES YOU'VE PLAYED, AT BEGINNING OF NEXT "; +617 PRINT "GAME.)" +618 GOTO 1590 +1000 GOTO 600 +1002 FOR Y1=1 TO 3 +1003 PRINT +1004 NEXT Y1 +1010 LET A=INT(A-K) +1020 LET A4=A +1100 IF INT(I/100-B)>=0 THEN 1120 +1105 IF I/100<50 THEN 1700 +1110 PRINT INT(B-(I/100));"COUNTRYMEN DIED OF STARVATION" +1120 LET F1=INT(RND(1)*(2000-D)) +1122 IF K<25 THEN 1130 +1125 LET F1=INT(F1/(K/25)) +1130 IF F1<=0 THEN 1150 +1140 PRINT F1;"COUNTRYMEN DIED OF CARBON-MONOXIDE AND DUST INHALATION" +1150 IF INT((I/100)-B)<0 THEN 1170 +1160 IF F1>0 THEN 1180 +1165 GOTO 1200 +1170 PRINT " YOU WERE FORCED TO SPEND";INT((F1+(B-(I/100)))*9); +1172 PRINT "RALLODS ON FUNERAL EXPENSES." +1174 LET B5=INT(F1+(B-(I/100))) +1175 LET A=INT(A-((F1+(B-(I/100)))*9)) +1176 GOTO 1185 +1180 PRINT " YOU WERE FORCED TO SPEND";INT(F1*9);"RALLODS ON "; +1181 PRINT "FUNERAL EXPENSES." +1182 LET B5=F1 +1183 LET A=INT(A-(F1*9)) +1185 IF A>=0 THEN 1194 +1187 PRINT " INSUFFICIENT RESERVES TO COVER COST -LAND WAS SOLD" +1189 LET D=INT(D+(A/W)) +1190 LET A=0 +1194 LET B=INT(B-B5) +1200 IF H=0 THEN 1250 +1220 LET C1=INT(H+(RND(1)*10)-(RND(1)*20)) +1224 IF C>0 THEN 1230 +1226 LET C1=C1+20 +1230 PRINT C1;"WORKERS CAME TO THE COUNTRY AND"; +1250 LET P1=INT(((I/100-B)/10)+(K/25)-((2000-D)/50)-(F1/2)) +1255 PRINT ABS(P1);"COUNTRYMEN "; +1260 IF P1<0 THEN 1275 +1265 PRINT "CAME TO"; +1270 GOTO 1280 +1275 PRINT "LEFT"; +1280 PRINT " THE ISLAND." +1290 LET B=INT(B+P1) +1292 LET C=INT(C+C1) +1305 LET U2=INT(((2000-D)*((RND(1)+1.5)/2))) +1310 IF C=0 THEN 1324 +1320 PRINT " OF";INT(J);"SQ. MILES PLANTED,"; +1324 IF J>U2 THEN 1330 +1326 LET U2=J +1330 PRINT " YOU HARVESTED";INT(J-U2);"SQ. MILES OF CROPS." +1340 IF U2=0 THEN 1370 +1344 IF T1>=2 THEN 1370 +1350 PRINT " (DUE TO "; +1355 IF T1=0 THEN 1365 +1360 PRINT "INCREASED "; +1365 PRINT "AIR AND WATER POLLUTION FROM FOREIGN INDUSTRY.)" +1367 LET T1=T1+1 +1370 LET Q=INT((J-U2)*(W/2)) +1380 PRINT " MAKING";INT(Q);"RALLODS." +1390 LET A=INT(A+Q) +1400 LET V1=INT(((B-P1)*22)+(RND(1)*500)) +1405 LET V2=INT((2000-D)*15) +1410 PRINT " YOU MADE";ABS(INT(V1-V2));"RALLODS FROM TOURIST TRADE." +1420 IF V2=0 THEN 1450 +1425 IF V1-V2>=V3 THEN 1450 +1430 PRINT " DECREASE BECAUSE "; +1435 LET G1=RND(1)*10 +1440 IF G1<=2 THEN 1460 +1442 IF G1<=4 THEN 1465 +1444 IF G1<=6 THEN 1470 +1446 IF G1<=8 THEN 1475 +1448 IF G1<=10 THEN 1480 +1450 LET V3=INT(V1-V2) +1451 LET A=INT(A+V3) +1452 GOTO 1500 +1460 PRINT "FISH POPULATION HAS DWINDLED DUE TO WATER POLLUTION." +1462 GOTO 1450 +1465 PRINT "AIR POLLUTION IS KILLING GAME BIRD POPULATION." +1467 GOTO 1450 +1470 PRINT "MINERAL BATHS ARE BEING RUINED BY WATER POLLUTION." +1472 GOTO 1450 +1475 PRINT "UNPLEASANT SMOG IS DISCOURAGING SUN BATHERS." +1477 GOTO 1450 +1480 PRINT "HOTELS ARE LOOKING SHABBY DUE TO SMOG GRIT." +1482 GOTO 1450 +1500 IF B5>200 THEN 1600 +1505 IF B<343 THEN 1700 +1510 IF (A4/100)>5 THEN 1800 +1515 IF C>B THEN 1550 +1520 IF N5-1=X5 THEN 1900 +1545 GOTO 2000 +1550 FOR Y1=1 TO 8 +1552 PRINT +1555 NEXT Y1 +1560 PRINT "THE NUMBER OF FOREIGN WORKERS HAS EXCEEDED THE NUMBER" +1562 PRINT "OF COUNTRYMEN. AS A MAJORITY, THEY HAVE REVOLTED AND" +1564 PRINT "TAKEN OVER THE COUNTRY." +1570 IF RND(1)<=.5 THEN 1580 +1574 PRINT "YOU HAVE BEEN THROWN OUT OF OFFICE AND ARE NOW" +1576 PRINT "RESIDING IN PRISION." +1578 GOTO 1590 +1580 PRINT "YOU HAVE BEEN ASSASSINATED." +1590 FOR Y1=1 TO 18 +1592 PRINT +1594 NEXT Y1 +1596 STOP +1600 FOR Y1=1 TO 8 +1602 PRINT +1605 NEXT Y1 +1610 PRINT B5;"COUNTRYMEN DIED IN ONE YEAR!!!!!" +1615 PRINT "DUE TO THIS EXTREME MISMANAGEMENT YOU HAVE NOT ONLY" +1620 PRINT "BEEN IMPEACHED AND THROWN OUT OF OFFICE BUT YOU" +1622 LET M6=INT(RND(1)*10) +1625 IF M6<=3 THEN 1670 +1630 IF M6<=6 THEN 1680 +1635 IF M6<=10 THEN 1690 +1670 PRINT "ALSO HAD YOUR LEFT EYE GOUGED OUT." +1672 GOTO 1590 +1680 PRINT "HAVE ALSO GAINED A VERY BAD REPUTATION." +1682 GOTO 1590 +1690 PRINT "HAVE ALSO BEEN DECLARED NATIONAL FINK." +1692 GOTO 1590 +1700 FOR Y1=1 TO 8 +1702 PRINT +1705 NEXT Y1 +1710 PRINT "OVER ONE THIRD OF THE POPULTATION HAS DIED SINCE YOU" +1715 PRINT "WERE ELECTED TO OFFICE. THE PROPLE (REMAINING)" +1720 PRINT "HATE YOUR GUTS." +1730 GOTO 1570 +1800 IF B5-F1<2 THEN 1515 +1805 FOR Y1=1 TO 8 +1807 PRINT +1810 NEXT Y1 +1815 PRINT "MONEY WAS LEFT OVER IN THE TREASURY WHICH YOU DID" +1820 PRINT "NOT SPEND. AS A RESULT, SOME OF YOUR COUNTRYMEN DIED" +1825 PRINT "OF STARVATION. THE PUBLIC IS ENRAGED AND YOU HAVE" +1830 PRINT "BEEN FORCED TO EITHER RESIGN OR COMMIT SUCIDE." +1835 PRINT "THE CHOICE IS YOURS." +1840 PRINT "IF YOU CHOOSE THE LATTER, PLEASE TURN OFF YOUR TTY"; +1845 PRINT " BEFORE PROCEEDING." +1850 GOTO 1590 +1900 FOR Y1=1 TO 8 +1902 PRINT +1905 NEXT Y1 +1920 PRINT "CONGRATULATIONS!!!!!!!!!!!!!!!!" +1925 PRINT "YOU HAVE SUCCESFULLY COMPLETED YOUR";N5;"YEAR TERM" +1930 PRINT "OF OFFICE. YOU WERE, OF COURSE, EXTREMELY LUCKY, BUT NEVER THE" +1935 PRINT "LESS, IT'S QUITE AN ACHIEVEMENT. GOODBY AND GOOD LUCK -YOU'LL" +1940 PRINT "PROBABLY NEED IT IF YOU'RE THE TYPE THAT PLAYS THIS GAME." +1945 PRINT " -FOR FURTHER THRILLS, TRY LANDING ON THE MOON" +1950 GOTO 1590 +1960 PRINT "HOW MANY YEARS HAD YOU BEEN IN OFFICE WHEN INTERRUPTED"; +1961 INPUT X5 +1962 IF X5<0 THEN 1590 +1963 IF X5<8 THEN 1969 +1965 PRINT " COME ON, YOUR TERM IN OFFICE IS ONLY";N5;"YEARS" +1967 GOTO 1960 +1969 PRINT "HOW MUCH DID YOU HAVE IN THE TREASURY"; +1970 INPUT A +1971 IF A<0 THEN 1590 +1975 PRINT "HOW MANY COUNTRYMEN"; +1976 INPUT B +1977 IF B<0 THEN 1590 +1980 PRINT "HOW MANY WORKERS"; +1981 INPUT C +1982 IF C<0 THEN 1590 +1990 PRINT "HOW MANY SQ. MILES OF LAND"; +1991 INPUT D +1992 IF D<0 THEN 1590 +1993 IF D>2000 THEN 1996 +1994 IF D>1000 THEN 100 +1996 PRINT " COME ON, YOU STARTED WITH 1000 SQ. MILES OF FARM LAND" +1997 PRINT " AND 10,000 SQ. MILES OF FOREST LAND" +1998 GOTO 1990 +2000 LET X5=X5+1 +2020 LET B5=0 +2040 GOTO 100 +2046 END diff --git a/dec/UGLY.BAS b/dec/UGLY.BAS new file mode 100644 index 0000000..45aa30a --- /dev/null +++ b/dec/UGLY.BAS @@ -0,0 +1,98 @@ +5 PRINT "PROGRAM 'UGLY'"\PRINT +6 D=1\E=1\F=1\PRINT "DO YOU WANT CHANCE(1), OR SPECIAL(2)"; +7 INPUT G +8 IF G=2 THEN 17 +9 RANDOMIZE +10 A=INT(40*RND)+15 +11 B=INT(40*RND)+10 +12 C=INT(40*RND)+15 +13 PRINT "A="A,"B="B,"C="C +14 PRINT "DO YOU STILL WANT CHANCE -- 1 FOR YES, 2 FOR NO"; +15 INPUT H +16 ON H GOTO 19, 6 +17 PRINT "WHAT ARE YOUR VALUES FOR A, B, AND C"; +18 INPUT A,B,C +19 PRINT\PRINT\PRINT TAB(20)"XXX" +20 PRINT TAB(19)"XXXXX" +25 PRINT TAB(20)"XXX" +30 PRINT TAB(21)"X" +35 PRINT TAB(15)"X"; +40 D=D+1 +45 PRINT "X"; +50 IF D>=A-2 THEN 60 +55 GOTO 40 +60 PRINT "X" +65 PRINT TAB(15)"X"; +70 D=1 +75 D=D+1 +80 PRINT "X"; +85 IF D=A-1 THEN 95 +90 GOTO 75 +95 PRINT "X)." +100 PRINT TAB(15)"X"; +105 D=1 +110 D=D+1 +115 PRINT "X"; +120 IF D>=A-2 THEN 130 +125 GOTO 110 +130 PRINT "X" +135 PRINT TAB(15)"X"; +140 E=E+1 +150 PRINT "X"; +155 IF E=B-1 THEN 165 +160 GOTO 140 +165 PRINT "X" +170 PRINT TAB(15)"X"; +175 E=1 +180 E=E+1 +185 PRINT "X"; +190 IF E=B-1 THEN 205 +200 GOTO 180 +205 PRINT "X" +210 PRINT TAB (15)"X"; +215 E=1 +220 E=E+1 +225 PRINT "X"; +230 IF E=B-1 THEN 240 +235 GOTO 220 +240 PRINT "X" +245 PRINT TAB(15)"X"; +250 F=F+1 +255 PRINT "X"; +260 IF F>=C-2 THEN 270 +265 GOTO 250 +270 PRINT "X" +275 PRINT TAB(15)"X"; +280 F=1 +285 F=F+1 +290 PRINT "X"; +295 IF F=C-1 THEN 305 +300 GOTO 285 +305 PRINT "X" +310 PRINT TAB(15)"X"; +315 F=1 +316 GOTO 320 +317 F=F+3 +320 F=F+1 +325 PRINT "X"; +327 IF F=7 THEN 329 +328 GOTO 331 +329 PRINT "()"; +330 GOTO 317 +331 IF F=C-1 THEN 340 +335 GOTO 320 +340 PRINT "X" +345 PRINT TAB(19)"XX XX" +350 PRINT TAB(18)"XX XX" +355 PRINT TAB(17)"XX XX" +360 PRINT TAB(16)"XX XX" +365 PRINT TAB(15)"XX XX" +370 PRINT TAB(13)"XXXX XXXX" +380 PRINT\PRINT +385 IF B=10 THEN 190 + 180 NEXT I + 190 IF R<=40 THEN 210 + 200 GOTO 130 + 210 PRINT "THE SPEED OF THE GUN BOAT IS NOW ";R;" KNOTS" + 220 RANDOMIZE + 230 FOR F=1 TO 5 + 240 LET S=10000*RND(0) + 270 IF S>=1000 THEN 290 + 280 NEXT F + 290 IF S<=10000 THEN 310 + 300 GOTO 230 + 310 PRINT "THE RANGE FROM THE GUN BOAT TO THE SUBMARINE IS" + 320 PRINT "NOW ";S;" YARDS." + 330 LET Z=ATN(50/R) + 340 LET D3=Z*(180/3.14159) + 345 PRINT "THE APPROXIMATE ANGLE YOU SHOULD FIRE YOUR TORPEDO IS" + 346 PRINT "BETWEEN ";INT(D3-2);" AND ";INT(D3+2);" DEGREES." + 350 INPUT D + 351 LET T=D*3.14159/180 + 360 LET R8=S/COS(Z) + 370 LET Y3=R8*SIN(Z) + 380 LET Y9=R8*SIN(T) + 390 LET Y2=Y3-20 + 400 LET Y0=Y3-40 + 410 LET Y4=Y3+20 + 420 LET Y5=Y3+40 + 430 IF Y9Y5 THEN 520 + 432 GOSUB 710 + 435 IF Y9=2000 GOTO 120 + 590 PRINT "YOU ARE SUNK MEIN FRIEND!" + 595 GOTO 1900 + 610 PRINT + 612 PRINT + 613 PRINT "********* YOU MADE A VUL?N?ERABLE STRIKE! *************" + 620 A=A+1 + 630 IF A>=2 GOTO 700 + 640 GOTO 120 + 650 PRINT + 651 PRINT + 652 PRINT "********* YOU DAMAGED THE GUN BOAT! *************" + 660 B=B+1 + 670 IF B>=3 GOTO 700 + 680 IF A+B>=3 THEN 700 + 690 GO TO 120 + 700 PRINT "I AM SUNK!........GOOD BYE CRUEL WORLD....(GLUB..GLUB..)" + 705 GOTO 1800 + 710 PRINT " ********* **+ !" + 720 PRINT " ********* ***+*+* !" + 730 PRINT " HHH !" + 740 PRINT " UUU ! +++++]" + 750 PRINT " \\\\===0=0=0" + 760 PRINT " L---------I" + 770 PRINT " --/DR IIIIIIIIII /DD\--" + 780 PRINT " [=======================]" + 790 PRINT " ----/DDDR /HHHHH O O O O O HHHH\ /PDDD\----" + 800 RETURN + 810 PRINT " EEEEEEEEEEE\.................../EEEEEEEEEEEEEEEEEEEE/" + 820PRINT" EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE O EEEEEEEEE/" + 830PRINT" * EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE/" + 840 GO TO 610 + 850PRINT"\EEEEEEEEEEEEEEEEEEEEEEE\.................../EEEEEEEEEEEEEEEEE/" + 860PRINT" EEEEEEEEEEE EEEEEEEEEEEEEEEEEEEEEEEEEE 0 EEEEEE/" + 870PRINT" \EEEEEE * EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE/" + 880 GO TO 650 + 890PRINT"\EEEEEEEEEEEEEEEEEEEEEEEE.................../EEEEEEEEEEEEEEEEEE/" + 900PRINT" EEEEEEEEEEEEEEEEE EEEEE O EEEE/" + 910PRINT" \EEEEEEEEEEEEEE EEEEEEEEEEEEEEEE/" + 920 GO TO 610 + 930PRINT"\EEEEEEEEEEEEEEEEEE\......................./EEEEEEEEEEEEEEEEEE/" + 950PRINT" EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE" + 960PRINT" \EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE *" + 970 GO TO 650 +1800 PRINT " /!" +1801 PRINT " //HH!" +1802 PRINT " X> T/HHHH!" +1803 PRINT " *******************************" +1804 PRINT +1900 PRINT "WOULD YOU LIKE TO TRY AGAIN"; +1901 INPUT Z$ +1902 IF Z$="YES" THEN 5 +2000 END diff --git a/port/UGLY.BAS b/port/UGLY.BAS new file mode 100644 index 0000000..d0d40e1 --- /dev/null +++ b/port/UGLY.BAS @@ -0,0 +1,98 @@ + 5 PRINT "PROGRAM 'UGLY'"\PRINT + 6 D=1\E=1\F=1\PRINT "DO YOU WANT CHANCE(1), OR SPECIAL(2)"; + 7 INPUT G + 8 IF G=2 THEN 17 + 9 RANDOMIZE + 10 A=INT(40*RND(1))+15 + 11 B=INT(40*RND(1))+10 + 12 C=INT(40*RND(1))+15 + 13 PRINT "A="A,"B="B,"C="C + 14 PRINT "DO YOU STILL WANT CHANCE -- 1 FOR YES, 2 FOR NO"; + 15 INPUT H + 16 ON H GOTO 19, 6 + 17 PRINT "WHAT ARE YOUR VALUES FOR A, B, AND C"; + 18 INPUT A,B,C + 19 PRINT\PRINT\PRINT TAB(20)"XXX" + 20 PRINT TAB(19)"XXXXX" + 25 PRINT TAB(20)"XXX" + 30 PRINT TAB(21)"X" + 35 PRINT TAB(15)"X"; + 40 D=D+1 + 45 PRINT "X"; + 50 IF D>=A-2 THEN 60 + 55 GOTO 40 + 60 PRINT "X" + 65 PRINT TAB(15)"X"; + 70 D=1 + 75 D=D+1 + 80 PRINT "X"; + 85 IF D=A-1 THEN 95 + 90 GOTO 75 + 95 PRINT "X)." + 100 PRINT TAB(15)"X"; + 105 D=1 + 110 D=D+1 + 115 PRINT "X"; + 120 IF D>=A-2 THEN 130 + 125 GOTO 110 + 130 PRINT "X" + 135 PRINT TAB(15)"X"; + 140 E=E+1 + 150 PRINT "X"; + 155 IF E=B-1 THEN 165 + 160 GOTO 140 + 165 PRINT "X" + 170 PRINT TAB(15)"X"; + 175 E=1 + 180 E=E+1 + 185 PRINT "X"; + 190 IF E=B-1 THEN 205 + 200 GOTO 180 + 205 PRINT "X" + 210 PRINT TAB (15)"X"; + 215 E=1 + 220 E=E+1 + 225 PRINT "X"; + 230 IF E=B-1 THEN 240 + 235 GOTO 220 + 240 PRINT "X" + 245 PRINT TAB(15)"X"; + 250 F=F+1 + 255 PRINT "X"; + 260 IF F>=C-2 THEN 270 + 265 GOTO 250 + 270 PRINT "X" + 275 PRINT TAB(15)"X"; + 280 F=1 + 285 F=F+1 + 290 PRINT "X"; + 295 IF F=C-1 THEN 305 + 300 GOTO 285 + 305 PRINT "X" + 310 PRINT TAB(15)"X"; + 315 F=1 + 316 GOTO 320 + 317 F=F+3 + 320 F=F+1 + 325 PRINT "X"; + 327 IF F=7 THEN 329 + 328 GOTO 331 + 329 PRINT "()"; + 330 GOTO 317 + 331 IF F=C-1 THEN 340 + 335 GOTO 320 + 340 PRINT "X" + 345 PRINT TAB(19)"XX XX" + 350 PRINT TAB(18)"XX XX" + 355 PRINT TAB(17)"XX XX" + 360 PRINT TAB(16)"XX XX" + 365 PRINT TAB(15)"XX XX" + 370 PRINT TAB(13)"XXXX XXXX" + 380 PRINT\PRINT + 385 IF B