--- /dev/null
+IOTEST START
+ OUT OBUF1,OLEN1
+LOOP IN IOBUF,IOLEN
+ LD GR1,IOLEN
+ JZE RETURN
+ OUT OBUF2,OLEN2
+ OUT IOBUF,IOLEN
+ OUT OBUF3,OLEN3
+ JUMP LOOP
+RETURN RET
+; Memory
+OBUF1 DC 'LET''S START. TYPE IN'
+OLEN1 DC 20
+OBUF2 DC 'YOU TYPED'
+OLEN2 DC 9
+OBUF3 DC 'WHAT''S NEXT?'
+OLEN3 DC 12
+IOBUF DS 64
+IOLEN DS 1
+ END