ORIGIN '~beta/basiclib/betaenv'
---- program: descriptor ----
(#
  (* Szorzótábla
   *
   *    - FOR ciklus használata
   *    - paraméteres eljárás használata
   *)

  tab: (# N: @integer
    enter N
    do (for N repeat ' ' -> put for)
    #);

do '\n\t** Szorzotabla ** \n\n'-> puttext;
   4 -> tab;
   (for i: 9 repeat
        i -> putint; 2 -> tab;
    for);
   newline; newline;
   (for i: 9 repeat
        i -> Putint; 3 -> tab;  
        (for j: 9 repeat
              i*j -> putint ;
              2 -> tab;
        for);
        newline
   for)
#)