home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 4 / FreshFish_May-June1994.bin / new / amigalibdisks / d977 / forth / basic-benchmarks / lines < prev    next >
Encoding:
Text File  |  1994-04-03  |  129 b   |  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.