home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 2 BBS
/
02-BBS.zip
/
mtic144o.zip
/
MFM_ENG.RAR
/
ann_body.mfm
< prev
next >
Wrap
Text File
|
1996-09-09
|
8KB
|
215 lines
;*****************************************************************
; MegaTIC ANNOUNCE TEMPLATE FILE
; for MegaTIC Copyright (c) by DiMeS 1995,96. All rights reserved.
;*****************************************************************
;
; ■ KEYWORDS
;
; The doublepoint ":" significates the start of a new chapter, followed by
; a keyword.
;
; :ANNHEADER (1) The header will be displayed at the beginning of
; an announcement
; :AREASTART (2) This header will introduce the start of a filearea
; :FILELOOP (3) With this format the files in a filearea are displayed
; :AREAEND (4) The end of a filearea
; :TOTALEND (5) The total end of an announcement
; :ANNFOOTER (6) The footer is linked at the end of the announcement
;
;
; ■ MACROS
;
; You can use the following macros to create announcements
;
; Macroname Function Chapter Example
;
; @year Current year all 1996
; @monthname Name of month all June
; @month Month all 06
; @dayname Name od day all Tuesday
; @day Day all 02
; @sysopname Name of Sysop all Dirk Mertens
; @bbsname Name of BBS all OxyGEN BBS
; @location Location of BBS all Muenster
; @filterdlc filter out downloadcounter all
; @filename Name of file 3 MTIC121O.RAR
; @filesizekb Filesize in kb 3 653
; @filesize Filesize 3 654.284
; @filedate Filedate 3 07/12/96
; @fileday Day of filedate 3 12
; @filemonth Month of filedate 3 07
; @fileyear Year of filedate 3 1996
; @filedesc 1st line of description 3 MegaTIC v1.21
; @overflow other lines of desc. 3 (c) Copyright 1995,
; @areaname Name of filearea 2,3,4 MEGATIC
; @areadesc Description of filearea 2,3,4 Tools for MegaTIC
; @areanum BBS-Number of filearea 2,3,4 264
; @areasum Numer of listed files 4 12
; @areasize Sum of filesizes 4 1.243.435
; @totalsum Number of all files 5,6 143
; @totalsize Sum of all filesizes 5,6 12.234.234
; @totalareas Number of done fileareas 5,6 25
; @mtversion Current MegaTIC-Version all MegaTIC+ v1.21
; @origin Origin-Line 6 * Origin: MegaTIC !
; @akatouse AKA for this announcement all 2:2449/528
; @anngroup Name of announcegroup all 2449-NEWFILES
;
;
; ■ FUNCTIONS
;
; Following functions can be used to display and format the output
;
; Syntax:
; str : all characters are allowed for input
; num : enter only digits here
; @fkt : you can use cascaded (recurse) functions here
; def : default when no parameter is given
; x|y : either x or y (xor)
; [] : optional parameters
;
;------------------------------------------------------------------------
;
; @format(in,fmt,just,fill) Formats a string
;
; Syntax: @format(@fkt|str,val,[L|C|R],[@fkt|str]);
;
; Params: in: string to format
; format: format string to this length
; just: orientation L=left R=right C=centered def:L
; fill: fill up string with this characters def:" "
;
; Example: Call @format(@day,12,R,-)
; Work format daynumber "09" to a length of 12 chars
; justified right and fill up with "-"
; Result ----------09
;
; Example: Call @format(,20,L,@sysopname)
; Work format to 20 characters and fill with @sysopname
; which is "Dirk Mertens"
; Result Dirk Mertens Dirk Me
;
;------------------------------------------------------------------------
;
; @maxdesclen(len) Maximum width of description
;
; Syntax: @maxdesclen([num])
;
; Params: len: sets the maximum width of description to "len"
; def:78
; Example: Call @maxdesclen(10)
; Result sets the maximum width of description to 10 chars
;
;------------------------------------------------------------------------
;
; @upper(in) Convert a string to uppercase
;
; Syntax: @upper(@fkt|str)
;
; Params: in: string to convert
;
; Example: Call @upper(Dirk Mertens)
; Work convert "Dirk Mertens" to uppercase
; Result DIRK MERTENS
;
;------------------------------------------------------------------------
;
; @copy(in,from,count) Copy part of a string
;
; Syntax: @copy(@fkt|str, @fkt|num, @fkt|num)
;
; Params: in: sourcestring
; from: copy from this position
; count: copy count characters
;
; Example: Call @copy(Dirk Mertens,2,5)
; Work copy 5 chars from position 2
; Result irk M
;
;------------------------------------------------------------------------
;
; @overflow Sets the horizontal start of the
; extended filedescription.
; Syntax: @overflow
;
; Examples:
;
;@overflow Start at left margin
; @overflow Start at position 13
;
;------------------------------------------------------------------------
;
; @pos(sub,source) Find position of a substring in a string
;
; Syntax: @pos(@fkt|str, @fkt|str)
;
; Params: sub: string to find
; source: find substring in this string
;
; Example: Call @pos(e,tuesday)
; Work searches "e" in "tuesday"
; Result 3
;
;------------------------------------------------------------------------
;
;********************** EXAMPLE FOR ANNOUNCE HEADER ********************
:ANNHEADER
@format(The following files have reached on,78,C)
@format("@dayname, @month.@day.@copy(@year,3,2) at @bbsname",78,C)
@format(for the group @anngroup:,78,C)
;
;********************** EXAMPLE FOR AREA START *************************
:AREASTART
;
Area: @format(@areaname [@areadesc],70,L)
@format(,78,L,-)
;
;********************** EXAMPLE FOR FILE LOOP **************************
:FILELOOP
;
; Example 1: Display fileinfos with full filesize
;@format(@filename,12,L) @format(@filesize,12,R) @filedate @filedesc
; @overflow
;
; Example 2: Display fileinfos with kb-filesize
@format(@filename,12,L) @format(@filesizekb,7,R)k @filedate @filedesc
@overflow
;
; Example 3: Display fileinfos vertical
;File: @filename
;Size: @filesize bytes
;Date: @fileday.@filemonth.@fileyear
;Desc: @filedesc
; @overflow
;
;********************** EXAMPLE FOR AREA END ***************************
:AREAEND
;
@format(,78,L,-)
@areasize byte(s) in @areasum file(s)
;
;********************** EXAMPLE FOR TOTAL END **************************
:TOTALEND
;
@format(,78,L,=)
Total of @totalsize bytes in @totalsum file(s)
;
;********************** EXAMPLE FOR ANNOUNCE FOOTER ********************
:ANNFOOTER
Filerequests are possile 23 hours a day.
Use the magic FILES to frequest a complete filelist of my system.
Seeya,
@copy(@sysopname,1,@pos( ,@sysopname)) (@akatouse)
--- using @mtversion
@origin
:
;****************************************************************
; END OF TEMPLATE EXAMPLE
;****************************************************************