Home » Personal collection » Acorn ADFS disks » Electron » Sideways_ROMS.ADF » DTP/TP8

DTP/TP8

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Personal collection » Acorn ADFS disks » Electron » Sideways_ROMS.ADF
Filename: DTP/TP8
Read OK:
File size: 054C bytes
Load address: FFFF0E00
Exec address: FFFF8023
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
   10REM *****************************
   20REM **    Turbo Publisher      **
   30REM **                         **
   40REM **  Written by Neil Gorin  **
   50REM **                         **
   60REM **  4 Rookwood Drive       **
   70REM **  Stevenage              **
   80REM **  Herts SG2 8PJ          **
   90REM **                         **
  100REM **  Always interested in   **
  110REM **  any comments about     **
  120REM **  my software            **
  130REM **                         **
  140REM *****************************
  150VDU23,1,0,0,0,0,0,0,0,0:*FX4,2
  160ONERROR REPORT:PRINTERL:PRINT''"Current work file saved under WORKS":END
  170*LOAD WORKS
  180*FX200,1
  190VDU23,1,1,0,0,0,0,0,0,0:COLOUR1:PRINTTAB(0,30);"Use cursor keys to move then            type desired characters.  f0 for menu. ";:COLOUR3
  200X=0:Y=0
  210TIME=0:REPEAT UNTIL TIME>5
  220X=X-INKEY-122+INKEY-26
  230Y=Y+INKEY-58-INKEY-42
  240IF X<0 X=0
  250IF X>38 X=38
  260IF Y<0 Y=0
  270IF Y>28 Y=28
  280PRINTTAB(X,Y);
  290A=INKEY-97:A$=INKEY$(0)
  300IF A$=CHR$(13) THEN Y=Y+1:X=0:GOTO240
  310IF A$=CHR$(32) PRINT" ":X=X+1:GOTO210
  320IF A$=CHR$(127) AND X>0 X=X-1:PROCHL("H",X,Y,0,0):GOTO210
  330IF A$=CHR$(9) THEN 290
  340IF INKEY-113 CHAIN"TP3"
  350IF A$<>"" PROCHL(A$,X,Y,3,0):X=X+1:IF X>38 X=38
  360GOTO210
  370DEF PROCHL(text$,x,y,c1,c2)
  380gx=x*32:gy=1024-(y*32):VDU 5
  390GCOL 0,c1
  400MOVE gx-4,gy:PRINT text$
  410MOVE gx+4,gy:PRINT text$
  420MOVE gx,gy-4:PRINT text$
  430MOVE gx,gy+4:PRINT text$
  440MOVE gx-4,gy-4:PRINT text$
  450MOVE gx+4,gy-4:PRINT text$
  460MOVE gx+4,gy+4:PRINT text$
  470MOVE gx-4,gy+4:PRINT text$
  480GCOL 0,c2:MOVE gx,gy:PRINT text$
  490VDU 4:ENDPROC

#� *****************************
#� **    Turbo Publisher      **
#� **                         **
(#� **  Written by Neil Gorin  **
2#� **                         **
<#� **  4 Rookwood Drive       **
F#� **  Stevenage              **
P#� **  Herts SG2 8PJ          **
Z#� **                         **
d#� **  Always interested in   **
n#� **  any comments about     **
x#� **  my software            **
�#� **                         **
�#� *****************************
� �23,1,0,0,0,0,0,0,0,0:*FX4,2
�6� �:�:�''"Current work file saved under WORKS":�
�*LOAD WORKS
�*FX200,1
�z�23,1,1,0,0,0,0,0,0,0:�1:�0,30);"Use cursor keys to move then            type desired characters.  f0 for menu. ";:�3
�X=0:Y=0
��=0:� � �>5
�X=X-�-122+�-26
�Y=Y+�-58-�-42
�
� X<0 X=0
�� X>38 X=38

