hp48g20230307/D.01/D.01/D.02/ast4


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

%%HP: T(1)A(D)F(,);
«
  WHILE '1==1'
  REPEAT
"ASTRON.ENOTA=RAZ.SONCE"
1 DISP
"-ZEMLJA ZORNI€=€POD"
2 DISP
"KATERIM VIDIMO OBJEKT"
3 DISP
"ARISTOTEL330pnsZEMLJA"
4 DISP
"=OKROGLA ERATOSTEN300"
5 DISP
"pnsIZRAC.ZEM.VELIKOST"
6 DISP
"PLOTEMAJ150GEOCENTRIX"
7 DISP
  END
»