Code:
X VAR BYTE

Main:
 FOR X = "A" TO "Z"
  DEBUG X,10,13
  PAUSE 500
 NEXT X
 GOTO Main
 END