home *** CD-ROM | disk | FTP | other *** search
- /* $VER: DIZ-Writter v1.0 © /Y\o\/\/er HoT HoUsE BBS +381-30-8xxxx Majdanpek */T='T:';TF='T:FILE_ID.DIZ';T2='T:ID2';T3='T:ID3';S='S:DIZ/';FD='FILE_ID.DIZ';TL='T:List';PM='PPMore PUBSCREEN DOPUS.1';PS='PPShow';PN='DIZ-Writter v1.0';CED='ED -keepio';DL='DELETE';ID='S:DIZ/1';N='0a'x;P=' PRESS RETURN !';Wn='CON:0/11/640/234'||'/'PN'/AUTO/CLOSE/ScreenDOPUS.1';OPTIONS RESULTS;PARSE ARG Ar;ADDRESS COMMAND;UPPER Ar;F=Ar;Call addlib('rexxreqtools.library',0,-30,0);RT2='RT_ReqPos=ReqPos_CenterScr';IF Ar~='' Then Call OK;Ar=Result;Call RTEzRequest('No file have been selected.','I see',PN,RT2);Exit;OK:PARSE VAR Ar Device ":" Ar;Pt="";DO FOREVER;PARSE VAR Ar FN "/" Ar;IF Ar="";Then BREAK;Pt=Pt||FN"/";END;G2='_Edit|_L|_T|_DELAds|_KillDIZ|Quit';RT='RT_ReqPos=ReqPos_CenterScr RTEz_DefaultResponse=0';Y=Right(F,4);Call Y1;Y1:IF Y='.DMS' Then Call D;IF Y='.LHA'|Y='.LZH'|Y='.LZA'|Y='.LHZ'|Y='.RUN'|Y='.SFX' Then Call L;IF Y='.EXE' Then Call E;IF Y='.TXT'|Y='.DOC'|Y='.DOK'|Y='.DOX'|Y='.CAP'|Y='.NFO'|Y='.ASC' Then Call T;IF Y='.ZIP' Then Call Z;IF Y='.LZX' Then Call X;IF Y='.GIF' Then Call G;Call nY;L:DL TF T2 TL;LHA x F FD T;Call V;rL:C=RTEzRequest(Tx,G2,FN,RT);Select;When C=1 Then Call ED;When C=2 Then Call L_L;When C=3 Then Call L_T;When C=4 Then Call L_N;When C=5 Then Call L_K;When C=0 Then Call Q;End;L_ED2:LHA r F TF;DL TL;Call V1;L_L:IF Exists(TL)=1 Then Call FL;LHA v F '>'TL'';Call FL;L_T:Close(STDOUT);IF Open(STDOUT,Wn,W) Then;DO;LHA t F;Call EW;L_N:Close(STDOUT);IF Open(STDOUT,Wn,W) Then;DO;Istrip F;LHA v F;Call EW2;L_K:IF Exists(TF)=0 Then Call nID;LHA d F FD;Call NO;X:DL TF T2 TL;LZX x F FD T;Call V;rX:C=RTEzRequest(Tx,G2,FN,RT);Select;When C=1 Then Call ED;When C=2 Then Call X_L;When C=3 Then Call X_T;When C=4 Then Call X_N;When C=5 Then Call X_K;When C=0 Then Call Q;End;X_ED2:LZX u F TF;DL TL;Call V1;X_L:IF Exists(TL)=1 Then Call FL;LZX l F '>'TL'';Call FL;X_T:Close(STDOUT);IF Open(STDOUT,Wn,W) Then;DO;LZX t F;Call EW;X_N:Close(STDOUT);IF Open(STDOUT,Wn,W) Then;DO;StripLZX F;LZX v F;Call EW2;X_K:IF Exists(TF)=0 Then Call nID;LZX d F FD;Call NO;D:DL TF T2 T3;DMSDESCRIPT x TF F;Copy TF T3;Call V;rD:C=RTEzRequest(Tx,'_Edit|_V|_T|_MaPuS|_KillDIZ|Quit',FN,RT);Select;When C=1 Then Call ED;When C=2 Then Call D_V;When C=3 Then Call D_T;When C=4 Then Call D_M;When C=5 Then Call D_K;When C=0 Then Call Q;End;D_ED2:IF Exists(T3)=0 Then call D_ED3;DMSDESCRIPT d F;DMSDESCRIPT a TF F;Call V1;D_ED3:DMSDESCRIPT a TF F;Copy TF T3;Call V1;D_V:IF Exists(TL)=1 Then Call FL;DMS VIEW F '>'TL'';Call FL;D_T:Close(STDOUT);IF Open(STDOUT,Wn,W) Then;DO;DMS TEST F;Call EW;D_K:IF Exists(TF)=0 Then Call nID;DMSDESCRIPT d F;Call NO;D_M:B=RTGetString("-aAtdrRk"," Enter Arguments for /\/\aPuS:"||N||""||N||"-a Add Front Banner -r Remove Front Banner(s)"||N||"-A Add Tail Banner -R Remove Tail Banner(s)"||N||"-t Add Track Banner -k Kill Track Banner(s)"||N||"-c Activate Return Codes -f View Full Mode"||N||"-d Add Date on Track Banner -s Don't Check Disk Space",FN,"_Continue|_Abort",RT2);IF rtresult = 1 Then Call D_M2;IF rtresult = 0 Then Call V1;D_M2:Close(STDOUT);IF Open(STDOUT,Wn,W) Then;DO;Mapus B F;Call EW;E:DL TF T2 T3;EXEDESCRIPT x TF F;Copy TF T3;Call V;rE:C=RTEzRequest(Tx,'_Edit|_T|_Execute|_KillDIZ|Quit',FN,RT);Select;When C=1 Then Call ED;When C=2 Then Call E_T;When C=3 Then Call E_E;When C=4 Then Call E_K;When C=0 Then Call Q;End;E_ED2:IF Exists(T3)=0 Then call E_ED3;EXEDESCRIPT d F;EXEDESCRIPT a TF F;Call V1;E_ED3:EXEDESCRIPT a TF F;Copy TF T3;Call V1;E_T:IF Exists(TL)=1 Then Call FL;EXEChecker F '>'TL'';Call FL;E_K:IF Exists(TF)=0 Then Call nID;EXEDESCRIPT d F;Call NO;E_E:F;Call V1;G:DL TF T2 T3;GIFDesc e F TF;Copy TF T3;Call V;rG:C=RTEzRequest(Tx,'_Edit|_ShowGIF|_KillDIZ|Quit',FN,RT);Select;When C=1 Then Call ED;When C=2 Then Call G_V;When C=3 Then Call G_K;When C=0 Then Call Q;End;G_ED2:IF Exists(T3)=0 Then call G_ED3;GIFDesc r F TF;Call V1;G_ED3:GIFDesc a F TF;Copy TF T3;Call V1;G_K:IF Exists(TF)=0 Then Call nID;GIFDesc d F;Call NO;G_V:PS F;Call V1;T:DL TF T2 T3;TXTExtract e TF F;Copy TF T3;Call V;rT:C=RTEzRequest(Tx,'_Edit|_ReadTXT|_ADDAds|_KillDIZ|Quit',FN,RT);Select;When C=1 Then Call T_ED;When C=2 Then Call T_R;When C=3 Then Call T_A;When C=4 Then Call T_K;When C=0 Then Call Q;End;T_ED:IF Exists(T3)=1 Then Call T_ED3;Call ED;T_ED2:TXTExtract a TF F;Copy TF T3;Call V1;T_ED3:CED F;Call T;T_K:IF Exists(TF)=0 Then Call nID;CED F;Call T;T_R:PM F;Call V1;T_A:Close(STDOUT);IF Open(STDOUT,Wn,W) Then;DO;AquaAdder F;Call EW;Z:DL TF T2 TL;UnZip '-Co' F ''FD' -d' T;Call V;rZ:C=RTEzRequest(Tx,G2,FN,RT);Select;When C=1 Then Call ED;When C=2 Then Call Z_L;When C=3 Then Call Z_T;When C=4 Then Call Z_N;When C=5 Then Call Z_K;When C=0 Then Call Q;End;Z_ED2:Zip F TF;DL TL;Call V1;Z_L:IF Exists(TL)=1 Then Call FL;UnZip '-l' F '>'TL'';Call FL;Z_T:Close(STDOUT);IF Open(STDOUT,Wn,W) Then;DO;UnZip '-t' F;Call EW;Z_N:Close(STDOUT);IF Open(STDOUT,Wn,W) Then;DO;UnZip '-l' F;Say '';Say ' Type in the Adds You want to DELETE:';Say '';Zip '-dq' F Readln(STDOUT);UnZip '-l' F;Call EW2;Z_K:IF Exists(TF)=0 Then Call nID;Zip '-dq' F FD;Call NO;EW:Say '';Say P;Call Readln(STDOUT);Call Close(STDOUT);Call V1;End;EW2:Say '';Say P;Call Readln(STDOUT);Call Close(STDOUT);Call Y1;End;ED:B=1;IF Exists(TF)=1 Then Call Y_ED;Tx="";Call Open(ID,ID,r);DO Until Eof(ID);Tx=Tx||N||Readln(ID);End;Call Close(ID);Call rED;Y_ED:IF B=0 Then B=1;IF Exists(TF)=0 Then Copy S||B TF;CED TF;C=RTEzRequest('Sure You want to WRITE this 'FD' ?','_Of Course|_Not Really',FN,RT2);Select;When C=1 Then Call Y2;When C=0 Then Call V3;End;rED:B=RTGetString(B,Tx,'Choose Your Logo:',' > | < |_Logos|_EDIT|_Abort',RT);IF rtresult = 1 Then Call SW;IF rtresult = 2 Then Call SW2;IF rtresult = 3 Then Call LO;IF rtresult = 4 Then Call Y_ED;IF rtresult = 0 Then Call V;LO:PM S||DIZ.logos;B=B-1;Call SW;SW:B=B+1;Call SH;SH:IF Exists(S||B)=0 Then Call ED;Tx="";Call Open(B,S||B,r);DO Until Eof(B);Tx=Tx||N||Readln(B);End;Call Close(B);Call rED;SW2:B=B-1;Call SH;Y2:Copy TF T2;IF Y='.DMS' Then Call D_ED2;IF Y='.LHA'|Y='.LZH'|Y='.LZA'|Y='.LHZ'|Y='.RUN'|Y='.SFX' Then Call L_ED2;IF Y='.EXE' Then Call E_ED2;IF Y='.TXT'|Y='.DOC'|Y='.DOK'|Y='.DOX'|Y='.CAP'|Y='.NFO'|Y='.ASC' Then Call T_ED2;IF Y='.ZIP' Then Call Z_ED2;IF Y='.LZX' Then Call X_ED2;IF Y='.GIF' Then Call G_ED2;Y3:IF Y='.DMS' Then Call rD;IF Y='.LHA'|Y='.LZH'|Y='.LZA'|Y='.LHZ'|Y='.RUN'|Y='.SFX' Then Call rL;IF Y='.EXE' Then Call rE;IF Y='.TXT'|Y='.DOC'|Y='.DOK'|Y='.DOX'|Y='.CAP'|Y='.NFO'|Y='.ASC' Then Call rT;IF Y='.ZIP' Then Call rZ;IF Y='.LZX' Then Call rX;IF Y='.GIF' Then Call rG;V:IF Exists(TF)=0 Then Call nID;Copy TF T2;Call V2;V1:IF Exists(TF)=0 Then Call nID;Call V2;V2:Tx="";Call Open(FID,TF,r);DO Until Eof(FID);Tx=Tx||N||Readln(FID);End;Call Close(FID);Call Y3;V3:IF Exists(T2)=0 Then Call NO;Copy T2 TF;Call V2;NO:DL TF T2 T3 TL;Call V1;nID:Tx=' Sorry, no 'FD' in archive!'||N||""||N||' Do You want to EDIT 'FD' ?';Call Y3;nY:C=RTEzRequest('I can only support:'||N||N||'.LhA/.LZH/.LZA/.LHZ/.RUN/.SFX'||N||'.ZIP .DMS .GIF .LZX .EXE'||N||'.TXT/.DOC/.DOK/.DOX/.CAP/.NFO/.ASC','_Great',FN,'RT_ReqPos=ReqPos_CenterScr RTEz_Flags=EZReqF_CenterText');Call Q;FL:PM TL;Call V1;Q:DL TF T2 T3 TL;Exit
