Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_40.ADF » P/+eugex1

P/+eugex1

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_40.ADF
Filename: P/+eugex1
Read OK: ✔
File size: 19D7 bytes
Load address: 2B0D6576
Exec address: 65677565
Duplicates

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

File contents
HOW EUG DISCS RUN
~~~~~~~~~~~~~~~~~                                                          
by Richard Dimond

Having read Robert Sprowson's notes on word wrapping and having re-written
the assembler for the new coding - now CODE8, I thought that I would
explain how the new menu and coding run the discs.

CODE 8
~~~~~~
I have added some REM lines to the assembler listing and hope these will
help you to understand the coding.  All line numbers refer to the
assembler listng.

There are two calls made to the coding from the menu 'clear' and 'print'. 
These are at &900 and &903 but jump to the start of the routines.

clear (line 300)
~~~~~~~~~~~~~~~~
This routine clears the memory from HIMEM to &4000 - start of a MODE 3
screen.  It first loads the address of HIMEM (at &06,&07) into &70,&71 and
the loop stores a zero into each byte of memory.  This is necessary as the
coding checks for zero at the end of the file.

print (line 410)
~~~~~~~~~~~~~~~~
The flags for printing bold and italic characters are first set to zero.

Then osbyte with A=&87 (*FX135) is used to check the MODE number (line
430) and the modeflag set for the MODE selected.

Line 470 checks if the printer is set and sets style for use in the
sub-routines 'bd' or 'it' if this is set.

Line 530 jumps to the 40 column routine at line 690 if the modeflag is set
to &FF.

If the skip flag is set to &FF, line 630 will print the linefeeds to skip
the perforations when using the printer.

When either highlight is set lines 640/650 set the corresponding flag for
the font change and reset it next time to return to normal print.  The
routine 'bd' or  'it' is called while one of these flags is set.

The line 680 ends the 'prt' routine with a JMP in 80 column printing mode
and an RTS for 40 column - this was necessary to correct the trouble with
the perforation skip routine we had earlier.

40 COLUMN PRINTING
~~~~~~~~~~~~~~~~~~
The routine starts at line 690 and leading spaces are skipped by the loop
at line 710.  The comparison at line 770 checks for the number of
characters printed and, if there are no leading spaces it will remain at
the value of 39.  The value is increased in line 710  for each space
found.

The routine 'test' (line 800) is called if a CR character is found.  This
checks if a CR is needed and calls 'chkchr' at line 1110.  This sets the
carry flag if one of the five special characters is found and this then
branches in the test routine for printing the title and underline
correctly.

I found that titles were printed with an initial space and I have
corrected this by amending line 900.  This checks the print position held
in address &318 and, if this is zero, skips the printing of a space but a
space is printed to separate words.

If a line is completed (when the comparison at line 770 is equal) the
routine 'next' (line 960) is called.

If one of the five characters is found then a jump is made to 'skipchr' in
line 1080.  This increases the index to point to the start of the next
line.  The value of the index Y is added to 'addr' in routine 'incaddr'
line 1040 and a jump made to 'line' for printing the next line.  This
ensures that only 40 of these characters are printed.

If none of these characters is found, chkchr2 is called and this sets the
carry flag if neither a letter nor number is found, the character printed
and osnewl is called at line 1020 and 'addr' increased as above.

If the carry flag is not set, the word is not completed, and the routine
'delete' is called and the characters deleted until a character other than
a letter or number is found.  The index is then pointing to this character
and this is then printed and the word printed on the next line.

Line 1250 resets the carry flag if a ' or / is found to avoid splitting
words containing these characters.

The routines 'bd' and 'it' provide the fonts by getting the definition
with routine 'getdef' (line 1840) and altering the bytes in 'block'.  The
character (CHR$255) is then made up using VDU23 in routine 'makchr' to
make the coding suitable for the Master.  For the printer, the necessary
codes are set in the string variables bold, ital and normal.

THE MENU
~~~~~~~~
The single menu appears as the separate menus but is combined into one by
having the data of the six menus contained in the DATA lines at the end of
the program and perhaps I should explain these first.  Line 900 is for the  
Main menu and lines 910 onwards for the Sub menus.

The data is -  Title, No. of menu options, List of menu options,
Directory, Key string, R%, Filename, No. of files, Program filename, No.
of drawings, Drawing filename, MODE no. of drawings.

The title is read in line 90 and the disc number added to form the string
T$.  This is centralised and printed with the underline together with the
cue and first two lines of the menu.

If L% is greater than 900, line 1100 is skipped and 'R Return to main
menu' is printed for the sub menus.  If L% equals 900, the two lines for
the main menu are printed and line 120 is skipped.

Line 130 prints the dividing line and line 140 is the FOR/NEXT loop to
print the menu options from the DATA lines depending on the value of L%.

Having explained how the menus are printed, I will explain how the two
programs work together.  They both work in two ways depending on whether
Z% is TRUE or FALSE.

If Z% is FALSE, as it should be on first runnung the menu, the program
runs normally, HIMEM is set to &2600, L% equal to 900 and CODE8 loaded and
the Main menu printed.  Should Z% not be zero or FALSE, you may get an
error report.  If this does happen, reset Z% to rero and re-run the menu.

When another menu has been selected, Z% will be TRUE and when RUN the
program will GOTO line 50 and, since the value of L% for the menu selcted
is retained, the selected menu will again be printed.

After printing the menu, the program READs and changes the Directory at
line 150 and the key string B$ for the keys to be used in line 170.

Line 180 Toggles M% for changing the MODE and printing 80 or 40 in the
menu in all menus and line 190 skips the lines for the main menu whem L%
is greater than 900.

Line 200 CHAINs 'PRINT' with Z% still FALSE to run the program normally
(see below) if a%=2 or, if a% equals 3 or 4, these values are reduced by
two and the program goes to line 240 to read the DATA line. This reads the
DATA for the text files in turn until a% is decreased to zero when the
correct DATA is read.  If a% is greater than 4 the value of L% will
calculated to point to the DATA line for the menu selected and the menu
procedure called again to print the new menu.

