nomainwin
'problem is, it looks like JB/LB uses "courier_new" even if explicitely said "courier"
'Other language does that told, so "courier_new" and "courier" - two different fonts
open "test" for graphics_nsb_nf as #gr
#gr "down"
#gr "trapclose [quit]"
#gr "home; posxy xc yc"

data 192,224,193,225,194,226,212,244,0

a$=""
a$="AaBbCcDd"
read a
while a>0
    a$=a$+chr$(a)
    read a
wend

a$=a$+"012345"
#gr "place 10 20"

#gr "font courier 15"
#gr "\font courier 15"
#gr "\"; a$
#gr "\1"
#gr "\2"
#gr "\3"
#gr "\4"

#gr "place 100 60"
for i = 10 to 15
#gr "font courier ";i
#gr "\font courier ";i
next

#gr "place 10 180"
#gr "font courier_new 15"
#gr "\font courier_new 15"
#gr "\"; a$
#gr "\1"
#gr "\2"
#gr "\3"
#gr "\4"

#gr "place 100 220"
for i = 10 to 15
#gr "font courier_new ";i
#gr "\font courier_new ";i
next


for i = 0 to 2*yc step 20
    #gr "line ";0;" ";i;" ";2*xc;" ";i
next



#gr "flush"
wait

[quit]
close #gr
end