home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / bbs / remotedo / remote1.do < prev    next >
Text File  |  1987-12-28  |  7KB  |  269 lines
  1. >TY " Remote Operation written using Flash 1.52|"|
  2. >TY "Original concept by Ed Seward, modifications by Bud Hammerton.|"|
  3. >TY "Version 1.00  -  December 28, 1987|"|
  4. >** *******************|
  5. >L: Initialize|
  6. >** *******************|
  7. >QU "Enter name of setup file|Specify complete pathname|Including drive:" $A|
  8. >OP $A|
  9. >IF OP JMP KeepGoing|
  10. >AL "[3][Aborting . . .|Unable to open setup file][ Cancel ]"|
  11. >B2|
  12. >END|
  13. >L: KeepGoing|
  14. >TY "Password for full access: "|
  15. >INP $Z|
  16. >TY $Z|>TY "|"|
  17. >TY "Password for limited access - no destructive commands: "|
  18. >INP $Y|
  19. >TY $Y|>TY "|"|
  20. >TY "Password for shell execution: "|
  21. >INP $X|
  22. >TY $X|>TY "|"|
  23. >TY "Password to shut down remote DO: "|
  24. >INP $U|
  25. >TY $U|>TY "|"|
  26. >TY "Default path: "|
  27. >INP $F|
  28. >TY $F|>TY "|"|
  29. >TY "Maximum baud rate: "|
  30. >INP $G|
  31. >TY $G|TY "|"|
  32. >** Modem initialization string|
  33. >INP $H|
  34. >** Ring detection string|
  35. >INP $I|
  36. >CA CL|
  37. >** *******************|
  38. >L: TopLabel|
  39. >DP $F|
  40. >$L $F|
  41. >BA $G|
  42. >SE $H|
  43. >PA 2|
  44. >CA OFF|
  45. >EC OFF|
  46. >LF OFF|
  47. >WA $I|
  48. >SE "ATA|"|
  49. >GET $N 15|
  50. >IFI $N "2400" BA 24|
  51. >IFI $N "1200" BA 12|
  52. >IFI $N "300" BA 30|
  53. >GET $N 15|
  54. >IFI $N "2400" BA 24|
  55. >IFI $N "1200" BA 12|
  56. >IFI $N "300" BA 30|
  57. >LF ON|
  58. >SE "|You have reached FLASH DO Remote Controller|"|
  59. >SE "Version 1.00||"|
  60. >SE "Please enter your full name:"|
  61. >EC ON|
  62. >AS 0|
  63. >GET $W|
  64. >LOG $W|>LOG |
  65. >L: NULL|
  66. >SE "Please enter your password:"|
  67. >GET $B|
  68. >IF ~B jmp NULL|
  69. >** changed - IFI ~$B is not a valid command|
  70. >IFI $B $Y JMP Limited|
  71. >IFI $B $Z JMP Full|
  72. >SE "**◆** Invalid password, access denied **◆**|"|
  73. >HG|
  74. >JMP TopLabel|
  75. >L: Full|
  76. >$M "MAX"|
  77. >SE "|You have full access|"|
  78. >JMP CommandLoop|
  79. >L: Limited|
  80. >$M "LIMITED"|
  81. >L: CommandLoop|
  82. >IF ~CA JMP TopLabel|
  83. >SE "|COMMAND:"|
  84. >GET $C 45 Logoff|
  85. >IF C JMP FindCommand|
  86. >SE "45 seconds till automatic logoff enter valid command|"|
  87. >GET $C 45|
  88. >IF ~C JMP Logoff|
  89. >L: FindCommand|
  90. >IFI $C "BYE" JMP LogOff|
  91. >IFI $C "DIR" JMP DiskDir|
  92. >IFI $C "DOWN" JMP SendingASCII|
  93. >IFI $C "CD" JMP DefPath|
  94. >IFI $C "DP" JMP DefPath|
  95. >IFI $C "EXIT" JMP LogOff|
  96. >IFI $C "HELP" JMP Menu|
  97. >IFI $C "?" JMP Menu|
  98. >IFI $C "KILL" JMP Delete|
  99. >IFI $C "OFF" JMP LogOff|
  100. >IFI $C "QUIT" JMP LogOff|
  101. >IFI $C "RECEIVE" JMP SendingXMODEM|
  102. >IFI $C "SEND" JMP ReceivingXMODEM|
  103. >IFI $C "SE" JMP ReceivingXMODEM|
  104. >IFI $C "REC" JMP SendingXMODEM|
  105. >IFI $C "UPLOAD" JMP ReceivingASCII|
  106. >IFI $C "SHELL" JMP CommandEXEC|
  107. >IFI $C "SHUT" JMP TerminateRemoteDO|
  108. >** the next line is only reached if NO valid commands are found|
  109. >SE "Invalid command. Enter HELP or ? for menu|"|
  110. >JMP CommandLoop|
  111. >** ********************|
  112. >L: DefPath|
  113. >** change default path|
  114. >IFI $M "LIMITED" JMP CommandLoop|
  115. >SE "Enter new path:"|
  116. >GET $D|
  117. >IF ~D JMP CommandLoop|
  118. >DP $D|
  119. >$L $D|
  120. >JMP CommandLoop|
  121. >** ********************|
  122. >L: Delete|
  123. >** kill or delete a file|
  124. >IFI $M "LIMITED" JMP CommandLoop|
  125. >SE "Enter file in current dirtectory to kill or delete:"|
  126. >GET $D|
  127. >IF D KI $D|
  128. >LOG $D|
  129. >LOG " deleted|"|
  130. >JMP CommandLoop|
  131. >** ********************************************|
  132. >L: DiskDir|
  133. >** display disk directory|
  134. >SE "Path of desired directory or return for current directory:"|
  135. >GET $D|
  136. >OPEN AUX:|
  137. >IF ~D DDIR *.* AUX:|
  138. >IF D DDIR $D AUX:|
  139. >JMP CommandLoop|
  140. >** ********************************************|
  141. >L: LogOff|
  142. >** hangup/disconnect|
  143. >SE "Prepare for Disconnect◆◆|"|
  144. >HG|
  145. >JMP TopLabel|
  146. >** ********************************************|
  147. >L: Menu|
  148. >** display a menu of available commands|
  149. >SE "||||"|
  150. >SE "         Flash Remote DO Control Version 1.00||"|
  151. >SE "   DIR     - display a disk directory|"|
  152. >SE "   DOWN    - ASCII download of file from this system|"|
  153. >IFI $M "LIMITED" JMP Skip1|
  154. >SE "   DP      * change the default path|"|
  155. >L: Skip1|
  156. >SE "   EXIT    - exit or logoff this system|"|
  157. >SE "   HELP    - display this menu|"|
  158. >IFI $M "LIMITED" JMP Skip2|
  159. >SE "   KILL    * kill or delete a file in the default directory|"|
  160. >L: Skip2|
  161. >SE "   RECEIVE - XMODEM download of a file from this system|"|
  162. >SE "   SE    - XMODEM upload of a file to this system|"|
  163. >IFI $M "LIMITED" JMP Skip3|
  164. >SE "   SHELL   * execute COMMAND program|"|
  165. >L: Skip3|
  166. >IFI $M "LIMITED" JMP Skip4|
  167. >SE "   SHUT    * shut down entire system|"|
  168. >L: Skip4|
  169. >SE "   UPLOAD  - ASCII upload of a file to this system|"|
  170. >IFI $M "LIMITED" JMP Skip5|
  171. >SE "|        Commands with * require full system access||"|
  172. >L: Skip5|
  173. >JMP CommandLoop|
  174. >** ********************************************|
  175. >L: ReceivingXMODEM|
  176. >** receive a file using xmodem|
  177. >SE "Name of file to upload:"|
  178. >GET $D|
  179. >IF ~D JMP CommandLoop|
  180. >DL XM $D|
  181. >SE "◆◆"|
  182. >IF ~DL JMP ReceivingXMODEM|
  183. >** above is to retry if xmodem failed|
  184. >SE $D|
  185. >SE " received|"|
  186. >LOG "Recieved XMODEM file: "|
  187. >LOG $D|>LOG |
  188. >JMP CommandLoop|
  189. >** ********************************************|
  190. >L: ReceivingASCII|
  191. >** receive a straight ASCII file|
  192. >SE "Name of ASCII file to upload:"|
  193. >GET $D|
  194. >IF ~D JMP CommandLoop|
  195. >DL AS $D|
  196. >SE "◆◆"|
  197. >IF ~DL JMP ReceivingASCII|
  198. >** above is to retry if ASCII upload failed|
  199. >SE $D|
  200. >SE " received|"|
  201. >LOG $D|
  202. >LOG "Recieved ASCII file: "|
  203. >LOG $D|>LOG |
  204. >JMP CommandLoop|
  205. >** ********************************************|
  206. >L: SendingASCII|
  207. >** send a straight ASCII file|
  208. >SE "Name of file to ASCII download:"|
  209. >GET $D|
  210. >IF ~D JMP CommandLoop|
  211. >UL AS $D|
  212. >SE "◆◆"|
  213. >IF ~UL JMP SendingASCII|
  214. >** above is to retry if ASCII download failed|
  215. >SE $D|
  216. >SE " sent|"|
  217. >LOG $D|
  218. >LOG " sent ASCII|"|
  219. >JMP CommandLoop|
  220. >** ********************************************|
  221. >L: SendingXMODEM|
  222. >** send a file using xmodem|
  223. >SE "Name of file to download:"|
  224. >GET $D|
  225. >IF ~D JMP CommandLoop|
  226. >UL XM $D|
  227. >SE "◆◆"|
  228. >IF ~UL JMP SendingXMODEM|
  229. >** above is to retry if xmodem failed|
  230. >SE $D|
  231. >SE " sent|"|
  232. >LOG $D|
  233. >LOG " sent XMODEM|"|
  234. >JMP CommandLoop|
  235. >** ********************************************|
  236. >L: CommandEXEC|
  237. >IFI $M "LIMITED" JMP CommandLoop|
  238. >** execute COMMAND.TTP and issue CTTY AUX command|
  239. >SE "Enter password for DOS shell entry:"|
  240. >GET $B|
  241. >IF ~B JMP CommandLoop|
  242. >IFI $B $X JMP Execute|
  243. >SE "|**◆** Invalid password, returning to Remote DO **◆**|"|
  244. >JMP CommandLoop|
  245. >L: Execute|
  246. >EX D:\COMMAND.TTP CTTY AUX|
  247. >JMP CommandLoop|
  248. >** ********************************************|
  249. >L: TerminateRemoteDO|
  250. >IFI $M "LIMITED" JMP CommandLoop|
  251. >SE "Shut down password: "|
  252. >GET $B|
  253. >IFI $B $U JMP ShutDown|
  254. >JMP CommandLoop|
  255. >L: ShutDown|
  256. >SE "|This command terminates execution of FLASH DO Remote Controller.|"|
  257. >SE "After execution of this command, no further input can be processed,|"|
  258. >SE "the modem will hangup, the capture buffer will be saved, and FLASH.PRG|"|
  259. >SE "will be halted||"|
  260. >SE "You have 15 seconds to cancel this command, type A <Return> to abort.|"|
  261. >EC OFF|
  262. >GET $V 15|
  263. >IFI $V "A" JMP CommandLoop|
  264. >SE "Prepare for disconnect◆◆|"|
  265. >HG|
  266. >SA CA D:\REMOTE.LOG|
  267. >XD|
  268. 
  269.