10   REM MAFIA.BS5
100  REM ============ LAST MOD.   8/15/77  R.E.H.  
110  PRINT "&K&[&B&F"
120  PRINT TAB(10);"=#=#=#=#=#=#=#=#=#=#="
130  PRINT TAB(10);"#=#   M A F I A   #=#"
140  PRINT TAB(10);"=#=#=#=#=#=#=#=#=#=#=&J&J&J&J&J&J"
180  GOSUB 2200: GOSUB 2250
190  GOSUB 2100: GOSUB 2100: GOSUB 2250
210  GOSUB 2200: GOSUB 2250: GOSUB 2250: GOSUB 2250
220  GOSUB 2200: GOSUB 2200: GOSUB 2250: 
230  GOSUB 2100: GOSUB 2150: GOSUB 2150: GOSUB 2200
260  PRINT "&[&B&J&[&A&A";
270  DATA 0,0,0,0,0,0,0,0
280  READ A,E,F,G,I,R,S,T
290  RESTORE 
300  PRINT "&J&[&E&G  LET'S PLAY MAFIA  &[&E&G&J"
310  PRINT " DO YOU WANT INSTRUCTIONS ?"
320  INPUT "### Answer:  1=YES  0=NO  ---=>"D9
330  IF D9=1 THEN 410
340  IF D9=0 THEN 690
350  GOTO 1880
360  PRINT 
370  PRINT " *** READY TO SEE MORE SICKNESS ?"
380  INPUT " (Enter any number ) ---=>"I9
390  PRINT 
400  RETURN 
410  PRINT 
420  PRINT " THE OBJECT OF THIS GAME IS TO KILL OR BE KILLED"
430  PRINT " THE LATTER OF COURSE FOR YOU ISN'T TOO COOL"
440  PRINT " YOU ARE THE NOTORIOUS CIA AGENT KNOWN AS OOZ"
450  PRINT " WHICH IS ZOO SPELLED BACKWARDS IF YOU NOTICE"
460  PRINT " YOUR ONLY WEAPON IS A WALTHER P38 WITH A"
470  PRINT " SILENCER.  YOUR OPPONENTS WILL USE SHOTGUNS."
480  PRINT " ********************************"
490  PRINT " ********************************"
500  GOSUB 360
510  PRINT " YOU ARE IN AN ALLEY FILLED WITH GARBAGE."
520  PRINT TAB(10);"***  (SICK HUH!)  ***"
530  PRINT " AT THE OTHER END HIDES 3 MAFIA AGENTS"
540  PRINT " YOUR MISSION SHOULD YOU TAKE IT IS TO"
550  PRINT " KILL, MUTILATE, AND MAIM THE 3 AGENTS"
560  PRINT " IF YOU FAIL (AS USUAL) THEY WILL MUTILATE,"
570  PRINT " MAIM, AND RUIN YOUR FAMILY LIFE THEN"
580  PRINT " THEY WILL GET ANGRY AND START BEATING UP ON YOU"
590  GOSUB 360
600  PRINT " .......AND WE WILL ALSO DISAVOW ANY KNOWLEDGE"
610  PRINT " OF HIRING YOU TO DO THE JOB."
620  PRINT "  (THIS IS TO PROTECT UNIVAC FROM THEM)&J"
630  PRINT " WHEN I ASK FOR A SHOT GIVE ME A NUMBER";
640  PRINT " FROM THESE (1, 2, OR 3)"
650  PRINT "1 -=- DUDE BEHIND THE BOX IN THE CORNER"
660  PRINT "2 -=- AGENT ON THE FIRE ESCAPE "
670  PRINT "3 -=- GUY BEHIND THE GARBAGE CANS IN THE ALLEY"
680  PRINT 
690  IF I=3 THEN 1660
700  PRINT 
710  PRINT " GIVE ME A SHOT";
720  INPUT " ---=>"B
725  PRINT "&K&[&B&D"
730  LET C=RND(0)
740  IF C<.5 THEN 770
750  IF C<.8 THEN 960
760  GOTO 1220
770  IF B=1 THEN 810
780  IF B=2 THEN 860
790  IF B=3 THEN 910
800  GOTO 1720
810  IF R=1 THEN 1740
820  PRINT " THE SHOT AT THE DUDE IN THE CORNER MISSED&J"
825  PRINT TAB(15);"### THEIR TURN ###&J"
830  PRINT " WHERE DID YOU LEARN TO SHOOT AT,"
840  PRINT " ..........  A PEANUT GALLERY !?"
850  GOTO 1520
860  IF S=1 THEN 1740
870  PRINT " SHOT AT AGENT ON FIRE ESCAPE MISSED&J"
875  PRINT TAB(15);"### THEIR TURN ###&J"
880  PRINT " MAN YOU NEED A LOT OF PRACTICE,......."
890  PRINT "  WITH AN AIM LIKE THAT I'D GIVE UP...!"
900  GOTO 1520
910  IF T=1 THEN 1740
920  PRINT " SHOT AT GUY BEHIND GARBAGE CAN MISSED&J"
925  PRINT TAB(15);"### THEIR TURN ###&J"
930  PRINT " WHY DON'T YOU GIVE UP AND RUN,......."
940  PRINT " ........ YOU'D HAVE A BETTER CHANCE THAT WAY..!"
950  GOTO 1520
960  IF B=1 THEN 1000
970  IF B=2 THEN 1070
980  IF B=3 THEN 1150
990  GOTO 1720
1000 IF R=1 THEN 1740
1010 E=E+1
1020 IF E=3 THEN 1760
1030 PRINT " SHOT TO CORNER WINGED THE AGENT&J"
1035 PRINT TAB(15);"### THEIR TURN ###&J"
1040 PRINT " WOW! YOUR AIM IS GETTING BETTER"
1050 PRINT " HE IS STILL ABLE TO SHOOT"
1060 GOTO 1520
1070 IF S=1 THEN 1740
1080 PRINT " YOU MUST HAVE PRACTICED A LOT......"
1090 PRINT " ......... SINCE THE LAST TIME YOU SHOT.!"
1100 F=F+1
1110 IF F=3 THEN 1800
1120 PRINT "YOU WINGED THE DUDE ON THE FIRE ESCAPE&J"
1125 PRINT TAB(15);"### THEIR TURN ###&J"
1130 PRINT " HE IS STILL ABLE TO SHOOT"
1140 GOTO 1520
1150 IF T=1 THEN 1740
1160 G=G+1
1170 IF G=3 THEN 1840
1180 PRINT " SHOT AT DUDE BEHIND GARBAGE CANS WINGED HIM&J"
1185 PRINT TAB(15);"### THEIR TURN ###&J"
1190 PRINT " ONE OF THESE DAYS YOU MIGHT KILL HIM"
1200 PRINT " HE IS STILL ABLE TO SHOOT"
1210 GOTO 1520
1220 IF B=1 THEN 1260
1230 IF B=2 THEN 1330
1240 IF B=3 THEN 1420
1250 GOTO 1720
1260 IF R=1 THEN 1740
1270 A=A+1
1280 IF A=3 THEN 1910
1290 PRINT " SHOT AT DUDE IN CORNER KILLED HIM !&J"
1295 PRINT TAB(15);"&[&E&C*L YOU GET ANOTHER TURN &[&E&J*L&J"
1300 PRINT " YOU LUCKY DUDE !!......YOU KILLED HIM!"
1310 R=1
1320 GOTO 690
1330 IF S=1 THEN 1740
1340 A=A+1
1350 IF A=3 THEN 1910
1360 PRINT " YOU KILLED THE AGENT ON THE ESCAPE !&J"
1365 PRINT TAB(15);"I&[&E&JI YOU GET ANOTHER TURN I&[&E&JI&J"
1370 PRINT " YOU ARE GETTING BETTER AT IT....BUT YOU"
1380 PRINT " SHOULD STAY AWAY FROM THOSE PEANUT GALLERIES."
1390 PRINT " THEY DON'T DO MUCH FOR YOUR AIM."
1400 S=1
1410 GOTO 690
1420 IF T=1 THEN 1740
1430 A=A+1
1440 IF A=3 THEN 1910
1450 PRINT " YOU KILLED THE GUY BEHIND THE GARBAGE CANS.&J"
1455 PRINT TAB(15);"(&[&E&N) YOU GET ANOTHER TURN (&[&E&N)&J"
1460 PRINT " YOU MIGHT WIN AFTER ALL BUT I SERIOUSLY DOUBT"
1470 PRINT " IT BECAUSE THESE GUYS ARE PROFESSIONAL"
1480 PRINT " SHOTGUN EXPERTS.    AND BESIDES,......"
1490 PRINT " THEY MAKE A LIVING OUT OF KILLING PEOPLE"
1500 T=1
1510 GOTO 690
1520 H=RND(0)*(.1)
1530 IF A=3 THEN 1910
1540 IF H<.6 THEN 1570
1550 IF H=.6 THEN 1600
1555 IF H<.8 THEN 1600
1560 GOTO 1640
1570 PRINT " LOOK OUT YOU IDIOT HERE COME DE BUCKSHOT"
1580 PRINT " THEY MISSED YOU, YOU LUCKY DOG YOU * YOUR TURN"
1590 GOTO 690
1600 PRINT " DUCK YOU FOOL HERE COME DE ROCK SALT"
1610 PRINT " YOU HAVE BEEN WINGED (OH THE PAIN) * YOUR TURN"
1620 I=I+1
1630 GOTO 690
1640 PRINT " DUCK YOU FREAK HERE COMES A SLUG"
1650 PRINT " YOU IDIOT YOU DIDN'T DUCK LIKE I TOLD YOU TO&J"
1660 PRINT TAB(15);"&[&ED&[&E&D YOU ARE DEAD &[&E&D&[&E&D&J"
1670 PRINT "&J WOULD YOU LIKE TO PLAY AGAIN ???"
1680 INPUT "### Answer:  1=YES  0=NO  ---=>"J9
1690 IF J9=1 THEN PRINT "&K": GOTO 260
1700 IF J9=0 THEN 2040
1710 GOTO 1670
1720 PRINT " DON'T PANIC UNDER FIRE PUT DOWN A CORRECT NUMBER"
1730 GOTO 690
1740 PRINT "============================================="
1745 PRINT "= THE DUDE IS DEAD YOU CAN'T KILL HIM AGAIN ="
1750 PRINT "=============================================&J"
1755 GOTO 690
1760 PRINT "YOU WINGED HIM AGAIN AND HE DIED&J"
1765 PRINT TAB(15);"### THEIR TURN ###&J"
1770 A=A+1
1780 R=1
1790 GOTO 1520
1800 PRINT "YOU WINGED THE DUDE ON THE ESCAPE TO DEATH&J"
1805 PRINT TAB(15);"### THEIR TURN ###&J"
1810 A=A+1
1820 S=1
1830 GOTO 1520
1840 PRINT "YOU WINGED HIM THE THIRD TIME AND HE DIED&J"
1845 PRINT TAB(15);"### THEIR TURN ###&J"
1850 A=A+1
1860 T=1
1870 GOTO 1520
1880 PRINT " WITH AN ANSWER LIKE THAT..."
1890 PRINT " ..... YOU DON'T DESERVE TO PLAY !!!"
1900 GOTO 2040
1910 PRINT " YOU HAVE KILLED THEM ALL"
1920 PRINT " NOW THAT YOU HAVE COMPLETED YOUR MISSION..."
1930 PRINT TAB(15);"....... RETURN HOME."
1940 IF I=1 THEN 1970
1950 IF I=2 THEN 1990
1960 GOTO 2010
1970 PRINT " YOU SHOULD ALSO SEE A DOCTOR ABOUT ";
1975 PRINT "THAT WOUND YOU RECEIVED"
1980 GOTO 1670
1990 PRINT " YOU SHOULD ALSO SEE A DOCTOR ABOUT ";
1995 PRINT "THE 2 WOUNDS YOU RECEIVED"
2000 GOTO 1670
2010 PRINT TAB(10);"***  CONGRATULATIONS  ***"
2020 PRINT " YOU COMPLETED YOUR MISSION WITHOUT ANY WOUNDS"
2030 GOTO 1670
2040 GOTO 3000
2100 PRINT "&[&B&K&[&A&A";
2110 FOR X=1 TO 30: PRINT TAB(X);"- ";: NEXT 
2120 PRINT "&[&B&K&[&A&A";
2130 FOR X=1 TO 30: PRINT TAB(X);"  ";: NEXT 
2140 RETURN 
2150 FOR X=1 TO 55 STEP 5
2155    PRINT "&[&B&C&[&A&A";
2160    PRINT TAB(55-X);".    "
2165 NEXT X
2170 PRINT "&[&B&C&[&A&A";
2180 FOR X=1 TO 30: PRINT TAB(X);"  ";: NEXT 
2190 RETURN 
2200 PRINT "&[&B&E&[&A&A";
2210 FOR X=1 TO 30: PRINT TAB(X);"= ";: NEXT 
2220 PRINT "&[&B&E&[&A&A";
2230 FOR X=1 TO 30: PRINT TAB(X);"  ";: NEXT 
2240 RETURN 
2250 FOR X=1 TO 55 STEP 5
2255    PRINT "&[&B&M&[&A&A";
2260    PRINT TAB(55-X);"'    "
2265 NEXT X
2270 PRINT "&[&B&M&[&A&A";
2280 FOR X=1 TO 30: PRINT TAB(X);"  ";: NEXT 
2290 RETURN 
3000 END