nume.prg

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

PROCEDURE nume

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 "@!xxxxxxxxxxxxxxxxxxxxxxx"
READ
DEACTIVATE WINDOW culeg
RETURN