1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:

test()
{
	// eine neue datei erstellen im "write"-modus
	file = openFile( "test.txt" , "write" );

	if( file == -1 )	// wenn fehler, hier abbrechen
	{
		iprintln( "Fehler beim erstellen der Datei!" );
		return;
	}

	//nun existiert die datei, also lass uns etwas reinschreiben!
	text1 = "Ich bin die erste Zeile in der Datei!";
	text2 = "Ich bin die zweite Zeile in der Datei!";
	text3 = "Ich bin die dritte Zeile in der Datei!";
	text4 = "und ich komme nach einem Komma in der dritten Zeile!";
	// "\n" ist eine neue Zeile
	fprintln( file , text1 + "\n" + text2 + "\n" + text3 );
	fPrintLn( file , text4 );

	closed = closeFile( file );	// schliese die datei!

	if( closed == -1 )		// fehler beim schließen?
		iprintln( "Fehler beim schließen der Datei!" );

	// und jetzt lass uns das wieder auslesen :)
	file = openFile( "test.txt" , "read" );	// öffne die datei test.txt im read-modus

	if( file == -1 )	// wenn fehler, hier abbrechen
	{
		iprintln( "Fehler beim öffnen der Datei!" );
		return;
	}

	lines = fReadLn( file );	// wie viele argumente in der ersten zeile?

	while( lines != -1 )		// solange wir nicht am ende der datei angekommen sind...
	{
		for( i = 0 ; i < lines ; i++ )
		{
			text = fGetArg( file , i );	// ...lies die elemente aus der datei...
			iprintln( text );			// ...und gib sie auf dem screen aus
		}
	
		lines = fReadLn( file );	
	}

	closed = closeFile( file );	// schliese die datei!

	if( closed == -1 )		// fehler beim schließen?
		iprintln( "Fehler beim schließen der Datei!" );
}