# #define KL 0177560 struct { char lobyte, hibyte;}; struct { int ks, kb, ps, pb;}; getchar() { register rc; KL->ks++; while(KL->ks.lobyte>=0); rc = KL->kb; rc =& 0177; if('A'<=rc && rc<='Z') rc =+ 'a'-'A'; if(rc=='\r') rc = '\n'; putchar(rc); return(rc); } putchar(c) { register rc; rc = c; while(KL->ps.lobyte>=0); if(rc==0) return; if(rc=='\n') { putchar('\r'); putchar('\n'|0200); putchar(0); } else KL->pb = rc; return(rc); }