Home » Archimedes archive » Acorn User » AU 1997-06 B.adf » Extras » RiscUtils/!RuInstall/Install/Non_User/Brandom

RiscUtils/!RuInstall/Install/Non_User/Brandom

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/Brandom
Read OK:
File size: 030F bytes
Load address: 0000
Exec address: 0000
File contents
    1ON ERROR r$="<RISCutils$Path>.!Help.!Run ":IF ERR=223 PROClast ELSE OSCLI"Set Alias$BackDrop <RISCutils$Path>.Non_User.Brandom ":IF ERR=222 OSCLI r$+"4 Pres?" ELSE OSCLI r$+"4 "+REPORT$+" at line "+STR$(ERL):END
    2SYS"OS_GetEnv"TOA$:A$=MID$(A$,INSTR(A$,"!RISCutils.Non_User.")+29):IF MID$(A$,1,1)<>"-" END
    3OSCLI"UnSet Alias$BackDrop":IF INSTR(A$," ")=0 OSCLI"BACKDROP "+A$:OSCLI"Set Alias$BackDrop <RISCutils$Path>.Non_User.Brandom ":END
    4path%=OPENUP "<RISCutils$Path>.User_Area.Files.BackDrops":N=1:DIM C$(250):FOR A=1 TO 250:C$(N)=GET$#path%:IF C$(N)="" NEXT A
    5D=0:REPEAT:D+=1:UNTIL MID$(C$(N),D,1)<>" " OR D=LEN C$(N)
    6IF MID$(C$(N),D,1)<>" " N+=1
    7NEXT A
    8DEF PROClast:N-=1:CLOSE#path%:r=LEN STR$(N):IF r=1 A$=RIGHT$(TIME$):IF A$="0" A$="1"
    9IF r=2 A$=MID$(TIME$,23,2)
   10IF r=3 A$=MID$(TIME$,21,1)+MID$(TIME$,23,2)
   11r=VAL A$:IF r>N REPEAT:r-=N:UNTIL r<=N
   12OSCLI "Backdrop "+C$(r):OSCLI "Set Alias$BackDrop <RISCutils$Path>.Non_User.Brandom "
�� � r$="<RISCutils$Path>.!Help.!Run ":� �=223 �last � �"Set Alias$BackDrop <RISCutils$Path>.Non_User.Brandom ":� �=222 � r$+"4 Pres?" � � r$+"4 "+�$+" at line "+�(�):�
Mș"OS_GetEnv"�A$:A$=�A$,�A$,"!RISCutils.Non_User.")+29):� �A$,1,1)<>"-" �
s�"UnSet Alias$BackDrop":� �A$," ")=0 �"BACKDROP "+A$:�"Set Alias$BackDrop <RISCutils$Path>.Non_User.Brandom ":�
opath%=� "<RISCutils$Path>.User_Area.Files.BackDrops":N=1:� C$(250):� A=1 � 250:C$(N)=�#path%:� C$(N)="" � A
-D=0:�:D+=1:� �C$(N),D,1)<>" " � D=� C$(N)
� �C$(N),D,1)<>" " N+=1
� A
?� �last:N-=1:�#path%:r=� �(N):� r=1 A$=‘$):� A$="0" A$="1"
	� r=2 A$=��$,23,2)

 � r=3 A$=��$,21,1)+��$,23,2)
