turbobasic/ASCI255.BAS

   1 CLS
   2 FOR A=0 TO 255
   3 COLOR 0,15
   4 SCREEN 0
   5 LOCATE 2,2
   6 PRINT A "   " CHR$ (A)""
   7
   8 locate 5,5
   9 input "Chcete znat dalsi znak? Jestli ne napiste x a stisknete enter." ;dalsi$
  10            REM POKR:
  11            REM LOCATE 5,5
  12            REM PRINT CHR$ (A)
  13            REM FOR I=0 TO 99999
  14            REM NEXT I
  15            NEXT A
  16 END\1a