Home » Archimedes archive » Zipped Apps » 1st Word Plus » WP/utils/RFS_!BOOT
WP/utils/RFS_!BOOT
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 » Zipped Apps » 1st Word Plus |
Filename: | WP/utils/RFS_!BOOT |
Read OK: | ✔ |
File size: | 0252 bytes |
Load address: | 0000 |
Exec address: | 0000 |
File contents
10 REM>RFS:!BOOT 20 : 30 PRINT"Auto-starting from RFS" 40 PRINT'TIME$ 50 *LIB Library 60 *SET Run$Path ,RFS:%.,ADFS:%. 70 *SET ALIAS$CATALL COUNT $ V 90 *SET ALIAS$SKIP ECHO |<2>|<1>|<27>|<1>|<78>|<1>|<8>|<3> 100 *SET ALIAS$NLQ ECHO |<2>|<1>|<27>|<1>|<40>|<3> 110 *RMLOAD PMODULE 120 *BUFFON 130 PRINT'"Printer buffer loaded. "; 140 *BUFFSIZE 150 *ADFS 160 SYS "OS_Byte",255,8 170 PRINT'"Press any key when disc is ready in Drive 0 "; 180 *FX15,1 190 REPEAT UNTIL GET 200 ON ERROR IF ERR=17 THEN 270 ELSE 230 210 PRINT''"Looking for ADFS !BOOT"; 220 *RUN !BOOT 230 PRINT". Nothing found"' 240 ON ERROR GOTO 270 250 *BASIC 260 : 270 VDU10:ON ERROR OFF:END
�>RFS:!BOOT : �"Auto-starting from RFS" ( �'�$ 2 *LIB Library <" *SET Run$Path ,RFS:%.,ADFS:%. F *SET ALIAS$CATALL COUNT $ V Z< *SET ALIAS$SKIP ECHO |<2>|<1>|<27>|<1>|<78>|<1>|<8>|<3> d3 *SET ALIAS$NLQ ECHO |<2>|<1>|<27>|<1>|<40>|<3> n *RMLOAD PMODULE x *BUFFON �! �'"Printer buffer loaded. "; � *BUFFSIZE � *ADFS � ș "OS_Byte",255,8 �6 �'"Press any key when disc is ready in Drive 0 "; � *FX15,1 � � � � � � � � �=17 � �TNA � �df@ �! �''"Looking for ADFS !BOOT"; � *RUN !BOOT � �". Nothing found"' � � � � �TNA � *BASIC : �10:� � �:� �
00000000 0d 00 0a 10 20 f4 3e 52 46 53 3a 21 42 4f 4f 54 |.... .>RFS:!BOOT| 00000010 0d 00 14 06 20 3a 0d 00 1e 1e 20 f1 22 41 75 74 |.... :.... ."Aut| 00000020 6f 2d 73 74 61 72 74 69 6e 67 20 66 72 6f 6d 20 |o-starting from | 00000030 52 46 53 22 0d 00 28 09 20 f1 27 91 24 0d 00 32 |RFS"..(. .'.$..2| 00000040 11 20 2a 4c 49 42 20 4c 69 62 72 61 72 79 0d 00 |. *LIB Library..| 00000050 3c 22 20 2a 53 45 54 20 52 75 6e 24 50 61 74 68 |<" *SET Run$Path| 00000060 20 2c 52 46 53 3a 25 2e 2c 41 44 46 53 3a 25 2e | ,RFS:%.,ADFS:%.| 00000070 0d 00 46 20 20 2a 53 45 54 20 41 4c 49 41 53 24 |..F *SET ALIAS$| 00000080 43 41 54 41 4c 4c 20 43 4f 55 4e 54 20 24 20 56 |CATALL COUNT $ V| 00000090 0d 00 5a 3c 20 2a 53 45 54 20 41 4c 49 41 53 24 |..Z< *SET ALIAS$| 000000a0 53 4b 49 50 20 45 43 48 4f 20 7c 3c 32 3e 7c 3c |SKIP ECHO |<2>|<| 000000b0 31 3e 7c 3c 32 37 3e 7c 3c 31 3e 7c 3c 37 38 3e |1>|<27>|<1>|<78>| 000000c0 7c 3c 31 3e 7c 3c 38 3e 7c 3c 33 3e 0d 00 64 33 ||<1>|<8>|<3>..d3| 000000d0 20 2a 53 45 54 20 41 4c 49 41 53 24 4e 4c 51 20 | *SET ALIAS$NLQ | 000000e0 45 43 48 4f 20 7c 3c 32 3e 7c 3c 31 3e 7c 3c 32 |ECHO |<2>|<1>|<2| 000000f0 37 3e 7c 3c 31 3e 7c 3c 34 30 3e 7c 3c 33 3e 0d |7>|<1>|<40>|<3>.| 00000100 00 6e 14 20 2a 52 4d 4c 4f 41 44 20 50 4d 4f 44 |.n. *RMLOAD PMOD| 00000110 55 4c 45 0d 00 78 0c 20 2a 42 55 46 46 4f 4e 0d |ULE..x. *BUFFON.| 00000120 00 82 21 20 f1 27 22 50 72 69 6e 74 65 72 20 62 |..! .'"Printer b| 00000130 75 66 66 65 72 20 6c 6f 61 64 65 64 2e 20 22 3b |uffer loaded. ";| 00000140 0d 00 8c 0e 20 2a 42 55 46 46 53 49 5a 45 0d 00 |.... *BUFFSIZE..| 00000150 96 0a 20 2a 41 44 46 53 0d 00 a0 17 20 c8 99 20 |.. *ADFS.... .. | 00000160 22 4f 53 5f 42 79 74 65 22 2c 32 35 35 2c 38 0d |"OS_Byte",255,8.| 00000170 00 aa 36 20 f1 27 22 50 72 65 73 73 20 61 6e 79 |..6 .'"Press any| 00000180 20 6b 65 79 20 77 68 65 6e 20 64 69 73 63 20 69 | key when disc i| 00000190 73 20 72 65 61 64 79 20 69 6e 20 44 72 69 76 65 |s ready in Drive| 000001a0 20 30 20 22 3b 0d 00 b4 0c 20 2a 46 58 31 35 2c | 0 ";.... *FX15,| 000001b0 31 0d 00 be 0a 20 f5 20 fd 20 a5 0d 00 c8 1d 20 |1.... . . ..... | 000001c0 ee 20 85 20 e7 20 9f 3d 31 37 20 8c 20 8d 54 4e |. . . .=17 . .TN| 000001d0 41 20 8b 20 8d 64 66 40 0d 00 d2 21 20 f1 27 27 |A . .df@...! .''| 000001e0 22 4c 6f 6f 6b 69 6e 67 20 66 6f 72 20 41 44 46 |"Looking for ADF| 000001f0 53 20 21 42 4f 4f 54 22 3b 0d 00 dc 0f 20 2a 52 |S !BOOT";.... *R| 00000200 55 4e 20 21 42 4f 4f 54 0d 00 e6 18 20 f1 22 2e |UN !BOOT.... .".| 00000210 20 4e 6f 74 68 69 6e 67 20 66 6f 75 6e 64 22 27 | Nothing found"'| 00000220 0d 00 f0 0f 20 ee 20 85 20 e5 20 8d 54 4e 41 0d |.... . . . .TNA.| 00000230 00 fa 0b 20 2a 42 41 53 49 43 0d 01 04 06 20 3a |... *BASIC.... :| 00000240 0d 01 0e 10 20 ef 31 30 3a ee 20 85 20 87 3a e0 |.... .10:. . .:.| 00000250 0d ff |..| 00000252