iesire.prg

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

PROCEDURE iesire

PARAMETER intreb,mess1

DEFINE WINDOW day FROM 13,8 TO 18,69 ;
COLOR w+/gr SHADOw
ACTIVATE WINDOW day
@0,1 SAY PADC(mess1,WCOLS());
   PICTURE "@I"
@2,17 GET intreb;
   PICTURE "@*HT <  \<Da  >;<  \<Nu  >";
   SIZE 1,10,5;
   MESSAGE " "
READ
intreb=SUBSTR(intreb,4,1)
DEACTIVATE WINDOW day
RETURN