home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / STOSSER / STOSSE07.MSA / EXPLODE / EXPLODE.ASC
Text File  |  1987-04-22  |  618b  |  15 lines
  1. 1 rem Explode version 2?
  2. 2 rem 27/9/93
  3. 10 mode 0 : key off : click off : curs off : hide 
  4. 20 P=20
  5. 22 FAIL=false
  6. 30 dim X(P),Y(P),XX(P),YY(P),YV(P),C(P)
  7. 40 for T=1 to P : X(T)=160 : Y(T)=100 : XX(T)=rnd(3)+1/4.0+1.0 : YY(T)=rnd(3)+1/4.0+1.0 : C(T)=rnd(14)+1 : YV(T)=rnd(2)/1.0+1.0 : next T
  8. 42 for T=1 to P/2 : XX(T)=-XX(T) : YY(T)=-YY(T) : next T
  9. 44 for T=P/2+1 to P : YY(T)=-YY(T) : next T
  10. 45 repeat 
  11. 50 for T=1 to P : ink C(T) : plot X(T),Y(T) : next T
  12. 60 for T=1 to P : X(T)=X(T)+XX(T) : Y(T)=Y(T)+YY(T) : YY(T)=YY(T)+YV(T) : if Y(T)>199 or X(T)>319 then FAIL=true
  13. 65 next T
  14. 70 cls physic : until FAIL
  15.