File: pascal.inc

package info (click to toggle)
cloc 2.04-1
  • links: PTS, VCS
  • area: main
  • in suites: trixie
  • size: 7,776 kB
  • sloc: perl: 29,368; cpp: 1,219; ansic: 334; asm: 267; makefile: 240; sh: 186; sql: 144; java: 136; ruby: 111; cs: 104; python: 84; pascal: 52; lisp: 50; cobol: 35; f90: 35; haskell: 35; objc: 25; php: 22; javascript: 15; fortran: 9; ml: 8; xml: 7; tcl: 2
file content (13 lines) | stat: -rw-r--r-- 677 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
 
(* https://en.wikibooks.org/wiki/Pascal_Programming/Examples *)
{...........................................................................}
Procedure PrinterTest;   { works in the text mode}

  begin
    rejestr.dx:=LPT1;  { Port Number to which the printer is attached ;  0 = LPT1 }
    rejestr.ah:=2;     { Function Number ; printer port status }
    Intr($17,rejestr); {BIOS Interrupt #17 : initializes the indicated printer port and returns its status }
    if rejestr.ah=144  { 10010000B : (bit 7) =1  i (bit 4) =1  }
       then writeLn('Printer on LPT1 is OK')
       else writeLn('Printer on LPT1 is not OK');
       WriteLst(Reset);
  end; { Procedure PrinterTest }