ON ERROR IF ERR=17 CHAIN @lib$ + "../examples/tools/touchide" ELSE MODE 7 : REPORT : END
      
      INSTALL @lib$ + "mode7lib"
      MODE 7 : OFF
      VDU 23,18,3,1|
      
      title$ = "Press any key or click/tap for next page"
      IF INKEY$(-256) = "W" THEN
        SYS "SetWindowText", @hwnd%, title$
      ELSE
        SYS "SDL_SetWindowTitle", @hwnd%, title$, @memhdc%
      ENDIF
      
      REPEAT
        FOR Y% =  1 TO  8 : PRINT TAB(0,Y%) CHR$&9B; : NEXT
        FOR Y% = 13 TO 20 : PRINT TAB(0,Y%) CHR$&9B; : NEXT
        
        VDU 28,1,11,12,1
        PROC_saa5050(1) : PROCcharset
        PRINT TAB(2,9)  CHR$&83 "SAA5050";
        PRINT TAB(2,10) CHR$&82 "English";
        
        VDU 28,14,11,25,1
        PROC_saa5051(1) : PROCcharset
        PRINT TAB(2,9)  CHR$&83 "SAA5051";
        PRINT TAB(2,10) CHR$&82 "German";
        
        VDU 28,27,11,38,1
        PROC_saa5052(1) : PROCcharset
        PRINT TAB(2,9)  CHR$&83 "SAA5052";
        PRINT TAB(2,10) CHR$&82 "Swedish";
        
        VDU 28,1,23,12,13
        PROC_saa5053(1) : PROCcharset
        PRINT TAB(2,9)  CHR$&83 "SAA5053";
        PRINT TAB(2,10) CHR$&82 "Italian";
        
        VDU 28,14,23,25,13
        PROC_saa5054(1) : PROCcharset
        PRINT TAB(2,9)  CHR$&83 "SAA5054";
        PRINT TAB(2,10) CHR$&82 "Belgian";
        
        VDU 28,27,23,38,13
        PROC_saa5055(1) : PROCcharset
        PRINT TAB(2,9)  CHR$&83 "SAA5055";
        PRINT TAB(2,10) CHR$&82 "US ASCII";
        
        REPEAT UNTIL INKEY(4) <> -1 OR INKEY(-10)
        VDU 28,0,24,39,0 : CLS
        
        FOR Y% =  1 TO  8 : PRINT TAB(0,Y%) CHR$&9B; : NEXT
        FOR Y% = 13 TO 20 : PRINT TAB(0,Y%) CHR$&9B; : NEXT
        
        VDU 28,1,11,12,1
        PROC_saa5056(1) : PROCcharset
        PRINT TAB(2,9)  CHR$&83 "SAA5056";
        PRINT TAB(2,10) CHR$&82 "Hebrew";
        
        VDU 28,14,11,25,1
        PROC_saa5057(1) : PROCcharset
        PRINT TAB(2,9)  CHR$&83 "SAA5057";
        PRINT TAB(2,10) CHR$&82 "Russian";
        
        VDU 28,27,11,38,1
        PROC_saa505x(9,1) : PROCcharset
        PRINT TAB(2,9)  CHR$&83 "SAA505?";
        PRINT TAB(2,10) CHR$&82 " Greek";
        
        REPEAT UNTIL INKEY(4) <> -1 OR INKEY(-10)
        VDU 28,0,24,39,0 : CLS
      UNTIL FALSE
      END
      
      DEF PROCcharset
      LOCAL C%
      FOR C% = 0 TO 95
        PRINT TAB(C% DIV 8, C% MOD 8) CHR$(C% + 160);
      NEXT
      ENDPROC