Home » Personal collection » Acorn hard disk » files » BallBot » Samples/Processing/Differ
Samples/Processing/Differ
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 hard disk » files » BallBot |
Filename: | Samples/Processing/Differ |
Read OK: | ✔ |
File size: | 0278 bytes |
Load address: | 0000 |
Exec address: | 0000 |
File contents
10ON ERROR REPORT:PRINT" @ ";ERL:END 20MODE9 30PROCpalette 40file$="Im1b":PROCdoit:*SSAVE Im1Out 50file$="Im2b":PROCdoit:*SSAVE Im2Out 60file$="Im3b":PROCdoit:*SSAVE Im3Out 70file$="Im4b":PROCdoit:*SSAVE Im4Out 80file$="Im5b":PROCdoit:*SSAVE Im5Out 90file$="Im6b":PROCdoit:*SSAVE Im6Out 100END 110: 120DEFPROCdoit 130OSCLI"SLOAD "+file$ 140FORy=0TO254 150SYS "OS_SpriteOp",41,0,"gif0",0,y TO ,,,,,colb 160FORx=1TO127 170SYS "OS_SpriteOp",41,0,"gif0",x,y TO ,,,,,col 180cold=8+col-colb 190IFcold<0 THENcold=0 200IFcold>15THENcold=15 210SYS "OS_SpriteOp",42,0,"gif0",x,y,cold 220colb=col 230NEXT, 240*SCHOOSE gif0 250PLOT &ED,0,0 260ENDPROC 270: 280DEFPROCpalette 290FORr=0TO15 300VDU19,r,16,16*r,16*r,16*r 310NEXT 320ENDPROC
� � �:�" @ ";�:� �9 �palette ($file$="Im1b":�doit:*SSAVE Im1Out 2$file$="Im2b":�doit:*SSAVE Im2Out <$file$="Im3b":�doit:*SSAVE Im3Out F$file$="Im4b":�doit:*SSAVE Im4Out P$file$="Im5b":�doit:*SSAVE Im5Out Z$file$="Im6b":�doit:*SSAVE Im6Out d� n: x ��doit ��"SLOAD "+file$ ��y=0�254 �0ș "OS_SpriteOp",41,0,"gif0",0,y � ,,,,,colb ��x=1�127 �/ș "OS_SpriteOp",41,0,"gif0",x,y � ,,,,,col �cold=8+col-colb ��cold<0 �cold=0 ��cold>15�cold=15 �)ș "OS_SpriteOp",42,0,"gif0",x,y,cold �colb=col ��, �*SCHOOSE gif0 � � &ED,0,0 � : ��palette "�r=0�15 ,�19,r,16,16*r,16*r,16*r 6� @� �
00000000 0d 00 0a 14 ee 20 85 20 f6 3a f1 22 20 40 20 22 |..... . .:." @ "| 00000010 3b 9e 3a e0 0d 00 14 06 eb 39 0d 00 1e 0c f2 70 |;.:......9.....p| 00000020 61 6c 65 74 74 65 0d 00 28 24 66 69 6c 65 24 3d |alette..($file$=| 00000030 22 49 6d 31 62 22 3a f2 64 6f 69 74 3a 2a 53 53 |"Im1b":.doit:*SS| 00000040 41 56 45 20 49 6d 31 4f 75 74 0d 00 32 24 66 69 |AVE Im1Out..2$fi| 00000050 6c 65 24 3d 22 49 6d 32 62 22 3a f2 64 6f 69 74 |le$="Im2b":.doit| 00000060 3a 2a 53 53 41 56 45 20 49 6d 32 4f 75 74 0d 00 |:*SSAVE Im2Out..| 00000070 3c 24 66 69 6c 65 24 3d 22 49 6d 33 62 22 3a f2 |<$file$="Im3b":.| 00000080 64 6f 69 74 3a 2a 53 53 41 56 45 20 49 6d 33 4f |doit:*SSAVE Im3O| 00000090 75 74 0d 00 46 24 66 69 6c 65 24 3d 22 49 6d 34 |ut..F$file$="Im4| 000000a0 62 22 3a f2 64 6f 69 74 3a 2a 53 53 41 56 45 20 |b":.doit:*SSAVE | 000000b0 49 6d 34 4f 75 74 0d 00 50 24 66 69 6c 65 24 3d |Im4Out..P$file$=| 000000c0 22 49 6d 35 62 22 3a f2 64 6f 69 74 3a 2a 53 53 |"Im5b":.doit:*SS| 000000d0 41 56 45 20 49 6d 35 4f 75 74 0d 00 5a 24 66 69 |AVE Im5Out..Z$fi| 000000e0 6c 65 24 3d 22 49 6d 36 62 22 3a f2 64 6f 69 74 |le$="Im6b":.doit| 000000f0 3a 2a 53 53 41 56 45 20 49 6d 36 4f 75 74 0d 00 |:*SSAVE Im6Out..| 00000100 64 05 e0 0d 00 6e 05 3a 0d 00 78 0a dd f2 64 6f |d....n.:..x...do| 00000110 69 74 0d 00 82 13 ff 22 53 4c 4f 41 44 20 22 2b |it....."SLOAD "+| 00000120 66 69 6c 65 24 0d 00 8c 0c e3 79 3d 30 b8 32 35 |file$.....y=0.25| 00000130 34 0d 00 96 30 c8 99 20 22 4f 53 5f 53 70 72 69 |4...0.. "OS_Spri| 00000140 74 65 4f 70 22 2c 34 31 2c 30 2c 22 67 69 66 30 |teOp",41,0,"gif0| 00000150 22 2c 30 2c 79 20 b8 20 2c 2c 2c 2c 2c 63 6f 6c |",0,y . ,,,,,col| 00000160 62 0d 00 a0 0c e3 78 3d 31 b8 31 32 37 0d 00 aa |b.....x=1.127...| 00000170 2f c8 99 20 22 4f 53 5f 53 70 72 69 74 65 4f 70 |/.. "OS_SpriteOp| 00000180 22 2c 34 31 2c 30 2c 22 67 69 66 30 22 2c 78 2c |",41,0,"gif0",x,| 00000190 79 20 b8 20 2c 2c 2c 2c 2c 63 6f 6c 0d 00 b4 13 |y . ,,,,,col....| 000001a0 63 6f 6c 64 3d 38 2b 63 6f 6c 2d 63 6f 6c 62 0d |cold=8+col-colb.| 000001b0 00 be 13 e7 63 6f 6c 64 3c 30 20 8c 63 6f 6c 64 |....cold<0 .cold| 000001c0 3d 30 0d 00 c8 14 e7 63 6f 6c 64 3e 31 35 8c 63 |=0.....cold>15.c| 000001d0 6f 6c 64 3d 31 35 0d 00 d2 29 c8 99 20 22 4f 53 |old=15...).. "OS| 000001e0 5f 53 70 72 69 74 65 4f 70 22 2c 34 32 2c 30 2c |_SpriteOp",42,0,| 000001f0 22 67 69 66 30 22 2c 78 2c 79 2c 63 6f 6c 64 0d |"gif0",x,y,cold.| 00000200 00 dc 0c 63 6f 6c 62 3d 63 6f 6c 0d 00 e6 06 ed |...colb=col.....| 00000210 2c 0d 00 f0 11 2a 53 43 48 4f 4f 53 45 20 67 69 |,....*SCHOOSE gi| 00000220 66 30 0d 00 fa 0d f0 20 26 45 44 2c 30 2c 30 0d |f0..... &ED,0,0.| 00000230 01 04 05 e1 0d 01 0e 05 3a 0d 01 18 0d dd f2 70 |........:......p| 00000240 61 6c 65 74 74 65 0d 01 22 0b e3 72 3d 30 b8 31 |alette.."..r=0.1| 00000250 35 0d 01 2c 1b ef 31 39 2c 72 2c 31 36 2c 31 36 |5..,..19,r,16,16| 00000260 2a 72 2c 31 36 2a 72 2c 31 36 2a 72 0d 01 36 05 |*r,16*r,16*r..6.| 00000270 ed 0d 01 40 05 e1 0d ff |...@....| 00000278