Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape34a_acorn_eu_1992_may.wav » TP2

TP2

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_tape34a_acorn_eu_1992_may.wav
Filename: TP2
Read OK: ✔
File size: 0730 bytes
Load address: FFFF0E00
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 *****************************
  150ONERROR IF ERR=254 REPORT:Q=GET:GOTO250 ELSE IF ERR=17 GOTO 250 ELSE REPORT:PRINTERL:END
  160GOTO250
  170MODE1
  180VDU23,1,0,0,0,0,0,0,0,0
  190OSCLI"*CAT"
  200*FX21
  210INPUT'"Enter filename for document:"X$
  220CLS
  230OSCLI"*LOAD "+X$
  240RETURN
  250MODE7
  260VDU23,1,0,0,0,0,0,0,0,0
  270FORI=1TO2:PRINTSTRING$(6," ")CHR$(141);CHR$(129);CHR$(157);CHR$(131);"Turbo Publisher ";CHR$(156):NEXTI
  280PRINT'''CHR$(131);"     ";CHR$(129);"Design new page     "CHR$(156)
  290PRINT'CHR$(131);"     ";CHR$(129);"Edit saved document   "CHR$(156)
  300PRINT'CHR$(131);"     ";CHR$(129);"Display saved document"CHR$(156)
  310PRINT'CHR$(131);"     ";CHR$(129);"Print saved document  "CHR$(156)
  320PRINT'CHR$(131);"     ";CHR$(129);"Issue star command    "CHR$(156)
  330PRINT'CHR$(131);"     ";CHR$(129);"Quit application      "CHR$(156)
  340PRINT''CHR$(129);CHR$(157);CHR$(131);"Please select option using cursor"'CHR$(129);CHR$(157);CHR$(131);"keys and press RETURN to confirm."
  350*FX21,0
  360*FX4,2
  370PS=5
  380PRINTTAB(5,PS);CHR$(157)
  390TIME=0:REPEATUNTILTIME>5:*FX21
  400IF INKEY-74 THEN 460
  410IF INKEY-42 PRINTTAB(5,PS);" ":PS=PS+2
  420IF INKEY-58 PRINTTAB(5,PS);" ":PS=PS-2
  430IF PS<5 PS=15
  440IF PS>15 PS=5
  450GOTO380
  460*FX4,2
  470IF PS=7 GOSUB170:CHAIN"TP3"
  480IF PS=11 CHAIN"TP4"
  490IF PS=9 MODE1:VDU23,1,0,0,0,0,0,0,0,0:GOSUB170:COLOUR1:PRINTTAB(0,31);"Press space for menu...";:X$=GET$:COLOUR3:GOTO250
  500IF PS=5 MODE1:CHAIN"TP3"
  510IF PS=15 CLS:VDU23,1,1,0,0,0,0,0,0,0:END
  520IF PS=13 VDU23,1,1,0,0,0,0,0,0,0:PROCSTAR
  530GOTO250
  540DEFPROCSTAR
  550CLS
  560Q=INKEY(50):*FX21
  570PRINTCHR$(130);"Issue star command - Press RETURN"'CHR$(130);"on its own for the menu."''
  580INPUTLINE"*"STAR$
  590IF STAR$="" ENDPROC
  600OSCLI(STAR$)
  610GOTO580


#� *****************************
#� **    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            **
�#� **                         **
�#� *****************************
�3� � �=254 �:Q=�:�dz@ � � �=17 � �dz@ � �:�:�
�	�dz@
��1
��23,1,0,0,0,0,0,0,0,0
��"*CAT"
�	*FX21
�&�'"Enter filename for document:"X$
��
��"*LOAD "+X$
��
��7
�23,1,0,0,0,0,0,0,0,0
K�I=1�2:��6," ")�(141);�(129);�(157);�(131);"Turbo Publisher ";�(156):�I
:�'''�(131);"     ";�(129);"Design new page     "�(156)
":�'�(131);"     ";�(129);"Edit saved document   "�(156)
,:�'�(131);"     ";�(129);"Display saved document"�(156)
6:�'�(131);"     ";�(129);"Print saved document  "�(156)
@:�'�(131);"     ";�(129);"Issue star command    "�(156)
J:�'�(131);"     ";�(129);"Quit application      "�(156)
Tx�''�(129);�(157);�(131);"Please select option using cursor"'�(129);�(157);�(131);"keys and press RETURN to confirm."
^*FX21,0
h
*FX4,2
rPS=5
|�5,PS);�(157)
��=0:���>5:*FX21
�� �-74 � �dLA
�� �-42 �5,PS);" ":PS=PS+2
�� �-58 �5,PS);" ":PS=PS-2
�� PS<5 PS=15
�� PS>15 PS=5
�	�D|A
�
*FX4,2
�� PS=7 �tj@:�"TP3"
�� PS=11 �"TP4"
�]� PS=9 �1:�23,1,0,0,0,0,0,0,0,0:�tj@:�1:�0,31);"Press space for menu...";:X$=�:�3:�dz@
�� PS=5 �1:�"TP3"
�%� PS=15 �:�23,1,1,0,0,0,0,0,0,0:�
'� PS=13 �23,1,1,0,0,0,0,0,0,0:�STAR
	�dz@

