name	number	pass	makekey
@rff=1.1,type=internal		ftyp=integer		
@rff=1.2,type=rxmenu	name="Make keyfile",rxstring="options results; GetField 'name'; name=result; GetField 'number'; number=result; GetField 'pass'; pass=result; if name=='' | number=='' | pass=='' then okay1 'You must fill all fields. You get correct values when you register.'; else do; okay2 'Ok to write keyfile to L:db.key ?'; if result == 1 then do; open('f', 'l:db.key','W'); WriteLn('f', name); WriteLn('f', number); WriteLn('f', pass); Close('f'); okay1 'Restart db. Save will be enabled if everything was entered correctly'; end; end;"
@RFF=1.1,TYPE=form,lnam="Note: Enter data EXAcTLY aS TyPEd",tabsize=4	NAME=Name,OFFS=0,SIZE=27,NEXT=nl	NAME=Number,OFFS=1,SIZE=8,NEXT=nl	NAME=Password,OFFS=2,SIZE=14,NEXT=para	name="Make keyfile",ftyp=checkbox,autorxstring="options results; PutField 0; GetField 'name'; name=result; GetField 'number'; number=result; GetField 'pass'; pass=result; if name=='' | number=='' | pass=='' then okay1 'You must fill all fields. You get correct values when you register.'; else do; okay2 'Ok to write keyfile to L:db.key ?'; if result == 1 then do; open('f', 'l:db.key','W'); WriteLn('f', name); WriteLn('f', number); WriteLn('f', pass); Close('f'); okay1 'Restart db. Save will be enabled if everything was entered correctly'; end; end;"