home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 April / 64er_Magazin_88-04_1988_Markt__Technik_de_Side_A.d64 / nervensaege (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  349b  |  19 lines
  1. 5 i=1:p=2
  2. 10 sid=54272:y=255
  3. 20 pokesid+24,15:pokesid+5,240:pokesid+6,255:pokesid,15:pokesid+14,15
  4. 60 pokesid+4,21
  5. 70 forq=0to255
  6. 75 y=y-p:o=q+(y*i)
  7. 77 ifo<0theno=0:i=i*-1
  8. 78 ifo>255theno=255:i=i*-1
  9. 80 pokesid+1,q:pokesid+15,o
  10. 90 next
  11. 100 forq=255to0step-1
  12. 110 y=y+p:o=q+(y*i)
  13. 120 ifo<0theno=0:i=i*-1
  14. 130 ifo>255theno=255:i=i*-1
  15. 140 pokesid+1,q:pokesid+15,o
  16. 150 next
  17. 160 p=p+2:ifp=10thenp=2
  18. 170 goto70
  19.