Characters

    1 PRINT : PRINT : PRINT "This program runs you through   the 2068 character set, showing you their pixel construction andvalues."
    2 PRINT : PRINT : PRINT "Press any key to start the pro- gram, and then press any key to move from one character to the  next."
    3 IF INKEY$="" THEN GO TO 3
    5 LET a=32
    6 LET c=15616
   10 CLS 
   15 PRINT AT 0,0;CHR$ a
   20 LET a=a+1
   30 LET y=175
   35 LET x=0
   38 FOR k=y-7 TO y
   40 FOR j=x TO x+7
   50 IF POINT (j,k)=1 THEN PRINT AT 183-k,j+10; INVERSE 1;" "
   55 IF POINT (j,k)=0 THEN PRINT AT 183-k,j+10;"."
   60 NEXT j
   62 PRINT AT 23-(183-k),j+10;PEEK c
   65 LET c=c+1
   70 NEXT k
   80 IF CODE INKEY$>0 THEN GO TO 10
   90 GO TO 80