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