Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_39.ADF » P/X

P/X

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_User_Group » EUG_39.ADF
Filename: P/X
Read OK: ✔
File size: 0C96 bytes
Load address: 58204556
Exec address: 5041520D
Duplicates

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

File contents
How to wordwrap in assembler
============================
Say we have a block of text which was written in 80 column mode,but we
want to show this is 40 column mode instead. A crude way to do this would
be simply to print it out unmodified, but this would result in some words
being broken across the ends of lines. It is therefore desireable to
wordwrap the text.

This may be done by considering some special cases:
Here are the 40 columns 0123456789012345678901234567890123456789
Here's a random string  ABCDE EFGHIJK LMNOPQ . RTSUVWXYZ ,abcdefghij.

Fortunately this will look OK even if we'd simply printed it out.To
word wrap you move a pointer to the 40th character, then back up 1
character at a time until you find a space. Here, that occurs on the  very
first letter, as there's a space at the end of the line.
Here are the 40 columns 
0123456789012345678901234567890123456789
Here's a random string
ABCDE EFGHIJK LMNOPQ . RTSUVWXYZ,abcdefg hij.

Applying the above rules the wordwrap will be made after the full stop as
that is where the first space is. 
It would appear as:
Here are the 40 columns 0123456789012345678901234567890123456789
Here's a random string: 
ABCDE EFGHIJK LMNOPQ . RTSUVWXYZ,abcdefghij.
Which isn't very satisfactory.If instead we look for any charcter with an
ASCiivalue LESS THAN the letter '0' (number 48) then the wordwrap will
occur at the comma instead,as this has ASCii value 44.It'll look like
Here are the 40 columns 0123456789012345678901234567890123456789Here's a random
string  ABCDE EFGHIJK LMNOPQ .
 RTSUVWXYZ,                        abcdefghij.Much better.But what happens
in the extreme cases? A 42 letter long word,or a zero len gth
word.Well,when tracking backwards in search of a character lessthan ASCii
48 if you realise that you're at the beginning of the  string,at offset
0,then simply print out a fixed 40 letters.This will leave you part way
through a string,whereupon you can then jum p forward another 40 letters
andcarry on as before.In this way an 85 letter string would be split up
into 2 fixed length 40 characte rs then a 'normal' string.By a zero length
word I mean one with a carriage return only in it.These canbe dealt with
by performing a  newline,then starting scanning again after the CR
character.The program 'Wrap' (elsewhere on this disk) will print out a
wordwrapped
 textfile to 40 columns,stopping when ASCii 0 is found.That should give
you all some food for though if you're writing you own wordp rocessors
etc... as a wordwrap routine is often very important.You'll probablywant
to do some range checking on the memory pointer ' addrL' and 'addrH'
asthese must of course be somewhere in RAM.Another feature which could
prove handy is the handling of carriage re turnmarkers used by other
operating systems.DOS uses a CR and linefeed,Archimedesjust use the
linefeed,the beeb uses both!To do this
 - if you find a character LESS THAN or EQUAL TO 13 then a newlineis
printed,then,you look ahead one byte to see if that is also LES S THAN
orEQUAL TO 13,but NOT the same as the other.This then takes into account
peoplewho wanted two empty lines one after another i n their text.Discard
the second byte if it IS different.So there it is,Sprow.

