set A to 0
.loop
  A++
  go("loop")Remember, you can branch forwards and backwards. This can be used to implement platform-specific code selection, such as is shown in this example:
; are we running under RISC OS or Windows?
set O to status(channel)
if (O = -1) go("initwin")   ; channel is ALWAYS "-1" under WinTTX
; here? we're running under RISC OS
filewrite("<Teletext$Temp>.Report")
go("initcontinue")
.initwin
; else it is WinTTX
filewrite("#TEMP#\report.dpd")
.initcontinue
[and the commands to write to the file go here...]