r=� A$:� r>N �:r-=N:� r<=N
Q� "Backdrop "+C$(r):� "Set Alias$BackDrop <RISCutils$Path>.Non_User.Brandom "
�
00000000  0d 00 01 ab ee 20 85 20  72 24 3d 22 3c 52 49 53  |..... . r$="<RIS|
00000010  43 75 74 69 6c 73 24 50  61 74 68 3e 2e 21 48 65  |Cutils$Path>.!He|
00000020  6c 70 2e 21 52 75 6e 20  22 3a e7 20 9f 3d 32 32  |lp.!Run ":. .=22|
00000030  33 20 f2 6c 61 73 74 20  8b 20 ff 22 53 65 74 20  |3 .last . ."Set |
00000040  41 6c 69 61 73 24 42 61  63 6b 44 72 6f 70 20 3c  |Alias$BackDrop <|
00000050  52 49 53 43 75 74 69 6c  73 24 50 61 74 68 3e 2e  |RISCutils$Path>.|
00000060  4e 6f 6e 5f 55 73 65 72  2e 42 72 61 6e 64 6f 6d  |Non_User.Brandom|
00000070  20 22 3a e7 20 9f 3d 32  32 32 20 ff 20 72 24 2b  | ":. .=222 . r$+|
00000080  22 34 20 50 72 65 73 3f  22 20 8b 20 ff 20 72 24  |"4 Pres?" . . r$|
00000090  2b 22 34 20 22 2b f6 24  2b 22 20 61 74 20 6c 69  |+"4 "+.$+" at li|
000000a0  6e 65 20 22 2b c3 28 9e  29 3a e0 0d 00 02 4d c8  |ne "+.(.):....M.|
000000b0  99 22 4f 53 5f 47 65 74  45 6e 76 22 b8 41 24 3a  |."OS_GetEnv".A$:|
000000c0  41 24 3d c1 41 24 2c a7  41 24 2c 22 21 52 49 53  |A$=.A$,.A$,"!RIS|
000000d0  43 75 74 69 6c 73 2e 4e  6f 6e 5f 55 73 65 72 2e  |Cutils.Non_User.|
000000e0  22 29 2b 32 39 29 3a e7  20 c1 41 24 2c 31 2c 31  |")+29):. .A$,1,1|
000000f0  29 3c 3e 22 2d 22 20 e0  0d 00 03 73 ff 22 55 6e  |)<>"-" ....s."Un|
00000100  53 65 74 20 41 6c 69 61  73 24 42 61 63 6b 44 72  |Set Alias$BackDr|
00000110  6f 70 22 3a e7 20 a7 41  24 2c 22 20 22 29 3d 30  |op":. .A$," ")=0|
00000120  20 ff 22 42 41 43 4b 44  52 4f 50 20 22 2b 41 24  | ."BACKDROP "+A$|
00000130  3a ff 22 53 65 74 20 41  6c 69 61 73 24 42 61 63  |:."Set Alias$Bac|
00000140  6b 44 72 6f 70 20 3c 52  49 53 43 75 74 69 6c 73  |kDrop <RISCutils|
00000150  24 50 61 74 68 3e 2e 4e  6f 6e 5f 55 73 65 72 2e  |$Path>.Non_User.|
00000160  42 72 61 6e 64 6f 6d 20  22 3a e0 0d 00 04 6f 70  |Brandom ":....op|
00000170  61 74 68 25 3d ad 20 22  3c 52 49 53 43 75 74 69  |ath%=. "<RISCuti|
00000180  6c 73 24 50 61 74 68 3e  2e 55 73 65 72 5f 41 72  |ls$Path>.User_Ar|
00000190  65 61 2e 46 69 6c 65 73  2e 42 61 63 6b 44 72 6f  |ea.Files.BackDro|
000001a0  70 73 22 3a 4e 3d 31 3a  de 20 43 24 28 32 35 30  |ps":N=1:. C$(250|
000001b0  29 3a e3 20 41 3d 31 20  b8 20 32 35 30 3a 43 24  |):. A=1 . 250:C$|
000001c0  28 4e 29 3d be 23 70 61  74 68 25 3a e7 20 43 24  |(N)=.#path%:. C$|
000001d0  28 4e 29 3d 22 22 20 ed  20 41 0d 00 05 2d 44 3d  |(N)="" . A...-D=|
000001e0  30 3a f5 3a 44 2b 3d 31  3a fd 20 c1 43 24 28 4e  |0:.:D+=1:. .C$(N|
000001f0  29 2c 44 2c 31 29 3c 3e  22 20 22 20 84 20 44 3d  |),D,1)<>" " . D=|
00000200  a9 20 43 24 28 4e 29 0d  00 06 1b e7 20 c1 43 24  |. C$(N)..... .C$|
00000210  28 4e 29 2c 44 2c 31 29  3c 3e 22 20 22 20 4e 2b  |(N),D,1)<>" " N+|
00000220  3d 31 0d 00 07 07 ed 20  41 0d 00 08 3f dd 20 f2  |=1..... A...?. .|
00000230  6c 61 73 74 3a 4e 2d 3d  31 3a d9 23 70 61 74 68  |last:N-=1:.#path|
00000240  25 3a 72 3d a9 20 c3 28  4e 29 3a e7 20 72 3d 31  |%:r=. .(N):. r=1|
00000250  20 41 24 3d c2 91 24 29  3a e7 20 41 24 3d 22 30  | A$=..$):. A$="0|
00000260  22 20 41 24 3d 22 31 22  0d 00 09 16 e7 20 72 3d  |" A$="1"..... r=|
00000270  32 20 41 24 3d c1 91 24  2c 32 33 2c 32 29 0d 00  |2 A$=..$,23,2)..|
00000280  0a 20 e7 20 72 3d 33 20  41 24 3d c1 91 24 2c 32  |. . r=3 A$=..$,2|
00000290  31 2c 31 29 2b c1 91 24  2c 32 33 2c 32 29 0d 00  |1,1)+..$,23,2)..|
000002a0  0b 1e 72 3d bb 20 41 24  3a e7 20 72 3e 4e 20 f5  |..r=. A$:. r>N .|
000002b0  3a 72 2d 3d 4e 3a fd 20  72 3c 3d 4e 0d 00 0c 51  |:r-=N:. r<=N...Q|
000002c0  ff 20 22 42 61 63 6b 64  72 6f 70 20 22 2b 43 24  |. "Backdrop "+C$|
000002d0  28 72 29 3a ff 20 22 53  65 74 20 41 6c 69 61 73  |(r):. "Set Alias|
000002e0  24 42 61 63 6b 44 72 6f  70 20 3c 52 49 53 43 75  |$BackDrop <RISCu|
000002f0  74 69 6c 73 24 50 61 74  68 3e 2e 4e 6f 6e 5f 55  |tils$Path>.Non_U|
00000300  73 65 72 2e 42 72 61 6e  64 6f 6d 20 22 0d ff     |ser.Brandom "..|
0000030f