10 REM C-POWER LIBRARY UPDATER
20 REM
30 REM BY ERIC GIGUERE
40 REM
50 PRINT "[147][201]NSERT YOUR LIBRARY DISK INTO DRIVE 0"
60 PRINT " [204]IBRARY NAME: ";: GOSUB 1000: LIB$=LEFT$( IN$, 14 )+".L"
70 PRINT " [198]UNCTION NAME: ";: GOSUB 1000: FC$=LEFT$( IN$, 8 )
80 PRINT " [198]ILENAME: ";: GOSUB 1000: FL$=LEFT$( IN$, 12 )+".OBJ"
90 PRINT " [213]PDATING ";LIB$;"..."
100 OPEN 2,8,5,"0:"+LIB$+",S,A"
110 PRINT#2,FC$;CHR$(0);
120 PRINT#2,FL$;CHR$(0);
130 CLOSE 2
140 PRINT " [196]ONE.  [193]NOTHER FUNCTION? (Y/N) ";: GOSUB 1000
150 IF LEFT$( IN$, 1 )="Y" THEN 70
160 END
1000 OPEN 1,0: INPUT#1,IN$: CLOSE 1: PRINT: RETURN