home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / ENTRY.ZIP / CONVERT2.BAS < prev    next >
Encoding:
BASIC Source File  |  1988-04-07  |  993 b   |  27 lines
  1. 10 ON ERROR GOTO 260
  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% : P=1
  18. 180 FOR J=1 TO I
  19. 190 IF T(J)=1 OR T(J)=2 THEN W$=MID$(Z$,P,S(J)) : P=P+S(J)
  20. 200 IF T(J)>3 THEN W$=MID$(Z$,P,4) : P=P+4
  21. 210 IF T(J)=3 THEN W$=MID$(Z$,P,LEN(P$(J))) : P=P+LEN(P$(J))
  22. 220 IF J<I THEN PRINT #3,W$;","; ELSE PRINT #3,W$
  23. 230 NEXT J
  24. 240 NEXT Z%
  25. 250 PRINT W%;" RECORDS WRITTEN TO ";M$ : CLOSE : CHAIN "MENU.BAS"
  26. 260 CLOSE : CLS : PRINT "ERROR ";ERR;" AT ";ERL : KEY ON : END
  27.