xena.prg

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

PROCEDURE xena
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"
@1,17 GET intreb;
   PICTURE "@*HT <  \<Da  >;<  \<Nu  >";
   SIZE 1,10,5;
   MESSAGE " "
READ
intreb=SUBSTR(intreb,4,1)
DEACTIVATE WINDOW day
RETURN