Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_18.ADF » P/Convert2
P/Convert2
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 » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_18.ADF |
| Filename: | P/Convert2 |
| Read OK: | ✔ |
| File size: | 00BC bytes |
| Load address: | FFFF0E00 |
| Exec address: | FFFF8023 |
Duplicates
There is 1 duplicate copy of this file in the archive:
- AEW website » eug » eug_5_25_discs_Eug-18_D-EUG18.dsd » U.CONVER2
- Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_18.ADF » P/Convert2
File contents
10*FX20,6
20input$=""
30output$=""
40ch%=OPENIN(input$)
50FOR char%=32 TO 126
60VDU 23,char%
70FOR byte=1 TO 8
80VDU BGET#ch%
90NEXT byte
100NEXT char%
110CLOSE #ch%
120OSCLI("CSAVE "+output$+" 20 FF X")
130END
*FX20,6
input$=""
output$=""
(ch%=�(input$)
2� char%=32 � 126
<� 23,char%
F� byte=1 � 8
P � �#ch%
Z
� byte
d � char%
n
� #ch%
x"�("CSAVE "+output$+" 20 FF X")
��
� 00000000 0d 00 0a 0b 2a 46 58 32 30 2c 36 0d 00 14 0d 69 |....*FX20,6....i|
00000010 6e 70 75 74 24 3d 22 22 0d 00 1e 0e 6f 75 74 70 |nput$=""....outp|
00000020 75 74 24 3d 22 22 0d 00 28 11 63 68 25 3d 8e 28 |ut$=""..(.ch%=.(|
00000030 69 6e 70 75 74 24 29 0d 00 32 14 e3 20 63 68 61 |input$)..2.. cha|
00000040 72 25 3d 33 32 20 b8 20 31 32 36 0d 00 3c 0e ef |r%=32 . 126..<..|
00000050 20 32 33 2c 63 68 61 72 25 0d 00 46 10 e3 20 62 | 23,char%..F.. b|
00000060 79 74 65 3d 31 20 b8 20 38 0d 00 50 0b ef 20 9a |yte=1 . 8..P.. .|
00000070 23 63 68 25 0d 00 5a 0a ed 20 62 79 74 65 0d 00 |#ch%..Z.. byte..|
00000080 64 0b ed 20 63 68 61 72 25 0d 00 6e 0a d9 20 23 |d.. char%..n.. #|
00000090 63 68 25 0d 00 78 22 ff 28 22 43 53 41 56 45 20 |ch%..x".("CSAVE |
000000a0 22 2b 6f 75 74 70 75 74 24 2b 22 20 32 30 20 46 |"+output$+" 20 F|
000000b0 46 20 58 22 29 0d 00 82 05 e0 0d ff |F X").......|
000000bc 
.