10 REM COPYRIGHT 1990 COMPUTE! PUBLICATIONS, INC. - ALL RIGHTS RESERVED
20 POKE53280,6:POKE53281,6:PRINT"[147]":POKE781,7:POKE782,14:POKE783,0:POKE53269,0
30 SYS65520:PRINT"[159] SHEERLUCK ":Z=RND(-TI/100)
40 PRINTSPC(3)"COPYRIGHT 1990 COMPUTE! PUBL., INC."
50 PRINTTAB(11)"ALL RIGHTS RESERVED"
60 A$="[158] JIM  BOB  ABE  ROB  BUD  SAM  TOM  DAN
70 B$[178]"         1   2   3   4   5   6   7   8
80 C$=" 100% [158]   [167]   [167]   [167]   [167]   [167]   [167]   [167]   [167]
90 D$[178]" 50%  SYS   THEN   THEN   THEN   THEN   THEN   THEN   THEN   THEN
100 E$=" 100%    [167]   [167]   [167]   [167]   [167]   [167]   [167]   [167]
110 F$[178]" 50%     THEN   THEN   THEN   THEN   THEN   THEN   THEN   THEN
120 G$="   [158]      [167]   [167]   [167]   [167]   [167]   [167]   [167]   [167]
130 H$[178]"                                       ":I$[178]" 
140 J$="[129][169]                                     [223]
150 K$[178]"WAITFOR(null)                                     WAITSTEP":L$[178]"STEPTRUTH METER(null)
160 FORN=1TO9:READY$:R$(N)=Y$:NEXT
170 DIMU%(92):FORN=1TO5:READFH(N):READFL(N):NEXT:N=0
180 N=N+1:READU%(N):IFU%(N)<>0THEN180
190 FORN=15872TO16383:READD:H=H+D:POKEN,D:NEXT
200 IFH<>68445THENPRINT"DATA STATEMENT ERROR.":STOP
210 M=1:FA=7:U=54272:POKEU+5,48:POKEU+6,250:POKEU+3,7:POKEU+2,150
220 POKEU+12,44:POKEU+13,248:POKEV+9,99:POKEU+10,255
230 S=12-((7-M)*2):SC=INT((1/(8-M)*99)):RR=9-INT(99/(SC+10)):IFRR<1THENRR=1
240 GOSUB380:FORN=0TOFA:C%(N)=N:NEXT:FORN=0TOM:R1=INT(RND(0)*(FA+1))
250 R2=INT(RND(0)*(FA+1)):IFR1=R2THEN250
260 T=C%(R1):C%(R1)=C%(R2):C%(R2)=T:NEXT
270 GOSUB540:IFR<>M+1THENGOTO270
280 GOSUB760:IFSC>(1/(8-M)*99)/3THENM=M+1
290 IFM>7THENM=7
300 R=0:GOTO230:END
310 SC=SC-1:IFSC<0THENSC=0
320 RR=9-INT(99/(SC+10)):IFRR<1THENRR=1
330 GOSUB710:GOSUB650:FORN=0TOM:D%(N)=0:NEXT:R=0:W=0
340 FORN=0TOM:L=255-(PEEK(2040+N)):IFL=C%(N)ANDD%(N)=0THENR=R+1:D%(N)=1
350 NEXT:FORN=0TOM:L=255-(PEEK(2040+N))
360 FORK=0TOM:IFL=C%(K)ANDD%(K)=0THENW=W+1:D%(K)=1:K=M
370 NEXT:NEXT:GOSUB690:RETURN
380 PRINT"[147]":A=1346:PRINTLEFT$(A$,(M+1)*5)
390 V=53248:POKEV+28,255:POKEV+37,1:POKEV+38,10:POKEV+27,255:POKEV+29,0
400 POKEV+23,0:FORN=0TOM:X=29+N*40:IFX>255THENX=X-255
410 POKEV+N*2,X:POKEV+1+2*N,88:POKEV+39+N,0:POKE2040+N,255:NEXT
420 T=0:FORN=0TOM:T=T+2^N:NEXT
430 POKEV+16,192:FORN=0TOM:PRINT"[164][164][164][164][164]";:NEXT:IFM<>7THENPRINT
440 FORN=0TOM:PRINT"  [146]   ";:NEXT:IFM<>7THENPRINT
450 FORN=0TOM:PRINT"[146][207][183][183][183][208]";:NEXT:IFM<>7THENPRINT
460 FORN=0TOM:PRINT"[146][180]   [170]";:NEXT:IFM<>7THENPRINT
470 FORN=0TOM:PRINT"[146][180]   [170]";:NEXT:IFM<>7THENPRINT
480 FORN=0TOM:PRINT"[204][175][175][175][186]";:NEXT:IFM<>7THENPRINT
490 FORN=0TOM:PRINT"  [146]   ";:NEXT:IFM<>7THENPRINT
500 FORN=0TOM:PRINT"[146][163][163][163][163][163]";:NEXT:POKEV+21,T:POKEA,30
510 SP=0:PI=0:IFM<>7THENPRINT
520 PRINTJ$:GOSUB710:PRINTK$:PRINT:PRINT""SPC(M*2)L$
530 PRINTLEFT$(H$,(M+2)*4+6):GOSUB650:PRINTLEFT$(H$,(M+2)*4+6):RETURN
540 J=PEEK(56320):F=JAND16:J=15-(JAND15):PA=A:IFF=0GOTO310
550 IFJ=0THENRETURN
560 IFJ=1ORJ=2THENGOSUB590:GOTO580
570 GOSUB620
580 FORN=0TO100:NEXT:RETURN
590 IFJ=1THENPI=PI+1:IFPI>FATHENPI=0
600 IFJ=2THENPI=PI-1:IFPI<0THENPI=FA
610 POKE2040+SP,255-PI:RETURN
620 IFJ=8THENA=A+5:SP=SP+1:IFA>1346+M*5THENA=1346:SP=0
630 IFJ=4THENA=A-5:SP=SP-1:IFA<1346THENA=1346+M*5:SP=M
640 POKEPA,32:POKEA,30:RETURN
650 POKE781,17:POKE782,0:POKE783,0:SYS65520:PRINTLEFT$(B$,(M+1)*4+9)I$
660 PRINTLEFT$(G$,(M+2)*4+6)I$
670 PRINTLEFT$(C$,(M+2)*4+6)I$:PRINTLEFT$(G$,(M+2)*4+6)I$
680 PRINTLEFT$(D$,(M+2)*4+6)I$:PRINTLEFT$(G$,(M+2)*4+6)I$:RETURN
690 POKE781,19:POKE782,0:POKE783,0:SYS65520
700 PRINTLEFT$(E$,(R)*4+9):PRINT:PRINTLEFT$(F$,(W)*4+9):N=FRE(0):RETURN
710 POKE781,11:POKE782,0:POKE783,0:SYS65520
720 PRINT"[129]  SCORE [146]   [157][157][157]"SC"[129]   RATING [146] "R$(RR)"[129] ":RETURN
730 DATA"UNEMPLOYED      "
740 DATA"ROOKIE         ","SHEERLUCK      ","PRIVATE EYE    ","DETECTIVE      
750 [131]"INSPECTOR      ","MASTERMIND     ","CHIEF INSPECTOR","SHERLOCK HOLMES
760 POKEU+24,15:FORN=1TO81STEP2:POKEU+1,FH(U%(N)):POKEU,FL(U%(N))
770 POKEU+8,FH(U%(N)):POKEU+7,FL(U%(N)):POKEU+4,65:POKEU+11,65:FORT=1TO(U%(N+1)):NEXT
780 POKEU+4,64:POKEU+11,64:NEXT:POKEU+24,0:RETURN
790 DATA16,195,18,195,21,31,22,96,25,30
800 DATA1,125,3,125,4,125,5,512,5,125,1,125,3,125,4,125,5,512,5,125
810 DATA1,125,3,125,4,125,5,256,3,256,1,256,3,256,2,512
820 DATA2,125,3,125,3,125,2,125,1,512,3,256,5,256,5,125,4,256
830 DATA3,256,5,256,5,125,4,768,4,256,3,125,4,125,5,256,3,256
840 DATA1,256,2,256,2,256,1,512,1,125,0,2,170,128,2,170,128,2,170
850 DATA128,170,170,170,170,170,170,42,255,168,47,190,248,61,255,124
860 DATA245,125,95,198,125,147,229,255,91,63,255,252,63,243,240,15
870 DATA243,240,15,255,240,3,232,192,3,60,192,3,255,192,3,255
880 DATA192,2,255,128,0,190,0,0,5,85,80,21,85,84,31,255
890 DATA244,53,255,92,31,125,246,62,255,190,250,190,175,249,190,111
900 DATA218,255,167,63,255,254,15,255,254,15,255,248,15,195,248,3
910 DATA215,224,3,125,224,3,235,224,3,255,224,0,255,128,0,62
920 DATA0,0,8,0,0,0,0,2,0,1,64,0,21,80,0,85
930 DATA84,1,245,85,3,245,85,1,253,93,2,191,83,2,111,115
940 DATA15,255,79,63,255,204,60,255,252,3,255,204,15,255,240,15
950 DATA63,12,0,63,60,3,252,60,15,252,252,15,240,252,0,3
960 DATA252,0,63,240,0,63,0,252,0,0,0,3,252,0,15,255
970 DATA0,15,255,0,63,255,192,63,255,192,251,254,128,239,250,0
980 DATA59,255,240,59,255,252,63,255,60,55,255,192,15,255,240,58
990 DATA252,240,62,252,48,60,191,208,63,63,244,63,47,241,63,202
1000 DATA128,15,252,0,0,252,0,252,8,0,0,34,128,0,42,32
1010 DATA0,170,160,0,160,40,0,138,252,0,175,175,192,190,95,240
1020 DATA185,31,252,191,127,252,175,252,0,171,255,176,42,254,208,35
1030 DATA251,80,47,241,64,11,205,60,3,255,255,0,255,243,3,243
1040 DATA252,15,252,0,63,240,0,252,0,42,0,0,42,0,0,234
1050 DATA192,3,234,240,15,234,252,43,234,248,42,255,234,134,191,166
1060 DATA149,174,149,150,106,101,165,106,86,42,191,170,42,204,234,63
1070 DATA255,252,15,215,252,13,0,124,12,60,48,15,125,240,3,215
1080 DATA240,3,255,192,0,255,0,0,0,0,0,0,170,0,2,170
1090 DATA128,10,235,160,47,255,224,191,255,248,187,255,184,234,254,172
1100 DATA238,186,236,253,185,252,245,69,124,244,116,124,253,253,252,60
1110 DATA255,240,63,187,240,62,254,240,63,87,240,15,223,192,15,255
1120 DATA192,3,255,0,0,252,0,0,10,170,160,42,170,168,47,255
1130 DATA248,58,255,172,47,190,248,53,255,92,245,125,95,246,125,159
1140 DATA229,255,91,59,190,236,190,255,186,47,255,248,47,60,248,47
1150 DATA235,248,46,190,184,46,215,184,43,255,232,47,235,248,11,235
1160 DATA224,10,170,160,2,170,128,2