' From July/August 1991 Edition of 321 Contact magazine ' Unedited code from magazine 10 DIM F$(8,2),P$(10,3),E$(8,2) 20 FOR X=1 TO 8 30 READ A$:F$(X,1)=A$ 40 READ A$:F$(X,2)=A$ 50 NEXT X 60 FOR X=1 TO 10 70 FOR Y=1 TO 3 80 READ A$:P$(X,Y)=A$ 90 NEXT Y:NEXT X 100 FOR X=1 TO 8 110 READ A$:E$(X,1)=A$ 120 READ A$:E$(X,2)=A$ 130 NEXT X 140 R=2:H=10:P=9:T=0 150 CLS 160 PRINT "GOOD MORNING, ROACH." 170 PRINT "THERE ARE NOW";R;" ROACHES IN THE KITCHEN." 180 PRINT "YOUR HUNGER LEVEL IS";H 190 "YOU HAVE MADE";T;"TRIPS FOR FOOD" 200 PRINT:PRINT "YOU ARE NOW ";P$(P,1) 210 IF P$(P,3)="0" THEN 260 220 IF R<1200 THEN 280 230 X=INT(RND(1)*2)+1 240 IF X=1 THEN 280 250 PRINT "SOME OTHER ROACH WAS HERE FIRST" 260 PRINT "THERE'S NOTHING TO EAT HERE." 270 GOTO 330 280 F=INT(RND(1)*8)+1 290 PRINT "YOU SEE SOME ";F$(F,1) 300 PRINT "DO YOU WANT TO STICK AROUND TO EAT? (Y/N)" 310 INPUT R$ 320 IF R$="Y" THEN 360 330 H=H+1 340 PRINT "YOU CRAWL ON, ENDLESSLY SEARCHING FOR FOOD." 350 GOTO 510 360 X=INT(RND(1)*10)+1 370 IF X>VAL(P$(P,2)) THEN 490 380 E=INT(RND(1)*8)+1 390 PRINT "YOU STOP TO EAT THE ";F$(F,1) 400 PRINT "BUT SUDDENLY, A GIANT ";E$(E,1);" APPEARS!!" 410 IF VAL(E$(E,2))>10 THEN 620 420 X=INT(RND(1)*10)+1 430 IF X19 THEN PRINT "YOU DIED OF HUNGER":GOTO 660 530 P2=P 540 P=INT(RND(1)*8)+1 550 IF P=P2 THEN 540 560 IF R>60000! THEN 580 570 R=R+R 580 T=T+1 590 PRINT "PRESS RETURN TO CONTINUE" 600 INPUT R$ 610 GOTO 150 620 PRINT "YOU ESCAPE, BUT THE EXTERMINATOR" 630 PRINT "WIPES OUT MOST OF THE OTHER ROACHES IN THE KITCHEN" 640 R=2:H=H+1:GOTO 510 650 REM THE END 660 PRINT "YOUR LIFE AS A COCKROACH IS OVER." 670 PRINT "BUT YOUR SPECIES WILL LIVE ON FOREVER." 680 PRINT "YOU LASTED";T;" TRIPS" 690 IF T>=30 THEN S$="SUPER" 700 IF T<30 THEN S$="WONDER" 710 IF T<20 THEN S$="GOOD" 720 IF T<10 THEN S$="NOT VERY SMART" 730 PRINT "YOU ARE A ";S$;" ROACH." 740 PRINT "WOULD YOU LIKE TO PLAY AGAIN? Y/N" 750 INPUT R$ 760 IF R$="Y" THEN 140 770 PRINT "BYE-BYE ROACH!" 780 END 790 DATA CAKE,5,OLD BANANA,3,BREAD CRUMBS,2,ORANGE RIND,2 800 DATA SALAMI,3,SOAP,0,FINGERNAIL CLIPPINGS,1,CAT FOOD,4 810 DATA BEHIND REFRIGERATOR,2,1,UNDER SINK,2,1,ON COUNTER,8,1,ALONG THE WALL,3,1 820 DATA IN MIDDLE OF FLOOR,9,1,UNDER TABLE,6,1,ON CEILING,1,0,ON TABLE,9,1 830 DATA INSIDE WALL,0,0,UNDER TOASTER,3,1 840 DATA EXTERMINATOR,99,CAT,9,FOOT,2,HAND,5,POISON SPRAY,8,ROACH MOTEL,4 850 DATA ROLLED UP NEWSPAPER,2,LIZARD,8