Appendix D (pp. 53-59) of the Silentype reference manual indicates that all
parameter procedures can be placed into an intrinsic library unit. This is a
handy and valuable unit to have if you plan to use the Silentype printer in a
Pascal program.
To extend the usefulness of the Silentype unit, two procedures have been added
to this listing and another has been changed. These three procedures are
discussed here; refer to the Silentype manual for a description of the
remainder.
Procedure SetPage (Page: integer):
This procedure allows you to change from one high-resolution graphics screen to
the other; however, only the first high-res page is used in the Pascal system.
Values: 1=first page; 2=second page.
Procedure ColdStart:
The ColdStart procedure resets the Silentype parameters to the default values
as specified in the printer manual. This procedure is equivalent to turning
off the power to the printer.
Values: none required.
Procedure WarmStart:
The Restore procedure as listed in the Silentype manual has been revised and
renamed WarmStart. Included in the revision is the SetPage procedure. This
procedure differs from ColdStart in that the parameters set by WarmStart are
user-definable; that is, they reflect the particular setup that you find most
appliable to your needs. For instance, you may set a darkness setting to 3
or 5, and so on.
Initialization Code:
The initialization code consists of a call to the ColdStart procedure. This
call is executed when the unit is first brought into the system from the
library to ensure that the printer is not retaining any settings from previous
uses with either Pascal or BASIC. If you wish, you may change this code to
WarmStart or another code of your choice; you may also leave the initialization
section empty, though in that case you should still include the BEGIN and END.
Installing the Unit:
The Silentype unit comes ready for you to enter it, compile it and install it
in your copy of SYSTEM.LIBRARY, though you may wish first to change the
Intrinsic Code value or the contents of WarmStart to suit your individual
needs. Refer to pp. 186-193 of the Apple Pascal Operating System Reference
manual for the instructions for placing the compiled Silentype unit into your
SYSTEM.LIBRARY.
(*$S+*)
Unit Silentype; Intrinsic Code 27;
Interface
Procedure ROMEnable;
Procedure SetByteValue (Loc,Value: integer);
Function ByteValue (LOC: integer): integer;
Procedure Send (CH: CHAR);
Procedure SetUniDirect;
Procedure SetBidirect;
Function UniDirect: boolean;
Procedure SetNegative;
Procedure SetPositive;
Function Negative: boolean;
Procedure SetPage (Page: integer);
Procedure SetDark (Darkness: integer);
Function Dark: integer;
Procedure SetForm (Length: integer);
Function Form: integer;
Procedure SetSpace (Length: integer);
Function Space: integer;
Function LeftMargin: integer;
Function RightMargin: integer;
Procedure SetLeftMargin (Position: integer);
Procedure SetRightMargin (Position: integer);
Procedure PrintBuffer;
Procedure ClearBuffer;
Procedure FormFeed;
Procedure PrintPic;
Procedure ColdStart;
Procedure WarmStart;