Home Explore Help
Sign In
pascal
/
fpc
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

rtl-extra: fix printer device

Thorsten Otto 3 years ago
parent
a57a2b6cbe
commit
454365325e
1 changed files with 1 additions and 1 deletions
Unified View Show Diff Stats
  1. 1 1
      packages/rtl-extra/src/atari/printer.pp

+ 1 - 1
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.