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