Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape22a_acorn_eu_1991_may.wav » SegOne

SegOne

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_tape22a_acorn_eu_1991_may.wav
Filename: SegOne
Read OK:
File size: 0277 bytes
Load address: FFFFFFFF
Exec address: FFFFFFFF
File contents
REM SegOne

A$="<fo"
B$=">"
C$="<ex1>"
D$="<ex2>"
E$="<ex4>"
G$="<nh>"
H$="<dh>"
M$=" abcdefghijklmnopqrstuvwxyz 0123456789 "
N$="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
X$=CHR$(13)
J$=C$+G$
K$=D$+H$

REM Get file list
SELECT SEGMENT 2
LOAD TEXT "FileLst"

REM Build up text file in main text
SELECT TEXT
DELETE TEXT

PROCmaketext

SELECT TEXT
CURSOR TOP
DISPLAY
SAVE TEXT "fontdis"

REM Return to WW+ Edit mode.
*FX138,0,27
END

.maketext
 REPEAT
  PROCgetname
  IF Z$="" THEN GOTO endmake
  SELECT TEXT
  TYPE A$+Z$+B$
  TYPE J$+Z$+M$+N$+X$+K$+M$+N$+X$
  DISPLAY
 .endmake
 UNTIL Z$=""
ENDPROC


.getname
 SELECT SEGMENT 2
 Z$=GLT$
 ENDPROC
00000000  52 45 4d 20 53 65 67 4f  6e 65 0d 0d 41 24 3d 22  |REM SegOne..A$="|
00000010  3c 66 6f 22 0d 42 24 3d  22 3e 22 0d 43 24 3d 22  |<fo".B$=">".C$="|
00000020  3c 65 78 31 3e 22 0d 44  24 3d 22 3c 65 78 32 3e  |<ex1>".D$="<ex2>|
00000030  22 0d 45 24 3d 22 3c 65  78 34 3e 22 0d 47 24 3d  |".E$="<ex4>".G$=|
00000040  22 3c 6e 68 3e 22 0d 48  24 3d 22 3c 64 68 3e 22  |"<nh>".H$="<dh>"|
00000050  0d 4d 24 3d 22 20 61 62  63 64 65 66 67 68 69 6a  |.M$=" abcdefghij|
00000060  6b 6c 6d 6e 6f 70 71 72  73 74 75 76 77 78 79 7a  |klmnopqrstuvwxyz|
00000070  20 30 31 32 33 34 35 36  37 38 39 20 22 0d 4e 24  | 0123456789 ".N$|
00000080  3d 22 41 42 43 44 45 46  47 48 49 4a 4b 4c 4d 4e  |="ABCDEFGHIJKLMN|
00000090  4f 50 51 52 53 54 55 56  57 58 59 5a 22 0d 58 24  |OPQRSTUVWXYZ".X$|
000000a0  3d 43 48 52 24 28 31 33  29 0d 4a 24 3d 43 24 2b  |=CHR$(13).J$=C$+|
000000b0  47 24 0d 4b 24 3d 44 24  2b 48 24 0d 0d 52 45 4d  |G$.K$=D$+H$..REM|
000000c0  20 47 65 74 20 66 69 6c  65 20 6c 69 73 74 0d 53  | Get file list.S|
000000d0  45 4c 45 43 54 20 53 45  47 4d 45 4e 54 20 32 0d  |ELECT SEGMENT 2.|
000000e0  4c 4f 41 44 20 54 45 58  54 20 22 46 69 6c 65 4c  |LOAD TEXT "FileL|
000000f0  73 74 22 0d 0d 52 45 4d  20 42 75 69 6c 64 20 75  |st"..REM Build u|
00000100  70 20 74 65 78 74 20 66  69 6c 65 20 69 6e 20 6d  |p text file in m|
00000110  61 69 6e 20 74 65 78 74  0d 53 45 4c 45 43 54 20  |ain text.SELECT |
00000120  54 45 58 54 0d 44 45 4c  45 54 45 20 54 45 58 54  |TEXT.DELETE TEXT|
00000130  0d 0d 50 52 4f 43 6d 61  6b 65 74 65 78 74 0d 0d  |..PROCmaketext..|
00000140  53 45 4c 45 43 54 20 54  45 58 54 0d 43 55 52 53  |SELECT TEXT.CURS|
00000150  4f 52 20 54 4f 50 0d 44  49 53 50 4c 41 59 0d 53  |OR TOP.DISPLAY.S|
00000160  41 56 45 20 54 45 58 54  20 22 66 6f 6e 74 64 69  |AVE TEXT "fontdi|
00000170  73 22 0d 0d 52 45 4d 20  52 65 74 75 72 6e 20 74  |s"..REM Return t|
00000180  6f 20 57 57 2b 20 45 64  69 74 20 6d 6f 64 65 2e  |o WW+ Edit mode.|
00000190  0d 2a 46 58 31 33 38 2c  30 2c 32 37 0d 45 4e 44  |.*FX138,0,27.END|
000001a0  0d 0d 2e 6d 61 6b 65 74  65 78 74 0d 20 52 45 50  |...maketext. REP|
000001b0  45 41 54 0d 20 20 50 52  4f 43 67 65 74 6e 61 6d  |EAT.  PROCgetnam|
000001c0  65 0d 20 20 49 46 20 5a  24 3d 22 22 20 54 48 45  |e.  IF Z$="" THE|
000001d0  4e 20 47 4f 54 4f 20 65  6e 64 6d 61 6b 65 0d 20  |N GOTO endmake. |
000001e0  20 53 45 4c 45 43 54 20  54 45 58 54 0d 20 20 54  | SELECT TEXT.  T|
000001f0  59 50 45 20 41 24 2b 5a  24 2b 42 24 0d 20 20 54  |YPE A$+Z$+B$.  T|
00000200  59 50 45 20 4a 24 2b 5a  24 2b 4d 24 2b 4e 24 2b  |YPE J$+Z$+M$+N$+|
00000210  58 24 2b 4b 24 2b 4d 24  2b 4e 24 2b 58 24 0d 20  |X$+K$+M$+N$+X$. |
00000220  20 44 49 53 50 4c 41 59  0d 20 2e 65 6e 64 6d 61  | DISPLAY. .endma|
00000230  6b 65 0d 20 55 4e 54 49  4c 20 5a 24 3d 22 22 0d  |ke. UNTIL Z$="".|
00000240  45 4e 44 50 52 4f 43 0d  0d 0d 2e 67 65 74 6e 61  |ENDPROC....getna|
00000250  6d 65 0d 20 53 45 4c 45  43 54 20 53 45 47 4d 45  |me. SELECT SEGME|
00000260  4e 54 20 32 0d 20 5a 24  3d 47 4c 54 24 0d 20 45  |NT 2. Z$=GLT$. E|
00000270  4e 44 50 52 4f 43 0d                              |NDPROC.|
00000277
SegOne.m0
SegOne.m1
SegOne.m2
SegOne.m4
SegOne.m5