� EU JULY 1990 p 11
8 � USE LOADER TO SET S%=PAGE:PAGE=&4900:CHAIN"!MAIN"
 � ** PROCEDURE COMPILER **
(,� FILES SAVED AS !file NOT BE CATALOGUED
2 � **         By         **
<  � **    Wayne G Boyd    ** 
F � **  (c)Electron User  **
P"� RENAME THIS PROGRAM AS !MAIN
d �6 
n
 � *DIR $
x
 �FIND
�
 �display
�	 �ask
� �construct
� �return
� �
�:
���FIND  
�� procs(27)
�osgbpb=&FFD1
�	h$=""
�� parblk &0C
�+�23,255,255,255,255,255,255,255,255,255
�� name$(100)

� filename 10  

DF=1

A%=8

"X%=parblk � &100

,Y%=parblk � &100

6parblk!9=0

@�

Jparblk!1=filename

Tparblk!5=1

^� osgbpb

h� parblk!5<>1 � �print

r� parblk!5=1

|�

�� �print

�� i%=1 � ?filename

�� h$=h$+�(filename?i%)

��

�.� �h$,"!")=0 � name$(DF)=h$ � h$="":� �dVA

�	h$=""

�DF=DF+1

�g%=DF-1

��

�
��display

��19,1,3,0,0,0,0

�)�5,2)"Procedure Compilation Program"

�*�5,3)"~~~~~~~~~~~~~~~~~~~~~~~~~~~~~" 
0�2,5)"Designed and Written By Wayne G Boyd"
#� g%<13 � amount=g% � amount=13
� loop1=1 � amount
&b � loop1<10 � �1,(7+loop1));loop1;". ";name$(loop1) � �0,(7+loop1));loop1;". ";name$(loop1) 
0� loop1
:� g%>13 � g%>26 � amount=13
D#� g%>13 � g%<=26 � amount=g%-13
N� g%<=13 � � �DvB
X� loop2=1 � amount
b1�18,(7+loop2));loop2+13;". ";name$(loop2+13)
l� loop2
v3�0,22)"Enter a proc number, or 'H' when happy"
��0,23)"=> "  
��
�	��ask
�� loop=1 � 26
��3,23)�(30)
�!�3,23)proc$:�check(�(proc$))
�b� (�(proc$)<=26 � �(proc$)>0 � used=� � (�(proc$))<=g%)� proc$="H" � �1,-15,165,5 � �7:� �thB 
�&� loop=g% � loop=26 � number%=loop
�R� proc$="H" � proc$="h" � number%=loop-1:loop=26:� �ddB � procs(loop)=�(proc$)
��highlight(�(proc$))
�
� loop
��
���highlight(number)
'� number<=13 � ypos=7+number:xpos=0
*� number>13 � ypos=7+number-13:xpos=18
 �xpos,ypos)�(255);�(255);
 �
*��check(num)
4
used=�
>� check=1 � 26
H� num=procs(check) � used=�
R� check
\�
f��construct
p�23,1,0,0,0,0,0,0,0,0,0,0
zpage=S%
�� loop=1 � number%
�,�("LOAD "+name$(procs(loop))+" "+�~page)
�A%=�(name$(procs(loop)))
�len=�#A%
��#A%
�page=page+(len-2)
�
� loop
��
���return
�6�0,22)"Please enter line number to start from  ";
��0,23)"=> ";�(30)
��3,23)linenum
�H�("K.0 PAGE="+�(S%)+"|MEND|MREN."+�(linenum)+"|MVDU6|MMO.7|MLIST|M")
�21
*FX138,0,128
�
$�
�

