P/H/Convert

Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_22.ADF » P/H/Convert

P/H/Convert

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_22.ADF
Filename:	P/H/Convert
Read OK:	✔
File size:	01DB bytes
Load address:	FFFF1400
Exec address:	FFFF8023

Duplicates

There is 1 duplicate copy of this file in the archive:

AEW website » headfirst » headfirst_5_25_discs_HeadFirst-PD-Disk-008_D-HD008.ssd » Convert
Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_22.ADF » P/H/Convert

File contents

   10REM>Convert
   20MODE6
   30*FX20,6
   40A%=131:Y%=(USR(&FFF4) AND &FF0000) DIV &10000
   50IF PAGE/256<Y% PROCupload
   60ON ERROR CLS:PRINT''"Error:";:REPORT:TIME=0:REPEAT UNTIL TIME>40:RUN
   70INPUT"Enter filename to load :"F$
   80INPUT"Enter filename to save :"G$
   90CLS
  100FORI=32TO255:VDU23,I
  110FORJ=1TO8:VDUI:NEXT
  120NEXT
  130VDU23,1,0;0;0;0;
  140A=OPENIN(F$)
  150FORI=1TO&3E7
  160VDU BGET#A
  170NEXT
  180CLOSE#A
  190B=GET
  200OSCLI"S. "+G$+" 6000 8000"
  210OSCLI"FX20":CLS:END
  220DEFPROCupload
  230*KEY0 FORI=(TOP-PAGE)TO0STEP-4:I!(Y%*256)=I!PAGE:NEXT:PA.=Y%*256|MOLD|MRUN|M
  240*FX138,0,128
  250END
  260ENDPROC



�>Convert
�6
*FX20,6
(+A%=131:Y%=(�(&FFF4) � &FF0000) � &10000
2� �/256<Y% �upload
<'� � �:�''"Error:";:�:�=0:� � �>40:�
F!�"Enter filename to load :"F$
P!�"Enter filename to save :"G$
Z�
d�I=32�255:�23,I
n�J=1�8:�I:�
x�
��23,1,0;0;0;0;
�A=�(F$)
�
�I=1�&3E7
�	� �#A
��
��#A
�B=�
��"S. "+G$+" 6000 8000"
��"FX20":�:�
���upload
�P*KEY0 FORI=(TOP-PAGE)TO0STEP-4:I!(Y%*256)=I!PAGE:NEXT:PA.=Y%*256|MOLD|MRUN|M
�*FX138,0,128
��
�
�

00000000  0d 00 0a 0d f4 3e 43 6f  6e 76 65 72 74 0d 00 14  |.....>Convert...|
00000010  06 eb 36 0d 00 1e 0b 2a  46 58 32 30 2c 36 0d 00  |..6....*FX20,6..|
00000020  28 2b 41 25 3d 31 33 31  3a 59 25 3d 28 ba 28 26  |(+A%=131:Y%=(.(&|
00000030  46 46 46 34 29 20 80 20  26 46 46 30 30 30 30 29  |FFF4) . &FF0000)|
00000040  20 81 20 26 31 30 30 30  30 0d 00 32 16 e7 20 90  | . &10000..2.. .|
00000050  2f 32 35 36 3c 59 25 20  f2 75 70 6c 6f 61 64 0d  |/256<Y% .upload.|
00000060  00 3c 27 ee 20 85 20 db  3a f1 27 27 22 45 72 72  |.<'. . .:.''"Err|
00000070  6f 72 3a 22 3b 3a f6 3a  d1 3d 30 3a f5 20 fd 20  |or:";:.:.=0:. . |
00000080  91 3e 34 30 3a f9 0d 00  46 21 e8 22 45 6e 74 65  |.>40:...F!."Ente|
00000090  72 20 66 69 6c 65 6e 61  6d 65 20 74 6f 20 6c 6f  |r filename to lo|
000000a0  61 64 20 3a 22 46 24 0d  00 50 21 e8 22 45 6e 74  |ad :"F$..P!."Ent|
000000b0  65 72 20 66 69 6c 65 6e  61 6d 65 20 74 6f 20 73  |er filename to s|
000000c0  61 76 65 20 3a 22 47 24  0d 00 5a 05 db 0d 00 64  |ave :"G$..Z....d|
000000d0  13 e3 49 3d 33 32 b8 32  35 35 3a ef 32 33 2c 49  |..I=32.255:.23,I|
000000e0  0d 00 6e 0f e3 4a 3d 31  b8 38 3a ef 49 3a ed 0d  |..n..J=1.8:.I:..|
000000f0  00 78 05 ed 0d 00 82 12  ef 32 33 2c 31 2c 30 3b  |.x.......23,1,0;|
00000100  30 3b 30 3b 30 3b 0d 00  8c 0b 41 3d 8e 28 46 24  |0;0;0;....A=.(F$|
00000110  29 0d 00 96 0d e3 49 3d  31 b8 26 33 45 37 0d 00  |).....I=1.&3E7..|
00000120  a0 09 ef 20 9a 23 41 0d  00 aa 05 ed 0d 00 b4 07  |... .#A.........|
00000130  d9 23 41 0d 00 be 07 42  3d a5 0d 00 c8 1a ff 22  |.#A....B=......"|
00000140  53 2e 20 22 2b 47 24 2b  22 20 36 30 30 30 20 38  |S. "+G$+" 6000 8|
00000150  30 30 30 22 0d 00 d2 0f  ff 22 46 58 32 30 22 3a  |000"....."FX20":|
00000160  db 3a e0 0d 00 dc 0c dd  f2 75 70 6c 6f 61 64 0d  |.:.......upload.|
00000170  00 e6 50 2a 4b 45 59 30  20 46 4f 52 49 3d 28 54  |..P*KEY0 FORI=(T|
00000180  4f 50 2d 50 41 47 45 29  54 4f 30 53 54 45 50 2d  |OP-PAGE)TO0STEP-|
00000190  34 3a 49 21 28 59 25 2a  32 35 36 29 3d 49 21 50  |4:I!(Y%*256)=I!P|
000001a0  41 47 45 3a 4e 45 58 54  3a 50 41 2e 3d 59 25 2a  |AGE:NEXT:PA.=Y%*|
000001b0  32 35 36 7c 4d 4f 4c 44  7c 4d 52 55 4e 7c 4d 0d  |256|MOLD|MRUN|M.|
000001c0  00 f0 10 2a 46 58 31 33  38 2c 30 2c 31 32 38 0d  |...*FX138,0,128.|
000001d0  00 fa 05 e0 0d 01 04 05  e1 0d ff                 |...........|
000001db

P/H/Convert.m0

P/H/Convert.m1

P/H/Convert.m2

P/H/Convert.m4

P/H/Convert.m5

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .