type Conf_Type
   BBS_Conf_Num as integer
   QWK_Conf_Num as integer
   Unknown1     as boolean
   Unknown2     as boolean
   Unknown3     as boolean
 end type

 dim Index as integer
 dim Conf_Data as Conf_Type

 open "gateway\qwkhost\alumni.cnf" for random as #1 len = Len ( Conf_Type )
 for Index = 0 to 279
   Conf_Data.BBS_Conf_Num = Index + 20
   Conf_Data.QWK_Conf_Num = Index
   put #1, Index + 1, Conf_Data
 next Index
 close ( 1 )