REM Вывод таблицы ASCII CLS : PRINT TAB(31); "Таблица ASCII" FOR I = 32 TO 52: LOCATE I - 29, 1 FOR J = I TO 255 STEP 21 PRINT USING "! ### "; CHR$(J); J; NEXT J NEXT I