home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 75 / 64er_Magazin_Sonderheft_75_19xx_Markt__Technik_de_Side_A.d64 / demo.moover (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  860b  |  33 lines
  1. 100 ifa=0thena=1:load"sprites",8,1
  2. 110 ifa=1thena=2:load"sprite-moover",8,1
  3. 120 print"[147]"chr$(142);chr$(8)
  4. 130 po=49190:sys49152+3
  5. 140 poke po,255   :rem zeit bewegung
  6. 150 poke po+01,255:rem zeit animation
  7. 160 poke po+02,0  :rem anzahl pixel
  8. 170 poke po+03,255:rem zeit scroll
  9. 180 poke po+04,1  :rem manuell
  10. 190 poke po+05,200:rem zeit auto
  11. 200 poke po+08,6  :rem bsch oben
  12. 210 poke po+09,15 :rem bsch mitte
  13. 220 poke po+10,7  :rem bsch unten
  14. 230 poke po+11,6  :rem rahmen oben
  15. 240 poke po+12,11 :rem rahmen mitte
  16. 250 poke po+13,0  :rem rahmen unten
  17. 260 gosub330
  18. 270 fori=255to0step-1:forj=1to20:next:pokepo+1,i:next
  19. 280 pokepo+4,0:rem auto
  20. 290 if peek(49207)<=32then290
  21. 300 pokepo+4,1:rem manuell
  22. 310 end
  23. 320 :
  24. 330 print"[144] [175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
  25. 340 print"-  -  -  -  -  -  -  -  -  -  -  -  -  "
  26. 350 print"[144][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  27. 360 print"[154]     [209]    [209]  "
  28. 370 print"        [209]   "
  29. 380 print"[144]":forb=0to200step7:gosub400:next:print""
  30. 390 return
  31. 400 print"[197][196][198][196][197]";:printspc(b/10);
  32. 410 return
  33.