GUI screen pack pure MMBasic

Author Message
TassyJim

Guru

Joined: 07/08/2011
Location: Australia
Posts: 6536
Posted: 08:46pm 24 Mar 2021      

Here you are:
FUNCTION fontheight() AS INTEGER
 IF cmm2 THEN
   fontheight = MM.INFO(fontheight)
 ELSE
   fontheight = MM.FONTHEIGHT
 ENDIF
END FUNCTION
 
FUNCTION fontwidth() AS INTEGER
 IF cmm2 THEN
   fontwidth = MM.INFO(fontwidth)
 ELSE
   fontwidth = MM.FONTWIDTH
 ENDIF
END FUNCTION


Jim