100 TEXT 
  110 LET KOD=65
  130 DO 
  135   SET #102:INKKOD
  140   PRINT #102,AT1,1:
  160   FOR I=1TO24
  170     FOR J=1TO40
  180       PRINT #102:CHR$(KOD);
  190     NEXT 
  200   NEXT 
  205   LET KOD=KOD+1
  210 LOOP UNTILKOD>96
  220 END