home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 63 / 64er_Magazin_Sonderheft_63_19xx_Markt__Technik_de_Side_A.d64 / demo1 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  34 lines
  1. 10 v=53248:pokev+30,0:pokev+32,0:pokev+33,0:pokev+23,0:pokev+29,0
  2. 20 poke56576,1:poke648,132:poke56,128:printchr$(147)chr$(153)
  3. 30 forsp=128to130
  4. 40 forby=0to41:readw:poke32768+sp*64+by,w:nextby
  5. 50 forb0=42to62:poke32768+sp*64+b0,0:nextb0,sp
  6. 60 forsp=131to134
  7. 70 forby=0to29:readw:poke32768+sp*64+by,w:nextby
  8. 80 forb0=30to62:poke32768+sp*64+b0,0:nextb0,sp
  9. 90 pokev+21,3:pokev+39,6:pokev+40,12:pokev+3,60
  10. 100 b1=128:b2=131:ri=1:y1=250
  11. 110 forxk=0to344
  12. 120 poke34808,b1:poke34809,b2
  13. 130 pokev,xkand255:pokev+2,xkand255:pokev+1,y1:pokev+16,int(xk/256)*3
  14. 140 ko=peek(v+30):ifko>0thenpokev+30,0:y1=250
  15. 150 pokev+32,ko
  16. 160 b1=128+abs((xkand3)-1):b2=b2+1:ifb2>134thenb2=131
  17. 170 y1=y1-1
  18. 180 nextxk
  19. 190 goto100
  20. 200 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,240,0,193,248,192,166,4,192,88,18
  21. 210 data0,88,2,0,166,4,0,193,248,0,0,32,0,0,64,0 : rem fisch1
  22. 220 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,112,0,240,80,65,248,112,102,4,0,88,18
  23. 230 data0,88,3,0,102,4,0,65,248,0,0,32,0,0,32,0 : rem fisch2
  24. 240 data0,0,48,0,0,72,0,0,72,0,0,48,0,0,0,0,240,0,193,248,192,166,4,192,88
  25. 250 data18,0,88,2,0,166,4,0,193,248,0,0,32,0,0,16,0 : rem fisch3
  26. 260 data8,0,0,8,0,0,120,0,0,72,0,0,75,222,238,74,82,170,255,255,255,128,0,2
  27. 270 data153,153,157,102,102,102 : rem frachter1
  28. 280 data28,0,0,8,0,0,120,0,0,72,0,0,75,222,238,74,82,170,255,255,255,128,0,2
  29. 290 data179,51,55,204,204,204 : rem frachter2
  30. 300 data62,0,0,8,0,0,120,0,0,72,0,0,75,222,238,74,82,170,255,255,255,128,0,2
  31. 310 data230,102,102,153,153,153 : rem frachter3
  32. 320 data28,0,0,8,0,0,120,0,0,72,0,0,75,222,238,74,82,170,255,255,255,128,0,2
  33. 330 data204,204,204,51,51,51 : rem frachter4
  34.