home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1990 May / 1990-05.d64 / sheerluck (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  5.2 KB  |  117 lines
  1. 10 rem copyright 1990 compute! publications, inc. - all rights reserved
  2. 20 poke53280,6:poke53281,6:print"[147]":poke781,7:poke782,14:poke783,0:poke53269,0
  3. 30 sys65520:print"[159] sheerluck ":z=rnd(-ti/100)
  4. 40 printspc(3)"copyright 1990 compute! publ., inc."
  5. 50 printtab(11)"all rights reserved"
  6. 60 a$="[158] jim  bob  abe  rob  bud  sam  tom  dan
  7. 70 b$[178]"         1   2   3   4   5   6   7   8
  8. 80 c$=" 100% [158]   [167]   [167]   [167]   [167]   [167]   [167]   [167]   [167]
  9. 90 d$[178]" 50%  sys   then   then   then   then   then   then   then   then
  10. 100 e$=" 100%    [167]   [167]   [167]   [167]   [167]   [167]   [167]   [167]
  11. 110 f$[178]" 50%     then   then   then   then   then   then   then   then
  12. 120 g$="   [158]      [167]   [167]   [167]   [167]   [167]   [167]   [167]   [167]
  13. 130 h$[178]"                                       ":i$[178]" 
  14. 140 j$="[129][169]                                     [223]
  15. 150 k$[178]"waitfor(NULL)                                     waitstep":l$[178]"steptruth meter(NULL)
  16. 160 forn=1to9:ready$:r$(n)=y$:next
  17. 170 dimu%(92):forn=1to5:readfh(n):readfl(n):next:n=0
  18. 180 n=n+1:readu%(n):ifu%(n)<>0then180
  19. 190 forn=15872to16383:readd:h=h+d:poken,d:next
  20. 200 ifh<>68445thenprint"data statement error.":stop
  21. 210 m=1:fa=7:u=54272:pokeu+5,48:pokeu+6,250:pokeu+3,7:pokeu+2,150
  22. 220 pokeu+12,44:pokeu+13,248:pokev+9,99:pokeu+10,255
  23. 230 s=12-((7-m)*2):sc=int((1/(8-m)*99)):rr=9-int(99/(sc+10)):ifrr<1thenrr=1
  24. 240 gosub380:forn=0tofa:c%(n)=n:next:forn=0tom:r1=int(rnd(0)*(fa+1))
  25. 250 r2=int(rnd(0)*(fa+1)):ifr1=r2then250
  26. 260 t=c%(r1):c%(r1)=c%(r2):c%(r2)=t:next
  27. 270 gosub540:ifr<>m+1thengoto270
  28. 280 gosub760:ifsc>(1/(8-m)*99)/3thenm=m+1
  29. 290 ifm>7thenm=7
  30. 300 r=0:goto230:end
  31. 310 sc=sc-1:ifsc<0thensc=0
  32. 320 rr=9-int(99/(sc+10)):ifrr<1thenrr=1
  33. 330 gosub710:gosub650:forn=0tom:d%(n)=0:next:r=0:w=0
  34. 340 forn=0tom:l=255-(peek(2040+n)):ifl=c%(n)andd%(n)=0thenr=r+1:d%(n)=1
  35. 350 next:forn=0tom:l=255-(peek(2040+n))
  36. 360 fork=0tom:ifl=c%(k)andd%(k)=0thenw=w+1:d%(k)=1:k=m
  37. 370 next:next:gosub690:return
  38. 380 print"[147]":a=1346:printleft$(a$,(m+1)*5)
  39. 390 v=53248:pokev+28,255:pokev+37,1:pokev+38,10:pokev+27,255:pokev+29,0
  40. 400 pokev+23,0:forn=0tom:x=29+n*40:ifx>255thenx=x-255
  41. 410 pokev+n*2,x:pokev+1+2*n,88:pokev+39+n,0:poke2040+n,255:next
  42. 420 t=0:forn=0tom:t=t+2^n:next
  43. 430 pokev+16,192:forn=0tom:print"[164][164][164][164][164]";:next:ifm<>7thenprint
  44. 440 forn=0tom:print"  [146]   ";:next:ifm<>7thenprint
  45. 450 forn=0tom:print"[146][207][183][183][183][208]";:next:ifm<>7thenprint
  46. 460 forn=0tom:print"[146][180]   [170]";:next:ifm<>7thenprint
  47. 470 forn=0tom:print"[146][180]   [170]";:next:ifm<>7thenprint
  48. 480 forn=0tom:print"[204][175][175][175][186]";:next:ifm<>7thenprint
  49. 490 forn=0tom:print"  [146]   ";:next:ifm<>7thenprint
  50. 500 forn=0tom:print"[146][163][163][163][163][163]";:next:pokev+21,t:pokea,30
  51. 510 sp=0:pi=0:ifm<>7thenprint
  52. 520 printj$:gosub710:printk$:print:print""spc(m*2)l$
  53. 530 printleft$(h$,(m+2)*4+6):gosub650:printleft$(h$,(m+2)*4+6):return
  54. 540 j=peek(56320):f=jand16:j=15-(jand15):pa=a:iff=0goto310
  55. 550 ifj=0thenreturn
  56. 560 ifj=1orj=2thengosub590:goto580
  57. 570 gosub620
  58. 580 forn=0to100:next:return
  59. 590 ifj=1thenpi=pi+1:ifpi>fathenpi=0
  60. 600 ifj=2thenpi=pi-1:ifpi<0thenpi=fa
  61. 610 poke2040+sp,255-pi:return
  62. 620 ifj=8thena=a+5:sp=sp+1:ifa>1346+m*5thena=1346:sp=0
  63. 630 ifj=4thena=a-5:sp=sp-1:ifa<1346thena=1346+m*5:sp=m
  64. 640 pokepa,32:pokea,30:return
  65. 650 poke781,17:poke782,0:poke783,0:sys65520:printleft$(b$,(m+1)*4+9)i$
  66. 660 printleft$(g$,(m+2)*4+6)i$
  67. 670 printleft$(c$,(m+2)*4+6)i$:printleft$(g$,(m+2)*4+6)i$
  68. 680 printleft$(d$,(m+2)*4+6)i$:printleft$(g$,(m+2)*4+6)i$:return
  69. 690 poke781,19:poke782,0:poke783,0:sys65520
  70. 700 printleft$(e$,(r)*4+9):print:printleft$(f$,(w)*4+9):n=fre(0):return
  71. 710 poke781,11:poke782,0:poke783,0:sys65520
  72. 720 print"[129]  score [146]   [157][157][157]"sc"[129]   rating [146] "r$(rr)"[129] ":return
  73. 730 data"unemployed      "
  74. 740 data"rookie         ","sheerluck      ","private eye    ","detective      
  75. 750 [131]"inspector      ","mastermind     ","chief inspector","sherlock holmes
  76. 760 pokeu+24,15:forn=1to81step2:pokeu+1,fh(u%(n)):pokeu,fl(u%(n))
  77. 770 pokeu+8,fh(u%(n)):pokeu+7,fl(u%(n)):pokeu+4,65:pokeu+11,65:fort=1to(u%(n+1)):next
  78. 780 pokeu+4,64:pokeu+11,64:next:pokeu+24,0:return
  79. 790 data16,195,18,195,21,31,22,96,25,30
  80. 800 data1,125,3,125,4,125,5,512,5,125,1,125,3,125,4,125,5,512,5,125
  81. 810 data1,125,3,125,4,125,5,256,3,256,1,256,3,256,2,512
  82. 820 data2,125,3,125,3,125,2,125,1,512,3,256,5,256,5,125,4,256
  83. 830 data3,256,5,256,5,125,4,768,4,256,3,125,4,125,5,256,3,256
  84. 840 data1,256,2,256,2,256,1,512,1,125,0,2,170,128,2,170,128,2,170
  85. 850 data128,170,170,170,170,170,170,42,255,168,47,190,248,61,255,124
  86. 860 data245,125,95,198,125,147,229,255,91,63,255,252,63,243,240,15
  87. 870 data243,240,15,255,240,3,232,192,3,60,192,3,255,192,3,255
  88. 880 data192,2,255,128,0,190,0,0,5,85,80,21,85,84,31,255
  89. 890 data244,53,255,92,31,125,246,62,255,190,250,190,175,249,190,111
  90. 900 data218,255,167,63,255,254,15,255,254,15,255,248,15,195,248,3
  91. 910 data215,224,3,125,224,3,235,224,3,255,224,0,255,128,0,62
  92. 920 data0,0,8,0,0,0,0,2,0,1,64,0,21,80,0,85
  93. 930 data84,1,245,85,3,245,85,1,253,93,2,191,83,2,111,115
  94. 940 data15,255,79,63,255,204,60,255,252,3,255,204,15,255,240,15
  95. 950 data63,12,0,63,60,3,252,60,15,252,252,15,240,252,0,3
  96. 960 data252,0,63,240,0,63,0,252,0,0,0,3,252,0,15,255
  97. 970 data0,15,255,0,63,255,192,63,255,192,251,254,128,239,250,0
  98. 980 data59,255,240,59,255,252,63,255,60,55,255,192,15,255,240,58
  99. 990 data252,240,62,252,48,60,191,208,63,63,244,63,47,241,63,202
  100. 1000 data128,15,252,0,0,252,0,252,8,0,0,34,128,0,42,32
  101. 1010 data0,170,160,0,160,40,0,138,252,0,175,175,192,190,95,240
  102. 1020 data185,31,252,191,127,252,175,252,0,171,255,176,42,254,208,35
  103. 1030 data251,80,47,241,64,11,205,60,3,255,255,0,255,243,3,243
  104. 1040 data252,15,252,0,63,240,0,252,0,42,0,0,42,0,0,234
  105. 1050 data192,3,234,240,15,234,252,43,234,248,42,255,234,134,191,166
  106. 1060 data149,174,149,150,106,101,165,106,86,42,191,170,42,204,234,63
  107. 1070 data255,252,15,215,252,13,0,124,12,60,48,15,125,240,3,215
  108. 1080 data240,3,255,192,0,255,0,0,0,0,0,0,170,0,2,170
  109. 1090 data128,10,235,160,47,255,224,191,255,248,187,255,184,234,254,172
  110. 1100 data238,186,236,253,185,252,245,69,124,244,116,124,253,253,252,60
  111. 1110 data255,240,63,187,240,62,254,240,63,87,240,15,223,192,15,255
  112. 1120 data192,3,255,0,0,252,0,0,10,170,160,42,170,168,47,255
  113. 1130 data248,58,255,172,47,190,248,53,255,92,245,125,95,246,125,159
  114. 1140 data229,255,91,59,190,236,190,255,186,47,255,248,47,60,248,47
  115. 1150 data235,248,46,190,184,46,215,184,43,255,232,47,235,248,11,235
  116. 1160 data224,10,170,160,2,170,128,2
  117.