>�3:�23,1,0;0;0;0;:�14:�''"PRESS <SHIFT> TO SCROLL"'':�text
=�:�''"PLEASE PRESS <P> TO PRINT TEXT, <M> FOR MAIN MENU" 
�:A%=�"MP",�):�A%
(�A%=1 � �"$.MENU"
2�A%=2 � �15:�2:�text:�3
<� �
F�
P� �text
Z�"PROGRAMS INTRODUCTION"
d�"*********************"
n�"Screen Dump"
x�"***********"
�I�"This is the screen dunp program which I mentioned in my article in"
�I�"Issue 6.  I have done the modification to use grachics mode 4 as I"
�M�"explained and the MODE 0 version gives a similar print out as does the"
�K�"Basic program in Issue 10.  On running ths assembler progran it asks"
�K�"for the MODE and assemblse a M/code program called UCODE followed by"
�8�"the MODE number.  Thus the MODE 0 dump is UCODE0."
��
�M�"For MODES 1,2 and 5 it will give a diffent dot pattern for each colour"
�E�"and so gives different shades of grey.  These may be varied by"
�M�"experiment with the pattern codes at the end of the assembler program."
�L�"I have also added the line ""Press RETURN to save the code"" and have"
�K�"arranged the fileneme so that you may change the disc before saving."
��

L�"UCODE0 is already assembled so that you can try this out to print the"

C�"title screen.  To do this press ESCAPE and CHAIN""TITLEPRT"""

�

�"FN/PROC Lister"

"�"**************"

,L�"This program lists all Functions and Procedures in a Basic program in"

6G�"memory together with the line numbers.  When the M/code has been"

@I�"assembled the command *FPL or */FPL will RUN the program as I have"

JK�"used a routine I found in Electron User for printing the numbers and"

T=�"the program could be made part of a Utility ROM image."

^�

h�"Label Lister"

r�"************"

|I�"This is a similar program to list all the M/code labels with their"

�K�"line numbers.  It is RUN with *LBL or */LBL.  Since it looks for the"

�L�"""."" it does occasionally give a spurious response if a ""."" occurs"

�L�"in a string.  I have reduced this possibility by only allowing search"

�<�"between the square brackets of the assembler listing."

��

�J�"To load the programs, Press ESCAPE and load in the normal way.  The"

�1�"filenames are UCODEsrc, FPLsrc and LBLsrc."

��
�

00000000  0d 00 0a 3e eb 33 3a ef  32 33 2c 31 2c 30 3b 30  |...>.3:.23,1,0;0|
00000010  3b 30 3b 30 3b 3a ef 31  34 3a f1 27 27 22 50 52  |;0;0;:.14:.''"PR|
00000020  45 53 53 20 3c 53 48 49  46 54 3e 20 54 4f 20 53  |ESS <SHIFT> TO S|
00000030  43 52 4f 4c 4c 22 27 27  3a f2 74 65 78 74 0d 00  |CROLL"'':.text..|
00000040  14 3d f5 3a f1 27 27 22  50 4c 45 41 53 45 20 50  |.=.:.''"PLEASE P|
00000050  52 45 53 53 20 3c 50 3e  20 54 4f 20 50 52 49 4e  |RESS <P> TO PRIN|
00000060  54 20 54 45 58 54 2c 20  3c 4d 3e 20 46 4f 52 20  |T TEXT, <M> FOR |
00000070  4d 41 49 4e 20 4d 45 4e  55 22 20 0d 00 1e 15 f5  |MAIN MENU" .....|
00000080  3a 41 25 3d a7 22 4d 50  22 2c be 29 3a fd 41 25  |:A%=."MP",.):.A%|
00000090  0d 00 28 15 e7 41 25 3d  31 20 8c 20 d7 22 24 2e  |..(..A%=1 . ."$.|
000000a0  4d 45 4e 55 22 0d 00 32  1b e7 41 25 3d 32 20 8c  |MENU"..2..A%=2 .|
000000b0  20 ef 31 35 3a ef 32 3a  f2 74 65 78 74 3a ef 33  | .15:.2:.text:.3|
000000c0  0d 00 3c 07 fd 20 a3 0d  00 46 05 e0 0d 00 50 0b  |..<.. ...F....P.|
000000d0  dd 20 f2 74 65 78 74 0d  00 5a 1c f1 22 50 52 4f  |. .text..Z.."PRO|
000000e0  47 52 41 4d 53 20 49 4e  54 52 4f 44 55 43 54 49  |GRAMS INTRODUCTI|
000000f0  4f 4e 22 0d 00 64 1c f1  22 2a 2a 2a 2a 2a 2a 2a  |ON"..d.."*******|
00000100  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 22 0d  |**************".|
00000110  00 6e 12 f1 22 53 63 72  65 65 6e 20 44 75 6d 70  |.n.."Screen Dump|
00000120  22 0d 00 78 12 f1 22 2a  2a 2a 2a 2a 2a 2a 2a 2a  |"..x.."*********|
00000130  2a 2a 22 0d 00 82 49 f1  22 54 68 69 73 20 69 73  |**"...I."This is|
00000140  20 74 68 65 20 73 63 72  65 65 6e 20 64 75 6e 70  | the screen dunp|
00000150  20 70 72 6f 67 72 61 6d  20 77 68 69 63 68 20 49  | program which I|
00000160  20 6d 65 6e 74 69 6f 6e  65 64 20 69 6e 20 6d 79  | mentioned in my|
00000170  20 61 72 74 69 63 6c 65  20 69 6e 22 0d 00 8c 49  | article in"...I|
00000180  f1 22 49 73 73 75 65 20  36 2e 20 20 49 20 68 61  |."Issue 6.  I ha|
00000190  76 65 20 64 6f 6e 65 20  74 68 65 20 6d 6f 64 69  |ve done the modi|
000001a0  66 69 63 61 74 69 6f 6e  20 74 6f 20 75 73 65 20  |fication to use |
000001b0  67 72 61 63 68 69 63 73  20 6d 6f 64 65 20 34 20  |grachics mode 4 |
000001c0  61 73 20 49 22 0d 00 96  4d f1 22 65 78 70 6c 61  |as I"...M."expla|
000001d0  69 6e 65 64 20 61 6e 64  20 74 68 65 20 4d 4f 44  |ined and the MOD|
000001e0  45 20 30 20 76 65 72 73  69 6f 6e 20 67 69 76 65  |E 0 version give|
000001f0  73 20 61 20 73 69 6d 69  6c 61 72 20 70 72 69 6e  |s a similar prin|
00000200  74 20 6f 75 74 20 61 73  20 64 6f 65 73 20 74 68  |t out as does th|
00000210  65 22 0d 00 a0 4b f1 22  42 61 73 69 63 20 70 72  |e"...K."Basic pr|
00000220  6f 67 72 61 6d 20 69 6e  20 49 73 73 75 65 20 31  |ogram in Issue 1|
00000230  30 2e 20 20 4f 6e 20 72  75 6e 6e 69 6e 67 20 74  |0.  On running t|
00000240  68 73 20 61 73 73 65 6d  62 6c 65 72 20 70 72 6f  |hs assembler pro|
00000250  67 72 61 6e 20 69 74 20  61 73 6b 73 22 0d 00 aa  |gran it asks"...|
00000260  4b f1 22 66 6f 72 20 74  68 65 20 4d 4f 44 45 20  |K."for the MODE |
00000270  61 6e 64 20 61 73 73 65  6d 62 6c 73 65 20 61 20  |and assemblse a |
00000280  4d 2f 63 6f 64 65 20 70  72 6f 67 72 61 6d 20 63  |M/code program c|
00000290  61 6c 6c 65 64 20 55 43  4f 44 45 20 66 6f 6c 6c  |alled UCODE foll|
000002a0  6f 77 65 64 20 62 79 22  0d 00 b4 38 f1 22 74 68  |owed by"...8."th|
000002b0  65 20 4d 4f 44 45 20 6e  75 6d 62 65 72 2e 20 20  |e MODE number.  |
000002c0  54 68 75 73 20 74 68 65  20 4d 4f 44 45 20 30 20  |Thus the MODE 0 |
000002d0  64 75 6d 70 20 69 73 20  55 43 4f 44 45 30 2e 22  |dump is UCODE0."|
000002e0  0d 00 be 05 f1 0d 00 c8  4d f1 22 46 6f 72 20 4d  |........M."For M|
000002f0  4f 44 45 53 20 31 2c 32  20 61 6e 64 20 35 20 69  |ODES 1,2 and 5 i|
00000300  74 20 77 69 6c 6c 20 67  69 76 65 20 61 20 64 69  |t will give a di|
00000310  66 66 65 6e 74 20 64 6f  74 20 70 61 74 74 65 72  |ffent dot patter|
00000320  6e 20 66 6f 72 20 65 61  63 68 20 63 6f 6c 6f 75  |n for each colou|
00000330  72 22 0d 00 d2 45 f1 22  61 6e 64 20 73 6f 20 67  |r"...E."and so g|
00000340  69 76 65 73 20 64 69 66  66 65 72 65 6e 74 20 73  |ives different s|
00000350  68 61 64 65 73 20 6f 66  20 67 72 65 79 2e 20 20  |hades of grey.  |
00000360  54 68 65 73 65 20 6d 61  79 20 62 65 20 76 61 72  |These may be var|
00000370  69 65 64 20 62 79 22 0d  00 dc 4d f1 22 65 78 70  |ied by"...M."exp|
00000380  65 72 69 6d 65 6e 74 20  77 69 74 68 20 74 68 65  |eriment with the|
00000390  20 70 61 74 74 65 72 6e  20 63 6f 64 65 73 20 61  | pattern codes a|
000003a0  74 20 74 68 65 20 65 6e  64 20 6f 66 20 74 68 65  |t the end of the|
000003b0  20 61 73 73 65 6d 62 6c  65 72 20 70 72 6f 67 72  | assembler progr|
000003c0  61 6d 2e 22 0d 00 e6 4c  f1 22 49 20 68 61 76 65  |am."...L."I have|
000003d0  20 61 6c 73 6f 20 61 64  64 65 64 20 74 68 65 20  | also added the |
000003e0  6c 69 6e 65 20 22 22 50  72 65 73 73 20 52 45 54  |line ""Press RET|
000003f0  55 52 4e 20 74 6f 20 73  61 76 65 20 74 68 65 20  |URN to save the |
00000400  63 6f 64 65 22 22 20 61  6e 64 20 68 61 76 65 22  |code"" and have"|
00000410  0d 00 f0 4b f1 22 61 72  72 61 6e 67 65 64 20 74  |...K."arranged t|
00000420  68 65 20 66 69 6c 65 6e  65 6d 65 20 73 6f 20 74  |he fileneme so t|
00000430  68 61 74 20 79 6f 75 20  6d 61 79 20 63 68 61 6e  |hat you may chan|
00000440  67 65 20 74 68 65 20 64  69 73 63 20 62 65 66 6f  |ge the disc befo|
00000450  72 65 20 73 61 76 69 6e  67 2e 22 0d 00 fa 05 f1  |re saving.".....|
00000460  0d 01 04 4c f1 22 55 43  4f 44 45 30 20 69 73 20  |...L."UCODE0 is |
00000470  61 6c 72 65 61 64 79 20  61 73 73 65 6d 62 6c 65  |already assemble|
00000480  64 20 73 6f 20 74 68 61  74 20 79 6f 75 20 63 61  |d so that you ca|
00000490  6e 20 74 72 79 20 74 68  69 73 20 6f 75 74 20 74  |n try this out t|
000004a0  6f 20 70 72 69 6e 74 20  74 68 65 22 0d 01 0e 43  |o print the"...C|
000004b0  f1 22 74 69 74 6c 65 20  73 63 72 65 65 6e 2e 20  |."title screen. |
000004c0  20 54 6f 20 64 6f 20 74  68 69 73 20 70 72 65 73  | To do this pres|
000004d0  73 20 45 53 43 41 50 45  20 61 6e 64 20 43 48 41  |s ESCAPE and CHA|
000004e0  49 4e 22 22 54 49 54 4c  45 50 52 54 22 22 22 0d  |IN""TITLEPRT""".|
000004f0  01 13 05 f1 0d 01 18 15  f1 22 46 4e 2f 50 52 4f  |........."FN/PRO|
00000500  43 20 4c 69 73 74 65 72  22 0d 01 22 15 f1 22 2a  |C Lister"..".."*|
00000510  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 22 0d 01  |*************"..|
00000520  2c 4c f1 22 54 68 69 73  20 70 72 6f 67 72 61 6d  |,L."This program|
00000530  20 6c 69 73 74 73 20 61  6c 6c 20 46 75 6e 63 74  | lists all Funct|
00000540  69 6f 6e 73 20 61 6e 64  20 50 72 6f 63 65 64 75  |ions and Procedu|
00000550  72 65 73 20 69 6e 20 61  20 42 61 73 69 63 20 70  |res in a Basic p|
00000560  72 6f 67 72 61 6d 20 69  6e 22 0d 01 36 47 f1 22  |rogram in"..6G."|
00000570  6d 65 6d 6f 72 79 20 74  6f 67 65 74 68 65 72 20  |memory together |
00000580  77 69 74 68 20 74 68 65  20 6c 69 6e 65 20 6e 75  |with the line nu|
00000590  6d 62 65 72 73 2e 20 20  57 68 65 6e 20 74 68 65  |mbers.  When the|
000005a0  20 4d 2f 63 6f 64 65 20  68 61 73 20 62 65 65 6e  | M/code has been|
000005b0  22 0d 01 40 49 f1 22 61  73 73 65 6d 62 6c 65 64  |"..@I."assembled|
000005c0  20 74 68 65 20 63 6f 6d  6d 61 6e 64 20 2a 46 50  | the command *FP|
000005d0  4c 20 6f 72 20 2a 2f 46  50 4c 20 77 69 6c 6c 20  |L or */FPL will |
000005e0  52 55 4e 20 74 68 65 20  70 72 6f 67 72 61 6d 20  |RUN the program |
000005f0  61 73 20 49 20 68 61 76  65 22 0d 01 4a 4b f1 22  |as I have"..JK."|
00000600  75 73 65 64 20 61 20 72  6f 75 74 69 6e 65 20 49  |used a routine I|
00000610  20 66 6f 75 6e 64 20 69  6e 20 45 6c 65 63 74 72  | found in Electr|
00000620  6f 6e 20 55 73 65 72 20  66 6f 72 20 70 72 69 6e  |on User for prin|
00000630  74 69 6e 67 20 74 68 65  20 6e 75 6d 62 65 72 73  |ting the numbers|
00000640  20 61 6e 64 22 0d 01 54  3d f1 22 74 68 65 20 70  | and"..T=."the p|
00000650  72 6f 67 72 61 6d 20 63  6f 75 6c 64 20 62 65 20  |rogram could be |
00000660  6d 61 64 65 20 70 61 72  74 20 6f 66 20 61 20 55  |made part of a U|
00000670  74 69 6c 69 74 79 20 52  4f 4d 20 69 6d 61 67 65  |tility ROM image|
00000680  2e 22 0d 01 5e 05 f1 0d  01 68 13 f1 22 4c 61 62  |."..^....h.."Lab|
00000690  65 6c 20 4c 69 73 74 65  72 22 0d 01 72 13 f1 22  |el Lister"..r.."|
000006a0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 22 0d 01 7c  |************"..||
000006b0  49 f1 22 54 68 69 73 20  69 73 20 61 20 73 69 6d  |I."This is a sim|
000006c0  69 6c 61 72 20 70 72 6f  67 72 61 6d 20 74 6f 20  |ilar program to |
000006d0  6c 69 73 74 20 61 6c 6c  20 74 68 65 20 4d 2f 63  |list all the M/c|
000006e0  6f 64 65 20 6c 61 62 65  6c 73 20 77 69 74 68 20  |ode labels with |
000006f0  74 68 65 69 72 22 0d 01  86 4b f1 22 6c 69 6e 65  |their"...K."line|
00000700  20 6e 75 6d 62 65 72 73  2e 20 20 49 74 20 69 73  | numbers.  It is|
00000710  20 52 55 4e 20 77 69 74  68 20 2a 4c 42 4c 20 6f  | RUN with *LBL o|
00000720  72 20 2a 2f 4c 42 4c 2e  20 20 53 69 6e 63 65 20  |r */LBL.  Since |
00000730  69 74 20 6c 6f 6f 6b 73  20 66 6f 72 20 74 68 65  |it looks for the|
00000740  22 0d 01 90 4c f1 22 22  22 2e 22 22 20 69 74 20  |"...L."""."" it |
00000750  64 6f 65 73 20 6f 63 63  61 73 69 6f 6e 61 6c 6c  |does occasionall|
00000760  79 20 67 69 76 65 20 61  20 73 70 75 72 69 6f 75  |y give a spuriou|
00000770  73 20 72 65 73 70 6f 6e  73 65 20 69 66 20 61 20  |s response if a |
00000780  22 22 2e 22 22 20 6f 63  63 75 72 73 22 0d 01 9a  |""."" occurs"...|
00000790  4c f1 22 69 6e 20 61 20  73 74 72 69 6e 67 2e 20  |L."in a string. |
000007a0  20 49 20 68 61 76 65 20  72 65 64 75 63 65 64 20  | I have reduced |
000007b0  74 68 69 73 20 70 6f 73  73 69 62 69 6c 69 74 79  |this possibility|
000007c0  20 62 79 20 6f 6e 6c 79  20 61 6c 6c 6f 77 69 6e  | by only allowin|
000007d0  67 20 73 65 61 72 63 68  22 0d 01 a4 3c f1 22 62  |g search"...<."b|
000007e0  65 74 77 65 65 6e 20 74  68 65 20 73 71 75 61 72  |etween the squar|
000007f0  65 20 62 72 61 63 6b 65  74 73 20 6f 66 20 74 68  |e brackets of th|
00000800  65 20 61 73 73 65 6d 62  6c 65 72 20 6c 69 73 74  |e assembler list|
00000810  69 6e 67 2e 22 0d 01 ae  05 f1 0d 01 b8 4a f1 22  |ing."........J."|
00000820  54 6f 20 6c 6f 61 64 20  74 68 65 20 70 72 6f 67  |To load the prog|
00000830  72 61 6d 73 2c 20 50 72  65 73 73 20 45 53 43 41  |rams, Press ESCA|
00000840  50 45 20 61 6e 64 20 6c  6f 61 64 20 69 6e 20 74  |PE and load in t|
00000850  68 65 20 6e 6f 72 6d 61  6c 20 77 61 79 2e 20 20  |he normal way.  |
00000860  54 68 65 22 0d 01 c2 31  f1 22 66 69 6c 65 6e 61  |The"...1."filena|
00000870  6d 65 73 20 61 72 65 20  55 43 4f 44 45 73 72 63  |mes are UCODEsrc|
00000880  2c 20 46 50 4c 73 72 63  20 61 6e 64 20 4c 42 4c  |, FPLsrc and LBL|
00000890  73 72 63 2e 22 0d 01 cc  05 e1 0d ff              |src.".......|
0000089c