|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 2432 (0x980)
Types: TextFile
Names: »EPSON.PAS«
└─⟦dd59903ef⟧ Bits:30005887 Klub diskette for udveksling af software
└─⟦this⟧ »EPSON.PAS«
PROGRAM EPSON; æ This should work on any CP/M system with an Epson printer.å
æ Writeln after BEGIN and before END has been used in placeå
æ of clear screen codes because of the many different å
æ codes in use on various terminals.å
VAR
PRINTER : TEXT;
X : CHAR;
BEGIN
WRITELN; WRITELN; WRITELN; WRITELN; WRITELN; WRITELN;
WRITELN;
WRITELN (' ************************************************');
WRITELN (' * *');
WRITELN (' * Special Print *');
WRITELN (' * Selection Menu for Epson Printer *');
WRITELN (' * *');
WRITELN (' * 1 - COMPRESSED PRINT - ON *');
WRITELN (' * 2 - COMPRESSED PRINT - OFF *');
WRITELN (' * 3 - EMPHASIZED PRINT - ON *');
WRITELN (' * 4 - EMPHASIZED PRINT - OFF *');
WRITELN (' * 5 - DOUBLE STRIKE - ON *');
WRITELN (' * 6 - DOUBLE STRIKE - OFF *');
WRITELN (' * 7 - LINE SPACING - 1/8TH INCH *');
WRITELN (' * 8 - LINE SPACING - NORMAL (1/6TH) *');
WRITELN (' * 0 - Exit to system *');
WRITELN (' * *');
WRITELN (' ************************************************');
WRITELN;
REPEAT
WRITE (' Enter Your Selection: ');
READ (X);
REWRITE( 'lst:', printer);
CASE X OF
'1': WRITE (PRINTER, CHR(15));
'2': WRITE (PRINTER, CHR(18));
'3': WRITE (PRINTER, CHR(27), CHR(69));
'4': WRITE (PRINTER, CHR(27), CHR(70));
'5': WRITE (PRINTER, CHR(27), CHR(71));
'6': WRITE (PRINTER, CHR(27), CHR(72));
'7': WRITE (PRINTER, CHR(27), CHR(48));
'8': WRITE (PRINTER, CHR(27), CHR(50));
END;
WRITE ('Another selection - or 0 to exit.');
UNTIL X = '0';
WRITELN; WRITELN; WRITELN; WRITELN; WRITELN; WRITELN; WRITELN; WRITELN;
WRITELN; WRITELN; WRITELN; WRITELN; WRITELN; WRITELN; WRITELN; WRITELN;
WRITELN; WRITELN; WRITELN; WRITELN; WRITELN; WRITELN; WRITELN; WRITELN
END.
«eof»