GUI Area #1,0,0,200,200
GUI Interrupt Mouseclick
Do
Loop

Sub Mouseclick
 Print CLICK(REF)
End Sub

> list "bad_file.bas"
Option Base 0
Option Default None
Option Explicit On
Option Console Both

Dim f$ = "myfile.txt"

Open f$ For Output As #1
Print #1, "Hello World"
Close #1

Open f$ For Append As #1
Print #1, "Goodbye World"
Dim i% = Eof(#1) ' It doesn't happen if this line is omitted.
Close #1

Open f$ For Input As #1
Dim s$ = Input$(255, 1)
Close #1

Dim ch%
For i% = 1 To Len(s$)
 ch% = Asc(Mid$(s$, i%, 1))
 If ch% > 31 And ch% < 255 Then
   Print Chr$(ch%);
 Else
   Print "<" Hex$(ch%, 2) ">";
 EndIf
Next
Print

Print "Where did the trailing <00> come from?"
> run
Hello World<0D><0A>Goodbye World<0D><0A><00>
Where did the trailing <00> come from?
>

? Day$(Now)
dummy

> ON ERROR SKIP
> OPEN "file-that-exists" FOR INPUT AS #1
> ? "*" MM.ERRMSG$ "*"
*Succeeded *

SEEK #fnbr, pos

> list "append_loc_bug.bas"
Option Base 0
Option Default None
Option Explicit 1
Option Console Both

Dim f$ = "append_loc_bug.txt"

Open f$ For Output As #1
Print #1, "foo";
Close #1

Open f$ For Append As #1
Print Loc(#1)
Close #1

End
> run "append_loc_bug.bas"
1
>

MMBASIC 0

> Dim a%
> Poke Var a%, 0, 255
> ? Peek(Var a%, 0)
-1

> list "append_bug.bas"
Option Console Both
Dim f$ = "append.txt"
On Error Skip
Kill f$
Open f$ For Output As #1
Print #1, "Hello World"
Close #1
Open f$ For Append As #1
? Eof(#1) ' Works if you comment out this line
Print #1, "Goodbye Peter"
Close #1
> run "append_bug.bas"
0
Error in line 10: File write
>

Dim i% = 1
? Peek(Var i%)