mirror of
https://github.com/rfivet/BCG101.git
synced 2024-12-20 17:16:23 -05:00
Add BOAT, KING and UGLY.
This commit is contained in:
parent
2cb68b17a9
commit
4400fe76cc
114
dec/BOAT.BAS
Normal file
114
dec/BOAT.BAS
Normal file
@ -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<Y2 THEN 810
|
||||
450 GOTO 470
|
||||
453 IF Y9<Y2 THEN 810
|
||||
460 GOTO 850
|
||||
470 IF Y9>=Y3 THEN 490
|
||||
480 GOTO 890
|
||||
490 IF Y9<Y4 THEN 930
|
||||
520 PRINT "YOU MISSED!"
|
||||
530 RANDOMIZE
|
||||
540 LET Y9=RND(0)
|
||||
550 LET W=10000*Y9
|
||||
560 PRINT "THE SHOT FIRED FROM THE GUN BOAT TO THE SUBMARINE"
|
||||
570 PRINT "WAS WITHIN ";ABS(W-S)*2/1000;" YARDS......."
|
||||
580 IF ABS(W-S)>=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
|
||||
287
dec/KING.BAS
Normal file
287
dec/KING.BAS
Normal file
@ -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 I<A THEN 400
|
||||
360 IF I=A THEN 380
|
||||
370 PRINT " THINK AGAIN. YOU'VE ONLY";A;" RALLODS IN THE TREASURY"
|
||||
375 GOTO 320
|
||||
380 LET J=0
|
||||
390 LET K=0
|
||||
395 LET A=0
|
||||
399 GOTO 1000
|
||||
400 LET A=INT(A-I)
|
||||
410 PRINT "HOW MANY SQ. MILES DO YOU WISH TO PLANT";
|
||||
420 INPUT J
|
||||
421 IF J<0 THEN 410
|
||||
422 IF J<=B*2 THEN 426
|
||||
423 PRINT " SORRY, BUT EACH COUNTRYMAN CAN ONLY PLANT 2 SQ. MILES"
|
||||
424 GOTO 410
|
||||
426 IF J<=D-1000 THEN 430
|
||||
427 PRINT " SORRY, BUT YOU'VE ONLY";D-1000;"SQ. MILES OF FARM LAND"
|
||||
428 GOTO 410
|
||||
430 LET U1=INT(J*V9)
|
||||
435 IF U1<A THEN 500
|
||||
440 IF U1=A THEN 490
|
||||
450 PRINT " THINK AGAIN. YOU'VE ONLY";A;"RALLODS LEFT IN THE TREASURY"
|
||||
460 GOTO 410
|
||||
490 LET K=0
|
||||
495 LET A=0
|
||||
499 GOTO 1000
|
||||
500 LET A=A-U1
|
||||
505 IF D=2000 THEN 1000
|
||||
510 PRINT "HOW MANY RALLODS DO YOU WISH TO SPEND ON POLLUTION CONTROL";
|
||||
520 INPUT K
|
||||
522 IF K<0 THEN 510
|
||||
530 IF K<=A THEN 1000
|
||||
540 PRINT " THINK AGAIN. YOU'VE ONLY";A;"RALLODS REMAINING"
|
||||
550 GOTO 510
|
||||
600 IF H<>0 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
|
||||
98
dec/UGLY.BAS
Normal file
98
dec/UGLY.BAS
Normal file
@ -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<A THEN 6
|
||||
395 FOR X=1 TO 48
|
||||
400 PRINT "UGLY! ";
|
||||
405 NEXT X
|
||||
407 PRINT\PRINT
|
||||
410 GOTO 6
|
||||
415 END
|
||||
112
port/BOAT.BAS
Normal file
112
port/BOAT.BAS
Normal file
@ -0,0 +1,112 @@
|
||||
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 520
|
||||
431 IF Y9>Y5 THEN 520
|
||||
432 GOSUB 710
|
||||
435 IF Y9<Y2 THEN 810
|
||||
440 IF Y9<Y3 THEN 850
|
||||
450 IF Y9<Y4 THEN 890
|
||||
490 GOTO 930
|
||||
520 PRINT "YOU MISSED!"
|
||||
530 RANDOMIZE
|
||||
540 LET Y9=RND(0)
|
||||
550 LET W=10000*Y9
|
||||
560 PRINT "THE SHOT FIRED FROM THE GUN BOAT TO THE SUBMARINE"
|
||||
570 PRINT "WAS WITHIN ";ABS(W-S)*2/1000;" YARDS......."
|
||||
580 IF ABS(W-S)>=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
|
||||
98
port/UGLY.BAS
Normal file
98
port/UGLY.BAS
Normal file
@ -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<A THEN 6
|
||||
395 FOR X=1 TO 48
|
||||
400 PRINT "UGLY! ";
|
||||
405 NEXT X
|
||||
407 PRINT\PRINT
|
||||
410 GOTO 6
|
||||
415 END
|
||||
Loading…
Reference in New Issue
Block a user