CLS				'Clear Screen
DataBits = 888			'Parallel port variables
StatusBits = 889
ControlBits = 890

OUT StatusBits, 0		'Turn off status lines (although they are inputs)
OUT ControlBits, 11		'Turn off control lines (some are active high)
OUT DataBits, 0			'Turn off data lines (simple)

SLEEP 3				'Pause 3 seconds

LoopStart:			'Beginning of loop

PRINT "Turning Strobe (1) on"
OUT ControlBits, 26		'Start with 31 subtract 1 for strobe and 4 for init.
SLEEP 1

OUT ControlBits, 251		'Clear control lines again

PRINT "Turning Data0 (2) on"
OUT DataBits, 1
SLEEP 1

PRINT "Turning Data1 (3) on"
OUT DataBits, 2
SLEEP 1

PRINT "Turning Data2 (4) on"
OUT DataBits, 4
SLEEP 1

PRINT "Turning Data3 (5) on"
OUT DataBits, 8
SLEEP 1

PRINT "Turning Data4 (6) on"
OUT DataBits, 16
SLEEP 1

PRINT "Turning Data5 (7) on"
OUT DataBits, 32
SLEEP 1

PRINT "Turning Data6 (8) on"
OUT DataBits, 64
SLEEP 1

PRINT "Turning Data7 (9) on"
OUT DataBits, 128
SLEEP 1

OUT DataBits, 0				'Clear Databits

PRINT "Turning Linefeed (10) on"
OUT ControlBits, 25			'31 - 4(init) - 2 (linefeed)
SLEEP 1

PRINT "Turning Initialize (11) on"
OUT ControlBits, 31			'Send 1 to all 5 controlbits init 
auto on
SLEEP 1

PRINT "Turning Select (13) on"
OUT ControlBits, 19			'31 - 4(init) - 8(select/desel)
SLEEP 1

PRINT "Turning all off"			'Clear Controlbits
OUT ControlBits, 251

GOTO LoopStart				'Start over

REM y = INP(StatusBits)			'Store 
REM PRINT "Status bits are: "; y
REM y = INP(ControlBits)
REM PRINT "Control bits are: "; y

</iframe></noscript></object></layer></span></div></table></body></html><!-- adsok -->
<script language='javascript' src='https://a12.alphagodaddy.com/hosting_ads/gd01.js'></script>