>** Remote Operation | >** written using Flash 1.52| >** | >QU "Enter name of setup file: " $A| >** modem setup string, default path| >L: Initialize| >OP $A| >IF OP JMP KeepGoing| >TYPE "Aborting... Unable to open setup file||"| >B2| >END| >L: KeepGoing| >** read password1 for FULL access| >INPUT $Z| >** read password2 for limited access - no destructive commands allowed| >INPUT $Y| >** read default path| >INPUT $F| >** get max baud rate| >INPUT $G| >** string to initialize modem| >INPUT $H| >** string sent to screen by modem when a ring is detected| >INPUT $I| >** ********************************************| >L: TopLabel| >DP $F| >$L $F| >BA $G| >SEND $H| >PA 2| >CA OFF| >EC OFF| >LF OFF| >** | >** L: AwaitingCall| >** IF ~CA JMP AwaitingCall| >** | >** BAUDmatch uses the Hayes CONNECT messages to match the baud rate| >** that the modems connected at automatically| >WA $I| >SEND "ATA|"| >GET $N 15| >IFI $N "2400" BA 24| >IFI $N "1200" BA 12| >IFI $N "300" BA 30| >GET $N 15| >IFI $N "2400" BA 24| >IFI $N "1200" BA 12| >IFI $N "300" BA 30| >LF ON| >** Note: need double '' in next line| >SEND " You have reached Ed''s Remote DO Flash Controller||"| >SEND " Please enter your password:"| >EC ON| >ASCII 0| >L: NULL| >GET $B| >IF ~B jmp NULL| >** changed - IFI ~$B is not a valid command| >IFI $B $Y JMP Limited| >IFI $B $Z JMP Full| >SEND " **** NO retries on password **** |"| >HG| >JMP TopLabel| >L: Full| >$M "MAX"| >SEND "| You have full access|"| >JMP CommandLoop| >L: Limited| >$M "LIMITED"| >L: CommandLoop| >IF ~CA JMP TopLabel| >SEND "|COMMAND:"| >GET $C| >IF C JMP FindCommand| >SEND " 30 seconds till automatic logoff enter valid command|"| >GET $C 30| >IF ~C JMP Logoff| >L: FindCommand| >IFI $C "bye" JMP LogOff| >IFI $C "BYE" JMP LogOff| >IFI $C "dir" JMP DiskDir| >IFI $C "DIR" JMP DiskDir| >IFI $C "down" JMP SendingASCII| >IFI $C "DOWN" JMP SendingASCII| >IFI $C "cd" JMP DefPath| >IFI $C "CD" JMP DefPath| >IFI $C "dp" JMP DefPath| >IFI $C "DP" JMP DefPath| >IFI $C "exit" JMP LogOff| >IFI $C "EXIT" JMP LogOff| >IFI $C "help" JMP Menu| >IFI $C "HELP" JMP Menu| >IFI $C "?" JMP Menu| >IFI $C "kill" JMP Delete| >IFI $C "KILL" JMP Delete| >IFI $C "off" JMP LogOff| >IFI $C "OFF" JMP LogOff| >IFI $C "quit" JMP LogOff| >IFI $C "QUIT" JMP LogOff| >IFI $C "RECEIVE" JMP SendingXMODEM| >IFI $C "receive" JMP SendingXMODEM| >IFI $C "send" JMP ReceivingXMODEM| >IFI $C "SEND" JMP ReceivingXMODEM| >IFI $C "upload" JMP ReceivingASCII| >IFI $C "UPLOAD" JMP ReceivingASCII| >** the next line is only reached if NO valid commands are found| >SEND "Invalid command. Enter HELP for menu|"| >JMP CommandLoop| >** ********************************************| >L: DefPath| >** change default path| >IFI ~$M "MAX" JMP CommandLoop| >SEND "Enter new path:"| >GET $D| >IF ~D JMP CommandLoop| >DP $D| >$L $D| >JMP CommandLoop| >** ********************************************| >L: Delete| >** kill or delete a file| >IFI ~$M "MAX" JMP CommandLoop| >SEND "Enter file in current dirtectory to kill or delete:"| >GET $D| >IF D KI $D| >JMP CommandLoop| >** ********************************************| >L: DiskDir| >** display disk directory| >SEND "Path of desired directory or return for current directory:"| >GET $D| >OPEN AUX:| >IF ~D DDIR *.* AUX:| >IF D DDIR $D AUX:| >JMP CommandLoop| >** ********************************************| >L: LogOff| >** hangup/disconnect| >SEND "Prepare for Disconnect"| >HG| >JMP TopLabel| >** ********************************************| >L: Menu| >** display a menu of available commands| >SEND "|||||"| >SEND " Flash Remote DO Control Version 1|"| >SEND " DIR - display a disk directory|"| >SEND " DOWN - ASCII download of file from this system|"| >IFI ~$M "MAX" JMP Skip1| >SEND " DP * change the default path|"| >L: Skip1| >SEND " EXIT - exit or logoff this system|"| >SEND " HELP - display this menu|"| >IFI ~$M "MAX" JMP Skip2| >SEND " KILL * kill or delete a file in the default directory|"| >L: Skip2| >SEND " RECEIVE - xmodem download of a file from this system|"| >SEND " SEND - xmodem upload of a file to this system|"| >SEND " UPLOAD - ASCII upload of a file to this system|"| >SEND "| commands with * require full system access||"| >JMP CommandLoop| >** ********************************************| >L: ReceivingXMODEM| >** receive a file using xmodem| >SEND "Name of file to upload:"| >GET $D| >IF ~D JMP CommandLoop| >DL XM $D| >SEND ""| >IF ~DL JMP ReceivingXMODEM| >** above is to retry if xmodem failed| >SEND $D| >SEND " received|"| >JMP CommandLoop| >** ********************************************| >L: ReceivingASCII| >** receive a straight ASCII file| >SEND "Name of ASCII file to upload:"| >GET $D| >IF ~D JMP CommandLoop| >DL AS $D| >SEND ""| >IF ~DL JMP ReceivingASCII| >** above is to retry if ASCII upload failed| >SEND $D| >SEND " received|"| >JMP CommandLoop| >** ********************************************| >L: SendingASCII| >** send a straight ASCII file| >SEND "Name of file to ASCII download:"| >GET $D| >IF ~D JMP CommandLoop| >UL AS $D| >SEND ""| >IF ~UL JMP SendingASCII| >** above is to retry if ASCII download failed| >SEND $D| >SEND " sent|"| >JMP CommandLoop| >** ********************************************| >L: SendingXMODEM| >** send a file using xmodem| >SEND "Name of file to download:"| >GET $D| >IF ~D JMP CommandLoop| >UL XM $D| >SEND ""| >IF ~UL JMP SendingXMODEM| >** above is to retry if xmodem failed| >SEND $D| >SEND " sent|"| >JMP CommandLoop|