home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / comm / qmscr41.zip / GETLOG.MOD < prev    next >
Text File  |  1989-04-01  |  2KB  |  105 lines
  1. ;LANS  10-18-88  08:58  GETLOG.MOD
  2. ;
  3. ASSIGN 0 'P'
  4. ASSIGN BBSlog  'PCB'
  5. ASSIGN autosel 'N'
  6. ASSIGN logend  'done'
  7. ASSIGN prtcol  'F'
  8. ASSIGN dirpath 'C:\U2'
  9. ASSIGN YorN 'Y'
  10. ASSIGN Owrite 'Y'
  11. getlog:
  12. CLRSCR
  13. IF $offline offlinemsg
  14. ATWRITE 7 2 14 '    On-line with '
  15. ATWRITE 24 2 78 '  $board  '
  16. GOTO jf1
  17. offlinemsg:
  18. ATWRITE 7 2 14 '   Currently Not On-Line'
  19. jf1:
  20. ATWRITE 7 3 6 '    ( )C-Board, ( )xec-PC, ( )Planz, ( )ido, ( )BBS ? '
  21. ATWRITE 61 3 4 '#1> '
  22. SCRIPT getBBS.mod
  23. ATWRITE 65 3 3 '$BBSlog'
  24. ATWRITE 7 4 6 '    Select Auto-Logoff after File Transfers [  or  ]? '
  25. ATWRITE 61 4 4 '#2> '
  26. SCRIPT YorN.mod
  27. ATWRITE 65 4 3 '$autosel'
  28. ATWRITE 7 5 6 '    Select Download Protocol [ , , , , , , , , ] '
  29. ATWRITE 56 5 4 '#3> '
  30. ASSIGN 0 '$prtcol'
  31. SCRIPT selprt.mod
  32. ATWRITE 60 5 3 '$prtcol'
  33. ATWRITE 7 6 6 '    Select '
  34. ATWRITE 18 6 13 'Drive:\Path '
  35. ATWRITE 30 6 4 '#4> '
  36. ATWRITE 34 6 3 '$dirpath'
  37. IF '$scr_type' = 'D' get_correct
  38. ATWRITE 7 7 6 '    Keep U/L in conference? [  or  ] '
  39. ATWRITE 44 7 4 '#5> '
  40. SCRIPT ULYorN.mod
  41. ATWRITE 48 7 3 '$YorN'
  42. ATWRITE 7 8 6 '    Over-write existing files? [  or  ] '
  43. ATWRITE 47 8 4 '#6> '
  44. SCRIPT OWYorN.mod
  45. ATWRITE 51 8 3 '$Owrite'
  46. get_correct:
  47. ATWRITE 7 10 6 '    Selection # or ( )ll to change or (   ) >  '
  48. ATWRITE 27 10 13 'A'
  49. ATWRITE 46 10 13 'RET'
  50. IF '$scr_type' <> 'D' U-L
  51. GOTOXY 47 9
  52. GOTO D-L
  53. U-L:
  54. GOTOXY 50 9
  55. D-L:
  56. COLOR 15
  57. GET correct 1
  58. IF '$correct' = '' getone
  59. IF '$correct' = '1' cng_def
  60. IF '$correct' = '2' auto_log
  61. IF '$correct' = '3' prot_col
  62. IF '$correct' = '4' selpath
  63. IF '$scr_type' = 'D' skip5
  64. IF '$correct' = '5' ULconf
  65. IF '$correct' = '6' over_write
  66. skip5:
  67. IF '$correct' = 'A' cng_def
  68. GOTO get_correct
  69. getone:
  70. RETURN
  71. cng_def:
  72. ATWRITE 61 3 138 '#1> '
  73. COLOR 15
  74. IF '$scr_type' <> 'D' U-L1
  75. GOTOXY 59 2
  76. GOTO D-L1
  77. U-L1:
  78. GOTOXY 62 2
  79. D-L1:
  80. GET 0 1
  81. ATWRITE 61 3 4 '#1> '
  82. IF '$0' = '' auto_log
  83. SCRIPT getbbs.mod
  84. ATWRITE 65 3 11 '$BBSlog'
  85. auto_log:
  86. IF '$correct' = '1' get_correct
  87. SCRIPT autolog.mod
  88. prot_col:
  89. IF '$correct' = '2' get_correct
  90. SCRIPT getprt.mod
  91. selpath:
  92. IF '$correct' = '3' get_correct
  93. SCRIPT getpath.mod
  94. ULconf:
  95. IF '$scr_type' = 'D' get_correct
  96. IF '$correct' = '4' get_correct
  97. SCRIPT ULconf.mod
  98. over_write:
  99. IF '$correct' = '5' get_correct
  100. SCRIPT overrite.mod
  101. IF '$correct' = '6' get_correct
  102. IF '$correct' = 'A' get_correct
  103. GOTO get_correct
  104. ;
  105.