�      >%.Run1wpIBM

/�      Loader for 1st Word Plus or 1st Mail
(!�      S Jones, 21st May 1988
2
<� �run("1wp","IBM")
F�
P
Z� �clear_screen
d-gold=11:black=12:white=13:grey=14:blue=15
n
�6,23,16|
xȖ:�12:�
�� blue,0,0,&60
�� 128+blue:�
�� 19,0,24,0,0,&60
�� white,&F0,&F0,&F0
�� gold,&F0,&A0,0
�� black,0,0,0
�� grey,&A0,&A0,&A0
��
�
�� �run(program$,font$)
�� name$
��clear_screen
�	*fx15

	*fx25


*fx200


*fx202,20

"*dir -adfs-:1stWord+.$

,
*urd $

6*lib &.Library

@1*set FirstWordPlus$Resources &.Resources.1wp.

J"*set FirstWordPlus$Docs &.1wp.

T%� font$="IBM" � *print %.IBM_Font

^Ȏ program$ �

h  � "1ml": name$="1st Mail"

r$  � "1wp": name$="1st Word Plus"

|�

�3�window("Loading",name$+" with "+font$+" Font")

�� 128+blue:� white

��4:�:� �0,12);

�"="run Resources.1wp."+program$

�

�� �window(title$,text$)

�� width%

�width%=�text$

�#� �title$>width% width%=�title$

�width%=(width%+10)*16

��5

�ȑ (1280-width%)�2,28*32

� �grey:ȓ Ȑ 0,-48,width%,-75
�gold:ȓ Ȑ 0,0,width%,-48
� white
ȓ 0,0,width%,-127
&� 0,-48,width%,-48
0)� (width%-�title$*16)�2,-12:� title$;
:� black
D'� (width%-�text$*16)�2,-76:� text$;
N�
�

