/* ______ _/\ /\____/\_________/\________/\_____ */ /* _| |__ _/ | \_ ___ __ ________ _____/ */ /* \_ __/ | __| |\/ / / /\/ __/_ /\/ __/_... */ /* .::| |___| \__ | / \/ | \/ | \:::. */ /* :::| | | | | \ \ | \ | \::::. */ /* :::| | | | |____\ \____ /_____ /::::: */ /* :::|_____ |____|____|:::::\_____/::|___/:::::|___/:::::: */ /* ::::::::|___|:::::::::::/\ :::::::::::::::::::/\::::::.::: */ /* :·::::______/\____/\_ / \ ___/\________/\__/ \::::::::: */ /* ::::::\_____ ___ \/ \\_ ________ _ \ \:::::::: */ /* ::::·:/ |/ \/\/\ / \/\/ __/_ /\/ \ \ \:·::::: */ /* :::::/ | \ \ / \ | \/ \ \_ \:::·:: */ /* ::::/ | \ \/ \ | \ \_/ \::::: */ /* ::·:\____________/___||_______/___ /______| /::::: */ /* :::::::::::::::::::::::::::::::::|___/:::::::|_____/:::::: */ /* : _____/\_ _/\ /\____/\___ _____/\_______/\__________/\_: */ /* :/ _____/_/ | \_ __ \\________ _____/ _____/: */ /* :\____ \| __| |\/ _ \ /___/ /\/ __/_\____ \: */ /* :/ | \ \__ |/ | \ / \_____/ | \ | \ */ /* / | \ | | | \ /:/ | \ | \ */ /* / | / | | | \_ /::\______ / | / */ /* \______ /____|____|___|________)/ |___/____ / */ /* |___/ |___/ */ /* */ /* Presents */ /* TøS-Wall v1.0 (HANDLE COLOUR VERSION) By TøS 1996 */ /***************************************************************************/ /* Optimized with RexxOpt 1.7 */ parse arg node;Options results;nodeid="DREAMREXX"node;address value nodeid;signal on error;signal on ioerr;signal on syntax;tr=transmit;gu=getuser;fil="Daydream:ToS-DOORS/Display/iso/TøS-Wall.gfx";fil1="Daydream:ToS-DOORS/Data/TøS-Wall.dat";Col1="";Col2="";Col3="";Col4="";Col5="";Col6="";Col7="";Bac0="";Bac1="";Bac2="";Bac3="";Bac4="";Bac5="";Bac6="";Bac7="";if ~exists(fil1) then call DOOIT;BEFORE:;do;call open(cfg,fil1,'R');TXT01=readln(cfg);TXT02=readln(cfg);TXT03=readln(cfg);TXT04=readln(cfg);TXT05=readln(cfg);TXT06=readln(cfg);TXT07=readln(cfg);TXT08=readln(cfg);TXT09=readln(cfg);TXT10=readln(cfg);TXT11=readln(cfg);TXT12=readln(cfg);TXT13=readln(cfg);TXT14=readln(cfg);TXT15=readln(cfg);HAN01=readln(cfg);HAN02=readln(cfg);HAN03=readln(cfg);HAN04=readln(cfg);HAN05=readln(cfg);HAN06=readln(cfg);HAN07=readln(cfg);HAN08=readln(cfg);HAN09=readln(cfg);HAN10=readln(cfg);HAN11=readln(cfg);HAN12=readln(cfg);HAN13=readln(cfg);HAN14=readln(cfg);HAN15=readln(cfg);call close(cfg);end;if ~exists(fil) then call ioerr;do;call open(gfx,fil,'R');do until eof(gfx);gfxx=readln(gfx);tr ""gfxx;end;call close(gfx);end;BEGUN:;tr "bY ThRee øMeN ShaPeS 1996";tr "TøS-wAlL v1.0";tr ""centre(HAN01,26)""centre(TXT01,59);tr ""centre(HAN02,26)""centre(TXT02,59);tr ""centre(HAN03,26)""centre(TXT03,59);tr ""centre(HAN04,26)""centre(TXT04,59);tr ""centre(HAN05,26)""centre(TXT05,59);tr ""centre(HAN06,26)""centre(TXT06,59);tr ""centre(HAN07,26)""centre(TXT07,59);tr ""centre(HAN08,26)""centre(TXT08,59);tr ""centre(HAN09,26)""centre(TXT09,59);tr ""centre(HAN10,26)""centre(TXT10,59);tr ""centre(HAN11,26)""centre(TXT11,59);tr ""centre(HAN12,26)""centre(TXT12,59);tr ""centre(HAN13,26)""centre(TXT13,59);tr ""centre(HAN14,26)""centre(TXT14,59);tr ""centre(HAN15,26)""centre(TXT15,59);Queryy "WaNNa aDD a LinE? (Y/n) ";svar=result;if svar="N" then call ioerr;if svar="n" then call ioerr;if svar="Y" then call CHOCOL;if svar="y" then call CHOCOL;CHOCOL:;tr " ";prompt 1 normal "WhAt CoLOuR? 0:BL 1:"col1"RE 2:"Col2"GR 3:"col3"YE 4:"col4"BL 5:"col5"PU 6:"col6"CY 7:"col7"WH :";txtcol=result;txtcol1=txtcol;if txtcol=0 then txtcol="";if txtcol=1 then txtcol=col1;if txtcol=2 then txtcol=col2;if txtcol=3 then txtcol=col3;if txtcol=4 then txtcol=col4;if txtcol=5 then txtcol=col5;if txtcol=6 then txtcol=col6;if txtcol=7 then txtcol=col7;if txtcol>7 then call CHOCOL;if txtcol="RESULT" then call CHOCOL;CHOCOL1:;tr " ";if txtcol="" then bac0="";Prompt 1 normal ""txtcol""bac0"WhAt BaCKgrOuNd CoLOuR? 0:BL 1:"col1"RE 2:"Col2"GR 3:"col3"YE 4:"col4"BL 5:"col5"PU 6:"col6"CY 7:"col7"WH :";baccol=result;baccol1=baccol;if baccol=0 then baccol="";if baccol=1 then baccol=bac1;if baccol=2 then baccol=bac2;if baccol=3 then baccol=bac3;if baccol=4 then baccol=bac4;if baccol=5 then baccol=bac5;if baccol=6 then baccol=bac6;if baccol=7 then baccol=bac7;if baccol>7 then call CHOCOL1;if baccol="RESULT" then call CHOCOL1;if baccol1=txtcol1 then tr "YoU cAn'T hAVe SaMe CoLOurS!!!";if baccol1=txtcol1 then call CHOCOL1;tr " ";tr " ";queryy "ThiS iS yOUr CoLOuR cHOisE: "txtcol""baccol" tEStiNg  iS tHiS oK? (Y/n)";choo=result;if choo="N" then call CHOCOL;if choo="n" then call CHOCOL;if choo="Y" then call TXTLIN;if choo="y" then call TXTLIN;TXTLIN:;tr " ";tr " ";texx="aDD yOUr LinE";texx1=centre(texx,51);tr ""texx1;tr "[]";prompt 49 normal ""txtcol""baccol;texten=result;if texten="RESULT" then call TXTLIN;gu 2;handle=result;line=""txtcol""baccol""centre(texten,49);line1="["30+baccol1"m["40+txtcol1"m"centre(handle,16);call open(datt,fil1,'W');call writeln(datt,TXT02);call writeln(datt,TXT03);call writeln(datt,TXT04);call writeln(datt,TXT05);call writeln(datt,TXT06);call writeln(datt,TXT07);Call writeln(datt,TXT08);call writeln(datt,TXT09);Call writeln(datt,TXT10);call writeln(datt,TXT11);Call writeln(datt,TXT12);call writeln(datt,TXT13);call writeln(datt,TXT14);call writeln(datt,TXT15);call writeln(datt,line);call writeln(datt,HAN02);call writeln(datt,HAN03);call writeln(datt,HAN04);call writeln(datt,HAN05);call writeln(datt,HAN06);call writeln(datt,HAN07);call writeln(datt,HAN08);call writeln(datt,HAN09);call writeln(datt,HAN10);call writeln(datt,HAN11);call writeln(datt,HAN12);call writeln(datt,HAN13);call writeln(datt,HAN14);call writeln(datt,HAN15);call writeln(datt,line1);call close(datt);writelog "%H Wrote this line on the wall: "texten;ioerr:;error:;syntax:;tr "";tr " ";shutdown;exit;DOOIT:;walltxt="-";handtxt="-";call open(file,fil1,'W');call writeln(file,walltxt);call writeln(file,walltxt);call writeln(file,walltxt);call writeln(file,walltxt);call writeln(file,walltxt);call writeln(file,walltxt);call writeln(file,walltxt);call writeln(file,walltxt);call writeln(file,walltxt);call writeln(file,walltxt);call writeln(file,walltxt);call writeln(file,walltxt);call writeln(file,walltxt);call writeln(file,walltxt);call writeln(file,walltxt);call writeln(file,handtxt);call writeln(file,handtxt);call writeln(file,handtxt);call writeln(file,handtxt);call writeln(file,handtxt);call writeln(file,handtxt);call writeln(file,handtxt);call writeln(file,handtxt);call writeln(file,handtxt);call writeln(file,handtxt);call writeln(file,handtxt);call writeln(file,handtxt);call writeln(file,handtxt);call writeln(file,handtxt);call writeln(file,handtxt);call close(file);call BEFORE