Applesoft BASIC program to display all 256 TEXT characters...
https://www.applefritter.com/comment/85264#comment-85264
The following version works for both 80 and 40 columns...
NEW
0 TEXT : H$ = "0123456789ABCDEF": W = (PEEK(33) = 80) + 1 : IF W=2 THEN
W$="."
1 HOME : VTAB 3: HTAB 13 * W + 1 - W
2 FOR H = 1 TO 16: PRINT W$MID$(H$,H,1);:NEXT:PRINT
3 FOR V = 1 TO 16: PRINT
4 HTAB 11 * W:A = PEEK (41) * 256
5 LET A = A + PEEK (40)
6 PRINT MID$ (H$,V,1)W$;
7 FOR H = 1 TO 16
8 POKE A + H + 11,C:C = C + 1
9 NEXT H,V
REM 80 COLUMNS
PR#3
RUN
POKE 49167,0 : REM Show ALTCHRSET
POKE 49166,0 : REM Don't show ALTCHRSET
REM 40 COLUMNS
PR#0
RUN
POKE 49167,0 : REM Show ALTCHRSET
POKE 49166,0 : REM Don't show ALTCHRSET