Home » Archimedes archive » Acorn Computing » 1993 09 Mega Disk.adf » 93_09 » Imagery/!Install/Overlays/24
Imagery/!Install/Overlays/24
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/24 |
| Read OK: | ✔ |
| File size: | 02B7 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
40000DEFPROCEq 40010IFFK%<>4THENENDPROC 40020PROCBe:PROCBH:GCOL3,63TINT192:PLOT69,400,400:PLOT69,400,400:PROCBf:FN%=POINT(X%-2,Y%):FO%=TINT(X%-2,Y%):FP%=FNJ(FN%,FO%):IFFP%=BQ%THENPROCBN:PROCS(0,"Cannot trace the colour you are using.") 40030PROCCv(X%,Y%,FN%,FO%):PROCBN:PROCBG 40040ENDPROC 40050DEFPROCCv(X%,Y%,FN%,FO%) 40060SYS"Hourglass_On" 40070LOCALFe%,Ff%,Fg%,Fh% 40080IFFNM(X%,Y%,FN%,FO%)THENPROCS(0,"Cannot trace from an adjacent pixel of the same colour.") 40090Fg%=X%:Fh%=Y% 40100Fe%=3 40110PROCCx 40120REPEAT 40130IFNOTFNM(Ff%,Fi%,FN%,FO%)THENPLOT69,Ff%,Fi%:Fg%=Ff%:Fh%=Fi%:PROCCy 40140PROCCx 40150UNTILFf%=X%ANDFi%=Y% 40160PLOT69,Ff%,Fi% 40170SYS"Hourglass_Off" 40180ENDPROC 40190DEFPROCCx 40200Fe%=(Fe%+1)MOD4 40210CASEFe%OF 40220WHEN0:Ff%=Fg%-2:Fi%=Fh% 40230WHEN1:Ff%=Fg%:Fi%=Fh%+4 40240WHEN2:Ff%=Fg%+2:Fi%=Fh% 40250WHEN3:Ff%=Fg%:Fi%=Fh%-4 40260ENDCASE 40270ENDPROC 40280DEFPROCCy 40290Fe%=(Fe%+2)MOD4 40300ENDPROC
�@��Eq �J �FK%<>4�� �T��Be:�BH:�3,63Ȝ192:�69,400,400:�69,400,400:�Bf:FN%=�X%-2,Y%):FO%=Ȝ(X%-2,Y%):FP%=�J(FN%,FO%):�FP%=BQ%��BN:�S(0,"Cannot trace the colour you are using.") �^ �Cv(X%,Y%,FN%,FO%):�BN:�BG �h� �r��Cv(X%,Y%,FN%,FO%) �|ș"Hourglass_On" ���Fe%,Ff%,Fg%,Fh% ��V�M(X%,Y%,FN%,FO%)��S(0,"Cannot trace from an adjacent pixel of the same colour.") ��Fg%=X%:Fh%=Y% �� Fe%=3 ���Cx ��� ��9笤M(Ff%,Fi%,FN%,FO%)��69,Ff%,Fi%:Fg%=Ff%:Fh%=Fi%:�Cy ���Cx ���Ff%=X%�Fi%=Y% ���69,Ff%,Fi% ��ș"Hourglass_Off" ��� ����Cx �Fe%=(Fe%+1)�4 � ȎFe%� � �0:Ff%=Fg%-2:Fi%=Fh% �&�1:Ff%=Fg%:Fi%=Fh%+4 �0�2:Ff%=Fg%+2:Fi%=Fh% �:�3:Ff%=Fg%:Fi%=Fh%-4 �D� �N� �X��Cy �bFe%=(Fe%+2)�4 �l� �
00000000 0d 9c 40 08 dd f2 45 71 0d 9c 4a 0d e7 46 4b 25 |..@...Eq..J..FK%| 00000010 3c 3e 34 8c e1 0d 9c 54 9c f2 42 65 3a f2 42 48 |<>4....T..Be:.BH| 00000020 3a e6 33 2c 36 33 c8 9c 31 39 32 3a f0 36 39 2c |:.3,63..192:.69,| 00000030 34 30 30 2c 34 30 30 3a f0 36 39 2c 34 30 30 2c |400,400:.69,400,| 00000040 34 30 30 3a f2 42 66 3a 46 4e 25 3d b0 58 25 2d |400:.Bf:FN%=.X%-| 00000050 32 2c 59 25 29 3a 46 4f 25 3d c8 9c 28 58 25 2d |2,Y%):FO%=..(X%-| 00000060 32 2c 59 25 29 3a 46 50 25 3d a4 4a 28 46 4e 25 |2,Y%):FP%=.J(FN%| 00000070 2c 46 4f 25 29 3a e7 46 50 25 3d 42 51 25 8c f2 |,FO%):.FP%=BQ%..| 00000080 42 4e 3a f2 53 28 30 2c 22 43 61 6e 6e 6f 74 20 |BN:.S(0,"Cannot | 00000090 74 72 61 63 65 20 74 68 65 20 63 6f 6c 6f 75 72 |trace the colour| 000000a0 20 79 6f 75 20 61 72 65 20 75 73 69 6e 67 2e 22 | you are using."| 000000b0 29 0d 9c 5e 1e f2 43 76 28 58 25 2c 59 25 2c 46 |)..^..Cv(X%,Y%,F| 000000c0 4e 25 2c 46 4f 25 29 3a f2 42 4e 3a f2 42 47 0d |N%,FO%):.BN:.BG.| 000000d0 9c 68 05 e1 0d 9c 72 17 dd f2 43 76 28 58 25 2c |.h....r...Cv(X%,| 000000e0 59 25 2c 46 4e 25 2c 46 4f 25 29 0d 9c 7c 14 c8 |Y%,FN%,FO%)..|..| 000000f0 99 22 48 6f 75 72 67 6c 61 73 73 5f 4f 6e 22 0d |."Hourglass_On".| 00000100 9c 86 14 ea 46 65 25 2c 46 66 25 2c 46 67 25 2c |....Fe%,Ff%,Fg%,| 00000110 46 68 25 0d 9c 90 56 e7 a4 4d 28 58 25 2c 59 25 |Fh%...V..M(X%,Y%| 00000120 2c 46 4e 25 2c 46 4f 25 29 8c f2 53 28 30 2c 22 |,FN%,FO%)..S(0,"| 00000130 43 61 6e 6e 6f 74 20 74 72 61 63 65 20 66 72 6f |Cannot trace fro| 00000140 6d 20 61 6e 20 61 64 6a 61 63 65 6e 74 20 70 69 |m an adjacent pi| 00000150 78 65 6c 20 6f 66 20 74 68 65 20 73 61 6d 65 20 |xel of the same | 00000160 63 6f 6c 6f 75 72 2e 22 29 0d 9c 9a 11 46 67 25 |colour.")....Fg%| 00000170 3d 58 25 3a 46 68 25 3d 59 25 0d 9c a4 09 46 65 |=X%:Fh%=Y%....Fe| 00000180 25 3d 33 0d 9c ae 07 f2 43 78 0d 9c b8 05 f5 0d |%=3.....Cx......| 00000190 9c c2 39 e7 ac a4 4d 28 46 66 25 2c 46 69 25 2c |..9...M(Ff%,Fi%,| 000001a0 46 4e 25 2c 46 4f 25 29 8c f0 36 39 2c 46 66 25 |FN%,FO%)..69,Ff%| 000001b0 2c 46 69 25 3a 46 67 25 3d 46 66 25 3a 46 68 25 |,Fi%:Fg%=Ff%:Fh%| 000001c0 3d 46 69 25 3a f2 43 79 0d 9c cc 07 f2 43 78 0d |=Fi%:.Cy.....Cx.| 000001d0 9c d6 12 fd 46 66 25 3d 58 25 80 46 69 25 3d 59 |....Ff%=X%.Fi%=Y| 000001e0 25 0d 9c e0 0f f0 36 39 2c 46 66 25 2c 46 69 25 |%.....69,Ff%,Fi%| 000001f0 0d 9c ea 15 c8 99 22 48 6f 75 72 67 6c 61 73 73 |......"Hourglass| 00000200 5f 4f 66 66 22 0d 9c f4 05 e1 0d 9c fe 08 dd f2 |_Off"...........| 00000210 43 78 0d 9d 08 11 46 65 25 3d 28 46 65 25 2b 31 |Cx....Fe%=(Fe%+1| 00000220 29 83 34 0d 9d 12 0a c8 8e 46 65 25 ca 0d 9d 1c |).4......Fe%....| 00000230 18 c9 30 3a 46 66 25 3d 46 67 25 2d 32 3a 46 69 |..0:Ff%=Fg%-2:Fi| 00000240 25 3d 46 68 25 0d 9d 26 18 c9 31 3a 46 66 25 3d |%=Fh%..&..1:Ff%=| 00000250 46 67 25 3a 46 69 25 3d 46 68 25 2b 34 0d 9d 30 |Fg%:Fi%=Fh%+4..0| 00000260 18 c9 32 3a 46 66 25 3d 46 67 25 2b 32 3a 46 69 |..2:Ff%=Fg%+2:Fi| 00000270 25 3d 46 68 25 0d 9d 3a 18 c9 33 3a 46 66 25 3d |%=Fh%..:..3:Ff%=| 00000280 46 67 25 3a 46 69 25 3d 46 68 25 2d 34 0d 9d 44 |Fg%:Fi%=Fh%-4..D| 00000290 05 cb 0d 9d 4e 05 e1 0d 9d 58 08 dd f2 43 79 0d |....N....X...Cy.| 000002a0 9d 62 11 46 65 25 3d 28 46 65 25 2b 32 29 83 34 |.b.Fe%=(Fe%+2).4| 000002b0 0d 9d 6c 05 e1 0d ff |..l....| 000002b7
.