Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape34b_acorn_eu_1992_may.wav » TP4

TP4

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 tapes » Electron_User » Electron_User_tape34b_acorn_eu_1992_may.wav
Filename: TP4
Read OK:
File size: 0404 bytes
Load address: FFFF1900
Exec address: FFFF802B
Duplicates

There are 4 duplicate copies 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 *****************************
  150MODE1:VDU23,1,0,0,0,0,0,0,0,0:*FX4,2
  160PRINT"Print Document"
  170ONERROR IF ERR=254 REPORT:Q=GET:CHAIN"TP2" ELSE IF ERR=17 RUN ELSE REPORT:PRINTERL:END
  180PRINT'''"Please select size of document:"
  190PRINT''"          1:Full Sheet"
  200PRINT'"          2:Postcard"
  210PRINT'"    Any other key to abort"
  220A$=GET$
  230IF A$<>"1" AND A$<>"2" VDU7:CHAIN"TP2"
  240CLS
  250PRINT"Print Document"
  260IF A$="1" PRINT"Full Sheet "ELSE PRINT"Postcard"
  270OSCLI"*CAT"
  280*FX21
  290INPUT'"Enter filename for screen:"X$
  300CLS
  310OSCLI"*LOAD "+X$
  330IF A$="1" PROCA4 ELSE PROCPC
  340CLEAR:CHAIN"TP2"
  350DEFPROCPC
  360*LOAD TP5
  370VDU2:CALL&A00:VDU3
  380ENDPROC
  390DEFPROCA4
  400*LOAD TP6 B00
  410CALL &B00
  420ENDPROC

#� *****************************
#� **    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            **
�#� **                         **
�#� *****************************
�#�1:�23,1,0,0,0,0,0,0,0,0:*FX4,2
��"Print Document"
�/� � �=254 �:Q=�:�"TP2" � � �=17 � � �:�:�
�)�'''"Please select size of document:"
��''"          1:Full Sheet"
��'"          2:Postcard"
�"�'"    Any other key to abort"
�A$=�
�!� A$<>"1" � A$<>"2" �7:�"TP2"
��
��"Print Document"
(� A$="1" �"Full Sheet "� �"Postcard"
�"*CAT"
	*FX21
"$�'"Enter filename for screen:"X$
,�
6�"*LOAD "+X$
J� A$="1" �A4 � �PC
T�:�"TP2"
^��PC
h
*LOAD TP5
r�2:�&A00:�3
|�
���A4
�*LOAD TP6 B00
�
� &B00
��
�
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 23 eb 31  |**********...#.1|
000001f0  3a ef 32 33 2c 31 2c 30  2c 30 2c 30 2c 30 2c 30  |:.23,1,0,0,0,0,0|
00000200  2c 30 2c 30 2c 30 3a 2a  46 58 34 2c 32 0d 00 a0  |,0,0,0:*FX4,2...|
00000210  15 f1 22 50 72 69 6e 74  20 44 6f 63 75 6d 65 6e  |.."Print Documen|
00000220  74 22 0d 00 aa 2f ee 85  20 e7 20 9f 3d 32 35 34  |t".../.. . .=254|
00000230  20 f6 3a 51 3d a5 3a d7  22 54 50 32 22 20 8b 20  | .:Q=.:."TP2" . |
00000240  e7 20 9f 3d 31 37 20 f9  20 8b 20 f6 3a f1 9e 3a  |. .=17 . . .:..:|
00000250  e0 0d 00 b4 29 f1 27 27  27 22 50 6c 65 61 73 65  |....).'''"Please|
00000260  20 73 65 6c 65 63 74 20  73 69 7a 65 20 6f 66 20  | select size of |
00000270  64 6f 63 75 6d 65 6e 74  3a 22 0d 00 be 1f f1 27  |document:".....'|
00000280  27 22 20 20 20 20 20 20  20 20 20 20 31 3a 46 75  |'"          1:Fu|
00000290  6c 6c 20 53 68 65 65 74  22 0d 00 c8 1c f1 27 22  |ll Sheet".....'"|
000002a0  20 20 20 20 20 20 20 20  20 20 32 3a 50 6f 73 74  |          2:Post|
000002b0  63 61 72 64 22 0d 00 d2  22 f1 27 22 20 20 20 20  |card"...".'"    |
000002c0  41 6e 79 20 6f 74 68 65  72 20 6b 65 79 20 74 6f  |Any other key to|
000002d0  20 61 62 6f 72 74 22 0d  00 dc 08 41 24 3d be 0d  | abort"....A$=..|
000002e0  00 e6 21 e7 20 41 24 3c  3e 22 31 22 20 80 20 41  |..!. A$<>"1" . A|
000002f0  24 3c 3e 22 32 22 20 ef  37 3a d7 22 54 50 32 22  |$<>"2" .7:."TP2"|
00000300  0d 00 f0 05 db 0d 00 fa  15 f1 22 50 72 69 6e 74  |.........."Print|
00000310  20 44 6f 63 75 6d 65 6e  74 22 0d 01 04 28 e7 20  | Document"...(. |
00000320  41 24 3d 22 31 22 20 f1  22 46 75 6c 6c 20 53 68  |A$="1" ."Full Sh|
00000330  65 65 74 20 22 8b 20 f1  22 50 6f 73 74 63 61 72  |eet ". ."Postcar|
00000340  64 22 0d 01 0e 0b ff 22  2a 43 41 54 22 0d 01 18  |d"....."*CAT"...|
00000350  09 2a 46 58 32 31 0d 01  22 24 e8 27 22 45 6e 74  |.*FX21.."$.'"Ent|
00000360  65 72 20 66 69 6c 65 6e  61 6d 65 20 66 6f 72 20  |er filename for |
00000370  73 63 72 65 65 6e 3a 22  58 24 0d 01 2c 05 db 0d  |screen:"X$..,...|
00000380  01 36 10 ff 22 2a 4c 4f  41 44 20 22 2b 58 24 0d  |.6.."*LOAD "+X$.|
00000390  01 4a 16 e7 20 41 24 3d  22 31 22 20 f2 41 34 20  |.J.. A$="1" .A4 |
000003a0  8b 20 f2 50 43 0d 01 54  0c d8 3a d7 22 54 50 32  |. .PC..T..:."TP2|
000003b0  22 0d 01 5e 08 dd f2 50  43 0d 01 68 0d 2a 4c 4f  |"..^...PC..h.*LO|
000003c0  41 44 20 54 50 35 0d 01  72 0f ef 32 3a d6 26 41  |AD TP5..r..2:.&A|
000003d0  30 30 3a ef 33 0d 01 7c  05 e1 0d 01 86 08 dd f2  |00:.3..|........|
000003e0  41 34 0d 01 90 11 2a 4c  4f 41 44 20 54 50 36 20  |A4....*LOAD TP6 |
000003f0  42 30 30 0d 01 9a 0a d6  20 26 42 30 30 0d 01 a4  |B00..... &B00...|
00000400  05 e1 0d ff                                       |....|
00000404
TP4.m0
TP4.m1
TP4.m2
TP4.m4
TP4.m5