PROCEDURE SHOWSIGN
PARAMETER BMPNAME, FIRSTROW, FIRSTCOL
HEIGHT = 5
WIDTH = 16
PARAM = BMPNAME+' '+STR(HEIGHT)+' '+STR(WIDTH)
M_ = MPATH+'UTL\DefChar'
run &M_ &Param >NUL
DEFINE WINDOW SIGN FROM FIRSTROW, FIRSTCOL TO FIRSTROW+HEIGHT, FIRSTCOL+WIDTH NONE
SET CURSOR OFF
ACTIVATE WINDOW SIGN
CHARCODE = 69
FOR I = 0 TO HEIGHT-1
FOR J = 0 TO WIDTH-1
@ I, J SAY CHR(CHARCODE)
CHARCODE = CHARCODE+1
DO CASE
CASE CHARCODE=91
CHARCODE = 101
CASE CHARCODE=123
CHARCODE = 179
ENDCASE
ENDFOR
ENDFOR
WAIT ''
DEACTIVATE WINDOW SIGN
M_ = MPATH+'UTL\ret'
run &M_
SET CURSOR ON
RETURN
فایل DefChar برای نمایش تحت داس که ما در شاخه utl گذاشتیم و شما میتونی هر جا خواستید کپی کنید اکه فایل را ندارید بگید تا براتون بفرستم