Home » Archimedes archive » Acorn User » AU 1997-06 B.adf » Extras » RiscUtils/!RuInstall/Install/Non_User/Function
RiscUtils/!RuInstall/Install/Non_User/Function
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 » Archimedes archive » Acorn User » AU 1997-06 B.adf » Extras |
| Filename: | RiscUtils/!RuInstall/Install/Non_User/Function |
| Read OK: | ✔ |
| File size: | 1028 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
1ON ERROR IF ERR=222 PROCM ELSE OSCLI "*ERROR RISCutils - "+REPORT$+" at line "+STR$(ERL):END
2p%=OPENUP "<RISCutils$Path>.Non_User.DataA"
3D$=GET$#p%
4O$=MID$(TIME$,5,6)
5CLOSE#p%
6D$=MID$(D$,6,1)+MID$(D$,4,1)+" "+MID$(D$,14,1)+MID$(D$,12,1)+MID$(D$,17,1)
7IF MID$(D$,4,3)=MID$(O$,4,3) PROCMAIN
8IF VAL LEFT$(O$,2)>VAL LEFT$(D$,2) K=1 ELSE PROCMAIN
9*copy <RISCutils$Path>.Non_User.KeyEVALFast <RISCutils$Path>.User_Area.programs.WSYfont.!WSYfont.!Run F~V~C
10*copy <RISCutils$Path>.Non_User.KCycle <RISCutils$Path>.!Run F~V~C
11*remove <RISCutils$path>.Non_User.Function
12*remove <RISCutils$path>.Non_User.Bcycle
13*remove <RISCutils$path>.Non_User.Brandom
14*remove <RISCutils$path>.Non_User.Ccycle
15*remove <RISCutils$path>.Non_User.Comm_Rec
16*remove <RISCutils$path>.Non_User.Crandom
17*remove <RISCutils$path>.Non_User.Fast
18*remove <RISCutils$path>.Non_User.If_Task
19*remove <RISCutils$path>.Non_User.KeyEVALNum
20*remove <RISCutils$path>.Non_User.KeyPad
21*remove <RISCutils$path>.Non_User.Lose
22*remove <RISCutils$path>.Non_User.Mouse
23*remove <RISCutils$path>.Non_User.NoClose
24*remove <RISCutils$path>.Non_User.Normal
25*remove <RISCutils$path>.Non_User.NoShut
26*Set Alias$If_Task <RISCutils$PATH>.Non_User.I I
27*Set Alias$Shut <RISCutils$PATH>.Non_User.I S
28*Set Alias$Close <RISCutils$PATH>.Non_User.I C
29*Set ALias$Remove_Caret <RISCutils$PATH>.Non_User.I R
30*Set ALias$Check_KeyboardState <RISCutils$PATH>.Non_User.I K
31*Set Alias$Check_KeyboardNumber <RISCutils$PATH>.Non_User.I N
32*Set Alias$Check_MouseState <RISCutils$PATH>.Non_User.I M
33*Set Alias$Select_Command_Cycle <RISCutils$PATH>.Non_User.I Y
34*Set Alias$Select_Command_Random <RISCutils$PATH>.Non_User.I A
35*Set Alias$Command_record <RISCutils$PATH>.Non_User.I E
36*Set Alias$BackDrop <RISCutils$Path>.Non_User.I B
37DIM k%256: g$="Your month's trial usage of RISCutils is over. Therefore RISCutils has been disabled. If you want to obtain a working version, see the registration details in the Help-Files."
38k%!0=0:$(k%+4)=g$+CHR$0:SYS262367,k%,273,"Message from RISCutils","!RISCutils",0,0
39END
40DEF PROCMAIN
41ON ERROR PRINT REPORT$ ERL ERR:END
42*IF If_Task="Y" OR If_Task="y" THEN Set Alias$If_Task <RISCutils$PATH>.Non_User.If_Task
43*IF Prevent_Close_&_Shut_Commands_When_PCcard_Is_Running="Y" OR Prevent_Close_&_Shut_Commands_When_PCcard_Is_Running="y" THEN Set Alias$Shut <RISCutils$PATH>.Non_User.noshut
44*IF Prevent_Close_&_Shut_Commands_When_PCcard_Is_Running="Y" OR Prevent_Close_&_Shut_Commands_When_PCcard_Is_Running="y" THEN Set Alias$Close <RISCutils$PATH>.Non_User.noclose
45*IF Remove_Caret="Y" OR Remove_Caret="y" THEN Set ALias$Remove_Caret TaskWindow "Run <RISCutils$PATH>.Non_User.Lose" -quit
46*IF Check_KeyboardState="Y" OR Check_KeyboardState="y" THEN Set ALias$Check_KeyboardState <RISCutils$PATH>.Non_User.<Check_KeyBoardState_Version>
47*IF Check_Keyboardnumber="Y" OR Check_Keyboardnumber="y" THEN Set Alias$Check_KeyboardNumber <RISCutils$PATH>.Non_User.KeyEVALNum
48*IF Check_MouseState="Y" OR Check_MouseState="y" THEN Set Alias$Check_MouseState <RISCutils$PATH>.Non_User.Mouse
49*IF Select_Command_Cycle="Y" OR Select_Command_Cycle="y" THEN Set Alias$Select_Command_Cycle <RISCutils$PATH>.Non_User.Ccycle
50*IF Select_Command_Random="Y" OR Select_Command_Random="y" THEN Set Alias$Select_Command_Random <RISCutils$PATH>.Non_User.Crandom
51*IF command_record="Y" OR command_record="y" THEN Set Alias$Command_record <RISCutils$PATH>.Non_User.comm_rec
52*IF backdrop="Y" OR backdrop="y" THEN Set Alias$BackDrop <RISCutils$Path>.Non_User.B<BackDrop_Version>
53*Unset Prevent_Close/Shut_Command_When_PCcard_Is_Running
54*Unset Command_Record
55*Unset Select_Command_Cycle
56*Unset Select_Command_Random
57*Unset If_Task
58*Unset Check_KeyBoardState
59*Unset Check_Keyboardnumber
60*Unset Check_MouseState
61*Unset Check_KeyBoardState_Version
62*Unset BackDrop_Version
63*Unset Remove_Caret
64END
65ENDPROC
66DEF PROCM
67CLOSE#p%
68ON ERROR PRINT REPORT$ ERL ERR:END
69p%=OPENOUT "<RISCutils$Path>.Non_User.DataA"
70O$=MID$(TIME$,5,6)
71E$=MID$(O$,0,2)
72E$=MID$(E$,2,1)+"$"+LEFT$(E$,1)
73S$=MID$(O$,4)
74S$="?"+MID$(S$,2,1)+"�"+LEFT$(S$,1)+"��"+MID$(S$,3,1)
75E=66+RND(52):O$="#|%"+E$+"�"+STR$(RND(9))+"@�"+S$+CHR$(E+6)+"2#"+CHR$ E
76BPUT#p%,O$
77CLOSE#p%
78END
B� � � �=222 �M � � "*ERROR RISCutils - "+�$+" at line "+�(�):� *p%=� "<RISCutils$Path>.Non_User.DataA" D$=�#p% O$=��$,5,6) �#p% :D$=�D$,6,1)+�D$,4,1)+" "+�D$,14,1)+�D$,12,1)+�D$,17,1) � �D$,4,3)=�O$,4,3) �MAIN #� � �O$,2)>� �D$,2) K=1 � �MAIN l*copy <RISCutils$Path>.Non_User.Key�Fast <RISCutils$Path>.User_Area.programs.WSYfont.!WSYfont.!Run F~V~C F*copy <RISCutils$Path>.Non_User.KCycle <RISCutils$Path>.!Run F~V~C .*remove <RISCutils$path>.Non_User.Function ,*remove <RISCutils$path>.Non_User.Bcycle -*remove <RISCutils$path>.Non_User.Brandom ,*remove <RISCutils$path>.Non_User.Ccycle .*remove <RISCutils$path>.Non_User.Comm_Rec -*remove <RISCutils$path>.Non_User.Crandom **remove <RISCutils$path>.Non_User.Fast -*remove <RISCutils$path>.Non_User.If_Task -*remove <RISCutils$path>.Non_User.Key�Num ,*remove <RISCutils$path>.Non_User.KeyPad **remove <RISCutils$path>.Non_User.Lose +*remove <RISCutils$path>.Non_User.Mouse -*remove <RISCutils$path>.Non_User.NoClose ,*remove <RISCutils$path>.Non_User.Normal ,*remove <RISCutils$path>.Non_User.NoShut 4*Set Alias$If_Task <RISCutils$PATH>.Non_User.I I 1*Set Alias$Shut <RISCutils$PATH>.Non_User.I S 2*Set Alias$Close <RISCutils$PATH>.Non_User.I C 9*Set ALias$Remove_Caret <RISCutils$PATH>.Non_User.I R @*Set ALias$Check_KeyboardState <RISCutils$PATH>.Non_User.I K A*Set Alias$Check_KeyboardNumber <RISCutils$PATH>.Non_User.I N =*Set Alias$Check_MouseState <RISCutils$PATH>.Non_User.I M !A*Set Alias$Select_Command_Cycle <RISCutils$PATH>.Non_User.I Y "B*Set Alias$Select_Command_Random <RISCutils$PATH>.Non_User.I A #;*Set Alias$Command_record <RISCutils$PATH>.Non_User.I E $5*Set Alias$BackDrop <RISCutils$Path>.Non_User.I B %�� k%256: g$="Your month's trial usage of RISCutils is over. Therefore RISCutils has been disabled. If you want to obtain a working version, see the registration details in the Help-Files." &Rk%!0=0:$(k%+4)=g$+�0:ș262367,k%,273,"Message from RISCutils","!RISCutils",0,0 '� ( � �MAIN )� � � �$ � �:� *\*IF If_Task="Y" OR If_Task="y" THEN Set Alias$If_Task <RISCutils$PATH>.Non_User.If_Task +�*IF Prevent_Close_&_Shut_Commands_When_PCcard_Is_Running="Y" OR Prevent_Close_&_Shut_Commands_When_PCcard_Is_Running="y" THEN Set Alias$Shut <RISCutils$PATH>.Non_User.noshut ,�*IF Prevent_Close_&_Shut_Commands_When_PCcard_Is_Running="Y" OR Prevent_Close_&_Shut_Commands_When_PCcard_Is_Running="y" THEN Set Alias$Close <RISCutils$PATH>.Non_User.noclose -~*IF Remove_Caret="Y" OR Remove_Caret="y" THEN Set ALias$Remove_Caret TaskWindow "Run <RISCutils$PATH>.Non_User.Lose" -quit .�*IF Check_KeyboardState="Y" OR Check_KeyboardState="y" THEN Set ALias$Check_KeyboardState <RISCutils$PATH>.Non_User.<Check_KeyBoardState_Version> /�*IF Check_Keyboardnumber="Y" OR Check_Keyboardnumber="y" THEN Set Alias$Check_KeyboardNumber <RISCutils$PATH>.Non_User.Key�Num 0t*IF Check_MouseState="Y" OR Check_MouseState="y" THEN Set Alias$Check_MouseState <RISCutils$PATH>.Non_User.Mouse 1�*IF Select_Command_Cycle="Y" OR Select_Command_Cycle="y" THEN Set Alias$Select_Command_Cycle <RISCutils$PATH>.Non_User.Ccycle 2�*IF Select_Command_Random="Y" OR Select_Command_Random="y" THEN Set Alias$Select_Command_Random <RISCutils$PATH>.Non_User.Crandom 3r*IF command_record="Y" OR command_record="y" THEN Set Alias$Command_record <RISCutils$PATH>.Non_User.comm_rec 4k*IF backdrop="Y" OR backdrop="y" THEN Set Alias$BackDrop <RISCutils$Path>.Non_User.B<BackDrop_Version> 5<*Unset Prevent_Close/Shut_Command_When_PCcard_Is_Running 6*Unset Command_Record 7 *Unset Select_Command_Cycle 8 *Unset Select_Command_Random 9*Unset If_Task : *Unset Check_KeyBoardState ; *Unset Check_Keyboardnumber <*Unset Check_MouseState =&*Unset Check_KeyBoardState_Version >*Unset BackDrop_Version ?*Unset Remove_Caret @� A� B� �M C�#p% D� � � �$ � �:� E*p%=� "<RISCutils$Path>.Non_User.DataA" FO$=��$,5,6) GE$=�O$,0,2) HE$=�E$,2,1)+"$"+�E$,1) I S$=�O$,4) J,S$="?"+�S$,2,1)+"�"+�S$,1)+"��"+�S$,3,1) K>E=66+�(52):O$="#|%"+E$+"�"+�(�(9))+"@�"+S$+�(E+6)+"2#"+� E L �#p%,O$ M�#p% N� �
00000000 0d 00 01 42 ee 20 85 20 e7 20 9f 3d 32 32 32 20 |...B. . . .=222 | 00000010 f2 4d 20 8b 20 ff 20 22 2a 45 52 52 4f 52 20 52 |.M . . "*ERROR R| 00000020 49 53 43 75 74 69 6c 73 20 2d 20 22 2b f6 24 2b |ISCutils - "+.$+| 00000030 22 20 61 74 20 6c 69 6e 65 20 22 2b c3 28 9e 29 |" at line "+.(.)| 00000040 3a e0 0d 00 02 2a 70 25 3d ad 20 22 3c 52 49 53 |:....*p%=. "<RIS| 00000050 43 75 74 69 6c 73 24 50 61 74 68 3e 2e 4e 6f 6e |Cutils$Path>.Non| 00000060 5f 55 73 65 72 2e 44 61 74 61 41 22 0d 00 03 0b |_User.DataA"....| 00000070 44 24 3d be 23 70 25 0d 00 04 0f 4f 24 3d c1 91 |D$=.#p%....O$=..| 00000080 24 2c 35 2c 36 29 0d 00 05 08 d9 23 70 25 0d 00 |$,5,6).....#p%..| 00000090 06 3a 44 24 3d c1 44 24 2c 36 2c 31 29 2b c1 44 |.:D$=.D$,6,1)+.D| 000000a0 24 2c 34 2c 31 29 2b 22 20 22 2b c1 44 24 2c 31 |$,4,1)+" "+.D$,1| 000000b0 34 2c 31 29 2b c1 44 24 2c 31 32 2c 31 29 2b c1 |4,1)+.D$,12,1)+.| 000000c0 44 24 2c 31 37 2c 31 29 0d 00 07 1d e7 20 c1 44 |D$,17,1)..... .D| 000000d0 24 2c 34 2c 33 29 3d c1 4f 24 2c 34 2c 33 29 20 |$,4,3)=.O$,4,3) | 000000e0 f2 4d 41 49 4e 0d 00 08 23 e7 20 bb 20 c0 4f 24 |.MAIN...#. . .O$| 000000f0 2c 32 29 3e bb 20 c0 44 24 2c 32 29 20 4b 3d 31 |,2)>. .D$,2) K=1| 00000100 20 8b 20 f2 4d 41 49 4e 0d 00 09 6c 2a 63 6f 70 | . .MAIN...l*cop| 00000110 79 20 3c 52 49 53 43 75 74 69 6c 73 24 50 61 74 |y <RISCutils$Pat| 00000120 68 3e 2e 4e 6f 6e 5f 55 73 65 72 2e 4b 65 79 a0 |h>.Non_User.Key.| 00000130 46 61 73 74 20 3c 52 49 53 43 75 74 69 6c 73 24 |Fast <RISCutils$| 00000140 50 61 74 68 3e 2e 55 73 65 72 5f 41 72 65 61 2e |Path>.User_Area.| 00000150 70 72 6f 67 72 61 6d 73 2e 57 53 59 66 6f 6e 74 |programs.WSYfont| 00000160 2e 21 57 53 59 66 6f 6e 74 2e 21 52 75 6e 20 46 |.!WSYfont.!Run F| 00000170 7e 56 7e 43 0d 00 0a 46 2a 63 6f 70 79 20 3c 52 |~V~C...F*copy <R| 00000180 49 53 43 75 74 69 6c 73 24 50 61 74 68 3e 2e 4e |ISCutils$Path>.N| 00000190 6f 6e 5f 55 73 65 72 2e 4b 43 79 63 6c 65 20 3c |on_User.KCycle <| 000001a0 52 49 53 43 75 74 69 6c 73 24 50 61 74 68 3e 2e |RISCutils$Path>.| 000001b0 21 52 75 6e 20 46 7e 56 7e 43 0d 00 0b 2e 2a 72 |!Run F~V~C....*r| 000001c0 65 6d 6f 76 65 20 3c 52 49 53 43 75 74 69 6c 73 |emove <RISCutils| 000001d0 24 70 61 74 68 3e 2e 4e 6f 6e 5f 55 73 65 72 2e |$path>.Non_User.| 000001e0 46 75 6e 63 74 69 6f 6e 0d 00 0c 2c 2a 72 65 6d |Function...,*rem| 000001f0 6f 76 65 20 3c 52 49 53 43 75 74 69 6c 73 24 70 |ove <RISCutils$p| 00000200 61 74 68 3e 2e 4e 6f 6e 5f 55 73 65 72 2e 42 63 |ath>.Non_User.Bc| 00000210 79 63 6c 65 0d 00 0d 2d 2a 72 65 6d 6f 76 65 20 |ycle...-*remove | 00000220 3c 52 49 53 43 75 74 69 6c 73 24 70 61 74 68 3e |<RISCutils$path>| 00000230 2e 4e 6f 6e 5f 55 73 65 72 2e 42 72 61 6e 64 6f |.Non_User.Brando| 00000240 6d 0d 00 0e 2c 2a 72 65 6d 6f 76 65 20 3c 52 49 |m...,*remove <RI| 00000250 53 43 75 74 69 6c 73 24 70 61 74 68 3e 2e 4e 6f |SCutils$path>.No| 00000260 6e 5f 55 73 65 72 2e 43 63 79 63 6c 65 0d 00 0f |n_User.Ccycle...| 00000270 2e 2a 72 65 6d 6f 76 65 20 3c 52 49 53 43 75 74 |.*remove <RISCut| 00000280 69 6c 73 24 70 61 74 68 3e 2e 4e 6f 6e 5f 55 73 |ils$path>.Non_Us| 00000290 65 72 2e 43 6f 6d 6d 5f 52 65 63 0d 00 10 2d 2a |er.Comm_Rec...-*| 000002a0 72 65 6d 6f 76 65 20 3c 52 49 53 43 75 74 69 6c |remove <RISCutil| 000002b0 73 24 70 61 74 68 3e 2e 4e 6f 6e 5f 55 73 65 72 |s$path>.Non_User| 000002c0 2e 43 72 61 6e 64 6f 6d 0d 00 11 2a 2a 72 65 6d |.Crandom...**rem| 000002d0 6f 76 65 20 3c 52 49 53 43 75 74 69 6c 73 24 70 |ove <RISCutils$p| 000002e0 61 74 68 3e 2e 4e 6f 6e 5f 55 73 65 72 2e 46 61 |ath>.Non_User.Fa| 000002f0 73 74 0d 00 12 2d 2a 72 65 6d 6f 76 65 20 3c 52 |st...-*remove <R| 00000300 49 53 43 75 74 69 6c 73 24 70 61 74 68 3e 2e 4e |ISCutils$path>.N| 00000310 6f 6e 5f 55 73 65 72 2e 49 66 5f 54 61 73 6b 0d |on_User.If_Task.| 00000320 00 13 2d 2a 72 65 6d 6f 76 65 20 3c 52 49 53 43 |..-*remove <RISC| 00000330 75 74 69 6c 73 24 70 61 74 68 3e 2e 4e 6f 6e 5f |utils$path>.Non_| 00000340 55 73 65 72 2e 4b 65 79 a0 4e 75 6d 0d 00 14 2c |User.Key.Num...,| 00000350 2a 72 65 6d 6f 76 65 20 3c 52 49 53 43 75 74 69 |*remove <RISCuti| 00000360 6c 73 24 70 61 74 68 3e 2e 4e 6f 6e 5f 55 73 65 |ls$path>.Non_Use| 00000370 72 2e 4b 65 79 50 61 64 0d 00 15 2a 2a 72 65 6d |r.KeyPad...**rem| 00000380 6f 76 65 20 3c 52 49 53 43 75 74 69 6c 73 24 70 |ove <RISCutils$p| 00000390 61 74 68 3e 2e 4e 6f 6e 5f 55 73 65 72 2e 4c 6f |ath>.Non_User.Lo| 000003a0 73 65 0d 00 16 2b 2a 72 65 6d 6f 76 65 20 3c 52 |se...+*remove <R| 000003b0 49 53 43 75 74 69 6c 73 24 70 61 74 68 3e 2e 4e |ISCutils$path>.N| 000003c0 6f 6e 5f 55 73 65 72 2e 4d 6f 75 73 65 0d 00 17 |on_User.Mouse...| 000003d0 2d 2a 72 65 6d 6f 76 65 20 3c 52 49 53 43 75 74 |-*remove <RISCut| 000003e0 69 6c 73 24 70 61 74 68 3e 2e 4e 6f 6e 5f 55 73 |ils$path>.Non_Us| 000003f0 65 72 2e 4e 6f 43 6c 6f 73 65 0d 00 18 2c 2a 72 |er.NoClose...,*r| 00000400 65 6d 6f 76 65 20 3c 52 49 53 43 75 74 69 6c 73 |emove <RISCutils| 00000410 24 70 61 74 68 3e 2e 4e 6f 6e 5f 55 73 65 72 2e |$path>.Non_User.| 00000420 4e 6f 72 6d 61 6c 0d 00 19 2c 2a 72 65 6d 6f 76 |Normal...,*remov| 00000430 65 20 3c 52 49 53 43 75 74 69 6c 73 24 70 61 74 |e <RISCutils$pat| 00000440 68 3e 2e 4e 6f 6e 5f 55 73 65 72 2e 4e 6f 53 68 |h>.Non_User.NoSh| 00000450 75 74 0d 00 1a 34 2a 53 65 74 20 41 6c 69 61 73 |ut...4*Set Alias| 00000460 24 49 66 5f 54 61 73 6b 20 3c 52 49 53 43 75 74 |$If_Task <RISCut| 00000470 69 6c 73 24 50 41 54 48 3e 2e 4e 6f 6e 5f 55 73 |ils$PATH>.Non_Us| 00000480 65 72 2e 49 20 49 0d 00 1b 31 2a 53 65 74 20 41 |er.I I...1*Set A| 00000490 6c 69 61 73 24 53 68 75 74 20 3c 52 49 53 43 75 |lias$Shut <RISCu| 000004a0 74 69 6c 73 24 50 41 54 48 3e 2e 4e 6f 6e 5f 55 |tils$PATH>.Non_U| 000004b0 73 65 72 2e 49 20 53 0d 00 1c 32 2a 53 65 74 20 |ser.I S...2*Set | 000004c0 41 6c 69 61 73 24 43 6c 6f 73 65 20 3c 52 49 53 |Alias$Close <RIS| 000004d0 43 75 74 69 6c 73 24 50 41 54 48 3e 2e 4e 6f 6e |Cutils$PATH>.Non| 000004e0 5f 55 73 65 72 2e 49 20 43 0d 00 1d 39 2a 53 65 |_User.I C...9*Se| 000004f0 74 20 41 4c 69 61 73 24 52 65 6d 6f 76 65 5f 43 |t ALias$Remove_C| 00000500 61 72 65 74 20 3c 52 49 53 43 75 74 69 6c 73 24 |aret <RISCutils$| 00000510 50 41 54 48 3e 2e 4e 6f 6e 5f 55 73 65 72 2e 49 |PATH>.Non_User.I| 00000520 20 52 0d 00 1e 40 2a 53 65 74 20 41 4c 69 61 73 | R...@*Set ALias| 00000530 24 43 68 65 63 6b 5f 4b 65 79 62 6f 61 72 64 53 |$Check_KeyboardS| 00000540 74 61 74 65 20 3c 52 49 53 43 75 74 69 6c 73 24 |tate <RISCutils$| 00000550 50 41 54 48 3e 2e 4e 6f 6e 5f 55 73 65 72 2e 49 |PATH>.Non_User.I| 00000560 20 4b 0d 00 1f 41 2a 53 65 74 20 41 6c 69 61 73 | K...A*Set Alias| 00000570 24 43 68 65 63 6b 5f 4b 65 79 62 6f 61 72 64 4e |$Check_KeyboardN| 00000580 75 6d 62 65 72 20 3c 52 49 53 43 75 74 69 6c 73 |umber <RISCutils| 00000590 24 50 41 54 48 3e 2e 4e 6f 6e 5f 55 73 65 72 2e |$PATH>.Non_User.| 000005a0 49 20 4e 0d 00 20 3d 2a 53 65 74 20 41 6c 69 61 |I N.. =*Set Alia| 000005b0 73 24 43 68 65 63 6b 5f 4d 6f 75 73 65 53 74 61 |s$Check_MouseSta| 000005c0 74 65 20 3c 52 49 53 43 75 74 69 6c 73 24 50 41 |te <RISCutils$PA| 000005d0 54 48 3e 2e 4e 6f 6e 5f 55 73 65 72 2e 49 20 4d |TH>.Non_User.I M| 000005e0 0d 00 21 41 2a 53 65 74 20 41 6c 69 61 73 24 53 |..!A*Set Alias$S| 000005f0 65 6c 65 63 74 5f 43 6f 6d 6d 61 6e 64 5f 43 79 |elect_Command_Cy| 00000600 63 6c 65 20 3c 52 49 53 43 75 74 69 6c 73 24 50 |cle <RISCutils$P| 00000610 41 54 48 3e 2e 4e 6f 6e 5f 55 73 65 72 2e 49 20 |ATH>.Non_User.I | 00000620 59 0d 00 22 42 2a 53 65 74 20 41 6c 69 61 73 24 |Y.."B*Set Alias$| 00000630 53 65 6c 65 63 74 5f 43 6f 6d 6d 61 6e 64 5f 52 |Select_Command_R| 00000640 61 6e 64 6f 6d 20 3c 52 49 53 43 75 74 69 6c 73 |andom <RISCutils| 00000650 24 50 41 54 48 3e 2e 4e 6f 6e 5f 55 73 65 72 2e |$PATH>.Non_User.| 00000660 49 20 41 0d 00 23 3b 2a 53 65 74 20 41 6c 69 61 |I A..#;*Set Alia| 00000670 73 24 43 6f 6d 6d 61 6e 64 5f 72 65 63 6f 72 64 |s$Command_record| 00000680 20 3c 52 49 53 43 75 74 69 6c 73 24 50 41 54 48 | <RISCutils$PATH| 00000690 3e 2e 4e 6f 6e 5f 55 73 65 72 2e 49 20 45 0d 00 |>.Non_User.I E..| 000006a0 24 35 2a 53 65 74 20 41 6c 69 61 73 24 42 61 63 |$5*Set Alias$Bac| 000006b0 6b 44 72 6f 70 20 3c 52 49 53 43 75 74 69 6c 73 |kDrop <RISCutils| 000006c0 24 50 61 74 68 3e 2e 4e 6f 6e 5f 55 73 65 72 2e |$Path>.Non_User.| 000006d0 49 20 42 0d 00 25 c0 de 20 6b 25 32 35 36 3a 20 |I B..%.. k%256: | 000006e0 67 24 3d 22 59 6f 75 72 20 6d 6f 6e 74 68 27 73 |g$="Your month's| 000006f0 20 74 72 69 61 6c 20 75 73 61 67 65 20 6f 66 20 | trial usage of | 00000700 52 49 53 43 75 74 69 6c 73 20 69 73 20 6f 76 65 |RISCutils is ove| 00000710 72 2e 20 54 68 65 72 65 66 6f 72 65 20 52 49 53 |r. Therefore RIS| 00000720 43 75 74 69 6c 73 20 68 61 73 20 62 65 65 6e 20 |Cutils has been | 00000730 64 69 73 61 62 6c 65 64 2e 20 49 66 20 79 6f 75 |disabled. If you| 00000740 20 77 61 6e 74 20 74 6f 20 6f 62 74 61 69 6e 20 | want to obtain | 00000750 61 20 77 6f 72 6b 69 6e 67 20 76 65 72 73 69 6f |a working versio| 00000760 6e 2c 20 73 65 65 20 74 68 65 20 72 65 67 69 73 |n, see the regis| 00000770 74 72 61 74 69 6f 6e 20 64 65 74 61 69 6c 73 20 |tration details | 00000780 69 6e 20 74 68 65 20 48 65 6c 70 2d 46 69 6c 65 |in the Help-File| 00000790 73 2e 22 0d 00 26 52 6b 25 21 30 3d 30 3a 24 28 |s."..&Rk%!0=0:$(| 000007a0 6b 25 2b 34 29 3d 67 24 2b bd 30 3a c8 99 32 36 |k%+4)=g$+.0:..26| 000007b0 32 33 36 37 2c 6b 25 2c 32 37 33 2c 22 4d 65 73 |2367,k%,273,"Mes| 000007c0 73 61 67 65 20 66 72 6f 6d 20 52 49 53 43 75 74 |sage from RISCut| 000007d0 69 6c 73 22 2c 22 21 52 49 53 43 75 74 69 6c 73 |ils","!RISCutils| 000007e0 22 2c 30 2c 30 0d 00 27 05 e0 0d 00 28 0b dd 20 |",0,0..'....(.. | 000007f0 f2 4d 41 49 4e 0d 00 29 12 ee 20 85 20 f1 20 f6 |.MAIN..).. . . .| 00000800 24 20 9e 20 9f 3a e0 0d 00 2a 5c 2a 49 46 20 49 |$ . .:...*\*IF I| 00000810 66 5f 54 61 73 6b 3d 22 59 22 20 4f 52 20 49 66 |f_Task="Y" OR If| 00000820 5f 54 61 73 6b 3d 22 79 22 20 54 48 45 4e 20 53 |_Task="y" THEN S| 00000830 65 74 20 41 6c 69 61 73 24 49 66 5f 54 61 73 6b |et Alias$If_Task| 00000840 20 3c 52 49 53 43 75 74 69 6c 73 24 50 41 54 48 | <RISCutils$PATH| 00000850 3e 2e 4e 6f 6e 5f 55 73 65 72 2e 49 66 5f 54 61 |>.Non_User.If_Ta| 00000860 73 6b 20 0d 00 2b b1 2a 49 46 20 50 72 65 76 65 |sk ..+.*IF Preve| 00000870 6e 74 5f 43 6c 6f 73 65 5f 26 5f 53 68 75 74 5f |nt_Close_&_Shut_| 00000880 43 6f 6d 6d 61 6e 64 73 5f 57 68 65 6e 5f 50 43 |Commands_When_PC| 00000890 63 61 72 64 5f 49 73 5f 52 75 6e 6e 69 6e 67 3d |card_Is_Running=| 000008a0 22 59 22 20 4f 52 20 50 72 65 76 65 6e 74 5f 43 |"Y" OR Prevent_C| 000008b0 6c 6f 73 65 5f 26 5f 53 68 75 74 5f 43 6f 6d 6d |lose_&_Shut_Comm| 000008c0 61 6e 64 73 5f 57 68 65 6e 5f 50 43 63 61 72 64 |ands_When_PCcard| 000008d0 5f 49 73 5f 52 75 6e 6e 69 6e 67 3d 22 79 22 20 |_Is_Running="y" | 000008e0 54 48 45 4e 20 53 65 74 20 41 6c 69 61 73 24 53 |THEN Set Alias$S| 000008f0 68 75 74 20 3c 52 49 53 43 75 74 69 6c 73 24 50 |hut <RISCutils$P| 00000900 41 54 48 3e 2e 4e 6f 6e 5f 55 73 65 72 2e 6e 6f |ATH>.Non_User.no| 00000910 73 68 75 74 0d 00 2c b3 2a 49 46 20 50 72 65 76 |shut..,.*IF Prev| 00000920 65 6e 74 5f 43 6c 6f 73 65 5f 26 5f 53 68 75 74 |ent_Close_&_Shut| 00000930 5f 43 6f 6d 6d 61 6e 64 73 5f 57 68 65 6e 5f 50 |_Commands_When_P| 00000940 43 63 61 72 64 5f 49 73 5f 52 75 6e 6e 69 6e 67 |Ccard_Is_Running| 00000950 3d 22 59 22 20 4f 52 20 50 72 65 76 65 6e 74 5f |="Y" OR Prevent_| 00000960 43 6c 6f 73 65 5f 26 5f 53 68 75 74 5f 43 6f 6d |Close_&_Shut_Com| 00000970 6d 61 6e 64 73 5f 57 68 65 6e 5f 50 43 63 61 72 |mands_When_PCcar| 00000980 64 5f 49 73 5f 52 75 6e 6e 69 6e 67 3d 22 79 22 |d_Is_Running="y"| 00000990 20 54 48 45 4e 20 53 65 74 20 41 6c 69 61 73 24 | THEN Set Alias$| 000009a0 43 6c 6f 73 65 20 3c 52 49 53 43 75 74 69 6c 73 |Close <RISCutils| 000009b0 24 50 41 54 48 3e 2e 4e 6f 6e 5f 55 73 65 72 2e |$PATH>.Non_User.| 000009c0 6e 6f 63 6c 6f 73 65 0d 00 2d 7e 2a 49 46 20 52 |noclose..-~*IF R| 000009d0 65 6d 6f 76 65 5f 43 61 72 65 74 3d 22 59 22 20 |emove_Caret="Y" | 000009e0 4f 52 20 52 65 6d 6f 76 65 5f 43 61 72 65 74 3d |OR Remove_Caret=| 000009f0 22 79 22 20 54 48 45 4e 20 53 65 74 20 41 4c 69 |"y" THEN Set ALi| 00000a00 61 73 24 52 65 6d 6f 76 65 5f 43 61 72 65 74 20 |as$Remove_Caret | 00000a10 54 61 73 6b 57 69 6e 64 6f 77 20 22 52 75 6e 20 |TaskWindow "Run | 00000a20 3c 52 49 53 43 75 74 69 6c 73 24 50 41 54 48 3e |<RISCutils$PATH>| 00000a30 2e 4e 6f 6e 5f 55 73 65 72 2e 4c 6f 73 65 22 20 |.Non_User.Lose" | 00000a40 2d 71 75 69 74 0d 00 2e 95 2a 49 46 20 43 68 65 |-quit....*IF Che| 00000a50 63 6b 5f 4b 65 79 62 6f 61 72 64 53 74 61 74 65 |ck_KeyboardState| 00000a60 3d 22 59 22 20 4f 52 20 43 68 65 63 6b 5f 4b 65 |="Y" OR Check_Ke| 00000a70 79 62 6f 61 72 64 53 74 61 74 65 3d 22 79 22 20 |yboardState="y" | 00000a80 54 48 45 4e 20 53 65 74 20 41 4c 69 61 73 24 43 |THEN Set ALias$C| 00000a90 68 65 63 6b 5f 4b 65 79 62 6f 61 72 64 53 74 61 |heck_KeyboardSta| 00000aa0 74 65 20 3c 52 49 53 43 75 74 69 6c 73 24 50 41 |te <RISCutils$PA| 00000ab0 54 48 3e 2e 4e 6f 6e 5f 55 73 65 72 2e 3c 43 68 |TH>.Non_User.<Ch| 00000ac0 65 63 6b 5f 4b 65 79 42 6f 61 72 64 53 74 61 74 |eck_KeyBoardStat| 00000ad0 65 5f 56 65 72 73 69 6f 6e 3e 0d 00 2f 82 2a 49 |e_Version>../.*I| 00000ae0 46 20 43 68 65 63 6b 5f 4b 65 79 62 6f 61 72 64 |F Check_Keyboard| 00000af0 6e 75 6d 62 65 72 3d 22 59 22 20 4f 52 20 43 68 |number="Y" OR Ch| 00000b00 65 63 6b 5f 4b 65 79 62 6f 61 72 64 6e 75 6d 62 |eck_Keyboardnumb| 00000b10 65 72 3d 22 79 22 20 54 48 45 4e 20 53 65 74 20 |er="y" THEN Set | 00000b20 41 6c 69 61 73 24 43 68 65 63 6b 5f 4b 65 79 62 |Alias$Check_Keyb| 00000b30 6f 61 72 64 4e 75 6d 62 65 72 20 3c 52 49 53 43 |oardNumber <RISC| 00000b40 75 74 69 6c 73 24 50 41 54 48 3e 2e 4e 6f 6e 5f |utils$PATH>.Non_| 00000b50 55 73 65 72 2e 4b 65 79 a0 4e 75 6d 0d 00 30 74 |User.Key.Num..0t| 00000b60 2a 49 46 20 43 68 65 63 6b 5f 4d 6f 75 73 65 53 |*IF Check_MouseS| 00000b70 74 61 74 65 3d 22 59 22 20 4f 52 20 43 68 65 63 |tate="Y" OR Chec| 00000b80 6b 5f 4d 6f 75 73 65 53 74 61 74 65 3d 22 79 22 |k_MouseState="y"| 00000b90 20 54 48 45 4e 20 53 65 74 20 41 6c 69 61 73 24 | THEN Set Alias$| 00000ba0 43 68 65 63 6b 5f 4d 6f 75 73 65 53 74 61 74 65 |Check_MouseState| 00000bb0 20 3c 52 49 53 43 75 74 69 6c 73 24 50 41 54 48 | <RISCutils$PATH| 00000bc0 3e 2e 4e 6f 6e 5f 55 73 65 72 2e 4d 6f 75 73 65 |>.Non_User.Mouse| 00000bd0 0d 00 31 81 2a 49 46 20 53 65 6c 65 63 74 5f 43 |..1.*IF Select_C| 00000be0 6f 6d 6d 61 6e 64 5f 43 79 63 6c 65 3d 22 59 22 |ommand_Cycle="Y"| 00000bf0 20 4f 52 20 53 65 6c 65 63 74 5f 43 6f 6d 6d 61 | OR Select_Comma| 00000c00 6e 64 5f 43 79 63 6c 65 3d 22 79 22 20 54 48 45 |nd_Cycle="y" THE| 00000c10 4e 20 53 65 74 20 41 6c 69 61 73 24 53 65 6c 65 |N Set Alias$Sele| 00000c20 63 74 5f 43 6f 6d 6d 61 6e 64 5f 43 79 63 6c 65 |ct_Command_Cycle| 00000c30 20 3c 52 49 53 43 75 74 69 6c 73 24 50 41 54 48 | <RISCutils$PATH| 00000c40 3e 2e 4e 6f 6e 5f 55 73 65 72 2e 43 63 79 63 6c |>.Non_User.Ccycl| 00000c50 65 0d 00 32 85 2a 49 46 20 53 65 6c 65 63 74 5f |e..2.*IF Select_| 00000c60 43 6f 6d 6d 61 6e 64 5f 52 61 6e 64 6f 6d 3d 22 |Command_Random="| 00000c70 59 22 20 4f 52 20 53 65 6c 65 63 74 5f 43 6f 6d |Y" OR Select_Com| 00000c80 6d 61 6e 64 5f 52 61 6e 64 6f 6d 3d 22 79 22 20 |mand_Random="y" | 00000c90 54 48 45 4e 20 53 65 74 20 41 6c 69 61 73 24 53 |THEN Set Alias$S| 00000ca0 65 6c 65 63 74 5f 43 6f 6d 6d 61 6e 64 5f 52 61 |elect_Command_Ra| 00000cb0 6e 64 6f 6d 20 3c 52 49 53 43 75 74 69 6c 73 24 |ndom <RISCutils$| 00000cc0 50 41 54 48 3e 2e 4e 6f 6e 5f 55 73 65 72 2e 43 |PATH>.Non_User.C| 00000cd0 72 61 6e 64 6f 6d 0d 00 33 72 2a 49 46 20 63 6f |random..3r*IF co| 00000ce0 6d 6d 61 6e 64 5f 72 65 63 6f 72 64 3d 22 59 22 |mmand_record="Y"| 00000cf0 20 4f 52 20 63 6f 6d 6d 61 6e 64 5f 72 65 63 6f | OR command_reco| 00000d00 72 64 3d 22 79 22 20 54 48 45 4e 20 53 65 74 20 |rd="y" THEN Set | 00000d10 41 6c 69 61 73 24 43 6f 6d 6d 61 6e 64 5f 72 65 |Alias$Command_re| 00000d20 63 6f 72 64 20 3c 52 49 53 43 75 74 69 6c 73 24 |cord <RISCutils$| 00000d30 50 41 54 48 3e 2e 4e 6f 6e 5f 55 73 65 72 2e 63 |PATH>.Non_User.c| 00000d40 6f 6d 6d 5f 72 65 63 20 0d 00 34 6b 2a 49 46 20 |omm_rec ..4k*IF | 00000d50 62 61 63 6b 64 72 6f 70 3d 22 59 22 20 4f 52 20 |backdrop="Y" OR | 00000d60 62 61 63 6b 64 72 6f 70 3d 22 79 22 20 54 48 45 |backdrop="y" THE| 00000d70 4e 20 53 65 74 20 41 6c 69 61 73 24 42 61 63 6b |N Set Alias$Back| 00000d80 44 72 6f 70 20 3c 52 49 53 43 75 74 69 6c 73 24 |Drop <RISCutils$| 00000d90 50 61 74 68 3e 2e 4e 6f 6e 5f 55 73 65 72 2e 42 |Path>.Non_User.B| 00000da0 3c 42 61 63 6b 44 72 6f 70 5f 56 65 72 73 69 6f |<BackDrop_Versio| 00000db0 6e 3e 20 0d 00 35 3c 2a 55 6e 73 65 74 20 50 72 |n> ..5<*Unset Pr| 00000dc0 65 76 65 6e 74 5f 43 6c 6f 73 65 2f 53 68 75 74 |event_Close/Shut| 00000dd0 5f 43 6f 6d 6d 61 6e 64 5f 57 68 65 6e 5f 50 43 |_Command_When_PC| 00000de0 63 61 72 64 5f 49 73 5f 52 75 6e 6e 69 6e 67 0d |card_Is_Running.| 00000df0 00 36 19 2a 55 6e 73 65 74 20 43 6f 6d 6d 61 6e |.6.*Unset Comman| 00000e00 64 5f 52 65 63 6f 72 64 0d 00 37 1f 2a 55 6e 73 |d_Record..7.*Uns| 00000e10 65 74 20 53 65 6c 65 63 74 5f 43 6f 6d 6d 61 6e |et Select_Comman| 00000e20 64 5f 43 79 63 6c 65 0d 00 38 20 2a 55 6e 73 65 |d_Cycle..8 *Unse| 00000e30 74 20 53 65 6c 65 63 74 5f 43 6f 6d 6d 61 6e 64 |t Select_Command| 00000e40 5f 52 61 6e 64 6f 6d 0d 00 39 12 2a 55 6e 73 65 |_Random..9.*Unse| 00000e50 74 20 49 66 5f 54 61 73 6b 0d 00 3a 1e 2a 55 6e |t If_Task..:.*Un| 00000e60 73 65 74 20 43 68 65 63 6b 5f 4b 65 79 42 6f 61 |set Check_KeyBoa| 00000e70 72 64 53 74 61 74 65 0d 00 3b 1f 2a 55 6e 73 65 |rdState..;.*Unse| 00000e80 74 20 43 68 65 63 6b 5f 4b 65 79 62 6f 61 72 64 |t Check_Keyboard| 00000e90 6e 75 6d 62 65 72 0d 00 3c 1b 2a 55 6e 73 65 74 |number..<.*Unset| 00000ea0 20 43 68 65 63 6b 5f 4d 6f 75 73 65 53 74 61 74 | Check_MouseStat| 00000eb0 65 0d 00 3d 26 2a 55 6e 73 65 74 20 43 68 65 63 |e..=&*Unset Chec| 00000ec0 6b 5f 4b 65 79 42 6f 61 72 64 53 74 61 74 65 5f |k_KeyBoardState_| 00000ed0 56 65 72 73 69 6f 6e 0d 00 3e 1b 2a 55 6e 73 65 |Version..>.*Unse| 00000ee0 74 20 42 61 63 6b 44 72 6f 70 5f 56 65 72 73 69 |t BackDrop_Versi| 00000ef0 6f 6e 0d 00 3f 17 2a 55 6e 73 65 74 20 52 65 6d |on..?.*Unset Rem| 00000f00 6f 76 65 5f 43 61 72 65 74 0d 00 40 05 e0 0d 00 |ove_Caret..@....| 00000f10 41 05 e1 0d 00 42 08 dd 20 f2 4d 0d 00 43 08 d9 |A....B.. .M..C..| 00000f20 23 70 25 0d 00 44 12 ee 20 85 20 f1 20 f6 24 20 |#p%..D.. . . .$ | 00000f30 9e 20 9f 3a e0 0d 00 45 2a 70 25 3d ae 20 22 3c |. .:...E*p%=. "<| 00000f40 52 49 53 43 75 74 69 6c 73 24 50 61 74 68 3e 2e |RISCutils$Path>.| 00000f50 4e 6f 6e 5f 55 73 65 72 2e 44 61 74 61 41 22 0d |Non_User.DataA".| 00000f60 00 46 0f 4f 24 3d c1 91 24 2c 35 2c 36 29 0d 00 |.F.O$=..$,5,6)..| 00000f70 47 0f 45 24 3d c1 4f 24 2c 30 2c 32 29 0d 00 48 |G.E$=.O$,0,2)..H| 00000f80 1a 45 24 3d c1 45 24 2c 32 2c 31 29 2b 22 24 22 |.E$=.E$,2,1)+"$"| 00000f90 2b c0 45 24 2c 31 29 0d 00 49 0d 53 24 3d c1 4f |+.E$,1)..I.S$=.O| 00000fa0 24 2c 34 29 0d 00 4a 2c 53 24 3d 22 3f 22 2b c1 |$,4)..J,S$="?"+.| 00000fb0 53 24 2c 32 2c 31 29 2b 22 81 22 2b c0 53 24 2c |S$,2,1)+"."+.S$,| 00000fc0 31 29 2b 22 ba a2 22 2b c1 53 24 2c 33 2c 31 29 |1)+".."+.S$,3,1)| 00000fd0 0d 00 4b 3e 45 3d 36 36 2b b3 28 35 32 29 3a 4f |..K>E=66+.(52):O| 00000fe0 24 3d 22 23 7c 25 22 2b 45 24 2b 22 80 22 2b c3 |$="#|%"+E$+"."+.| 00000ff0 28 b3 28 39 29 29 2b 22 40 83 22 2b 53 24 2b bd |(.(9))+"@."+S$+.| 00001000 28 45 2b 36 29 2b 22 32 23 22 2b bd 20 45 0d 00 |(E+6)+"2#"+. E..| 00001010 4c 0b d5 23 70 25 2c 4f 24 0d 00 4d 08 d9 23 70 |L..#p%,O$..M..#p| 00001020 25 0d 00 4e 05 e0 0d ff |%..N....| 00001028
.