home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 6 / 64er_Magazin_Sonderheft_06_86-06_1986_Markt__Technik_de_Disk_1_of_3_Side_A.d64 / tuerme (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  480b  |  21 lines
  1. 0 rem   tuerme
  2. 10 (NULL)1:(NULL)1:(NULL)
  3. 20 (NULL):(NULL)1:(NULL)14,0:poke53280,0
  4. 60 forz= 5to1step-1:rem hinten => vorne
  5. 70 fors=15to0step-1:rem rechts => links
  6. 90 x=60+s*16-z*8
  7. 100 y=202-z*8
  8. 120 h=(z-1)*25+rnd(1)*58
  9. 150 gosub10000
  10. 180 next
  11. 190 next
  12. 210 (NULL)0,0
  13. 9000 (NULL)
  14. 9020 fori=0to10000:next:run
  15. 10000 ax=x+4:bx=x-12:cx=x+12:dx=x-4:ex=bx:fx=dx:gx=cx
  16. 10010 ey=y-4:fy=y+4:gy=fy:ay=ey-h:by=ay:cy=fy-h:dy=fy-h
  17. 10020 (NULL)2:(NULL)ax,ay,bx,by:(NULL)ax,ay,cx,cy:(NULL)bx,by,dx,dy:(NULL)cx,cy,dx,dy
  18. 10030 (NULL)1:(NULL)bx,by,ex,ey:(NULL)dx,dy,fx,fy:(NULL)cx,cy,gx,gy:(NULL)ex,ey,fx,fy
  19. 10040 (NULL)gx,gy,fx,fy
  20. 10050 return
  21.