00010 .LI OFF 00020 .OR $4000 00030 * 00040 * 00050 * 00060 * 00070 * 00080 * 00090 MEMO JSR GETKEY ZEICHEN LESEN 00100 CMP #$1b WENN ESCAPE 00110 BNE ZOUT RUECKKEHR ZUM 00120 RTS ASSEMBLER 00130 * 00140 ZOUT JSR PUTCHAR SONST AUSGEBEN 00150 JMP MEMO ENDLOS WIEDERHOLEN 00160 ------------------------------ 00170 .IN "D:INOUT.INC"