home *** CD-ROM | disk | FTP | other *** search
/ The CDPD Public Domain Collection for CDTV 3 / CDPDIII.bin / pd / programming / amos / lturbo / demos / fast_plot.asc < prev    next >
Text File  |  1980-05-18  |  375b  |  25 lines
  1. Cls 0
  2. Multi No 
  3. Dim X(500),Y(500),KOL(500)
  4. For I=1 To 500
  5.    X(I)=Rnd(319)
  6.    Y(I)=Rnd(199)
  7.    KOL(I)=Rnd(7)+1
  8. Next 
  9. T=Timer
  10. For I=1 To 500
  11. F Plot X(I),Y(I),KOL(I)
  12. Next 
  13. Print " F Plot timing in VBL's";Timer-T
  14. Repeat 
  15.    Multi Wait 
  16. Until Left Click
  17. T=Timer
  18. For I=1 To 500
  19. Plot X(I),Y(I),KOL(I)
  20. Next 
  21. Print " Plot timing in VBL's";Timer-T
  22. Multi Yes 
  23. Repeat 
  24. Until Left Click
  25.