! 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 <HK ERDK:$ _DECRT11A$ 8R.,ZK24R :S^EQO$"S0;|MZ
^A$H$K^G-MAKE-W- WRONG VOLUME - PLEASE CORRECT - OK to proceed? (Y) ^A
<^T-^^Y"E0;'>>
! 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<HKY ^N"G 0;'>' ! 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!$$
                                                                                                                                                                                                                                                                                                                      