numar.prg

来自「System "somaj" for city Beius」· PRG 代码 · 共 17 行

PROCEDURE numar

PARAMETER answer,mess1
DEFINE WINDOW culeg FROM 13,4 TO 19,73 ;
COLOR w+/gr SHADOw

ACTIVATE WINDOW culeg
@1,0 SAY PADC(mess1,WCOLS())
@3,17 GET answer;
   SIZE 1,32;
   DEFAULT " ";
   PICTURE "9999999"
READ
DEACTIVATE WINDOW culeg
RETURN