Ich habe mir ein Schreibprogramm überlegt, bin aber nicht ganz so zufrieden damit. Hat einer Vorschläge, was ich verbessern kann oder gar anders?
Code: Alles auswählen
Repeat
raus = 0
situationenwahl$ = InputRequester("Entscheidung","Eingabe:","")
Situation = Val(situationenwahl$)
Select Situation
Case 1
ghostwriter$ = InputRequester("Schreiber","Eingabe:","")
CreateFile(1,"Text1.txt")
Repeat
readtext$ = ReadString(1)
writetext = WriteStringN(1,ghostwriter$)
Until Eof(1)
CloseFile(1)
Case 2 To 99
ghostwriter$ = InputRequester("Schreiber","Eingabe:","")
OpenFile(1,"Text1.txt")
Repeat
readtext$ = ReadString(1)
writetext = WriteStringN(1,ghostwriter$)
Until Eof(1)
CloseFile(1)
Case 100
raus = 1
EndSelect
Until raus = 1