root/as/cmd/IN/in.casl

/* [<][>][^][v][top][bottom][index][help] */ 
   1 ;;; IN IBUF,ILEN
   2 MAIN    START
   3 LOOP    IN      IBUF,ILEN
   4 FIN     RET
   5 IBUF    DS      20
   6 ILEN    DS      1
   7         END
/* [<][>][^][v][top][bottom][index][help] */