rem COTOPX (n) (S=xx)
rem (n) 3 Swiss, 4 italic, 5 bold, 6 bold italic
rem (/S=xx) create size xx (default 10)
rem /D DPIxxxx filenames
rem
rem Normal swiss fonts
rem
:cotopx 3 /S=18 /R180.180 /D /N=SWISS18
:cotopx 3 /S=24 /R180.180 /D /N=SWISS24
rem
rem HOMO logo fonts
rem
:cotopx 6 /P=0 /S=8 /R=180.180 /D /G? /L=T3 /N=HOMO8 <HOMOCORE.TXT
:cotopx 6 /P=0 /S=9 /R=180.180 /D /G? /L=T3 /N=HOMO9 <HOMOCORE.TXT
:cotopx 6 /P=0 /S=10 /R=180.180 /D /G? /L=T3 /N=HOMO10 <HOMOCORE.TXT
:cotopx 6 /P=0 /S=12 /R=180.180 /D /G? /L=T3 /N=HOMO12 <HOMOCORE.TXT
:cotopx 6 /P=0 /S=17 /R=180.180 /D /G? /L=T3 /N=HOMO17 <HOMOCORE.TXT
:cotopx 6 /P=0 /S=52 /R=180.180 /D /G? /L=T3 /N=HOMO52 <HOMOCORE.TXT
:cotopx 6 /P=0 /S=60 /R=180.180 /D /G? /L=T3 /N=HOMO60 <HOMOCORE.TXT

:cotopx 6 /P=0 /S=8 /R=360.360 /D /G? /L=T3 /N=HOMO8 <HOMOCORE.TXT
cotopx 6 /P=0 /S=9 /R=360.360 /D /G? /L=T3 /N=HOMO9 <HOMOCORE.TXT
:cotopx 6 /P=0 /S=10 /R=360.360 /D /G? /L=T3 /N=HOMO10 <HOMOCORE.TXT
:cotopx 6 /P=0 /S=12 /R=360.360 /D /G? /L=T3 /N=HOMO12 <HOMOCORE.TXT
:cotopx 6 /P=0 /S=17 /R=360.360 /D /G? /L=T3 /N=HOMO17 <HOMOCORE.TXT
cotopx 6 /P=0 /S=52 /R=360.360 /D /G? /L=T3 /N=HOMO52 <HOMOCORE.TXT
:cotopx 6 /P=0 /S=60 /R=360.360 /D /G? /L=T3 /N=HOMO60 <HOMOCORE.TXT