[font=宋体]
DEFINT A-Z
    SCREEN 0, , 0
    CLS
    LOCATE 2, 30: PRINT "LIST OF ASCII CODE";
    LOCATE 4, 1: PRINT "?; STRING$(78, "?); "?;
    FOR I = 0 TO 15
        FOR j = 0 TO 15
            LOCATE j + 5, I * 5 + 1: PRINT USING "###"; I * 16 + j;
        NEXT j
    NEXT I
    FOR I = 0 TO 15: LOCATE I + 5, 1: PRINT "?; : NEXT
    FOR I = 0 TO 15: LOCATE I + 5, 80: PRINT "?; : NEXT
    LOCATE 21, 1: PRINT "?; STRING$(78, "?); "?;
    DEF SEG = &HB800
    C = 1
    FOR I = 0 TO 15: FOR j = 0 TO 15
        P = j * 160 + I * 10 + 646
        POKE P, I * 16 + j
        POKE P + 1, &H1F
    NEXT: NEXT
END

[/font]