Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_27.ADF » P/+cod5_2
P/+cod5_2
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_27.ADF |
| Filename: | P/+cod5_2 |
| Read OK: | ✔ |
| File size: | 17DB bytes |
| Load address: | D204556 |
| Exec address: | 0101 |
File contents
On checking the coding, I realised that, while a CR character was replaced
with a space, it still caused a CR where this was not wanted resulting in
some shorter lines. This can be corrected with a small change to line
1100. This line should be altered to end -
....LDA#&20:JMPspace
This makes the check as if the byte had been a space.
The routine 'prt' prints the characters normally if neither of the
highlight flags is set. The first two instructions of this routine ensure
that a CR character is printed normally and not sent to the highlight
routines.
If one of the highlight flags is set, the program junps to the
corresponding subroutine. Also, if the printer flag is set, 'style+1' is
loaded with the high byte of the address of 'bold' (line 850).
These routines were taken from a program in Electron User (Mar 1990) which
gave extra fonts for the Electron. A short additional routine has been
added as explained to make the coding work on the Master.
The routines are similar except for the character definitions.
For printing to screen, the character definition is split in the usual way
using OSWORD with A=10 and the 8 bytes loaded to &CF7 (block+1) using the
routine 'getdef' lines 1130 - 1160.
For bold printing, each byte is loaded into A register and ORed with the
byte in block and then stored in the block. This has the effect of
doubling the width of the vertical parts of the character.
For italics, the bits of the upper two bytes are shifted right and those
of the lower two bytes are shifted left to give a slanted character.
For the Electron, this is sufficient to set CHR$255 to the new font but
for the Master, I have added the routine 'makchar' lines 761 -767 to set
up the character using VDU23.
Each of the two routines first saves the values of the X and Y registers
by PUSHing them on to the stack.
If the print flag is set the low byte of the address of the data for the
selected character is loaded into A register and the printer routine
called. This sets up the printer for the selected character. The routine
first compares the value in 'style' and if equal the routine ends as the
character is already set. If this is not set, the value in A is stored in
'style'. The 'prtloop' then sets up the printer by a VDU1 command
followed by the character read from the data for each of 4 paases through
the loop. If the flag is not set, the printer routine is skipped.
The character is then set up as described above and further check on the
print flag made. If this is not set, A registe is loaded with the new
character number (&FF) and the program jumps to 'newchend', and prints the
character to screen and jumps to 'ntprt'. The values of X and Y pulled
from the stack, and then returns to print loop at 'inc' for the next
character.
If the print flag had been set after the new character had been set up,
the program would jump to 'prtrenab'. This sends the normal character
number to the printer followed by character &FF to the screen.
The printer is then returned to normal printing so that, if the highlight
is turned off and the routine not called again, the printer is reset.
THE MENUS
~~~~~~~~~
Having explained the coding, I thought a brief explanation of the menus
would be of interest. These have had various small mods at different
times with the result that there are some oddities in both programs and I
might tidy them up sometime!!
After the variables are set in line 20, the values of 'lines' and
'skiplines' are set in line 30. These values may be altered to suit your
printer.
The code is then loaded and line 50 sets MODE4 (VDU22,6) and HIMEM to
&2600. All MODE changes must be given by VDU22 so that HIMEM is not
changed. Line 60 changes the background colour and turns the flashing
cursor off. Line 70 resets the three variables to the normal start
values and line 90 sets the four flags used as described later.
Line 90 draws the border line and the PROCmenu is called to print the
menu. This is the variable part of programs and is put at the end of the
program for convenience.
The title is entered as a string variable so as to centralise it at line
450 and line 460 prints the underline correctly underneath. The menu is
printed in the usual way and the following line makes the program wait for
a key press.
The lines which are selected by a number first set the flag R=TRUE if a
program is to be run, then sets f$ to the text filename without suffix
number. In future this will include a prefix +. This identifies the text
files for 'print all files' routine.
This is followed by the varible fl% which indicates the number of files of
the same filename. The PROCtext is then called and, if flag D is FALSE,
on completion of the printing, f% will equal fl%, and the procedure ends
and the prpgram returns to display the menu.
Flag D is set when a diagram is to be shown and PROCpict is called when
the text has been printed.
The line which does the printing is line 140. This first sets MODE 6 with
VDU22,6 and increases f% (initially 0). After calling &900, the clear
routine, the file is loaded. The OSCLI command is equivalent of for
example - *LOAD LETT1 2600.
MODE 3 or 6 is selected by the flag M% which the sets the value of m% and
the print routine called at &9AA.
If more one file of the same filename is to be printed, the program loops
back and f% increased again to load the next file
The PROCpict operates in a similar manner. The three parameters are -
P$ - the filename, n% - the MODE number and d% the number of files
If flag P is TRUE the screen dump program, UCODE, is called and the cues
again omiitted.
On pressing T the flag M% is toggled TRUE or FALSE to set MODE 3 or 6 and
also the value 40 or 80 in the menu line.
Key R returns to the root directory and loads the main menu.
**************************************************************************
00000000 0d 4f 6e 20 63 68 65 63 6b 69 6e 67 20 74 68 65 |.On checking the| 00000010 20 63 6f 64 69 6e 67 2c 20 49 20 72 65 61 6c 69 | coding, I reali| 00000020 73 65 64 20 74 68 61 74 2c 20 77 68 69 6c 65 20 |sed that, while | 00000030 61 20 43 52 20 63 68 61 72 61 63 74 65 72 20 77 |a CR character w| 00000040 61 73 20 72 65 70 6c 61 63 65 64 0d 77 69 74 68 |as replaced.with| 00000050 20 61 20 73 70 61 63 65 2c 20 69 74 20 73 74 69 | a space, it sti| 00000060 6c 6c 1a 20 63 61 75 73 65 64 20 61 20 43 52 20 |ll. caused a CR | 00000070 77 68 65 72 65 20 74 68 69 73 20 77 61 73 20 6e |where this was n| 00000080 6f 74 20 77 61 6e 74 65 64 20 72 65 73 75 6c 74 |ot wanted result| 00000090 69 6e 67 20 69 6e 0d 73 6f 6d 65 20 73 68 6f 72 |ing in.some shor| 000000a0 74 65 72 20 6c 69 6e 65 73 2e 20 20 54 68 69 73 |ter lines. This| 000000b0 20 63 61 6e 20 62 65 1a 20 63 6f 72 72 65 63 74 | can be. correct| 000000c0 65 64 1a 20 77 69 74 68 1a 20 61 1a 20 73 6d 61 |ed. with. a. sma| 000000d0 6c 6c 20 63 68 61 6e 67 65 20 74 6f 20 6c 69 6e |ll change to lin| 000000e0 65 0d 31 31 30 30 2e 20 20 54 68 69 73 20 6c 69 |e.1100. This li| 000000f0 6e 65 20 73 68 6f 75 6c 64 20 62 65 20 61 6c 74 |ne should be alt| 00000100 65 72 65 64 20 74 6f 20 65 6e 64 20 2d 0d 0d 20 |ered to end -.. | 00000110 20 20 20 20 20 20 20 20 2e 2e 2e 2e 4c 44 41 23 | ....LDA#| 00000120 26 32 30 3a 4a 4d 50 73 70 61 63 65 0d 0d 54 68 |&20:JMPspace..Th| 00000130 69 73 20 6d 61 6b 65 73 20 74 68 65 20 63 68 65 |is makes the che| 00000140 63 6b 20 61 73 20 69 66 20 74 68 65 20 62 79 74 |ck as if the byt| 00000150 65 20 68 61 64 20 62 65 65 6e 20 61 20 73 70 61 |e had been a spa| 00000160 63 65 2e 0d 0d 54 68 65 1a 20 72 6f 75 74 69 6e |ce...The. routin| 00000170 65 1a 20 27 70 72 74 27 20 70 72 69 6e 74 73 20 |e. 'prt' prints | 00000180 74 68 65 1a 20 63 68 61 72 61 63 74 65 72 73 1a |the. characters.| 00000190 20 6e 6f 72 6d 61 6c 6c 79 1a 20 69 66 1a 20 6e | normally. if. n| 000001a0 65 69 74 68 65 72 1a 20 6f 66 1a 20 74 68 65 0d |either. of. the.| 000001b0 68 69 67 68 6c 69 67 68 74 20 66 6c 61 67 73 20 |highlight flags | 000001c0 69 73 20 73 65 74 2e 20 20 54 68 65 20 66 69 72 |is set. The fir| 000001d0 73 74 20 74 77 6f 20 69 6e 73 74 72 75 63 74 69 |st two instructi| 000001e0 6f 6e 73 20 6f 66 20 74 68 69 73 20 72 6f 75 74 |ons of this rout| 000001f0 69 6e 65 20 65 6e 73 75 72 65 0d 74 68 61 74 20 |ine ensure.that | 00000200 61 20 43 52 1a 20 63 68 61 72 61 63 74 65 72 1a |a CR. character.| 00000210 20 69 73 1a 20 70 72 69 6e 74 65 64 1a 20 6e 6f | is. printed. no| 00000220 72 6d 61 6c 6c 79 1a 20 61 6e 64 20 6e 6f 74 20 |rmally. and not | 00000230 73 65 6e 74 20 74 6f 20 74 68 65 20 68 69 67 68 |sent to the high| 00000240 6c 69 67 68 74 0d 72 6f 75 74 69 6e 65 73 2e 0d |light.routines..| 00000250 0d 49 66 1a 20 6f 6e 65 1a 20 6f 66 1a 20 74 68 |.If. one. of. th| 00000260 65 1a 20 68 69 67 68 6c 69 67 68 74 1a 20 66 6c |e. highlight. fl| 00000270 61 67 73 1a 20 69 73 1a 20 73 65 74 2c 1a 20 74 |ags. is. set,. t| 00000280 68 65 1a 20 70 72 6f 67 72 61 6d 1a 20 6a 75 6e |he. program. jun| 00000290 70 73 1a 20 74 6f 1a 20 74 68 65 0d 63 6f 72 72 |ps. to. the.corr| 000002a0 65 73 70 6f 6e 64 69 6e 67 20 73 75 62 72 6f 75 |esponding subrou| 000002b0 74 69 6e 65 2e 20 20 41 6c 73 6f 2c 20 69 66 20 |tine. Also, if | 000002c0 74 68 65 1a 20 70 72 69 6e 74 65 72 20 66 6c 61 |the. printer fla| 000002d0 67 20 69 73 20 73 65 74 2c 20 27 73 74 79 6c 65 |g is set, 'style| 000002e0 2b 31 27 20 69 73 0d 6c 6f 61 64 65 64 20 77 69 |+1' is.loaded wi| 000002f0 74 68 20 74 68 65 20 68 69 67 68 20 62 79 74 65 |th the high byte| 00000300 20 6f 66 20 74 68 65 20 61 64 64 72 65 73 73 20 | of the address | 00000310 6f 66 20 27 62 6f 6c 64 27 20 28 6c 69 6e 65 20 |of 'bold' (line | 00000320 38 35 30 29 2e 0d 20 20 20 0d 54 68 65 73 65 20 |850).. .These | 00000330 72 6f 75 74 69 6e 65 73 20 77 65 72 65 20 74 61 |routines were ta| 00000340 6b 65 6e 20 66 72 6f 6d 20 61 20 70 72 6f 67 72 |ken from a progr| 00000350 61 6d 20 69 6e 20 45 6c 65 63 74 72 6f 6e 20 55 |am in Electron U| 00000360 73 65 72 20 28 4d 61 72 20 31 39 39 30 29 20 77 |ser (Mar 1990) w| 00000370 68 69 63 68 0d 67 61 76 65 1a 20 65 78 74 72 61 |hich.gave. extra| 00000380 1a 20 66 6f 6e 74 73 1a 20 66 6f 72 20 74 68 65 |. fonts. for the| 00000390 20 45 6c 65 63 74 72 6f 6e 2e 20 20 41 20 73 68 | Electron. A sh| 000003a0 6f 72 74 20 61 64 64 69 74 69 6f 6e 61 6c 20 72 |ort additional r| 000003b0 6f 75 74 69 6e 65 20 68 61 73 20 62 65 65 6e 0d |outine has been.| 000003c0 61 64 64 65 64 20 61 73 20 65 78 70 6c 61 69 6e |added as explain| 000003d0 65 64 20 74 6f 20 6d 61 6b 65 20 74 68 65 20 63 |ed to make the c| 000003e0 6f 64 69 6e 67 20 77 6f 72 6b 20 6f 6e 20 74 68 |oding work on th| 000003f0 65 20 4d 61 73 74 65 72 2e 0d 0d 54 68 65 20 72 |e Master...The r| 00000400 6f 75 74 69 6e 65 73 20 61 72 65 20 73 69 6d 69 |outines are simi| 00000410 6c 61 72 20 65 78 63 65 70 74 20 66 6f 72 20 74 |lar except for t| 00000420 68 65 20 63 68 61 72 61 63 74 65 72 20 64 65 66 |he character def| 00000430 69 6e 69 74 69 6f 6e 73 2e 20 0d 0d 46 6f 72 20 |initions. ..For | 00000440 70 72 69 6e 74 69 6e 67 20 74 6f 20 73 63 72 65 |printing to scre| 00000450 65 6e 2c 20 74 68 65 20 63 68 61 72 61 63 74 65 |en, the characte| 00000460 72 20 64 65 66 69 6e 69 74 69 6f 6e 20 69 73 20 |r definition is | 00000470 73 70 6c 69 74 20 69 6e 20 74 68 65 20 75 73 75 |split in the usu| 00000480 61 6c 20 77 61 79 0d 75 73 69 6e 67 1a 20 4f 53 |al way.using. OS| 00000490 57 4f 52 44 20 77 69 74 68 20 41 3d 31 30 20 61 |WORD with A=10 a| 000004a0 6e 64 20 74 68 65 20 38 20 62 79 74 65 73 20 6c |nd the 8 bytes l| 000004b0 6f 61 64 65 64 20 74 6f 20 26 43 46 37 20 28 62 |oaded to &CF7 (b| 000004c0 6c 6f 63 6b 2b 31 29 20 75 73 69 6e 67 20 74 68 |lock+1) using th| 000004d0 65 0d 72 6f 75 74 69 6e 65 20 27 67 65 74 64 65 |e.routine 'getde| 000004e0 66 27 20 6c 69 6e 65 73 20 31 31 33 30 20 2d 20 |f' lines 1130 - | 000004f0 31 31 36 30 2e 0d 0d 46 6f 72 20 62 6f 6c 64 1a |1160...For bold.| 00000500 20 70 72 69 6e 74 69 6e 67 2c 1a 20 65 61 63 68 | printing,. each| 00000510 20 62 79 74 65 20 69 73 20 6c 6f 61 64 65 64 20 | byte is loaded | 00000520 69 6e 74 6f 20 41 20 72 65 67 69 73 74 65 72 20 |into A register | 00000530 61 6e 64 20 4f 52 65 64 20 77 69 74 68 20 74 68 |and ORed with th| 00000540 65 0d 62 79 74 65 20 69 6e 20 62 6c 6f 63 6b 20 |e.byte in block | 00000550 61 6e 64 1a 20 74 68 65 6e 1a 20 73 74 6f 72 65 |and. then. store| 00000560 64 1a 20 69 6e 1a 20 74 68 65 1a 20 62 6c 6f 63 |d. in. the. bloc| 00000570 6b 2e 1a 20 54 68 69 73 1a 20 68 61 73 1a 20 74 |k.. This. has. t| 00000580 68 65 20 65 66 66 65 63 74 20 6f 66 0d 64 6f 75 |he effect of.dou| 00000590 62 6c 69 6e 67 20 74 68 65 20 77 69 64 74 68 20 |bling the width | 000005a0 6f 66 20 74 68 65 20 76 65 72 74 69 63 61 6c 20 |of the vertical | 000005b0 70 61 72 74 73 20 6f 66 20 74 68 65 20 63 68 61 |parts of the cha| 000005c0 72 61 63 74 65 72 2e 0d 0d 46 6f 72 20 69 74 61 |racter...For ita| 000005d0 6c 69 63 73 2c 20 74 68 65 20 62 69 74 73 1a 20 |lics, the bits. | 000005e0 6f 66 1a 20 74 68 65 20 75 70 70 65 72 20 74 77 |of. the upper tw| 000005f0 6f 20 62 79 74 65 73 20 61 72 65 20 73 68 69 66 |o bytes are shif| 00000600 74 65 64 20 72 69 67 68 74 20 61 6e 64 20 74 68 |ted right and th| 00000610 6f 73 65 0d 6f 66 20 74 68 65 20 6c 6f 77 65 72 |ose.of the lower| 00000620 20 74 77 6f 20 62 79 74 65 73 20 61 72 65 20 73 | two bytes are s| 00000630 68 69 66 74 65 64 20 6c 65 66 74 20 74 6f 20 67 |hifted left to g| 00000640 69 76 65 20 61 20 73 6c 61 6e 74 65 64 20 63 68 |ive a slanted ch| 00000650 61 72 61 63 74 65 72 2e 0d 0d 46 6f 72 20 74 68 |aracter...For th| 00000660 65 20 45 6c 65 63 74 72 6f 6e 2c 20 74 68 69 73 |e Electron, this| 00000670 20 69 73 20 73 75 66 66 69 63 69 65 6e 74 20 74 | is sufficient t| 00000680 6f 1a 20 73 65 74 1a 20 43 48 52 24 32 35 35 1a |o. set. CHR$255.| 00000690 20 74 6f 20 74 68 65 20 6e 65 77 20 66 6f 6e 74 | to the new font| 000006a0 20 62 75 74 0d 66 6f 72 20 74 68 65 20 4d 61 73 | but.for the Mas| 000006b0 74 65 72 2c 20 49 20 68 61 76 65 20 61 64 64 65 |ter, I have adde| 000006c0 64 20 74 68 65 20 72 6f 75 74 69 6e 65 20 27 6d |d the routine 'm| 000006d0 61 6b 63 68 61 72 27 20 6c 69 6e 65 73 1a 20 37 |akchar' lines. 7| 000006e0 36 31 1a 20 2d 37 36 37 20 74 6f 20 73 65 74 0d |61. -767 to set.| 000006f0 75 70 20 74 68 65 20 63 68 61 72 61 63 74 65 72 |up the character| 00000700 20 75 73 69 6e 67 20 56 44 55 32 33 2e 0d 0d 45 | using VDU23...E| 00000710 61 63 68 20 6f 66 20 74 68 65 20 74 77 6f 20 72 |ach of the two r| 00000720 6f 75 74 69 6e 65 73 20 66 69 72 73 74 20 73 61 |outines first sa| 00000730 76 65 73 20 74 68 65 20 76 61 6c 75 65 73 20 6f |ves the values o| 00000740 66 20 74 68 65 20 58 1a 20 61 6e 64 1a 20 59 20 |f the X. and. Y | 00000750 72 65 67 69 73 74 65 72 73 0d 62 79 20 50 55 53 |registers.by PUS| 00000760 48 69 6e 67 20 74 68 65 6d 20 6f 6e 20 74 6f 20 |Hing them on to | 00000770 74 68 65 20 73 74 61 63 6b 2e 0d 0d 49 66 20 74 |the stack...If t| 00000780 68 65 20 70 72 69 6e 74 20 66 6c 61 67 20 69 73 |he print flag is| 00000790 1a 20 73 65 74 1a 20 74 68 65 20 6c 6f 77 20 62 |. set. the low b| 000007a0 79 74 65 20 6f 66 20 74 68 65 20 61 64 64 72 65 |yte of the addre| 000007b0 73 73 20 6f 66 20 74 68 65 20 64 61 74 61 20 66 |ss of the data f| 000007c0 6f 72 20 74 68 65 0d 73 65 6c 65 63 74 65 64 1a |or the.selected.| 000007d0 20 63 68 61 72 61 63 74 65 72 1a 20 69 73 20 6c | character. is l| 000007e0 6f 61 64 65 64 20 69 6e 74 6f 20 41 20 72 65 67 |oaded into A reg| 000007f0 69 73 74 65 72 1a 20 61 6e 64 1a 20 74 68 65 1a |ister. and. the.| 00000800 20 70 72 69 6e 74 65 72 1a 20 72 6f 75 74 69 6e | printer. routin| 00000810 65 0d 63 61 6c 6c 65 64 2e 20 20 54 68 69 73 20 |e.called. This | 00000820 73 65 74 73 20 75 70 20 74 68 65 20 70 72 69 6e |sets up the prin| 00000830 74 65 72 20 66 6f 72 20 74 68 65 20 73 65 6c 65 |ter for the sele| 00000840 63 74 65 64 20 63 68 61 72 61 63 74 65 72 2e 20 |cted character. | 00000850 20 54 68 65 20 72 6f 75 74 69 6e 65 0d 66 69 72 | The routine.fir| 00000860 73 74 20 63 6f 6d 70 61 72 65 73 20 74 68 65 1a |st compares the.| 00000870 20 76 61 6c 75 65 1a 20 69 6e 20 27 73 74 79 6c | value. in 'styl| 00000880 65 27 20 61 6e 64 20 69 66 20 65 71 75 61 6c 20 |e' and if equal | 00000890 74 68 65 20 72 6f 75 74 69 6e 65 20 65 6e 64 73 |the routine ends| 000008a0 20 61 73 20 74 68 65 0d 63 68 61 72 61 63 74 65 | as the.characte| 000008b0 72 20 69 73 20 61 6c 72 65 61 64 79 20 73 65 74 |r is already set| 000008c0 2e 20 20 49 66 20 74 68 69 73 20 69 73 20 6e 6f |. If this is no| 000008d0 74 20 73 65 74 2c 20 74 68 65 20 76 61 6c 75 65 |t set, the value| 000008e0 20 69 6e 20 41 20 69 73 20 73 74 6f 72 65 64 20 | in A is stored | 000008f0 69 6e 0d 27 73 74 79 6c 65 27 2e 1a 20 20 54 68 |in.'style'.. Th| 00000900 65 20 27 70 72 74 6c 6f 6f 70 27 20 74 68 65 6e |e 'prtloop' then| 00000910 20 73 65 74 73 1a 20 75 70 1a 20 74 68 65 1a 20 | sets. up. the. | 00000920 70 72 69 6e 74 65 72 1a 20 62 79 1a 20 61 1a 20 |printer. by. a. | 00000930 56 44 55 31 1a 20 63 6f 6d 6d 61 6e 64 0d 66 6f |VDU1. command.fo| 00000940 6c 6c 6f 77 65 64 20 62 79 20 74 68 65 20 63 68 |llowed by the ch| 00000950 61 72 61 63 74 65 72 20 72 65 61 64 1a 20 66 72 |aracter read. fr| 00000960 6f 6d 20 74 68 65 20 64 61 74 61 20 66 6f 72 20 |om the data for | 00000970 65 61 63 68 20 6f 66 20 34 20 70 61 61 73 65 73 |each of 4 paases| 00000980 20 74 68 72 6f 75 67 68 0d 74 68 65 20 6c 6f 6f | through.the loo| 00000990 70 2e 20 20 49 66 20 74 68 65 20 66 6c 61 67 20 |p. If the flag | 000009a0 69 73 20 6e 6f 74 20 73 65 74 2c 20 74 68 65 20 |is not set, the | 000009b0 70 72 69 6e 74 65 72 20 72 6f 75 74 69 6e 65 20 |printer routine | 000009c0 69 73 20 73 6b 69 70 70 65 64 2e 20 0d 0d 54 68 |is skipped. ..Th| 000009d0 65 20 63 68 61 72 61 63 74 65 72 20 69 73 1a 20 |e character is. | 000009e0 74 68 65 6e 1a 20 73 65 74 20 75 70 20 61 73 20 |then. set up as | 000009f0 64 65 73 63 72 69 62 65 64 20 61 62 6f 76 65 20 |described above | 00000a00 61 6e 64 20 66 75 72 74 68 65 72 20 63 68 65 63 |and further chec| 00000a10 6b 20 6f 6e 20 74 68 65 0d 70 72 69 6e 74 1a 20 |k on the.print. | 00000a20 66 6c 61 67 1a 20 6d 61 64 65 2e 1a 20 20 49 66 |flag. made.. If| 00000a30 1a 20 74 68 69 73 20 69 73 20 6e 6f 74 20 73 65 |. this is not se| 00000a40 74 2c 20 41 20 72 65 67 69 73 74 65 20 69 73 20 |t, A registe is | 00000a50 6c 6f 61 64 65 64 20 77 69 74 68 20 74 68 65 20 |loaded with the | 00000a60 6e 65 77 0d 63 68 61 72 61 63 74 65 72 20 6e 75 |new.character nu| 00000a70 6d 62 65 72 20 28 26 46 46 29 20 61 6e 64 20 74 |mber (&FF) and t| 00000a80 68 65 20 70 72 6f 67 72 61 6d 20 6a 75 6d 70 73 |he program jumps| 00000a90 20 74 6f 20 27 6e 65 77 63 68 65 6e 64 27 2c 20 | to 'newchend', | 00000aa0 61 6e 64 20 70 72 69 6e 74 73 20 74 68 65 0d 63 |and prints the.c| 00000ab0 68 61 72 61 63 74 65 72 20 74 6f 20 73 63 72 65 |haracter to scre| 00000ac0 65 6e 20 61 6e 64 20 6a 75 6d 70 73 1a 20 74 6f |en and jumps. to| 00000ad0 1a 20 27 6e 74 70 72 74 27 2e 1a 20 20 54 68 65 |. 'ntprt'.. The| 00000ae0 20 76 61 6c 75 65 73 20 6f 66 20 58 20 61 6e 64 | values of X and| 00000af0 20 59 20 70 75 6c 6c 65 64 0d 66 72 6f 6d 20 74 | Y pulled.from t| 00000b00 68 65 20 73 74 61 63 6b 2c 20 61 6e 64 20 74 68 |he stack, and th| 00000b10 65 6e 20 72 65 74 75 72 6e 73 20 74 6f 20 70 72 |en returns to pr| 00000b20 69 6e 74 1a 20 6c 6f 6f 70 1a 20 61 74 1a 20 27 |int. loop. at. '| 00000b30 69 6e 63 27 1a 20 66 6f 72 1a 20 74 68 65 1a 20 |inc'. for. the. | 00000b40 6e 65 78 74 0d 63 68 61 72 61 63 74 65 72 2e 0d |next.character..| 00000b50 20 20 20 20 20 20 20 20 20 20 20 20 20 0d 49 66 | .If| 00000b60 20 74 68 65 20 70 72 69 6e 74 20 66 6c 61 67 20 | the print flag | 00000b70 68 61 64 1a 20 62 65 65 6e 1a 20 73 65 74 1a 20 |had. been. set. | 00000b80 61 66 74 65 72 20 74 68 65 20 6e 65 77 20 63 68 |after the new ch| 00000b90 61 72 61 63 74 65 72 20 68 61 64 20 62 65 65 6e |aracter had been| 00000ba0 20 73 65 74 20 75 70 2c 0d 74 68 65 1a 20 70 72 | set up,.the. pr| 00000bb0 6f 67 72 61 6d 20 77 6f 75 6c 64 20 6a 75 6d 70 |ogram would jump| 00000bc0 20 74 6f 20 27 70 72 74 72 65 6e 61 62 27 2e 20 | to 'prtrenab'. | 00000bd0 20 54 68 69 73 20 73 65 6e 64 73 1a 20 74 68 65 | This sends. the| 00000be0 1a 20 6e 6f 72 6d 61 6c 1a 20 63 68 61 72 61 63 |. normal. charac| 00000bf0 74 65 72 0d 6e 75 6d 62 65 72 20 74 6f 20 74 68 |ter.number to th| 00000c00 65 20 70 72 69 6e 74 65 72 20 66 6f 6c 6c 6f 77 |e printer follow| 00000c10 65 64 20 62 79 20 63 68 61 72 61 63 74 65 72 20 |ed by character | 00000c20 26 46 46 20 74 6f 20 74 68 65 20 73 63 72 65 65 |&FF to the scree| 00000c30 6e 2e 0d 0d 54 68 65 20 70 72 69 6e 74 65 72 20 |n...The printer | 00000c40 69 73 20 74 68 65 6e 20 72 65 74 75 72 6e 65 64 |is then returned| 00000c50 20 74 6f 20 6e 6f 72 6d 61 6c 20 70 72 69 6e 74 | to normal print| 00000c60 69 6e 67 20 73 6f 1a 20 74 68 61 74 2c 20 69 66 |ing so. that, if| 00000c70 20 74 68 65 20 68 69 67 68 6c 69 67 68 74 0d 69 | the highlight.i| 00000c80 73 20 74 75 72 6e 65 64 20 6f 66 66 20 61 6e 64 |s turned off and| 00000c90 20 74 68 65 20 72 6f 75 74 69 6e 65 20 6e 6f 74 | the routine not| 00000ca0 20 63 61 6c 6c 65 64 20 61 67 61 69 6e 2c 20 74 | called again, t| 00000cb0 68 65 20 70 72 69 6e 74 65 72 20 69 73 20 72 65 |he printer is re| 00000cc0 73 65 74 2e 0d 0d 54 48 45 20 4d 45 4e 55 53 0d |set...THE MENUS.| 00000cd0 7e 7e 7e 7e 7e 7e 7e 7e 7e 0d 48 61 76 69 6e 67 |~~~~~~~~~.Having| 00000ce0 1a 20 65 78 70 6c 61 69 6e 65 64 1a 20 74 68 65 |. explained. the| 00000cf0 1a 20 63 6f 64 69 6e 67 2c 20 49 20 74 68 6f 75 |. coding, I thou| 00000d00 67 68 74 20 61 20 62 72 69 65 66 20 65 78 70 6c |ght a brief expl| 00000d10 61 6e 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 6d |anation of the m| 00000d20 65 6e 75 73 0d 77 6f 75 6c 64 20 62 65 20 6f 66 |enus.would be of| 00000d30 20 69 6e 74 65 72 65 73 74 2e 1a 20 20 54 68 65 | interest.. The| 00000d40 73 65 1a 20 68 61 76 65 1a 20 68 61 64 1a 20 76 |se. have. had. v| 00000d50 61 72 69 6f 75 73 1a 20 73 6d 61 6c 6c 20 6d 6f |arious. small mo| 00000d60 64 73 20 61 74 20 64 69 66 66 65 72 65 6e 74 0d |ds at different.| 00000d70 74 69 6d 65 73 20 77 69 74 68 20 74 68 65 20 72 |times with the r| 00000d80 65 73 75 6c 74 20 74 68 61 74 20 74 68 65 72 65 |esult that there| 00000d90 20 61 72 65 20 73 6f 6d 65 20 6f 64 64 69 74 69 | are some odditi| 00000da0 65 73 1a 20 69 6e 20 62 6f 74 68 20 70 72 6f 67 |es. in both prog| 00000db0 72 61 6d 73 20 61 6e 64 20 49 0d 6d 69 67 68 74 |rams and I.might| 00000dc0 20 74 69 64 79 20 74 68 65 6d 20 75 70 20 73 6f | tidy them up so| 00000dd0 6d 65 74 69 6d 65 21 21 0d 0d 41 66 74 65 72 1a |metime!!..After.| 00000de0 20 74 68 65 1a 20 76 61 72 69 61 62 6c 65 73 1a | the. variables.| 00000df0 20 61 72 65 1a 20 73 65 74 1a 20 69 6e 1a 20 6c | are. set. in. l| 00000e00 69 6e 65 20 32 30 2c 20 74 68 65 20 76 61 6c 75 |ine 20, the valu| 00000e10 65 73 1a 20 6f 66 1a 20 27 6c 69 6e 65 73 27 1a |es. of. 'lines'.| 00000e20 20 61 6e 64 0d 27 73 6b 69 70 6c 69 6e 65 73 27 | and.'skiplines'| 00000e30 20 61 72 65 20 73 65 74 20 69 6e 20 6c 69 6e 65 | are set in line| 00000e40 20 33 30 2e 20 20 20 54 68 65 73 65 20 76 61 6c | 30. These val| 00000e50 75 65 73 20 6d 61 79 20 62 65 20 61 6c 74 65 72 |ues may be alter| 00000e60 65 64 20 74 6f 20 73 75 69 74 20 79 6f 75 72 0d |ed to suit your.| 00000e70 70 72 69 6e 74 65 72 2e 0d 0d 54 68 65 20 63 6f |printer...The co| 00000e80 64 65 20 69 73 20 74 68 65 6e 20 6c 6f 61 64 65 |de is then loade| 00000e90 64 20 61 6e 64 20 6c 69 6e 65 1a 20 35 30 20 73 |d and line. 50 s| 00000ea0 65 74 73 1a 20 4d 4f 44 45 34 1a 20 28 56 44 55 |ets. MODE4. (VDU| 00000eb0 32 32 2c 36 29 1a 20 61 6e 64 1a 20 48 49 4d 45 |22,6). and. HIME| 00000ec0 4d 20 74 6f 0d 26 32 36 30 30 2e 1a 20 20 41 6c |M to.&2600.. Al| 00000ed0 6c 1a 20 4d 4f 44 45 1a 20 63 68 61 6e 67 65 73 |l. MODE. changes| 00000ee0 1a 20 6d 75 73 74 20 62 65 20 67 69 76 65 6e 20 |. must be given | 00000ef0 62 79 20 56 44 55 32 32 20 73 6f 20 74 68 61 74 |by VDU22 so that| 00000f00 20 48 49 4d 45 4d 1a 20 69 73 1a 20 6e 6f 74 0d | HIMEM. is. not.| 00000f10 63 68 61 6e 67 65 64 2e 20 20 4c 69 6e 65 20 36 |changed. Line 6| 00000f20 30 20 63 68 61 6e 67 65 73 20 74 68 65 1a 20 62 |0 changes the. b| 00000f30 61 63 6b 67 72 6f 75 6e 64 1a 20 63 6f 6c 6f 75 |ackground. colou| 00000f40 72 1a 20 61 6e 64 1a 20 74 75 72 6e 73 20 74 68 |r. and. turns th| 00000f50 65 20 66 6c 61 73 68 69 6e 67 0d 63 75 72 73 6f |e flashing.curso| 00000f60 72 1a 20 6f 66 66 2e 1a 20 20 4c 69 6e 65 1a 20 |r. off.. Line. | 00000f70 37 30 1a 20 72 65 73 65 74 73 20 74 68 65 20 74 |70. resets the t| 00000f80 68 72 65 65 20 76 61 72 69 61 62 6c 65 73 20 74 |hree variables t| 00000f90 6f 1a 20 74 68 65 1a 20 6e 6f 72 6d 61 6c 1a 20 |o. the. normal. | 00000fa0 73 74 61 72 74 0d 76 61 6c 75 65 73 20 61 6e 64 |start.values and| 00000fb0 20 6c 69 6e 65 20 39 30 20 73 65 74 73 20 74 68 | line 90 sets th| 00000fc0 65 20 66 6f 75 72 20 66 6c 61 67 73 20 75 73 65 |e four flags use| 00000fd0 64 20 61 73 20 64 65 73 63 72 69 62 65 64 20 6c |d as described l| 00000fe0 61 74 65 72 2e 0d 0d 4c 69 6e 65 20 39 30 20 64 |ater...Line 90 d| 00000ff0 72 61 77 73 20 74 68 65 20 62 6f 72 64 65 72 1a |raws the border.| 00001000 20 6c 69 6e 65 1a 20 61 6e 64 1a 20 74 68 65 1a | line. and. the.| 00001010 20 50 52 4f 43 6d 65 6e 75 1a 20 69 73 20 63 61 | PROCmenu. is ca| 00001020 6c 6c 65 64 20 74 6f 20 70 72 69 6e 74 20 74 68 |lled to print th| 00001030 65 0d 6d 65 6e 75 2e 20 20 54 68 69 73 20 69 73 |e.menu. This is| 00001040 20 74 68 65 20 76 61 72 69 61 62 6c 65 20 70 61 | the variable pa| 00001050 72 74 20 6f 66 20 70 72 6f 67 72 61 6d 73 20 61 |rt of programs a| 00001060 6e 64 20 69 73 20 70 75 74 1a 20 61 74 20 74 68 |nd is put. at th| 00001070 65 20 65 6e 64 20 6f 66 20 74 68 65 0d 70 72 6f |e end of the.pro| 00001080 67 72 61 6d 20 66 6f 72 20 63 6f 6e 76 65 6e 69 |gram for conveni| 00001090 65 6e 63 65 2e 0d 0d 54 68 65 20 74 69 74 6c 65 |ence...The title| 000010a0 20 69 73 20 65 6e 74 65 72 65 64 20 61 73 1a 20 | is entered as. | 000010b0 61 1a 20 73 74 72 69 6e 67 20 76 61 72 69 61 62 |a. string variab| 000010c0 6c 65 20 73 6f 20 61 73 20 74 6f 20 63 65 6e 74 |le so as to cent| 000010d0 72 61 6c 69 73 65 20 69 74 20 61 74 20 6c 69 6e |ralise it at lin| 000010e0 65 0d 34 35 30 20 61 6e 64 20 6c 69 6e 65 20 34 |e.450 and line 4| 000010f0 36 30 20 70 72 69 6e 74 73 20 74 68 65 20 75 6e |60 prints the un| 00001100 64 65 72 6c 69 6e 65 1a 20 63 6f 72 72 65 63 74 |derline. correct| 00001110 6c 79 1a 20 75 6e 64 65 72 6e 65 61 74 68 2e 20 |ly. underneath. | 00001120 20 54 68 65 20 6d 65 6e 75 20 69 73 0d 70 72 69 | The menu is.pri| 00001130 6e 74 65 64 20 69 6e 20 74 68 65 20 75 73 75 61 |nted in the usua| 00001140 6c 20 77 61 79 20 61 6e 64 20 74 68 65 20 66 6f |l way and the fo| 00001150 6c 6c 6f 77 69 6e 67 20 6c 69 6e 65 20 6d 61 6b |llowing line mak| 00001160 65 73 20 74 68 65 20 70 72 6f 67 72 61 6d 20 77 |es the program w| 00001170 61 69 74 20 66 6f 72 0d 61 20 6b 65 79 20 70 72 |ait for.a key pr| 00001180 65 73 73 2e 0d 0d 54 68 65 20 6c 69 6e 65 73 20 |ess...The lines | 00001190 77 68 69 63 68 20 61 72 65 20 73 65 6c 65 63 74 |which are select| 000011a0 65 64 20 62 79 20 61 20 6e 75 6d 62 65 72 20 66 |ed by a number f| 000011b0 69 72 73 74 20 73 65 74 1a 20 74 68 65 1a 20 66 |irst set. the. f| 000011c0 6c 61 67 1a 20 52 3d 54 52 55 45 20 69 66 20 61 |lag. R=TRUE if a| 000011d0 0d 70 72 6f 67 72 61 6d 1a 20 69 73 1a 20 74 6f |.program. is. to| 000011e0 1a 20 62 65 1a 20 72 75 6e 2c 20 74 68 65 6e 20 |. be. run, then | 000011f0 73 65 74 73 20 66 24 20 74 6f 20 74 68 65 20 74 |sets f$ to the t| 00001200 65 78 74 20 66 69 6c 65 6e 61 6d 65 20 77 69 74 |ext filename wit| 00001210 68 6f 75 74 20 73 75 66 66 69 78 0d 6e 75 6d 62 |hout suffix.numb| 00001220 65 72 2e 20 20 49 6e 20 66 75 74 75 72 65 20 74 |er. In future t| 00001230 68 69 73 20 77 69 6c 6c 20 69 6e 63 6c 75 64 65 |his will include| 00001240 20 61 20 70 72 65 66 69 78 20 2b 2e 20 20 54 68 | a prefix +. Th| 00001250 69 73 20 69 64 65 6e 74 69 66 69 65 73 20 74 68 |is identifies th| 00001260 65 20 74 65 78 74 0d 66 69 6c 65 73 20 66 6f 72 |e text.files for| 00001270 20 27 70 72 69 6e 74 20 61 6c 6c 20 66 69 6c 65 | 'print all file| 00001280 73 27 20 72 6f 75 74 69 6e 65 2e 0d 0d 54 68 69 |s' routine...Thi| 00001290 73 20 69 73 20 66 6f 6c 6c 6f 77 65 64 20 62 79 |s is followed by| 000012a0 20 74 68 65 20 76 61 72 69 62 6c 65 20 66 6c 25 | the varible fl%| 000012b0 20 77 68 69 63 68 20 69 6e 64 69 63 61 74 65 73 | which indicates| 000012c0 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 66 | the number of f| 000012d0 69 6c 65 73 20 6f 66 0d 74 68 65 20 73 61 6d 65 |iles of.the same| 000012e0 20 66 69 6c 65 6e 61 6d 65 2e 20 20 54 68 65 20 | filename. The | 000012f0 50 52 4f 43 74 65 78 74 1a 20 69 73 1a 20 74 68 |PROCtext. is. th| 00001300 65 6e 20 63 61 6c 6c 65 64 20 61 6e 64 2c 20 69 |en called and, i| 00001310 66 20 66 6c 61 67 20 44 20 69 73 20 46 41 4c 53 |f flag D is FALS| 00001320 45 2c 0d 6f 6e 20 63 6f 6d 70 6c 65 74 69 6f 6e |E,.on completion| 00001330 20 6f 66 20 74 68 65 20 70 72 69 6e 74 69 6e 67 | of the printing| 00001340 2c 20 66 25 20 77 69 6c 6c 1a 20 65 71 75 61 6c |, f% will. equal| 00001350 1a 20 66 6c 25 2c 20 61 6e 64 20 74 68 65 20 70 |. fl%, and the p| 00001360 72 6f 63 65 64 75 72 65 20 65 6e 64 73 0d 61 6e |rocedure ends.an| 00001370 64 20 74 68 65 20 70 72 70 67 72 61 6d 20 72 65 |d the prpgram re| 00001380 74 75 72 6e 73 20 74 6f 20 64 69 73 70 6c 61 79 |turns to display| 00001390 20 74 68 65 20 6d 65 6e 75 2e 0d 0d 46 6c 61 67 | the menu...Flag| 000013a0 20 44 20 69 73 20 73 65 74 20 77 68 65 6e 20 61 | D is set when a| 000013b0 20 64 69 61 67 72 61 6d 20 69 73 20 74 6f 1a 20 | diagram is to. | 000013c0 62 65 1a 20 73 68 6f 77 6e 1a 20 61 6e 64 20 50 |be. shown. and P| 000013d0 52 4f 43 70 69 63 74 20 69 73 20 63 61 6c 6c 65 |ROCpict is calle| 000013e0 64 20 77 68 65 6e 0d 74 68 65 20 74 65 78 74 20 |d when.the text | 000013f0 68 61 73 20 62 65 65 6e 20 70 72 69 6e 74 65 64 |has been printed| 00001400 2e 0d 0d 54 68 65 20 6c 69 6e 65 20 77 68 69 63 |...The line whic| 00001410 68 20 64 6f 65 73 20 74 68 65 20 70 72 69 6e 74 |h does the print| 00001420 69 6e 67 20 69 73 20 6c 69 6e 65 20 31 34 30 2e |ing is line 140.| 00001430 20 20 54 68 69 73 20 66 69 72 73 74 20 73 65 74 | This first set| 00001440 73 20 4d 4f 44 45 20 36 20 77 69 74 68 0d 56 44 |s MODE 6 with.VD| 00001450 55 32 32 2c 36 1a 20 61 6e 64 1a 20 69 6e 63 72 |U22,6. and. incr| 00001460 65 61 73 65 73 1a 20 66 25 1a 20 28 69 6e 69 74 |eases. f%. (init| 00001470 69 61 6c 6c 79 20 30 29 2e 20 20 41 66 74 65 72 |ially 0). After| 00001480 20 63 61 6c 6c 69 6e 67 20 26 39 30 30 2c 20 74 | calling &900, t| 00001490 68 65 20 63 6c 65 61 72 0d 72 6f 75 74 69 6e 65 |he clear.routine| 000014a0 2c 20 74 68 65 20 66 69 6c 65 20 69 73 20 6c 6f |, the file is lo| 000014b0 61 64 65 64 2e 1a 20 20 54 68 65 1a 20 4f 53 43 |aded.. The. OSC| 000014c0 4c 49 1a 20 63 6f 6d 6d 61 6e 64 1a 20 69 73 1a |LI. command. is.| 000014d0 20 65 71 75 69 76 61 6c 65 6e 74 1a 20 6f 66 20 | equivalent. of | 000014e0 66 6f 72 0d 65 78 61 6d 70 6c 65 20 2d 20 20 20 |for.example - | 000014f0 20 2a 4c 4f 41 44 20 4c 45 54 54 31 20 32 36 30 | *LOAD LETT1 260| 00001500 30 2e 0d 0d 4d 4f 44 45 20 33 20 6f 72 20 36 20 |0...MODE 3 or 6 | 00001510 69 73 20 73 65 6c 65 63 74 65 64 20 62 79 20 74 |is selected by t| 00001520 68 65 20 66 6c 61 67 20 4d 25 20 77 68 69 63 68 |he flag M% which| 00001530 1a 20 74 68 65 20 73 65 74 73 20 74 68 65 20 76 |. the sets the v| 00001540 61 6c 75 65 20 6f 66 20 6d 25 20 61 6e 64 0d 74 |alue of m% and.t| 00001550 68 65 20 70 72 69 6e 74 20 72 6f 75 74 69 6e 65 |he print routine| 00001560 20 63 61 6c 6c 65 64 20 61 74 20 26 39 41 41 2e | called at &9AA.| 00001570 0d 0d 49 66 1a 20 6d 6f 72 65 20 6f 6e 65 20 66 |..If. more one f| 00001580 69 6c 65 20 6f 66 20 74 68 65 20 73 61 6d 65 20 |ile of the same | 00001590 66 69 6c 65 6e 61 6d 65 20 69 73 20 74 6f 20 62 |filename is to b| 000015a0 65 20 70 72 69 6e 74 65 64 2c 20 74 68 65 20 70 |e printed, the p| 000015b0 72 6f 67 72 61 6d 20 6c 6f 6f 70 73 0d 62 61 63 |rogram loops.bac| 000015c0 6b 20 61 6e 64 20 66 25 20 69 6e 63 72 65 61 73 |k and f% increas| 000015d0 65 64 20 61 67 61 69 6e 20 74 6f 20 6c 6f 61 64 |ed again to load| 000015e0 20 74 68 65 20 6e 65 78 74 20 66 69 6c 65 0d 0d | the next file..| 000015f0 54 68 65 20 50 52 4f 43 70 69 63 74 20 6f 70 65 |The PROCpict ope| 00001600 72 61 74 65 73 20 69 6e 20 61 20 73 69 6d 69 6c |rates in a simil| 00001610 61 72 20 6d 61 6e 6e 65 72 2e 20 20 54 68 65 20 |ar manner. The | 00001620 74 68 72 65 65 20 70 61 72 61 6d 65 74 65 72 73 |three parameters| 00001630 20 61 72 65 20 2d 0d 20 20 20 20 50 24 20 2d 20 | are -. P$ - | 00001640 74 68 65 20 66 69 6c 65 6e 61 6d 65 2c 20 6e 25 |the filename, n%| 00001650 20 2d 20 74 68 65 20 4d 4f 44 45 20 6e 75 6d 62 | - the MODE numb| 00001660 65 72 20 61 6e 64 20 64 25 20 74 68 65 20 6e 75 |er and d% the nu| 00001670 6d 62 65 72 20 6f 66 20 66 69 6c 65 73 0d 0d 49 |mber of files..I| 00001680 66 20 66 6c 61 67 1a 20 50 1a 20 69 73 20 54 52 |f flag. P. is TR| 00001690 55 45 20 74 68 65 20 73 63 72 65 65 6e 20 64 75 |UE the screen du| 000016a0 6d 70 20 70 72 6f 67 72 61 6d 2c 20 55 43 4f 44 |mp program, UCOD| 000016b0 45 2c 20 69 73 20 63 61 6c 6c 65 64 20 61 6e 64 |E, is called and| 000016c0 20 74 68 65 20 63 75 65 73 0d 61 67 61 69 6e 20 | the cues.again | 000016d0 6f 6d 69 69 74 74 65 64 2e 0d 0d 4f 6e 20 70 72 |omiitted...On pr| 000016e0 65 73 73 69 6e 67 20 54 20 74 68 65 1a 20 66 6c |essing T the. fl| 000016f0 61 67 20 4d 25 20 69 73 20 74 6f 67 67 6c 65 64 |ag M% is toggled| 00001700 20 54 52 55 45 20 6f 72 20 46 41 4c 53 45 20 74 | TRUE or FALSE t| 00001710 6f 20 73 65 74 20 4d 4f 44 45 20 33 20 6f 72 20 |o set MODE 3 or | 00001720 36 20 61 6e 64 0d 61 6c 73 6f 20 74 68 65 20 76 |6 and.also the v| 00001730 61 6c 75 65 20 34 30 20 6f 72 20 38 30 20 69 6e |alue 40 or 80 in| 00001740 20 74 68 65 20 6d 65 6e 75 20 6c 69 6e 65 2e 0d | the menu line..| 00001750 0d 4b 65 79 20 52 20 72 65 74 75 72 6e 73 20 74 |.Key R returns t| 00001760 6f 20 74 68 65 20 72 6f 6f 74 20 64 69 72 65 63 |o the root direc| 00001770 74 6f 72 79 20 61 6e 64 20 6c 6f 61 64 73 20 74 |tory and loads t| 00001780 68 65 20 6d 61 69 6e 20 6d 65 6e 75 2e 0d 0d 2a |he main menu...*| 00001790 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************| * 000017d0 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0d |*********..| 000017db
P/+cod5_2.m0
P/+cod5_2.m1
P/+cod5_2.m2
P/+cod5_2.m4
P/+cod5_2.m5
.