00000000  0d 00 0a 17 f4 20 45 55  20 4a 55 4c 59 20 31 39  |..... EU JULY 19|
00000010  39 30 20 70 20 31 31 0d  00 14 38 20 f4 20 55 53  |90 p 11...8 . US|
00000020  45 20 4c 4f 41 44 45 52  20 54 4f 20 53 45 54 20  |E LOADER TO SET |
00000030  53 25 3d 50 41 47 45 3a  50 41 47 45 3d 26 34 39  |S%=PAGE:PAGE=&49|
00000040  30 30 3a 43 48 41 49 4e  22 21 4d 41 49 4e 22 0d  |00:CHAIN"!MAIN".|
00000050  00 1e 1f 20 f4 20 2a 2a  20 50 52 4f 43 45 44 55  |... . ** PROCEDU|
00000060  52 45 20 43 4f 4d 50 49  4c 45 52 20 2a 2a 0d 00  |RE COMPILER **..|
00000070  28 2c f4 20 46 49 4c 45  53 20 53 41 56 45 44 20  |(,. FILES SAVED |
00000080  41 53 20 21 66 69 6c 65  20 4e 4f 54 20 42 45 20  |AS !file NOT BE |
00000090  43 41 54 41 4c 4f 47 55  45 44 0d 00 32 1f 20 f4  |CATALOGUED..2. .|
000000a0  20 2a 2a 20 20 20 20 20  20 20 20 20 42 79 20 20  | **         By  |
000000b0  20 20 20 20 20 20 20 2a  2a 0d 00 3c 20 20 f4 20  |       **..<  . |
000000c0  2a 2a 20 20 20 20 57 61  79 6e 65 20 47 20 42 6f  |**    Wayne G Bo|
000000d0  79 64 20 20 20 20 2a 2a  20 0d 00 46 1f 20 f4 20  |yd    ** ..F. . |
000000e0  2a 2a 20 20 28 63 29 45  6c 65 63 74 72 6f 6e 20  |**  (c)Electron |
000000f0  55 73 65 72 20 20 2a 2a  0d 00 50 22 f4 20 52 45  |User  **..P". RE|
00000100  4e 41 4d 45 20 54 48 49  53 20 50 52 4f 47 52 41  |NAME THIS PROGRA|
00000110  4d 20 41 53 20 21 4d 41  49 4e 0d 00 64 08 20 eb  |M AS !MAIN..d. .|
00000120  36 20 0d 00 6e 0d 20 f4  20 2a 44 49 52 20 24 0d  |6 ..n. . *DIR $.|
00000130  00 78 0a 20 f2 46 49 4e  44 0d 00 82 0d 20 f2 64  |.x. .FIND.... .d|
00000140  69 73 70 6c 61 79 0d 00  8c 09 20 f2 61 73 6b 0d  |isplay.... .ask.|
00000150  00 96 0f 20 f2 63 6f 6e  73 74 72 75 63 74 0d 00  |... .construct..|
00000160  a0 0c 20 f2 72 65 74 75  72 6e 0d 00 aa 06 20 e0  |.. .return.... .|
00000170  0d 00 b4 05 3a 0d 00 be  0c dd f2 46 49 4e 44 20  |....:......FIND |
00000180  20 0d 00 c8 0f de 20 70  72 6f 63 73 28 32 37 29  | ..... procs(27)|
00000190  0d 00 d2 10 6f 73 67 62  70 62 3d 26 46 46 44 31  |....osgbpb=&FFD1|
000001a0  0d 00 dc 09 68 24 3d 22  22 0d 00 e6 10 de 20 70  |....h$=""..... p|
000001b0  61 72 62 6c 6b 20 26 30  43 0d 00 f0 2b ef 32 33  |arblk &0C...+.23|
000001c0  2c 32 35 35 2c 32 35 35  2c 32 35 35 2c 32 35 35  |,255,255,255,255|
*
000001e0  2c 32 35 35 0d 00 fa 10  de 20 6e 61 6d 65 24 28  |,255..... name$(|
000001f0  31 30 30 29 0d 01 04 13  de 20 66 69 6c 65 6e 61  |100)..... filena|
00000200  6d 65 20 31 30 20 20 0d  01 0e 08 44 46 3d 31 0d  |me 10  ....DF=1.|
00000210  01 18 08 41 25 3d 38 0d  01 22 14 58 25 3d 70 61  |...A%=8..".X%=pa|
00000220  72 62 6c 6b 20 83 20 26  31 30 30 0d 01 2c 14 59  |rblk . &100..,.Y|
00000230  25 3d 70 61 72 62 6c 6b  20 81 20 26 31 30 30 0d  |%=parblk . &100.|
00000240  01 36 0e 70 61 72 62 6c  6b 21 39 3d 30 0d 01 40  |.6.parblk!9=0..@|
00000250  05 f5 0d 01 4a 15 70 61  72 62 6c 6b 21 31 3d 66  |....J.parblk!1=f|
00000260  69 6c 65 6e 61 6d 65 0d  01 54 0e 70 61 72 62 6c  |ilename..T.parbl|
00000270  6b 21 35 3d 31 0d 01 5e  0c d6 20 6f 73 67 62 70  |k!5=1..^.. osgbp|
00000280  62 0d 01 68 1a e7 20 70  61 72 62 6c 6b 21 35 3c  |b..h.. parblk!5<|
00000290  3e 31 20 8c 20 f2 70 72  69 6e 74 0d 01 72 10 fd  |>1 . .print..r..|
000002a0  20 70 61 72 62 6c 6b 21  35 3d 31 0d 01 7c 05 e1  | parblk!5=1..|..|
000002b0  0d 01 86 0c dd 20 f2 70  72 69 6e 74 0d 01 90 16  |..... .print....|
000002c0  e3 20 69 25 3d 31 20 b8  20 3f 66 69 6c 65 6e 61  |. i%=1 . ?filena|
000002d0  6d 65 0d 01 9a 1a e9 20  68 24 3d 68 24 2b bd 28  |me..... h$=h$+.(|
000002e0  66 69 6c 65 6e 61 6d 65  3f 69 25 29 0d 01 a4 05  |filename?i%)....|
000002f0  ed 0d 01 ae 2e e7 20 a7  68 24 2c 22 21 22 29 3d  |...... .h$,"!")=|
00000300  30 20 8c 20 6e 61 6d 65  24 28 44 46 29 3d 68 24  |0 . name$(DF)=h$|
00000310  20 8b 20 68 24 3d 22 22  3a e5 20 8d 64 56 41 0d  | . h$="":. .dVA.|
00000320  01 b8 09 68 24 3d 22 22  0d 01 c2 0b 44 46 3d 44  |...h$=""....DF=D|
00000330  46 2b 31 0d 01 cc 0b 67  25 3d 44 46 2d 31 0d 01  |F+1....g%=DF-1..|
00000340  d6 05 e1 0d 01 e0 0d dd  f2 64 69 73 70 6c 61 79  |.........display|
00000350  0d 01 ea 13 ef 31 39 2c  31 2c 33 2c 30 2c 30 2c  |.....19,1,3,0,0,|
00000360  30 2c 30 0d 01 f4 29 f1  8a 35 2c 32 29 22 50 72  |0,0...)..5,2)"Pr|
00000370  6f 63 65 64 75 72 65 20  43 6f 6d 70 69 6c 61 74  |ocedure Compilat|
00000380  69 6f 6e 20 50 72 6f 67  72 61 6d 22 0d 01 fe 2a  |ion Program"...*|
00000390  f1 8a 35 2c 33 29 22 7e  7e 7e 7e 7e 7e 7e 7e 7e  |..5,3)"~~~~~~~~~|
000003a0  7e 7e 7e 7e 7e 7e 7e 7e  7e 7e 7e 7e 7e 7e 7e 7e  |~~~~~~~~~~~~~~~~|
000003b0  7e 7e 7e 7e 22 20 0d 02  08 30 f1 8a 32 2c 35 29  |~~~~" ...0..2,5)|
000003c0  22 44 65 73 69 67 6e 65  64 20 61 6e 64 20 57 72  |"Designed and Wr|
000003d0  69 74 74 65 6e 20 42 79  20 57 61 79 6e 65 20 47  |itten By Wayne G|
000003e0  20 42 6f 79 64 22 0d 02  12 23 e7 20 67 25 3c 31  | Boyd"...#. g%<1|
000003f0  33 20 8c 20 61 6d 6f 75  6e 74 3d 67 25 20 8b 20  |3 . amount=g% . |
00000400  61 6d 6f 75 6e 74 3d 31  33 0d 02 1c 16 e3 20 6c  |amount=13..... l|
00000410  6f 6f 70 31 3d 31 20 b8  20 61 6d 6f 75 6e 74 0d  |oop1=1 . amount.|
00000420  02 26 62 20 e7 20 6c 6f  6f 70 31 3c 31 30 20 8c  |.&b . loop1<10 .|
00000430  20 f1 8a 31 2c 28 37 2b  6c 6f 6f 70 31 29 29 3b  | ..1,(7+loop1));|
00000440  6c 6f 6f 70 31 3b 22 2e  20 22 3b 6e 61 6d 65 24  |loop1;". ";name$|
00000450  28 6c 6f 6f 70 31 29 20  8b 20 f1 8a 30 2c 28 37  |(loop1) . ..0,(7|
00000460  2b 6c 6f 6f 70 31 29 29  3b 6c 6f 6f 70 31 3b 22  |+loop1));loop1;"|
00000470  2e 20 22 3b 6e 61 6d 65  24 28 6c 6f 6f 70 31 29  |. ";name$(loop1)|
00000480  20 0d 02 30 0b ed 20 6c  6f 6f 70 31 0d 02 3a 1f  | ..0.. loop1..:.|
00000490  e7 20 67 25 3e 31 33 20  80 20 67 25 3e 32 36 20  |. g%>13 . g%>26 |
000004a0  8c 20 61 6d 6f 75 6e 74  3d 31 33 0d 02 44 23 e7  |. amount=13..D#.|
000004b0  20 67 25 3e 31 33 20 80  20 67 25 3c 3d 32 36 20  | g%>13 . g%<=26 |
000004c0  8c 20 61 6d 6f 75 6e 74  3d 67 25 2d 31 33 0d 02  |. amount=g%-13..|
000004d0  4e 15 e7 20 67 25 3c 3d  31 33 20 8c 20 e5 20 8d  |N.. g%<=13 . . .|
000004e0  44 76 42 0d 02 58 16 e3  20 6c 6f 6f 70 32 3d 31  |DvB..X.. loop2=1|
000004f0  20 b8 20 61 6d 6f 75 6e  74 0d 02 62 31 f1 8a 31  | . amount..b1..1|
00000500  38 2c 28 37 2b 6c 6f 6f  70 32 29 29 3b 6c 6f 6f  |8,(7+loop2));loo|
00000510  70 32 2b 31 33 3b 22 2e  20 22 3b 6e 61 6d 65 24  |p2+13;". ";name$|
00000520  28 6c 6f 6f 70 32 2b 31  33 29 0d 02 6c 0b ed 20  |(loop2+13)..l.. |
00000530  6c 6f 6f 70 32 0d 02 76  33 f1 8a 30 2c 32 32 29  |loop2..v3..0,22)|
00000540  22 45 6e 74 65 72 20 61  20 70 72 6f 63 20 6e 75  |"Enter a proc nu|
00000550  6d 62 65 72 2c 20 6f 72  20 27 48 27 20 77 68 65  |mber, or 'H' whe|
00000560  6e 20 68 61 70 70 79 22  0d 02 80 12 f1 8a 30 2c  |n happy"......0,|
00000570  32 33 29 22 3d 3e 20 22  20 20 0d 02 8a 05 e1 0d  |23)"=> "  ......|
00000580  02 94 09 dd f2 61 73 6b  0d 02 9e 11 e3 20 6c 6f  |.....ask..... lo|
00000590  6f 70 3d 31 20 b8 20 32  36 0d 02 a8 10 f1 8a 33  |op=1 . 26......3|
000005a0  2c 32 33 29 89 28 33 30  29 0d 02 b2 21 e8 8a 33  |,23).(30)...!..3|
000005b0  2c 32 33 29 70 72 6f 63  24 3a f2 63 68 65 63 6b  |,23)proc$:.check|
000005c0  28 bb 28 70 72 6f 63 24  29 29 0d 02 bc 62 e7 20  |(.(proc$))...b. |
000005d0  28 bb 28 70 72 6f 63 24  29 3c 3d 32 36 20 80 20  |(.(proc$)<=26 . |
000005e0  bb 28 70 72 6f 63 24 29  3e 30 20 80 20 75 73 65  |.(proc$)>0 . use|
000005f0  64 3d a3 20 80 20 28 bb  28 70 72 6f 63 24 29 29  |d=. . (.(proc$))|
00000600  3c 3d 67 25 29 84 20 70  72 6f 63 24 3d 22 48 22  |<=g%). proc$="H"|
00000610  20 8c 20 d4 31 2c 2d 31  35 2c 31 36 35 2c 35 20  | . .1,-15,165,5 |
00000620  8b 20 ef 37 3a e5 20 8d  74 68 42 20 0d 02 c6 26  |. .7:. .thB ...&|
00000630  e7 20 6c 6f 6f 70 3d 67  25 20 84 20 6c 6f 6f 70  |. loop=g% . loop|
00000640  3d 32 36 20 8c 20 6e 75  6d 62 65 72 25 3d 6c 6f  |=26 . number%=lo|
00000650  6f 70 0d 02 d0 52 e7 20  70 72 6f 63 24 3d 22 48  |op...R. proc$="H|
00000660  22 20 84 20 70 72 6f 63  24 3d 22 68 22 20 8c 20  |" . proc$="h" . |
00000670  6e 75 6d 62 65 72 25 3d  6c 6f 6f 70 2d 31 3a 6c  |number%=loop-1:l|
00000680  6f 6f 70 3d 32 36 3a e5  20 8d 64 64 42 20 8b 20  |oop=26:. .ddB . |
00000690  70 72 6f 63 73 28 6c 6f  6f 70 29 3d bb 28 70 72  |procs(loop)=.(pr|
000006a0  6f 63 24 29 0d 02 da 18  f2 68 69 67 68 6c 69 67  |oc$).....highlig|
000006b0  68 74 28 bb 28 70 72 6f  63 24 29 29 0d 02 e4 0a  |ht(.(proc$))....|
000006c0  ed 20 6c 6f 6f 70 0d 02  ee 05 e1 0d 02 f8 17 dd  |. loop..........|
000006d0  f2 68 69 67 68 6c 69 67  68 74 28 6e 75 6d 62 65  |.highlight(numbe|
000006e0  72 29 0d 03 02 27 e7 20  6e 75 6d 62 65 72 3c 3d  |r)...'. number<=|
000006f0  31 33 20 8c 20 79 70 6f  73 3d 37 2b 6e 75 6d 62  |13 . ypos=7+numb|
00000700  65 72 3a 78 70 6f 73 3d  30 0d 03 0c 2a e7 20 6e  |er:xpos=0...*. n|
00000710  75 6d 62 65 72 3e 31 33  20 8c 20 79 70 6f 73 3d  |umber>13 . ypos=|
00000720  37 2b 6e 75 6d 62 65 72  2d 31 33 3a 78 70 6f 73  |7+number-13:xpos|
00000730  3d 31 38 0d 03 16 1f 20  f1 8a 78 70 6f 73 2c 79  |=18.... ..xpos,y|
00000740  70 6f 73 29 bd 28 32 35  35 29 3b bd 28 32 35 35  |pos).(255);.(255|
00000750  29 3b 0d 03 20 05 e1 0d  03 2a 10 dd f2 63 68 65  |);.. ....*...che|
00000760  63 6b 28 6e 75 6d 29 0d  03 34 0a 75 73 65 64 3d  |ck(num)..4.used=|
00000770  a3 0d 03 3e 12 e3 20 63  68 65 63 6b 3d 31 20 b8  |...>.. check=1 .|
00000780  20 32 36 0d 03 48 1f e7  20 6e 75 6d 3d 70 72 6f  | 26..H.. num=pro|
00000790  63 73 28 63 68 65 63 6b  29 20 8c 20 75 73 65 64  |cs(check) . used|
000007a0  3d b9 0d 03 52 0b ed 20  63 68 65 63 6b 0d 03 5c  |=...R.. check..\|
000007b0  05 e1 0d 03 66 0f dd f2  63 6f 6e 73 74 72 75 63  |....f...construc|
000007c0  74 0d 03 70 1d ef 32 33  2c 31 2c 30 2c 30 2c 30  |t..p..23,1,0,0,0|
000007d0  2c 30 2c 30 2c 30 2c 30  2c 30 2c 30 2c 30 0d 03  |,0,0,0,0,0,0,0..|
000007e0  7a 0b 70 61 67 65 3d 53  25 0d 03 84 16 e3 20 6c  |z.page=S%..... l|
000007f0  6f 6f 70 3d 31 20 b8 20  6e 75 6d 62 65 72 25 0d  |oop=1 . number%.|
00000800  03 8e 2c ff 28 22 4c 4f  41 44 20 22 2b 6e 61 6d  |..,.("LOAD "+nam|
00000810  65 24 28 70 72 6f 63 73  28 6c 6f 6f 70 29 29 2b  |e$(procs(loop))+|
00000820  22 20 22 2b c3 7e 70 61  67 65 29 0d 03 98 1c 41  |" "+.~page)....A|
00000830  25 3d 8e 28 6e 61 6d 65  24 28 70 72 6f 63 73 28  |%=.(name$(procs(|
00000840  6c 6f 6f 70 29 29 29 0d  03 a2 0c 6c 65 6e 3d a2  |loop)))....len=.|
00000850  23 41 25 0d 03 ac 08 d9  23 41 25 0d 03 b6 15 70  |#A%.....#A%....p|
00000860  61 67 65 3d 70 61 67 65  2b 28 6c 65 6e 2d 32 29  |age=page+(len-2)|
00000870  0d 03 c0 0a ed 20 6c 6f  6f 70 0d 03 ca 05 e1 0d  |..... loop......|
00000880  03 d4 0c dd f2 72 65 74  75 72 6e 0d 03 de 36 f1  |.....return...6.|
00000890  8a 30 2c 32 32 29 22 50  6c 65 61 73 65 20 65 6e  |.0,22)"Please en|
000008a0  74 65 72 20 6c 69 6e 65  20 6e 75 6d 62 65 72 20  |ter line number |
000008b0  74 6f 20 73 74 61 72 74  20 66 72 6f 6d 20 20 22  |to start from  "|
000008c0  3b 0d 03 e8 16 f1 8a 30  2c 32 33 29 22 3d 3e 20  |;......0,23)"=> |
000008d0  22 3b 89 28 33 30 29 0d  03 f2 12 e8 8a 33 2c 32  |";.(30)......3,2|
000008e0  33 29 6c 69 6e 65 6e 75  6d 0d 03 fc 48 ff 28 22  |3)linenum...H.("|
000008f0  4b 2e 30 20 50 41 47 45  3d 22 2b c3 28 53 25 29  |K.0 PAGE="+.(S%)|
00000900  2b 22 7c 4d 45 4e 44 7c  4d 52 45 4e 2e 22 2b c3  |+"|MEND|MREN."+.|
00000910  28 6c 69 6e 65 6e 75 6d  29 2b 22 7c 4d 56 44 55  |(linenum)+"|MVDU|
00000920  36 7c 4d 4d 4f 2e 37 7c  4d 4c 49 53 54 7c 4d 22  |6|MMO.7|MLIST|M"|
00000930  29 0d 04 06 07 ef 32 31  0d 04 10 10 2a 46 58 31  |).....21....*FX1|
00000940  33 38 2c 30 2c 31 32 38  0d 04 1a 05 e0 0d 04 24  |38,0,128.......$|
00000950  05 e1 0d ff                                       |....|
00000954