22 lines
431 B
Text
22 lines
431 B
Text
PROGRAM "ASCII table"
|
|
VERSION "0.0000"
|
|
|
|
DECLARE FUNCTION Entry ()
|
|
|
|
FUNCTION Entry ()
|
|
FOR i = 32 TO 47
|
|
FOR j = i TO i + 80 STEP 16
|
|
SELECT CASE j
|
|
CASE 32
|
|
s$ = "Spc"
|
|
CASE 127
|
|
s$ = "Del"
|
|
CASE ELSE
|
|
s$ = CHR$(j)
|
|
END SELECT
|
|
PRINT RJUST$(" "+STRING(j),4); ": "; LJUST$(s$,3);
|
|
NEXT j
|
|
PRINT
|
|
NEXT i
|
|
END FUNCTION
|
|
END PROGRAM
|