#� *****************************
#� **    Turbo Publisher      **
#� **                         **
(#� **  Written by Neil Gorin  **
2#� **                         **
<#� **      Copyright 1990     **
F#� **  Gorin Computer Systems **
P#� **  Cotswold P.D. Software **
Z#� *****************************
d�1
n+�19,3,5,0,0,0,19,1,1,0,0,0,19,2,3,0,0,0
x�23,1,0,0,0,0,0,0,0,0
�+�23,255,255,255,255,255,255,255,255,255
��1
���40,�(255));
�$�I=1�29:�(255);�(38);�(255);:�I
���40,�(255));
��28,2,28,37,2
�
�130:�
��0
�'�DO("    Gorin computer systems",1)
�#�"      &  Cotswold PD sofware"
��"             Present"
��1
�$�BIG("       Turbo Publisher",6)
��3

.�DO("A single page desktop publisher,",14)

.�DO("suitable for producing handouts,",16)

.�DO("instruction booklets and adverts",18)

")�DO("    using a BBC Micro and a",20)

,*�DO("   full screen dump routine.",22)

6,�0:�'"  Please press the space bar....."

@A$=�

J� A$<>" " � �D@A

T�"Turbo"

^��BIG(Y$,P)

h� X=1��(Y$)

r�X8(�Y$,X,1))

|�X

��

���X8(X$)

�I=1:�DOUBLE(X$)

�I=2:�DOUBLE(�(231))

�I=3:�DOUBLE(�(241))

�I=4:�DOUBLE(�(232))

�I=5:�DOUBLE(�(242))

�I=6:�DOUBLE(�(233))

�I=7:�DOUBLE(�(243))

��(X+1),P);�(234)

��(X+1),P+1);�(244)

��(X+1),P+2);�(235)

��(X+1),P+3);�(245)
�(X+1),P+4);�(236)
�(X+1),P+5);�(246)
�(X+1),P+6);�(237)
&�(X+1),P+7);�(247)
0�
:��DO(X$,P)
DI=0:� X=1��(X$)
N�DOUBLE(�X$,X,1))
X�X+1,P);�(230)
b�X+1,P+1);�(240)
l�X
v�
���DOUBLE(A$)
�?&70=�(A$)
�A%=10:X%=&70:Y%=0:� &FFF1
�5�23,230+I,?&71,?&71,?&72,?&72,?&73,?&73,?&74,?&74
�5�23,240+I,?&75,?&75,?&76,?&76,?&77,?&77,?&78,?&78
��
�

