home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 4 / FreshFish_May-June1994.bin / new / amigalibdisks / d977 / forth / basic-benchmarks / write < prev   
Encoding:
Text File  |  1994-04-03  |  227 b   |  14 lines
  1. t=TIMER
  2. 100 A$="12345678123456781234567812345678"
  3. 120 B$=A$+A$+A$+A$
  4. 140 NR=512
  5. 160 OPEN "ram:TEST" FOR OUTPUT AS #1
  6. 180 FOR I=1 TO NR
  7. 200 PRINT #1, B$;
  8. 220 NEXT I
  9. 240 CLOSE #1
  10. t=TIMER-t
  11. 260 PRINT "DONE in";t;"secs."
  12. INPUT A$
  13.  
  14.