home *** CD-ROM | disk | FTP | other *** search
/ HomeWare 14 / HOMEWARE14.bin / bbsutils / mt_grfyn.arj / GRAFYN.PPS < prev   
Text File  |  1993-07-03  |  1KB  |  39 lines
  1. ;Modern Technology-GraphYn  [PPE]  for PCBoard v15.0
  2. ;Replaces PCBoard prompt "Do you want graphics (Enter)=no?"
  3.  
  4. boolean hasansi
  5. boolean hasrip
  6.  
  7. string  grafyn_prt
  8. string  caller_response
  9. string  cmdline
  10. string  nonews
  11. string  yeswelc
  12. string  ansi
  13. string  rip
  14. string  noansi
  15.  
  16. cmdline = tokenstr()
  17.  
  18. inputstr "@X0EDo you want graphics (Enter)=no",caller_response,07,6,"QSR",FIELDLEN+LFAFTER+STACKED+UPCASE+YESNO
  19.  
  20. ;inputprt 149,caller_response,07,6,"QSR" ,FIELDLEN+LFBEFORE+LFAFTER+STACKED+UPCASE+YESNO
  21. ;promptstr 149,caller_response,07,6,"QSR",FIELDLEN+LFBEFORE+GUIDE+UPCASE+LFBEFORE
  22.  
  23.   if (caller_response="" & !hasansi) caller_response=NOCHAR()
  24.     if (instr(caller_response,"NS")) then
  25.        nonews="NS"
  26. caller_response=left(caller_response,instr(caller_response,"NS")-1)+right(caller_response,len(caller_response)-(instr(caller_response,"NS")+1))
  27.           endif
  28.  
  29.       if (instr(caller_response,yeschar())) ansi = yeschar()+";"
  30.       if (instr(caller_response,nochar())) noansi = nochar()+";"
  31.       if (instr(caller_response,"Q")) yeswelc = ""
  32.       if (instr(caller_response,"R")) rip = "R;"
  33.  
  34. KBDSTUFF rip+ansi+noansi+yeswelc+nonews+chr(13)
  35.  
  36.      newlines 1
  37.  
  38.     end
  39.