home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1985 June / 1985-06.d64 / assassination (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  1KB  |  26 lines
  1. 10 d=22:f=30720:g=1:h=32:dima%(39):fora=1to10:readc%(a),s%(a):next:a$="[144]"
  2. 20 data 28,116,30,111,31,167,144,170,144,183,156,184,156,188,158,190,159,180,31,181
  3. 30 f1=36875:f2=36877:k=250:l=2:poke36878,15
  4. 50 fora=1to22:a$=a$+chr$(c%(int(rnd(1)*10)+1))+chr$(s%(int(rnd(1)*10)+1))
  5. 60 next:poke36879,30:print"[147]      character":print"    assassination"
  6. 70 print"enter speed(0-9)":print"   9 is the fastest":poke198,0
  7. 80 getb$:ifb$<"0"orb$>"9"then80
  8. 90 s=28-3*val(b$):print"[147]"spc(7)"score[146] 0"
  9. 95 fora=8164to8185:pokea,160:pokea+f,6:next
  10. 100 fora=1to20:print:next:printa$;
  11. 110 fl=0:fora=7724to7745:poke649,1:ss=25:ifa%(a-7724)=0then170
  12. 120 nexta:poke198,0:ifflthen110
  13. 130 print"[146]"spc(7)"game over":print"   play again? (y/n)"
  14. 140 geta$:ifa$="y"thenprintspc(9)"[144]ok":run
  15. 150 ifa$="n"thenpoke828,0:sys828
  16. 160 goto140
  17. 170 fl=1:r1=rnd(1):r2=(-(r1<.5)*(rnd(1)*9+48))+(-(r1>=.5)*(rnd(1)*26+1))
  18. 180 r$=chr$(r2-(r2<30)*64):c=a+418:forb=atocstepd:pokef1,k-l*ss
  19. 190 ss=ss-1:geta$:ifa$<>""thenpoke649,0:ifa$=r$then220
  20. 200 pokeb-d,h:pokeb,r2:pokeb+f,.
  21. 210 fortd=gtos:nexttd:nextb:q=1:gosub230:pokeb-d,h:a%(a-7724)=1:nexta:goto110
  22. 220 q=0:gosub230:pokeb-d,h:sc=sc+ss:print"[146]"spc(12)sc:nexta:goto110
  23. 230 pokef1,0:z=200:pokeb-d+f,2:fort=1to20
  24. 240 pokef2,z:poke36864,5+(q=1):pokeb-d,42-4*(peek(b-d)=42)
  25. 250 z=z-(q=0)*2:poke36864,5:next:pokef2,0:return
  26.