home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / bbs / porfido2 / fidomain.hlp < prev    next >
Encoding:
Text File  |  1990-07-14  |  7.1 KB  |  317 lines
  1. script
  2. change_echo:
  3.         close
  4.         printe '&00'
  5.         Clear (screen)
  6.         Clear (table)
  7. if '[echo2]'='' then
  8.         set [echo2]=[echo]
  9.         set [echo3]=[echo]
  10.         set [idxecho2]=[idxecho1]
  11.         set [idxecho3]=[idxecho1]
  12. endif
  13. if '[echo3]'='' then
  14.         set [echo3]=[echo]
  15.         set [idxecho3]=[idxecho1]
  16. endif
  17.  
  18.         printe 'Please wait Loading Index Table.....[pointdat]'
  19. maxmsg=table_load('[txtpath][pointdat]')
  20. Open ('[txtpath][curfile]',input)
  21.         Set [sel]=1
  22. if [curfile]='[echo1][pnt]' then
  23.         [echoname]='[echoname1]
  24. ef [curfile]='[echo2][pnt]' 
  25.         [echoname]='[echoname2]'
  26. ef [curfile]='[echo3][pnt]' 
  27.         [echoname]='[echoname3]'
  28. endif
  29. FIDOMNU:
  30. clear (screen)
  31. printe
  32. printe '&00 Current ECHO is now ----> [echoname]     BANK --> [pnt]'
  33. dump
  34.  
  35.                      Poor Man's Xpress FiDoNet
  36.                ======================================
  37.  
  38.                 {R}ead Forward     {F}rom User Search
  39.  
  40.                 {G}o To Message#   {T}o User Search
  41.  
  42.                 {E}cho Change      {L}ist Titles
  43.                          
  44.                 {N}ext Bank        {P}revious Bank
  45.                 
  46.                ============ Version 2.0 =============
  47. end
  48. printe
  49. printe 'Active Echos -  [Echoname1]    [Echoname2]    [Echoname3] '
  50. printe
  51. printe 'Command Or <Return> To EXIT:'
  52. get_key user_sel
  53. if user_sel='r'
  54.         goto fidordjmp
  55. ef user_sel='f'
  56.         goto fidosfjmp
  57. ef user_sel='t'
  58.         goto fidotojmp
  59. ef user_sel='n'
  60.         goto nextbank
  61. ef user_sel='p'
  62.         goto prevbank
  63. ef user_sel='l'
  64.         goto fidosublist
  65. ef user_sel='g'
  66.         goto fidojmp
  67. ef user_sel='e'
  68.         set [pnt]='001'
  69.         goto switch
  70. ef user_sel=''
  71.         exit
  72. endif
  73. goto fidomnu
  74.  
  75. SWITCH:
  76. if [echo]=[echo1] then
  77.      set [echo]=[echo2]
  78.      set curfile='[echo][pnt]'
  79.      set [idxpnt]='[idxecho2]'
  80.      set pointdat='[idxpnt][pnt]'
  81.      goto change_echo
  82. endif
  83. if [echo]=[echo2] then
  84.      set [echo]=[echo3]
  85.      set curfile='[echo][pnt]'
  86.      set [idxpnt]='[idxecho3]'
  87.      set pointdat='[idxpnt][pnt]'
  88.      goto change_echo
  89. endif
  90. if [echo]=[echo3] then
  91.      set [echo]=[echo1]
  92.      set curfile='[echo][pnt]'
  93.      set [idxpnt]='[idxecho1]'
  94.      set pointdat='[idxpnt][pnt]'
  95.      goto change_echo
  96. endif
  97.  
  98. exit
  99.  
  100. ;
  101. ;                       FIDO READ OPTION 
  102. FIDORDJMP:
  103. set [sel]=1
  104. FIDORD:
  105. clear (screen)
  106. if [sel]>[maxmsg] then
  107.         clear (screen)
  108.         printe 'End of Messages -  <Q>uit'
  109.         get_key user_sel
  110.         goto fidomnu
  111. endif
  112.         table1=table_get([sel])
  113.         fnamef=get_word('[table1]',1)
  114.         lnamef=get_word('[table1]',2)
  115.         fnamet=get_word('[table1]',3)
  116.         lnamet=get_word('[table1]',4)
  117.         msgnum=get_word('[table1]',5)
  118.         table1w=get_word('[table1]',6)
  119.         origin=get_word('[table1]',9)
  120.         point [table1w]
  121. GET_MSG:
  122. [chk]=NOTE
  123. if [chk]<[origin] then
  124.         finput fidotxt
  125.         printe '[fidotxt]'
  126.         goto get_msg
  127. endif
  128. finput fidotxt
  129. printe '[fidotxt]'
  130. printe
  131.  
  132. ENDMSG:
  133.         printe '<A>gain <J>ump <N>ext <P>revious <Q>uit'
  134.         get_key user_sel
  135. if user_sel='q' then
  136.         goto fidomnu
  137. ef user_sel='a' then
  138.         goto fidord
  139. ef user_sel='p' then
  140.         decrease sel 1
  141.         goto fidord
  142. ef user_sel='j' then
  143.         goto fidojmp
  144. endif
  145. if [sel]=0 then
  146.         set [sel]=1
  147. endif
  148. increase sel 1 
  149. goto fidord
  150. ; 
  151. ;                       FIDO SEARCH FOR
  152. ;
  153. FIDOSFJMP:
  154. set [sel]=1
  155. Printe
  156. Printe 'Enter Name of User or <Return> to Exit'
  157. Printe 'Search FROM:'
  158. input search 25
  159. if search='' then
  160.         goto fidomnu
  161. endif
  162.  
  163. FIDOSF:
  164.         table1=table_get([sel]) 
  165.         fnamef=get_word('[table1]',1)
  166.         lnamef=get_word('[table1]',2)
  167.         temp=get_word('[table1]',5)
  168.         set fullname1='[fnamef] [lnamef]'
  169. if [search]=[fullname1] then
  170.         printe
  171.         printe 'From:[fullname1]               Msg#[temp]'
  172. endif
  173.         increase [sel] 1
  174. if [sel]=[maxmsg] then
  175.         goto endit
  176. endif
  177. goto fidosf
  178. ;
  179. ;
  180. ;                       FIDO JUMP and GOTO
  181. ;
  182. FIDOJMP:
  183. printe 'Enter Message <#> or <0> to Exit \ High Message is [maxmsg] '
  184. input [sel] 2 noreturn
  185. clear (screen)
  186. if [sel]>[maxmsg] then
  187.         goto fidomnu
  188. ef [sel]=0 then 
  189.         set [sel]=1
  190.         goto fidord
  191. endif
  192.         table1=table_get([sel]) 
  193.         table1w=get_word('[table1]',6)
  194.         origin=get_word('[table1]',9)
  195.         point [table1w]
  196. GRABIT:
  197. [chk]=NOTE
  198. if [chk]<[origin] then
  199.         finput fidotxt
  200.         printe '[fidotxt]'
  201.         goto grabit
  202. endif
  203.         finput fidotxt
  204.         printe '[fidotxt]'
  205.         printe
  206. goto endmsg
  207. ;
  208. ;                       Fido Search TO:
  209. ;
  210. FIDOTOJMP:
  211. set [sel]=1
  212. Printe
  213. Printe 'Enter Name of User or <Return> to Exit'
  214. Printe 'Search TO:?'
  215. input [search] 25
  216. if [search]='' then
  217.         goto fidomnu
  218. endif
  219. FIDOST:
  220.         table1=table_get([sel]) 
  221.         fnamet=get_word('[table1]',3)
  222.         lnamet=get_word('[table1]',4)
  223.         temp=get_word('[table1]',5)
  224.         set fullname1='[fnamet] [lnamet]'
  225.  
  226. if [search]=[fullname1] then
  227.         printe
  228.         printe 'To:[fullname1]               Msg#[temp]'
  229. endif
  230. increase sel 1
  231. if [sel]=[maxmsg]
  232.         goto endit
  233. endif
  234. goto fidost
  235.  
  236. ENDIT:
  237. printe
  238. printe 'End of Search , Press Any Key To Continue'
  239.         get_key user_sel
  240.         goto fidomnu
  241. exit
  242.  
  243. FIDOSUBLIST:
  244.         set [sel]=0
  245. subloop:
  246.         increase [sel] 1
  247. if [sel]>[maxmsg] then
  248.         goto endit
  249. endif
  250.         table1=table_get([sel]) 
  251.         temp=get_word('[table1]',6)
  252.         point [temp]
  253.         finput fidotxt
  254. printe  '[fidotxt]'
  255.         finput fidotxt
  256. printe  '[fidotxt]'
  257.         finput fidotxt
  258. printe  '[fidotxt]'
  259. printe
  260. goto subloop
  261.  
  262. NEXTBANK:
  263. if [pnt]='001' then
  264.         if file_exists('[txtpath][echo]002') then
  265.         set [pnt]='002'
  266.         set [curfile]='[echo][pnt]'
  267.         set [pointdat]='[idxpnt][pnt]'
  268.         GOTO CHANGE_ECHO
  269. endif
  270. if [pnt]='002' then
  271.         if file_exists('[txtpath][echo]003') then
  272.         set [pnt]='003'
  273.         set [curfile]='[echo][pnt]'
  274.         set [pointdat]='[idxpnt][pnt]'
  275.         GOTO CHANGE_ECHO
  276. endif
  277. if [pnt]='003' then
  278.         if file_exists('[txtpath][echo]004') then
  279.         set [pnt]='004'
  280.         set [curfile]='[echo][pnt]'
  281.         set [pointdat]='[idxpnt][pnt]'
  282.         GOTO CHANGE_ECHO
  283. endif
  284. if [pnt]='004' then 
  285.         if file_exists('[txtpath][echo]005') then
  286.         set [pnt]='005'
  287.         set [curfile]='[echo][pnt]'
  288.         set [pointdat]='[idxpnt][pnt]'
  289.         goto CHANGE_ECHO
  290. endif
  291. goto fidomnu
  292.  
  293. PREVBANK:
  294. if [pnt]='005' then
  295.         set [pnt]='004'
  296.         set [curfile]='[echo][pnt]'
  297.         set [pointdat]='[idxpnt][pnt]'
  298.         GOTO CHANGE_ECHO
  299. ef [pnt]='004' 
  300.         set [pnt]='003'
  301.         set [curfile]='[echo][pnt]'
  302.         set [pointdat]='[idxpnt][pnt]'
  303.         GOTO CHANGE_ECHO
  304. ef [pnt]='003' 
  305.         set [pnt]='002'
  306.         set [curfile]='[echo][pnt]'
  307.         set [pointdat]='[idxpnt][pnt]'
  308.         GOTO CHANGE_ECHO
  309. ef [pnt]='002' 
  310.         set [pnt]='001'
  311.         set [curfile]='[echo][pnt]'
  312.         set [pointdat]='[idxpnt][pnt]'
  313.         GOTO CHANGE_ECHO
  314. endif
  315. goto fidomnu
  316.  
  317.