Home » Archimedes archive » Acorn User » AU 1997-06 B.adf » Extras » RiscUtils/!RuInstall/Install/Non_User/Bcycle
RiscUtils/!RuInstall/Install/Non_User/Bcycle
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/Bcycle |
| Read OK: | ✔ |
| File size: | 02F0 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.Bcycle ":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.")+28):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.Bcycle ":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%:path%=OPENUP "<RISCutils$Path>.Non_User.DataB":INPUT#path%,r:IF r<N r+=1 ELSE r=1
9PTR#path%=0:PRINT#path%,r:CLOSE#path%:OSCLI"Backdrop "+C$(r):OSCLI"Set Alias$BackDrop <RISCutils$Path>.Non_User.Bcycle "
�� � r$="<RISCutils$Path>.!Help.!Run ":� �=223 �last � �"Set Alias$BackDrop <RISCutils$Path>.Non_User.Bcycle ":� �=222 � r$+"4 Pres?" � � r$+"4 "+�$+" at line "+�(�):� Mș"OS_GetEnv"�A$:A$=�A$,�A$,"!RISCutils.Non_User.")+28):� �A$,1,1)<>"-" � r�"UnSet Alias$BackDrop":� �A$," ")=0 �"BACKDROP "+A$:�"Set Alias$BackDrop <RISCutils$Path>.Non_User.Bcycle ":� 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%:path%=� "<RISCutils$Path>.Non_User.DataB":�#path%,r:� r<N r+=1 � r=1 j�#path%=0:�#path%,r:�#path%:�"Backdrop "+C$(r):�"Set Alias$BackDrop <RISCutils$Path>.Non_User.Bcycle " �
00000000 0d 00 01 aa 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 63 79 63 6c 65 20 |Non_User.Bcycle | 00000070 22 3a e7 20 9f 3d 32 32 32 20 ff 20 72 24 2b 22 |":. .=222 . r$+"| 00000080 34 20 50 72 65 73 3f 22 20 8b 20 ff 20 72 24 2b |4 Pres?" . . r$+| 00000090 22 34 20 22 2b f6 24 2b 22 20 61 74 20 6c 69 6e |"4 "+.$+" at lin| 000000a0 65 20 22 2b c3 28 9e 29 3a e0 0d 00 02 4d c8 99 |e "+.(.):....M..| 000000b0 22 4f 53 5f 47 65 74 45 6e 76 22 b8 41 24 3a 41 |"OS_GetEnv".A$:A| 000000c0 24 3d c1 41 24 2c a7 41 24 2c 22 21 52 49 53 43 |$=.A$,.A$,"!RISC| 000000d0 75 74 69 6c 73 2e 4e 6f 6e 5f 55 73 65 72 2e 22 |utils.Non_User."| 000000e0 29 2b 32 38 29 3a e7 20 c1 41 24 2c 31 2c 31 29 |)+28):. .A$,1,1)| 000000f0 3c 3e 22 2d 22 20 e0 0d 00 03 72 ff 22 55 6e 53 |<>"-" ....r."UnS| 00000100 65 74 20 41 6c 69 61 73 24 42 61 63 6b 44 72 6f |et Alias$BackDro| 00000110 70 22 3a e7 20 a7 41 24 2c 22 20 22 29 3d 30 20 |p":. .A$," ")=0 | 00000120 ff 22 42 41 43 4b 44 52 4f 50 20 22 2b 41 24 3a |."BACKDROP "+A$:| 00000130 ff 22 53 65 74 20 41 6c 69 61 73 24 42 61 63 6b |."Set Alias$Back| 00000140 44 72 6f 70 20 3c 52 49 53 43 75 74 69 6c 73 24 |Drop <RISCutils$| 00000150 50 61 74 68 3e 2e 4e 6f 6e 5f 55 73 65 72 2e 42 |Path>.Non_User.B| 00000160 63 79 63 6c 65 20 22 3a e0 0d 00 04 6f 70 61 74 |cycle ":....opat| 00000170 68 25 3d ad 20 22 3c 52 49 53 43 75 74 69 6c 73 |h%=. "<RISCutils| 00000180 24 50 61 74 68 3e 2e 55 73 65 72 5f 41 72 65 61 |$Path>.User_Area| 00000190 2e 46 69 6c 65 73 2e 42 61 63 6b 44 72 6f 70 73 |.Files.BackDrops| 000001a0 22 3a 4e 3d 31 3a de 20 43 24 28 32 35 30 29 3a |":N=1:. C$(250):| 000001b0 e3 20 41 3d 31 20 b8 20 32 35 30 3a 43 24 28 4e |. A=1 . 250:C$(N| 000001c0 29 3d be 23 70 61 74 68 25 3a e7 20 43 24 28 4e |)=.#path%:. C$(N| 000001d0 29 3d 22 22 20 ed 20 41 0d 00 05 2d 44 3d 30 3a |)="" . A...-D=0:| 000001e0 f5 3a 44 2b 3d 31 3a fd 20 c1 43 24 28 4e 29 2c |.:D+=1:. .C$(N),| 000001f0 44 2c 31 29 3c 3e 22 20 22 20 84 20 44 3d a9 20 |D,1)<>" " . D=. | 00000200 43 24 28 4e 29 0d 00 06 1b e7 20 c1 43 24 28 4e |C$(N)..... .C$(N| 00000210 29 2c 44 2c 31 29 3c 3e 22 20 22 20 4e 2b 3d 31 |),D,1)<>" " N+=1| 00000220 0d 00 07 07 ed 20 41 0d 00 08 5d dd 20 f2 6c 61 |..... A...]. .la| 00000230 73 74 3a 4e 2d 3d 31 3a d9 23 70 61 74 68 25 3a |st:N-=1:.#path%:| 00000240 70 61 74 68 25 3d ad 20 22 3c 52 49 53 43 75 74 |path%=. "<RISCut| 00000250 69 6c 73 24 50 61 74 68 3e 2e 4e 6f 6e 5f 55 73 |ils$Path>.Non_Us| 00000260 65 72 2e 44 61 74 61 42 22 3a e8 23 70 61 74 68 |er.DataB":.#path| 00000270 25 2c 72 3a e7 20 72 3c 4e 20 72 2b 3d 31 20 8b |%,r:. r<N r+=1 .| 00000280 20 72 3d 31 0d 00 09 6a cf 23 70 61 74 68 25 3d | r=1...j.#path%=| 00000290 30 3a f1 23 70 61 74 68 25 2c 72 3a d9 23 70 61 |0:.#path%,r:.#pa| 000002a0 74 68 25 3a ff 22 42 61 63 6b 64 72 6f 70 20 22 |th%:."Backdrop "| 000002b0 2b 43 24 28 72 29 3a ff 22 53 65 74 20 41 6c 69 |+C$(r):."Set Ali| 000002c0 61 73 24 42 61 63 6b 44 72 6f 70 20 3c 52 49 53 |as$BackDrop <RIS| 000002d0 43 75 74 69 6c 73 24 50 61 74 68 3e 2e 4e 6f 6e |Cutils$Path>.Non| 000002e0 5f 55 73 65 72 2e 42 63 79 63 6c 65 20 22 0d ff |_User.Bcycle "..| 000002f0
.