🚀 go-pugleaf

I have a little program for the auto folder wich tests the printer
and BELL's if not ready when you press ALT-HELP.
Excuse the german comments, I copy it as it is:

MODULE TstHCopy;
   (* 3.12.88 ALT HELP --> BELL wenn Drucker nicht ready     *)
   (* fuer AUTO Ordner / wie ACC binden                      *)
   (* TermRes: Lnge (SIZE.PRG oder *.MAP) + 100H (BasePage) *)
   (*     BasePageAddress *nicht* in GEMACCX !!!             *)
FROM SYSTEM IMPORT CODE, PUSH;
FROM XBIOS IMPORT SuperExec;
FROM GEMDOS IMPORT TermRes;
FROM BIOS IMPORT Device, BCosStat, BConOut;

VAR OldDumpVec: PROC;

PROCEDURE SetDumpAdr;
VAR dumpVec [502H]: PROC;
BEGIN
   OldDumpVec:=dumpVec; dumpVec:=TestPrinter;
END SetDumpAdr;

(*$P- no entry and exit code for the following procedure *)

PROCEDURE TestPrinter;
BEGIN
   IF BCosStat(PRT) THEN PUSH(OldDumpVec) ELSE BConOut(CON,7C) END;
   CODE(4E75H) (* rts *)
END TestPrinter;

BEGIN
   SuperExec(SetDumpAdr);
   TermRes(548H,0);
END TstHCopy.

      Kloppenburg@kmx.gmd.dbp.de
UUCP: kloppen@gmdzi