MPL Bytecode Compiler Code

19 lines (12 with data), 417 Bytes

+MSTR

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

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

GETS(S) [FGETS(S,0);S%%S=='*N'?%S-=1;S]
PUTS(S) [FPUTS(S,1);.CPUTC('*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$))