aproba.prg

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

PROCEDURE aproba

PARAMETER intreb,mess1

DEFINE WINDOW day FROM 0,8 TO 3,69 ;
COLOR w+/r 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