00000000  0d 00 0a 17 f4 20 20 20  20 20 20 3e 25 2e 52 75  |.....      >%.Ru|
00000010  6e 31 77 70 49 42 4d 0d  00 14 04 0d 00 1e 2f f4  |n1wpIBM......./.|
00000020  20 20 20 20 20 20 4c 6f  61 64 65 72 20 66 6f 72  |      Loader for|
00000030  20 31 73 74 20 57 6f 72  64 20 50 6c 75 73 20 6f  | 1st Word Plus o|
00000040  72 20 31 73 74 20 4d 61  69 6c 0d 00 28 21 f4 20  |r 1st Mail..(!. |
00000050  20 20 20 20 20 53 20 4a  6f 6e 65 73 2c 20 32 31  |     S Jones, 21|
00000060  73 74 20 4d 61 79 20 31  39 38 38 0d 00 32 04 0d  |st May 1988..2..|
00000070  00 3c 17 ff 20 a4 72 75  6e 28 22 31 77 70 22 2c  |.<.. .run("1wp",|
00000080  22 49 42 4d 22 29 0d 00  46 05 e0 0d 00 50 04 0d  |"IBM")..F....P..|
00000090  00 5a 13 dd 20 f2 63 6c  65 61 72 5f 73 63 72 65  |.Z.. .clear_scre|
000000a0  65 6e 0d 00 64 2d 67 6f  6c 64 3d 31 31 3a 62 6c  |en..d-gold=11:bl|
000000b0  61 63 6b 3d 31 32 3a 77  68 69 74 65 3d 31 33 3a  |ack=12:white=13:|
000000c0  67 72 65 79 3d 31 34 3a  62 6c 75 65 3d 31 35 0d  |grey=14:blue=15.|
000000d0  00 6e 0d ef 36 2c 32 33  2c 31 36 7c 0d 00 78 0c  |.n..6,23,16|..x.|
000000e0  c8 96 3a eb 31 32 3a 87  0d 00 82 12 fb 20 62 6c  |..:.12:...... bl|
000000f0  75 65 2c 30 2c 30 2c 26  36 30 0d 00 8c 10 fb 20  |ue,0,0,&60..... |
00000100  31 32 38 2b 62 6c 75 65  3a db 0d 00 96 15 ef 20  |128+blue:...... |
00000110  31 39 2c 30 2c 32 34 2c  30 2c 30 2c 26 36 30 0d  |19,0,24,0,0,&60.|
00000120  00 a0 17 fb 20 77 68 69  74 65 2c 26 46 30 2c 26  |.... white,&F0,&|
00000130  46 30 2c 26 46 30 0d 00  aa 14 fb 20 67 6f 6c 64  |F0,&F0..... gold|
00000140  2c 26 46 30 2c 26 41 30  2c 30 0d 00 b4 11 fb 20  |,&F0,&A0,0..... |
00000150  62 6c 61 63 6b 2c 30 2c  30 2c 30 0d 00 be 16 fb  |black,0,0,0.....|
00000160  20 67 72 65 79 2c 26 41  30 2c 26 41 30 2c 26 41  | grey,&A0,&A0,&A|
00000170  30 0d 00 c8 05 e1 0d 00  d2 04 0d 00 dc 1a dd 20  |0.............. |
00000180  a4 72 75 6e 28 70 72 6f  67 72 61 6d 24 2c 66 6f  |.run(program$,fo|
00000190  6e 74 24 29 0d 00 e6 0b  ea 20 6e 61 6d 65 24 0d  |nt$)..... name$.|
000001a0  00 f0 11 f2 63 6c 65 61  72 5f 73 63 72 65 65 6e  |....clear_screen|
000001b0  0d 00 fa 09 2a 66 78 31  35 0d 01 04 09 2a 66 78  |....*fx15....*fx|
000001c0  32 35 0d 01 0e 0a 2a 66  78 32 30 30 0d 01 18 0d  |25....*fx200....|
000001d0  2a 66 78 32 30 32 2c 32  30 0d 01 22 1a 2a 64 69  |*fx202,20..".*di|
000001e0  72 20 2d 61 64 66 73 2d  3a 31 73 74 57 6f 72 64  |r -adfs-:1stWord|
000001f0  2b 2e 24 0d 01 2c 0a 2a  75 72 64 20 24 0d 01 36  |+.$..,.*urd $..6|
00000200  12 2a 6c 69 62 20 26 2e  4c 69 62 72 61 72 79 0d  |.*lib &.Library.|
00000210  01 40 31 2a 73 65 74 20  46 69 72 73 74 57 6f 72  |.@1*set FirstWor|
00000220  64 50 6c 75 73 24 52 65  73 6f 75 72 63 65 73 20  |dPlus$Resources |
00000230  26 2e 52 65 73 6f 75 72  63 65 73 2e 31 77 70 2e  |&.Resources.1wp.|
00000240  0d 01 4a 22 2a 73 65 74  20 46 69 72 73 74 57 6f  |..J"*set FirstWo|
00000250  72 64 50 6c 75 73 24 44  6f 63 73 20 26 2e 31 77  |rdPlus$Docs &.1w|
00000260  70 2e 0d 01 54 25 e7 20  66 6f 6e 74 24 3d 22 49  |p...T%. font$="I|
00000270  42 4d 22 20 8c 20 2a 70  72 69 6e 74 20 25 2e 49  |BM" . *print %.I|
00000280  42 4d 5f 46 6f 6e 74 0d  01 5e 11 c8 8e 20 70 72  |BM_Font..^... pr|
00000290  6f 67 72 61 6d 24 20 ca  0d 01 68 1f 20 20 c9 20  |ogram$ ...h.  . |
000002a0  22 31 6d 6c 22 3a 20 6e  61 6d 65 24 3d 22 31 73  |"1ml": name$="1s|
000002b0  74 20 4d 61 69 6c 22 0d  01 72 24 20 20 c9 20 22  |t Mail"..r$  . "|
000002c0  31 77 70 22 3a 20 6e 61  6d 65 24 3d 22 31 73 74  |1wp": name$="1st|
000002d0  20 57 6f 72 64 20 50 6c  75 73 22 0d 01 7c 05 cb  | Word Plus"..|..|
000002e0  0d 01 86 33 f2 77 69 6e  64 6f 77 28 22 4c 6f 61  |...3.window("Loa|
000002f0  64 69 6e 67 22 2c 6e 61  6d 65 24 2b 22 20 77 69  |ding",name$+" wi|
00000300  74 68 20 22 2b 66 6f 6e  74 24 2b 22 20 46 6f 6e  |th "+font$+" Fon|
00000310  74 22 29 0d 01 90 16 fb  20 31 32 38 2b 62 6c 75  |t")..... 128+blu|
00000320  65 3a fb 20 77 68 69 74  65 0d 01 9a 12 ef 34 3a  |e:. white.....4:|
00000330  87 3a f1 20 8a 30 2c 31  32 29 3b 0d 01 a4 22 3d  |.:. .0,12);..."=|
00000340  22 72 75 6e 20 52 65 73  6f 75 72 63 65 73 2e 31  |"run Resources.1|
00000350  77 70 2e 22 2b 70 72 6f  67 72 61 6d 24 0d 01 ae  |wp."+program$...|
00000360  04 0d 01 b8 1b dd 20 f2  77 69 6e 64 6f 77 28 74  |...... .window(t|
00000370  69 74 6c 65 24 2c 74 65  78 74 24 29 0d 01 c2 0c  |itle$,text$)....|
00000380  ea 20 77 69 64 74 68 25  0d 01 cc 11 77 69 64 74  |. width%....widt|
00000390  68 25 3d a9 74 65 78 74  24 0d 01 d6 23 e7 20 a9  |h%=.text$...#. .|
000003a0  74 69 74 6c 65 24 3e 77  69 64 74 68 25 20 77 69  |title$>width% wi|
000003b0  64 74 68 25 3d a9 74 69  74 6c 65 24 0d 01 e0 19  |dth%=.title$....|
000003c0  77 69 64 74 68 25 3d 28  77 69 64 74 68 25 2b 31  |width%=(width%+1|
000003d0  30 29 2a 31 36 0d 01 ea  06 ef 35 0d 01 f4 1c c8  |0)*16.....5.....|
000003e0  91 20 28 31 32 38 30 2d  77 69 64 74 68 25 29 81  |. (1280-width%).|
000003f0  32 2c 32 38 2a 33 32 0d  01 fe 20 e6 67 72 65 79  |2,28*32... .grey|
00000400  3a c8 93 20 c8 90 20 30  2c 2d 34 38 2c 77 69 64  |:.. .. 0,-48,wid|
00000410  74 68 25 2c 2d 37 35 0d  02 08 1e e6 67 6f 6c 64  |th%,-75.....gold|
00000420  3a c8 93 20 c8 90 20 30  2c 30 2c 77 69 64 74 68  |:.. .. 0,0,width|
00000430  25 2c 2d 34 38 0d 02 12  0b e6 20 77 68 69 74 65  |%,-48..... white|
00000440  0d 02 1c 16 c8 93 20 30  2c 30 2c 77 69 64 74 68  |...... 0,0,width|
00000450  25 2c 2d 31 32 37 0d 02  26 16 86 20 30 2c 2d 34  |%,-127..&.. 0,-4|
00000460  38 2c 77 69 64 74 68 25  2c 2d 34 38 0d 02 30 29  |8,width%,-48..0)|
00000470  ec 20 28 77 69 64 74 68  25 2d a9 74 69 74 6c 65  |. (width%-.title|
00000480  24 2a 31 36 29 81 32 2c  2d 31 32 3a f1 20 74 69  |$*16).2,-12:. ti|
00000490  74 6c 65 24 3b 0d 02 3a  0b e6 20 62 6c 61 63 6b  |tle$;..:.. black|
000004a0  0d 02 44 27 ec 20 28 77  69 64 74 68 25 2d a9 74  |..D'. (width%-.t|
000004b0  65 78 74 24 2a 31 36 29  81 32 2c 2d 37 36 3a f1  |ext$*16).2,-76:.|
000004c0  20 74 65 78 74 24 3b 0d  02 4e 05 e1 0d ff        | text$;..N....|
000004ce