CLS
PRINT "POST-CARD Test Program"
PRINT
port = 128
a = 0
OUT port, a
PRINT "00 should be displayed - Testing data line and IC"
SLEEP 2
FOR x = 0 TO 7
a = 2 ^ x
IF x < 4 THEN PRINT "0";
PRINT HEX$(a); " should be displayed- Testing data line D"; HEX$(x); " and IC"; HEX$(3 + (x > 3))
OUT port, a
SLEEP 2
NEXT
OUT port, 255
PRINT "FF should be displayed -all data lines on - test IC"
SLEEP 2
PRINT
PRINT "0";
FOR x = 0 TO 15
a = x * 16 + x
OUT port, a
PRINT HEX$(a); " should be displayed - testing display decoders"
SLEEP 2
NEXT