Piper's Pit BBS/FTP: ibm 0020 - 0029/ibm0020-0029/ibm0028.tar/ibm0028/AMWP-2.ZIP/MACROS.ZIP/FRAME.SMM

INI File | 1990-05-01 | 6.2 KB | 589 lines

[ver]
    4
[sty]

[files]
[prn]
    PCL / HP LaserJet
[lang]
    1
[desc]
    User entered values are calculated to place frames of any size at exact locations on a page.




    641611039
    6
    641174036
[fopts]
    0
    1
    0
    0
[lnopts]
    2
    Body Text
[docopts]
    5
    0
[tag]
    Body Text
    2
    [fnt]
        Tms Rmn
        160
        0
        49152
    [algn]
        225
        1
        0
        0
        0
    [spc]
        17
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        2
        2
        20
        20
        1
    [spec]
        0
        0

        0
        1
        0
        0
        1
        0
        0
    [nfmt]
        280
        1
        3
        .
        ,
        $
[tag]
    footer
    3
    [fnt]
        Tms Rmn
        200
        0
        49152
    [algn]
        225
        1
        0
        0
        0
    [spc]
        17
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        2
        2
        20
        20
        1
    [spec]
        0
        0

        0
        1
        0
        0
        1
        0
        0
    [nfmt]
        280
        1
        3
        .
        ,
        $
[lay]
    Standard
    513
    [rght]
        15840
        12240
        1
        1080
        360
        1
        1080
        720
        4
        1
        0
        1
        8
        4
        1
        1080
        11520
        14
        1
        359
        1
        721
        1
        1084
        1
        1446
        1
        1792
        1
        2155
        1
        2517
        1
        2880
        1
        3242
        1
        3605
        1
        3967
        1
        4323
        1
        4683
        1
        5043
    [hrght]
    [lyfrm]
        1
        11200
        0
        0
        12240
        1080
        1
        1
        3
        1
        5
        0
        0
    [frmlay]
        1080
        12240
        1
        360
        0
        1
        0
        0
        2
        1
        0
        1
        1
        0
        1
        360
        12240
        3
        1
        365
        2
        6120
        3
        11162
    [txt]
<+B>

<+B>

<+B>    <:da<*!><* >>        Date Created:  <:da<*$><* >>

<+B>    By Charlie Pappas    Page - <:P11,1,>    Date Last revised:  <:da<*%><* >>

<+B>

>
    [frght]
    [lyfrm]
        1
        13248
        0
        15480
        12240
        15840
        1
        1
        3
        1
        5
        0
        0
    [frmlay]
        15840
        12240
        1
        720
        0
        1
        15480
        720
        2
        1
        0
        1
        1
        0
        1
        720
        11520
        0
    [txt]
@footer@
>
[elay]
[l1]
    0
[pg]
    0
[edoc]
@Body Single@The macro frame.smm brings up a dialog box

@Body Single@to make a frame.

@Body Single@
@Body Single@Simply enter the frame dimensions and distance

@Body Single@down and to the right of the upper left hand

@Body Single@corner of the document.  The default is 0 for

@Body Single@the position.  The values are in inches.

@Body Single@You may enter in decimal points.

@Body Single@
@Body Single@Check the box Modify before clicking on OK and

@Body Single@the Modify Frame Layout box will appear after

@Body Single@the frame is created.

@Body Single@
@Body Single@This macro calls the dialog box file frame.ext.

@Body Single@Copy the file into the Amipro or Windows subdirectory.

@Body Single@
@Body Single@function frame()

@Body Single@ignorekeyboard(1)

@Body Single@declare twips(x)

@Body Single@macpath = getmacpath$()

@Body Single@again:

@Body Single@filledit(8011 1)

@Body Single@box = dialogbox("{macpath}frame.ext" "addaframe")

@Body Single@if box = -1 then

