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