1 ! PROGRAM TO FIX OLD RUNOFF SOURCES WITH IMBEDDED CENTRONICS WIDE CHARACTERS
5 DIM A$[120]V,NA$[20]V
7 INPUT "NAME OF SOURCE FILE (NO EXTENSION) ";NA$
10 OPEN #3, NA$+".RNO/RO/LN:132"
15 IF END #3 THEN 100
20 OPEN #4, NA$+".RNO/WR/LN:132"
25 INPUT LINE #3, A$
30 B=POS(A$,CHR$(14))+1
35 PRINT #4, SEG$(A$,B,LEN(A$))
37 IF B>1 THEN PRINT B;" ";A$
40 GOTO 25
100 CLOSE