CLS

OPEN "COM1:9600,N,8,1,CD0,CS0,DS0" FOR RANDOM AS #1
OPEN "pontech.txt" FOR OUTPUT AS #2

PRINT #2, "Pontech STP-100 EEProm"
PRINT #2,
PRINT #2, "Addr.   0   1   2   3   4   5   6   7   8   9   10  11  12  13  14  15"
PRINT #2,

s = 0

    FOR j = 0 TO 31
   
    column = 1
    PRINT s;
    PRINT #2, s;
    column = column + 8
    PRINT TAB(column);
    PRINT #2, TAB(column);
   
        FOR i = 0 TO 15

        PRINT #1, "RE"; STR$(s)
        INPUT #1, byte$
        PRINT byte$;
        PRINT #2, byte$;
        s = s + 1
        column = column + 4
        PRINT TAB(column);
        PRINT #2, TAB(column);
   
        NEXT i

    PRINT
    PRINT #2,

    NEXT j

CLOSE


END