13-01-89/TEXTRD

Home » CEEFAX disks » telesoftware12.adl » 13-01-89/TEXTRD

13-01-89/TEXTRD

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 » CEEFAX disks » telesoftware12.adl
Filename:	13-01-89/TEXTRD
Read OK:	✔
File size:	05EC bytes
Load address:	FFFF1A00
Exec address:	FFFF801F

Duplicates

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

CEEFAX disks » telesoftware12.adl » 13-01-89/TEXTRD
CEEFAX disks » telesoftware7.adl » 16-05-88/TEXTRD

File contents

   10REM"�TAPE USERS MUST DELETE LINES
   20REM"�110 & 140. CASSETTE MOTOR
   30REM"�CONTROL IS VITAL
   40REM"�TEXT FILE DISPLAY
   50REM"�FOR MACHINES WITHOUT DISCS
   60:
   70*TV0,1
   80MODE7
   90PROCheading
  100PRINTTAB(0,4)" �The Telesoftware text file required    �must have been downloaded and saved."
  110*CAT
  120PRINT'"� Please enter the filename of text:"
  130INPUT" �"fname$
  140Q=OPENUP(fname$):CLOSE#Q:IFQ=0 PRINT'" �No such file. Press�SPACE... ";:REPEATUNTILGET=32:RUN
  150PROCheading:PRINTTAB(0,5)"� Text file: �"fname$
  160PRINT'" �Do you require output to a printer?    �";
  170A$=GET$:IFA$="Y" ORA$="y" prt%=TRUE:PRINT"Yes":ELSEprt%=FALSE:PRINT"No"
  180PRINT'" �Prevent screen scrolling? ";
  190A$=GET$:IFA$="Y" ORA$="y" scr%=TRUE ELSEscr%=FALSE
  200PROCreport
  210IFW=9 GOTO70
  220ONERRORGOTO560
  230MODE3
  240Q=OPENUP(fname$)
  250IF scr% PRINT"P r e s s   S H I F T   f o r   n e x t   p a g e ":VDU14
  260PRINT"P r i n t e r   O u t p u t   O ";:IFprt%=TRUE VDU110,13,10,10,2 ELSE PRINT"f f"''
  270REPEAT:L%=(BGET#Q)AND&7F
  280IFL%=10 PROClf(13):GOTO330
  290IFL%=13 PROClf(10):GOTO330
  300IFL%<32 L%=32
  310IFL%>126 L%=32
  320VDUL%
  330UNTILEOF#Q
  340VDU3
  350CLOSE#Q
  360PRINT'''"*   *   *        D o c u m e n t   c o m p l e t e        *   *   *"
  370END
  380DEFPROCheading
  390CLS
  400PRINT'CHR$141;"���   TEXT FILE DISPLAY UTILITY"
  410PRINTCHR$141;"���   TEXT FILE DISPLAY UTILITY"
  420ENDPROC
  430DEFPROCreport
  440PROCheading
  450PRINT''" �   File:�";fname$
  460PRINT''"� Printer:�";:IFprt% PRINT"On" ELSE PRINT"Off"
  470PRINT''" � Scroll:�";:IFscr% PRINT"No" ELSE PRINT"Yes"
  480PRINT''" �SPACE�to continue, or�TAB�to re-run"
  490REPEAT:W=GET:UNTILW=32 ORW=9
  500ENDPROC
  510DEFPROClf(no)
  520F%=BGET#Q:IF F%<>no ANDF%<>254:PTR#Q=(PTR#Q)-1
  530VDU10,13
  540ENDPROC
  550REM"�ERROR
  560ONERROROFF
  570CLOSE#0
  580VDU3:MODE7
  590PROCheading
  600PRINT'"� Error�";ERR;"�detected at line�";ERL''
  610END


#�"�TAPE USERS MUST DELETE LINES
 �"�110 & 140. CASSETTE MOTOR
�"�CONTROL IS VITAL
(�"�TEXT FILE DISPLAY
2!�"�FOR MACHINES WITHOUT DISCS
<:
F
*TV0,1
P�7
Z�heading
dZ�0,4)" �The Telesoftware text file required    �must have been downloaded and saved."
n*CAT
x,�'"� Please enter the filename of text:"
��" �"fname$
�FQ=�(fname$):�#Q:�Q=0 �'" �No such file. Press�SPACE... ";:���=32:�
�)�heading:�0,5)"� Text file: �"fname$
�3�'" �Do you require output to a printer?    �";
�4A$=�:�A$="Y" �A$="y" prt%=�:�"Yes":�prt%=�:�"No"
�%�'" �Prevent screen scrolling? ";
�'A$=�:�A$="Y" �A$="y" scr%=� �scr%=�
��report
��W=9 �DF@
���TpB
��3
�Q=�(fname$)
�D� scr% �"P r e s s   S H I F T   f o r   n e x t   p a g e ":�14
K�"P r i n t e r   O u t p u t   O ";:�prt%=� �110,13,10,10,2 � �"f f"''
�:L%=(�#Q)�&7F
�L%=10 �lf(13):�DJA
"�L%=13 �lf(10):�DJA
,�L%<32 L%=32
6�L%>126 L%=32
@�L%
J��#Q
T�3
^�#Q
hM�'''"*   *   *        D o c u m e n t   c o m p l e t e        *   *   *"
r�
|
��heading
��
�,�'�141;"���   TEXT FILE DISPLAY UTILITY"
�+�141;"���   TEXT FILE DISPLAY UTILITY"
��
���report
��heading
��''" �   File:�";fname$
�*�''"� Printer:�";:�prt% �"On" � �"Off"
�*�''" � Scroll:�";:�scr% �"No" � �"Yes"
�.�''" �SPACE�to continue, or�TAB�to re-run"
��:W=�:�W=32 �W=9
��
���lf(no)
(F%=�#Q:� F%<>no �F%<>254:�#Q=(�#Q)-1

�10,13
�
&�"�ERROR
0
:�#0
D	�3:�7
N�heading
X+�'"� Error�";�;"�detected at line�";�''
b�
�

00000000  0d 00 0a 23 f4 22 86 54  41 50 45 20 55 53 45 52  |...#.".TAPE USER|
00000010  53 20 4d 55 53 54 20 44  45 4c 45 54 45 20 4c 49  |S MUST DELETE LI|
00000020  4e 45 53 0d 00 14 20 f4  22 86 31 31 30 20 26 20  |NES... .".110 & |
00000030  31 34 30 2e 20 43 41 53  53 45 54 54 45 20 4d 4f  |140. CASSETTE MO|
00000040  54 4f 52 0d 00 1e 17 f4  22 86 43 4f 4e 54 52 4f  |TOR.....".CONTRO|
00000050  4c 20 49 53 20 56 49 54  41 4c 0d 00 28 18 f4 22  |L IS VITAL..(.."|
00000060  81 54 45 58 54 20 46 49  4c 45 20 44 49 53 50 4c  |.TEXT FILE DISPL|
00000070  41 59 0d 00 32 21 f4 22  81 46 4f 52 20 4d 41 43  |AY..2!.".FOR MAC|
00000080  48 49 4e 45 53 20 57 49  54 48 4f 55 54 20 44 49  |HINES WITHOUT DI|
00000090  53 43 53 0d 00 3c 05 3a  0d 00 46 0a 2a 54 56 30  |SCS..<.:..F.*TV0|
000000a0  2c 31 0d 00 50 06 eb 37  0d 00 5a 0c f2 68 65 61  |,1..P..7..Z..hea|
000000b0  64 69 6e 67 0d 00 64 5a  f1 8a 30 2c 34 29 22 20  |ding..dZ..0,4)" |
000000c0  82 54 68 65 20 54 65 6c  65 73 6f 66 74 77 61 72  |.The Telesoftwar|
000000d0  65 20 74 65 78 74 20 66  69 6c 65 20 72 65 71 75  |e text file requ|
000000e0  69 72 65 64 20 20 20 20  82 6d 75 73 74 20 68 61  |ired    .must ha|
000000f0  76 65 20 62 65 65 6e 20  64 6f 77 6e 6c 6f 61 64  |ve been download|
00000100  65 64 20 61 6e 64 20 73  61 76 65 64 2e 22 0d 00  |ed and saved."..|
00000110  6e 08 2a 43 41 54 0d 00  78 2c f1 27 22 83 20 50  |n.*CAT..x,.'". P|
00000120  6c 65 61 73 65 20 65 6e  74 65 72 20 74 68 65 20  |lease enter the |
00000130  66 69 6c 65 6e 61 6d 65  20 6f 66 20 74 65 78 74  |filename of text|
00000140  3a 22 0d 00 82 0f e8 22  20 82 22 66 6e 61 6d 65  |:"....." ."fname|
00000150  24 0d 00 8c 46 51 3d ad  28 66 6e 61 6d 65 24 29  |$...FQ=.(fname$)|
00000160  3a d9 23 51 3a e7 51 3d  30 20 f1 27 22 20 81 4e  |:.#Q:.Q=0 .'" .N|
00000170  6f 20 73 75 63 68 20 66  69 6c 65 2e 20 50 72 65  |o such file. Pre|
00000180  73 73 83 53 50 41 43 45  2e 2e 2e 20 22 3b 3a f5  |ss.SPACE... ";:.|
00000190  fd a5 3d 33 32 3a f9 0d  00 96 29 f2 68 65 61 64  |..=32:....).head|
000001a0  69 6e 67 3a f1 8a 30 2c  35 29 22 83 20 54 65 78  |ing:..0,5)". Tex|
000001b0  74 20 66 69 6c 65 3a 20  82 22 66 6e 61 6d 65 24  |t file: ."fname$|
000001c0  0d 00 a0 33 f1 27 22 20  83 44 6f 20 79 6f 75 20  |...3.'" .Do you |
000001d0  72 65 71 75 69 72 65 20  6f 75 74 70 75 74 20 74  |require output t|
000001e0  6f 20 61 20 70 72 69 6e  74 65 72 3f 20 20 20 20  |o a printer?    |
000001f0  82 22 3b 0d 00 aa 34 41  24 3d be 3a e7 41 24 3d  |.";...4A$=.:.A$=|
00000200  22 59 22 20 84 41 24 3d  22 79 22 20 70 72 74 25  |"Y" .A$="y" prt%|
00000210  3d b9 3a f1 22 59 65 73  22 3a 8b 70 72 74 25 3d  |=.:."Yes":.prt%=|
00000220  a3 3a f1 22 4e 6f 22 0d  00 b4 25 f1 27 22 20 83  |.:."No"...%.'" .|
00000230  50 72 65 76 65 6e 74 20  73 63 72 65 65 6e 20 73  |Prevent screen s|
00000240  63 72 6f 6c 6c 69 6e 67  3f 20 22 3b 0d 00 be 27  |crolling? ";...'|
00000250  41 24 3d be 3a e7 41 24  3d 22 59 22 20 84 41 24  |A$=.:.A$="Y" .A$|
00000260  3d 22 79 22 20 73 63 72  25 3d b9 20 8b 73 63 72  |="y" scr%=. .scr|
00000270  25 3d a3 0d 00 c8 0b f2  72 65 70 6f 72 74 0d 00  |%=......report..|
00000280  d2 0e e7 57 3d 39 20 e5  8d 44 46 40 0d 00 dc 0b  |...W=9 ..DF@....|
00000290  ee 85 e5 8d 54 70 42 0d  00 e6 06 eb 33 0d 00 f0  |....TpB.....3...|
000002a0  0f 51 3d ad 28 66 6e 61  6d 65 24 29 0d 00 fa 44  |.Q=.(fname$)...D|
000002b0  e7 20 73 63 72 25 20 f1  22 50 20 72 20 65 20 73  |. scr% ."P r e s|
000002c0  20 73 20 20 20 53 20 48  20 49 20 46 20 54 20 20  | s   S H I F T  |
000002d0  20 66 20 6f 20 72 20 20  20 6e 20 65 20 78 20 74  | f o r   n e x t|
000002e0  20 20 20 70 20 61 20 67  20 65 20 22 3a ef 31 34  |   p a g e ":.14|
000002f0  0d 01 04 4b f1 22 50 20  72 20 69 20 6e 20 74 20  |...K."P r i n t |
00000300  65 20 72 20 20 20 4f 20  75 20 74 20 70 20 75 20  |e r   O u t p u |
00000310  74 20 20 20 4f 20 22 3b  3a e7 70 72 74 25 3d b9  |t   O ";:.prt%=.|
00000320  20 ef 31 31 30 2c 31 33  2c 31 30 2c 31 30 2c 32  | .110,13,10,10,2|
00000330  20 8b 20 f1 22 66 20 66  22 27 27 0d 01 0e 12 f5  | . ."f f"''.....|
00000340  3a 4c 25 3d 28 9a 23 51  29 80 26 37 46 0d 01 18  |:L%=(.#Q).&7F...|
00000350  18 e7 4c 25 3d 31 30 20  f2 6c 66 28 31 33 29 3a  |..L%=10 .lf(13):|
00000360  e5 8d 44 4a 41 0d 01 22  18 e7 4c 25 3d 31 33 20  |..DJA.."..L%=13 |
00000370  f2 6c 66 28 31 30 29 3a  e5 8d 44 4a 41 0d 01 2c  |.lf(10):..DJA..,|
00000380  10 e7 4c 25 3c 33 32 20  4c 25 3d 33 32 0d 01 36  |..L%<32 L%=32..6|
00000390  11 e7 4c 25 3e 31 32 36  20 4c 25 3d 33 32 0d 01  |..L%>126 L%=32..|
000003a0  40 07 ef 4c 25 0d 01 4a  08 fd c5 23 51 0d 01 54  |@..L%..J...#Q..T|
000003b0  06 ef 33 0d 01 5e 07 d9  23 51 0d 01 68 4d f1 27  |..3..^..#Q..hM.'|
000003c0  27 27 22 2a 20 20 20 2a  20 20 20 2a 20 20 20 20  |''"*   *   *    |
000003d0  20 20 20 20 44 20 6f 20  63 20 75 20 6d 20 65 20  |    D o c u m e |
000003e0  6e 20 74 20 20 20 63 20  6f 20 6d 20 70 20 6c 20  |n t   c o m p l |
000003f0  65 20 74 20 65 20 20 20  20 20 20 20 20 2a 20 20  |e t e        *  |
00000400  20 2a 20 20 20 2a 22 0d  01 72 05 e0 0d 01 7c 0d  | *   *"..r....|.|
00000410  dd f2 68 65 61 64 69 6e  67 0d 01 86 05 db 0d 01  |..heading.......|
00000420  90 2c f1 27 bd 31 34 31  3b 22 81 9d 83 20 20 20  |.,.'.141;"...   |
00000430  54 45 58 54 20 46 49 4c  45 20 44 49 53 50 4c 41  |TEXT FILE DISPLA|
00000440  59 20 55 54 49 4c 49 54  59 22 0d 01 9a 2b f1 bd  |Y UTILITY"...+..|
00000450  31 34 31 3b 22 81 9d 83  20 20 20 54 45 58 54 20  |141;"...   TEXT |
00000460  46 49 4c 45 20 44 49 53  50 4c 41 59 20 55 54 49  |FILE DISPLAY UTI|
00000470  4c 49 54 59 22 0d 01 a4  05 e1 0d 01 ae 0c dd f2  |LITY"...........|
00000480  72 65 70 6f 72 74 0d 01  b8 0c f2 68 65 61 64 69  |report.....headi|
00000490  6e 67 0d 01 c2 1b f1 27  27 22 20 86 20 20 20 46  |ng.....''" .   F|
000004a0  69 6c 65 3a 81 22 3b 66  6e 61 6d 65 24 0d 01 cc  |ile:.";fname$...|
000004b0  2a f1 27 27 22 86 20 50  72 69 6e 74 65 72 3a 81  |*.''". Printer:.|
000004c0  22 3b 3a e7 70 72 74 25  20 f1 22 4f 6e 22 20 8b  |";:.prt% ."On" .|
000004d0  20 f1 22 4f 66 66 22 0d  01 d6 2a f1 27 27 22 20  | ."Off"...*.''" |
000004e0  86 20 53 63 72 6f 6c 6c  3a 81 22 3b 3a e7 73 63  |. Scroll:.";:.sc|
000004f0  72 25 20 f1 22 4e 6f 22  20 8b 20 f1 22 59 65 73  |r% ."No" . ."Yes|
00000500  22 0d 01 e0 2e f1 27 27  22 20 83 53 50 41 43 45  |".....''" .SPACE|
00000510  86 74 6f 20 63 6f 6e 74  69 6e 75 65 2c 20 6f 72  |.to continue, or|
00000520  83 54 41 42 86 74 6f 20  72 65 2d 72 75 6e 22 0d  |.TAB.to re-run".|
00000530  01 ea 14 f5 3a 57 3d a5  3a fd 57 3d 33 32 20 84  |....:W=.:.W=32 .|
00000540  57 3d 39 0d 01 f4 05 e1  0d 01 fe 0c dd f2 6c 66  |W=9...........lf|
00000550  28 6e 6f 29 0d 02 08 28  46 25 3d 9a 23 51 3a e7  |(no)...(F%=.#Q:.|
00000560  20 46 25 3c 3e 6e 6f 20  80 46 25 3c 3e 32 35 34  | F%<>no .F%<>254|
00000570  3a cf 23 51 3d 28 8f 23  51 29 2d 31 0d 02 12 0a  |:.#Q=(.#Q)-1....|
00000580  ef 31 30 2c 31 33 0d 02  1c 05 e1 0d 02 26 0c f4  |.10,13.......&..|
00000590  22 81 45 52 52 4f 52 0d  02 30 07 ee 85 87 0d 02  |".ERROR..0......|
000005a0  3a 07 d9 23 30 0d 02 44  09 ef 33 3a eb 37 0d 02  |:..#0..D..3:.7..|
000005b0  4e 0c f2 68 65 61 64 69  6e 67 0d 02 58 2b f1 27  |N..heading..X+.'|
000005c0  22 81 20 45 72 72 6f 72  83 22 3b 9f 3b 22 81 64  |". Error.";.;".d|
000005d0  65 74 65 63 74 65 64 20  61 74 20 6c 69 6e 65 83  |etected at line.|
000005e0  22 3b 9e 27 27 0d 02 62  05 e0 0d ff              |";.''..b....|
000005ec

13-01-89/TEXTRD.m0

13-01-89/TEXTRD.m1

13-01-89/TEXTRD.m2

13-01-89/TEXTRD.m4

13-01-89/TEXTRD.m5

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