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