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