PROC main()››  CARD big_num›  BYTE divide››  PutE()›  PrintE("Give me a big number but")›  PrintE("it has to be less than 65,000")›  big_num = InputC()››  DO›    PutE()›    PrintE("What do you want to divide")›    Print("into ")›    PrintC(big_num)›    PrintE(" ?")›    divide = InputB()››    IF divide=0 THEN›      EXIT›    FI››    big_num = big_num / divide›      ›  UNTIL big_num < 10›  OD››  IF big_num > 10 THEN›    PutE()›    PrintE("You can't divide by zero!!!")›  FI››  PutE()›  Print("Big number now equals ")›  PrintCE(big_num)››RETURN››