FOR   i=1 TO 100
 s=0
   GOSUB   *aho
  NEXT  
  PRINT   "normal" i j s
  END  
*baka
  PRINT   i j s
  GOTO  *init
*aho
  FOR   j=0 TO 100
 s=s+j
   IF   j==50 THEN  : CANCEL_RETURN   : GOTO  *baka : END_IF  
  NEXT   j
  RETURN