To Display Natural Numbers From 1 to 10 (using SUB procedure) (Qbasic Code)

• To Display Natural Numbers From 1 to 10 (using SUB procedure) (Qbasic Code)
• DECLARE sub series(a)
  CLS
  CALL series(a)
  END
  
  SUB series (a)
  FOR i = 1 TO 10
      PRINT i
  NEXT i
  END SUB