home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / dos / fragment.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-12-25  |  640 b   |  20 lines
  1. 10  SCREEN 0,0:WIDTH 80:CLS
  2. 15  PRINT "This program copies large ASCII files into smaller ones
  3. 17  PRINT "(about 23K each) that can then be edited by word-processing
  4. 18  PRINT "programs with limited file-handling capacity.";:PRINT:PRINT:PRINT
  5. 20  INPUT "Name of EXISTING file to be broken up";BREAKFILE$
  6. 30  OPEN BREAKFILE$ FOR INPUT AS #1
  7. 40  INPUT "Name of first small file to be created";NEWFILE$
  8. 50  OPEN NEWFILE$ FOR OUTPUT AS #2
  9. 60  FOR I = 1 TO 512
  10. 70  IF EOF(1) THEN GOTO 200
  11. 80  LINE INPUT #1,LINEDATA$
  12. 90  PRINT #2,LINEDATA$
  13. 100  NEXT I
  14. 110  CLOSE 2
  15. 120  INPUT "Name of next small file to be created";NEWFILE$
  16. 130  GOTO 50
  17. 200  CLOSE
  18. 210  PRINT:PRINT:PRINT "Finished."
  19. 220  END
  20.