|
Nogle ASCII-koder i området 0-31 har speciel betydning i Qbasic: 7, 9, 10, 11, 12, 13, 28, 29, 30, 31 (>CHR$) - de kan derfor ikke umiddelbart udskrives. I programmerne herunder bliver disse specielle koder erstattet med mellemrum: (>alle koder)
'--------------Decimal--------------- |
'---------------Hex------------------ |
|
FOR i% = 0 TO 255
i$ = ""
IF i% < 100 THEN i$ = " "
IF i% < 10 THEN i$ = " "
i$ = i$ + MID$(STR$(i%), 2)
SELECT CASE i%
CASE 0 TO 6, 8, 14 TO 27, 32 TO 255
PRINT i$; " "; CHR$(i%);
CASE ELSE
PRINT " ";
END SELECT
IF (i% MOD 10) = 9 THEN
PRINT
ELSE
PRINT " ";
END IF
NEXT
|
FOR i% = 0 TO 255
i$ = " "
h$ = HEX$(i%)
IF LEN(h$) = 1 THEN h$ = "0" + h$
i$ = i$ + h$
SELECT CASE i%
CASE 0 TO 6, 8, 14 TO 27, 32 TO 255
PRINT i$; " "; CHR$(i%);
CASE ELSE
PRINT " ";
END SELECT
IF (i% MOD 10) = 9 THEN
PRINT
ELSE
PRINT " ";
END IF
NEXT
|
Med CodePage 865 (nordisk) installeret udskriver programmet følgende - Decimal:
- Hex:
Selvom nogle koder i området 0-31 ikke umiddelbart kan udskrives, kan koderne vises på skærmen med POKE til skærmbufferen - som vist i følgende program