TITLE 'Module SCREEN'›SUBTTL 'File SCREEN.AMA'›;›; This module contains text for the output messages.›;›;›PROC›LOGOLDW :LOGOE-LOGO›LOGODB CLEAR,SKIP,SKIP,SKIP›DB SKIP,SKIP,SKIP,SKIP›DB TAB,'     '›DB $C4,$C9,$D3,$CB,$A0›DB $C4,$C9,$D3,$C1,$D3,$D3›DB $C5,$CD,$C2,$CC,$C5,$D2›DB EOL,SKIP,TAB,' '›DB 'Copyright 1982 '›DB 'Ralph Jones',EOL›DB SKIP,SKIP,TAB,'   '›DB 'How many DISK '›DB 'DRIVES?',EOL›DB SKIP,TAB,TAB,'    ',BELL›:LOGOE= *›;›MSG1LDW :MSG1E-MSG1›MSG1DB CLEAR,SKIP,SKIP,SKIP›DB SKIP,SKIP,SKIP,SKIP›DB SKIP,SKIP,' '›DB '(F)ile, (S)ector '›DB 'or (M)emory input?'›DB EOL,SKIP,SKIP›DB TAB,TAB,'   ',BELL›:MSG1E= *›;›MSG2LDW :MSG2E-MSG2›MSG2DB CLEAR,SKIP,SKIP,SKIP›DB SKIP,SKIP,SKIP,SKIP›DB SKIP,SKIP,TAB,'    '›DB 'Enter INPUT file'›DB 'spec',EOL,SKIP,TAB›DB '      ',BELL›:MSG2E= *›;›MSG3LDW :MSG3E-MSG3›MSG3DB CLEAR,SKIP,SKIP,SKIP›DB SKIP,SKIP,SKIP,SKIP›DB SKIP,TAB,'   '›DB 'Enter OUTPUT file'›DB 'spec',EOL,SKIP,TAB›DB '       '›DB '(NO extender)',EOL›DB SKIP,TAB,TAB,BELL›:MSG3E= *›;›MSG4LDW :MSG4E-MSG4›MSG4DB CLEAR,SKIP,SKIP,SKIP›DB SKIP,SKIP,SKIP,SKIP›DB SKIP,TAB,'   '›DB 'Enter sector list '›DB 'in HEX',EOL,SKIP›DB TAB,'mn<RETURN> for'›DB ' single sector',EOL›DB TAB,' mn,pq<RETURN>'›DB ' for sequence',EOL›DB TAB,'    <RETURN> '›DB 'to end list',EOL›DB SKIP,TAB,TAB,'   ',BELL›:MSG4E= *›;›MSG5LDW :MSG5E-MSG5›MSG5DB CLEAR,SKIP,SKIP,SKIP›DB SKIP,SKIP,SKIP,SKIP›DB SKIP,'  Enter program'›DB ' start address in '›DB 'HEX',EOL,SKIP,TAB,TAB›DB 'strt<RETURN>',EOL›DB SKIP,TAB,TAB,'    ',BELL›:MSG5E= *›;›MSG6LDW :MSG6E-MSG6›MSG6DB CLEAR,SKIP,SKIP,SKIP,SKIP›DB SKIP,SKIP,SKIP,SKIP›DB SKIP,'  Enter start, end'›DB ' addresses in HEX',EOL›DB SKIP,TAB,'    ssss,'›DB 'eeee<RETURN>',EOL›DB SKIP,TAB,TAB,'  ',BELL›:MSG6E= *›;›MSG7LDW :MSG7E-MSG7›MSG7DB TAB,TAB,'OK',EOL,TAB,TAB,'   '›:MSG7E= *›;›MSG8LDW :MSG8E-MSG8›MSG8DB TAB,TAB,'ERROR-NO ENTRY'›DB EOL,TAB,TAB,'  ',BELL›:MSG8E= *›;›MSG9LDW :MSG9E-MSG9›MSG9DB CLEAR,SKIP,SKIP,SKIP›DB SKIP,SKIP,SKIP,SKIP›DB SKIP,SKIP,TAB,'     '›DB $C6,$C1,$D4,$C1,$CC›DB $A0,$C9,$AF,$CF,$A0›DB $C5,$D2,$D2,$CF,$D2›DB $A1,EOL,SKIP,TAB›DB 'Press <RESET> to '›DB 'start over',EOL,BELL›:MSG9E= *›;›MSG10LDW :MS10E-MSG10›MSG10DB CLEAR,SKIP,SKIP,SKIP›DB SKIP,SKIP,SKIP,SKIP›DB SKIP,TAB,'     '›DB 'Insert ',$C9,$CE›DB $D0,$D5,$D4,' disk'›DB EOL,SKIP,TAB,TAB›DB 'and press',EOL,SKIP›DB TAB,TAB,' <RETURN>',EOL,BELL›:MS10E= *›;›MSG11LDW :MS11E-MSG11›MSG11DB CLEAR,SKIP,SKIP,SKIP›DB SKIP,SKIP,SKIP,SKIP›DB SKIP,TAB,'     '›DB 'Insert ',$CF,$D5,$D4›DB $D0,$D5,$D4,' disk'›DB EOL,SKIP,TAB,TAB›DB 'and press',EOL,SKIP›DB TAB,TAB,' <RETURN>',EOL,BELL›:MS11E= *›;›MSG12LDW :MS12E-MSG12›MSG12DB CLEAR,SKIP,SKIP,SKIP›DB SKIP,SKIP,SKIP,SKIP›DB '    Insert ',$C9,$CE›DB $D0,$D5,$D4,' disk '›DB 'in Drive 1',EOL›DB SKIP,TAB, 'and '›DB $CF,$D5,$D4,$D0,$D5,$D4›DB ' disk in Drive 2',EOL›DB SKIP,TAB,'    and '›DB 'press <RETURN>',EOL,BELL›:MS12E= *›;›MSG13LDW :MS13E-MSG13›MSG13DB CLEAR,SKIP,SKIP,SKIP›DB SKIP,SKIP,SKIP,SKIP›DB SKIP,TAB,'   '›DB $C4,$C9,$D3,$C1›DB $D3,$D3,$C5,$CD›DB $C2,$CC,$D9,' '›DB $C3,$CF,$CD,$D0›DB $CC,$C5,$D4,$C5›DB EOL,SKIP,TAB, 'Press'›DB ' <RETURN> to '›DB 'run again',EOL,BELL›:MS13E= *›;›MSG14LDW :MS14E-MSG14›MSG14DB CLEAR,SKIP,SKIP,SKIP›DB SKIP,SKIP,SKIP,SKIP›DB SKIP,TAB,'      '›DB $CF,$D5,$D4,$D0,$D5,$D4›DB $A0,$C4,$C9,$D3,$CB›DB $A0,$C6,$D5,$CC,$CC›DB EOL,SKIP,TAB,'     '›DB 'Insert another disk',EOL›DB SKIP,TAB,'     and '›DB 'press <RETURN>',EOL,BELL›:MS14E= *›;›MSG15LDW :MS15E-MSG15›MSG15DB 'CREATING LABELS...'›DB '                     '›:MS15E= *›;›EPROC›