Home » Archimedes archive » Acorn Computing » 1993 09 Mega Disk.adf » 93_09 » Imagery/!Install/Overlays/41

Imagery/!Install/Overlays/41

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 » Archimedes archive » Acorn Computing » 1993 09 Mega Disk.adf » 93_09
Filename: Imagery/!Install/Overlays/41
Read OK:
File size: 03E1 bytes
Load address: 0000
Exec address: 0000
File contents
40000DEFPROCCO
40010IFBS%<2THENPROCBu:ENDPROC
40020IFBS%=2THENPROCCA:IE%=(X%(0)+EA%)DIV2:IF%=(Y%(0)+EB%)DIV2:EF%=X%(0)-IE%:EG%=Y%(0)-IF%:EH%=EA%-IE%:EI%=EB%-IF%:PROCBe:PROCBH:PROCCU(X%,Y%):PROCBN:EA%=X%:EB%=Y%:PROCBG:BS%=3:ENDPROC
40030PROCBe:IFDz%=1ORDz%=4THENGOTO40050
40040IFX%<>EA%ORY%<>EB%THENPROCBH:PROCCU(EA%,EB%):EA%=X%:EB%=Y%:PROCCU(X%,Y%):PROCBN:PROCBG:ENDPROCELSEENDPROC
40050IFDz%=1THENPROCBH:PROCCU(EA%,EB%):PROCBN:PROCBG:BS%=0:ENDPROC
40060PROCBH:PROCCU(EA%,EB%):PROCBN:X%=EA%:Y%=EB%
40070BS%=4:PROCBx:PROCU(161*1024):IFQ%THENPROCBy
40080PROCBz:PROCBJ:R%=CM%:PROCCV(EF%,EG%,R%,Eb%,Ec%):PROCCV(EH%,EG%,R%,Ed%,Ee%):PROCCV(EH%,EI%,R%,Ef%,Eg%):PROCCV(EF%,EI%,R%,Eh%,Ei%)
40090PROCCV(0,(EI%DIV3)*2,R%,Ej%,Ek%):PROCCV(0,(EI%DIV3)*4,R%,El%,Em%)
40100Eb%+=X%:Ed%+=X%:Ef%+=X%:Eh%+=X%
40110Ec%+=Y%:Ee%+=Y%:Eg%+=Y%:Ei%+=Y%
40120PROCBh:PLOT4,Eb%,Ec%:PLOT4,Ed%,Ee%:PLOT85,Ef%,Eg%:GCOL3,60TINT192:PLOT4,Eh%,Ei%:PLOT85,Eb%,Ec%:PROCBM
40130A%=B:B!4=y%:B!8=BC%:B!12=BM%:B!16=(360-CM%)MOD360:B!20=BJ%:B!24=Cc%:B!28=X%:B!32=Y%:B!36=IE%:B!40=IF%:SYS"Hourglass_On":CALLR:SYS"Hourglass_Off"
40140PROCBH:SYS&2E,290,BC%,"PIC":PROCCU(X%,Y%):BS%=3:EA%=X%:EB%=Y%:PROCBN:PROCBE:PROCBx
40150ENDPROC
40160DEFPROCCj
40170PROCCI(24):PROCCk
40180IFBS%=3THENPROCBH:PROCCU(EA%,EB%):PROCBN:PROCBG
40190ENDPROC
�@��CO
�J�BS%<2��Bu:�
�T��BS%=2��CA:IE%=(X%(0)+EA%)�2:IF%=(Y%(0)+EB%)�2:EF%=X%(0)-IE%:EG%=Y%(0)-IF%:EH%=EA%-IE%:EI%=EB%-IF%:�Be:�BH:�CU(X%,Y%):�BN:EA%=X%:EB%=Y%:�BG:BS%=3:�
�^�Be:�Dz%=1�Dz%=4��Lr\
�hJ�X%<>EA%�Y%<>EB%��BH:�CU(EA%,EB%):EA%=X%:EB%=Y%:�CU(X%,Y%):�BN:�BG:��
�r+�Dz%=1��BH:�CU(EA%,EB%):�BN:�BG:BS%=0:�
�|&�BH:�CU(EA%,EB%):�BN:X%=EA%:Y%=EB%
��"BS%=4:�Bx:�U(161*1024):�Q%��By
��r�Bz:�BJ:R%=CM%:�CV(EF%,EG%,R%,Eb%,Ec%):�CV(EH%,EG%,R%,Ed%,Ee%):�CV(EH%,EI%,R%,Ef%,Eg%):�CV(EF%,EI%,R%,Eh%,Ei%)
��;�CV(0,(EI%�3)*2,R%,Ej%,Ek%):�CV(0,(EI%�3)*4,R%,El%,Em%)
��#Eb%+=X%:Ed%+=X%:Ef%+=X%:Eh%+=X%
��#Ec%+=Y%:Ee%+=Y%:Eg%+=Y%:Ei%+=Y%
��O�Bh:�4,Eb%,Ec%:�4,Ed%,Ee%:�85,Ef%,Eg%:�3,60Ȝ192:�4,Eh%,Ei%:�85,Eb%,Ec%:�BM
�A%=B:B!4=y%:B!8=BC%:B!12=BM%:B!16=(360-CM%)�360:B!20=BJ%:B!24=Cc%:B!28=X%:B!32=Y%:B!36=IE%:B!40=IF%:ș"Hourglass_On":�R:ș"Hourglass_Off"
��F�BH:ș&2E,290,BC%,"PIC":�CU(X%,Y%):BS%=3:EA%=X%:EB%=Y%:�BN:�BE:�Bx
���
����Cj
���CI(24):�Ck
��#�BS%=3��BH:�CU(EA%,EB%):�BN:�BG
���
�
00000000  0d 9c 40 08 dd f2 43 4f  0d 9c 4a 10 e7 42 53 25  |..@...CO..J..BS%|
00000010  3c 32 8c f2 42 75 3a e1  0d 9c 54 97 e7 42 53 25  |<2..Bu:...T..BS%|
00000020  3d 32 8c f2 43 41 3a 49  45 25 3d 28 58 25 28 30  |=2..CA:IE%=(X%(0|
00000030  29 2b 45 41 25 29 81 32  3a 49 46 25 3d 28 59 25  |)+EA%).2:IF%=(Y%|
00000040  28 30 29 2b 45 42 25 29  81 32 3a 45 46 25 3d 58  |(0)+EB%).2:EF%=X|
00000050  25 28 30 29 2d 49 45 25  3a 45 47 25 3d 59 25 28  |%(0)-IE%:EG%=Y%(|
00000060  30 29 2d 49 46 25 3a 45  48 25 3d 45 41 25 2d 49  |0)-IF%:EH%=EA%-I|
00000070  45 25 3a 45 49 25 3d 45  42 25 2d 49 46 25 3a f2  |E%:EI%=EB%-IF%:.|
00000080  42 65 3a f2 42 48 3a f2  43 55 28 58 25 2c 59 25  |Be:.BH:.CU(X%,Y%|
00000090  29 3a f2 42 4e 3a 45 41  25 3d 58 25 3a 45 42 25  |):.BN:EA%=X%:EB%|
000000a0  3d 59 25 3a f2 42 47 3a  42 53 25 3d 33 3a e1 0d  |=Y%:.BG:BS%=3:..|
000000b0  9c 5e 1a f2 42 65 3a e7  44 7a 25 3d 31 84 44 7a  |.^..Be:.Dz%=1.Dz|
000000c0  25 3d 34 8c e5 8d 4c 72  5c 0d 9c 68 4a e7 58 25  |%=4...Lr\..hJ.X%|
000000d0  3c 3e 45 41 25 84 59 25  3c 3e 45 42 25 8c f2 42  |<>EA%.Y%<>EB%..B|
000000e0  48 3a f2 43 55 28 45 41  25 2c 45 42 25 29 3a 45  |H:.CU(EA%,EB%):E|
000000f0  41 25 3d 58 25 3a 45 42  25 3d 59 25 3a f2 43 55  |A%=X%:EB%=Y%:.CU|
00000100  28 58 25 2c 59 25 29 3a  f2 42 4e 3a f2 42 47 3a  |(X%,Y%):.BN:.BG:|
00000110  e1 8b e1 0d 9c 72 2b e7  44 7a 25 3d 31 8c f2 42  |.....r+.Dz%=1..B|
00000120  48 3a f2 43 55 28 45 41  25 2c 45 42 25 29 3a f2  |H:.CU(EA%,EB%):.|
00000130  42 4e 3a f2 42 47 3a 42  53 25 3d 30 3a e1 0d 9c  |BN:.BG:BS%=0:...|
00000140  7c 26 f2 42 48 3a f2 43  55 28 45 41 25 2c 45 42  ||&.BH:.CU(EA%,EB|
00000150  25 29 3a f2 42 4e 3a 58  25 3d 45 41 25 3a 59 25  |%):.BN:X%=EA%:Y%|
00000160  3d 45 42 25 0d 9c 86 22  42 53 25 3d 34 3a f2 42  |=EB%..."BS%=4:.B|
00000170  78 3a f2 55 28 31 36 31  2a 31 30 32 34 29 3a e7  |x:.U(161*1024):.|
00000180  51 25 8c f2 42 79 0d 9c  90 72 f2 42 7a 3a f2 42  |Q%..By...r.Bz:.B|
00000190  4a 3a 52 25 3d 43 4d 25  3a f2 43 56 28 45 46 25  |J:R%=CM%:.CV(EF%|
000001a0  2c 45 47 25 2c 52 25 2c  45 62 25 2c 45 63 25 29  |,EG%,R%,Eb%,Ec%)|
000001b0  3a f2 43 56 28 45 48 25  2c 45 47 25 2c 52 25 2c  |:.CV(EH%,EG%,R%,|
000001c0  45 64 25 2c 45 65 25 29  3a f2 43 56 28 45 48 25  |Ed%,Ee%):.CV(EH%|
000001d0  2c 45 49 25 2c 52 25 2c  45 66 25 2c 45 67 25 29  |,EI%,R%,Ef%,Eg%)|
000001e0  3a f2 43 56 28 45 46 25  2c 45 49 25 2c 52 25 2c  |:.CV(EF%,EI%,R%,|
000001f0  45 68 25 2c 45 69 25 29  0d 9c 9a 3b f2 43 56 28  |Eh%,Ei%)...;.CV(|
00000200  30 2c 28 45 49 25 81 33  29 2a 32 2c 52 25 2c 45  |0,(EI%.3)*2,R%,E|
00000210  6a 25 2c 45 6b 25 29 3a  f2 43 56 28 30 2c 28 45  |j%,Ek%):.CV(0,(E|
00000220  49 25 81 33 29 2a 34 2c  52 25 2c 45 6c 25 2c 45  |I%.3)*4,R%,El%,E|
00000230  6d 25 29 0d 9c a4 23 45  62 25 2b 3d 58 25 3a 45  |m%)...#Eb%+=X%:E|
00000240  64 25 2b 3d 58 25 3a 45  66 25 2b 3d 58 25 3a 45  |d%+=X%:Ef%+=X%:E|
00000250  68 25 2b 3d 58 25 0d 9c  ae 23 45 63 25 2b 3d 59  |h%+=X%...#Ec%+=Y|
00000260  25 3a 45 65 25 2b 3d 59  25 3a 45 67 25 2b 3d 59  |%:Ee%+=Y%:Eg%+=Y|
00000270  25 3a 45 69 25 2b 3d 59  25 0d 9c b8 4f f2 42 68  |%:Ei%+=Y%...O.Bh|
00000280  3a f0 34 2c 45 62 25 2c  45 63 25 3a f0 34 2c 45  |:.4,Eb%,Ec%:.4,E|
00000290  64 25 2c 45 65 25 3a f0  38 35 2c 45 66 25 2c 45  |d%,Ee%:.85,Ef%,E|
000002a0  67 25 3a e6 33 2c 36 30  c8 9c 31 39 32 3a f0 34  |g%:.3,60..192:.4|
000002b0  2c 45 68 25 2c 45 69 25  3a f0 38 35 2c 45 62 25  |,Eh%,Ei%:.85,Eb%|
000002c0  2c 45 63 25 3a f2 42 4d  0d 9c c2 8d 41 25 3d 42  |,Ec%:.BM....A%=B|
000002d0  3a 42 21 34 3d 79 25 3a  42 21 38 3d 42 43 25 3a  |:B!4=y%:B!8=BC%:|
000002e0  42 21 31 32 3d 42 4d 25  3a 42 21 31 36 3d 28 33  |B!12=BM%:B!16=(3|
000002f0  36 30 2d 43 4d 25 29 83  33 36 30 3a 42 21 32 30  |60-CM%).360:B!20|
00000300  3d 42 4a 25 3a 42 21 32  34 3d 43 63 25 3a 42 21  |=BJ%:B!24=Cc%:B!|
00000310  32 38 3d 58 25 3a 42 21  33 32 3d 59 25 3a 42 21  |28=X%:B!32=Y%:B!|
00000320  33 36 3d 49 45 25 3a 42  21 34 30 3d 49 46 25 3a  |36=IE%:B!40=IF%:|
00000330  c8 99 22 48 6f 75 72 67  6c 61 73 73 5f 4f 6e 22  |.."Hourglass_On"|
00000340  3a d6 52 3a c8 99 22 48  6f 75 72 67 6c 61 73 73  |:.R:.."Hourglass|
00000350  5f 4f 66 66 22 0d 9c cc  46 f2 42 48 3a c8 99 26  |_Off"...F.BH:..&|
00000360  32 45 2c 32 39 30 2c 42  43 25 2c 22 50 49 43 22  |2E,290,BC%,"PIC"|
00000370  3a f2 43 55 28 58 25 2c  59 25 29 3a 42 53 25 3d  |:.CU(X%,Y%):BS%=|
00000380  33 3a 45 41 25 3d 58 25  3a 45 42 25 3d 59 25 3a  |3:EA%=X%:EB%=Y%:|
00000390  f2 42 4e 3a f2 42 45 3a  f2 42 78 0d 9c d6 05 e1  |.BN:.BE:.Bx.....|
000003a0  0d 9c e0 08 dd f2 43 6a  0d 9c ea 0f f2 43 49 28  |......Cj.....CI(|
000003b0  32 34 29 3a f2 43 6b 0d  9c f4 23 e7 42 53 25 3d  |24):.Ck...#.BS%=|
000003c0  33 8c f2 42 48 3a f2 43  55 28 45 41 25 2c 45 42  |3..BH:.CU(EA%,EB|
000003d0  25 29 3a f2 42 4e 3a f2  42 47 0d 9c fe 05 e1 0d  |%):.BN:.BG......|
000003e0  ff                                                |.|
000003e1