<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">        INTEGER*4 LPT1 
        INTEGER*4 LPT2 
        INTEGER*4 LPT3 

        INTEGER*4 PTR$INIT    
        INTEGER*4 PTR$STATUS  
        INTEGER*4 PRINTQQ


        PARAMETER (LPT1 = 0)
        PARAMETER (LPT2 = 1)
        PARAMETER (LPT3 = 2)

        PARAMETER (PTR$INIT = 1)
        PARAMETER (PTR$STATUS = 2)


</pre></body></html>