Take notes on the command line: Difference between revisions
Content added Content deleted
Alextretyak (talk | contribs) (Added 11l) |
(Take notes on the command line en FreeBASIC) |
||
Line 1,181: | Line 1,181: | ||
note</lang> |
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}}== |
=={{header|Gambas}}== |