Procedure Main
	CGIWriteLn('content-type: text/plain')
	CGIWriteLn('')
	CGIWriteLn('get_param='+oemtoansi(getquerystring('get_param')))
	CGIWriteLn('textfeld='+oemtoansi(CGIGetParam('textfeld')))
	CGIWriteLn('kreuz='+CGIGetParam('kreuz'))
	CGIWriteLn('auswahl='+CGIGetParam('auswahl'))
	CGIWriteLn('text:bemerkung=')
	CGICloseBuffer
	OEMToANSI('ramtext:text:bemerkung')
	CopyFile('ramtext:text:bemerkung','con')
EndProc