home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / bbs / fmailv21 / fm_check.scr next >
Text File  |  1989-10-15  |  2KB  |  105 lines
  1. SCRIPT   
  2.  
  3. Define Data_Directory
  4. Define Files_Directory
  5. Define Userlog_Directory
  6. Define Number_of_Days
  7. Define Fmail_Name
  8. Define I
  9. Define Filename
  10. Define Dummy
  11. Define First_Yes=0
  12. Define X
  13. Define Check_File_First=0
  14.  
  15. Close
  16. Open ('Fmail.Dat',Input)
  17. Finput Data_Directory
  18. Finput Files_Directory
  19. Finput Userlog_Directory
  20. Finput Number_of_Days
  21. Close
  22.  
  23. Top:
  24. If File_Exists ('[Data_Directory]Fmail.Inf') Then
  25. Goto Top1
  26. Else
  27. Exit
  28. Endif
  29.  
  30. Top1:                ;Check to see if person has Fmail!!!!
  31. Close
  32. Open ('[Data_Directory]Fmail.Inf',Input)
  33. Finput Fmail_Name
  34. If Fmail_Name = &01 then
  35. FInput Dummy
  36. FInput Filename
  37. Check_File_First=1
  38. Goto Check_File
  39. Top1A:
  40. Printe 'You Have The Following File(s) Waiting In F-Mail'
  41. Printe
  42. Printe '[Filename]'
  43. First_Yes=1
  44. Top1B:
  45. X=6
  46. Goto Top2
  47. Else
  48. X=8
  49. Goto Top2
  50. Endif
  51.  
  52. Top2:
  53. Finput Fmail_Name [X]
  54. If Fmail_Name = &01 then
  55. FInput Dummy
  56. FInput Filename
  57. Goto Check_File
  58. Top2A:
  59. Gosub Print_Message
  60. Printe '[Filename]'
  61. Top2B:
  62. X=6
  63. Goto Top2
  64. Else
  65. X=8
  66. Goto Top2
  67. Endif
  68.  
  69. EOF:
  70. Close
  71. For I=1 to 1500
  72. Endfor
  73. Exit
  74.  
  75. Print_Message:
  76. If First_Yes=1 Then
  77. Return
  78. Else
  79. Printe 'You Have The Following File(s) Waiting In F-Mail'
  80. Printe
  81. First_Yes=1
  82. Return
  83. Endif
  84.  
  85. Check_File:
  86. If File_Exists ('[Files_Directory][Filename]') Then
  87. Goto Check_File_Yes
  88. Else
  89. Goto Check_File_No
  90. Endif
  91. Check_File_Yes:
  92. If Check_File_First=1 Then
  93. Check_File_First=0
  94. Goto Top1A
  95. Else
  96. Goto Top2A
  97. Endif
  98. Check_File_No:
  99. If Check_File_First=1 Then
  100. Check_File_First=0
  101. Goto Top1B
  102. Else
  103. Goto Top2B
  104. Endif
  105. ə