home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 85 / 64er_Magazin_Sonderheft_85_19xx_Markt__Technik_de_Side_B.d64 / 20 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  1.8 KB  |  51 lines
  1. 10 v=53248:poke53281,14:pokev+28,255:pokev+21,255:pokev+37,9:pokev+38,7:d=10
  2. 11 pokev,0:pokev+30,0:poke16383,255:pokev+16,0:pokev+27,0
  3. 20 pokev+39,2:pokev+40,2:fort=41to45:pokev+t,8:nextt:poke2040,226:poke2041,240
  4. 30 fort=4to5:poke2040+t,231+t:nextt:pokev+23,252:pokev+29,252:pokev+4,255-48
  5. 40 pokev+5,90:pokev+6,255-48:pokev+7,90+42:pokev+8,255-48:pokev+9,90+84:poke2046,238
  6. 50 pokev+10,255:pokev+11,90+84:pokev+12,255:pokev+13,90+42:x=100:y=150:poke2042,237
  7. 51 print"[129][147]";:forr=0to998:print"[178]";:next:poke2023,114:print"":poke2047,239
  8. 52 pokev+46,1:pokev+15,90:poke2043,241:poke2044,235:poke2045,236
  9. 53 fort=171to0step-22:pokev+14,t:gosub100:pokev+17,t/22+17:nextt:goto53
  10. 100 j=peek(56320):if(jand1)=0theny=y-4:poke2040,228:ify<50theny=y+4
  11. 101 if(jand2)=.theny=y+4:poke2040,227:ify>227theny=y-4
  12. 102 if(jand4)=.thenx=x-4:ifx<25thenx=x+4
  13. 103 if(jand8)=.thenx=x+4:ifx>210thenx=x-4
  14. 104 wait653,1,1:if(jand16)=.anda=.theny1=y-4:x1=x+10:a=1
  15. 105 ifa=1thenx1=x1+20:ifx1>255thena=.:x1=.:y1=.
  16. 106 ifpeek(v+30)<>.thengosub110
  17. 107 if(jand1)<>.and(jand2)<>.thenpoke2040,226
  18. 108 geta$:ifa$="[219]"thend=.:goto120
  19. 109 pokev,x:pokev+1,y:pokev+2,x1:pokev+3,y1:return
  20. 110 sk=peek(v+30):ifsk=5then200
  21. 111 ifsk=9then200
  22. 112 ifsk=17then200
  23. 113 ifsk=33then200
  24. 114 ifsk=65then200
  25. 115 ifsk=129then200
  26. 116 ifsk=6thengosub120
  27. 117 pokev+30,0:return
  28. 120 forr=41to45:pokev+r,1:nextr:ifd=0then150
  29. 121 forr=41to45:pokev+r,8:nextr:d=d-1:return
  30. 150 pokev+21,125:poke2040,226
  31. 151 fort=0to255:pokev+41,t:nextt:pokev+21,121
  32. 152 fort=0to255:pokev+42,t:nextt:pokev+21,113
  33. 153 fort=0to255:pokev+43,t:nextt:pokev+21,97
  34. 154 fort=0to255:pokev+44,t:nextt:pokev+21,65
  35. 155 fort=0to255:pokev+45,t:nextt:pokev+21,1
  36. 156 forr=xto248step8:fort=0to7:pokev,r+t:pokev+22,(7-t)+16:nextt,r
  37. 157 pokev+16,1:forr=0to60step8:fort=0to7:pokev,t+r:pokev+22,(7-t)+16:nextt,r
  38. 158 print"[147]":pokev+17,27:pokev+22,24:pokev+1,0:pokev+16,0:pokes+24,0:goto1000
  39. 200 print"":ifpeek(139)=0then250
  40. 201 print"ship destroyed":print"continues";peek(139)
  41. 202 poke139,(peek(139))-1:fort=0to255:pokev+39,t:nextt:fort=0to500:nextt:run
  42. 250 pokev+17,27:pokev+22,24:poke53281,0
  43. 251 v=53248:forr=0to15:pokev+r,0:next
  44. 252 s=54272:fort=0to24:pokes+t,0:next
  45. 253 print"[147][144]load"chr$(34)"02"chr$(34)",8"
  46. 254 print"run"
  47. 255 poke 198,10
  48. 256 poke631,19:poke632,13:poke633,13:new
  49. 1000 poke53281,0:print"[147][144]load"chr$(34)"21"chr$(34)",8":print"run:":poke198,10:poke631,19
  50. 1010 poke632,13:poke633,13:end
  51.