home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 2 BBS
/
02-BBS.zip
/
mag7demo.zip
/
RJE_DIR.ZIP
/
MSGLIST.RJE
< prev
next >
Wrap
Text File
|
1993-09-01
|
5KB
|
133 lines
@a14 @c0 @c18
╔══════════════════════════════════╗
║ ║
║ Magnum Message "QWK,POW" Utility ║
║ ║
╚══════════════════════════════════╝
@a11
Create a compressed message listing for download (Y/N) => @z0('yn');
@b0(z0="y"); @b40(z0="n"); @p0 @z0="msglist.exe"; @z1="";
@z2=u54; @z1=(z1+z2); @z1=(z1+" ");
@z10=u1; @z1=(z1+z10); @z1=(z1+" ");
@c12
@z80=""; Initialize Z80 to null.
@z10=""; Initialize Z10 to null.
@c13
@z90=o23; @b90(z90="FALSE");
Note: If using QWK message format, you can specify ALL MsgBases!
@p90
[@a12Q@a11]WK or Magnum's [@a12P@a11]OWER message format (Q/P) => @z80('qp');
@b80(z80="q"); @z80=""; @b81; @p80 @b81(z90="FALSE");
Do you want ALL Message Bases on the System? (Y/N) => @z81('yn'); @b81(z81="n");
@z80=(z80+"*"); @b34(z90="TRUE"); @p81
@c12
@e82 Prompt for MsgBase
@z3=u56; Assign MSG_R_AREAS to MILC var Z3;
@c13
@p82
@c2
@c12 @z2="a"; @b1(z3!~z2); @z49=v53; @b1(z49="");
@c13 A - @v53
@c12 @p1 @z2="b"; @b2(z3!~z2); @z49=v54; @b2(z49="");
@c13 B - @v54
@c12 @p2 @z2="c"; @b3(z3!~z2); @z49=v55; @b3(z49="");
@c13 C - @v55
@c12 @p3 @z2="d"; @b4(z3!~z2); @z49=v56; @b4(z49="");
@c13 D - @v56
@c12 @p4 @z2="e"; @b5(z3!~z2); @z49=v57; @b5(z49="");
@c13 E - @v57
@c12 @p5 @z2="f"; @b6(z3!~z2); @z49=v58; @b6(z49="");
@c13 F - @v58
@c12 @p6 @z2="g"; @b7(z3!~z2); @z49=v59; @b7(z49="");
@c13 G - @v59
@c12 @p7 @z2="h"; @b8(z3!~z2); @z49=v60; @b8(z49="");
@c13 H - @v60
@c12 @p8 @z2="i"; @b9(z3!~z2); @z49=v61; @b9(z49="");
@c13 I - @v61
@c12 @p9 @z2="j"; @b10(z3!~z2); @z49=v62; @b10(z49="");
@c13 J - @v62
@c12 @p10 @z2="k"; @b11(z3!~z2); @z49=v63; @b11(z49="");
@c13 K - @v63
@c12 @p11 @z2="l"; @b12(z3!~z2); @z49=v64; @b12(z49="");
@c13 L - @v64
@c12 @p12 @z2="m"; @b13(z3!~z2); @z49=v65; @b13(z49="");
@c13 M - @v65
@c12 @p13 @z2="n"; @b14(z3!~z2); @z49=v66; @b14(z49="");
@c13 N - @v66
@c12 @p14 @z2="o"; @b15(z3!~z2); @z49=v67; @b15(z49="");
@c13 O - @v67
@c12 @p15 @z2="p"; @b16(z3!~z2); @z49=v68; @b16(z49="");
@c13 P - @v68
@c12 @p16 @z2="q"; @b17(z3!~z2); @z49=v69; @b17(z49="");
@c13 Q - @v69
@c12 @p17 @z2="r"; @b18(z3!~z2); @z49=v70; @b18(z49="");
@c13 R - @v70
@c12 @p18 @z2="s"; @b19(z3!~z2); @z49=v71; @b19(z49="");
@c13 S - @v71
@c12 @p19 @z2="t"; @b20(z3!~z2); @z49=v72; @b20(z49="");
@c13 T - @v72
@c12 @p20 @z2="u"; @b21(z3!~z2); @z49=v73; @b21(z49="");
@c13 U - @v73
@c12 @p21 @z2="v"; @b22(z3!~z2); @z49=v74; @b22(z49="");
@c13 V - @v74
@c12 @p22 @z2="w"; @b23(z3!~z2); @z49=v75; @b23(z49="");
@c13 W - @v75
@c12 @p23 @z2="x"; @b24(z3!~z2); @z49=v76; @b24(z49="");
@c13 X - @v76
@c12 @p24 @z2="y"; @b25(z3!~z2); @z49=v77; @b25(z49="");
@c13 Y - @v77
@c12 @p25 @z2="z"; @b26(z3!~z2); @z49=v78; @b26(z49="");
@c13 Z - @v78
@p26 @z10="";
@c0
@p27 @c13
Enter First Conf. Letter (0 to abort, * for @u56) => @z2('abcdefghijklmnopqrstuvwxyz0*');
@b40(z2="0"); @b28(z3~z2); @b34(z2="*"); Unauthorized Conference Area!
@b27; @p28 @z10=(z10+z2); @p29
Next Conference Letter (0 to end input) => @z2('abcdefghijklmnopqrstuvwxyz0');
@b30(z2="0"); @b28(z3~z2); Unauthorized Conference Area! @b29; @p34 @z10="*";
@p30 @z1=(z1+z10); @z1=(z1+" "); @z5=u51; @b31(z5="U.S."); @z1=(z1+"E ");
@b32; @p31 @z1=(z1+"U "); @p32
Include Private messages to/from you? (Y/N) => @z5('yn'); @z1=(z1+z5); @z1=(z1+" ");
Enter Starting Date (* for @u14) => @z5(10); @b35(z5!="*"); @z5=u14; @p35 @d5 @z1=(z1+z5);
@z1=(z1+" ");Enter Ending Date (* for @o17) => @z5(10); @b36(z5!="*"); @z5=o17; @p36 @d5
@z1=(z1+z5); @z1=(z1+" "); @z5=o18; @z1=(z1+z5); @z1=(z1+".MSG ");
@n0=0; @n1=0;
@z1=(z1+" "); @z99=u69; @z1=(z1+z80); @b84(z80~"*"); @z1=(z1+z99); @p84
@c3
- - - - - - - Begin Comment - - - - - - - - - - - - - - - - - - - - - - - -
IF you really want to get fancy, you could prompt the user for a priority
class and level, but they could choose "timecritical" would essentially
freeze other tasks, such as online sessions on other nodes!
Priority: Class (0=default, 1=Idle, 2=Regular, 3=TimeCritical) => @n0(0,3);
Level (0=lowest, ... 31=highest) => @n1(0,31);
@n0=(n0*100); @n0=(n0+n1);
@n1=0;
- - - - - - - End Comment - - - - - - - - - - - - - - - - - - - - - - - - -
@c4
The job may complete while you're still online. If the job is completed
while you're online, do you want Magnum to notify you (Y/N) => @z2('yn');
@b33(z2="N"); @n1=1;
@p33
@c3
- - - - - - - - - - Remove this comment to view the following values - -
Z0 contains "@z0;"
Z1 contains "@z1;"
N0 contains "@n0;"
N1 contains "@n1;"
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
@c4
Submitting RJE ... @e1 @z0="";
@b38(n1=0);
@c3
- - - - - - - - - - - Remove this comment to view the PID and RJE Jobname - -
PID=@n1;
RJE @z1; Successfully Submitted
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
@c4
@b40;
@p38 RJE submsission failed!
@p40 @z0="";