00000000  0d 00 0a 23 f4 20 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |...#. **********|
00000010  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000020  2a 2a 2a 0d 00 14 23 f4  20 2a 2a 20 20 20 20 54  |***...#. **    T|
00000030  75 72 62 6f 20 50 75 62  6c 69 73 68 65 72 20 20  |urbo Publisher  |
00000040  20 20 20 20 2a 2a 0d 00  1e 23 f4 20 2a 2a 20 20  |    **...#. **  |
00000050  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000060  20 20 20 20 20 20 20 2a  2a 0d 00 28 23 f4 20 2a  |       **..(#. *|
00000070  2a 20 20 57 72 69 74 74  65 6e 20 62 79 20 4e 65  |*  Written by Ne|
00000080  69 6c 20 47 6f 72 69 6e  20 20 2a 2a 0d 00 32 23  |il Gorin  **..2#|
00000090  f4 20 2a 2a 20 20 20 20  20 20 20 20 20 20 20 20  |. **            |
000000a0  20 20 20 20 20 20 20 20  20 20 20 20 20 2a 2a 0d  |             **.|
000000b0  00 3c 23 f4 20 2a 2a 20  20 20 20 20 20 43 6f 70  |.<#. **      Cop|
000000c0  79 72 69 67 68 74 20 31  39 39 30 20 20 20 20 20  |yright 1990     |
000000d0  2a 2a 0d 00 46 23 f4 20  2a 2a 20 20 47 6f 72 69  |**..F#. **  Gori|
000000e0  6e 20 43 6f 6d 70 75 74  65 72 20 53 79 73 74 65  |n Computer Syste|
000000f0  6d 73 20 2a 2a 0d 00 50  23 f4 20 2a 2a 20 20 43  |ms **..P#. **  C|
00000100  6f 74 73 77 6f 6c 64 20  50 2e 44 2e 20 53 6f 66  |otswold P.D. Sof|
00000110  74 77 61 72 65 20 2a 2a  0d 00 5a 23 f4 20 2a 2a  |tware **..Z#. **|
00000120  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000130  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 0d 00 64 06 eb  |***********..d..|
00000140  31 0d 00 6e 2b ef 31 39  2c 33 2c 35 2c 30 2c 30  |1..n+.19,3,5,0,0|
00000150  2c 30 2c 31 39 2c 31 2c  31 2c 30 2c 30 2c 30 2c  |,0,19,1,1,0,0,0,|
00000160  31 39 2c 32 2c 33 2c 30  2c 30 2c 30 0d 00 78 19  |19,2,3,0,0,0..x.|
00000170  ef 32 33 2c 31 2c 30 2c  30 2c 30 2c 30 2c 30 2c  |.23,1,0,0,0,0,0,|
00000180  30 2c 30 2c 30 0d 00 82  2b ef 32 33 2c 32 35 35  |0,0,0...+.23,255|
00000190  2c 32 35 35 2c 32 35 35  2c 32 35 35 2c 32 35 35  |,255,255,255,255|
*
000001b0  0d 00 8c 06 fb 31 0d 00  96 11 f1 c4 34 30 2c bd  |.....1......40,.|
000001c0  28 32 35 35 29 29 3b 0d  00 a0 24 e3 49 3d 31 b8  |(255));...$.I=1.|
000001d0  32 39 3a f1 bd 28 32 35  35 29 3b 89 28 33 38 29  |29:..(255);.(38)|
000001e0  3b bd 28 32 35 35 29 3b  3a ed 49 0d 00 aa 11 f1  |;.(255);:.I.....|
000001f0  c4 34 30 2c bd 28 32 35  35 29 29 3b 0d 00 b4 11  |.40,.(255));....|
00000200  ef 32 38 2c 32 2c 32 38  2c 33 37 2c 32 0d 00 be  |.28,2,28,37,2...|
00000210  0a fb 31 33 30 3a db 0d  00 c8 06 fb 30 0d 00 d2  |..130:......0...|
00000220  27 f2 44 4f 28 22 20 20  20 20 47 6f 72 69 6e 20  |'.DO("    Gorin |
00000230  63 6f 6d 70 75 74 65 72  20 73 79 73 74 65 6d 73  |computer systems|
00000240  22 2c 31 29 0d 00 db 23  f1 22 20 20 20 20 20 20  |",1)...#."      |
00000250  26 20 20 43 6f 74 73 77  6f 6c 64 20 50 44 20 73  |&  Cotswold PD s|
00000260  6f 66 77 61 72 65 22 0d  00 dc 1b f1 22 20 20 20  |ofware"....."   |
00000270  20 20 20 20 20 20 20 20  20 20 50 72 65 73 65 6e  |          Presen|
00000280  74 22 0d 00 e6 06 fb 31  0d 00 f0 24 f2 42 49 47  |t".....1...$.BIG|
00000290  28 22 20 20 20 20 20 20  20 54 75 72 62 6f 20 50  |("       Turbo P|
000002a0  75 62 6c 69 73 68 65 72  22 2c 36 29 0d 00 fa 06  |ublisher",6)....|
000002b0  fb 33 0d 01 04 2e f2 44  4f 28 22 41 20 73 69 6e  |.3.....DO("A sin|
000002c0  67 6c 65 20 70 61 67 65  20 64 65 73 6b 74 6f 70  |gle page desktop|
000002d0  20 70 75 62 6c 69 73 68  65 72 2c 22 2c 31 34 29  | publisher,",14)|
000002e0  0d 01 0e 2e f2 44 4f 28  22 73 75 69 74 61 62 6c  |.....DO("suitabl|
000002f0  65 20 66 6f 72 20 70 72  6f 64 75 63 69 6e 67 20  |e for producing |
00000300  68 61 6e 64 6f 75 74 73  2c 22 2c 31 36 29 0d 01  |handouts,",16)..|
00000310  18 2e f2 44 4f 28 22 69  6e 73 74 72 75 63 74 69  |...DO("instructi|
00000320  6f 6e 20 62 6f 6f 6b 6c  65 74 73 20 61 6e 64 20  |on booklets and |
00000330  61 64 76 65 72 74 73 22  2c 31 38 29 0d 01 22 29  |adverts",18)..")|
00000340  f2 44 4f 28 22 20 20 20  20 75 73 69 6e 67 20 61  |.DO("    using a|
00000350  20 42 42 43 20 4d 69 63  72 6f 20 61 6e 64 20 61  | BBC Micro and a|
00000360  22 2c 32 30 29 0d 01 2c  2a f2 44 4f 28 22 20 20  |",20)..,*.DO("  |
00000370  20 66 75 6c 6c 20 73 63  72 65 65 6e 20 64 75 6d  | full screen dum|
00000380  70 20 72 6f 75 74 69 6e  65 2e 22 2c 32 32 29 0d  |p routine.",22).|
00000390  01 36 2c fb 30 3a f1 27  22 20 20 50 6c 65 61 73  |.6,.0:.'"  Pleas|
000003a0  65 20 70 72 65 73 73 20  74 68 65 20 73 70 61 63  |e press the spac|
000003b0  65 20 62 61 72 2e 2e 2e  2e 2e 22 0d 01 40 08 41  |e bar....."..@.A|
000003c0  24 3d be 0d 01 4a 14 e7  20 41 24 3c 3e 22 20 22  |$=...J.. A$<>" "|
000003d0  20 e5 20 8d 44 40 41 0d  01 54 0c d7 22 54 75 72  | . .D@A..T.."Tur|
000003e0  62 6f 22 0d 01 5e 0f dd  f2 42 49 47 28 59 24 2c  |bo"..^...BIG(Y$,|
000003f0  50 29 0d 01 68 0f e3 20  58 3d 31 b8 a9 28 59 24  |P)..h.. X=1..(Y$|
00000400  29 0d 01 72 11 f2 58 38  28 c1 59 24 2c 58 2c 31  |)..r..X8(.Y$,X,1|
00000410  29 29 0d 01 7c 06 ed 58  0d 01 86 05 e1 0d 01 90  |))..|..X........|
00000420  0c dd f2 58 38 28 58 24  29 0d 01 9a 13 49 3d 31  |...X8(X$)....I=1|
00000430  3a f2 44 4f 55 42 4c 45  28 58 24 29 0d 01 a4 17  |:.DOUBLE(X$)....|
00000440  49 3d 32 3a f2 44 4f 55  42 4c 45 28 bd 28 32 33  |I=2:.DOUBLE(.(23|
00000450  31 29 29 0d 01 ae 17 49  3d 33 3a f2 44 4f 55 42  |1))....I=3:.DOUB|
00000460  4c 45 28 bd 28 32 34 31  29 29 0d 01 b8 17 49 3d  |LE(.(241))....I=|
00000470  34 3a f2 44 4f 55 42 4c  45 28 bd 28 32 33 32 29  |4:.DOUBLE(.(232)|
00000480  29 0d 01 c2 17 49 3d 35  3a f2 44 4f 55 42 4c 45  |)....I=5:.DOUBLE|
00000490  28 bd 28 32 34 32 29 29  0d 01 cc 17 49 3d 36 3a  |(.(242))....I=6:|
000004a0  f2 44 4f 55 42 4c 45 28  bd 28 32 33 33 29 29 0d  |.DOUBLE(.(233)).|
000004b0  01 d6 17 49 3d 37 3a f2  44 4f 55 42 4c 45 28 bd  |...I=7:.DOUBLE(.|
000004c0  28 32 34 33 29 29 0d 01  e0 15 f1 8a 28 58 2b 31  |(243))......(X+1|
000004d0  29 2c 50 29 3b bd 28 32  33 34 29 0d 01 ea 17 f1  |),P);.(234).....|
000004e0  8a 28 58 2b 31 29 2c 50  2b 31 29 3b bd 28 32 34  |.(X+1),P+1);.(24|
000004f0  34 29 0d 01 f4 17 f1 8a  28 58 2b 31 29 2c 50 2b  |4)......(X+1),P+|
00000500  32 29 3b bd 28 32 33 35  29 0d 01 fe 17 f1 8a 28  |2);.(235)......(|
00000510  58 2b 31 29 2c 50 2b 33  29 3b bd 28 32 34 35 29  |X+1),P+3);.(245)|
00000520  0d 02 08 17 f1 8a 28 58  2b 31 29 2c 50 2b 34 29  |......(X+1),P+4)|
00000530  3b bd 28 32 33 36 29 0d  02 12 17 f1 8a 28 58 2b  |;.(236)......(X+|
00000540  31 29 2c 50 2b 35 29 3b  bd 28 32 34 36 29 0d 02  |1),P+5);.(246)..|
00000550  1c 17 f1 8a 28 58 2b 31  29 2c 50 2b 36 29 3b bd  |....(X+1),P+6);.|
00000560  28 32 33 37 29 0d 02 26  17 f1 8a 28 58 2b 31 29  |(237)..&...(X+1)|
00000570  2c 50 2b 37 29 3b bd 28  32 34 37 29 0d 02 30 05  |,P+7);.(247)..0.|
00000580  e1 0d 02 3a 0e dd f2 44  4f 28 58 24 2c 50 29 0d  |...:...DO(X$,P).|
00000590  02 44 13 49 3d 30 3a e3  20 58 3d 31 b8 a9 28 58  |.D.I=0:. X=1..(X|
000005a0  24 29 0d 02 4e 15 f2 44  4f 55 42 4c 45 28 c1 58  |$)..N..DOUBLE(.X|
000005b0  24 2c 58 2c 31 29 29 0d  02 58 13 f1 8a 58 2b 31  |$,X,1))..X...X+1|
000005c0  2c 50 29 3b bd 28 32 33  30 29 0d 02 62 15 f1 8a  |,P);.(230)..b...|
000005d0  58 2b 31 2c 50 2b 31 29  3b bd 28 32 34 30 29 0d  |X+1,P+1);.(240).|
000005e0  02 6c 06 ed 58 0d 02 76  05 e1 0d 02 80 10 dd f2  |.l..X..v........|
000005f0  44 4f 55 42 4c 45 28 41  24 29 0d 02 8a 0e 3f 26  |DOUBLE(A$)....?&|
00000600  37 30 3d 97 28 41 24 29  0d 02 94 1d 41 25 3d 31  |70=.(A$)....A%=1|
00000610  30 3a 58 25 3d 26 37 30  3a 59 25 3d 30 3a d6 20  |0:X%=&70:Y%=0:. |
00000620  26 46 46 46 31 0d 02 9e  35 ef 32 33 2c 32 33 30  |&FFF1...5.23,230|
00000630  2b 49 2c 3f 26 37 31 2c  3f 26 37 31 2c 3f 26 37  |+I,?&71,?&71,?&7|
00000640  32 2c 3f 26 37 32 2c 3f  26 37 33 2c 3f 26 37 33  |2,?&72,?&73,?&73|
00000650  2c 3f 26 37 34 2c 3f 26  37 34 0d 02 a8 35 ef 32  |,?&74,?&74...5.2|
00000660  33 2c 32 34 30 2b 49 2c  3f 26 37 35 2c 3f 26 37  |3,240+I,?&75,?&7|
00000670  35 2c 3f 26 37 36 2c 3f  26 37 36 2c 3f 26 37 37  |5,?&76,?&76,?&77|
00000680  2c 3f 26 37 37 2c 3f 26  37 38 2c 3f 26 37 38 0d  |,?&77,?&78,?&78.|
00000690  02 b2 05 e1 0d ff                                 |......|
00000696