MPL Bytecode Compiler Code

19 lines (12 with data), 422 Bytes

;LIBSTR

FPUTS(S,F;SS) [SS=0;(SS+=1)<=%S@.FWRC(F,S%SS);S]

FGETS(S,F) [
  %S=0;@[S%(%S+=1)=.FRDC(F);S%%S&&S%%S!='*N'];
  S%%S==0?%S-=1;S
]

GETS(S) [FGETS(S,.FINP);S%%S=='*N'?%S-=1;S]
PUTS(S) [FPUTS(S,.FOUT);.TWRC('*N');S]

PRINTF(FMT,ARGS!10;STR%.STR) FPUTS(VSPRINTF(STR$,FMT,ARGS$),.FOUT)
FPRINTF(F,FMT,ARGS!10;STR%.STR) FPUTS(VSPRINTF(STR$,FMT,ARGS$),F)

// FOR DEBUGGING
PUTI(A%10) PUTS(ITOA(A,A$))