home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / ENTRY.ZIP / CONVERT.BAS next >
Encoding:
BASIC Source File  |  1988-04-06  |  757 b   |  22 lines
  1. 10 ON ERROR GOTO 210
  2. 20 DIM R(50),C(50),P$(50),T(50),S(50),F$(50)
  3. 30 CLS : KEY OFF
  4. 40 INPUT "FORMAT FILE            ";I$ : PRINT : INPUT "RANDOM INPUT FILE      ";O$ : PRINT : INPUT "SEQUENTIAL OUTPUT FILE ";M$
  5. 50 PRINT : OPEN I$ FOR INPUT AS 1
  6. 60 IF EOF(1) THEN 80
  7. 70 I=I+1 : INPUT #1,R(I),C(I),P$(I),T(I),S(I) : GOTO 60
  8. 80 FOR J=1 TO I
  9. 90 IF T(J)=3 THEN Y%=Y%+LEN(P$(J))
  10. 100 IF T(J)=4 OR T(J)=5 THEN Y%=Y%+4
  11. 110 IF T(J)=1 OR T(J)=2 THEN Y%=Y%+S(J)
  12. 120 NEXT J
  13. 130 OPEN "R",2,O$,Y% : FIELD 2,Y% AS Z$
  14. 140 OPEN M$ FOR OUTPUT AS 3
  15. 150 W%=LOF(2)/Y%
  16. 160 FOR Z%=1 TO W%
  17. 170 GET 2,Z%
  18. 180 PRINT #3,Z$
  19. 190 NEXT Z%
  20. 200 PRINT W%;" RECORDS WRITTEN TO ";M$ : CLOSE : CHAIN "MENU.BAS"
  21. 210 CLOSE : CLS : PRINT "ERROR ";ERR;" AT ";ERL : KEY ON : END
  22.