Home » Personal collection » Acorn ADFS disks » Electron » Utilities_1.ADF » GRAPHICS/HIGHLIGHT
GRAPHICS/HIGHLIGHT
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 ADFS disks » Electron » Utilities_1.ADF |
| Filename: | GRAPHICS/HIGHLIGHT |
| Read OK: | ✔ |
| File size: | 0157 bytes |
| Load address: | FFFF0E00 |
| Exec address: | FFFF8023 |
Duplicates
There is 1 duplicate copy of this file in the archive:
- Personal collection » Acorn ADFS disks » Electron » Utilities_1.ADF » GRAPHICS/HIGHLIGHT
- Personal collection » Acorn ADFS disks » Electron » Utilities_2.ADF » GRAPHICS/HIGHLIGHT
File contents
50MODE 1:COLOUR 129
60PROCoutline("within this program.",1,7,2,0):END
70DEF PROCoutline(text$,x,y,c1,c2)
80gx=x*32:gy=1024-(y*32):VDU 5
90GCOL 0,c1
100MOVE gx-4,gy:PRINT text$
110MOVE gx+4,gy:PRINT text$
120MOVE gx,gy-4:PRINT text$
130MOVE gx,gy+4:PRINT text$
140MOVE gx-4,gy-4:PRINT text$
150MOVE gx+4,gy-4:PRINT text$
160MOVE gx+4,gy+4:PRINT text$
170MOVE gx-4,gy+4:PRINT text$
180GCOL 0,c2:MOVE gx,gy:PRINT text$
190VDU 4:ENDPROC
2
� 1:� 129
<.�outline("within this program.",1,7,2,0):�
F � �outline(text$,x,y,c1,c2)
P gx=x*32:gy=1024-(y*32):� 5
Z
� 0,c1
d� gx-4,gy:� text$
n� gx+4,gy:� text$
x� gx,gy-4:� text$
�� gx,gy+4:� text$
�� gx-4,gy-4:� text$
�� gx+4,gy-4:� text$
�� gx+4,gy+4:� text$
�� gx-4,gy+4:� text$
�� 0,c2:� gx,gy:� text$
� � 4:�
� 00000000 0d 00 32 0d eb 20 31 3a fb 20 31 32 39 0d 00 3c |..2.. 1:. 129..<|
00000010 2e f2 6f 75 74 6c 69 6e 65 28 22 77 69 74 68 69 |..outline("withi|
00000020 6e 20 74 68 69 73 20 70 72 6f 67 72 61 6d 2e 22 |n this program."|
00000030 2c 31 2c 37 2c 32 2c 30 29 3a e0 0d 00 46 1f dd |,1,7,2,0):...F..|
00000040 20 f2 6f 75 74 6c 69 6e 65 28 74 65 78 74 24 2c | .outline(text$,|
00000050 78 2c 79 2c 63 31 2c 63 32 29 0d 00 50 1e 67 78 |x,y,c1,c2)..P.gx|
00000060 3d 78 2a 33 32 3a 67 79 3d 31 30 32 34 2d 28 79 |=x*32:gy=1024-(y|
00000070 2a 33 32 29 3a ef 20 35 0d 00 5a 0a e6 20 30 2c |*32):. 5..Z.. 0,|
00000080 63 31 0d 00 64 15 ec 20 67 78 2d 34 2c 67 79 3a |c1..d.. gx-4,gy:|
00000090 f1 20 74 65 78 74 24 0d 00 6e 15 ec 20 67 78 2b |. text$..n.. gx+|
000000a0 34 2c 67 79 3a f1 20 74 65 78 74 24 0d 00 78 15 |4,gy:. text$..x.|
000000b0 ec 20 67 78 2c 67 79 2d 34 3a f1 20 74 65 78 74 |. gx,gy-4:. text|
000000c0 24 0d 00 82 15 ec 20 67 78 2c 67 79 2b 34 3a f1 |$..... gx,gy+4:.|
000000d0 20 74 65 78 74 24 0d 00 8c 17 ec 20 67 78 2d 34 | text$..... gx-4|
000000e0 2c 67 79 2d 34 3a f1 20 74 65 78 74 24 0d 00 96 |,gy-4:. text$...|
000000f0 17 ec 20 67 78 2b 34 2c 67 79 2d 34 3a f1 20 74 |.. gx+4,gy-4:. t|
00000100 65 78 74 24 0d 00 a0 17 ec 20 67 78 2b 34 2c 67 |ext$..... gx+4,g|
00000110 79 2b 34 3a f1 20 74 65 78 74 24 0d 00 aa 17 ec |y+4:. text$.....|
00000120 20 67 78 2d 34 2c 67 79 2b 34 3a f1 20 74 65 78 | gx-4,gy+4:. tex|
00000130 74 24 0d 00 b4 1a e6 20 30 2c 63 32 3a ec 20 67 |t$..... 0,c2:. g|
00000140 78 2c 67 79 3a f1 20 74 65 78 74 24 0d 00 be 09 |x,gy:. text$....|
00000150 ef 20 34 3a e1 0d ff |. 4:...|
00000157 
.