PureBoard

Code: Alles auswählen

EnableExplicit

Structure Namen
  name.s
  vorname.s
  alter.i
EndStructure


Define Namensliste.Namen



Procedure verarbeite(vorname$,name$,Alter.i)
  Shared Namensliste.Namen 
  
  With Namensliste    
    \name = name$
    \vorname = vorname$
    \alter = Alter
  EndWith 
EndProcedure


Procedure main()       
  verarbeite("Max","Mustermann",41)  
  
  Shared Namensliste.Namen   
  
  Debug Namensliste\name
  Debug Namensliste\vorname
  Debug Namensliste\alter
  
  ClearStructure(Namensliste, Namen) 
  
EndProcedure


main()  
Debug Namensliste\name           
Debug Namensliste\vorname
Debug Namensliste\alter