10 'Sluggo' Was developed at Great Neck South Senior High by the following: 20 'Jimmy Berlstein Tony Aiuto Phil Budne 30 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 40 DIM L$(5) 50 DEF FNP=RND*.3+.85 60 MAT READ L$ 70 DATA "Very low","Low","Fairly good","High","Very high" 80 PRINT ;TAB (20) "Welcome To Dr. Sluggo's Torture Chamber" 90 RANDOM 100 PRINT 110 PRINT 120 PRINT 130 PRINT "Who Would You Like To Torture"; 140 INPUT A$ 150 S=1.2-(RND+1E-3)^3 160 D=0 170 T=20 180 A=200*RND+600 190 Z=A 240 PRINT 250 PRINT "What Now"; 260 B=0 270 INPUT Q 280 PRINT 290 IF Q<1 THEN 320 300 IF Q<12 THEN 440 310 PRINT TAB(15)"Instructions" 320 PRINT TAB(12)"1. Electric Chair" 330 PRINT TAB(12)"2. Bludgeoning" 340 PRINT TAB(12)"3. The Rack" 350 PRINT TAB(12)"4. Flaying" 360 PRINT TAB(12)"5. Garroting" 370 PRINT TAB(12)"6. Thumbscrew" 380 PRINT TAB(12)"7. Cat O'Nine Tails" 390 PRINT TAB(12)"8. Pit And Pendulum" 400 PRINT TAB(12)"9. Vitamins" 410 PRINT TAB(11)"10. Rest Time" 420 PRINT TAB(11)"11. Sleep" 430 GOTO 240 440 ON Q GOTO 840,990,1100,1180,1340,1420,1500,1580,780,920,1260 450 IF B=0 GOTO 240 460 A=A-B 470 IF B$="" THEN 520 480 Q=S*RND*7*SGN(B)-1.5+A/100 490 PRINT B$"!!.."; 500 Q=Q-1.6 510 IF Q>0 THEN 490 520 IF A>=0 THEN 570 530 D=D+50 540 PRINT K$"!!!..." 550 PRINT "You Have Killed "A$ 560 GOTO 700 570 PRINT 580 IF A>Z THEN 680 590 D=D+ABS(B*S)+(Z/(2*A)*S) 600 IF A/Z>.1 THEN 660 610 PRINT A$" Has Passed Out" 620 D=D+.05*ABS(B) 630 IF RND>.75 THEN 550 640 GOTO 1270 650 GOTO 450 660 PRINT A$"'S Life Level Is "L$(4*A/Z+1)". Your Score Is"INT(D) 670 GOTO 240 680 PRINT A$" Has Escaped" 690 D=D*.85 700 PRINT 710 PRINT "Dr. Sluggo Gives You A Sadism Score Of"D 720 PRINT "Want To Try Again, Sadist"; 730 INPUT A$ 740 A$=MID$(A$,1,1) 750 IF A$="Y" THEN 80 760 IF A$="y" THEN 80 770 GOTO 1660 780 PRINT "How Many Vitamins Are You Going To Give "A$; 790 INPUT X 800 IF X<0 THEN 830 810 B=-X*20*FNP 820 B$="" 830 GOTO 450 840 PRINT A$" Is Strapped Into The Electric Chair" 850 PRINT "How many micro-amps"; 860 INPUT V 870 IF V<0 THEN 910 880 B=(V*V*Z)/(FNP*400*A) 885 'B=(V*V*Z*FNP)/(A*1000) 890 B$="Sizzle" 900 K$="BURN" 910 GOTO 450 920 PRINT ,"Dr. Sluggo says it's Rest time !" 930 PRINT "Minutes rest"; 940 INPUT X 950 IF X<0 THEN 980 960 B=-X*FNP 970 B$="" 980 GOTO 450 990 PRINT TAB(20)"It's Bludgeoning Time !!!" 1000 PRINT "What Weight Club"; 1010 INPUT X 1020 IF X<0 THEN 1090 1030 PRINT "How Many Times Are You Going To Hit "A$; 1040 INPUT N 1050 IF N<0 THEN 1090 1060 B=X*X*N/3*FNP 1070 B$="Ouch" 1080 K$="THUD" 1090 GOTO 450 1100 PRINT "It's Time For The Rack" 1110 PRINT " Number Of Turns"; 1120 INPUT X 1130 IF X<0 THEN 1170 1140 B=X*X*FNP 1150 B$="Stretch" 1160 K$="RIP" 1170 GOTO 450 1180 PRINT "Dr. Sluggo Says It's Flaying Time......Oh Boy!!" 1190 PRINT " Number Of Square Inches To Be Flayed"; 1200 INPUT X 1210 IF X<0 THEN 1260 1220 B=X*(RND+.5) 1230 B$="Peal" 1240 K$="SHRED" 1250 GOTO 450 1260 PRINT "Dr. Sluggo Says It's Beddy-bye Time For "A$ 1270 PRINT " Hours Of Sleep"; 1280 INPUT X 1290 IF X<0 THEN 1250 1300 B=-(X-5*FNP)*30*FNP 1310 B$="Zzz" 1320 K$="OH OVERZEALOUS TORTURER" 1330 GOTO 450 1340 PRINT "The Chokes On "A$". It's Garroting Time!!!" 1350 PRINT " Tension"; 1360 INPUT X 1370 IF X<0 THEN 1410 1380 B=X*X/5*FNP 1390 B$="Squeeze" 1400 K$="CHOKE" 1410 GOTO 450 1420 PRINT "Dr. Sluggo Just Took Out His Monogrammed Thumbscrew!!!" 1430 PRINT " P.S.I."; 1440 INPUT X 1450 IF X<0 THEN 1490 1460 B=2*X*FNP 1470 B$="Turn" 1480 K$="SQUISH" 1490 GOTO 450 1500 PRINT "Dr. Sluggo Is Standing By With His Cat O'Nine Tails!!!" 1510 PRINT " How Many Times Are You Going To Whip "A$; 1520 INPUT X 1530 IF X<0 THEN 1570 1540 B=15*EXP(FNP*LOG(X))/FNP 1550 B$="Whip" 1560 K$="AHHH" 1570 GOTO 450 1580 PRINT A$" Is Strapped On To The Operating Table!!!" 1590 PRINT " How Many Swings Of The Pendulum"; 1600 INPUT X 1610 IF X<0 THEN 1650 1620 B=32*X*FNP^(7*FNP) 1630 B$="Swish" 1640 K$="SLASH" 1650 GOTO 450 1660 END