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 / farbstatistik (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  553b  |  21 lines
  1. 10 rem    farbstatistik
  2. 20 (NULL):(NULL)1:(NULL)14,0:poke53280,0
  3. 30 :
  4. 60 (NULL)0:fori=199to0step-10:(NULL)2,i:next
  5. 65 (NULL)199:fori=29to319step30:(NULL)i,198:next
  6. 70 fora=1to10:x=-6+30*a:(NULL)a,0
  7. 100 y=180
  8. 120 h=rnd(1)*120
  9. 130 h=int(h*100+.5)/100
  10. 150 gosub10000:(NULL)x,y-1:(NULL)x,y-h-1
  11. 160 (NULL)cx,cy,dx,dy
  12. 170 (NULL)3,1,1,0,8,x-5,30-(h>=1)*8-(h>=10)*8-(h>=100)*8,h
  13. 180 next
  14. 9020 fori=0to20000: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)ax,ay,bx,by:(NULL)ax,ay,cx,cy:(NULL)bx,by,dx,dy:(NULL)cx,cy,dx,dy
  18. 10030 (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.