Back to Main page.
Back to Main tapes page.
1000  DIM C$[72]
1020  DIM E$[255]
1030  PRINT LIN(3)"WE WILL NOW PLAY RUSSIAN TYPE ROULETTE"
1040  PRINT "DO YOU WANT INSTRUCTIONS(Y OR N)?";
1050  LINPUT C$
1060  IF C$[1,1]="N" THEN 1180
1070  PRINT LIN(1)"YOU REALLY ARE STUPID,YOU DON'T EVEN KNOW HOW"
1080  PRINT "TO KILL YOURSELF!!!!!!"
1090  PRINT LIN(3)"HOW TO KILL YOURSELF:"
1100  PRINT "---------------------"
1110  PRINT "TYPE IN '1' TO TAKE A POT SHOT AT YOUR HEAD"
1120  PRINT "TYPE IN '2' TO TAKE A WELL AIMED POT SHOT AT YOUR HEAD"
1130  PRINT "TYPE IN '3' TO TAKE A WILD SHOT(YOU MIGHT HIT ANYTHING!!)"
1140  PRINT "TYPE IN '4' TO GET IT OVER WITH FAST"
1150  PRINT "TYPE IN '5' TO CHICKEN OUT IN MID TYPE CLICK"
1160  PRINT LIN(1)"THIS IS ALL YOU NEED TO KNOW TO KNOCK YOURSELF OFF!!"
1170  PRINT LIN(3)"GOOD LUCK!!!"
1180  R8=INT(RND(0)*6)+1
1190  R9=INT(RND(0)*6)+1
1200  S=0
1210  GOSUB 100
1220  PRINT "WELL"'0'0'0"."'0'0'0"."'0'0'0"."'0'0'0"."'0'0'0;
1230  INPUT A
1240  IF A=INT(A) AND A=ABS(A) AND A <= 5 THEN 1260
1250  GOTO 1270
1260  GOTO A OF 1290,1410,1470,1640,1690
1270  PRINT "YOU STUPID FOOL,THE COMMANDS ARE EITHER 1,2,3,4,OR 5!!!!!"
1280  GOTO 1210
1290  S=S+1
1300  R8=R8-1
1310  PRINT "ATTEMPT #"S
1320  IF R8=0 AND 1=R9 THEN 1370
1330  IF R8=0 THEN 1640
1340  PRINT "****CLICK****...NO,NOT HERE"
1350  PRINT "BETTER LUCK NEXT TIME!!!"
1360  GOTO 1210
1370  PRINT '7'7'7'7'7'7'7'7'7'7'7"BANG"'7'7'7'7'7'7'7'7'7'7'7'7
1380  PRINT "BUT DUE TO EXCESS FRIGHT YOU MISSED"
1390  PRINT "BETTER LUCK NEXT TIME!!!!"
1400  GOTO 1760
1410  S=S+1
1420  R8=R8-2
1430  PRINT "ATTEMPT #"S
1440  IF R8 <= 0 AND 2=R9 THEN 1370
1450  IF R8 <= 0 THEN 1640
1460  GOTO 1340
1470  S=S+1
1480  R8=R8-1
1490  PRINT "ATTEMPT #"S
1500  IF R8=0 AND 3=R9 THEN 1530
1510  IF R8=0 THEN 1640
1520  GOTO 1340
1530  X=INT(RND(0)*3)+1
1540  GOTO X OF 1570,1590
1550  E$="BLIMP MARKED 'GOOD YEAR'"
1560  GOTO 1600
1570  E$="PORCHE TURBO"
1580  GOTO 1600
1590  E$="FLOCK OF GEESE FLYING SOUTH OUT OF SEASON"
1600  PRINT '7'7'7'7'7'7'7'7"BANG"'7'7'7'7'7'7'7'7'7'7
1610  PRINT "BUT DUE TO EXCESS FRIGHT,YOU MISSED"
1620  PRINT "AND HIT A "E$
1630  GOTO 1760
1640  PRINT "WELL,YOU WANTED TO KNOCK YOURSELF OFF"
1650  PRINT "AND YOU DID A GOOD JOB OF IT!!!"
1660  PRINT "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!BANG!!!!!!!!!!!!!!!!!!"
1670  GOTO 1760
1680  PRINT LIN(3)
1690  X1=INT(RND(0)*2)+1
1700  IF X1=2 THEN 1740
1710  PRINT "YOU DIDN'T STOP THE HAMMER SOON ENOUGH"
1720  PRINT "YOU'VE JUST BLOWN YOUR HEAD OFF!!!!"
1730  GOTO 1660
1740  PRINT "YOU STOPPED THE HAMMER JUST IN TIME"
1750  PRINT "YOU HAVE CHICKENED OUT SUCCESSFULLY!!!"
1760  GOTO 130
1770  END