Примеры программ на языке QBASIC


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