Home » Archimedes archive » Zipped Apps » 1st Word Plus » WP/utils/PItalic
WP/utils/PItalic
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 » Zipped Apps » 1st Word Plus |
| Filename: | WP/utils/PItalic |
| Read OK: | ✔ |
| File size: | 0184 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM>PItalic
20ON ERROR VDU3,7:IF ERR=17 GOTO50 ELSE REPORT:PRINT" @ line ";ERL:GOTO50
30font$="RFS:$.PFonts.Italic"
40PROCdownload(font$)
50ON ERROR OFF
60CLOSE#0
70END
80:
90DEFPROCdownload(file$)
100DIM M% &2000:LOCAL byte%:OSCLI("L. "+file$+" 00"+STR$~M%)
110VDU2,1,27,1,64,1,27,1,40,1,27,1,37,1,1,1,0,1,27,1,82,1,0,1,27,1,38,1,0,1,0,1,127
120FOR byte%=0 TO &17FF:VDU1,M%?byte%:NEXT:VDU3
130PRINT'"'NLQ Italic' now available in 1st Word Plus."'
140ENDPROC
�>PItalic
1� � �3,7:� �=17 �Tr@ � �:�" @ line ";�:�Tr@
font$="RFS:$.PFonts.Italic"
(�download(font$)
2 � � �
<�#0
F�
P:
Z��download(file$)
d0� M% &2000:� byte%:�("L. "+file$+" 00"+�~M%)
nR�2,1,27,1,64,1,27,1,40,1,27,1,37,1,1,1,0,1,27,1,82,1,0,1,27,1,38,1,0,1,0,1,127
x&� byte%=0 � &17FF:�1,M%?byte%:�:�3
�5�'"'NLQ Italic' now available in 1st Word Plus."'
��
� 00000000 0d 00 0a 0d f4 3e 50 49 74 61 6c 69 63 0d 00 14 |.....>PItalic...|
00000010 31 ee 20 85 20 ef 33 2c 37 3a e7 20 9f 3d 31 37 |1. . .3,7:. .=17|
00000020 20 e5 8d 54 72 40 20 8b 20 f6 3a f1 22 20 40 20 | ..Tr@ . .:." @ |
00000030 6c 69 6e 65 20 22 3b 9e 3a e5 8d 54 72 40 0d 00 |line ";.:..Tr@..|
00000040 1e 1f 66 6f 6e 74 24 3d 22 52 46 53 3a 24 2e 50 |..font$="RFS:$.P|
00000050 46 6f 6e 74 73 2e 49 74 61 6c 69 63 22 0d 00 28 |Fonts.Italic"..(|
00000060 14 f2 64 6f 77 6e 6c 6f 61 64 28 66 6f 6e 74 24 |..download(font$|
00000070 29 0d 00 32 09 ee 20 85 20 87 0d 00 3c 07 d9 23 |)..2.. . ...<..#|
00000080 30 0d 00 46 05 e0 0d 00 50 05 3a 0d 00 5a 15 dd |0..F....P.:..Z..|
00000090 f2 64 6f 77 6e 6c 6f 61 64 28 66 69 6c 65 24 29 |.download(file$)|
000000a0 0d 00 64 30 de 20 4d 25 20 26 32 30 30 30 3a ea |..d0. M% &2000:.|
000000b0 20 62 79 74 65 25 3a ff 28 22 4c 2e 20 22 2b 66 | byte%:.("L. "+f|
000000c0 69 6c 65 24 2b 22 20 30 30 22 2b c3 7e 4d 25 29 |ile$+" 00"+.~M%)|
000000d0 0d 00 6e 52 ef 32 2c 31 2c 32 37 2c 31 2c 36 34 |..nR.2,1,27,1,64|
000000e0 2c 31 2c 32 37 2c 31 2c 34 30 2c 31 2c 32 37 2c |,1,27,1,40,1,27,|
000000f0 31 2c 33 37 2c 31 2c 31 2c 31 2c 30 2c 31 2c 32 |1,37,1,1,1,0,1,2|
00000100 37 2c 31 2c 38 32 2c 31 2c 30 2c 31 2c 32 37 2c |7,1,82,1,0,1,27,|
00000110 31 2c 33 38 2c 31 2c 30 2c 31 2c 30 2c 31 2c 31 |1,38,1,0,1,0,1,1|
00000120 32 37 0d 00 78 26 e3 20 62 79 74 65 25 3d 30 20 |27..x&. byte%=0 |
00000130 b8 20 26 31 37 46 46 3a ef 31 2c 4d 25 3f 62 79 |. &17FF:.1,M%?by|
00000140 74 65 25 3a ed 3a ef 33 0d 00 82 35 f1 27 22 27 |te%:.:.3...5.'"'|
00000150 4e 4c 51 20 49 74 61 6c 69 63 27 20 6e 6f 77 20 |NLQ Italic' now |
00000160 61 76 61 69 6c 61 62 6c 65 20 69 6e 20 31 73 74 |available in 1st|
00000170 20 57 6f 72 64 20 50 6c 75 73 2e 22 27 0d 00 8c | Word Plus."'...|
00000180 05 e1 0d ff |....|
00000184 
.