10 REM FNCVT v.2 (C) E. Gans 03/21/87 20 REM converts FootNote files to Magic Print format 30 ON ERROR GOTO 430 40 NT$=CHR$(13)+CHR$(10)+CHR$(13)+CHR$(10)+CHR$(5) 50 NX$=CHR$(5)+CHR$(13)+CHR$(10) 60 REM call ctail(cmd$):if cmd$<>"" then gosub 460:goto 130 70 INPUT "File to convert (CR aborts)";F1$ 80 IF F1$="" THEN END 90 INPUT "Associated note file (CR aborts)";F2$ 100 IF F2$="" THEN END 110 INPUT "Output file (CR aborts)";F3$ 120 IF F3$="" THEN END 130 OPEN "I",1,F1$ 140 OPEN "I",2,F2$ 150 WHILE E$<>CHR$(5):E$=INPUT$(1,#2) 160 IF EOF(2) THEN 180 170 WEND 180 OPEN "O",3,F3$ 190 E$=INPUT$(1,#1) 200 IF EOF(1) THEN PRINT#3,E$;:GOTO 400 210 IF ASC(E$)<>5 THEN PRINT#3,E$;:GOTO 190 220 WHILE E$<>" " 230 E$=INPUT$(1,#1) 240 IF EOF(1) THEN IF E$=" " THEN 270 ELSE PRINT#3,E$;" ";:GOTO 280 250 PRINT#3,E$; 260 WEND 270 PRINT#3,E$; 280 IF EOF(2) THEN 190 290 E$=INPUT$(1,#2) 300 PRINT#3,CHR$(5);E$; 310 NQ$="" 320 WHILE E$<>CHR$(5) AND NOT EOF(2) 330 E$=INPUT$(1,#2):IF ASC(E$)=138 THEN E$=CHR$(10) 340 IF LEN(NQ$)<>0 AND LEN(NQ$)<5 THEN NQ$=NQ$+E$:GOTO 370 ELSE IF LEN(NQ$)=5 THEN IF NQ$=NT$ THEN 370 ELSE PRINT#3,NQ$;:NQ$="" 350 IF E$=CHR$(13) THEN NQ$=E$:GOTO 370 360 PRINT#3,E$; 370 WEND 380 PRINT#3,NX$; 390 GOTO 190 400 CLOSE 410 PRINT"Conversion complete. Reformat "F3$" before using." 420 END 430 IF ERL>=130 AND ERL<=180 THEN PRINT "File not found":RESUME 70 440 IF ERL >460 THEN PRINT"Three filenames (text,note,output) required":END 450 IF ERL=190 THEN RESUME 400 ELSE ON ERROR GOTO 0 460 REM get filenames from command line 470 F1$=LEFT$(CMD$,INSTR(CMD$," ")-1):Z$=MID$(CMD$,LEN(F1$)+1) 480 GOSUB 540 490 F2$=LEFT$(Z$,INSTR(Z$," ")-1):Z$=MID$(Z$,LEN(F2$)+1) 500 GOSUB 540 510 IF RIGHT$(Z$,1)=" " THEN Z$=LEFT$(Z$,LEN(Z$)-1):GOTO 510 520 F3$=Z$ 530 IF F2$="" OR F3$="" THEN END ELSE RETURN 540 REM strip blanks 550 IF ASC(Z$)=32 THEN Z$=MID$(Z$,2):GOTO 550 560 RETURN