home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / disk_20.zip / MENUGEN.ZIP / PROMPT.PRG < prev    next >
Text File  |  1986-11-18  |  402b  |  22 lines
  1.    PARA mess,var,type
  2.    PUBL k
  3.    r=(79-LEN(mess))/2
  4.    q=LEN(var)
  5.    s=(79-q)/2
  6.    t=MIN(r,s)
  7.    DO bmess WITH '','Press PgUp TO abort / Anything else continues'
  8.    @4,0 CLEA TO 21,79
  9.    @11,t-2 TO 14,80-t DOUB
  10.    @12,r SAY mess
  11.    @13,s GET var
  12.    READ
  13.    K=.T.
  14.    IF READ()=262.OR.READ()=6
  15.       K=.F.
  16.    ENDI
  17.    IF var=' '
  18.       k=.f.
  19.    ENDI
  20.    @11,0 CLEA TO 21,79
  21.    @23,0
  22.