� Y<0 Y=0
� Y>28 Y=28
�X,Y);
"A=�-97:A$=�(0)
, � A$=�(13) � Y=Y+1:X=0:�dp@
6� A$=�(32) �" ":X=X+1:�dR@
@2� A$=�(127) � X>0 X=X-1:�HL("H",X,Y,0,0):�dR@
J� A$=�(9) � �TbA
T� �-113 �"TP3"
^.� A$<>"" �HL(A$,X,Y,3,0):X=X+1:� X>38 X=38
h	�dR@
r� �HL(text$,x,y,c1,c2)
|gx=x*32:gy=1024-(y*32):� 5
�
� 0,c1
�� gx-4,gy:� text$
�� gx+4,gy:� text$
�� gx,gy-4:� text$
�� gx,gy+4:� text$
�� gx-4,gy-4:� text$
�� gx+4,gy-4:� text$
�� gx+4,gy+4:� text$
�� gx-4,gy+4:� text$
�� 0,c2:� gx,gy:� text$
�	� 4:�
�
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 34 20 52 6f 6f 6b 77  |.<#. **  4 Rookw|
000000c0  6f 6f 64 20 44 72 69 76  65 20 20 20 20 20 20 20  |ood Drive       |
000000d0  2a 2a 0d 00 46 23 f4 20  2a 2a 20 20 53 74 65 76  |**..F#. **  Stev|
000000e0  65 6e 61 67 65 20 20 20  20 20 20 20 20 20 20 20  |enage           |
000000f0  20 20 20 2a 2a 0d 00 50  23 f4 20 2a 2a 20 20 48  |   **..P#. **  H|
00000100  65 72 74 73 20 53 47 32  20 38 50 4a 20 20 20 20  |erts SG2 8PJ    |
00000110  20 20 20 20 20 20 2a 2a  0d 00 5a 23 f4 20 2a 2a  |      **..Z#. **|
00000120  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000130  20 20 20 20 20 20 20 20  20 2a 2a 0d 00 64 23 f4  |         **..d#.|
00000140  20 2a 2a 20 20 41 6c 77  61 79 73 20 69 6e 74 65  | **  Always inte|
00000150  72 65 73 74 65 64 20 69  6e 20 20 20 2a 2a 0d 00  |rested in   **..|
00000160  6e 23 f4 20 2a 2a 20 20  61 6e 79 20 63 6f 6d 6d  |n#. **  any comm|
00000170  65 6e 74 73 20 61 62 6f  75 74 20 20 20 20 20 2a  |ents about     *|
00000180  2a 0d 00 78 23 f4 20 2a  2a 20 20 6d 79 20 73 6f  |*..x#. **  my so|
00000190  66 74 77 61 72 65 20 20  20 20 20 20 20 20 20 20  |ftware          |
000001a0  20 20 2a 2a 0d 00 82 23  f4 20 2a 2a 20 20 20 20  |  **...#. **    |
000001b0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000001c0  20 20 20 20 20 2a 2a 0d  00 8c 23 f4 20 2a 2a 2a  |     **...#. ***|
000001d0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
000001e0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 0d 00 96 20 ef 32  |**********... .2|
000001f0  33 2c 31 2c 30 2c 30 2c  30 2c 30 2c 30 2c 30 2c  |3,1,0,0,0,0,0,0,|
00000200  30 2c 30 3a 2a 46 58 34  2c 32 0d 00 a0 36 ee 85  |0,0:*FX4,2...6..|
00000210  20 f6 3a f1 9e 3a f1 27  27 22 43 75 72 72 65 6e  | .:..:.''"Curren|
00000220  74 20 77 6f 72 6b 20 66  69 6c 65 20 73 61 76 65  |t work file save|
00000230  64 20 75 6e 64 65 72 20  57 4f 52 4b 53 22 3a e0  |d under WORKS":.|
00000240  0d 00 aa 0f 2a 4c 4f 41  44 20 57 4f 52 4b 53 0d  |....*LOAD WORKS.|
00000250  00 b4 0c 2a 46 58 32 30  30 2c 31 0d 00 be 7a ef  |...*FX200,1...z.|
00000260  32 33 2c 31 2c 31 2c 30  2c 30 2c 30 2c 30 2c 30  |23,1,1,0,0,0,0,0|
00000270  2c 30 2c 30 3a fb 31 3a  f1 8a 30 2c 33 30 29 3b  |,0,0:.1:..0,30);|
00000280  22 55 73 65 20 63 75 72  73 6f 72 20 6b 65 79 73  |"Use cursor keys|
00000290  20 74 6f 20 6d 6f 76 65  20 74 68 65 6e 20 20 20  | to move then   |
000002a0  20 20 20 20 20 20 20 20  20 74 79 70 65 20 64 65  |         type de|
000002b0  73 69 72 65 64 20 63 68  61 72 61 63 74 65 72 73  |sired characters|
000002c0  2e 20 20 66 30 20 66 6f  72 20 6d 65 6e 75 2e 20  |.  f0 for menu. |
000002d0  22 3b 3a fb 33 0d 00 c8  0b 58 3d 30 3a 59 3d 30  |";:.3....X=0:Y=0|
000002e0  0d 00 d2 0f d1 3d 30 3a  f5 20 fd 20 91 3e 35 0d  |.....=0:. . .>5.|
000002f0  00 dc 12 58 3d 58 2d a6  2d 31 32 32 2b a6 2d 32  |...X=X-.-122+.-2|
00000300  36 0d 00 e6 11 59 3d 59  2b a6 2d 35 38 2d a6 2d  |6....Y=Y+.-58-.-|
00000310  34 32 0d 00 f0 0d e7 20  58 3c 30 20 58 3d 30 0d  |42..... X<0 X=0.|
00000320  00 fa 0f e7 20 58 3e 33  38 20 58 3d 33 38 0d 01  |.... X>38 X=38..|
00000330  04 0d e7 20 59 3c 30 20  59 3d 30 0d 01 0e 0f e7  |... Y<0 Y=0.....|
00000340  20 59 3e 32 38 20 59 3d  32 38 0d 01 18 0b f1 8a  | Y>28 Y=28......|
00000350  58 2c 59 29 3b 0d 01 22  12 41 3d a6 2d 39 37 3a  |X,Y);..".A=.-97:|
00000360  41 24 3d bf 28 30 29 0d  01 2c 20 e7 20 41 24 3d  |A$=.(0).., . A$=|
00000370  bd 28 31 33 29 20 8c 20  59 3d 59 2b 31 3a 58 3d  |.(13) . Y=Y+1:X=|
00000380  30 3a e5 8d 64 70 40 0d  01 36 1f e7 20 41 24 3d  |0:..dp@..6.. A$=|
00000390  bd 28 33 32 29 20 f1 22  20 22 3a 58 3d 58 2b 31  |.(32) ." ":X=X+1|
000003a0  3a e5 8d 64 52 40 0d 01  40 32 e7 20 41 24 3d bd  |:..dR@..@2. A$=.|
000003b0  28 31 32 37 29 20 80 20  58 3e 30 20 58 3d 58 2d  |(127) . X>0 X=X-|
000003c0  31 3a f2 48 4c 28 22 48  22 2c 58 2c 59 2c 30 2c  |1:.HL("H",X,Y,0,|
000003d0  30 29 3a e5 8d 64 52 40  0d 01 4a 14 e7 20 41 24  |0):..dR@..J.. A$|
000003e0  3d bd 28 39 29 20 8c 20  8d 54 62 41 0d 01 54 12  |=.(9) . .TbA..T.|
000003f0  e7 20 a6 2d 31 31 33 20  d7 22 54 50 33 22 0d 01  |. .-113 ."TP3"..|
00000400  5e 2e e7 20 41 24 3c 3e  22 22 20 f2 48 4c 28 41  |^.. A$<>"" .HL(A|
00000410  24 2c 58 2c 59 2c 33 2c  30 29 3a 58 3d 58 2b 31  |$,X,Y,3,0):X=X+1|
00000420  3a e7 20 58 3e 33 38 20  58 3d 33 38 0d 01 68 09  |:. X>38 X=38..h.|
00000430  e5 8d 64 52 40 0d 01 72  1a dd 20 f2 48 4c 28 74  |..dR@..r.. .HL(t|
00000440  65 78 74 24 2c 78 2c 79  2c 63 31 2c 63 32 29 0d  |ext$,x,y,c1,c2).|
00000450  01 7c 1e 67 78 3d 78 2a  33 32 3a 67 79 3d 31 30  |.|.gx=x*32:gy=10|
00000460  32 34 2d 28 79 2a 33 32  29 3a ef 20 35 0d 01 86  |24-(y*32):. 5...|
00000470  0a e6 20 30 2c 63 31 0d  01 90 15 ec 20 67 78 2d  |.. 0,c1..... gx-|
00000480  34 2c 67 79 3a f1 20 74  65 78 74 24 0d 01 9a 15  |4,gy:. text$....|
00000490  ec 20 67 78 2b 34 2c 67  79 3a f1 20 74 65 78 74  |. gx+4,gy:. text|
000004a0  24 0d 01 a4 15 ec 20 67  78 2c 67 79 2d 34 3a f1  |$..... gx,gy-4:.|
000004b0  20 74 65 78 74 24 0d 01  ae 15 ec 20 67 78 2c 67  | text$..... gx,g|
000004c0  79 2b 34 3a f1 20 74 65  78 74 24 0d 01 b8 17 ec  |y+4:. text$.....|
000004d0  20 67 78 2d 34 2c 67 79  2d 34 3a f1 20 74 65 78  | gx-4,gy-4:. tex|
000004e0  74 24 0d 01 c2 17 ec 20  67 78 2b 34 2c 67 79 2d  |t$..... gx+4,gy-|
000004f0  34 3a f1 20 74 65 78 74  24 0d 01 cc 17 ec 20 67  |4:. text$..... g|
00000500  78 2b 34 2c 67 79 2b 34  3a f1 20 74 65 78 74 24  |x+4,gy+4:. text$|
00000510  0d 01 d6 17 ec 20 67 78  2d 34 2c 67 79 2b 34 3a  |..... gx-4,gy+4:|
00000520  f1 20 74 65 78 74 24 0d  01 e0 1a e6 20 30 2c 63  |. text$..... 0,c|
00000530  32 3a ec 20 67 78 2c 67  79 3a f1 20 74 65 78 74  |2:. gx,gy:. text|
00000540  24 0d 01 ea 09 ef 20 34  3a e1 0d ff              |$..... 4:...|
0000054c
DTP/TP8.m0
DTP/TP8.m1
DTP/TP8.m2
DTP/TP8.m4
DTP/TP8.m5