home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1985 June / Ahoy_Magazine_85-06_1985_Double_L.d64 / speedy (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  53 lines
  1. 2 goto85
  2. 4 p=-22:goto39
  3. 5 p=+22:goto39
  4. 7 p=-1:goto39
  5. 8 p=-23:goto39
  6. 9 p=+21:goto39
  7. 11 p=+1:goto39
  8. 12 p=-21:goto39
  9. 13 p=+23:goto39
  10. 15 pokee-2,241:o=o+7:pokee,241:f=f+1:iff=zthen52
  11. 16 pokee,135:pokee-2,0:goto48
  12. 30 print"[147]":v=36878:pokev,15:pokev-9,255:pokev+1,8:e=36876:a=7911:b=30720:z=z+5:p=0
  13. 31 tt=int(rnd(1)*400)+7746:pokett,3                                               
  14. 32 fort=1toz+ec*2:pokee,135:tt=int(rnd(1)*418)+7746:pokett+b,4:pokett,2:pokee,0:next
  15. 34 fort=1toz:pokee,241:tt=int(rnd(1)*418)+7746:ifpeek(tt)=1thenf=f+1
  16. 35 pokett+b,5:pokett,1:pokee,0:next
  17. 36 fort=1to500:next:pokee,135:pokee-1,135
  18. 38 pokea+b,2:pokea,.:pokeg,32:d=peek(828):sys831:ondgoto4,5,6,7,8,9,10,11,12,13
  19. 39 g=a:a=a+p:print"score=";o;" clones=";s:q=peek(a):ifq=1then15
  20. 41 ifq=2then60
  21. 42 ifq=3then56
  22. 43 ifa>8142thena=a-484
  23. 44 ifa<7724thena=a+484
  24. 48 goto38
  25. 52 pokeg,32:pokea,.:pokea+b,2:pokee-2,241:fort=1to500:next:pokee-1,241:fort=1to500:next
  26. 53 rl=rl+1:pokee,241:fort=1to900:next:pokee,.:pokee-2,.:pokee-1,.
  27. 54 s=s+1:p=0:f=0:goto30
  28. 56 pokee,0:pokeg,32:pokea,.:pokea+b,2:pokee,155:gosub59:pokee,0:gosub59:pokee,200
  29. 57 gosub59:pokee,0:gosub59:pokee,241:gosub59:pokee,0:gosub59:pokee,135:o=o+f*ec:p=0
  30. 58 goto43
  31. 59 fort=1to100:next:return
  32. 60 pokeg,32:pokea,4:pokea+b,7:fort=15to0step-1:pokev,t:pokee+1,225+t:next:pokee+1,0
  33. 62 s=s-1:ifs=0then65
  34. 63 p=0:f=0:z=z-5:goto30
  35. 65 o=o+rl*50:print" [158]game over[144]":fort=1to1000:next:ifo>lthenl=o
  36. 66 poke36879,24:print"[147]your[157][157][157][157]score=";o:print"high[157][157][157][157]score=";l
  37. 67 ifo<landl-o<50thenprint"close,but not close      enough."
  38. 68 print"you got to screen";rl:printrl*50;"bonus.":print"hit a key to try again"
  39. 69 geta$:ifa$=""then69
  40. 70 p=0:o=0:f=0:z=0:goto99
  41. 72 poke36879,8:print"[147][158]spe[159]e[156]d[158]y":print"[156]by[157][157]kevin[157][157][157][157][157]dewey"
  42. 73 poke36869,240:print"skill level(1-15)";:inputec
  43. 74 ifec<1orec>15then72
  44. 75 goto30
  45. 85 poke52,28:poke56,28:clr:for a=828 to 881:readb:pokea,b:next
  46. 86 fori=7168to7679:pokei,peek(i+25600):next:forc=7168to7208:readb:pokec,b:next
  47. 90 data 0,0,0,169,127,141,34,145,169,0,141,19,145,173,32,145,74,74,41,32,141,62,3
  48. 91 data 173,17,145,41,28,13,62,3,74, 74,73,15,141,60,3,173,17,145,41,32
  49. 92 data 73,32,141,61,3,169,255,141,34,145,96
  50. 93 data60,126,219,255,231,189,66,60,255,126,90,255,165,189,129,255,255,90,126,231,255
  51. 94 data129,189,255,255,145,145,159,249,137,137,255,137,74,44,224,7,52,82,145,0,0
  52. 99 s=7:rl=1:goto72
  53.