Home » Archimedes archive » Acorn User » AU 1996-05.adf » Regulars » StarInfo/Casula/!Boot/Utils/SetBD
StarInfo/Casula/!Boot/Utils/SetBD
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 1996-05.adf » Regulars |
| Filename: | StarInfo/Casula/!Boot/Utils/SetBD |
| Read OK: | ✔ |
| File size: | 016D bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM >Utils:SetBD
20
30ON ERROR CLOSE#0:ERROR EXT 0,"Backdrop file corrupt: "+REPORT$
40
50file%=OPENIN("Boot:BD")
60
70IF file%<>0 THEN
80 spr$=GET$#file%
90 typ%=BGET#file%
100 IF typ%<>0 THEN
110 CASE typ% OF
120 WHEN 1:t$="-C"
130 WHEN 2:t$="-S"
140 WHEN 3:t$="-T"
150 OTHERWISE ERROR 0,"Type wrong"
160 ENDCASE
170 OSCLI"Backdrop "+t$+" Choices:Backdrops."+spr$
180 ENDIF
190 CLOSE#file%
200ENDIF
210
� >Utils:SetBD
.� � �#0:� � 0,"Backdrop file corrupt: "+�$
(
2file%=�("Boot:BD")
<
F� file%<>0 �
P spr$=�#file%
Z typ%=�#file%
d � typ%<>0 �
n Ȏ typ% �
x � 1:t$="-C"
� � 2:t$="-S"
� � 3:t$="-T"
� � 0,"Type wrong"
� �
�2 �"Backdrop "+t$+" Choices:Backdrops."+spr$
� �
�
�#file%
��
�
� 00000000 0d 00 0a 12 f4 20 3e 55 74 69 6c 73 3a 53 65 74 |..... >Utils:Set|
00000010 42 44 0d 00 14 04 0d 00 1e 2e ee 20 85 20 d9 23 |BD......... . .#|
00000020 30 3a 85 20 a2 20 30 2c 22 42 61 63 6b 64 72 6f |0:. . 0,"Backdro|
00000030 70 20 66 69 6c 65 20 63 6f 72 72 75 70 74 3a 20 |p file corrupt: |
00000040 22 2b f6 24 0d 00 28 04 0d 00 32 16 66 69 6c 65 |"+.$..(...2.file|
00000050 25 3d 8e 28 22 42 6f 6f 74 3a 42 44 22 29 0d 00 |%=.("Boot:BD")..|
00000060 3c 04 0d 00 46 10 e7 20 66 69 6c 65 25 3c 3e 30 |<...F.. file%<>0|
00000070 20 8c 0d 00 50 12 20 20 73 70 72 24 3d be 23 66 | ...P. spr$=.#f|
00000080 69 6c 65 25 0d 00 5a 12 20 20 74 79 70 25 3d 9a |ile%..Z. typ%=.|
00000090 23 66 69 6c 65 25 0d 00 64 11 20 20 e7 20 74 79 |#file%..d. . ty|
000000a0 70 25 3c 3e 30 20 8c 0d 00 6e 11 20 20 20 20 c8 |p%<>0 ...n. .|
000000b0 8e 20 74 79 70 25 20 ca 0d 00 78 15 20 20 20 20 |. typ% ...x. |
000000c0 20 20 c9 20 31 3a 74 24 3d 22 2d 43 22 0d 00 82 | . 1:t$="-C"...|
000000d0 15 20 20 20 20 20 20 c9 20 32 3a 74 24 3d 22 2d |. . 2:t$="-|
000000e0 53 22 0d 00 8c 15 20 20 20 20 20 20 c9 20 33 3a |S".... . 3:|
000000f0 74 24 3d 22 2d 54 22 0d 00 96 1c 20 20 20 20 20 |t$="-T".... |
00000100 20 7f 20 85 20 30 2c 22 54 79 70 65 20 77 72 6f | . . 0,"Type wro|
00000110 6e 67 22 0d 00 a0 09 20 20 20 20 cb 0d 00 aa 32 |ng".... ....2|
00000120 20 20 20 20 ff 22 42 61 63 6b 64 72 6f 70 20 22 | ."Backdrop "|
00000130 2b 74 24 2b 22 20 43 68 6f 69 63 65 73 3a 42 61 |+t$+" Choices:Ba|
00000140 63 6b 64 72 6f 70 73 2e 22 2b 73 70 72 24 0d 00 |ckdrops."+spr$..|
00000150 b4 07 20 20 cd 0d 00 be 0d 20 20 d9 23 66 69 6c |.. ..... .#fil|
00000160 65 25 0d 00 c8 05 cd 0d 00 d2 04 0d ff |e%...........|
0000016d 
.