home *** CD-ROM | disk | FTP | other *** search
/ Crawly Crypt Collection 1 / crawlyvol1.bin / bbs / fmodo061 / sendfax.dor < prev    next >
Text File  |  1993-06-08  |  1KB  |  56 lines
  1. cd \faximodo
  2. write dorinfo1.def
  3. exec faximodo.ttp -check
  4. cd \qbbs
  5. cls
  6. menu 39 \qbbs\text\fax_info.asc
  7. IF *C=0 THEN GOTO noaccess
  8. if *C=1 then goto low
  9. if *C>1 then goto faximodo
  10. goto einde
  11.  
  12. :noaccess
  13. prompt  Press [RETURN] ...
  14. key
  15. cls
  16. SEND  Moment, checking access and credits
  17. SEND
  18. send  Sorry, you don't have any credits to send faxes.
  19. send
  20. send  If you want to use this service, deposit the minimum amount of
  21. send  Hfl 10,00 on my account Giro 5068284 to my name Harrie Beuvink
  22. send  with the discription "FAX-SERVICE"
  23. send
  24. prompt  Press [RETURN] ...
  25. key
  26. goto einde
  27.  
  28. :low
  29. prompt  Press [RETURN] ...
  30. key
  31. cls
  32. send  Sorry, you don't have enough credits to send faxes anymore.
  33. send
  34. send  If you want to continue to use this service,  deposit the 
  35. send  minimum amount of Hfl 10,00 on my account Giro 5068284 to 
  36. send  my name Harrie Beuvink with the discription "FAX-SERVICE"
  37. send
  38. prompt  Press [RETURN] ...
  39. key
  40. goto einde
  41.  
  42. :faximodo
  43. send  Your credits now are *C cents.
  44. send
  45. send  Mention in the "To :" field the name and phonenumber you 
  46. send  want to send your fax to!!  Example
  47. send  To   : President Bush 053777522
  48. send  Subj : Don't forget to write te correct faxnumber...
  49. send
  50. menu 27 195
  51. goto einde
  52.  
  53. :einde
  54. cd \qbbs
  55. exit
  56.