Home » Personal collection » Acorn ADFS disks » Electron » Utilities_2.ADF » GRAPHICS/DblHeight
GRAPHICS/DblHeight
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_2.ADF |
| Filename: | GRAPHICS/DblHeight |
| Read OK: | ✔ |
| File size: | 018C bytes |
| Load address: | FFFF1D00 |
| 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/DblHeight
- Personal collection » Acorn ADFS disks » Electron » Utilities_2.ADF » GRAPHICS/DblHeight
File contents
10REM DOUBLE HEIGHT CHARS
20REM ELBUG NOV.1983
100MODE2
110COLOUR6:COLOUR128+4
120PROCdouble("ELBUG",6,3)
130PROCdouble("for the",6,9)
140PROCdouble("ELECTRON",6,15)
150END
160DEFPROCdouble(A$,K,L)
170LOCAL N
180A%=&A:X%=0:Y%=&A
190D=&A00
200FOR N=1TOLEN(A$)
210B$=MID$(A$,N,1)
220?D=ASC(B$)
230CALL (&FFF1)
240 VDU23,240,D?1,D?1,D?2,D?2,D?3.D?3,D?4,D?4
250VDU23,241,D?5,D?5,D?6,D?6,D?7,D?7,D?8,D?8
260PRINTTAB(K+N,L);CHR$(240);TAB(K+N,L+1);CHR$(241)
270NEXTN
280ENDPROC
� DOUBLE HEIGHT CHARS
� ELBUG NOV.1983
d�2
n
�6:�128+4
x�double("ELBUG",6,3)
��double("for the",6,9)
� �double("ELECTRON",6,15)
��
���double(A$,K,L)
�� N
�A%=&A:X%=0:Y%=&A
�
D=&A00
�� N=1��(A$)
�B$=�A$,N,1)
� ?D=�(B$)
�
� (&FFF1)
�- �23,240,D?1,D?1,D?2,D?2,D?3.D?3,D?4,D?4
�+�23,241,D?5,D?5,D?6,D?6,D?7,D?7,D?8,D?8
$�K+N,L);�(240);�K+N,L+1);�(241)
�N
�
� 00000000 0d 00 0a 19 f4 20 44 4f 55 42 4c 45 20 48 45 49 |..... DOUBLE HEI|
00000010 47 48 54 20 43 48 41 52 53 0d 00 14 14 f4 20 45 |GHT CHARS..... E|
00000020 4c 42 55 47 20 4e 4f 56 2e 31 39 38 33 0d 00 64 |LBUG NOV.1983..d|
00000030 06 eb 32 0d 00 6e 0d fb 36 3a fb 31 32 38 2b 34 |..2..n..6:.128+4|
00000040 0d 00 78 18 f2 64 6f 75 62 6c 65 28 22 45 4c 42 |..x..double("ELB|
00000050 55 47 22 2c 36 2c 33 29 0d 00 82 1a f2 64 6f 75 |UG",6,3).....dou|
00000060 62 6c 65 28 22 66 6f 72 20 74 68 65 22 2c 36 2c |ble("for the",6,|
00000070 39 29 0d 00 8c 1c f2 64 6f 75 62 6c 65 28 22 45 |9).....double("E|
00000080 4c 45 43 54 52 4f 4e 22 2c 36 2c 31 35 29 0d 00 |LECTRON",6,15)..|
00000090 96 05 e0 0d 00 a0 14 dd f2 64 6f 75 62 6c 65 28 |.........double(|
000000a0 41 24 2c 4b 2c 4c 29 0d 00 aa 07 ea 20 4e 0d 00 |A$,K,L)..... N..|
000000b0 b4 14 41 25 3d 26 41 3a 58 25 3d 30 3a 59 25 3d |..A%=&A:X%=0:Y%=|
000000c0 26 41 0d 00 be 0a 44 3d 26 41 30 30 0d 00 c8 0f |&A....D=&A00....|
000000d0 e3 20 4e 3d 31 b8 a9 28 41 24 29 0d 00 d2 0f 42 |. N=1..(A$)....B|
000000e0 24 3d c1 41 24 2c 4e 2c 31 29 0d 00 dc 0c 3f 44 |$=.A$,N,1)....?D|
000000f0 3d 97 28 42 24 29 0d 00 e6 0d d6 20 28 26 46 46 |=.(B$)..... (&FF|
00000100 46 31 29 0d 00 f0 2d 20 ef 32 33 2c 32 34 30 2c |F1)...- .23,240,|
00000110 44 3f 31 2c 44 3f 31 2c 44 3f 32 2c 44 3f 32 2c |D?1,D?1,D?2,D?2,|
00000120 44 3f 33 2e 44 3f 33 2c 44 3f 34 2c 44 3f 34 20 |D?3.D?3,D?4,D?4 |
00000130 0d 00 fa 2b ef 32 33 2c 32 34 31 2c 44 3f 35 2c |...+.23,241,D?5,|
00000140 44 3f 35 2c 44 3f 36 2c 44 3f 36 2c 44 3f 37 2c |D?5,D?6,D?6,D?7,|
00000150 44 3f 37 2c 44 3f 38 2c 44 3f 38 0d 01 04 24 f1 |D?7,D?8,D?8...$.|
00000160 8a 4b 2b 4e 2c 4c 29 3b bd 28 32 34 30 29 3b 8a |.K+N,L);.(240);.|
00000170 4b 2b 4e 2c 4c 2b 31 29 3b bd 28 32 34 31 29 0d |K+N,L+1);.(241).|
00000180 01 0e 06 ed 4e 0d 01 18 05 e1 0d ff |....N.......|
0000018c 
.