Listing of file='CLEWSO.BAS;01' on disk='vmedia/ncc_6-sector.ccvf'
5 REM **** THIS PROGRAM ADAPTED BY REX HAHN FOR COMPUCOLOR II 6 REM **** USERS GROUP FROM 6/79 CREATIVE COMPUTING. 10 DIM S$(20),R$(36),A$(3),P(5,9),Z$(36),Y$(36),M$(36) 20 PLOT 12,27,24 30 PLOT 3,3,4:PRINT " dddddd dd dddddddd dd dd dddddd dddddd" 40 PLOT 3,3,5:PRINT "dddddddd dd dddddddd dd dd dddddddd dddddddd" 50 PLOT 3,3,6:PRINT "dd dd dd dd dd dd dd dd dd dd" 60 PLOT 3,3,7:PRINT "dd dd dd dd dd dd dd dd" 70 PLOT 3,3,8:PRINT "dd dd dddd dd dd dd ddddddd dd dd" 80 PLOT 3,3,9:PRINT "dd dd dddd dd dd dd ddddddd dd dd" 90 PLOT 3,3,10:PRINT "dd dd dd dd dd dd dd dd dd" 100 PLOT 3,3,11:PRINT "dd dd dd dd dd dd dd dd dd dd" 110 PLOT 3,3,12:PRINT "dddddddd dddddddd dddddddd dddddddd dddddddd dddddddd" 120 PLOT 3,3,13:PRINT " dddddd dddddddd dddddddd dddddddd dddddd dddddd" 130 PLOT 3,19,18:PRINT " t" 140 PLOT 3,19,19:PRINT " ~ u tutututu " 150 PLOT 3,19,20:PRINT " ~ vwvwvwvw " 160 PLOT 3,19,21:PRINT " v " 170 PLOT 3,19,22:PRINT "d" 180 PLOT 3,19,24:PRINT "d" 190 PLOT 3,19,26:PRINT "d" 200 PLOT 3,64,0 210 GOSUB 2310 220 PLOT 12,27,24 230 A$= "INSPECTOR CLEW-SO" 240 L= LEN (A$) 250 PLOT 3,128,31- L/ 2,1,3:PRINT A$ 260 S$= "BILLMARYPAULSUZYJOHN" 270 R$= "FAMILYATRIUMLIVINGDININGTROPHYGARAGE" 280 PLOT 3,127,0,3,7:PRINT "BILL, MARY, JOHN, SUZY, AND PAUL ARE HOUSE GUESTS. THEIR HOST" 290 PLOT 3,127,0,4,7:PRINT "WAS MURDERED BY ONE OF THEM BETWEEN 1 PM, AND 9 PM." 300 PLOT 3,127,0,6,7:PRINT "YOUR JOB AS INSPECTOR, IS TO FIND THE KILLER, TIME & ROOM." 310 PLOT 3,127,0,8,7:PRINT "YOU WILL BE GIVEN A HOUSE DIAGRAM AND A SET OF QUESTIONS" 320 PLOT 3,127,0,9,7:PRINT "FOR THE SUSPECTS, BUT THE GUILTY PERSON MAY TRY TO MISLEAD YOU," 330 PLOT 3,127,0,10,7:PRINT "BY LYING SOME OF THE TIME." 340 PLOT 3,127,0,12,7:PRINT "IF ONE OF THE SUSPECTS CLAIM THAT THE HOST WAS ALREADY DEAD," 350 PLOT 3,127,0,13,7:PRINT "OR THAT THE HOST WAS STILL ALIVE, THEN YOU HAVE FOUND THE " 360 PLOT 3,127,0,14,7:PRINT "ROOM WHERE THE MURDER TOOK PLACE." 370 PLOT 3,127,0,16,7:PRINT "IF THE SUSPECT BEING QUESTIONED SAYS 'I SAW MARY, JOHN, ETC;" 380 PLOT 3,127,0,17,7:PRINT "THEN THAT PERSON WAS IN THE ADJACENT ROOM." 390 PLOT 3,127,0,19,7:PRINT "THE COMPUTER WILL KEEP TRACK OF THE ANSWERS YOU GET TO YOUR" 400 PLOT 3,127,0,20,7:PRINT "QUESTIONS, IN THE TABLE AT THE BOTTOM OF THE SCREEN." 410 PLOT 3,0,22:INPUT "HIT RETURN WHEN YOU ARE READY TO START.";G 420 PLOT 12 430 PLOT 3,7,0:PRINT " INSPECTOR CLEW-SO " 440 H= 0 450 C= 0 460 C1= 0 470 P= 0 480 GOSUB 5000 490 PLOT 3,0,2:PRINT " THE SUSPECTS ARE: BILL," 500 PLOT 3,0,3:PRINT "MARY, PAUL, SUZY, AND JOHN" 510 PLOT 3,127,0,5,6:PRINT " THE MURDER OCCURRED BETWEEN" 520 PLOT 3,0,6:PRINT "1 AND 9 O'CLOCK" 530 PLOT 3,64,0 540 FOR L= 1TO 9 550 FOR K= 1TO 5 560 A= INT (6* RND (K))+ 1 570 IF A= P(K,L- 1)THEN 560 580 P(K,L)= A 590 NEXT K 600 NEXT L 610 REM ESTABLISH SUSPECTS MOVEMENTS 620 REM RANDOM ASSIGNMENT TO KILLER, TIME AND ROOM 630 M= INT (5* RND (1))+ 1 640 T= INT (9* RND (2))+ 1 650 R= P(M,T) 660 GOSUB 2260:PLOT 3,127,2,9,1:PRINT "INSPECTOR CLEW-SO, WHO IS" 670 PLOT 3,0,10:INPUT " YOUR SUSPECT ? ";S1$ 680 FOR S= 1TO 5 690 IF MID$ (S1$,1,1)= MID$ (S$,S* 4- 3,1)THEN 720 700 NEXT S 710 GOTO 660 720 GOSUB 2260:PLOT 3,0,8:PRINT " DO YOU WISH TO QUESTION " 730 PLOT 3,0,9:PRINT MID$ (S$,S* 4- 3,4);" ABOUT: " 740 PLOT 3,0,11:PRINT " 1 - THE SUSPECTS WHEREABOUTS" 750 PLOT 3,0,12:PRINT " AT A PARTICULAR TIME." 760 PLOT 3,0,13:PRINT " 2 - WHAT TIME A SUSPECT WAS" 770 PLOT 3,0,14:PRINT " IN A CERTAIN ROOM." 780 PLOT 3,0,15:PRINT " 3 - YOU'VE SOLVED THE CRIME. " 790 PLOT 3,0,17:INPUT " WHICH ONE DO YOU SELECT ? ";A 800 IF A< 1OR A> 3THEN 720 810 C= C+ 1 820 ON AGOTO 830,1350,1650 830 REM TIME SELECTION 840 GOSUB 2260:PLOT 3,127,0,9,1:PRINT MID$ (S$,S* 4- 3,4) 850 PLOT 3,0,10:INPUT " -- WHERE WERE YOU AT ";T1 860 IF T1< 1OR T1> 9THEN 840 870 R1= P(S,T1) 880 IF S< > MTHEN 970 890 REM LIAR SECTION 900 IF RND (2)< .5THEN 1020 910 R1= INT (6* RND (3))+ 1 920 IF RND (4)< .5THEN 950 930 PLOT 3,0,17:PRINT " THE HOST WAS ALREADY DEAD. " 940 GOTO 1020 950 PLOT 3,0,17:PRINT " OUR HOST WAS STILL ALIVE. " 960 GOTO 1020 970 IF R1= RTHEN 990 980 GOTO 1020 990 IF RND (5)< .5THEN 1020 1000 PLOT 3,0,17:IF T1< TTHEN PRINT " THE HOST WAS STILL ALIVE. " 1010 PLOT 3,0,17:IF T1> TTHEN PRINT " THE HOST WAS ALREADY DEAD. " 1020 PLOT 3,127,0,12,7:PRINT "I WAS IN THE ";MID$ (R$,R1* 6- 5,6);" ROOM." 1030 GOSUB 4000 1040 Q= 0 1050 FOR K= 1TO 5 1060 IF K= STHEN 1170 1070 IF Q= 0AND P(K,T1)= R1THEN 1100 1080 IF Q> = 1AND Q< = 5AND P(K,T1)= R1THEN 1140 1090 GOTO 1170 1100 PLOT 3,127,0,14,7:PRINT "I WAS WITH ";MID$ (S$,K* 4- 3,4) 1110 GOSUB 4120 1120 Q= Q+ 1 1130 GOTO 1170 1140 PLOT 3,127,10+ 5* Q,14,7:PRINT ",";MID$ (S$,K* 4- 3,4) 1150 GOSUB 4120 1160 Q= Q+ 1 1170 GOSUB 2300 1180 NEXT K 1190 Q= 0 1200 FOR K= 1TO 5 1210 IF K= STHEN 1300 1220 IF Q= 0AND ABS (R1- P(K,T1))= 1THEN 1250 1230 IF Q> = 1AND Q< = 5AND ABS (R1- P(K,T1))= 1THEN 1280 1240 GOTO 1300 1250 PLOT 3,127,0,15,7:PRINT "I SAW ";MID$ (S$,K* 4- 3,4) 1260 Q= Q+ 1 1270 GOTO 1300 1280 PLOT 3,127,5+ 5* Q,15,7:PRINT ",";MID$ (S$,K* 4- 3,4) 1290 Q= Q+ 1 1300 GOSUB 2300 1310 NEXT K 1320 GOSUB 2300 1330 GOTO 660 1340 REM ROOM QUESTIONING 1350 GOSUB 2260:PLOT 3,127,0,9,1:PRINT MID$ (S$,S* 4- 3,4) 1360 PLOT 3,0,11:PRINT " WHAT TIME WERE YOU IN" 1370 PLOT 3,0,12:INPUT "THE (ROOM) ";R1$ 1380 FOR R1= 1TO 6 1390 IF MID$ (R1$,1,1)= MID$ (R$,R1* 6- 5,1)THEN 1420 1400 NEXT R1 1410 GOTO 1360 1420 IF S< > M THEN 1530 1430 IF RND (5)< .5THEN 1530 1440 T1= INT (RND (5)* 6)+ 1 1450 GOTO 1490 1460 PLOT 3,127,0,17,4:IF T1= TTHEN PRINT "I WAS NOT IN THAT ROOM." 1470 GOSUB 2300 1480 GOTO 660 1490 PLOT 3,127,0,14,7:PRINT "I WAS IN THAT ROOM AT ";T1 1500 GOSUB 4000 1510 GOSUB 2300 1520 GOTO 660 1530 K= 0 1540 FOR B= 1TO 9 1550 IF P(S,B)< > R1 THEN 1600 1560 PLOT 3,127,0,14,7:PRINT "I WAS IN THAT ROOM AT ";B 1570 GOSUB 4240 1580 K= 1 1590 GOSUB 2300 1600 NEXT B 1610 PLOT 3,127,0,14,7:IF K= 0THEN PRINT "I WAS NOT IN THAT ROOM." 1620 GOSUB 2300 1630 GOTO 660 1640 REM CONFRONTATION SECTION 1650 C1= C1+ 1 1660 GOSUB 2260:PLOT 3,0,9:PRINT " INSPECTOR DO YOU KNOW: " 1670 PLOT 3,0,11:PRINT " 1 KILLER " 1680 PLOT 3,0,12:PRINT " 2 ROOM " 1690 PLOT 3,0,13:PRINT " 3 TIME " 1700 PLOT 3,0,14:PRINT " 4 ARE YOU TOTALLY BAFFLED - " 1710 PLOT 3,0,16:INPUT " WHICH ONE DO YOU SELECT ? ";A 1720 IF A< 1OR A> 4THEN 1710 1730 ON AGOTO 1740,1950,1860,2170 1740 GOSUB 2260:PLOT 3,0,9:INPUT " THE KILLER IS ? ";S1$ 1750 FOR X= 1TO 5 1760 IF MID$ (S1$,1,1)= MID$ (S$,X* 4- 3,1)THEN 1790 1770 NEXT X 1780 GOTO 1740 1790 IF MID$ (S1$,1,1)< > MID$ (S$,M* 4- 3,1)THEN 2130 1800 PLOT 3,0,11:PRINT " YOU HAVE THE KILLER," 1810 PLOT 3,0,12:PRINT "INSPECTOR CLEW-S0 " 1820 GOSUB 2320 1830 H= H+ 1 1840 IF H= 3THEN 2070 1850 GOTO 660 1860 GOSUB 2260:PLOT 3,0,9:INPUT " TIME OF THE MURDER ";T1 1870 IF T1< 1OR T1> 9THEN 1860 1880 IF T1< > TTHEN 2130 1890 PLOT 3,0,11:PRINT " INSPECTOR YOU HAVE THE" 1900 PLOT 3,0,12:PRINT "RIGHT TIME " 1910 GOSUB 2320 1920 H= H+ 1 1930 IF H= 3THEN 2070 1940 GOTO 660 1950 GOSUB 2260:PLOT 3,0,9:INPUT " ROOM OF THE MURDER ";R1$ 1960 FOR X= 1TO 6 1970 IF MID$ (R1$,1,1)= MID$ (R$,X* 6- 5,1)THEN 2000 1980 NEXT X 1990 GOTO 1950 2000 IF MID$ (R1$,1,1)< > MID$ (R$,R* 6- 5,1)THEN 2130 2010 PLOT 3,0,11:PRINT " INSPECTOR, YOU NOW HAVE" 2020 PLOT 3,0,12:PRINT "THE ROOM " 2030 GOSUB 2320 2040 H= H+ 1 2050 IF H< > 3THEN 660 2060 REM CONFIRMATIONS 2070 PLOT 3,0,14:PRINT " YOU ARE BRILLIANT, INSPECTOR" 2080 PLOT 3,0,15:PRINT "CLEW-SO " 2090 PLOT 3,0,16:PRINT " IT TOOK YOU ";C;" QUESTIONS" 2100 PLOT 3,0,17:PRINT "AND ";C1;" CONFRONTATIONS " 2110 GOSUB 2320 2120 GOTO 2220 2130 PLOT 3,0,14:PRINT " INSPECTOR CLEW-SO YOU ARE" 2140 PLOT 3,0,15:PRINT "A BUMBLING IDIOT,TRY AGAIN " 2150 GOSUB 2320 2160 GOTO 660 2170 GOSUB 2260:PLOT 3,0,9:PRINT " TOO BAD INSPECTOR CLEW-SO. " 2180 PLOT 3,0,11:PRINT " THE FACTS ARE:" 2190 PLOT 3,0,13:PRINT MID$ (S$,M* 4- 3,4);" KILLED THE HOST AT ";T 2200 PLOT 3,0,14:PRINT "O'CLOCK IN THE ";MID$ (R$,R* 6- 5,6);" (ROOM) " 2210 FOR I= 1 TO 2000:NEXT I 2220 GOSUB 2260:PLOT 3,0,16:PRINT " DO YOU WANT A NEW" 2230 PLOT 3,0,17:INPUT "CASE, INSPECTOR ? (Y/N) ";D$ 2240 IF D$= "Y"THEN 420 2250 END 2260 FOR Y= 8 TO 18 2270 PLOT 3,127,0,Y,0:PRINT " " 2280 NEXT Y 2290 RETURN 2300 FOR I= 1 TO 100:NEXT I:RETURN 2310 FOR I= 1 TO 3000:NEXT I:RETURN 2320 FOR I= 1 TO 1000:NEXT I:RETURN 4000 REM *** LINE 4000 THRU 4070 PRINTS CHECK LIST FOR S,R1,T1 4010 ON SGOTO 4020,4040,4060,4080,4100 4020 PLOT 3,8* R1+ 2,T1+ 21:PRINT "B" 4030 GOTO 4110 4040 PLOT 3,8* R1+ 3,T1+ 21:PRINT "M" 4050 GOTO 4110 4060 PLOT 3,8* R1+ 4,T1+ 21:PRINT "P" 4070 GOTO 4110 4080 PLOT 3,8* R1+ 5,T1+ 21:PRINT "S" 4090 GOTO 4110 4100 PLOT 3,8* R1+ 6,T1+ 21:PRINT "J" 4110 RETURN 4120 REM *** LINE 4100 THRU 4170 PRINTS CHECK LIST FOR K,R1,T1 4130 ON KGOTO 4140,4160,4180,4200,4220 4140 PLOT 3,8* R1+ 2,T1+ 21:PRINT "B" 4150 GOTO 4230 4160 PLOT 3,8* R1+ 3,T1+ 21:PRINT "M" 4170 GOTO 4230 4180 PLOT 3,8* R1+ 4,T1+ 21:PRINT "P" 4190 GOTO 4230 4200 PLOT 3,8* R1+ 5,T1+ 21:PRINT "S" 4210 GOTO 4230 4220 PLOT 3,8* R1+ 6,T1+ 21:PRINT "J" 4230 RETURN 4240 REM *** LINE 4200 THRU 4270 PRINTS CHECK LIST FOR S,R1,B 4250 ON SGOTO 4260,4280,4300,4320,4340 4260 PLOT 3,8* R1+ 2,B+ 21:PRINT "B" 4270 GOTO 4350 4280 PLOT 3,8* R1+ 3,B+ 21:PRINT "M" 4290 GOTO 4350 4300 PLOT 3,8* R1+ 4,B+ 21:PRINT "P" 4310 GOTO 4350 4320 PLOT 3,8* R1+ 5,B+ 21:PRINT "S" 4330 GOTO 4350 4340 PLOT 3,8* R1+ 6,B+ 21:PRINT "J" 4350 RETURN 5000 PLOT 3,31,0:PRINT " neeeeeeeeeneeeeeeeeeneeeeeeeeo " 5010 PLOT 3,31,1:PRINT " a a a b " 5020 PLOT 3,31,2:PRINT " a D INING a T ROPHY a G ARAGE b " 5030 PLOT 3,31,3:PRINT " a a a b " 5040 PLOT 3,31,4:PRINT " a l a b " 5050 PLOT 3,31,5:PRINT " a a a b " 5060 PLOT 3,31,6:PRINT " a a b " 5070 PLOT 3,31,7:PRINT " a neeeeeeeeo " 5080 PLOT 3,31,8:PRINT " l a a b " 5090 PLOT 3,31,9:PRINT " a a b " 5100 PLOT 3,31,10:PRINT " a b " 5110 PLOT 3,31,11:PRINT " a L IVING a F AMILY b " 5120 PLOT 3,31,12:PRINT " a neee eeea b " 5130 PLOT 3,31,13:PRINT " a ne a b " 5140 PLOT 3,31,14:PRINT " a a A TRIUM a b " 5150 PLOT 3,31,15:PRINT " eeea a a beee " 5160 PLOT 3,31,16:PRINT " lllm " 5170 PLOT 3,5,19:PRINT " neeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeo " 5180 PLOT 3,5,20:PRINT " a FAMILY ATRIUM LIVING DINING TROPHY GARAGE b " 5190 PLOT 3,5,21:PRINT " a b " 5200 PLOT 3,5,22:PRINT " a 1 b " 5210 PLOT 3,5,23:PRINT " a 2 b " 5220 PLOT 3,5,24:PRINT " a 3 b " 5230 PLOT 3,5,25:PRINT " a 4 b " 5240 PLOT 3,5,26:PRINT " a 5 b " 5250 PLOT 3,5,27:PRINT " a 6 b " 5260 PLOT 3,5,28:PRINT " a 7 b " 5270 PLOT 3,5,29:PRINT " a 8 b " 5280 PLOT 3,5,30:PRINT " a 9 b " 5290 PLOT 3,5,31:PRINT " lm " 5300 RETURN