CLS
DataAddress = 888
StatusAddress = 889
ControlAddress = 890
DataPort = DataAddress

OUT StatusAddress, 0
OUT ControlAddress, 0
OUT DataPort, 0

SLEEP 3

FOR Count = 0 TO 255
	OUT DataPort, Count
FOR x = 1 TO 500: NEXT x
NEXT Count

y = INP(StatusAddress)
PRINT "Status Address is: "; y
y = INP(ControlAddress)
PRINT "Control Address is: "; y

OUT StatusAddress, 0
OUT ControlAddress, 0
OUT DataPort, 0