RosettaCodeData/Task/Modular-inverse/QBasic/modular-inverse.basic