00000000  0d 48 4f 57 20 45 55 47  20 44 49 53 43 53 20 52  |.HOW EUG DISCS R|
00000010  55 4e 0d 7e 7e 7e 7e 7e  7e 7e 7e 7e 7e 7e 7e 7e  |UN.~~~~~~~~~~~~~|
00000020  7e 7e 7e 7e 20 20 20 20  20 20 20 20 20 20 20 20  |~~~~            |
00000030  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00000050  20 20 20 20 20 20 20 20  20 20 20 20 20 20 0d 62  |              .b|
00000060  79 20 52 69 63 68 61 72  64 20 44 69 6d 6f 6e 64  |y Richard Dimond|
00000070  0d 0d 48 61 76 69 6e 67  20 72 65 61 64 20 52 6f  |..Having read Ro|
00000080  62 65 72 74 20 53 70 72  6f 77 73 6f 6e 27 73 20  |bert Sprowson's |
00000090  6e 6f 74 65 73 20 6f 6e  20 77 6f 72 64 20 77 72  |notes on word wr|
000000a0  61 70 70 69 6e 67 20 61  6e 64 20 68 61 76 69 6e  |apping and havin|
000000b0  67 20 72 65 2d 77 72 69  74 74 65 6e 0d 74 68 65  |g re-written.the|
000000c0  20 61 73 73 65 6d 62 6c  65 72 20 66 6f 72 20 74  | assembler for t|
000000d0  68 65 20 6e 65 77 20 63  6f 64 69 6e 67 20 2d 20  |he new coding - |
000000e0  6e 6f 77 20 43 4f 44 45  38 2c 20 49 20 74 68 6f  |now CODE8, I tho|
000000f0  75 67 68 74 20 74 68 61  74 20 49 20 77 6f 75 6c  |ught that I woul|
00000100  64 0d 65 78 70 6c 61 69  6e 20 68 6f 77 20 74 68  |d.explain how th|
00000110  65 20 6e 65 77 20 6d 65  6e 75 20 61 6e 64 20 63  |e new menu and c|
00000120  6f 64 69 6e 67 20 72 75  6e 20 74 68 65 20 64 69  |oding run the di|
00000130  73 63 73 2e 0d 0d 43 4f  44 45 20 38 0d 7e 7e 7e  |scs...CODE 8.~~~|
00000140  7e 7e 7e 0d 49 20 68 61  76 65 20 61 64 64 65 64  |~~~.I have added|
00000150  20 73 6f 6d 65 20 52 45  4d 20 6c 69 6e 65 73 20  | some REM lines |
00000160  74 6f 20 74 68 65 20 61  73 73 65 6d 62 6c 65 72  |to the assembler|
00000170  20 6c 69 73 74 69 6e 67  20 61 6e 64 20 68 6f 70  | listing and hop|
00000180  65 20 74 68 65 73 65 20  77 69 6c 6c 0d 68 65 6c  |e these will.hel|
00000190  70 20 79 6f 75 20 74 6f  20 75 6e 64 65 72 73 74  |p you to underst|
000001a0  61 6e 64 20 74 68 65 20  63 6f 64 69 6e 67 2e 20  |and the coding. |
000001b0  20 41 6c 6c 20 6c 69 6e  65 20 6e 75 6d 62 65 72  | All line number|
000001c0  73 20 72 65 66 65 72 20  74 6f 20 74 68 65 0d 61  |s refer to the.a|
000001d0  73 73 65 6d 62 6c 65 72  20 6c 69 73 74 6e 67 2e  |ssembler listng.|
000001e0  0d 0d 54 68 65 72 65 20  61 72 65 20 74 77 6f 20  |..There are two |
000001f0  63 61 6c 6c 73 20 6d 61  64 65 20 74 6f 20 74 68  |calls made to th|
00000200  65 20 63 6f 64 69 6e 67  20 66 72 6f 6d 20 74 68  |e coding from th|
00000210  65 20 6d 65 6e 75 20 27  63 6c 65 61 72 27 20 61  |e menu 'clear' a|
00000220  6e 64 20 27 70 72 69 6e  74 27 2e 20 0d 54 68 65  |nd 'print'. .The|
00000230  73 65 20 61 72 65 20 61  74 20 26 39 30 30 20 61  |se are at &900 a|
00000240  6e 64 20 26 39 30 33 20  62 75 74 20 6a 75 6d 70  |nd &903 but jump|
00000250  20 74 6f 20 74 68 65 20  73 74 61 72 74 20 6f 66  | to the start of|
00000260  20 74 68 65 20 72 6f 75  74 69 6e 65 73 2e 0d 0d  | the routines...|
00000270  63 6c 65 61 72 20 28 6c  69 6e 65 20 33 30 30 29  |clear (line 300)|
00000280  0d 7e 7e 7e 7e 7e 7e 7e  7e 7e 7e 7e 7e 7e 7e 7e  |.~~~~~~~~~~~~~~~|
00000290  7e 0d 54 68 69 73 20 72  6f 75 74 69 6e 65 20 63  |~.This routine c|
000002a0  6c 65 61 72 73 20 74 68  65 20 6d 65 6d 6f 72 79  |lears the memory|
000002b0  20 66 72 6f 6d 20 48 49  4d 45 4d 20 74 6f 20 26  | from HIMEM to &|
000002c0  34 30 30 30 20 2d 20 73  74 61 72 74 20 6f 66 20  |4000 - start of |
000002d0  61 20 4d 4f 44 45 20 33  0d 73 63 72 65 65 6e 2e  |a MODE 3.screen.|
000002e0  20 20 49 74 20 66 69 72  73 74 20 6c 6f 61 64 73  |  It first loads|
000002f0  20 74 68 65 20 61 64 64  72 65 73 73 20 6f 66 20  | the address of |
00000300  48 49 4d 45 4d 20 28 61  74 20 26 30 36 2c 26 30  |HIMEM (at &06,&0|
00000310  37 29 20 69 6e 74 6f 20  26 37 30 2c 26 37 31 20  |7) into &70,&71 |
00000320  61 6e 64 0d 74 68 65 20  6c 6f 6f 70 20 73 74 6f  |and.the loop sto|
00000330  72 65 73 20 61 20 7a 65  72 6f 20 69 6e 74 6f 20  |res a zero into |
00000340  65 61 63 68 20 62 79 74  65 20 6f 66 20 6d 65 6d  |each byte of mem|
00000350  6f 72 79 2e 20 20 54 68  69 73 20 69 73 20 6e 65  |ory.  This is ne|
00000360  63 65 73 73 61 72 79 20  61 73 20 74 68 65 0d 63  |cessary as the.c|
00000370  6f 64 69 6e 67 20 63 68  65 63 6b 73 20 66 6f 72  |oding checks for|
00000380  20 7a 65 72 6f 20 61 74  20 74 68 65 20 65 6e 64  | zero at the end|
00000390  20 6f 66 20 74 68 65 20  66 69 6c 65 2e 0d 0d 70  | of the file...p|
000003a0  72 69 6e 74 20 28 6c 69  6e 65 20 34 31 30 29 0d  |rint (line 410).|
000003b0  7e 7e 7e 7e 7e 7e 7e 7e  7e 7e 7e 7e 7e 7e 7e 7e  |~~~~~~~~~~~~~~~~|
000003c0  0d 54 68 65 20 66 6c 61  67 73 20 66 6f 72 20 70  |.The flags for p|
000003d0  72 69 6e 74 69 6e 67 20  62 6f 6c 64 20 61 6e 64  |rinting bold and|
000003e0  20 69 74 61 6c 69 63 20  63 68 61 72 61 63 74 65  | italic characte|
000003f0  72 73 20 61 72 65 20 66  69 72 73 74 20 73 65 74  |rs are first set|
00000400  20 74 6f 20 7a 65 72 6f  2e 0d 0d 54 68 65 6e 20  | to zero...Then |
00000410  6f 73 62 79 74 65 20 77  69 74 68 20 41 3d 26 38  |osbyte with A=&8|
00000420  37 20 28 2a 46 58 31 33  35 29 20 69 73 20 75 73  |7 (*FX135) is us|
00000430  65 64 20 74 6f 20 63 68  65 63 6b 20 74 68 65 20  |ed to check the |
00000440  4d 4f 44 45 20 6e 75 6d  62 65 72 20 28 6c 69 6e  |MODE number (lin|
00000450  65 0d 34 33 30 29 20 61  6e 64 20 74 68 65 20 6d  |e.430) and the m|
00000460  6f 64 65 66 6c 61 67 20  73 65 74 20 66 6f 72 20  |odeflag set for |
00000470  74 68 65 20 4d 4f 44 45  20 73 65 6c 65 63 74 65  |the MODE selecte|
00000480  64 2e 0d 0d 4c 69 6e 65  20 34 37 30 20 63 68 65  |d...Line 470 che|
00000490  63 6b 73 20 69 66 20 74  68 65 20 70 72 69 6e 74  |cks if the print|
000004a0  65 72 20 69 73 20 73 65  74 20 61 6e 64 20 73 65  |er is set and se|
000004b0  74 73 20 73 74 79 6c 65  20 66 6f 72 20 75 73 65  |ts style for use|
000004c0  20 69 6e 20 74 68 65 0d  73 75 62 2d 72 6f 75 74  | in the.sub-rout|
000004d0  69 6e 65 73 20 27 62 64  27 20 6f 72 20 27 69 74  |ines 'bd' or 'it|
000004e0  27 20 69 66 20 74 68 69  73 20 69 73 20 73 65 74  |' if this is set|
000004f0  2e 0d 0d 4c 69 6e 65 20  35 33 30 20 6a 75 6d 70  |...Line 530 jump|
00000500  73 20 74 6f 20 74 68 65  20 34 30 20 63 6f 6c 75  |s to the 40 colu|
00000510  6d 6e 20 72 6f 75 74 69  6e 65 20 61 74 20 6c 69  |mn routine at li|
00000520  6e 65 20 36 39 30 20 69  66 20 74 68 65 20 6d 6f  |ne 690 if the mo|
00000530  64 65 66 6c 61 67 20 69  73 20 73 65 74 0d 74 6f  |deflag is set.to|
00000540  20 26 46 46 2e 0d 0d 49  66 20 74 68 65 20 73 6b  | &FF...If the sk|
00000550  69 70 20 66 6c 61 67 20  69 73 20 73 65 74 20 74  |ip flag is set t|
00000560  6f 20 26 46 46 2c 20 6c  69 6e 65 20 36 33 30 20  |o &FF, line 630 |
00000570  77 69 6c 6c 20 70 72 69  6e 74 20 74 68 65 20 6c  |will print the l|
00000580  69 6e 65 66 65 65 64 73  20 74 6f 20 73 6b 69 70  |inefeeds to skip|
00000590  0d 74 68 65 20 70 65 72  66 6f 72 61 74 69 6f 6e  |.the perforation|
000005a0  73 20 77 68 65 6e 20 75  73 69 6e 67 20 74 68 65  |s when using the|
000005b0  20 70 72 69 6e 74 65 72  2e 0d 0d 57 68 65 6e 20  | printer...When |
000005c0  65 69 74 68 65 72 20 68  69 67 68 6c 69 67 68 74  |either highlight|
000005d0  20 69 73 20 73 65 74 20  6c 69 6e 65 73 20 36 34  | is set lines 64|
000005e0  30 2f 36 35 30 20 73 65  74 20 74 68 65 20 63 6f  |0/650 set the co|
000005f0  72 72 65 73 70 6f 6e 64  69 6e 67 20 66 6c 61 67  |rresponding flag|
00000600  20 66 6f 72 0d 74 68 65  20 66 6f 6e 74 20 63 68  | for.the font ch|
00000610  61 6e 67 65 20 61 6e 64  20 72 65 73 65 74 20 69  |ange and reset i|
00000620  74 20 6e 65 78 74 20 74  69 6d 65 20 74 6f 20 72  |t next time to r|
00000630  65 74 75 72 6e 20 74 6f  20 6e 6f 72 6d 61 6c 20  |eturn to normal |
00000640  70 72 69 6e 74 2e 20 20  54 68 65 0d 72 6f 75 74  |print.  The.rout|
00000650  69 6e 65 20 27 62 64 27  20 6f 72 20 20 27 69 74  |ine 'bd' or  'it|
00000660  27 20 69 73 20 63 61 6c  6c 65 64 20 77 68 69 6c  |' is called whil|
00000670  65 20 6f 6e 65 20 6f 66  20 74 68 65 73 65 20 66  |e one of these f|
00000680  6c 61 67 73 20 69 73 20  73 65 74 2e 0d 0d 54 68  |lags is set...Th|
00000690  65 20 6c 69 6e 65 20 36  38 30 20 65 6e 64 73 20  |e line 680 ends |
000006a0  74 68 65 20 27 70 72 74  27 20 72 6f 75 74 69 6e  |the 'prt' routin|
000006b0  65 20 77 69 74 68 20 61  20 4a 4d 50 20 69 6e 20  |e with a JMP in |
000006c0  38 30 20 63 6f 6c 75 6d  6e 20 70 72 69 6e 74 69  |80 column printi|
000006d0  6e 67 20 6d 6f 64 65 0d  61 6e 64 20 61 6e 20 52  |ng mode.and an R|
000006e0  54 53 20 66 6f 72 20 34  30 20 63 6f 6c 75 6d 6e  |TS for 40 column|
000006f0  20 2d 20 74 68 69 73 20  77 61 73 20 6e 65 63 65  | - this was nece|
00000700  73 73 61 72 79 20 74 6f  20 63 6f 72 72 65 63 74  |ssary to correct|
00000710  20 74 68 65 20 74 72 6f  75 62 6c 65 20 77 69 74  | the trouble wit|
00000720  68 0d 74 68 65 20 70 65  72 66 6f 72 61 74 69 6f  |h.the perforatio|
00000730  6e 20 73 6b 69 70 20 72  6f 75 74 69 6e 65 20 77  |n skip routine w|
00000740  65 20 68 61 64 20 65 61  72 6c 69 65 72 2e 0d 0d  |e had earlier...|
00000750  34 30 20 43 4f 4c 55 4d  4e 20 50 52 49 4e 54 49  |40 COLUMN PRINTI|
00000760  4e 47 0d 7e 7e 7e 7e 7e  7e 7e 7e 7e 7e 7e 7e 7e  |NG.~~~~~~~~~~~~~|
00000770  7e 7e 7e 7e 7e 0d 54 68  65 20 72 6f 75 74 69 6e  |~~~~~.The routin|
00000780  65 20 73 74 61 72 74 73  20 61 74 20 6c 69 6e 65  |e starts at line|
00000790  20 36 39 30 20 61 6e 64  20 6c 65 61 64 69 6e 67  | 690 and leading|
000007a0  20 73 70 61 63 65 73 20  61 72 65 20 73 6b 69 70  | spaces are skip|
000007b0  70 65 64 20 62 79 20 74  68 65 20 6c 6f 6f 70 0d  |ped by the loop.|
000007c0  61 74 20 6c 69 6e 65 20  37 31 30 2e 20 20 54 68  |at line 710.  Th|
000007d0  65 20 63 6f 6d 70 61 72  69 73 6f 6e 20 61 74 20  |e comparison at |
000007e0  6c 69 6e 65 20 37 37 30  20 63 68 65 63 6b 73 20  |line 770 checks |
000007f0  66 6f 72 20 74 68 65 20  6e 75 6d 62 65 72 20 6f  |for the number o|
00000800  66 0d 63 68 61 72 61 63  74 65 72 73 20 70 72 69  |f.characters pri|
00000810  6e 74 65 64 20 61 6e 64  2c 20 69 66 20 74 68 65  |nted and, if the|
00000820  72 65 20 61 72 65 20 6e  6f 20 6c 65 61 64 69 6e  |re are no leadin|
00000830  67 20 73 70 61 63 65 73  20 69 74 20 77 69 6c 6c  |g spaces it will|
00000840  20 72 65 6d 61 69 6e 20  61 74 0d 74 68 65 20 76  | remain at.the v|
00000850  61 6c 75 65 20 6f 66 20  33 39 2e 20 20 54 68 65  |alue of 39.  The|
00000860  20 76 61 6c 75 65 20 69  73 20 69 6e 63 72 65 61  | value is increa|
00000870  73 65 64 20 69 6e 20 6c  69 6e 65 20 37 31 30 20  |sed in line 710 |
00000880  20 66 6f 72 20 65 61 63  68 20 73 70 61 63 65 0d  | for each space.|
00000890  66 6f 75 6e 64 2e 0d 0d  54 68 65 20 72 6f 75 74  |found...The rout|
000008a0  69 6e 65 20 27 74 65 73  74 27 20 28 6c 69 6e 65  |ine 'test' (line|
000008b0  20 38 30 30 29 20 69 73  20 63 61 6c 6c 65 64 20  | 800) is called |
000008c0  69 66 20 61 20 43 52 20  63 68 61 72 61 63 74 65  |if a CR characte|
000008d0  72 20 69 73 20 66 6f 75  6e 64 2e 20 20 54 68 69  |r is found.  Thi|
000008e0  73 0d 63 68 65 63 6b 73  20 69 66 20 61 20 43 52  |s.checks if a CR|
000008f0  20 69 73 20 6e 65 65 64  65 64 20 61 6e 64 20 63  | is needed and c|
00000900  61 6c 6c 73 20 27 63 68  6b 63 68 72 27 20 61 74  |alls 'chkchr' at|
00000910  20 6c 69 6e 65 20 31 31  31 30 2e 20 20 54 68 69  | line 1110.  Thi|
00000920  73 20 73 65 74 73 20 74  68 65 0d 63 61 72 72 79  |s sets the.carry|
00000930  20 66 6c 61 67 20 69 66  20 6f 6e 65 20 6f 66 20  | flag if one of |
00000940  74 68 65 20 66 69 76 65  20 73 70 65 63 69 61 6c  |the five special|
00000950  20 63 68 61 72 61 63 74  65 72 73 20 69 73 20 66  | characters is f|
00000960  6f 75 6e 64 20 61 6e 64  20 74 68 69 73 20 74 68  |ound and this th|
00000970  65 6e 0d 62 72 61 6e 63  68 65 73 20 69 6e 20 74  |en.branches in t|
00000980  68 65 20 74 65 73 74 20  72 6f 75 74 69 6e 65 20  |he test routine |
00000990  66 6f 72 20 70 72 69 6e  74 69 6e 67 20 74 68 65  |for printing the|
000009a0  20 74 69 74 6c 65 20 61  6e 64 20 75 6e 64 65 72  | title and under|
000009b0  6c 69 6e 65 0d 63 6f 72  72 65 63 74 6c 79 2e 0d  |line.correctly..|
000009c0  0d 49 20 66 6f 75 6e 64  20 74 68 61 74 20 74 69  |.I found that ti|
000009d0  74 6c 65 73 20 77 65 72  65 20 70 72 69 6e 74 65  |tles were printe|
000009e0  64 20 77 69 74 68 20 61  6e 20 69 6e 69 74 69 61  |d with an initia|
000009f0  6c 20 73 70 61 63 65 20  61 6e 64 20 49 20 68 61  |l space and I ha|
00000a00  76 65 0d 63 6f 72 72 65  63 74 65 64 20 74 68 69  |ve.corrected thi|
00000a10  73 20 62 79 20 61 6d 65  6e 64 69 6e 67 20 6c 69  |s by amending li|
00000a20  6e 65 20 39 30 30 2e 20  20 54 68 69 73 20 63 68  |ne 900.  This ch|
00000a30  65 63 6b 73 20 74 68 65  20 70 72 69 6e 74 20 70  |ecks the print p|
00000a40  6f 73 69 74 69 6f 6e 20  68 65 6c 64 0d 69 6e 20  |osition held.in |
00000a50  61 64 64 72 65 73 73 20  26 33 31 38 20 61 6e 64  |address &318 and|
00000a60  2c 20 69 66 20 74 68 69  73 20 69 73 20 7a 65 72  |, if this is zer|
00000a70  6f 2c 20 73 6b 69 70 73  20 74 68 65 20 70 72 69  |o, skips the pri|
00000a80  6e 74 69 6e 67 20 6f 66  20 61 20 73 70 61 63 65  |nting of a space|
00000a90  20 62 75 74 20 61 0d 73  70 61 63 65 20 69 73 20  | but a.space is |
00000aa0  70 72 69 6e 74 65 64 20  74 6f 20 73 65 70 61 72  |printed to separ|
00000ab0  61 74 65 20 77 6f 72 64  73 2e 0d 0d 49 66 20 61  |ate words...If a|
00000ac0  20 6c 69 6e 65 20 69 73  20 63 6f 6d 70 6c 65 74  | line is complet|
00000ad0  65 64 20 28 77 68 65 6e  20 74 68 65 20 63 6f 6d  |ed (when the com|
00000ae0  70 61 72 69 73 6f 6e 20  61 74 20 6c 69 6e 65 20  |parison at line |
00000af0  37 37 30 20 69 73 20 65  71 75 61 6c 29 20 74 68  |770 is equal) th|
00000b00  65 0d 72 6f 75 74 69 6e  65 20 27 6e 65 78 74 27  |e.routine 'next'|
00000b10  20 28 6c 69 6e 65 20 39  36 30 29 20 69 73 20 63  | (line 960) is c|
00000b20  61 6c 6c 65 64 2e 0d 0d  49 66 20 6f 6e 65 20 6f  |alled...If one o|
00000b30  66 20 74 68 65 20 66 69  76 65 20 63 68 61 72 61  |f the five chara|
00000b40  63 74 65 72 73 20 69 73  20 66 6f 75 6e 64 20 74  |cters is found t|
00000b50  68 65 6e 20 61 20 6a 75  6d 70 20 69 73 20 6d 61  |hen a jump is ma|
00000b60  64 65 20 74 6f 20 27 73  6b 69 70 63 68 72 27 20  |de to 'skipchr' |
00000b70  69 6e 0d 6c 69 6e 65 20  31 30 38 30 2e 20 20 54  |in.line 1080.  T|
00000b80  68 69 73 20 69 6e 63 72  65 61 73 65 73 20 74 68  |his increases th|
00000b90  65 20 69 6e 64 65 78 20  74 6f 20 70 6f 69 6e 74  |e index to point|
00000ba0  20 74 6f 20 74 68 65 20  73 74 61 72 74 20 6f 66  | to the start of|
00000bb0  20 74 68 65 20 6e 65 78  74 0d 6c 69 6e 65 2e 20  | the next.line. |
00000bc0  20 54 68 65 20 76 61 6c  75 65 20 6f 66 20 74 68  | The value of th|
00000bd0  65 20 69 6e 64 65 78 20  59 20 69 73 20 61 64 64  |e index Y is add|
00000be0  65 64 20 74 6f 20 27 61  64 64 72 27 20 69 6e 20  |ed to 'addr' in |
00000bf0  72 6f 75 74 69 6e 65 20  27 69 6e 63 61 64 64 72  |routine 'incaddr|
00000c00  27 0d 6c 69 6e 65 20 31  30 34 30 20 61 6e 64 20  |'.line 1040 and |
00000c10  61 20 6a 75 6d 70 20 6d  61 64 65 20 74 6f 20 27  |a jump made to '|
00000c20  6c 69 6e 65 27 20 66 6f  72 20 70 72 69 6e 74 69  |line' for printi|
00000c30  6e 67 20 74 68 65 20 6e  65 78 74 20 6c 69 6e 65  |ng the next line|
00000c40  2e 20 20 54 68 69 73 0d  65 6e 73 75 72 65 73 20  |.  This.ensures |
00000c50  74 68 61 74 20 6f 6e 6c  79 20 34 30 20 6f 66 20  |that only 40 of |
00000c60  74 68 65 73 65 20 63 68  61 72 61 63 74 65 72 73  |these characters|
00000c70  20 61 72 65 20 70 72 69  6e 74 65 64 2e 0d 0d 49  | are printed...I|
00000c80  66 20 6e 6f 6e 65 20 6f  66 20 74 68 65 73 65 20  |f none of these |
00000c90  63 68 61 72 61 63 74 65  72 73 20 69 73 20 66 6f  |characters is fo|
00000ca0  75 6e 64 2c 20 63 68 6b  63 68 72 32 20 69 73 20  |und, chkchr2 is |
00000cb0  63 61 6c 6c 65 64 20 61  6e 64 20 74 68 69 73 20  |called and this |
00000cc0  73 65 74 73 20 74 68 65  0d 63 61 72 72 79 20 66  |sets the.carry f|
00000cd0  6c 61 67 20 69 66 20 6e  65 69 74 68 65 72 20 61  |lag if neither a|
00000ce0  20 6c 65 74 74 65 72 20  6e 6f 72 20 6e 75 6d 62  | letter nor numb|
00000cf0  65 72 20 69 73 20 66 6f  75 6e 64 2c 20 74 68 65  |er is found, the|
00000d00  20 63 68 61 72 61 63 74  65 72 20 70 72 69 6e 74  | character print|
00000d10  65 64 0d 61 6e 64 20 6f  73 6e 65 77 6c 20 69 73  |ed.and osnewl is|
00000d20  20 63 61 6c 6c 65 64 20  61 74 20 6c 69 6e 65 20  | called at line |
00000d30  31 30 32 30 20 61 6e 64  20 27 61 64 64 72 27 20  |1020 and 'addr' |
00000d40  69 6e 63 72 65 61 73 65  64 20 61 73 20 61 62 6f  |increased as abo|
00000d50  76 65 2e 0d 0d 49 66 20  74 68 65 20 63 61 72 72  |ve...If the carr|
00000d60  79 20 66 6c 61 67 20 69  73 20 6e 6f 74 20 73 65  |y flag is not se|
00000d70  74 2c 20 74 68 65 20 77  6f 72 64 20 69 73 20 6e  |t, the word is n|
00000d80  6f 74 20 63 6f 6d 70 6c  65 74 65 64 2c 20 61 6e  |ot completed, an|
00000d90  64 20 74 68 65 20 72 6f  75 74 69 6e 65 0d 27 64  |d the routine.'d|
00000da0  65 6c 65 74 65 27 20 69  73 20 63 61 6c 6c 65 64  |elete' is called|
00000db0  20 61 6e 64 20 74 68 65  20 63 68 61 72 61 63 74  | and the charact|
00000dc0  65 72 73 20 64 65 6c 65  74 65 64 20 75 6e 74 69  |ers deleted unti|
00000dd0  6c 20 61 20 63 68 61 72  61 63 74 65 72 20 6f 74  |l a character ot|
00000de0  68 65 72 20 74 68 61 6e  0d 61 20 6c 65 74 74 65  |her than.a lette|
00000df0  72 20 6f 72 20 6e 75 6d  62 65 72 20 69 73 20 66  |r or number is f|
00000e00  6f 75 6e 64 2e 20 20 54  68 65 20 69 6e 64 65 78  |ound.  The index|
00000e10  20 69 73 20 74 68 65 6e  20 70 6f 69 6e 74 69 6e  | is then pointin|
00000e20  67 20 74 6f 20 74 68 69  73 20 63 68 61 72 61 63  |g to this charac|
00000e30  74 65 72 0d 61 6e 64 20  74 68 69 73 20 69 73 20  |ter.and this is |
00000e40  74 68 65 6e 20 70 72 69  6e 74 65 64 20 61 6e 64  |then printed and|
00000e50  20 74 68 65 20 77 6f 72  64 20 70 72 69 6e 74 65  | the word printe|
00000e60  64 20 6f 6e 20 74 68 65  20 6e 65 78 74 20 6c 69  |d on the next li|
00000e70  6e 65 2e 0d 0d 4c 69 6e  65 20 31 32 35 30 20 72  |ne...Line 1250 r|
00000e80  65 73 65 74 73 20 74 68  65 20 63 61 72 72 79 20  |esets the carry |
00000e90  66 6c 61 67 20 69 66 20  61 20 27 20 6f 72 20 2f  |flag if a ' or /|
00000ea0  20 69 73 20 66 6f 75 6e  64 20 74 6f 20 61 76 6f  | is found to avo|
00000eb0  69 64 20 73 70 6c 69 74  74 69 6e 67 0d 77 6f 72  |id splitting.wor|
00000ec0  64 73 20 63 6f 6e 74 61  69 6e 69 6e 67 20 74 68  |ds containing th|
00000ed0  65 73 65 20 63 68 61 72  61 63 74 65 72 73 2e 0d  |ese characters..|
00000ee0  0d 54 68 65 20 72 6f 75  74 69 6e 65 73 20 27 62  |.The routines 'b|
00000ef0  64 27 20 61 6e 64 20 27  69 74 27 20 70 72 6f 76  |d' and 'it' prov|
00000f00  69 64 65 20 74 68 65 20  66 6f 6e 74 73 20 62 79  |ide the fonts by|
00000f10  20 67 65 74 74 69 6e 67  20 74 68 65 20 64 65 66  | getting the def|
00000f20  69 6e 69 74 69 6f 6e 0d  77 69 74 68 20 72 6f 75  |inition.with rou|
00000f30  74 69 6e 65 20 27 67 65  74 64 65 66 27 20 28 6c  |tine 'getdef' (l|
00000f40  69 6e 65 20 31 38 34 30  29 20 61 6e 64 20 61 6c  |ine 1840) and al|
00000f50  74 65 72 69 6e 67 20 74  68 65 20 62 79 74 65 73  |tering the bytes|
00000f60  20 69 6e 20 27 62 6c 6f  63 6b 27 2e 20 20 54 68  | in 'block'.  Th|
00000f70  65 0d 63 68 61 72 61 63  74 65 72 20 28 43 48 52  |e.character (CHR|
00000f80  24 32 35 35 29 20 69 73  20 74 68 65 6e 20 6d 61  |$255) is then ma|
00000f90  64 65 20 75 70 20 75 73  69 6e 67 20 56 44 55 32  |de up using VDU2|
00000fa0  33 20 69 6e 20 72 6f 75  74 69 6e 65 20 27 6d 61  |3 in routine 'ma|
00000fb0  6b 63 68 72 27 20 74 6f  0d 6d 61 6b 65 20 74 68  |kchr' to.make th|
00000fc0  65 20 63 6f 64 69 6e 67  20 73 75 69 74 61 62 6c  |e coding suitabl|
00000fd0  65 20 66 6f 72 20 74 68  65 20 4d 61 73 74 65 72  |e for the Master|
00000fe0  2e 20 20 46 6f 72 20 74  68 65 20 70 72 69 6e 74  |.  For the print|
00000ff0  65 72 2c 20 74 68 65 20  6e 65 63 65 73 73 61 72  |er, the necessar|
00001000  79 0d 63 6f 64 65 73 20  61 72 65 20 73 65 74 20  |y.codes are set |
00001010  69 6e 20 74 68 65 20 73  74 72 69 6e 67 20 76 61  |in the string va|
00001020  72 69 61 62 6c 65 73 20  62 6f 6c 64 2c 20 69 74  |riables bold, it|
00001030  61 6c 20 61 6e 64 20 6e  6f 72 6d 61 6c 2e 0d 0d  |al and normal...|
00001040  54 48 45 20 4d 45 4e 55  0d 7e 7e 7e 7e 7e 7e 7e  |THE MENU.~~~~~~~|
00001050  7e 0d 54 68 65 20 73 69  6e 67 6c 65 20 6d 65 6e  |~.The single men|
00001060  75 20 61 70 70 65 61 72  73 20 61 73 20 74 68 65  |u appears as the|
00001070  20 73 65 70 61 72 61 74  65 20 6d 65 6e 75 73 20  | separate menus |
00001080  62 75 74 20 69 73 20 63  6f 6d 62 69 6e 65 64 20  |but is combined |
00001090  69 6e 74 6f 20 6f 6e 65  20 62 79 0d 68 61 76 69  |into one by.havi|
000010a0  6e 67 20 74 68 65 20 64  61 74 61 20 6f 66 20 74  |ng the data of t|
000010b0  68 65 20 73 69 78 20 6d  65 6e 75 73 20 63 6f 6e  |he six menus con|
000010c0  74 61 69 6e 65 64 20 69  6e 20 74 68 65 20 44 41  |tained in the DA|
000010d0  54 41 20 6c 69 6e 65 73  20 61 74 20 74 68 65 20  |TA lines at the |
000010e0  65 6e 64 20 6f 66 0d 74  68 65 20 70 72 6f 67 72  |end of.the progr|
000010f0  61 6d 20 61 6e 64 20 70  65 72 68 61 70 73 20 49  |am and perhaps I|
00001100  20 73 68 6f 75 6c 64 20  65 78 70 6c 61 69 6e 20  | should explain |
00001110  74 68 65 73 65 20 66 69  72 73 74 2e 20 20 4c 69  |these first.  Li|
00001120  6e 65 20 39 30 30 20 69  73 20 66 6f 72 20 74 68  |ne 900 is for th|
00001130  65 20 20 0d 4d 61 69 6e  20 6d 65 6e 75 20 61 6e  |e  .Main menu an|
00001140  64 20 6c 69 6e 65 73 20  39 31 30 20 6f 6e 77 61  |d lines 910 onwa|
00001150  72 64 73 20 66 6f 72 20  74 68 65 20 53 75 62 20  |rds for the Sub |
00001160  6d 65 6e 75 73 2e 0d 0d  54 68 65 20 64 61 74 61  |menus...The data|
00001170  20 69 73 20 2d 20 20 54  69 74 6c 65 2c 20 4e 6f  | is -  Title, No|
00001180  2e 20 6f 66 20 6d 65 6e  75 20 6f 70 74 69 6f 6e  |. of menu option|
00001190  73 2c 20 4c 69 73 74 20  6f 66 20 6d 65 6e 75 20  |s, List of menu |
000011a0  6f 70 74 69 6f 6e 73 2c  0d 44 69 72 65 63 74 6f  |options,.Directo|
000011b0  72 79 2c 20 4b 65 79 20  73 74 72 69 6e 67 2c 20  |ry, Key string, |
000011c0  52 25 2c 20 46 69 6c 65  6e 61 6d 65 2c 20 4e 6f  |R%, Filename, No|
000011d0  2e 20 6f 66 20 66 69 6c  65 73 2c 20 50 72 6f 67  |. of files, Prog|
000011e0  72 61 6d 20 66 69 6c 65  6e 61 6d 65 2c 20 4e 6f  |ram filename, No|
000011f0  2e 0d 6f 66 20 64 72 61  77 69 6e 67 73 2c 20 44  |..of drawings, D|
00001200  72 61 77 69 6e 67 20 66  69 6c 65 6e 61 6d 65 2c  |rawing filename,|
00001210  20 4d 4f 44 45 20 6e 6f  2e 20 6f 66 20 64 72 61  | MODE no. of dra|
00001220  77 69 6e 67 73 2e 0d 0d  54 68 65 20 74 69 74 6c  |wings...The titl|
00001230  65 20 69 73 20 72 65 61  64 20 69 6e 20 6c 69 6e  |e is read in lin|
00001240  65 20 39 30 20 61 6e 64  20 74 68 65 20 64 69 73  |e 90 and the dis|
00001250  63 20 6e 75 6d 62 65 72  20 61 64 64 65 64 20 74  |c number added t|
00001260  6f 20 66 6f 72 6d 20 74  68 65 20 73 74 72 69 6e  |o form the strin|
00001270  67 0d 54 24 2e 20 20 54  68 69 73 20 69 73 20 63  |g.T$.  This is c|
00001280  65 6e 74 72 61 6c 69 73  65 64 20 61 6e 64 20 70  |entralised and p|
00001290  72 69 6e 74 65 64 20 77  69 74 68 20 74 68 65 20  |rinted with the |
000012a0  75 6e 64 65 72 6c 69 6e  65 20 74 6f 67 65 74 68  |underline togeth|
000012b0  65 72 20 77 69 74 68 20  74 68 65 0d 63 75 65 20  |er with the.cue |
000012c0  61 6e 64 20 66 69 72 73  74 20 74 77 6f 20 6c 69  |and first two li|
000012d0  6e 65 73 20 6f 66 20 74  68 65 20 6d 65 6e 75 2e  |nes of the menu.|
000012e0  0d 0d 49 66 20 4c 25 20  69 73 20 67 72 65 61 74  |..If L% is great|
000012f0  65 72 20 74 68 61 6e 20  39 30 30 2c 20 6c 69 6e  |er than 900, lin|
00001300  65 20 31 31 30 30 20 69  73 20 73 6b 69 70 70 65  |e 1100 is skippe|
00001310  64 20 61 6e 64 20 27 52  20 52 65 74 75 72 6e 20  |d and 'R Return |
00001320  74 6f 20 6d 61 69 6e 0d  6d 65 6e 75 27 20 69 73  |to main.menu' is|
00001330  20 70 72 69 6e 74 65 64  20 66 6f 72 20 74 68 65  | printed for the|
00001340  20 73 75 62 20 6d 65 6e  75 73 2e 20 20 49 66 20  | sub menus.  If |
00001350  4c 25 20 65 71 75 61 6c  73 20 39 30 30 2c 20 74  |L% equals 900, t|
00001360  68 65 20 74 77 6f 20 6c  69 6e 65 73 20 66 6f 72  |he two lines for|
00001370  0d 74 68 65 20 6d 61 69  6e 20 6d 65 6e 75 20 61  |.the main menu a|
00001380  72 65 20 70 72 69 6e 74  65 64 20 61 6e 64 20 6c  |re printed and l|
00001390  69 6e 65 20 31 32 30 20  69 73 20 73 6b 69 70 70  |ine 120 is skipp|
000013a0  65 64 2e 0d 0d 4c 69 6e  65 20 31 33 30 20 70 72  |ed...Line 130 pr|
000013b0  69 6e 74 73 20 74 68 65  20 64 69 76 69 64 69 6e  |ints the dividin|
000013c0  67 20 6c 69 6e 65 20 61  6e 64 20 6c 69 6e 65 20  |g line and line |
000013d0  31 34 30 20 69 73 20 74  68 65 20 46 4f 52 2f 4e  |140 is the FOR/N|
000013e0  45 58 54 20 6c 6f 6f 70  20 74 6f 0d 70 72 69 6e  |EXT loop to.prin|
000013f0  74 20 74 68 65 20 6d 65  6e 75 20 6f 70 74 69 6f  |t the menu optio|
00001400  6e 73 20 66 72 6f 6d 20  74 68 65 20 44 41 54 41  |ns from the DATA|
00001410  20 6c 69 6e 65 73 20 64  65 70 65 6e 64 69 6e 67  | lines depending|
00001420  20 6f 6e 20 74 68 65 20  76 61 6c 75 65 20 6f 66  | on the value of|
00001430  20 4c 25 2e 0d 0d 48 61  76 69 6e 67 20 65 78 70  | L%...Having exp|
00001440  6c 61 69 6e 65 64 20 68  6f 77 20 74 68 65 20 6d  |lained how the m|
00001450  65 6e 75 73 20 61 72 65  20 70 72 69 6e 74 65 64  |enus are printed|
00001460  2c 20 49 20 77 69 6c 6c  20 65 78 70 6c 61 69 6e  |, I will explain|
00001470  20 68 6f 77 20 74 68 65  20 74 77 6f 0d 70 72 6f  | how the two.pro|
00001480  67 72 61 6d 73 20 77 6f  72 6b 20 74 6f 67 65 74  |grams work toget|
00001490  68 65 72 2e 20 20 54 68  65 79 20 62 6f 74 68 20  |her.  They both |
000014a0  77 6f 72 6b 20 69 6e 20  74 77 6f 20 77 61 79 73  |work in two ways|
000014b0  20 64 65 70 65 6e 64 69  6e 67 20 6f 6e 20 77 68  | depending on wh|
000014c0  65 74 68 65 72 0d 5a 25  20 69 73 20 54 52 55 45  |ether.Z% is TRUE|
000014d0  20 6f 72 20 46 41 4c 53  45 2e 0d 0d 49 66 20 5a  | or FALSE...If Z|
000014e0  25 20 69 73 20 46 41 4c  53 45 2c 20 61 73 20 69  |% is FALSE, as i|
000014f0  74 20 73 68 6f 75 6c 64  20 62 65 20 6f 6e 20 66  |t should be on f|
00001500  69 72 73 74 20 72 75 6e  6e 75 6e 67 20 74 68 65  |irst runnung the|
00001510  20 6d 65 6e 75 2c 20 74  68 65 20 70 72 6f 67 72  | menu, the progr|
00001520  61 6d 0d 72 75 6e 73 20  6e 6f 72 6d 61 6c 6c 79  |am.runs normally|
00001530  2c 20 48 49 4d 45 4d 20  69 73 20 73 65 74 20 74  |, HIMEM is set t|
00001540  6f 20 26 32 36 30 30 2c  20 4c 25 20 65 71 75 61  |o &2600, L% equa|
00001550  6c 20 74 6f 20 39 30 30  20 61 6e 64 20 43 4f 44  |l to 900 and COD|
00001560  45 38 20 6c 6f 61 64 65  64 20 61 6e 64 0d 74 68  |E8 loaded and.th|
00001570  65 20 4d 61 69 6e 20 6d  65 6e 75 20 70 72 69 6e  |e Main menu prin|
00001580  74 65 64 2e 20 20 53 68  6f 75 6c 64 20 5a 25 20  |ted.  Should Z% |
00001590  6e 6f 74 20 62 65 20 7a  65 72 6f 20 6f 72 20 46  |not be zero or F|
000015a0  41 4c 53 45 2c 20 79 6f  75 20 6d 61 79 20 67 65  |ALSE, you may ge|
000015b0  74 20 61 6e 0d 65 72 72  6f 72 20 72 65 70 6f 72  |t an.error repor|
000015c0  74 2e 20 20 49 66 20 74  68 69 73 20 64 6f 65 73  |t.  If this does|
000015d0  20 68 61 70 70 65 6e 2c  20 72 65 73 65 74 20 5a  | happen, reset Z|
000015e0  25 20 74 6f 20 72 65 72  6f 20 61 6e 64 20 72 65  |% to rero and re|
000015f0  2d 72 75 6e 20 74 68 65  20 6d 65 6e 75 2e 0d 0d  |-run the menu...|
00001600  57 68 65 6e 20 61 6e 6f  74 68 65 72 20 6d 65 6e  |When another men|
00001610  75 20 68 61 73 20 62 65  65 6e 20 73 65 6c 65 63  |u has been selec|
00001620  74 65 64 2c 20 5a 25 20  77 69 6c 6c 20 62 65 20  |ted, Z% will be |
00001630  54 52 55 45 20 61 6e 64  20 77 68 65 6e 20 52 55  |TRUE and when RU|
00001640  4e 20 74 68 65 0d 70 72  6f 67 72 61 6d 20 77 69  |N the.program wi|
00001650  6c 6c 20 47 4f 54 4f 20  6c 69 6e 65 20 35 30 20  |ll GOTO line 50 |
00001660  61 6e 64 2c 20 73 69 6e  63 65 20 74 68 65 20 76  |and, since the v|
00001670  61 6c 75 65 20 6f 66 20  4c 25 20 66 6f 72 20 74  |alue of L% for t|
00001680  68 65 20 6d 65 6e 75 20  73 65 6c 63 74 65 64 0d  |he menu selcted.|
00001690  69 73 20 72 65 74 61 69  6e 65 64 2c 20 74 68 65  |is retained, the|
000016a0  20 73 65 6c 65 63 74 65  64 20 6d 65 6e 75 20 77  | selected menu w|
000016b0  69 6c 6c 20 61 67 61 69  6e 20 62 65 20 70 72 69  |ill again be pri|
000016c0  6e 74 65 64 2e 0d 0d 41  66 74 65 72 20 70 72 69  |nted...After pri|
000016d0  6e 74 69 6e 67 20 74 68  65 20 6d 65 6e 75 2c 20  |nting the menu, |
000016e0  74 68 65 20 70 72 6f 67  72 61 6d 20 52 45 41 44  |the program READ|
000016f0  73 20 61 6e 64 20 63 68  61 6e 67 65 73 20 74 68  |s and changes th|
00001700  65 20 44 69 72 65 63 74  6f 72 79 20 61 74 0d 6c  |e Directory at.l|
00001710  69 6e 65 20 31 35 30 20  61 6e 64 20 74 68 65 20  |ine 150 and the |
00001720  6b 65 79 20 73 74 72 69  6e 67 20 42 24 20 66 6f  |key string B$ fo|
00001730  72 20 74 68 65 20 6b 65  79 73 20 74 6f 20 62 65  |r the keys to be|
00001740  20 75 73 65 64 20 69 6e  20 6c 69 6e 65 20 31 37  | used in line 17|
00001750  30 2e 0d 0d 4c 69 6e 65  20 31 38 30 20 54 6f 67  |0...Line 180 Tog|
00001760  67 6c 65 73 20 4d 25 20  66 6f 72 20 63 68 61 6e  |gles M% for chan|
00001770  67 69 6e 67 20 74 68 65  20 4d 4f 44 45 20 61 6e  |ging the MODE an|
00001780  64 20 70 72 69 6e 74 69  6e 67 20 38 30 20 6f 72  |d printing 80 or|
00001790  20 34 30 20 69 6e 20 74  68 65 0d 6d 65 6e 75 20  | 40 in the.menu |
000017a0  69 6e 20 61 6c 6c 20 6d  65 6e 75 73 20 61 6e 64  |in all menus and|
000017b0  20 6c 69 6e 65 20 31 39  30 20 73 6b 69 70 73 20  | line 190 skips |
000017c0  74 68 65 20 6c 69 6e 65  73 20 66 6f 72 20 74 68  |the lines for th|
000017d0  65 20 6d 61 69 6e 20 6d  65 6e 75 20 77 68 65 6d  |e main menu whem|
000017e0  20 4c 25 0d 69 73 20 67  72 65 61 74 65 72 20 74  | L%.is greater t|
000017f0  68 61 6e 20 39 30 30 2e  0d 0d 4c 69 6e 65 20 32  |han 900...Line 2|
00001800  30 30 20 43 48 41 49 4e  73 20 27 50 52 49 4e 54  |00 CHAINs 'PRINT|
00001810  27 20 77 69 74 68 20 5a  25 20 73 74 69 6c 6c 20  |' with Z% still |
00001820  46 41 4c 53 45 20 74 6f  20 72 75 6e 20 74 68 65  |FALSE to run the|
00001830  20 70 72 6f 67 72 61 6d  20 6e 6f 72 6d 61 6c 6c  | program normall|
00001840  79 0d 28 73 65 65 20 62  65 6c 6f 77 29 20 69 66  |y.(see below) if|
00001850  20 61 25 3d 32 20 6f 72  2c 20 69 66 20 61 25 20  | a%=2 or, if a% |
00001860  65 71 75 61 6c 73 20 33  20 6f 72 20 34 2c 20 74  |equals 3 or 4, t|
00001870  68 65 73 65 20 76 61 6c  75 65 73 20 61 72 65 20  |hese values are |
00001880  72 65 64 75 63 65 64 20  62 79 0d 74 77 6f 20 61  |reduced by.two a|
00001890  6e 64 20 74 68 65 20 70  72 6f 67 72 61 6d 20 67  |nd the program g|
000018a0  6f 65 73 20 74 6f 20 6c  69 6e 65 20 32 34 30 20  |oes to line 240 |
000018b0  74 6f 20 72 65 61 64 20  74 68 65 20 44 41 54 41  |to read the DATA|
000018c0  20 6c 69 6e 65 2e 20 54  68 69 73 20 72 65 61 64  | line. This read|
000018d0  73 20 74 68 65 0d 44 41  54 41 20 66 6f 72 20 74  |s the.DATA for t|
000018e0  68 65 20 74 65 78 74 20  66 69 6c 65 73 20 69 6e  |he text files in|
000018f0  20 74 75 72 6e 20 75 6e  74 69 6c 20 61 25 20 69  | turn until a% i|
00001900  73 20 64 65 63 72 65 61  73 65 64 20 74 6f 20 7a  |s decreased to z|
00001910  65 72 6f 20 77 68 65 6e  20 74 68 65 0d 63 6f 72  |ero when the.cor|
00001920  72 65 63 74 20 44 41 54  41 20 69 73 20 72 65 61  |rect DATA is rea|
00001930  64 2e 20 20 49 66 20 61  25 20 69 73 20 67 72 65  |d.  If a% is gre|
00001940  61 74 65 72 20 74 68 61  6e 20 34 20 74 68 65 20  |ater than 4 the |
00001950  76 61 6c 75 65 20 6f 66  20 4c 25 20 77 69 6c 6c  |value of L% will|
00001960  0d 63 61 6c 63 75 6c 61  74 65 64 20 74 6f 20 70  |.calculated to p|
00001970  6f 69 6e 74 20 74 6f 20  74 68 65 20 44 41 54 41  |oint to the DATA|
00001980  20 6c 69 6e 65 20 66 6f  72 20 74 68 65 20 6d 65  | line for the me|
00001990  6e 75 20 73 65 6c 65 63  74 65 64 20 61 6e 64 20  |nu selected and |
000019a0  74 68 65 20 6d 65 6e 75  0d 70 72 6f 63 65 64 75  |the menu.procedu|
000019b0  72 65 20 63 61 6c 6c 65  64 20 61 67 61 69 6e 20  |re called again |
000019c0  74 6f 20 70 72 69 6e 74  20 74 68 65 20 6e 65 77  |to print the new|
000019d0  20 6d 65 6e 75 2e 0d                              | menu..|
000019d7
P/+eugex1.m0
P/+eugex1.m1
P/+eugex1.m2
P/+eugex1.m4
P/+eugex1.m5

© Dominic Ford 2021–2024.

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