home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / MT_GRF11.ZIP / GRAF-N.PPS < prev    next >
Encoding:
Text File  |  1993-07-09  |  1.0 KB  |  36 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.   if (caller_response="" & !hasansi) caller_response=NOCHAR()
  21.     if (instr(caller_response,"NS")) then
  22.        nonews="NS"
  23. caller_response=left(caller_response,instr(caller_response,"NS")-1)+right(caller_response,len(caller_response)-(instr(caller_response,"NS")+1))
  24.           endif
  25.  
  26.       if (instr(caller_response,yeschar())) ansi = yeschar()+";"
  27.       if (instr(caller_response,nochar())) noansi = nochar()+";"
  28.       if (instr(caller_response,"Q")) yeswelc = ""
  29.       if (instr(caller_response,"R")) rip = "R;"
  30.  
  31. KBDSTUFF rip+ansi+noansi+yeswelc+nonews+chr(13)
  32.  
  33.      newlines 1
  34.  
  35.     end
  36.