home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib28b.dsk / TEST.FILE.MAKER.bas < prev    next >
BASIC Source File  |  2023-02-26  |  431b  |  15 lines
  1. 10  REM  **********************
  2. 20  REM  * TEST.FILE.MAKER    *
  3. 30  REM  * COPYRIGHT 1986 BY  *
  4. 40  REM  * MICROSPARC, INC.   *
  5. 50  REM  * CONCORD, MA  01742 *
  6. 60  REM  **********************
  7. 70 D$ =  CHR$(4):L = 100
  8. 80  PRINT D$;"OPEN TESTFILE,L"L
  9. 90  READ R: IF R = 0  THEN 130
  10. 100  PRINT D$;"WRITE TESTFILE,R"R
  11. 110  PRINT "THIS IS RECORD #"R
  12. 120  GOTO 90
  13. 130  PRINT D$;"CLOSE TESTFILE"
  14. 140  END 
  15. 150  DATA  1,10,100,1000,10000,0