home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Phoenix CD 2.0
/
Phoenix_CD.cdr
/
02a
/
pctj486.zip
/
PRRESET.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1985-11-03
|
295b
|
15 lines
program prreset;
{ Turbo Pascal program to initialize any parallel printer }
var address: integer absolute $0040:$0008;
portno,
delay: integer;
begin
portno := address + 2;
port[portno] := 232;
for delay := 1 to 2000 do {nothing};
port[portno] := 236
end.