BTW, the ZX-40 in question is running the latest VM (2.6.3) from the web site.
Here is the code that works fine:
Code: Select all
Sub Main()
Do While True
Call PutPin(C.0,1):Call PutPin(C.1,1):Call Sleep(0.5)
Call PutPin(C.0,0):Call PutPin(C.1,1):Call Sleep(0.5)
Call PutPin(C.0,1):Call PutPin(C.1,0):Call Sleep(0.5)
Call PutPin(C.0,0):Call PutPin(C.1,0):Call Sleep(0.5)
Loop
End Sub
Code: Select all
Sub Main()
Do While True
Call PutPin(C.0,1):Call PutPin(C.1,1):Call Sleep(0.5):debug.print "1"
Call PutPin(C.0,0):Call PutPin(C.1,1):Call Sleep(0.5)
Call PutPin(C.0,1):Call PutPin(C.1,0):Call Sleep(0.5)
Call PutPin(C.0,0):Call PutPin(C.1,0):Call Sleep(0.5)
Loop
End Sub
Code: Select all
Sub Main()
Do While True
debug.print "1"
debug.print "2"
debug.print "3"
Loop
End Sub
I know I'm going to feel really dumb when I get the answer here.