CLS
FOR A=0 TO 255
COLOR 0,15
SCREEN 0
LOCATE B,A
PRINT A CHR$ (A)"*          "


REM POKR:
REM LOCATE 5,5
REM PRINT CHR$ (A)
REM FOR I=0 TO 99999
REM NEXT I
NEXT A
END