MPL Bytecode Compiler Code

19 lines (12 with data), 429 Bytes

+MSTR

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

FGETS(S,F) [
  %S=0;@[S%(%S+=1)=.FREADC(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);.WRITEC('*N');S]

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

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