Home » Archimedes archive » Acorn User » AU 1997-07 A.adf » Regulars » info/Rawle/!SwiConv/ConvertEx
info/Rawle/!SwiConv/ConvertEx
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-07 A.adf » Regulars |
| Filename: | info/Rawle/!SwiConv/ConvertEx |
| Read OK: | ✔ |
| File size: | 01F5 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
Duplicates
There is 1 duplicate copy of this file in the archive:
- Archimedes archive » Acorn User » AU 1997-02 B.adf » Regulars » StarInfo/Rawle/!SwiConv/ConvertEx
- Archimedes archive » Acorn User » AU 1997-07 A.adf » Regulars » info/Rawle/!SwiConv/ConvertEx
File contents
*BASIC -load <SwiConv$InputFile> VDU21 TEXTSAVE "<Wimp$ScrapDir>.SwiConv" CHAIN "<SwiConv$Dir>.Convert" TEXTLOAD "<Wimp$ScrapDir>.SwiConv2" IFINSTR(REPORT$,"ARM BBC BASIC"):ELSEOSCLI"Set SwiConv$OutputFile Null:$.File":OSCLI"Set SwiConv$Failed "+REPORT$:OSCLI"Filer_Run <SwiConv$Dir>.Failed" SAVE "<SwiConv$OutputFile>" *REMOVE <Wimp$ScrapDir>.SwiConv *REMOVE <Wimp$ScrapDir>.SwiConv2 *Unset SwiConv$InputFile *Unset SwiConv$InputType *Unset SwiConv$OutputFile *Unset SwiConv$OutputType VDU6 *DESKTOP
00000000 2a 42 41 53 49 43 20 2d 6c 6f 61 64 20 3c 53 77 |*BASIC -load <Sw| 00000010 69 43 6f 6e 76 24 49 6e 70 75 74 46 69 6c 65 3e |iConv$InputFile>| 00000020 0a 56 44 55 32 31 0a 54 45 58 54 53 41 56 45 20 |.VDU21.TEXTSAVE | 00000030 22 3c 57 69 6d 70 24 53 63 72 61 70 44 69 72 3e |"<Wimp$ScrapDir>| 00000040 2e 53 77 69 43 6f 6e 76 22 0a 43 48 41 49 4e 20 |.SwiConv".CHAIN | 00000050 22 3c 53 77 69 43 6f 6e 76 24 44 69 72 3e 2e 43 |"<SwiConv$Dir>.C| 00000060 6f 6e 76 65 72 74 22 0a 54 45 58 54 4c 4f 41 44 |onvert".TEXTLOAD| 00000070 20 22 3c 57 69 6d 70 24 53 63 72 61 70 44 69 72 | "<Wimp$ScrapDir| 00000080 3e 2e 53 77 69 43 6f 6e 76 32 22 0a 49 46 49 4e |>.SwiConv2".IFIN| 00000090 53 54 52 28 52 45 50 4f 52 54 24 2c 22 41 52 4d |STR(REPORT$,"ARM| 000000a0 20 42 42 43 20 42 41 53 49 43 22 29 3a 45 4c 53 | BBC BASIC"):ELS| 000000b0 45 4f 53 43 4c 49 22 53 65 74 20 53 77 69 43 6f |EOSCLI"Set SwiCo| 000000c0 6e 76 24 4f 75 74 70 75 74 46 69 6c 65 20 4e 75 |nv$OutputFile Nu| 000000d0 6c 6c 3a 24 2e 46 69 6c 65 22 3a 4f 53 43 4c 49 |ll:$.File":OSCLI| 000000e0 22 53 65 74 20 53 77 69 43 6f 6e 76 24 46 61 69 |"Set SwiConv$Fai| 000000f0 6c 65 64 20 22 2b 52 45 50 4f 52 54 24 3a 4f 53 |led "+REPORT$:OS| 00000100 43 4c 49 22 46 69 6c 65 72 5f 52 75 6e 20 3c 53 |CLI"Filer_Run <S| 00000110 77 69 43 6f 6e 76 24 44 69 72 3e 2e 46 61 69 6c |wiConv$Dir>.Fail| 00000120 65 64 22 0a 53 41 56 45 20 22 3c 53 77 69 43 6f |ed".SAVE "<SwiCo| 00000130 6e 76 24 4f 75 74 70 75 74 46 69 6c 65 3e 22 0a |nv$OutputFile>".| 00000140 2a 52 45 4d 4f 56 45 20 3c 57 69 6d 70 24 53 63 |*REMOVE <Wimp$Sc| 00000150 72 61 70 44 69 72 3e 2e 53 77 69 43 6f 6e 76 0a |rapDir>.SwiConv.| 00000160 2a 52 45 4d 4f 56 45 20 3c 57 69 6d 70 24 53 63 |*REMOVE <Wimp$Sc| 00000170 72 61 70 44 69 72 3e 2e 53 77 69 43 6f 6e 76 32 |rapDir>.SwiConv2| 00000180 0a 2a 55 6e 73 65 74 20 53 77 69 43 6f 6e 76 24 |.*Unset SwiConv$| 00000190 49 6e 70 75 74 46 69 6c 65 0a 2a 55 6e 73 65 74 |InputFile.*Unset| 000001a0 20 53 77 69 43 6f 6e 76 24 49 6e 70 75 74 54 79 | SwiConv$InputTy| 000001b0 70 65 0a 2a 55 6e 73 65 74 20 53 77 69 43 6f 6e |pe.*Unset SwiCon| 000001c0 76 24 4f 75 74 70 75 74 46 69 6c 65 0a 2a 55 6e |v$OutputFile.*Un| 000001d0 73 65 74 20 53 77 69 43 6f 6e 76 24 4f 75 74 70 |set SwiConv$Outp| 000001e0 75 74 54 79 70 65 0a 56 44 55 36 0a 2a 44 45 53 |utType.VDU6.*DES| 000001f0 4b 54 4f 50 0a |KTOP.| 000001f5
.