home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib32a.dsk / AUGUST.1987 / SAMPLE.CREATOR.bas < prev    next >
BASIC Source File  |  2023-02-26  |  648b  |  18 lines
  1. 10  REM  ************************
  2. 20  REM  * SAMPLE.CREATOR       *
  3. 30  REM  * BY KEN KASHMAREK     *
  4. 40  REM  * COPYRIGHT (C) 1987   *
  5. 50  REM  * BY MICROSPARC, INC.  *
  6. 60  REM  * CONCORD, MA  01742   *
  7. 70  REM  ************************
  8. 80  TEXT : HOME : NORMAL 
  9. 90  PRINT "SAMPLE FILE CREATOR"
  10. 100  PRINT "BY KEN KASHMAREK"
  11. 110  PRINT "COPYRIGHT 1987 BY MICROSPARC, INC"
  12. 120  VTAB 10: PRINT "CREATING SAMPLE FILE..."
  13. 130 D$ =  CHR$(4)
  14. 140  PRINT D$"OPEN SAMPLE": PRINT D$"WRITE SAMPLE"
  15. 150  FOR X = 1 TO 200: PRINT "THIS IS RECORD ";X;" OF THE FILE"
  16. 160  NEXT 
  17. 170  PRINT D$"CLOSE"
  18. 180  VTAB 10: PRINT  CHR$(7);"SAMPLE FILE SUCCESSFULLY CREATED."