OPEN "com1:19200,n,8,1,RS,DS0" FOR RANDOM AS #1 LEN = 5000

SCREEN 11

CLS



PRINT #1, "0"

FOR i = 0 TO 3000: NEXT i

IF LOC(1) <> 0 THEN j$ = INPUT$(LOC(1), #1)



PRINT #1, "8"

FOR i = 0 TO 3000: NEXT i

PRINT "Please put a pen on the sensor board"

PRINT "Push space bar"

keyap: IF INKEY$ <> " " THEN GOTO keyap

PRINT #1, "9"

FOR i = 0 TO 3000: NEXT i





a1 = ASC(INPUT$(1, #1))

a2 = ASC(INPUT$(1, #1)): a3 = ASC(INPUT$(1, #1))

a4 = ASC(INPUT$(1, #1)): a5 = ASC(INPUT$(1, #1))

a6 = ASC(INPUT$(1, #1)): a7 = ASC(INPUT$(1, #1))

IF (a2 AND &H1) = 1 THEN GOTO errdisp

PRINT "Pen adjust is OK"

PRINT "Pen adjust offset = ", a3 * 128 + a4

GOTO endline

errdisp:

PRINT "Pen adjst failed"

endline: