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