Take notes on the command line: Difference between revisions
Take notes on the command line en FreeBASIC
Alextretyak (talk | contribs) (Added 11l) |
(Take notes on the command line en FreeBASIC) |
||
Line 1,181:
note</lang>
=={{header|FreeBASIC}}==
<lang freebasic>If Len(Command) Then
Open "notes.txt" For Append As #1
Print #1, Date, Time
Print #1, Chr(9); Command
Close
Else
If Open("notes.txt" For Input As #1) = 0 Then
Dim As String lin
Print "Contenido del archivo:"
Do While Not Eof(1)
Line Input #1, lin
Print lin
Loop
Else
Open "notes.txt" For Output As #1
Print "Archivo 'NOTES.TXT' creado"
End If
End If
Close #1
Sleep</lang>
=={{header|Gambas}}==
| |||