🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: comp.sys.ibm.pc.misc
Article #9246

Re: Re: Printing with Pascal 5.5

#9246
From: Jerry Gardner
Date: Mon, 15 Apr 1991 20:55
19 lines
1230 bytes
In article <9419@trev.dsir.govt.nz> SRPDSDJ@trev.dsir.govt.nz (Sid) writes:

}> FUNCTION PRN_OnLine:BOOLEAN;
}> 
}> BEGIN
}> IF ((port[$379] and 16)==16) THEN PRN_OnLine:=TRUE
}                         ^
}the problem is my compiler does not like the == above, what am I doing 
}wrong? Also forgive my stupidity/ignorance but where does the 16 come from?  

Your problem is simple; "==" is the C equality operator, not Pascal.  The
Pascal equality operator is "=".


-- 
Jerry Gardner, NJ6A					Altos Computer Systems
UUCP: {sun|pyramid|sco|amdahl|uunet}!altos!jerry	2641 Orchard Parkway
Internet: jerry@altos.com				San Jose, CA  95134
Help stamp out vi in our lifetime.                      (408) 432-6200
Technical Details
Message-ID: <4813@gumby.Altos.COM>
Path: arc1-ca.pugleaf.net!utzoo!utgpu!news-server.csri.toronto.edu!rpi!zaphod.mps.ohio-state.edu!mips!apple!altos!gumby!jerry
References: <3235@crdos1.crd.ge.COM> <1991Mar15.001849.25830@ugle.unit.no> <9419@trev.dsir.govt.nz>

Show Full Headers
Complete Article Headers
Path: arc1-ca.pugleaf.net!utzoo!utgpu!news-server.csri.toronto.edu!rpi!zaphod.mps.ohio-state.edu!mips!apple!altos!gumby!jerry
From: jerry@gumby.Altos.COM (Jerry Gardner)
Newsgroups: comp.sys.ibm.pc.misc
Subject: Re: Re: Printing with Pascal 5.5
Message-ID: <4813@gumby.Altos.COM>
Date: 15 Apr 91 20:55:06 GMT
References: <3235@crdos1.crd.ge.COM> <1991Mar15.001849.25830@ugle.unit.no> <9419@trev.dsir.govt.nz>
Reply-To: jerry@altos.COM (Jerry Gardner)
Organization: Altos Computer Systems, San Jose, CA
Lines: 19