Home » Personal collection » Acorn ADFS disks » Greaseweazled » dfs_box04_disk02b_eug_scripts.adf » ImgConvert

ImgConvert

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 » Greaseweazled » dfs_box04_disk02b_eug_scripts.adf
Filename: ImgConvert
Read OK:
File size: 0249 bytes
Load address: FFFF0E00
Exec address: FFFF802B
File contents
   10 MODE0:VDU23,1,0;0;0;0;:DIMc%(63):sync=0:?&FE62=0
   20 FORx=0TO63:READc%(x):NEXT
   30 FORy=0TO249:FORx=0TO39
   40 ad=&3000+16*x+(y MOD8)+(y DIV8)*&280
   50 s%=((y AND1)*16+FNget)*2
   60 ?ad=c%(s%):?(ad+8)=c%(s%+1)
   70 NEXT,
   80 *SAVE Picture 3000 8000
   90 END
  100 DEFFNget
  110 IF (?&FE60 AND1)=sync THEN 110
  120 sync=1-sync
  130 =(?&FE60 DIV16)
  140:
  150 DATA &00,&01,&00,&03,&00,&07,&00,&0F,&00,&1F,&00,&3F,&00,&7F,&00,&FF
  160 DATA &01,&FF,&03,&FF,&07,&FF,&0F,&FF,&1F,&FF,&3F,&FF,&7F,&FF,&FF,&FF
  170 DATA &80,&00,&C0,&00,&E0,&00,&F0,&00,&F8,&00,&FC,&00,&FE,&00,&FF,&00
  180 DATA &FF,&80,&FF,&C0,&FF,&E0,&FF,&F0,&FF,&F8,&FF,&FC,&FF,&FE,&FF,&FF

. �0:�23,1,0;0;0;0;:�c%(63):sync=0:?&FE62=0
 �x=0�63:�c%(x):�
 �y=0�249:�x=0�39
