/**************************************************************************\
        $VER: Dirty Limmerick Lister, v1.2 (11-Dec-94) by Dotoran!
\**************************************************************************/
options results;tr=transmit;se=sendstring;gc=getchar;gu=getuser

z1=4   /* BackGround Color of the BORDER   \  For These Variables         */
z2=6   /* BackGround Color of TITLE TEXT    \ 0 thru 7 MCI's Only!        */
z3=0   /* BackGround Color of the CENTER    / MCI Color Code Chars        */
z4=4   /* BackGround Color of SIDE BARS    /                              */
c1=a   /* Text Color of Limmerick Line # 1 \                              */
c2=d   /* Text Color of Limmerick Line # 2  \                             */
c3=a   /* Text Color of Limmerick Line # 3   \  For These Variables       */
c4=d   /* Text Color of Limmerick Line # 4    } 0 thru 9 & A thru F       */
c5=a   /* Text Color of Limmerick Line # 5   /  MCI Color Code Chars      */
c6=0   /* Text Color of BORDER Text Lines   /                             */
c7=c   /* Color of BORDER Graphic Chars.   /                              */
rb=0   /* Random Border? (0=No, 1=Yes; Changes Every RUN of File)         */
gr=8   /* Graphic Used for BORDER (Values between 0 and 14)               */
dn=7   /* Display Limmerick DOWN This Many Lines. (Not to Exceed 15)      */
ag=16  /* Youngest Age to Show Limmericks To (In Years Old)               */

/***** See README! File For Information Concerning Variables Below ********/
pr1='c7[caAc7]canotherc6, (cbSc6)cbpecificc6, (cdQc6)cduitc6: '
pr2='caAnother|c6(cb1c6-cb100c6):cb|cdQuit'
pr3='ASQ'
total = 100  /* Total Number of Dirty Limmericks Known.       (No Limit!) */
size  = 200  /* Maximum Length of Longest Limmerick Line.    (Rounded UP) */
build = 0    /* "1" will RePack the ".dat" file.      (See README! File!) */
/**************************************************************************/

gu 1200016;a=result;if a<ag then do;tr 'c9Too Young!';exit;end;gu 1311992;df=result
gr.0 =' | | | | | | | ';gr.1 ='Ú|Ä|³|¿|³|À|Ä|Ù';gr.2 ='É|Í|º|»|º|È|Í|¼';gr.3 ='Õ|Í|³|¸|³|Ô|Í|¾';gr.4 ='Ö|Ä|º|·|º|Ó|Ä|½';gr.5 ='°|°|°|°|°|°|°|°'
gr.6 ='±|±|±|±|±|±|±|±';gr.7 ='²|²|²|²|²|²|²|²';gr.8 ='Ü|Ü|Û|Ü|Û|ß|ß|ß';gr.9 ='ß|ß|Û|ß|Û|Ü|Ü|Ü';gr.10='Û|Û|Þ|Û|Ý|Û|Û|Û';gr.11='Û|Û|Ý|Û|Þ|Û|Û|Û'
gr.12='þ|þ|þ|þ|þ|þ|þ|þ';gr.13='Ü|Ü| |Ü| |ß|ß|ß';gr.14='ß|ß| |ß| |Ü|Ü|Ü';if build=1 then signal BUILD;if rb=1 then gr=random(0,14,time('s'))
parse var gr.gr gUL'|'gTB'|'gLB'|'gUR'|'gRB'|'gLL'|'gBB'|'gLR;gLB=gLB||gLB;gRB=gRB||gRB;tr 'f1';parse var pr2 an1'|'an2'|'an3
changewhere 'Dirty Limmericks';old=result;LIMS:;a=random(1,100,time('s'));LIMS2:;ptr=(a*200)-200
call open(f1,df'Dirty_Lims.dat','r');call seek(f1,ptr,'b');lim=readch(f1,200);call close(f1);lim=strip(lim,'b',d2c(0));parse var lim l1'|'l2'|'l3'|'l4'|'l5
tb1=gUL||gUL||copies(gTB,20)||'z'||z2||'c'||c6||' Dirty Limmerick # ';tb1=tb1||right(a,3,'0')||' c'||c7||'z'||z1||copies(gTB,21)||gUR||gUR
tb2=gLL||gLL||copies(gBB,17)||'z'||z2||'c'||c6||' Limmericks, v1.2 by ';tb2=tb2||'Dotoran c'||c7||'z'||z1||copies(gBB,18)||gLR||gLR
tr 'f0['dn';7Hz'z1'c'c7||center(tb1,78)'z0';cs=c1||c2||c3||c4;tr 'z'z4'c'c7||gLB'z'z3'c'c1||center(l1,62)'z'z4'c'c7||gRB'z0'
tr 'z'z4'c'c7||gLB'z'z3'c'c2||center(l2,62)'z'z4'c'c7||gRB'z0';tr 'z'z4'c'c7||gLB'z'z3'c'c3||center(l3,62)'z'z4'c'c7||gRB'z0'
tr 'z'z4'c'c7||gLB'z'z3'c'c4||center(l4,62)'z'z4'c'c7||gRB'z0';tr 'z'z4'c'c7||gLB'z'z3'c'c5||center(l5,62)'z'z4'c'c7||gRB'z0'
tr 'z'z1'c'c7||center(tb2,78)'z0';se ''pr1'';gc;a=result;if result='###PANIC' then exit;a=index(pr3,a);if a=0 then a=1
if a=1 then do;tr an1;signal LIMS;end;if a=3 then do;tr an3;changewhere old;exit;end
if a=2 then do;se an2'i192 3}';gu 70;a=result;if a<1 | a>100 then signal LIMS;else signal LIMS2;end
BUILD:;tr 'n1c6RePacking the cb"caDirty_Lims.datcb" c6file...n1';call open(f1,df'Dirty_Lims.txt','r')
do i=1 to total;se 'cfR';l.i=readln(f1);end i;tr;call close(f1);call open(f1,df'Dirty_Lims.dat','w')
do i=1 to total;se 'c9W';a=size-length(l.i);b=copies(d2c(0),a);call writech(f1,l.i);call writech(f1,b);end i;tr
call close(f1);se 'n1caFinished! c6Reset the cb"cabuildcb" ';tr 'c6variable to cf0c6 before using c9Dirty_Limsc6!n1'
/** Last Edited: 11-Dec-94 ************************************************\
\****************************************** FRONTIERS BBS (716)/823-9892 **/