�� � � �=-2147483646 � �=0 E+=1:�message(T$,C$) � � "ERROR The Messages program has crashed, the reason being: "+�$+" at line "+�(�)+" Type="+�(�)
E=0
ș"OS_GetEnv"� X$
3S$="Press any key or mouse button to continue."
8B$=�X$,�X$,".!RISCutils.!Help.!Run")+24):p=300:p$=""
p$=�B$,1,1)
� �p$,"Escape")>0 �
�� p$="" T$="Message from ":C$="You must have a program capable of displaying Draw files, to read this package's main help files. The text versions are for low memory machines only.":�"Filer_OpenDir <RISCutils$Path>.!Help.Help�Files":�message(T$,C$)
	

+� �B$,"Not open for update")<>0 �ACCESS

8� p$="C" VER$="Cycle":�SELECTCOMMAND:�message(T$,C$)

9� p$="R" VER$="Random":�SELECTCOMMAND:�message(T$,C$)
$� p$="P" �PCCARD:�message(T$,C$)
%� p$="S" �IF_TASK:�message(T$,C$)

p=� p$
(� p>0 � p<4 �IF_TASK:�message(T$,C$)
#� p=4 �BACKDROP:�message(T$,C$)
&� p=6 �Comm_Record:�message(T$,C$)
!� p=7 �KEYNUM:�message(T$,C$)
#� p=8 �KEYSTATE:�message(T$,C$)
 � p=9 �MOUSE:�message(T$,C$)
�

Z� ************************************************************************************

� �ACCESS
�C$="Some of RISCutils's files have the 'Access' settings 'Write-Protected'. Please change them to 'Write-Enabled'. Do not set any part of RISCutils to 'Write-Protected'. RISCutils will not function properly until the settings have been changed."
$T$="Error from ":�message(T$,C$)
�
-path%=� "<RISCutils$Path>.Non_User.DataC"
�#path%
 -path%=� "<RISCutils$Path>.Non_User.DataR"
!�#path%
"-path%=� "<RISCutils$Path>.Non_User.DataB"
#�#path%
$0� "Access <RISCutils$Path>.Non_User.DataB W"
%0� "Access <RISCutils$Path>.Non_User.DataC W"
&0� "Access <RISCutils$Path>.Non_User.DataB W"
'�
(-�****************************************
)
� �PCCARD
*�C$="Do not use the 'Shut' or 'Close' commands when the PC Card Software is running. If you need to access a PC partition from RISC OS, quit the PC Card Software first."
+T$="Warning from "
,�
-Z� ************************************************************************************
.� �IF_TASK
/dq$=" Please check the Help file for an explanation of the parameters, and the format they take."
0�� p=1 � �B$,"|M")=0 C$="The If_Task component has crashed, the reason being: "+�B$,3):� ��B$,3),"not found")<>0 C$=�C$,0,�C$," at line"))
1�� p$="S" � �B$,"|M")=0 C$="The Prevent_Shut_Command_ When_PCcard_Is_Running component has crashed, the reason being: "+�B$,3):� ��B$,3),"not found")<>0 C$=�C$,0,�C$," at line"))
2�� IF p=1 AND INSTR(B$,"|M")>0 C$="If_Task - The command  : "+MID$(B$,3)+"  : cannot be carried out, please alter it and try again. To find out why it cannot be carried out try entering it at the command line, independantly of RISCutils."
3�� p=2 C$="If_Task - no parameters given, the command cannot be carried out unless parameters are given when the command is issued."+q$
4�� p=3 C$="If_Task - Syntax : either no parameter names (=present / =notpresent) were entered, or they were entered incorrectly."+q$
5T$="Error from "
6�
75� ************** Key�Num ************************
8
� �KEYNUM
9�C$="The Check_KeyboardNumber component has crashed, the reason being: "+�B$,3):� ��B$,3),"not found")<>0 C$=�C$,0,�C$," at line"))
:T$="Error from "
;�
<6� ************** Backdrop ************************
=� �BACKDROP
>�� �B$,3)="Pres?" B$="  The file - !RISCutils.User_Area.Files.Backdrops (note the spelling of the file-name) does not exist. It must exist for the Backdrop component to work. See the Help-File for further reference." 
?�C$="The BackDrop component has crashed, the reason being: "+�B$,3):� ��B$,3),"not found")>0 � ��B$,3),"Parameters")>0 � ��B$,3),"Filing system")>0 C$=�C$,0,�C$," at line"))
@T$="Error from "
A�
B3� ************** Mouse ************************
C� �MOUSE
D�C$="The Check_MouseState component has crashed, the reason being: "+�B$,3):� ��B$,3),"not found")<>0 C$=�C$,0,�C$," at line"))
E=� "Set Alias$BackDrop <RISCutils$Path>.NonUser.Backdrop "
FT$="Error from "
G�
H<� ************** SelectCommand_ ************************
I� �SELECTCOMMAND
J<� VER$="Random" ADD$="!RISCutils. " � ADD$="!RISCutils."
K�� �B$,3)="Pres?" B$="  The file - "+ADD$+"User_Area.Files.Commands (note the file-name's spelling) does not exist. It must exist for the component to work. See the Help-File for further reference."                       
L�C$="The SelectCommand_"+VER$+" component has crashed, the reason being: "+�B$,3):� ��B$,3),"not found")<>0 C$=�C$,0,�C$," at line"))
MT$="Error from "
N�
O9� ************** Comm_Record ************************
P� �Comm_Record
Q�C$="The Command_Record component has crashed, the reason being: "+�B$,3):� ��B$,3),"not found")<>0 C$=�C$,0,�C$," at line"))
RT$="Error from "
S�
T7� ************** Key-state ************************
U� �KEYSTATE
V�C$="The Check_KeyboardState component has crashed, the reason being: "+�B$,3):� ��B$,3),"not found")<>0 C$=�C$,0,�C$," at line"))
WT$="Error from "
X�
Y3� *********************************************
Z� �message(f$,g$)
[� k%256
\Lf$+="RISCutils":k%!0=0:$(k%+4)=g$+�0:ș262367,k%,273,f$,"!RISCutils",0,0
]�
^"� ****************************
_E� E=1 ș "Wimp_ForceRedraw",-1,0,0,&7FFF,&7FFF:ș"Wimp_SetMode",�
`� "SET F "+�(E)
a:� E>1 � f$" RISCutils - ":� g$:�:� S$:�:ȗ X,O,I:ș&6,
b>,0�,K:� I>0�K<>255:ș"Wimp_SetMode",�:ș"Wimp_SetMode",�:�
c�� ON ERROR IF ERR=-2147483646 AND ERL=0 E+=1:PROCmessage(T$,C$) ELSE OSCLI "ERROR The Messages program has crashed, the reason being: "+REPORT$+" at line "+STR$(ERL)+" Type="+STR$(ERR)
d�� ON ERROR OSCLI "ERROR The RISCutils Messages program has crashed, the reason being: "+REPORT$+" at line "+STR$(ERL)+" Type="+STR$(ERR)
�

00000000  0d 00 01 95 ee 20 85 20  e7 20 9f 3d 2d 32 31 34  |..... . . .=-214|
00000010  37 34 38 33 36 34 36 20  80 20 9e 3d 30 20 45 2b  |7483646 . .=0 E+|
00000020  3d 31 3a f2 6d 65 73 73  61 67 65 28 54 24 2c 43  |=1:.message(T$,C|
00000030  24 29 20 8b 20 ff 20 22  45 52 52 4f 52 20 54 68  |$) . . "ERROR Th|
00000040  65 20 4d 65 73 73 61 67  65 73 20 70 72 6f 67 72  |e Messages progr|
00000050  61 6d 20 68 61 73 20 63  72 61 73 68 65 64 2c 20  |am has crashed, |
00000060  74 68 65 20 72 65 61 73  6f 6e 20 62 65 69 6e 67  |the reason being|
00000070  3a 20 22 2b f6 24 2b 22  20 61 74 20 6c 69 6e 65  |: "+.$+" at line|
00000080  20 22 2b c3 28 9e 29 2b  22 20 54 79 70 65 3d 22  | "+.(.)+" Type="|
00000090  2b c3 28 9f 29 0d 00 02  07 45 3d 30 0d 00 03 15  |+.(.)....E=0....|
000000a0  c8 99 22 4f 53 5f 47 65  74 45 6e 76 22 b8 20 58  |.."OS_GetEnv". X|
000000b0  24 0d 00 04 33 53 24 3d  22 50 72 65 73 73 20 61  |$...3S$="Press a|
000000c0  6e 79 20 6b 65 79 20 6f  72 20 6d 6f 75 73 65 20  |ny key or mouse |
000000d0  62 75 74 74 6f 6e 20 74  6f 20 63 6f 6e 74 69 6e  |button to contin|
000000e0  75 65 2e 22 0d 00 05 38  42 24 3d c1 58 24 2c a7  |ue."...8B$=.X$,.|
000000f0  58 24 2c 22 2e 21 52 49  53 43 75 74 69 6c 73 2e  |X$,".!RISCutils.|
00000100  21 48 65 6c 70 2e 21 52  75 6e 22 29 2b 32 34 29  |!Help.!Run")+24)|
00000110  3a 70 3d 33 30 30 3a 70  24 3d 22 22 0d 00 06 0f  |:p=300:p$=""....|
00000120  70 24 3d c1 42 24 2c 31  2c 31 29 0d 00 07 17 e7  |p$=.B$,1,1).....|
00000130  20 a7 70 24 2c 22 45 73  63 61 70 65 22 29 3e 30  | .p$,"Escape")>0|
00000140  20 e0 0d 00 08 fc e7 20  70 24 3d 22 22 20 54 24  | ...... p$="" T$|
00000150  3d 22 4d 65 73 73 61 67  65 20 66 72 6f 6d 20 22  |="Message from "|
00000160  3a 43 24 3d 22 59 6f 75  20 6d 75 73 74 20 68 61  |:C$="You must ha|
00000170  76 65 20 61 20 70 72 6f  67 72 61 6d 20 63 61 70  |ve a program cap|
00000180  61 62 6c 65 20 6f 66 20  64 69 73 70 6c 61 79 69  |able of displayi|
00000190  6e 67 20 44 72 61 77 20  66 69 6c 65 73 2c 20 74  |ng Draw files, t|
000001a0  6f 20 72 65 61 64 20 74  68 69 73 20 70 61 63 6b  |o read this pack|
000001b0  61 67 65 27 73 20 6d 61  69 6e 20 68 65 6c 70 20  |age's main help |
000001c0  66 69 6c 65 73 2e 20 54  68 65 20 74 65 78 74 20  |files. The text |
000001d0  76 65 72 73 69 6f 6e 73  20 61 72 65 20 66 6f 72  |versions are for|
000001e0  20 6c 6f 77 20 6d 65 6d  6f 72 79 20 6d 61 63 68  | low memory mach|
000001f0  69 6e 65 73 20 6f 6e 6c  79 2e 22 3a ff 22 46 69  |ines only.":."Fi|
00000200  6c 65 72 5f 4f 70 65 6e  44 69 72 20 3c 52 49 53  |ler_OpenDir <RIS|
00000210  43 75 74 69 6c 73 24 50  61 74 68 3e 2e 21 48 65  |Cutils$Path>.!He|
00000220  6c 70 2e 48 65 6c 70 a0  46 69 6c 65 73 22 3a f2  |lp.Help.Files":.|
00000230  6d 65 73 73 61 67 65 28  54 24 2c 43 24 29 0d 00  |message(T$,C$)..|
00000240  09 04 0d 00 0a 2b e7 20  a7 42 24 2c 22 4e 6f 74  |.....+. .B$,"Not|
00000250  20 6f 70 65 6e 20 66 6f  72 20 75 70 64 61 74 65  | open for update|
00000260  22 29 3c 3e 30 20 f2 41  43 43 45 53 53 0d 00 0b  |")<>0 .ACCESS...|
00000270  04 0d 00 0c 38 e7 20 70  24 3d 22 43 22 20 56 45  |....8. p$="C" VE|
00000280  52 24 3d 22 43 79 63 6c  65 22 3a f2 53 45 4c 45  |R$="Cycle":.SELE|
00000290  43 54 43 4f 4d 4d 41 4e  44 3a f2 6d 65 73 73 61  |CTCOMMAND:.messa|
000002a0  67 65 28 54 24 2c 43 24  29 0d 00 0d 39 e7 20 70  |ge(T$,C$)...9. p|
000002b0  24 3d 22 52 22 20 56 45  52 24 3d 22 52 61 6e 64  |$="R" VER$="Rand|
000002c0  6f 6d 22 3a f2 53 45 4c  45 43 54 43 4f 4d 4d 41  |om":.SELECTCOMMA|
000002d0  4e 44 3a f2 6d 65 73 73  61 67 65 28 54 24 2c 43  |ND:.message(T$,C|
000002e0  24 29 0d 00 0e 24 e7 20  70 24 3d 22 50 22 20 f2  |$)...$. p$="P" .|
000002f0  50 43 43 41 52 44 3a f2  6d 65 73 73 61 67 65 28  |PCCARD:.message(|
00000300  54 24 2c 43 24 29 0d 00  0f 25 e7 20 70 24 3d 22  |T$,C$)...%. p$="|
00000310  53 22 20 f2 49 46 5f 54  41 53 4b 3a f2 6d 65 73  |S" .IF_TASK:.mes|
00000320  73 61 67 65 28 54 24 2c  43 24 29 0d 00 10 0a 70  |sage(T$,C$)....p|
00000330  3d bb 20 70 24 0d 00 11  28 e7 20 70 3e 30 20 80  |=. p$...(. p>0 .|
00000340  20 70 3c 34 20 f2 49 46  5f 54 41 53 4b 3a f2 6d  | p<4 .IF_TASK:.m|
00000350  65 73 73 61 67 65 28 54  24 2c 43 24 29 0d 00 12  |essage(T$,C$)...|
00000360  23 e7 20 70 3d 34 20 f2  42 41 43 4b 44 52 4f 50  |#. p=4 .BACKDROP|
00000370  3a f2 6d 65 73 73 61 67  65 28 54 24 2c 43 24 29  |:.message(T$,C$)|
00000380  0d 00 13 26 e7 20 70 3d  36 20 f2 43 6f 6d 6d 5f  |...&. p=6 .Comm_|
00000390  52 65 63 6f 72 64 3a f2  6d 65 73 73 61 67 65 28  |Record:.message(|
000003a0  54 24 2c 43 24 29 0d 00  14 21 e7 20 70 3d 37 20  |T$,C$)...!. p=7 |
000003b0  f2 4b 45 59 4e 55 4d 3a  f2 6d 65 73 73 61 67 65  |.KEYNUM:.message|
000003c0  28 54 24 2c 43 24 29 0d  00 15 23 e7 20 70 3d 38  |(T$,C$)...#. p=8|
000003d0  20 f2 4b 45 59 53 54 41  54 45 3a f2 6d 65 73 73  | .KEYSTATE:.mess|
000003e0  61 67 65 28 54 24 2c 43  24 29 0d 00 16 20 e7 20  |age(T$,C$)... . |
000003f0  70 3d 39 20 f2 4d 4f 55  53 45 3a f2 6d 65 73 73  |p=9 .MOUSE:.mess|
00000400  61 67 65 28 54 24 2c 43  24 29 0d 00 17 05 e0 0d  |age(T$,C$)......|
00000410  00 18 04 0d 00 19 5a f4  20 2a 2a 2a 2a 2a 2a 2a  |......Z. *******|
00000420  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00000460  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 0d 00 1a  |*************...|
00000470  0d dd 20 f2 41 43 43 45  53 53 0d 00 1b f9 43 24  |.. .ACCESS....C$|
00000480  3d 22 53 6f 6d 65 20 6f  66 20 52 49 53 43 75 74  |="Some of RISCut|
00000490  69 6c 73 27 73 20 66 69  6c 65 73 20 68 61 76 65  |ils's files have|
000004a0  20 74 68 65 20 27 41 63  63 65 73 73 27 20 73 65  | the 'Access' se|
000004b0  74 74 69 6e 67 73 20 27  57 72 69 74 65 2d 50 72  |ttings 'Write-Pr|
000004c0  6f 74 65 63 74 65 64 27  2e 20 50 6c 65 61 73 65  |otected'. Please|
000004d0  20 63 68 61 6e 67 65 20  74 68 65 6d 20 74 6f 20  | change them to |
000004e0  27 57 72 69 74 65 2d 45  6e 61 62 6c 65 64 27 2e  |'Write-Enabled'.|
000004f0  20 44 6f 20 6e 6f 74 20  73 65 74 20 61 6e 79 20  | Do not set any |
00000500  70 61 72 74 20 6f 66 20  52 49 53 43 75 74 69 6c  |part of RISCutil|
00000510  73 20 74 6f 20 27 57 72  69 74 65 2d 50 72 6f 74  |s to 'Write-Prot|
00000520  65 63 74 65 64 27 2e 20  52 49 53 43 75 74 69 6c  |ected'. RISCutil|
00000530  73 20 77 69 6c 6c 20 6e  6f 74 20 66 75 6e 63 74  |s will not funct|
00000540  69 6f 6e 20 70 72 6f 70  65 72 6c 79 20 75 6e 74  |ion properly unt|
00000550  69 6c 20 74 68 65 20 73  65 74 74 69 6e 67 73 20  |il the settings |
00000560  68 61 76 65 20 62 65 65  6e 20 63 68 61 6e 67 65  |have been change|
00000570  64 2e 22 0d 00 1c 24 54  24 3d 22 45 72 72 6f 72  |d."...$T$="Error|
00000580  20 66 72 6f 6d 20 22 3a  f2 6d 65 73 73 61 67 65  | from ":.message|
00000590  28 54 24 2c 43 24 29 0d  00 1d 05 e1 0d 00 1e 2d  |(T$,C$)........-|
000005a0  70 61 74 68 25 3d ad 20  22 3c 52 49 53 43 75 74  |path%=. "<RISCut|
000005b0  69 6c 73 24 50 61 74 68  3e 2e 4e 6f 6e 5f 55 73  |ils$Path>.Non_Us|
000005c0  65 72 2e 44 61 74 61 43  22 0d 00 1f 0b d9 23 70  |er.DataC".....#p|
000005d0  61 74 68 25 0d 00 20 2d  70 61 74 68 25 3d ad 20  |ath%.. -path%=. |
000005e0  22 3c 52 49 53 43 75 74  69 6c 73 24 50 61 74 68  |"<RISCutils$Path|
000005f0  3e 2e 4e 6f 6e 5f 55 73  65 72 2e 44 61 74 61 52  |>.Non_User.DataR|
00000600  22 0d 00 21 0b d9 23 70  61 74 68 25 0d 00 22 2d  |"..!..#path%.."-|
00000610  70 61 74 68 25 3d ad 20  22 3c 52 49 53 43 75 74  |path%=. "<RISCut|
00000620  69 6c 73 24 50 61 74 68  3e 2e 4e 6f 6e 5f 55 73  |ils$Path>.Non_Us|
00000630  65 72 2e 44 61 74 61 42  22 0d 00 23 0b d9 23 70  |er.DataB"..#..#p|
00000640  61 74 68 25 0d 00 24 30  ff 20 22 41 63 63 65 73  |ath%..$0. "Acces|
00000650  73 20 3c 52 49 53 43 75  74 69 6c 73 24 50 61 74  |s <RISCutils$Pat|
00000660  68 3e 2e 4e 6f 6e 5f 55  73 65 72 2e 44 61 74 61  |h>.Non_User.Data|
00000670  42 20 57 22 0d 00 25 30  ff 20 22 41 63 63 65 73  |B W"..%0. "Acces|
00000680  73 20 3c 52 49 53 43 75  74 69 6c 73 24 50 61 74  |s <RISCutils$Pat|
00000690  68 3e 2e 4e 6f 6e 5f 55  73 65 72 2e 44 61 74 61  |h>.Non_User.Data|
000006a0  43 20 57 22 0d 00 26 30  ff 20 22 41 63 63 65 73  |C W"..&0. "Acces|
000006b0  73 20 3c 52 49 53 43 75  74 69 6c 73 24 50 61 74  |s <RISCutils$Pat|
000006c0  68 3e 2e 4e 6f 6e 5f 55  73 65 72 2e 44 61 74 61  |h>.Non_User.Data|
000006d0  42 20 57 22 0d 00 27 05  e1 0d 00 28 2d f4 2a 2a  |B W"..'....(-.**|
000006e0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00000700  2a 2a 2a 2a 2a 2a 0d 00  29 0d dd 20 f2 50 43 43  |******..).. .PCC|
00000710  41 52 44 0d 00 2a ac 43  24 3d 22 44 6f 20 6e 6f  |ARD..*.C$="Do no|
00000720  74 20 75 73 65 20 74 68  65 20 27 53 68 75 74 27  |t use the 'Shut'|
00000730  20 6f 72 20 27 43 6c 6f  73 65 27 20 63 6f 6d 6d  | or 'Close' comm|
00000740  61 6e 64 73 20 77 68 65  6e 20 74 68 65 20 50 43  |ands when the PC|
00000750  20 43 61 72 64 20 53 6f  66 74 77 61 72 65 20 69  | Card Software i|
00000760  73 20 72 75 6e 6e 69 6e  67 2e 20 49 66 20 79 6f  |s running. If yo|
00000770  75 20 6e 65 65 64 20 74  6f 20 61 63 63 65 73 73  |u need to access|
00000780  20 61 20 50 43 20 70 61  72 74 69 74 69 6f 6e 20  | a PC partition |
00000790  66 72 6f 6d 20 52 49 53  43 20 4f 53 2c 20 71 75  |from RISC OS, qu|
000007a0  69 74 20 74 68 65 20 50  43 20 43 61 72 64 20 53  |it the PC Card S|
000007b0  6f 66 74 77 61 72 65 20  66 69 72 73 74 2e 22 0d  |oftware first.".|
000007c0  00 2b 16 54 24 3d 22 57  61 72 6e 69 6e 67 20 66  |.+.T$="Warning f|
000007d0  72 6f 6d 20 22 0d 00 2c  05 e1 0d 00 2d 5a f4 20  |rom "..,....-Z. |
000007e0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00000830  2a 2a 2a 2a 0d 00 2e 0e  dd 20 f2 49 46 5f 54 41  |****..... .IF_TA|
00000840  53 4b 0d 00 2f 64 71 24  3d 22 20 50 6c 65 61 73  |SK../dq$=" Pleas|
00000850  65 20 63 68 65 63 6b 20  74 68 65 20 48 65 6c 70  |e check the Help|
00000860  20 66 69 6c 65 20 66 6f  72 20 61 6e 20 65 78 70  | file for an exp|
00000870  6c 61 6e 61 74 69 6f 6e  20 6f 66 20 74 68 65 20  |lanation of the |
00000880  70 61 72 61 6d 65 74 65  72 73 2c 20 61 6e 64 20  |parameters, and |
00000890  74 68 65 20 66 6f 72 6d  61 74 20 74 68 65 79 20  |the format they |
000008a0  74 61 6b 65 2e 22 0d 00  30 8d e7 20 70 3d 31 20  |take."..0.. p=1 |
000008b0  80 20 a7 42 24 2c 22 7c  4d 22 29 3d 30 20 43 24  |. .B$,"|M")=0 C$|
000008c0  3d 22 54 68 65 20 49 66  5f 54 61 73 6b 20 63 6f  |="The If_Task co|
000008d0  6d 70 6f 6e 65 6e 74 20  68 61 73 20 63 72 61 73  |mponent has cras|
000008e0  68 65 64 2c 20 74 68 65  20 72 65 61 73 6f 6e 20  |hed, the reason |
000008f0  62 65 69 6e 67 3a 20 22  2b c1 42 24 2c 33 29 3a  |being: "+.B$,3):|
00000900  e7 20 a7 c1 42 24 2c 33  29 2c 22 6e 6f 74 20 66  |. ..B$,3),"not f|
00000910  6f 75 6e 64 22 29 3c 3e  30 20 43 24 3d c1 43 24  |ound")<>0 C$=.C$|
00000920  2c 30 2c a7 43 24 2c 22  20 61 74 20 6c 69 6e 65  |,0,.C$," at line|
00000930  22 29 29 0d 00 31 b5 e7  20 70 24 3d 22 53 22 20  |"))..1.. p$="S" |
00000940  80 20 a7 42 24 2c 22 7c  4d 22 29 3d 30 20 43 24  |. .B$,"|M")=0 C$|
00000950  3d 22 54 68 65 20 50 72  65 76 65 6e 74 5f 53 68  |="The Prevent_Sh|
00000960  75 74 5f 43 6f 6d 6d 61  6e 64 5f 20 57 68 65 6e  |ut_Command_ When|
00000970  5f 50 43 63 61 72 64 5f  49 73 5f 52 75 6e 6e 69  |_PCcard_Is_Runni|
00000980  6e 67 20 63 6f 6d 70 6f  6e 65 6e 74 20 68 61 73  |ng component has|
00000990  20 63 72 61 73 68 65 64  2c 20 74 68 65 20 72 65  | crashed, the re|
000009a0  61 73 6f 6e 20 62 65 69  6e 67 3a 20 22 2b c1 42  |ason being: "+.B|
000009b0  24 2c 33 29 3a e7 20 a7  c1 42 24 2c 33 29 2c 22  |$,3):. ..B$,3),"|
000009c0  6e 6f 74 20 66 6f 75 6e  64 22 29 3c 3e 30 20 43  |not found")<>0 C|
000009d0  24 3d c1 43 24 2c 30 2c  a7 43 24 2c 22 20 61 74  |$=.C$,0,.C$," at|
000009e0  20 6c 69 6e 65 22 29 29  0d 00 32 f1 f4 20 49 46  | line"))..2.. IF|
000009f0  20 70 3d 31 20 41 4e 44  20 49 4e 53 54 52 28 42  | p=1 AND INSTR(B|
00000a00  24 2c 22 7c 4d 22 29 3e  30 20 43 24 3d 22 49 66  |$,"|M")>0 C$="If|
00000a10  5f 54 61 73 6b 20 2d 20  54 68 65 20 63 6f 6d 6d  |_Task - The comm|
00000a20  61 6e 64 20 20 3a 20 22  2b 4d 49 44 24 28 42 24  |and  : "+MID$(B$|
00000a30  2c 33 29 2b 22 20 20 3a  20 63 61 6e 6e 6f 74 20  |,3)+"  : cannot |
00000a40  62 65 20 63 61 72 72 69  65 64 20 6f 75 74 2c 20  |be carried out, |
00000a50  70 6c 65 61 73 65 20 61  6c 74 65 72 20 69 74 20  |please alter it |
00000a60  61 6e 64 20 74 72 79 20  61 67 61 69 6e 2e 20 54  |and try again. T|
00000a70  6f 20 66 69 6e 64 20 6f  75 74 20 77 68 79 20 69  |o find out why i|
00000a80  74 20 63 61 6e 6e 6f 74  20 62 65 20 63 61 72 72  |t cannot be carr|
00000a90  69 65 64 20 6f 75 74 20  74 72 79 20 65 6e 74 65  |ied out try ente|
00000aa0  72 69 6e 67 20 69 74 20  61 74 20 74 68 65 20 63  |ring it at the c|
00000ab0  6f 6d 6d 61 6e 64 20 6c  69 6e 65 2c 20 69 6e 64  |ommand line, ind|
00000ac0  65 70 65 6e 64 61 6e 74  6c 79 20 6f 66 20 52 49  |ependantly of RI|
00000ad0  53 43 75 74 69 6c 73 2e  22 0d 00 33 8a e7 20 70  |SCutils."..3.. p|
00000ae0  3d 32 20 43 24 3d 22 49  66 5f 54 61 73 6b 20 2d  |=2 C$="If_Task -|
00000af0  20 6e 6f 20 70 61 72 61  6d 65 74 65 72 73 20 67  | no parameters g|
00000b00  69 76 65 6e 2c 20 74 68  65 20 63 6f 6d 6d 61 6e  |iven, the comman|
00000b10  64 20 63 61 6e 6e 6f 74  20 62 65 20 63 61 72 72  |d cannot be carr|
00000b20  69 65 64 20 6f 75 74 20  75 6e 6c 65 73 73 20 70  |ied out unless p|
00000b30  61 72 61 6d 65 74 65 72  73 20 61 72 65 20 67 69  |arameters are gi|
00000b40  76 65 6e 20 77 68 65 6e  20 74 68 65 20 63 6f 6d  |ven when the com|
00000b50  6d 61 6e 64 20 69 73 20  69 73 73 75 65 64 2e 22  |mand is issued."|
00000b60  2b 71 24 0d 00 34 87 e7  20 70 3d 33 20 43 24 3d  |+q$..4.. p=3 C$=|
00000b70  22 49 66 5f 54 61 73 6b  20 2d 20 53 79 6e 74 61  |"If_Task - Synta|
00000b80  78 20 3a 20 65 69 74 68  65 72 20 6e 6f 20 70 61  |x : either no pa|
00000b90  72 61 6d 65 74 65 72 20  6e 61 6d 65 73 20 28 3d  |rameter names (=|
00000ba0  70 72 65 73 65 6e 74 20  2f 20 3d 6e 6f 74 70 72  |present / =notpr|
00000bb0  65 73 65 6e 74 29 20 77  65 72 65 20 65 6e 74 65  |esent) were ente|
00000bc0  72 65 64 2c 20 6f 72 20  74 68 65 79 20 77 65 72  |red, or they wer|
00000bd0  65 20 65 6e 74 65 72 65  64 20 69 6e 63 6f 72 72  |e entered incorr|
00000be0  65 63 74 6c 79 2e 22 2b  71 24 0d 00 35 14 54 24  |ectly."+q$..5.T$|
00000bf0  3d 22 45 72 72 6f 72 20  66 72 6f 6d 20 22 0d 00  |="Error from "..|
00000c00  36 05 e1 0d 00 37 35 f4  20 2a 2a 2a 2a 2a 2a 2a  |6....75. *******|
00000c10  2a 2a 2a 2a 2a 2a 2a 20  4b 65 79 a0 4e 75 6d 20  |******* Key.Num |
00000c20  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000c30  2a 2a 2a 2a 2a 2a 2a 2a  0d 00 38 0d dd 20 f2 4b  |********..8.. .K|
00000c40  45 59 4e 55 4d 0d 00 39  86 43 24 3d 22 54 68 65  |EYNUM..9.C$="The|
00000c50  20 43 68 65 63 6b 5f 4b  65 79 62 6f 61 72 64 4e  | Check_KeyboardN|
00000c60  75 6d 62 65 72 20 63 6f  6d 70 6f 6e 65 6e 74 20  |umber component |
00000c70  68 61 73 20 63 72 61 73  68 65 64 2c 20 74 68 65  |has crashed, the|
00000c80  20 72 65 61 73 6f 6e 20  62 65 69 6e 67 3a 20 22  | reason being: "|
00000c90  2b c1 42 24 2c 33 29 3a  e7 20 a7 c1 42 24 2c 33  |+.B$,3):. ..B$,3|
00000ca0  29 2c 22 6e 6f 74 20 66  6f 75 6e 64 22 29 3c 3e  |),"not found")<>|
00000cb0  30 20 43 24 3d c1 43 24  2c 30 2c a7 43 24 2c 22  |0 C$=.C$,0,.C$,"|
00000cc0  20 61 74 20 6c 69 6e 65  22 29 29 0d 00 3a 14 54  | at line"))..:.T|
00000cd0  24 3d 22 45 72 72 6f 72  20 66 72 6f 6d 20 22 0d  |$="Error from ".|
00000ce0  00 3b 05 e1 0d 00 3c 36  f4 20 2a 2a 2a 2a 2a 2a  |.;....<6. ******|
00000cf0  2a 2a 2a 2a 2a 2a 2a 2a  20 42 61 63 6b 64 72 6f  |******** Backdro|
00000d00  70 20 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |p **************|
00000d10  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 0d 00 3d 0f dd 20  |**********..=.. |
00000d20  f2 42 41 43 4b 44 52 4f  50 0d 00 3e dc e7 20 c1  |.BACKDROP..>.. .|
00000d30  42 24 2c 33 29 3d 22 50  72 65 73 3f 22 20 42 24  |B$,3)="Pres?" B$|
00000d40  3d 22 20 20 54 68 65 20  66 69 6c 65 20 2d 20 21  |="  The file - !|
00000d50  52 49 53 43 75 74 69 6c  73 2e 55 73 65 72 5f 41  |RISCutils.User_A|
00000d60  72 65 61 2e 46 69 6c 65  73 2e 42 61 63 6b 64 72  |rea.Files.Backdr|
00000d70  6f 70 73 20 28 6e 6f 74  65 20 74 68 65 20 73 70  |ops (note the sp|
00000d80  65 6c 6c 69 6e 67 20 6f  66 20 74 68 65 20 66 69  |elling of the fi|
00000d90  6c 65 2d 6e 61 6d 65 29  20 64 6f 65 73 20 6e 6f  |le-name) does no|
00000da0  74 20 65 78 69 73 74 2e  20 49 74 20 6d 75 73 74  |t exist. It must|
00000db0  20 65 78 69 73 74 20 66  6f 72 20 74 68 65 20 42  | exist for the B|
00000dc0  61 63 6b 64 72 6f 70 20  63 6f 6d 70 6f 6e 65 6e  |ackdrop componen|
00000dd0  74 20 74 6f 20 77 6f 72  6b 2e 20 53 65 65 20 74  |t to work. See t|
00000de0  68 65 20 48 65 6c 70 2d  46 69 6c 65 20 66 6f 72  |he Help-File for|
00000df0  20 66 75 72 74 68 65 72  20 72 65 66 65 72 65 6e  | further referen|
00000e00  63 65 2e 22 20 0d 00 3f  b0 43 24 3d 22 54 68 65  |ce." ..?.C$="The|
00000e10  20 42 61 63 6b 44 72 6f  70 20 63 6f 6d 70 6f 6e  | BackDrop compon|
00000e20  65 6e 74 20 68 61 73 20  63 72 61 73 68 65 64 2c  |ent has crashed,|
00000e30  20 74 68 65 20 72 65 61  73 6f 6e 20 62 65 69 6e  | the reason bein|
00000e40  67 3a 20 22 2b c1 42 24  2c 33 29 3a e7 20 a7 c1  |g: "+.B$,3):. ..|
00000e50  42 24 2c 33 29 2c 22 6e  6f 74 20 66 6f 75 6e 64  |B$,3),"not found|
00000e60  22 29 3e 30 20 84 20 a7  c1 42 24 2c 33 29 2c 22  |")>0 . ..B$,3),"|
00000e70  50 61 72 61 6d 65 74 65  72 73 22 29 3e 30 20 84  |Parameters")>0 .|
00000e80  20 a7 c1 42 24 2c 33 29  2c 22 46 69 6c 69 6e 67  | ..B$,3),"Filing|
00000e90  20 73 79 73 74 65 6d 22  29 3e 30 20 43 24 3d c1  | system")>0 C$=.|
00000ea0  43 24 2c 30 2c a7 43 24  2c 22 20 61 74 20 6c 69  |C$,0,.C$," at li|
00000eb0  6e 65 22 29 29 0d 00 40  14 54 24 3d 22 45 72 72  |ne"))..@.T$="Err|
00000ec0  6f 72 20 66 72 6f 6d 20  22 0d 00 41 05 e1 0d 00  |or from "..A....|
00000ed0  42 33 f4 20 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |B3. ************|
00000ee0  2a 2a 20 4d 6f 75 73 65  20 2a 2a 2a 2a 2a 2a 2a  |** Mouse *******|
00000ef0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000f00  2a 0d 00 43 0c dd 20 f2  4d 4f 55 53 45 0d 00 44  |*..C.. .MOUSE..D|
00000f10  82 43 24 3d 22 54 68 65  20 43 68 65 63 6b 5f 4d  |.C$="The Check_M|
00000f20  6f 75 73 65 53 74 61 74  65 20 63 6f 6d 70 6f 6e  |ouseState compon|
00000f30  65 6e 74 20 68 61 73 20  63 72 61 73 68 65 64 2c  |ent has crashed,|
00000f40  20 74 68 65 20 72 65 61  73 6f 6e 20 62 65 69 6e  | the reason bein|
00000f50  67 3a 20 22 2b c1 42 24  2c 33 29 3a e7 20 a7 c1  |g: "+.B$,3):. ..|
00000f60  42 24 2c 33 29 2c 22 6e  6f 74 20 66 6f 75 6e 64  |B$,3),"not found|
00000f70  22 29 3c 3e 30 20 43 24  3d c1 43 24 2c 30 2c a7  |")<>0 C$=.C$,0,.|
00000f80  43 24 2c 22 20 61 74 20  6c 69 6e 65 22 29 29 0d  |C$," at line")).|
00000f90  00 45 3d ff 20 22 53 65  74 20 41 6c 69 61 73 24  |.E=. "Set Alias$|
00000fa0  42 61 63 6b 44 72 6f 70  20 3c 52 49 53 43 75 74  |BackDrop <RISCut|
00000fb0  69 6c 73 24 50 61 74 68  3e 2e 4e 6f 6e 55 73 65  |ils$Path>.NonUse|
00000fc0  72 2e 42 61 63 6b 64 72  6f 70 20 22 0d 00 46 14  |r.Backdrop "..F.|
00000fd0  54 24 3d 22 45 72 72 6f  72 20 66 72 6f 6d 20 22  |T$="Error from "|
00000fe0  0d 00 47 05 e1 0d 00 48  3c f4 20 2a 2a 2a 2a 2a  |..G....H<. *****|
00000ff0  2a 2a 2a 2a 2a 2a 2a 2a  2a 20 53 65 6c 65 63 74  |********* Select|
00001000  43 6f 6d 6d 61 6e 64 5f  20 2a 2a 2a 2a 2a 2a 2a  |Command_ *******|
00001010  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00001020  2a 0d 00 49 14 dd 20 f2  53 45 4c 45 43 54 43 4f  |*..I.. .SELECTCO|
00001030  4d 4d 41 4e 44 0d 00 4a  3c e7 20 56 45 52 24 3d  |MMAND..J<. VER$=|
00001040  22 52 61 6e 64 6f 6d 22  20 41 44 44 24 3d 22 21  |"Random" ADD$="!|
00001050  52 49 53 43 75 74 69 6c  73 2e 20 22 20 8b 20 41  |RISCutils. " . A|
00001060  44 44 24 3d 22 21 52 49  53 43 75 74 69 6c 73 2e  |DD$="!RISCutils.|
00001070  22 0d 00 4b e0 e7 20 c1  42 24 2c 33 29 3d 22 50  |"..K.. .B$,3)="P|
00001080  72 65 73 3f 22 20 42 24  3d 22 20 20 54 68 65 20  |res?" B$="  The |
00001090  66 69 6c 65 20 2d 20 22  2b 41 44 44 24 2b 22 55  |file - "+ADD$+"U|
000010a0  73 65 72 5f 41 72 65 61  2e 46 69 6c 65 73 2e 43  |ser_Area.Files.C|
000010b0  6f 6d 6d 61 6e 64 73 20  28 6e 6f 74 65 20 74 68  |ommands (note th|
000010c0  65 20 66 69 6c 65 2d 6e  61 6d 65 27 73 20 73 70  |e file-name's sp|
000010d0  65 6c 6c 69 6e 67 29 20  64 6f 65 73 20 6e 6f 74  |elling) does not|
000010e0  20 65 78 69 73 74 2e 20  49 74 20 6d 75 73 74 20  | exist. It must |
000010f0  65 78 69 73 74 20 66 6f  72 20 74 68 65 20 63 6f  |exist for the co|
00001100  6d 70 6f 6e 65 6e 74 20  74 6f 20 77 6f 72 6b 2e  |mponent to work.|
00001110  20 53 65 65 20 74 68 65  20 48 65 6c 70 2d 46 69  | See the Help-Fi|
00001120  6c 65 20 66 6f 72 20 66  75 72 74 68 65 72 20 72  |le for further r|
00001130  65 66 65 72 65 6e 63 65  2e 22 20 20 20 20 20 20  |eference."      |
00001140  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001150  20 0d 00 4c 88 43 24 3d  22 54 68 65 20 53 65 6c  | ..L.C$="The Sel|
00001160  65 63 74 43 6f 6d 6d 61  6e 64 5f 22 2b 56 45 52  |ectCommand_"+VER|
00001170  24 2b 22 20 63 6f 6d 70  6f 6e 65 6e 74 20 68 61  |$+" component ha|
00001180  73 20 63 72 61 73 68 65  64 2c 20 74 68 65 20 72  |s crashed, the r|
00001190  65 61 73 6f 6e 20 62 65  69 6e 67 3a 20 22 2b c1  |eason being: "+.|
000011a0  42 24 2c 33 29 3a e7 20  a7 c1 42 24 2c 33 29 2c  |B$,3):. ..B$,3),|
000011b0  22 6e 6f 74 20 66 6f 75  6e 64 22 29 3c 3e 30 20  |"not found")<>0 |
000011c0  43 24 3d c1 43 24 2c 30  2c a7 43 24 2c 22 20 61  |C$=.C$,0,.C$," a|
000011d0  74 20 6c 69 6e 65 22 29  29 0d 00 4d 14 54 24 3d  |t line"))..M.T$=|
000011e0  22 45 72 72 6f 72 20 66  72 6f 6d 20 22 0d 00 4e  |"Error from "..N|
000011f0  05 e1 0d 00 4f 39 f4 20  2a 2a 2a 2a 2a 2a 2a 2a  |....O9. ********|
00001200  2a 2a 2a 2a 2a 2a 20 43  6f 6d 6d 5f 52 65 63 6f  |****** Comm_Reco|
00001210  72 64 20 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |rd *************|
00001220  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 0d 00 50 12 dd  |***********..P..|
00001230  20 f2 43 6f 6d 6d 5f 52  65 63 6f 72 64 0d 00 51  | .Comm_Record..Q|
00001240  80 43 24 3d 22 54 68 65  20 43 6f 6d 6d 61 6e 64  |.C$="The Command|
00001250  5f 52 65 63 6f 72 64 20  63 6f 6d 70 6f 6e 65 6e  |_Record componen|
00001260  74 20 68 61 73 20 63 72  61 73 68 65 64 2c 20 74  |t has crashed, t|
00001270  68 65 20 72 65 61 73 6f  6e 20 62 65 69 6e 67 3a  |he reason being:|
00001280  20 22 2b c1 42 24 2c 33  29 3a e7 20 a7 c1 42 24  | "+.B$,3):. ..B$|
00001290  2c 33 29 2c 22 6e 6f 74  20 66 6f 75 6e 64 22 29  |,3),"not found")|
000012a0  3c 3e 30 20 43 24 3d c1  43 24 2c 30 2c a7 43 24  |<>0 C$=.C$,0,.C$|
000012b0  2c 22 20 61 74 20 6c 69  6e 65 22 29 29 0d 00 52  |," at line"))..R|
000012c0  14 54 24 3d 22 45 72 72  6f 72 20 66 72 6f 6d 20  |.T$="Error from |
000012d0  22 0d 00 53 05 e1 0d 00  54 37 f4 20 2a 2a 2a 2a  |"..S....T7. ****|
000012e0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 20 4b 65 79 2d 73  |********** Key-s|
000012f0  74 61 74 65 20 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |tate ***********|
00001300  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 0d 00 55  |*************..U|
00001310  0f dd 20 f2 4b 45 59 53  54 41 54 45 0d 00 56 85  |.. .KEYSTATE..V.|
00001320  43 24 3d 22 54 68 65 20  43 68 65 63 6b 5f 4b 65  |C$="The Check_Ke|
00001330  79 62 6f 61 72 64 53 74  61 74 65 20 63 6f 6d 70  |yboardState comp|
00001340  6f 6e 65 6e 74 20 68 61  73 20 63 72 61 73 68 65  |onent has crashe|
00001350  64 2c 20 74 68 65 20 72  65 61 73 6f 6e 20 62 65  |d, the reason be|
00001360  69 6e 67 3a 20 22 2b c1  42 24 2c 33 29 3a e7 20  |ing: "+.B$,3):. |
00001370  a7 c1 42 24 2c 33 29 2c  22 6e 6f 74 20 66 6f 75  |..B$,3),"not fou|
00001380  6e 64 22 29 3c 3e 30 20  43 24 3d c1 43 24 2c 30  |nd")<>0 C$=.C$,0|
00001390  2c a7 43 24 2c 22 20 61  74 20 6c 69 6e 65 22 29  |,.C$," at line")|
000013a0  29 0d 00 57 14 54 24 3d  22 45 72 72 6f 72 20 66  |)..W.T$="Error f|
000013b0  72 6f 6d 20 22 0d 00 58  05 e1 0d 00 59 33 f4 20  |rom "..X....Y3. |
000013c0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
000013e0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 0d 00 5a  |*************..Z|
000013f0  15 dd 20 f2 6d 65 73 73  61 67 65 28 66 24 2c 67  |.. .message(f$,g|
00001400  24 29 0d 00 5b 0b de 20  6b 25 32 35 36 0d 00 5c  |$)..[.. k%256..\|
00001410  4c 66 24 2b 3d 22 52 49  53 43 75 74 69 6c 73 22  |Lf$+="RISCutils"|
00001420  3a 6b 25 21 30 3d 30 3a  24 28 6b 25 2b 34 29 3d  |:k%!0=0:$(k%+4)=|
00001430  67 24 2b bd 30 3a c8 99  32 36 32 33 36 37 2c 6b  |g$+.0:..262367,k|
00001440  25 2c 32 37 33 2c 66 24  2c 22 21 52 49 53 43 75  |%,273,f$,"!RISCu|
00001450  74 69 6c 73 22 2c 30 2c  30 0d 00 5d 05 e0 0d 00  |tils",0,0..]....|
00001460  5e 22 f4 20 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |^". ************|
00001470  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00001480  0d 00 5f 45 e7 20 45 3d  31 20 c8 99 20 22 57 69  |.._E. E=1 .. "Wi|
00001490  6d 70 5f 46 6f 72 63 65  52 65 64 72 61 77 22 2c  |mp_ForceRedraw",|
000014a0  2d 31 2c 30 2c 30 2c 26  37 46 46 46 2c 26 37 46  |-1,0,0,&7FFF,&7F|
000014b0  46 46 3a c8 99 22 57 69  6d 70 5f 53 65 74 4d 6f  |FF:.."Wimp_SetMo|
000014c0  64 65 22 2c eb 0d 00 60  13 ff 20 22 53 45 54 20  |de",...`.. "SET |
000014d0  46 20 22 2b c3 28 45 29  0d 00 61 3a e7 20 45 3e  |F "+.(E)..a:. E>|
000014e0  31 20 f1 20 66 24 22 20  52 49 53 43 75 74 69 6c  |1 . f$" RISCutil|
000014f0  73 20 2d 20 22 3a f1 20  67 24 3a f1 3a f1 20 53  |s - ":. g$:.:. S|
00001500  24 3a f5 3a c8 97 20 58  2c 4f 2c 49 3a c8 99 26  |$:.:.. X,O,I:..&|
00001510  36 2c 0d 00 62 3e 2c 30  b8 2c 4b 3a fd 20 49 3e  |6,..b>,0.,K:. I>|
00001520  30 84 4b 3c 3e 32 35 35  3a c8 99 22 57 69 6d 70  |0.K<>255:.."Wimp|
00001530  5f 53 65 74 4d 6f 64 65  22 2c eb 3a c8 99 22 57  |_SetMode",.:.."W|
00001540  69 6d 70 5f 53 65 74 4d  6f 64 65 22 2c eb 3a e0  |imp_SetMode",.:.|
00001550  0d 00 63 bc f4 20 4f 4e  20 45 52 52 4f 52 20 49  |..c.. ON ERROR I|
00001560  46 20 45 52 52 3d 2d 32  31 34 37 34 38 33 36 34  |F ERR=-214748364|
00001570  36 20 41 4e 44 20 45 52  4c 3d 30 20 45 2b 3d 31  |6 AND ERL=0 E+=1|
00001580  3a 50 52 4f 43 6d 65 73  73 61 67 65 28 54 24 2c  |:PROCmessage(T$,|
00001590  43 24 29 20 45 4c 53 45  20 4f 53 43 4c 49 20 22  |C$) ELSE OSCLI "|
000015a0  45 52 52 4f 52 20 54 68  65 20 4d 65 73 73 61 67  |ERROR The Messag|
000015b0  65 73 20 70 72 6f 67 72  61 6d 20 68 61 73 20 63  |es program has c|
000015c0  72 61 73 68 65 64 2c 20  74 68 65 20 72 65 61 73  |rashed, the reas|
000015d0  6f 6e 20 62 65 69 6e 67  3a 20 22 2b 52 45 50 4f  |on being: "+REPO|
000015e0  52 54 24 2b 22 20 61 74  20 6c 69 6e 65 20 22 2b  |RT$+" at line "+|
000015f0  53 54 52 24 28 45 52 4c  29 2b 22 20 54 79 70 65  |STR$(ERL)+" Type|
00001600  3d 22 2b 53 54 52 24 28  45 52 52 29 0d 00 64 8c  |="+STR$(ERR)..d.|
00001610  f4 20 4f 4e 20 45 52 52  4f 52 20 4f 53 43 4c 49  |. ON ERROR OSCLI|
00001620  20 22 45 52 52 4f 52 20  54 68 65 20 52 49 53 43  | "ERROR The RISC|
00001630  75 74 69 6c 73 20 4d 65  73 73 61 67 65 73 20 70  |utils Messages p|
00001640  72 6f 67 72 61 6d 20 68  61 73 20 63 72 61 73 68  |rogram has crash|
00001650  65 64 2c 20 74 68 65 20  72 65 61 73 6f 6e 20 62  |ed, the reason b|
00001660  65 69 6e 67 3a 20 22 2b  52 45 50 4f 52 54 24 2b  |eing: "+REPORT$+|
00001670  22 20 61 74 20 6c 69 6e  65 20 22 2b 53 54 52 24  |" at line "+STR$|
00001680  28 45 52 4c 29 2b 22 20  54 79 70 65 3d 22 2b 53  |(ERL)+" Type="+S|
00001690  54 52 24 28 45 52 52 29  0d ff                    |TR$(ERR)..|
0000169a