00000000  0d 48 6f 77 20 74 6f 20  77 6f 72 64 77 72 61 70  |.How to wordwrap|
00000010  20 69 6e 20 61 73 73 65  6d 62 6c 65 72 0d 3d 3d  | in assembler.==|
00000020  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
00000030  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 0d 53 61 79 20 77  |==========.Say w|
00000040  65 20 68 61 76 65 20 61  20 62 6c 6f 63 6b 20 6f  |e have a block o|
00000050  66 20 74 65 78 74 20 77  68 69 63 68 20 77 61 73  |f text which was|
00000060  20 77 72 69 74 74 65 6e  20 69 6e 20 38 30 20 63  | written in 80 c|
00000070  6f 6c 75 6d 6e 20 6d 6f  64 65 2c 62 75 74 20 77  |olumn mode,but w|
00000080  65 0d 77 61 6e 74 20 74  6f 20 73 68 6f 77 20 74  |e.want to show t|
00000090  68 69 73 20 69 73 20 34  30 20 63 6f 6c 75 6d 6e  |his is 40 column|
000000a0  20 6d 6f 64 65 20 69 6e  73 74 65 61 64 2e 20 41  | mode instead. A|
000000b0  20 63 72 75 64 65 20 77  61 79 20 74 6f 20 64 6f  | crude way to do|
000000c0  20 74 68 69 73 20 77 6f  75 6c 64 0d 62 65 20 73  | this would.be s|
000000d0  69 6d 70 6c 79 20 74 6f  20 70 72 69 6e 74 20 69  |imply to print i|
000000e0  74 20 6f 75 74 20 75 6e  6d 6f 64 69 66 69 65 64  |t out unmodified|
000000f0  2c 20 62 75 74 20 74 68  69 73 20 77 6f 75 6c 64  |, but this would|
00000100  20 72 65 73 75 6c 74 20  69 6e 20 73 6f 6d 65 20  | result in some |
00000110  77 6f 72 64 73 0d 62 65  69 6e 67 20 62 72 6f 6b  |words.being brok|
00000120  65 6e 20 61 63 72 6f 73  73 20 74 68 65 20 65 6e  |en across the en|
00000130  64 73 20 6f 66 20 6c 69  6e 65 73 2e 20 49 74 20  |ds of lines. It |
00000140  69 73 20 74 68 65 72 65  66 6f 72 65 20 64 65 73  |is therefore des|
00000150  69 72 65 61 62 6c 65 20  74 6f 0d 77 6f 72 64 77  |ireable to.wordw|
00000160  72 61 70 20 74 68 65 20  74 65 78 74 2e 0d 0d 54  |rap the text...T|
00000170  68 69 73 20 6d 61 79 20  62 65 20 64 6f 6e 65 20  |his may be done |
00000180  62 79 20 63 6f 6e 73 69  64 65 72 69 6e 67 20 73  |by considering s|
00000190  6f 6d 65 20 73 70 65 63  69 61 6c 20 63 61 73 65  |ome special case|
000001a0  73 3a 0d 48 65 72 65 20  61 72 65 20 74 68 65 20  |s:.Here are the |
000001b0  34 30 20 63 6f 6c 75 6d  6e 73 20 30 31 32 33 34  |40 columns 01234|
000001c0  35 36 37 38 39 30 31 32  33 34 35 36 37 38 39 30  |5678901234567890|
000001d0  31 32 33 34 35 36 37 38  39 30 31 32 33 34 35 36  |1234567890123456|
000001e0  37 38 39 0d 48 65 72 65  27 73 20 61 20 72 61 6e  |789.Here's a ran|
000001f0  64 6f 6d 20 73 74 72 69  6e 67 20 20 41 42 43 44  |dom string  ABCD|
00000200  45 20 45 46 47 48 49 4a  4b 20 4c 4d 4e 4f 50 51  |E EFGHIJK LMNOPQ|
00000210  20 2e 20 52 54 53 55 56  57 58 59 5a 20 2c 61 62  | . RTSUVWXYZ ,ab|
00000220  63 64 65 66 67 68 69 6a  2e 0d 0d 46 6f 72 74 75  |cdefghij...Fortu|
00000230  6e 61 74 65 6c 79 20 74  68 69 73 20 77 69 6c 6c  |nately this will|
00000240  20 6c 6f 6f 6b 20 4f 4b  20 65 76 65 6e 20 69 66  | look OK even if|
00000250  20 77 65 27 64 20 73 69  6d 70 6c 79 20 70 72 69  | we'd simply pri|
00000260  6e 74 65 64 20 69 74 20  6f 75 74 2e 54 6f 0d 77  |nted it out.To.w|
00000270  6f 72 64 20 77 72 61 70  20 79 6f 75 20 6d 6f 76  |ord wrap you mov|
00000280  65 20 61 20 70 6f 69 6e  74 65 72 20 74 6f 20 74  |e a pointer to t|
00000290  68 65 20 34 30 74 68 20  63 68 61 72 61 63 74 65  |he 40th characte|
000002a0  72 2c 20 74 68 65 6e 20  62 61 63 6b 20 75 70 20  |r, then back up |
000002b0  31 0d 63 68 61 72 61 63  74 65 72 20 61 74 20 61  |1.character at a|
000002c0  20 74 69 6d 65 20 75 6e  74 69 6c 20 79 6f 75 20  | time until you |
000002d0  66 69 6e 64 20 61 20 73  70 61 63 65 2e 20 48 65  |find a space. He|
000002e0  72 65 2c 20 74 68 61 74  20 6f 63 63 75 72 73 20  |re, that occurs |
000002f0  6f 6e 20 74 68 65 20 20  76 65 72 79 0d 66 69 72  |on the  very.fir|
00000300  73 74 20 6c 65 74 74 65  72 2c 20 61 73 20 74 68  |st letter, as th|
00000310  65 72 65 27 73 20 61 20  73 70 61 63 65 20 61 74  |ere's a space at|
00000320  20 74 68 65 20 65 6e 64  20 6f 66 20 74 68 65 20  | the end of the |
00000330  6c 69 6e 65 2e 0d 48 65  72 65 20 61 72 65 20 74  |line..Here are t|
00000340  68 65 20 34 30 20 63 6f  6c 75 6d 6e 73 20 0d 30  |he 40 columns .0|
00000350  31 32 33 34 35 36 37 38  39 30 31 32 33 34 35 36  |1234567890123456|
00000360  37 38 39 30 31 32 33 34  35 36 37 38 39 30 31 32  |7890123456789012|
00000370  33 34 35 36 37 38 39 0d  48 65 72 65 27 73 20 61  |3456789.Here's a|
00000380  20 72 61 6e 64 6f 6d 20  73 74 72 69 6e 67 0d 41  | random string.A|
00000390  42 43 44 45 20 45 46 47  48 49 4a 4b 20 4c 4d 4e  |BCDE EFGHIJK LMN|
000003a0  4f 50 51 20 2e 20 52 54  53 55 56 57 58 59 5a 2c  |OPQ . RTSUVWXYZ,|
000003b0  61 62 63 64 65 66 67 20  68 69 6a 2e 0d 0d 41 70  |abcdefg hij...Ap|
000003c0  70 6c 79 69 6e 67 20 74  68 65 20 61 62 6f 76 65  |plying the above|
000003d0  20 72 75 6c 65 73 20 74  68 65 20 77 6f 72 64 77  | rules the wordw|
000003e0  72 61 70 20 77 69 6c 6c  20 62 65 20 6d 61 64 65  |rap will be made|
000003f0  20 61 66 74 65 72 20 74  68 65 20 66 75 6c 6c 20  | after the full |
00000400  73 74 6f 70 20 61 73 0d  74 68 61 74 20 69 73 20  |stop as.that is |
00000410  77 68 65 72 65 20 74 68  65 20 66 69 72 73 74 20  |where the first |
00000420  73 70 61 63 65 20 69 73  2e 20 0d 49 74 20 77 6f  |space is. .It wo|
00000430  75 6c 64 20 61 70 70 65  61 72 20 61 73 3a 0d 48  |uld appear as:.H|
00000440  65 72 65 20 61 72 65 20  74 68 65 20 34 30 20 63  |ere are the 40 c|
00000450  6f 6c 75 6d 6e 73 20 30  31 32 33 34 35 36 37 38  |olumns 012345678|
00000460  39 30 31 32 33 34 35 36  37 38 39 30 31 32 33 34  |9012345678901234|
00000470  35 36 37 38 39 30 31 32  33 34 35 36 37 38 39 0d  |567890123456789.|
00000480  48 65 72 65 27 73 20 61  20 72 61 6e 64 6f 6d 20  |Here's a random |
00000490  73 74 72 69 6e 67 3a 20  0d 41 42 43 44 45 20 45  |string: .ABCDE E|
000004a0  46 47 48 49 4a 4b 20 4c  4d 4e 4f 50 51 20 2e 20  |FGHIJK LMNOPQ . |
000004b0  52 54 53 55 56 57 58 59  5a 2c 61 62 63 64 65 66  |RTSUVWXYZ,abcdef|
000004c0  67 68 69 6a 2e 0d 57 68  69 63 68 20 69 73 6e 27  |ghij..Which isn'|
000004d0  74 20 76 65 72 79 20 73  61 74 69 73 66 61 63 74  |t very satisfact|
000004e0  6f 72 79 2e 49 66 20 69  6e 73 74 65 61 64 20 77  |ory.If instead w|
000004f0  65 20 6c 6f 6f 6b 20 66  6f 72 20 61 6e 79 20 63  |e look for any c|
00000500  68 61 72 63 74 65 72 20  77 69 74 68 20 61 6e 0d  |harcter with an.|
00000510  41 53 43 69 69 76 61 6c  75 65 20 4c 45 53 53 20  |ASCiivalue LESS |
00000520  54 48 41 4e 20 74 68 65  20 6c 65 74 74 65 72 20  |THAN the letter |
00000530  27 30 27 20 28 6e 75 6d  62 65 72 20 34 38 29 20  |'0' (number 48) |
00000540  74 68 65 6e 20 74 68 65  20 77 6f 72 64 77 72 61  |then the wordwra|
00000550  70 20 77 69 6c 6c 0d 6f  63 63 75 72 20 61 74 20  |p will.occur at |
00000560  74 68 65 20 63 6f 6d 6d  61 20 69 6e 73 74 65 61  |the comma instea|
00000570  64 2c 61 73 20 74 68 69  73 20 68 61 73 20 41 53  |d,as this has AS|
00000580  43 69 69 20 76 61 6c 75  65 20 34 34 2e 49 74 27  |Cii value 44.It'|
00000590  6c 6c 20 6c 6f 6f 6b 20  6c 69 6b 65 0d 48 65 72  |ll look like.Her|
000005a0  65 20 61 72 65 20 74 68  65 20 34 30 20 63 6f 6c  |e are the 40 col|
000005b0  75 6d 6e 73 20 30 31 32  33 34 35 36 37 38 39 30  |umns 01234567890|
000005c0  31 32 33 34 35 36 37 38  39 30 31 32 33 34 35 36  |1234567890123456|
000005d0  37 38 39 30 31 32 33 34  35 36 37 38 39 48 65 72  |7890123456789Her|
000005e0  65 27 73 20 61 20 72 61  6e 64 6f 6d 0d 73 74 72  |e's a random.str|
000005f0  69 6e 67 20 20 41 42 43  44 45 20 45 46 47 48 49  |ing  ABCDE EFGHI|
00000600  4a 4b 20 4c 4d 4e 4f 50  51 20 2e 0d 20 52 54 53  |JK LMNOPQ .. RTS|
00000610  55 56 57 58 59 5a 2c 20  20 20 20 20 20 20 20 20  |UVWXYZ,         |
00000620  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 61  |               a|
00000630  62 63 64 65 66 67 68 69  6a 2e 4d 75 63 68 20 62  |bcdefghij.Much b|
00000640  65 74 74 65 72 2e 42 75  74 20 77 68 61 74 20 68  |etter.But what h|
00000650  61 70 70 65 6e 73 0d 69  6e 20 74 68 65 20 65 78  |appens.in the ex|
00000660  74 72 65 6d 65 20 63 61  73 65 73 3f 20 41 20 34  |treme cases? A 4|
00000670  32 20 6c 65 74 74 65 72  20 6c 6f 6e 67 20 77 6f  |2 letter long wo|
00000680  72 64 2c 6f 72 20 61 20  7a 65 72 6f 20 6c 65 6e  |rd,or a zero len|
00000690  20 67 74 68 0d 77 6f 72  64 2e 57 65 6c 6c 2c 77  | gth.word.Well,w|
000006a0  68 65 6e 20 74 72 61 63  6b 69 6e 67 20 62 61 63  |hen tracking bac|
000006b0  6b 77 61 72 64 73 20 69  6e 20 73 65 61 72 63 68  |kwards in search|
000006c0  20 6f 66 20 61 20 63 68  61 72 61 63 74 65 72 20  | of a character |
000006d0  6c 65 73 73 74 68 61 6e  20 41 53 43 69 69 0d 34  |lessthan ASCii.4|
000006e0  38 20 69 66 20 79 6f 75  20 72 65 61 6c 69 73 65  |8 if you realise|
000006f0  20 74 68 61 74 20 79 6f  75 27 72 65 20 61 74 20  | that you're at |
00000700  74 68 65 20 62 65 67 69  6e 6e 69 6e 67 20 6f 66  |the beginning of|
00000710  20 74 68 65 20 20 73 74  72 69 6e 67 2c 61 74 20  | the  string,at |
00000720  6f 66 66 73 65 74 0d 30  2c 74 68 65 6e 20 73 69  |offset.0,then si|
00000730  6d 70 6c 79 20 70 72 69  6e 74 20 6f 75 74 20 61  |mply print out a|
00000740  20 66 69 78 65 64 20 34  30 20 6c 65 74 74 65 72  | fixed 40 letter|
00000750  73 2e 54 68 69 73 20 77  69 6c 6c 20 6c 65 61 76  |s.This will leav|
00000760  65 20 79 6f 75 20 70 61  72 74 20 77 61 79 0d 74  |e you part way.t|
00000770  68 72 6f 75 67 68 20 61  20 73 74 72 69 6e 67 2c  |hrough a string,|
00000780  77 68 65 72 65 75 70 6f  6e 20 79 6f 75 20 63 61  |whereupon you ca|
00000790  6e 20 74 68 65 6e 20 6a  75 6d 20 70 20 66 6f 72  |n then jum p for|
000007a0  77 61 72 64 20 61 6e 6f  74 68 65 72 20 34 30 20  |ward another 40 |
000007b0  6c 65 74 74 65 72 73 0d  61 6e 64 63 61 72 72 79  |letters.andcarry|
000007c0  20 6f 6e 20 61 73 20 62  65 66 6f 72 65 2e 49 6e  | on as before.In|
000007d0  20 74 68 69 73 20 77 61  79 20 61 6e 20 38 35 20  | this way an 85 |
000007e0  6c 65 74 74 65 72 20 73  74 72 69 6e 67 20 77 6f  |letter string wo|
000007f0  75 6c 64 20 62 65 20 73  70 6c 69 74 20 75 70 0d  |uld be split up.|
00000800  69 6e 74 6f 20 32 20 66  69 78 65 64 20 6c 65 6e  |into 2 fixed len|
00000810  67 74 68 20 34 30 20 63  68 61 72 61 63 74 65 20  |gth 40 characte |
00000820  72 73 20 74 68 65 6e 20  61 20 27 6e 6f 72 6d 61  |rs then a 'norma|
00000830  6c 27 20 73 74 72 69 6e  67 2e 42 79 20 61 20 7a  |l' string.By a z|
00000840  65 72 6f 20 6c 65 6e 67  74 68 0d 77 6f 72 64 20  |ero length.word |
00000850  49 20 6d 65 61 6e 20 6f  6e 65 20 77 69 74 68 20  |I mean one with |
00000860  61 20 63 61 72 72 69 61  67 65 20 72 65 74 75 72  |a carriage retur|
00000870  6e 20 6f 6e 6c 79 20 69  6e 20 69 74 2e 54 68 65  |n only in it.The|
00000880  73 65 20 63 61 6e 62 65  20 64 65 61 6c 74 20 77  |se canbe dealt w|
00000890  69 74 68 0d 62 79 20 70  65 72 66 6f 72 6d 69 6e  |ith.by performin|
000008a0  67 20 61 20 20 6e 65 77  6c 69 6e 65 2c 74 68 65  |g a  newline,the|
000008b0  6e 20 73 74 61 72 74 69  6e 67 20 73 63 61 6e 6e  |n starting scann|
000008c0  69 6e 67 20 61 67 61 69  6e 20 61 66 74 65 72 20  |ing again after |
000008d0  74 68 65 20 43 52 0d 63  68 61 72 61 63 74 65 72  |the CR.character|
000008e0  2e 54 68 65 20 70 72 6f  67 72 61 6d 20 27 57 72  |.The program 'Wr|
000008f0  61 70 27 20 28 65 6c 73  65 77 68 65 72 65 20 6f  |ap' (elsewhere o|
00000900  6e 20 74 68 69 73 20 64  69 73 6b 29 20 77 69 6c  |n this disk) wil|
00000910  6c 20 70 72 69 6e 74 20  6f 75 74 20 61 0d 77 6f  |l print out a.wo|
00000920  72 64 77 72 61 70 70 65  64 0d 20 74 65 78 74 66  |rdwrapped. textf|
00000930  69 6c 65 20 74 6f 20 34  30 20 63 6f 6c 75 6d 6e  |ile to 40 column|
00000940  73 2c 73 74 6f 70 70 69  6e 67 20 77 68 65 6e 20  |s,stopping when |
00000950  41 53 43 69 69 20 30 20  69 73 20 66 6f 75 6e 64  |ASCii 0 is found|
00000960  2e 54 68 61 74 20 73 68  6f 75 6c 64 20 67 69 76  |.That should giv|
00000970  65 0d 79 6f 75 20 61 6c  6c 20 73 6f 6d 65 20 66  |e.you all some f|
00000980  6f 6f 64 20 66 6f 72 20  74 68 6f 75 67 68 20 69  |ood for though i|
00000990  66 20 79 6f 75 27 72 65  20 77 72 69 74 69 6e 67  |f you're writing|
000009a0  20 79 6f 75 20 6f 77 6e  20 77 6f 72 64 70 20 72  | you own wordp r|
000009b0  6f 63 65 73 73 6f 72 73  0d 65 74 63 2e 2e 2e 20  |ocessors.etc... |
000009c0  61 73 20 61 20 77 6f 72  64 77 72 61 70 20 72 6f  |as a wordwrap ro|
000009d0  75 74 69 6e 65 20 69 73  20 6f 66 74 65 6e 20 76  |utine is often v|
000009e0  65 72 79 20 69 6d 70 6f  72 74 61 6e 74 2e 59 6f  |ery important.Yo|
000009f0  75 27 6c 6c 20 70 72 6f  62 61 62 6c 79 77 61 6e  |u'll probablywan|
00000a00  74 0d 74 6f 20 64 6f 20  73 6f 6d 65 20 72 61 6e  |t.to do some ran|
00000a10  67 65 20 63 68 65 63 6b  69 6e 67 20 6f 6e 20 74  |ge checking on t|
00000a20  68 65 20 6d 65 6d 6f 72  79 20 70 6f 69 6e 74 65  |he memory pointe|
00000a30  72 20 27 20 61 64 64 72  4c 27 20 61 6e 64 20 27  |r ' addrL' and '|
00000a40  61 64 64 72 48 27 0d 61  73 74 68 65 73 65 20 6d  |addrH'.asthese m|
00000a50  75 73 74 20 6f 66 20 63  6f 75 72 73 65 20 62 65  |ust of course be|
00000a60  20 73 6f 6d 65 77 68 65  72 65 20 69 6e 20 52 41  | somewhere in RA|
00000a70  4d 2e 41 6e 6f 74 68 65  72 20 66 65 61 74 75 72  |M.Another featur|
00000a80  65 20 77 68 69 63 68 20  63 6f 75 6c 64 0d 70 72  |e which could.pr|
00000a90  6f 76 65 20 68 61 6e 64  79 20 69 73 20 74 68 65  |ove handy is the|
00000aa0  20 68 61 6e 64 6c 69 6e  67 20 6f 66 20 63 61 72  | handling of car|
00000ab0  72 69 61 67 65 20 72 65  20 74 75 72 6e 6d 61 72  |riage re turnmar|
00000ac0  6b 65 72 73 20 75 73 65  64 20 62 79 20 6f 74 68  |kers used by oth|
00000ad0  65 72 0d 6f 70 65 72 61  74 69 6e 67 20 73 79 73  |er.operating sys|
00000ae0  74 65 6d 73 2e 44 4f 53  20 75 73 65 73 20 61 20  |tems.DOS uses a |
00000af0  43 52 20 61 6e 64 20 6c  69 6e 65 66 65 65 64 2c  |CR and linefeed,|
00000b00  41 72 63 68 69 6d 65 64  65 73 6a 75 73 74 20 75  |Archimedesjust u|
00000b10  73 65 20 74 68 65 0d 6c  69 6e 65 66 65 65 64 2c  |se the.linefeed,|
00000b20  74 68 65 20 62 65 65 62  20 75 73 65 73 20 62 6f  |the beeb uses bo|
00000b30  74 68 21 54 6f 20 64 6f  20 74 68 69 73 0d 20 2d  |th!To do this. -|
00000b40  20 69 66 20 79 6f 75 20  66 69 6e 64 20 61 20 63  | if you find a c|
00000b50  68 61 72 61 63 74 65 72  20 4c 45 53 53 20 54 48  |haracter LESS TH|
00000b60  41 4e 20 6f 72 20 45 51  55 41 4c 20 54 4f 20 31  |AN or EQUAL TO 1|
00000b70  33 20 74 68 65 6e 20 61  20 6e 65 77 6c 69 6e 65  |3 then a newline|
00000b80  69 73 0d 70 72 69 6e 74  65 64 2c 74 68 65 6e 2c  |is.printed,then,|
00000b90  79 6f 75 20 6c 6f 6f 6b  20 61 68 65 61 64 20 6f  |you look ahead o|
00000ba0  6e 65 20 62 79 74 65 20  74 6f 20 73 65 65 20 69  |ne byte to see i|
00000bb0  66 20 74 68 61 74 20 69  73 20 61 6c 73 6f 20 4c  |f that is also L|
00000bc0  45 53 20 53 20 54 48 41  4e 0d 6f 72 45 51 55 41  |ES S THAN.orEQUA|
00000bd0  4c 20 54 4f 20 31 33 2c  62 75 74 20 4e 4f 54 20  |L TO 13,but NOT |
00000be0  74 68 65 20 73 61 6d 65  20 61 73 20 74 68 65 20  |the same as the |
00000bf0  6f 74 68 65 72 2e 54 68  69 73 20 74 68 65 6e 20  |other.This then |
00000c00  74 61 6b 65 73 20 69 6e  74 6f 20 61 63 63 6f 75  |takes into accou|
00000c10  6e 74 0d 70 65 6f 70 6c  65 77 68 6f 20 77 61 6e  |nt.peoplewho wan|
00000c20  74 65 64 20 74 77 6f 20  65 6d 70 74 79 20 6c 69  |ted two empty li|
00000c30  6e 65 73 20 6f 6e 65 20  61 66 74 65 72 20 61 6e  |nes one after an|
00000c40  6f 74 68 65 72 20 69 20  6e 20 74 68 65 69 72 20  |other i n their |
00000c50  74 65 78 74 2e 44 69 73  63 61 72 64 0d 74 68 65  |text.Discard.the|
00000c60  20 73 65 63 6f 6e 64 20  62 79 74 65 20 69 66 20  | second byte if |
00000c70  69 74 20 49 53 20 64 69  66 66 65 72 65 6e 74 2e  |it IS different.|
00000c80  53 6f 20 74 68 65 72 65  20 69 74 20 69 73 2c 53  |So there it is,S|
00000c90  70 72 6f 77 2e 0d                                 |prow..|
00000c96
P/X.m0
P/X.m1
P/X.m2
P/X.m4
P/X.m5

© Dominic Ford 2021–2024.

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