Пересчёт масштаба при работе с картами (HP-35s)

Иногда приходится пересчитывать что-то с карты произвольного масштаба, отмеряя расстояния (размеры) линейкой. Программа для HP-35s поможет с пересчётами:

S001 LBL S
S002 CLx
S003 SF 10
S004 CM ON MAP
S005 PSE
S006 INPUT C
S007 M ON MAP
S008 PSE
S009 INPUT M
S010 RCL C
S011 /
S012 STO S
S013 SCALE (M IN CM)
S014 PSE
S015 VIEW S
S016 PSE
S017 DIST (CM)
S018 PSE
S019 INPUT D
S020 x=0?
S021 GTO S002
S022 RCL S
S023 *
S024 STO M
S025 VIEW M
S026 GTO S019
S027 CF 10
SO28 RTN
-----
CK=720B
LN=124

Запуск программы XEQ S. Измеряем известное расстояние на карте, количество сантиметров (например 4) вводим в RX, жмём R/S

Ввод исходного расстояния на карте (того, что было померено на шаге 1, например 56), в метрах

Полученный масштаб "14 метров в 1 сантиметре"

Работа с картой. Вводим измеренное линейкой произвольное расстояние на карте (например 5), в сантиметрах. "0" - инициализация другого масштаба.

Нажимаем R/S. Получаем 70 метров