[mirrors/Programs.git] / turbobasic / 1998 / ASCI255.BAS

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