home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 43 / 64er_Magazin_Sonderheft_43_19xx_Markt__Technik_de_Side_A.d64 / borderless.demo (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  709 b   |  27 lines
  1. 1 ifpeek(51000)<>120thenload"borderless",8,8
  2. 2 poke56,63:clr
  3. 3 sys65409:sys51000
  4. 4 poke53280,12:poke53281,11
  5. 5 v=5:n=172:j=1:k=2
  6. 10 poke53269,3:poke2040,11:poke2041,11
  7. 11 poke53288,0
  8. 12 fori=.to62:poke704+i,rnd(0)*256:next
  9. 13 print"[147]"tab(6)"[154]obere grenze textbildschirm
  10. 14 [153]""[163]6)"untere grenze textbildschirmdef
  11. 15 print"  demo 'borderless': sprites im rahmen
  12. 16 [153]"   nikolaus heusler, 1989 -- sh 64'er
  13. 17 print" wegen der sprites flackert es etwas...
  14. 18 [153]"      sorry...  ist halt nur basic
  15. 20 fory=.to255step5
  16. 22 poke53249,y
  17. 24 x=sin(a)*148+172
  18. 26 poke53264,x/256:poke53248,xand255
  19. 28 a=a+.05
  20. 30 poke53251,((cos(a*7)*17)+12)and255
  21. 32 poke53250,n
  22. 34 n=n+v:ifn<94orn>250thenv=-v
  23. 36 poke16383,2^k
  24. 38 k=(k+j)and7:w=w+1:ifw=20thenw=.:j=-j
  25. 40 next
  26. 50 goto20
  27.