define IsOKToRun(menuname)   GetInfo(217, 24, %1); 
 
function main() 
result=IsOKToRun(FontChange) 
if result !=1 
   exit function 
endif 
ignorekeyboard(2) 
macfile = GetRunningMacroFile$() ' get the dos file name 
globtot = GetGlobalVarCount() 
menustat = "OFF" 
if globtot <> 0 
   Dim globnames(globtot) 
   GetGlobalVarNames(&globnames) 
   for i = 1 to globtot ' find the global var 
      if (globnames(i) = "FontUpStat") 
         menustat = "ON" 
 
      endif 
   next 
EndIf 
If menustat = "OFF" 
   AllocGlobalVar("FontUpStat",1) ' first time played, add menus 
   DeleteMenuItem(1,"&Text", "Schrift größer") 
   InsertMenuItem(1,"&Text", 12,"Schrift größer", "{MacFile}!bigger()", _
     "Vergrößert die Schrift um zwei Punkte") 
 
   SetGlobalVar("FontUpStat","ON") 
Endif 
 
call bigger() ' make call to make the font bigger 
 
end function 
 
 
function bigger() 
defstr name, color, size, family 
GetCurFontInfo(&name, &color, &size, &family) ' what is the current font? 
FontChange(Name, 0, Color, (Size  + 40)) ' add size to existing size 
end function