home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / RMS05A2.LHA / ReXXmAsHeRv0.5a / Ami-Express / Ami-Express.rexx
Encoding:
OS/2 REXX Batch file  |  1994-06-05  |  2.3 KB  |  1 lines
  1. /* RMS Startup Script V0.2 (06-JUN-1994) By The DALAI LAMA of GLOBAL OVERDOSE!            $VER:  RMS STARTUP SCRIPT V0.2 (06-JUN-94) BY THE DALAI LAMA OF GLOBAL OVERDOSE*/;parse arg node;OPTIONS RESULTS;address value "AERexxControl"||node;tr=transmit;st=sendstring;getuser 131;CMDLINE=upper(RESULT);CMD=word(CMDLINE,1);RES=open(IN,"S:RMS.CONFIG","R");tr d2c('12');tr "C                                                                 ";tr "C|                                                               |";tr "C|        -*- RMS STARTUP SCRIPT V0.2 FOR AMI-EXPRESS -*-        |";tr "C|     Copyright © 1994 By The Dalai Lama of Global Overdose     |";tr "C| RexxMasher (RMS) Copyright © 1994 By Nzo of Dual Crew/Shining |";tr "C|                                                               |";if RES=0 then;do;LTY="WARNING! S:RMS.CONFIG NOT FOUND!";tr ""||center(LTY,80)||"";tr "";shutdown;exit;end;NUMS=0;do until eof(IN);LINE=readln(IN);NUMS=NUMS+1;if upper(word(LINE,1))=CMD then BREAK;end;close(IN);do x=1 to NUMS;end;if upper(word(LINE,1))~=CMD then;do;LTY="WARNING! RMS COMMAND '"||CMD||"' NOT FOUND!";CALL WARN;end;CMDLOC=UPPER(word(LINE,2));if EXISTS(CMDLOC)=0 then;do;LTY="WARNING! THE DOOR '"||CMDLOC||"' CANNOT BE LOCATED!";call WARN;end;do;address command "C:version "||CMDLOC||" >RAM:RMS.VERSION";open(INV,"RAM:RMS.VERSION","R");VERS=readch(INV,100);close(INV);address command "C:DELETE >NIL: RAM:RMS.VERSION QUIET";VERS=UPPER(VERS);TRV=index(VERS,"REXXMASHER");if TRV=0 then;do;LTY="WARNING! '"||CMDLOC||"' IS NOT AN RMS DOOR!";call WARN;end;end;st "C|                  Please Wait, Decrypting:                     |";S.1="-";S.2=">";S.3=")";S.4="|";S.5="(";S.6="<";S.7="-";S.8="-";H=1;S.9="<";S.10="(";S.11="|";S.12=")";S.13=">";S.14="-";st "D"||S.H||" ";do f=1 to 2000;if f/40=trunc(F/40) then;do;st "D"||S.H||" ";H=H+1;if H=15 then H=1;end;end;st "";address command CMDLOC||" "||node;exit;WARN:;tr "A       |                                                               |        ";tr ""||center(LTY,80)||"";tr "";shutdown;exit