home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 2: PC / frozenfish_august_1995.bin / bbs / d09xx / d0977.lha / Forth / Basic-Benchmarks / lines < prev    next >
Text File  |  1994-04-03  |  129b  |  11 lines
  1. t=timer
  2. for a= 1 to 10
  3. FOR x=0 TO 2
  4.   FOR y=0 TO 200 
  5.   LINE (640-x,y)-(x,200-y),x+1
  6.   NEXT y
  7. NEXT x
  8. next a
  9. ?timer-t
  10. sleep:sleep
  11.