2020-08-15

vak: (Default)
Сотрудники беларусского телевидения заявили, что в случае невыполнения их требований с понедельника они пускают в эфир честные новости.
vak: (Default)
Спасибо [personal profile] mrupor, подсказал место, где нашлись оригинальные исходные тексты игры "Посадка на Луну". Написаны на языке Focal, 1969 год.



Была у меня мысль переписать на Rust, но оказалось, кто-то уже сделал это: https://gist.github.com/kristopherjohnson/83c6a6b8a1b7c6929ced83e922abccc1

Компилируется и запускается так:
$ wget https://gist.githubusercontent.com/kristopherjohnson/83c6a6b8a1b7c6929ced83e922abccc1/raw/ebf2c41f4d316ef5e827eff4a752d2eae9ae8807/lunar.rs
$ rustc lunar.rs 
$ ./lunar
CONTROL CALLING LUNAR MODULE. MANUAL CONTROL IS NECESSARY
YOU MAY RESET FUEL RATE K EACH 10 SECS TO 0 OR ANY VALUE
BETWEEN 8 & 200 LBS/SEC. YOU'VE 16000 LBS FUEL. ESTIMATED
FREE FALL IMPACT TIME-120 SECS. CAPSULE WEIGHT-32500 LBS

FIRST RADAR CHECK COMING UP

COMMENCE LANDING PROCEDURE
TIME,SECS   ALTITUDE,MILES+FEET   VELOCITY,MPG   FUEL,LBS   FUEL RATE

      0             120      0        3600.00     16000.0      K=:0
     10             109   5015        3636.00     16000.0      K=:50
     20              99   4958        3571.53     15500.0      K=:100
     30              90   1333        3401.80     14500.0      K=:200
     40              81   1829        3005.64     12500.0      K=:0
     50              72   5003        3041.64     12500.0      K=:_