(% ad=&3000+16*x+(y �8)+(y �8)*&280
2 s%=((y �1)*16+�get)*2
<  ?ad=c%(s%):?(ad+8)=c%(s%+1)
F �,
P *SAVE Picture 3000 8000
Z �
d
 ݤget
n � (?&FE60 �1)=sync � �Dn@
x sync=1-sync
� =(?&FE60 �16)
�:
�F � &00,&01,&00,&03,&00,&07,&00,&0F,&00,&1F,&00,&3F,&00,&7F,&00,&FF
�F � &01,&FF,&03,&FF,&07,&FF,&0F,&FF,&1F,&FF,&3F,&FF,&7F,&FF,&FF,&FF
�F � &80,&00,&C0,&00,&E0,&00,&F0,&00,&F8,&00,&FC,&00,&FE,&00,&FF,&00
�F � &FF,&80,&FF,&C0,&FF,&E0,&FF,&F0,&FF,&F8,&FF,&FC,&FF,&FE,&FF,&FF
�
00000000  0d 00 0a 2e 20 eb 30 3a  ef 32 33 2c 31 2c 30 3b  |.... .0:.23,1,0;|
00000010  30 3b 30 3b 30 3b 3a de  63 25 28 36 33 29 3a 73  |0;0;0;:.c%(63):s|
00000020  79 6e 63 3d 30 3a 3f 26  46 45 36 32 3d 30 0d 00  |ync=0:?&FE62=0..|
00000030  14 15 20 e3 78 3d 30 b8  36 33 3a f3 63 25 28 78  |.. .x=0.63:.c%(x|
00000040  29 3a ed 0d 00 1e 15 20  e3 79 3d 30 b8 32 34 39  |):..... .y=0.249|
00000050  3a e3 78 3d 30 b8 33 39  0d 00 28 25 20 61 64 3d  |:.x=0.39..(% ad=|
00000060  26 33 30 30 30 2b 31 36  2a 78 2b 28 79 20 83 38  |&3000+16*x+(y .8|
00000070  29 2b 28 79 20 81 38 29  2a 26 32 38 30 0d 00 32  |)+(y .8)*&280..2|
00000080  1a 20 73 25 3d 28 28 79  20 80 31 29 2a 31 36 2b  |. s%=((y .1)*16+|
00000090  a4 67 65 74 29 2a 32 0d  00 3c 20 20 3f 61 64 3d  |.get)*2..<  ?ad=|
000000a0  63 25 28 73 25 29 3a 3f  28 61 64 2b 38 29 3d 63  |c%(s%):?(ad+8)=c|
000000b0  25 28 73 25 2b 31 29 0d  00 46 07 20 ed 2c 0d 00  |%(s%+1)..F. .,..|
000000c0  50 1c 20 2a 53 41 56 45  20 50 69 63 74 75 72 65  |P. *SAVE Picture|
000000d0  20 33 30 30 30 20 38 30  30 30 0d 00 5a 06 20 e0  | 3000 8000..Z. .|
000000e0  0d 00 64 0a 20 dd a4 67  65 74 0d 00 6e 1e 20 e7  |..d. ..get..n. .|
000000f0  20 28 3f 26 46 45 36 30  20 80 31 29 3d 73 79 6e  | (?&FE60 .1)=syn|
00000100  63 20 8c 20 8d 44 6e 40  0d 00 78 10 20 73 79 6e  |c . .Dn@..x. syn|
00000110  63 3d 31 2d 73 79 6e 63  0d 00 82 12 20 3d 28 3f  |c=1-sync.... =(?|
00000120  26 46 45 36 30 20 81 31  36 29 0d 00 8c 05 3a 0d  |&FE60 .16)....:.|
00000130  00 96 46 20 dc 20 26 30  30 2c 26 30 31 2c 26 30  |..F . &00,&01,&0|
00000140  30 2c 26 30 33 2c 26 30  30 2c 26 30 37 2c 26 30  |0,&03,&00,&07,&0|
00000150  30 2c 26 30 46 2c 26 30  30 2c 26 31 46 2c 26 30  |0,&0F,&00,&1F,&0|
00000160  30 2c 26 33 46 2c 26 30  30 2c 26 37 46 2c 26 30  |0,&3F,&00,&7F,&0|
00000170  30 2c 26 46 46 0d 00 a0  46 20 dc 20 26 30 31 2c  |0,&FF...F . &01,|
00000180  26 46 46 2c 26 30 33 2c  26 46 46 2c 26 30 37 2c  |&FF,&03,&FF,&07,|
00000190  26 46 46 2c 26 30 46 2c  26 46 46 2c 26 31 46 2c  |&FF,&0F,&FF,&1F,|
000001a0  26 46 46 2c 26 33 46 2c  26 46 46 2c 26 37 46 2c  |&FF,&3F,&FF,&7F,|
000001b0  26 46 46 2c 26 46 46 2c  26 46 46 0d 00 aa 46 20  |&FF,&FF,&FF...F |
000001c0  dc 20 26 38 30 2c 26 30  30 2c 26 43 30 2c 26 30  |. &80,&00,&C0,&0|
000001d0  30 2c 26 45 30 2c 26 30  30 2c 26 46 30 2c 26 30  |0,&E0,&00,&F0,&0|
000001e0  30 2c 26 46 38 2c 26 30  30 2c 26 46 43 2c 26 30  |0,&F8,&00,&FC,&0|
000001f0  30 2c 26 46 45 2c 26 30  30 2c 26 46 46 2c 26 30  |0,&FE,&00,&FF,&0|
00000200  30 0d 00 b4 46 20 dc 20  26 46 46 2c 26 38 30 2c  |0...F . &FF,&80,|
00000210  26 46 46 2c 26 43 30 2c  26 46 46 2c 26 45 30 2c  |&FF,&C0,&FF,&E0,|
00000220  26 46 46 2c 26 46 30 2c  26 46 46 2c 26 46 38 2c  |&FF,&F0,&FF,&F8,|
00000230  26 46 46 2c 26 46 43 2c  26 46 46 2c 26 46 45 2c  |&FF,&FC,&FF,&FE,|
00000240  26 46 46 2c 26 46 46 0d  ff                       |&FF,&FF..|
00000249
ImgConvert.m0
ImgConvert.m1
ImgConvert.m2
ImgConvert.m4
ImgConvert.m5