Home » Recent acquisitions » Acorn ADFS disks » adfs_AcornUser_199609.adf » Extras » PDScheme/Atterer/!SwitchF/!Help

PDScheme/Atterer/!SwitchF/!Help

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 » Recent acquisitions » Acorn ADFS disks » adfs_AcornUser_199609.adf » Extras
Filename: PDScheme/Atterer/!SwitchF/!Help
Read OK:
File size: 0139 bytes
Load address: 0000
Exec address: 0000
File contents
|Help for SwitchF
|Sorry, I just can't *Unset the variables, because if I did just after the
|*Filer_Run, they would be null BEFORE the Filer_Action is carried out
|under the multitasking (what a nasty thing!)

Set SwitchF$Dir <Obey$Dir>
Run <SwitchF$Dir>.SetCountry
Filer_Run <SwitchF$Dir>.<SwitchF$Country>-Help
00000000  7c 48 65 6c 70 20 66 6f  72 20 53 77 69 74 63 68  ||Help for Switch|
00000010  46 0a 7c 53 6f 72 72 79  2c 20 49 20 6a 75 73 74  |F.|Sorry, I just|
00000020  20 63 61 6e 27 74 20 2a  55 6e 73 65 74 20 74 68  | can't *Unset th|
00000030  65 20 76 61 72 69 61 62  6c 65 73 2c 20 62 65 63  |e variables, bec|
00000040  61 75 73 65 20 69 66 20  49 20 64 69 64 20 6a 75  |ause if I did ju|
00000050  73 74 20 61 66 74 65 72  20 74 68 65 0a 7c 2a 46  |st after the.|*F|
00000060  69 6c 65 72 5f 52 75 6e  2c 20 74 68 65 79 20 77  |iler_Run, they w|
00000070  6f 75 6c 64 20 62 65 20  6e 75 6c 6c 20 42 45 46  |ould be null BEF|
00000080  4f 52 45 20 74 68 65 20  46 69 6c 65 72 5f 41 63  |ORE the Filer_Ac|
00000090  74 69 6f 6e 20 69 73 20  63 61 72 72 69 65 64 20  |tion is carried |
000000a0  6f 75 74 0a 7c 75 6e 64  65 72 20 74 68 65 20 6d  |out.|under the m|
000000b0  75 6c 74 69 74 61 73 6b  69 6e 67 20 28 77 68 61  |ultitasking (wha|
000000c0  74 20 61 20 6e 61 73 74  79 20 74 68 69 6e 67 21  |t a nasty thing!|
000000d0  29 0a 0a 53 65 74 20 53  77 69 74 63 68 46 24 44  |)..Set SwitchF$D|
000000e0  69 72 20 3c 4f 62 65 79  24 44 69 72 3e 0a 52 75  |ir <Obey$Dir>.Ru|
000000f0  6e 20 3c 53 77 69 74 63  68 46 24 44 69 72 3e 2e  |n <SwitchF$Dir>.|
00000100  53 65 74 43 6f 75 6e 74  72 79 0a 46 69 6c 65 72  |SetCountry.Filer|
00000110  5f 52 75 6e 20 3c 53 77  69 74 63 68 46 24 44 69  |_Run <SwitchF$Di|
00000120  72 3e 2e 3c 53 77 69 74  63 68 46 24 43 6f 75 6e  |r>.<SwitchF$Coun|
00000130  74 72 79 3e 2d 48 65 6c  70                       |try>-Help|
00000139