DECLARE FUNCTION a$ (b!) DECLARE FUNCTION h$ (a!) q$ = CHR$(34) OPEN "screen.html" FOR OUTPUT AS #5 PRINT #5, "Commodore 64 Super Reference - PETSCII" PRINT #5, "

ASCII and Screen Codes (slow loading page)

" PRINT #5, "

Screen Codes:

" PRINT #5, "Add the numbers on the top & left rows to get the" PRINT #5, "screen code for that character (both hex and decimal values are shown).

" PRINT #5, "" 'FOR y = 0 TO 31 ' PRINT #5, "" ' FOR x = 0 TO 7 ' q = x * 32 + y ' PRINT #5, "
$"; h$(q); ""; a$(q); " 0) AND (q < 27)) OR ((q > 64) AND (q < 91)) OR (q = 94) OR (q = 95) OR (q = 105) OR (q = 122) OR ((q > 128) AND (q < 224)) THEN PRINT #5, "u"; ' PRINT #5, ".gif" + q$ + ">" ' NEXT 'NEXT PRINT #5, ""; FOR x = 0 TO 15 PRINT #5, "$"; h$(x); "
"; a$(x); NEXT PRINT #5, FOR y = 0 TO 15 PRINT #5, "
$"; h$(y * 16); " "; a$(y * 16) FOR x = 0 TO 15 q = 16 * y + x PRINT #5, " 0) AND (q < 27)) OR ((q > 64) AND (q < 91)) OR (q = 94) OR (q = 95) OR (q = 105) OR (q = 122) OR ((q > 128) AND (q < 224)) THEN PRINT #5, "u"; PRINT #5, ".gif" + q$ + ">" NEXT NEXT PRINT #5, "
" PRINT #5, "

PETSCII Codes:

" PRINT #5, "For ASC and" PRINT #5, "CHR$ commands." PRINT #5, "" PRINT #5, "
"; FOR x = 0 TO 15 PRINT #5, "$"; h$(x); "
"; a$(x); NEXT PRINT #5, FOR y = 0 TO 15 PRINT #5, "
$"; h$(y * 16); " "; a$(y * 16) FOR x = 0 TO 15 q = 16 * y + x PRINT #5, " 0) AND (q < 27)) OR ((q > 64) AND (q < 91)) OR (q = 94) OR (q = 95) OR (q = 105) OR (q = 122) OR ((q > 128) AND (q < 224)) THEN PRINT #5, "u"; PRINT #5, ".gif" + q$ + ">" NEXT NEXT CLOSE 5 FUNCTION a$ (b) a$ = MID$(STR$(b), 2) END FUNCTION FUNCTION h$ (a) h$ = LCASE$(RIGHT$("0000" + HEX$(a), 2)) END FUNCTION