@Body Single@    message("Can't Find Dialog Box File FRAME.EXT  Check DOS Path And
Try Again")

@Body Single@    exit function

@Body Single@endif

@Body Single@if box <<>> 1 then

@Body Single@    exit function

@Body Single@endif

@Body Single@width = getdialogfield$(8007) ' width of box

@Body Single@if width <<= 0 then

@Body Single@    message ("Invalid value for Width")

@Body Single@    goto again

@Body Single@endif

@Body Single@x2 = twips(width)

@Body Single@height = getdialogfield$(8008) ' height of box

@Body Single@if height <<= 0 then

@Body Single@    message ("Invalid value for Height")

@Body Single@    goto again

@Body Single@endif

@Body Single@xheight = height * -1

@Body Single@y2 = twips(xheight)

@Body Single@inleft = getdialogfield$(8009) ' in from left

@Body Single@if inleft = "" then

@Body Single@    inleft = 0

@Body Single@endif

@Body Single@x1 = twips(inleft)

@Body Single@downtop = getdialogfield$(8010) ' down from top

@Body Single@if downtop = "" then

@Body Single@    downtop = 0

@Body Single@endif

@Body Single@down = downtop * -1

@Body Single@y1 = twips(down)

@Body Single@x2 = x2 + x1

@Body Single@y2 = y2 + y1

@Body Single@num = getdialogfield$(8011)

@Body Single@go = isnumeric(num)

@Body Single@if go <<>> 1 then

@Body Single@    message("Number Field Must Be Numeric")

@Body Single@    goto again

@Body Single@endif

@Body Single@'drop = getdialogfield$(116)

@Body Single@mod = getdialogfield$(112)

@Body Single@layoutmode()

@Body Single@for i = 1 to num

@Body Single@    addframe(x1 y1 x2 y2)

@Body Single@    if mod = 1 then

@Body Single@        framelayout()

@Body Single@    endif

@Body Single@next

@Body Single@filledit(8007 width)

@Body Single@filledit(8008 height)

@Body Single@filledit(8009 inleft)

@Body Single@filledit(8010 downtop)

@Body Single@filledit(8011 1)

@Body Single@end function

@Body Single@
@Body Single@function twips(x)

@Body Single@twips = x * 1440

@Body Single@return twips

@Body Single@end function

>
[macsum] 2
frame 0 0 17 16
twips 1166 1 1 78
[macse]
14 frame
0 32 1
0 295
13
8 1
0 31 8011 1
0 26 "{1}frame.ext" "addaframe"
13
8 2
6 2
5 -1
18 0
11 00000205
0 3 "Can't Find Dialog Box File FRAME.EXT  Check DOS Path And Try Again"
6 0
15
9
6 2
5 1
18 1
11 00000246
6 0
15
9
0 27 8007
13
8 3
6 3
5 0
18 4
11 00000339
0 3 "Invalid value for Width"
10 00000034
16 twips "{3}"
13
8 4
0 27 8008
13
8 5
6 5
5 0
18 4
11 00000458
0 3 "Invalid value for Height"
10 00000034
6 5
5 -1
4 0
8 6
16 twips "{6}"
13
8 7
0 27 8009
13
8 8
6 8
7 ""
18 0
11 00000564
5 0
8 8
16 twips "{8}"
13
8 9
0 27 8010
13
8 10
6 10
7 ""
18 0
11 00000652
5 0
8 10
6 10
5 -1
4 0
8 11
16 twips "{11}"
13
8 12
6 4
6 9
3 0
8 4
6 7
6 12
3 0
8 7
0 27 8011
13
8 13
0 277 "{13}"
13
8 14
6 14
5 1
18 1
11 00000867
0 3 "Number Field Must Be Numeric"
10 00000034
0 27 112
13
8 15
2 210 1
5 1
8 16
6 13
6 16
18 2
12 00000986
10 00001072
5 1
6 16
3 0
8 16
10 00000907
2 413 1 "{9}" "{12}" "{4}" "{7}"
6 15
5 1
18 0
11 00001059
2 402 0
10 00000951
0 31 8007 "{3}"
0 31 8008 "{5}"
0 31 8009 "{8}"
0 31 8010 "{10}"
0 31 8011 1
6 0
15
9
14 twips
6 0
5 1440
4 0
8 1
6 1
15
9
6 1
15
9
00005070