paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 19:10:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

rtl-extra: fix printer device

Browse Source
This commit is contained in:
Thorsten Otto 2022-02-09 04:49:07 +01:00 committed by Charlie Balogh
parent a57a2b6cbe
commit 454365325e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/rtl-extra/src/atari/printer.pp
View File

@ -24,6 +24,6 @@ implementation
begin begin
(* WARNING: has to be checked; do_open('PRN') returns a valid, negative OS handle *) (* WARNING: has to be checked; do_open('PRN') returns a valid, negative OS handle *)
InitPrinter ('PRN'); InitPrinter ('PRN:');
SetPrinterExit; SetPrinterExit;
end. end.