home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8504b.d64 / kuchen-dia. (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  312b  |  18 lines
  1. 0 REM      KUCHEN
  2. 10 (null):(null)1,6:(null)1:(null)1:(null)1:(null)
  3. 50 (null)160,90,140,80
  4. 60 (null)20,90,20,110:(null)300,90,300,110
  5. 70 (null)160,110,140,80,0,(null)/2,3/2*(null),(null)/60
  6. 100 FORI=1TO10
  7. 110 A(I)=RND(1)
  8. 120 NEXT
  9. 150 FORI=1TO10:S=S+A(I):NEXT
  10. 160 FA=2*(null)/S
  11. 175 W=0
  12. 180 FORI=1TO10
  13. 190 W=FA*A(I)+W
  14. 200 (null)160,90,SIN(W)*140+160,90-COS(W)*80
  15. 210 NEXT
  16. 230 (null)160,180
  17. 240 FORI=0TO10000:NEXT:RUN
  18.