Home » Archimedes archive » Zipped Apps » View » !View/FontLib/Latin1
!View/FontLib/Latin1
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 » View |
| Filename: | !View/FontLib/Latin1 |
| Read OK: | ✔ |
| File size: | 07E8 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
�CO
�CO/// Latin 1 encoding ///
�CO
�PS/reencsmalldict 12 dict def
�PS/ReEncodeSmall
�PS{reencsmalldict begin
�PS /newcodesandnames exch def
�PS /newfontname exch def
�PS /basefontname exch def
�PS /basefontdict basefontname findfont def
�PS /newfont basefontdict maxlength dict def
�PS basefontdict
�PS {exch dup /FID ne
�PS {dup /Encoding eq
�PS {exch dup length array copy
�PS newfont 3 1 roll put}
�PS {exch newfont 3 1 roll put}
�PS ifelse
�PS }
�PS {pop pop}
�PS ifelse
�PS }forall
�PS newfont /FontName newfontname put
�PS newcodesandnames aload pop
�PS newcodesandnames length 2 idiv
�PS {newfont /Encoding get 3 1 roll put}
�PS repeat
�PS newfontname newfont definefont pop
�PS end
�PS}def
�DMCC
�PS@1 /@2
�TR@0,@1
�EM
�PS/latin1vec [
�TR160,127
�TR164,168,currency <--
�TR168,127
�CC192,128,Agrave
�CC193,129,Aacute
�CC194,130,Acircumflex
�CC195,131,Atilde
�CC196,132,Adieresis
�CC197,133,Aring
�TR198,225,AE, <--
�CC199,134,Ccedilla
�CC200,135,Egrave
�CC201,136,Eacute
�CC202,137,Ecircumflex
�CC203,138,Edieresis
�CC204,139,Igrave
�CC205,140,Iacute
�CC206,141,Icircumflex
�CC207,142,Idieresis
�CC209,143,Ntilde
�CC210,144,Ograve
�CC211,145,Oacute
�CC212,146,Ocircumflex
�CC213,147,Otilde
�CC214,148,Odieresis
�TR215,127
�TR216,233,Oslash, <--
�CC217,149,Ugrave
�CC218,150,Uacute
�CC219,151,Ucircumflex
�CC220,152,Udieresis
�TR221,127
�TR222,127
�TR223,251,germandbls, <--
�CC224,153,agrave
�CC225,154,aacute
�CC226,155,acircumflex
�CC227,156,atilde
�CC228,157,adieresis
�CC229,158,aring
�TR230,241,ae, <--
�CC231,159,ccedilla
�CC232,160,egrave
�CC233,192,eacute
�CC234,201,ecircumflex
�CC235,204,edieresis
�CC236,209,igrave
�CC237,210,iacute
�CC238,211,icircumflex
�CC239,212,idieresis
�CC241,213,ntilde
�CC242,214,ograve
�CC243,215,oacute
�CC244,216,ocircumflex
�CC245,217,otilde
�CC246,218,odieresis
�TR248,249,oslash, <--
�CC249,219,ugrave
�CC250,220,uacute
�CC251,221,ucircumflex
�CC252,222,udieresis
�CC253,223,yacute
�CC255,224,ydieresis
�PS] def
�PS/latin1 {dup latin1vec ReEncodeSmall} def
00000000 80 43 4f 0d 80 43 4f 2f 2f 2f 20 4c 61 74 69 6e |.CO..CO/// Latin|
00000010 20 31 20 65 6e 63 6f 64 69 6e 67 20 2f 2f 2f 0d | 1 encoding ///.|
00000020 80 43 4f 0d 80 50 53 2f 72 65 65 6e 63 73 6d 61 |.CO..PS/reencsma|
00000030 6c 6c 64 69 63 74 20 31 32 20 64 69 63 74 20 64 |lldict 12 dict d|
00000040 65 66 0d 80 50 53 2f 52 65 45 6e 63 6f 64 65 53 |ef..PS/ReEncodeS|
00000050 6d 61 6c 6c 0d 80 50 53 7b 72 65 65 6e 63 73 6d |mall..PS{reencsm|
00000060 61 6c 6c 64 69 63 74 20 62 65 67 69 6e 0d 80 50 |alldict begin..P|
00000070 53 20 2f 6e 65 77 63 6f 64 65 73 61 6e 64 6e 61 |S /newcodesandna|
00000080 6d 65 73 20 65 78 63 68 20 64 65 66 0d 80 50 53 |mes exch def..PS|
00000090 20 2f 6e 65 77 66 6f 6e 74 6e 61 6d 65 20 65 78 | /newfontname ex|
000000a0 63 68 20 64 65 66 0d 80 50 53 20 2f 62 61 73 65 |ch def..PS /base|
000000b0 66 6f 6e 74 6e 61 6d 65 20 65 78 63 68 20 64 65 |fontname exch de|
000000c0 66 0d 80 50 53 20 2f 62 61 73 65 66 6f 6e 74 64 |f..PS /basefontd|
000000d0 69 63 74 20 62 61 73 65 66 6f 6e 74 6e 61 6d 65 |ict basefontname|
000000e0 20 66 69 6e 64 66 6f 6e 74 20 64 65 66 0d 80 50 | findfont def..P|
000000f0 53 20 2f 6e 65 77 66 6f 6e 74 20 62 61 73 65 66 |S /newfont basef|
00000100 6f 6e 74 64 69 63 74 20 6d 61 78 6c 65 6e 67 74 |ontdict maxlengt|
00000110 68 20 64 69 63 74 20 64 65 66 0d 80 50 53 20 62 |h dict def..PS b|
00000120 61 73 65 66 6f 6e 74 64 69 63 74 0d 80 50 53 20 |asefontdict..PS |
00000130 7b 65 78 63 68 20 64 75 70 20 2f 46 49 44 20 6e |{exch dup /FID n|
00000140 65 0d 80 50 53 20 20 7b 64 75 70 20 2f 45 6e 63 |e..PS {dup /Enc|
00000150 6f 64 69 6e 67 20 65 71 0d 80 50 53 20 20 20 7b |oding eq..PS {|
00000160 65 78 63 68 20 64 75 70 20 6c 65 6e 67 74 68 20 |exch dup length |
00000170 61 72 72 61 79 20 63 6f 70 79 0d 80 50 53 20 20 |array copy..PS |
00000180 20 20 6e 65 77 66 6f 6e 74 20 33 20 31 20 72 6f | newfont 3 1 ro|
00000190 6c 6c 20 70 75 74 7d 0d 80 50 53 20 20 20 7b 65 |ll put}..PS {e|
000001a0 78 63 68 20 6e 65 77 66 6f 6e 74 20 33 20 31 20 |xch newfont 3 1 |
000001b0 72 6f 6c 6c 20 70 75 74 7d 0d 80 50 53 20 20 20 |roll put}..PS |
000001c0 69 66 65 6c 73 65 0d 80 50 53 20 20 7d 0d 80 50 |ifelse..PS }..P|
000001d0 53 20 20 7b 70 6f 70 20 70 6f 70 7d 0d 80 50 53 |S {pop pop}..PS|
000001e0 20 20 69 66 65 6c 73 65 0d 80 50 53 20 7d 66 6f | ifelse..PS }fo|
000001f0 72 61 6c 6c 0d 80 50 53 20 6e 65 77 66 6f 6e 74 |rall..PS newfont|
00000200 20 2f 46 6f 6e 74 4e 61 6d 65 20 6e 65 77 66 6f | /FontName newfo|
00000210 6e 74 6e 61 6d 65 20 70 75 74 0d 80 50 53 20 6e |ntname put..PS n|
00000220 65 77 63 6f 64 65 73 61 6e 64 6e 61 6d 65 73 20 |ewcodesandnames |
00000230 61 6c 6f 61 64 20 70 6f 70 0d 80 50 53 20 6e 65 |aload pop..PS ne|
00000240 77 63 6f 64 65 73 61 6e 64 6e 61 6d 65 73 20 6c |wcodesandnames l|
00000250 65 6e 67 74 68 20 32 20 69 64 69 76 0d 80 50 53 |ength 2 idiv..PS|
00000260 20 7b 6e 65 77 66 6f 6e 74 20 2f 45 6e 63 6f 64 | {newfont /Encod|
00000270 69 6e 67 20 67 65 74 20 33 20 31 20 72 6f 6c 6c |ing get 3 1 roll|
00000280 20 70 75 74 7d 0d 80 50 53 20 72 65 70 65 61 74 | put}..PS repeat|
00000290 0d 80 50 53 20 6e 65 77 66 6f 6e 74 6e 61 6d 65 |..PS newfontname|
000002a0 20 6e 65 77 66 6f 6e 74 20 64 65 66 69 6e 65 66 | newfont definef|
000002b0 6f 6e 74 20 70 6f 70 0d 80 50 53 20 65 6e 64 0d |ont pop..PS end.|
000002c0 80 50 53 7d 64 65 66 0d 80 44 4d 43 43 0d 80 50 |.PS}def..DMCC..P|
000002d0 53 40 31 20 2f 40 32 0d 80 54 52 40 30 2c 40 31 |S@1 /@2..TR@0,@1|
000002e0 0d 80 45 4d 0d 80 50 53 2f 6c 61 74 69 6e 31 76 |..EM..PS/latin1v|
000002f0 65 63 20 5b 0d 80 54 52 31 36 30 2c 31 32 37 0d |ec [..TR160,127.|
00000300 80 54 52 31 36 34 2c 31 36 38 2c 63 75 72 72 65 |.TR164,168,curre|
00000310 6e 63 79 09 3c 2d 2d 0d 80 54 52 31 36 38 2c 31 |ncy.<--..TR168,1|
00000320 32 37 0d 80 43 43 31 39 32 2c 31 32 38 2c 41 67 |27..CC192,128,Ag|
00000330 72 61 76 65 0d 80 43 43 31 39 33 2c 31 32 39 2c |rave..CC193,129,|
00000340 41 61 63 75 74 65 0d 80 43 43 31 39 34 2c 31 33 |Aacute..CC194,13|
00000350 30 2c 41 63 69 72 63 75 6d 66 6c 65 78 0d 80 43 |0,Acircumflex..C|
00000360 43 31 39 35 2c 31 33 31 2c 41 74 69 6c 64 65 0d |C195,131,Atilde.|
00000370 80 43 43 31 39 36 2c 31 33 32 2c 41 64 69 65 72 |.CC196,132,Adier|
00000380 65 73 69 73 0d 80 43 43 31 39 37 2c 31 33 33 2c |esis..CC197,133,|
00000390 41 72 69 6e 67 0d 80 54 52 31 39 38 2c 32 32 35 |Aring..TR198,225|
000003a0 2c 41 45 2c 09 09 3c 2d 2d 0d 80 43 43 31 39 39 |,AE,..<--..CC199|
000003b0 2c 31 33 34 2c 43 63 65 64 69 6c 6c 61 0d 80 43 |,134,Ccedilla..C|
000003c0 43 32 30 30 2c 31 33 35 2c 45 67 72 61 76 65 0d |C200,135,Egrave.|
000003d0 80 43 43 32 30 31 2c 31 33 36 2c 45 61 63 75 74 |.CC201,136,Eacut|
000003e0 65 0d 80 43 43 32 30 32 2c 31 33 37 2c 45 63 69 |e..CC202,137,Eci|
000003f0 72 63 75 6d 66 6c 65 78 0d 80 43 43 32 30 33 2c |rcumflex..CC203,|
00000400 31 33 38 2c 45 64 69 65 72 65 73 69 73 0d 80 43 |138,Edieresis..C|
00000410 43 32 30 34 2c 31 33 39 2c 49 67 72 61 76 65 0d |C204,139,Igrave.|
00000420 80 43 43 32 30 35 2c 31 34 30 2c 49 61 63 75 74 |.CC205,140,Iacut|
00000430 65 0d 80 43 43 32 30 36 2c 31 34 31 2c 49 63 69 |e..CC206,141,Ici|
00000440 72 63 75 6d 66 6c 65 78 0d 80 43 43 32 30 37 2c |rcumflex..CC207,|
00000450 31 34 32 2c 49 64 69 65 72 65 73 69 73 0d 80 43 |142,Idieresis..C|
00000460 43 32 30 39 2c 31 34 33 2c 4e 74 69 6c 64 65 0d |C209,143,Ntilde.|
00000470 80 43 43 32 31 30 2c 31 34 34 2c 4f 67 72 61 76 |.CC210,144,Ograv|
00000480 65 0d 80 43 43 32 31 31 2c 31 34 35 2c 4f 61 63 |e..CC211,145,Oac|
00000490 75 74 65 0d 80 43 43 32 31 32 2c 31 34 36 2c 4f |ute..CC212,146,O|
000004a0 63 69 72 63 75 6d 66 6c 65 78 0d 80 43 43 32 31 |circumflex..CC21|
000004b0 33 2c 31 34 37 2c 4f 74 69 6c 64 65 0d 80 43 43 |3,147,Otilde..CC|
000004c0 32 31 34 2c 31 34 38 2c 4f 64 69 65 72 65 73 69 |214,148,Odieresi|
000004d0 73 0d 80 54 52 32 31 35 2c 31 32 37 0d 80 54 52 |s..TR215,127..TR|
000004e0 32 31 36 2c 32 33 33 2c 4f 73 6c 61 73 68 2c 09 |216,233,Oslash,.|
000004f0 3c 2d 2d 0d 80 43 43 32 31 37 2c 31 34 39 2c 55 |<--..CC217,149,U|
00000500 67 72 61 76 65 0d 80 43 43 32 31 38 2c 31 35 30 |grave..CC218,150|
00000510 2c 55 61 63 75 74 65 0d 80 43 43 32 31 39 2c 31 |,Uacute..CC219,1|
00000520 35 31 2c 55 63 69 72 63 75 6d 66 6c 65 78 0d 80 |51,Ucircumflex..|
00000530 43 43 32 32 30 2c 31 35 32 2c 55 64 69 65 72 65 |CC220,152,Udiere|
00000540 73 69 73 0d 80 54 52 32 32 31 2c 31 32 37 0d 80 |sis..TR221,127..|
00000550 54 52 32 32 32 2c 31 32 37 0d 80 54 52 32 32 33 |TR222,127..TR223|
00000560 2c 32 35 31 2c 67 65 72 6d 61 6e 64 62 6c 73 2c |,251,germandbls,|
00000570 09 3c 2d 2d 0d 80 43 43 32 32 34 2c 31 35 33 2c |.<--..CC224,153,|
00000580 61 67 72 61 76 65 0d 80 43 43 32 32 35 2c 31 35 |agrave..CC225,15|
00000590 34 2c 61 61 63 75 74 65 0d 80 43 43 32 32 36 2c |4,aacute..CC226,|
000005a0 31 35 35 2c 61 63 69 72 63 75 6d 66 6c 65 78 0d |155,acircumflex.|
000005b0 80 43 43 32 32 37 2c 31 35 36 2c 61 74 69 6c 64 |.CC227,156,atild|
000005c0 65 0d 80 43 43 32 32 38 2c 31 35 37 2c 61 64 69 |e..CC228,157,adi|
000005d0 65 72 65 73 69 73 0d 80 43 43 32 32 39 2c 31 35 |eresis..CC229,15|
000005e0 38 2c 61 72 69 6e 67 0d 80 54 52 32 33 30 2c 32 |8,aring..TR230,2|
000005f0 34 31 2c 61 65 2c 09 09 3c 2d 2d 0d 80 43 43 32 |41,ae,..<--..CC2|
00000600 33 31 2c 31 35 39 2c 63 63 65 64 69 6c 6c 61 0d |31,159,ccedilla.|
00000610 80 43 43 32 33 32 2c 31 36 30 2c 65 67 72 61 76 |.CC232,160,egrav|
00000620 65 0d 80 43 43 32 33 33 2c 31 39 32 2c 65 61 63 |e..CC233,192,eac|
00000630 75 74 65 0d 80 43 43 32 33 34 2c 32 30 31 2c 65 |ute..CC234,201,e|
00000640 63 69 72 63 75 6d 66 6c 65 78 0d 80 43 43 32 33 |circumflex..CC23|
00000650 35 2c 32 30 34 2c 65 64 69 65 72 65 73 69 73 0d |5,204,edieresis.|
00000660 80 43 43 32 33 36 2c 32 30 39 2c 69 67 72 61 76 |.CC236,209,igrav|
00000670 65 0d 80 43 43 32 33 37 2c 32 31 30 2c 69 61 63 |e..CC237,210,iac|
00000680 75 74 65 0d 80 43 43 32 33 38 2c 32 31 31 2c 69 |ute..CC238,211,i|
00000690 63 69 72 63 75 6d 66 6c 65 78 0d 80 43 43 32 33 |circumflex..CC23|
000006a0 39 2c 32 31 32 2c 69 64 69 65 72 65 73 69 73 0d |9,212,idieresis.|
000006b0 80 43 43 32 34 31 2c 32 31 33 2c 6e 74 69 6c 64 |.CC241,213,ntild|
000006c0 65 0d 80 43 43 32 34 32 2c 32 31 34 2c 6f 67 72 |e..CC242,214,ogr|
000006d0 61 76 65 0d 80 43 43 32 34 33 2c 32 31 35 2c 6f |ave..CC243,215,o|
000006e0 61 63 75 74 65 0d 80 43 43 32 34 34 2c 32 31 36 |acute..CC244,216|
000006f0 2c 6f 63 69 72 63 75 6d 66 6c 65 78 0d 80 43 43 |,ocircumflex..CC|
00000700 32 34 35 2c 32 31 37 2c 6f 74 69 6c 64 65 0d 80 |245,217,otilde..|
00000710 43 43 32 34 36 2c 32 31 38 2c 6f 64 69 65 72 65 |CC246,218,odiere|
00000720 73 69 73 0d 80 54 52 32 34 38 2c 32 34 39 2c 6f |sis..TR248,249,o|
00000730 73 6c 61 73 68 2c 09 3c 2d 2d 0d 80 43 43 32 34 |slash,.<--..CC24|
00000740 39 2c 32 31 39 2c 75 67 72 61 76 65 0d 80 43 43 |9,219,ugrave..CC|
00000750 32 35 30 2c 32 32 30 2c 75 61 63 75 74 65 0d 80 |250,220,uacute..|
00000760 43 43 32 35 31 2c 32 32 31 2c 75 63 69 72 63 75 |CC251,221,ucircu|
00000770 6d 66 6c 65 78 0d 80 43 43 32 35 32 2c 32 32 32 |mflex..CC252,222|
00000780 2c 75 64 69 65 72 65 73 69 73 0d 80 43 43 32 35 |,udieresis..CC25|
00000790 33 2c 32 32 33 2c 79 61 63 75 74 65 0d 80 43 43 |3,223,yacute..CC|
000007a0 32 35 35 2c 32 32 34 2c 79 64 69 65 72 65 73 69 |255,224,ydieresi|
000007b0 73 0d 80 50 53 5d 20 64 65 66 0d 80 50 53 2f 6c |s..PS] def..PS/l|
000007c0 61 74 69 6e 31 20 7b 64 75 70 20 6c 61 74 69 6e |atin1 {dup latin|
000007d0 31 76 65 63 20 52 65 45 6e 63 6f 64 65 53 6d 61 |1vec ReEncodeSma|
000007e0 6c 6c 7d 20 64 65 66 0d |ll} def.|
000007e8 
.