��STAR
&�
0Q=�(50):*FX21
:S�(130);"Issue star command - Press RETURN"'�(130);"on its own for the menu."''
D�"*"STAR$
N� STAR$="" �
X�(STAR$)
b	�DDB
�
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 33 ee 85  |**********...3..|
000001f0  20 e7 20 9f 3d 32 35 34  20 f6 3a 51 3d a5 3a e5  | . .=254 .:Q=.:.|
00000200  8d 64 7a 40 20 8b 20 e7  20 9f 3d 31 37 20 e5 20  |.dz@ . . .=17 . |
00000210  8d 64 7a 40 20 8b 20 f6  3a f1 9e 3a e0 0d 00 a0  |.dz@ . .:..:....|
00000220  09 e5 8d 64 7a 40 0d 00  aa 06 eb 31 0d 00 b4 19  |...dz@.....1....|
00000230  ef 32 33 2c 31 2c 30 2c  30 2c 30 2c 30 2c 30 2c  |.23,1,0,0,0,0,0,|
00000240  30 2c 30 2c 30 0d 00 be  0b ff 22 2a 43 41 54 22  |0,0,0....."*CAT"|
00000250  0d 00 c8 09 2a 46 58 32  31 0d 00 d2 26 e8 27 22  |....*FX21...&.'"|
00000260  45 6e 74 65 72 20 66 69  6c 65 6e 61 6d 65 20 66  |Enter filename f|
00000270  6f 72 20 64 6f 63 75 6d  65 6e 74 3a 22 58 24 0d  |or document:"X$.|
00000280  00 dc 05 db 0d 00 e6 10  ff 22 2a 4c 4f 41 44 20  |........."*LOAD |
00000290  22 2b 58 24 0d 00 f0 05  f8 0d 00 fa 06 eb 37 0d  |"+X$..........7.|
000002a0  01 04 19 ef 32 33 2c 31  2c 30 2c 30 2c 30 2c 30  |....23,1,0,0,0,0|
000002b0  2c 30 2c 30 2c 30 2c 30  0d 01 0e 4b e3 49 3d 31  |,0,0,0,0...K.I=1|
000002c0  b8 32 3a f1 c4 36 2c 22  20 22 29 bd 28 31 34 31  |.2:..6," ").(141|
000002d0  29 3b bd 28 31 32 39 29  3b bd 28 31 35 37 29 3b  |);.(129);.(157);|
000002e0  bd 28 31 33 31 29 3b 22  54 75 72 62 6f 20 50 75  |.(131);"Turbo Pu|
000002f0  62 6c 69 73 68 65 72 20  22 3b bd 28 31 35 36 29  |blisher ";.(156)|
00000300  3a ed 49 0d 01 18 3a f1  27 27 27 bd 28 31 33 31  |:.I...:.'''.(131|
00000310  29 3b 22 20 20 20 20 20  22 3b bd 28 31 32 39 29  |);"     ";.(129)|
00000320  3b 22 44 65 73 69 67 6e  20 6e 65 77 20 70 61 67  |;"Design new pag|
00000330  65 20 20 20 20 20 22 bd  28 31 35 36 29 0d 01 22  |e     ".(156).."|
00000340  3a f1 27 bd 28 31 33 31  29 3b 22 20 20 20 20 20  |:.'.(131);"     |
00000350  22 3b bd 28 31 32 39 29  3b 22 45 64 69 74 20 73  |";.(129);"Edit s|
00000360  61 76 65 64 20 64 6f 63  75 6d 65 6e 74 20 20 20  |aved document   |
00000370  22 bd 28 31 35 36 29 0d  01 2c 3a f1 27 bd 28 31  |".(156)..,:.'.(1|
00000380  33 31 29 3b 22 20 20 20  20 20 22 3b bd 28 31 32  |31);"     ";.(12|
00000390  39 29 3b 22 44 69 73 70  6c 61 79 20 73 61 76 65  |9);"Display save|
000003a0  64 20 64 6f 63 75 6d 65  6e 74 22 bd 28 31 35 36  |d document".(156|
000003b0  29 0d 01 36 3a f1 27 bd  28 31 33 31 29 3b 22 20  |)..6:.'.(131);" |
000003c0  20 20 20 20 22 3b bd 28  31 32 39 29 3b 22 50 72  |    ";.(129);"Pr|
000003d0  69 6e 74 20 73 61 76 65  64 20 64 6f 63 75 6d 65  |int saved docume|
000003e0  6e 74 20 20 22 bd 28 31  35 36 29 0d 01 40 3a f1  |nt  ".(156)..@:.|
000003f0  27 bd 28 31 33 31 29 3b  22 20 20 20 20 20 22 3b  |'.(131);"     ";|
00000400  bd 28 31 32 39 29 3b 22  49 73 73 75 65 20 73 74  |.(129);"Issue st|
00000410  61 72 20 63 6f 6d 6d 61  6e 64 20 20 20 20 22 bd  |ar command    ".|
00000420  28 31 35 36 29 0d 01 4a  3a f1 27 bd 28 31 33 31  |(156)..J:.'.(131|
00000430  29 3b 22 20 20 20 20 20  22 3b bd 28 31 32 39 29  |);"     ";.(129)|
00000440  3b 22 51 75 69 74 20 61  70 70 6c 69 63 61 74 69  |;"Quit applicati|
00000450  6f 6e 20 20 20 20 20 20  22 bd 28 31 35 36 29 0d  |on      ".(156).|
00000460  01 54 78 f1 27 27 bd 28  31 32 39 29 3b bd 28 31  |.Tx.''.(129);.(1|
00000470  35 37 29 3b bd 28 31 33  31 29 3b 22 50 6c 65 61  |57);.(131);"Plea|
00000480  73 65 20 73 65 6c 65 63  74 20 6f 70 74 69 6f 6e  |se select option|
00000490  20 75 73 69 6e 67 20 63  75 72 73 6f 72 22 27 bd  | using cursor"'.|
000004a0  28 31 32 39 29 3b bd 28  31 35 37 29 3b bd 28 31  |(129);.(157);.(1|
000004b0  33 31 29 3b 22 6b 65 79  73 20 61 6e 64 20 70 72  |31);"keys and pr|
000004c0  65 73 73 20 52 45 54 55  52 4e 20 74 6f 20 63 6f  |ess RETURN to co|
000004d0  6e 66 69 72 6d 2e 22 0d  01 5e 0b 2a 46 58 32 31  |nfirm."..^.*FX21|
000004e0  2c 30 0d 01 68 0a 2a 46  58 34 2c 32 0d 01 72 08  |,0..h.*FX4,2..r.|
000004f0  50 53 3d 35 0d 01 7c 12  f1 8a 35 2c 50 53 29 3b  |PS=5..|...5,PS);|
00000500  bd 28 31 35 37 29 0d 01  86 13 d1 3d 30 3a f5 fd  |.(157).....=0:..|
00000510  91 3e 35 3a 2a 46 58 32  31 0d 01 90 11 e7 20 a6  |.>5:*FX21..... .|
00000520  2d 37 34 20 8c 20 8d 64  4c 41 0d 01 9a 1e e7 20  |-74 . .dLA..... |
00000530  a6 2d 34 32 20 f1 8a 35  2c 50 53 29 3b 22 20 22  |.-42 ..5,PS);" "|
00000540  3a 50 53 3d 50 53 2b 32  0d 01 a4 1e e7 20 a6 2d  |:PS=PS+2..... .-|
00000550  35 38 20 f1 8a 35 2c 50  53 29 3b 22 20 22 3a 50  |58 ..5,PS);" ":P|
00000560  53 3d 50 53 2d 32 0d 01  ae 10 e7 20 50 53 3c 35  |S=PS-2..... PS<5|
00000570  20 50 53 3d 31 35 0d 01  b8 10 e7 20 50 53 3e 31  | PS=15..... PS>1|
00000580  35 20 50 53 3d 35 0d 01  c2 09 e5 8d 44 7c 41 0d  |5 PS=5......D|A.|
00000590  01 cc 0a 2a 46 58 34 2c  32 0d 01 d6 17 e7 20 50  |...*FX4,2..... P|
000005a0  53 3d 37 20 e4 8d 74 6a  40 3a d7 22 54 50 33 22  |S=7 ..tj@:."TP3"|
000005b0  0d 01 e0 12 e7 20 50 53  3d 31 31 20 d7 22 54 50  |..... PS=11 ."TP|
000005c0  34 22 0d 01 ea 5d e7 20  50 53 3d 39 20 eb 31 3a  |4"...]. PS=9 .1:|
000005d0  ef 32 33 2c 31 2c 30 2c  30 2c 30 2c 30 2c 30 2c  |.23,1,0,0,0,0,0,|
000005e0  30 2c 30 2c 30 3a e4 8d  74 6a 40 3a fb 31 3a f1  |0,0,0:..tj@:.1:.|
000005f0  8a 30 2c 33 31 29 3b 22  50 72 65 73 73 20 73 70  |.0,31);"Press sp|
00000600  61 63 65 20 66 6f 72 20  6d 65 6e 75 2e 2e 2e 22  |ace for menu..."|
00000610  3b 3a 58 24 3d be 3a fb  33 3a e5 8d 64 7a 40 0d  |;:X$=.:.3:..dz@.|
00000620  01 f4 14 e7 20 50 53 3d  35 20 eb 31 3a d7 22 54  |.... PS=5 .1:."T|
00000630  50 33 22 0d 01 fe 25 e7  20 50 53 3d 31 35 20 db  |P3"...%. PS=15 .|
00000640  3a ef 32 33 2c 31 2c 31  2c 30 2c 30 2c 30 2c 30  |:.23,1,1,0,0,0,0|
00000650  2c 30 2c 30 2c 30 3a e0  0d 02 08 27 e7 20 50 53  |,0,0,0:....'. PS|
00000660  3d 31 33 20 ef 32 33 2c  31 2c 31 2c 30 2c 30 2c  |=13 .23,1,1,0,0,|
00000670  30 2c 30 2c 30 2c 30 2c  30 3a f2 53 54 41 52 0d  |0,0,0,0,0:.STAR.|
00000680  02 12 09 e5 8d 64 7a 40  0d 02 1c 0a dd f2 53 54  |.....dz@......ST|
00000690  41 52 0d 02 26 05 db 0d  02 30 11 51 3d a6 28 35  |AR..&....0.Q=.(5|
000006a0  30 29 3a 2a 46 58 32 31  0d 02 3a 53 f1 bd 28 31  |0):*FX21..:S..(1|
000006b0  33 30 29 3b 22 49 73 73  75 65 20 73 74 61 72 20  |30);"Issue star |
000006c0  63 6f 6d 6d 61 6e 64 20  2d 20 50 72 65 73 73 20  |command - Press |
000006d0  52 45 54 55 52 4e 22 27  bd 28 31 33 30 29 3b 22  |RETURN"'.(130);"|
000006e0  6f 6e 20 69 74 73 20 6f  77 6e 20 66 6f 72 20 74  |on its own for t|
000006f0  68 65 20 6d 65 6e 75 2e  22 27 27 0d 02 44 0e e8  |he menu."''..D..|
00000700  86 22 2a 22 53 54 41 52  24 0d 02 4e 10 e7 20 53  |."*"STAR$..N.. S|
00000710  54 41 52 24 3d 22 22 20  e1 0d 02 58 0c ff 28 53  |TAR$="" ...X..(S|
00000720  54 41 52 24 29 0d 02 62  09 e5 8d 44 44 42 0d ff  |TAR$)..b...DDB..|
00000730
TP2.m0
TP2.m1
TP2.m2
TP2.m4
TP2.m5

© Dominic Ford 2021–2024.

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .