fb:porticula NoPaste
Einstellungen laden
Uploader: | Sebastian |
Datum/Zeit: | 09.06.2014 01:42:46 |
Dim As String ConfigFile = ExePath + "\config.txt"
Dim As Integer a, b
Dim As String c
Open ConfigFile For Input As #1
Input #1, a, b, c
Close #1
Print "Ihre Angaben waren:"
Print "Erste Zahl: " & a
Print "Zweite Zahl: " & b
Print "Das Wort: " & c
Print
Print "Erkennen Sie die Angaben wieder? :-)"
Print
Print "Taste zum Beenden druecken."
GetKey
End