I tried this, but now I get no result at all:

j var word ' timing loop count for 3sec record timing
k var word ' timing loop count for 57sec wait timing


Mainloop:


if CYCLE = 0 then goto Mainloop ' do not do any recording
if cycle = 1 then gosub recording ' do the 3/57 record cycle


goto mainloop


Recording:
low RECPB ' Low Rec PB to start recording
Pause 500 ' start recording for 3 seconds
high RECPB ' High Rec PB after recording start
for j = 1 to 3000 ' Loop count for rec timing
pause 1
next j
low RECPB ' Low Rec PB to stop recording
Pause 500 ' Stop recording after 3 seconds
high RECPB ' High Rec PB after recording Stop
for k = 1 to 10000 ' **Pause for 57 seconds and repeat cycle.
pause 1 '
next k
return

End