10 CALL CLEAR
 20 CHAR=32
 22 FOR I=1 TO 8
 24 CALL COLOR(I,7,15)
 26 NEXT I
 30 FOR ROW=7 TO 21
 40 FOR COLUMN=13 TO 20
 50 CALL HCHAR(ROW,COLUMN,CHAR)
 60 CHAR=CHAR+1
 70 NEXT COLUMN
 80 NEXT ROW
 90 END 

    Source: geocities.com/v.iniestra/ti994a

               ( geocities.com/v.iniestra)