! DK:WROUT.TXT DATE: 21-MAY-83 TIME: 17:33:17 ! ! output routine, stored in reg. Y ! ! append any text to reg. D ! Z"G ZJ12I$H:XDHK' ! prompt for output step, hang on "Y" (MZ drains KB, sets image typeout) ! MZ ^A$H$K^G$p-MAKE-P- INSERT OUTPUT VOLUME - OK to proceed? (Y) ^A <^TUT QT-^^Y"E0;'7^T> ! remove yank protect, hang on volume ID, check against reg. O ! 2#EDED H:XD > ! reset yank protect, write ! 2^_&EDED ^A$H$K$p-MAKE-I- WRITING TO OUTPUT VOLUME -^A HKGDHPHK0,0XD ! prompt for next step ! MZ ^A$H$K$p^G-MAKE-P- MORE INPUT (I) or CLOSE OUTPUT (C) ? ^A ! if "C", close dir. file, hang on keystroke ! <^TUT QT-^^C"E EF :ERQQQQQQ.QQQ$ "S' ! discard unread input ! ^A$H$K$p-MAKE-I- OUTPUT CLOSED - TYPE ANY KEY TO EXIT FROM -MAKE- ^A ^T$^A$H$K$q^A 1^_&ETETOXIT$' ! if "I", prompt for next input volume, hang on Y ! QT-^^I"E ^A$H$K$p^G-MAKE-P- MOUNT NEXT INPUT VOLUME - OK to proceed (Y) ? ^A <^TUT QT-^^Y"EOXOF$'7^T>'MZ 7^T> ! turn off prompt line, call volume read routine in reg. X ! !XOF! ^A$H$K$q^A1^_&ETET MX !XIT!$$