home *** CD-ROM | disk | FTP | other *** search
/ Falcon 030 Power 2 / F030_POWER2.iso / ST_STE / MAGS / STOSBTS1.ARJ / stosbts1.msa / PROGRAMM / PMDBS.ASC < prev    next >
Text File  |  1987-04-22  |  1KB  |  38 lines
  1. 100 rem COSINE DeBOUNCE v2.3 for GIANT
  2. 110 rem NEEDS SPRITE 1 (16x16) in BANK 1    and SCREEN (PACKED) IN BANK 2
  3. 120 rem SEE ALSO TEXT FILE!
  4. 130 rem SAMPLE
  5. 140 mode 0 : menu off : key off : curs off : click off : hide 
  6. 150 repeat 
  7. 160 sprite off : unpack 2,logic : unpack 2,back : wait vbl 
  8. 170 C#=237 : X=rnd(180)+10
  9. 180 ink 1 : ellipse X,195,8,3
  10. 190 I=rnd(2)+1
  11. 200 if I=1 then colour 7,$400 : colour 8,$700 : colour 9,$744
  12. 210 if I=2 then colour 7,$40 : colour 8,$70 : colour 9,$474
  13. 220 if I=3 then colour 7,$4 : colour 8,$7 : colour 9,$447
  14. 230 for B=1 to 30
  15. 240 D#=C#*0.75 : E=int(D#)
  16. 250 for A=180 to 1 step-B
  17. 260 Z#=A*0.01745329*0.5
  18. 270 Y=195-(cos(Z#)*E)
  19. 280 sprite 1,X,Y,1
  20. 290 next A
  21. 300 for A=2 to 179 step B
  22. 310 Z#=A*0.01745329*0.5
  23. 320 Y=194-(cos(Z#)*E)
  24. 330 sprite 1,X,Y,1
  25. 340 next A
  26. 350 C#=D#
  27. 360 rem SAMPLAY
  28. 370 next B
  29. 380 for I=1 to 50 : wait vbl : next I
  30. 390 sprite off : ink 0 : bar 0,186 to 319,199 : rem SAMSTOP
  31. 400 until mouse key<>0
  32. 410 fade 3,$777,$777,$777,$777,$777,$777,$777,$777,$777,$777,$777,$777,$777,$777,$777,$777 : rem SAMSTOP
  33. 420 for I=1 to 30 : wait vbl : next I
  34. 430 logic=default logic
  35. 440 back=default back
  36. 450 physic=default physic
  37. 460 show 
  38.