DataMuseum.dk

Presents historical artifacts from the history of:

CP/M

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about CP/M

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦b5d0f0c74⟧ TextFile

    Length: 2432 (0x980)
    Types: TextFile
    Names: »EPSON.PAS«

Derivation

└─⟦dd59903ef⟧ Bits:30005887 Klub diskette for udveksling af software
    └─ ⟦this⟧ »EPSON.PAS«

TextFile

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»