; 梬攣 痑莂煶薬 蘟珐 CALC.SCF
;
; 痑莂煶薬 蟖潯媋湋 : 墎琫嫛
;
; 祦笰 笰竍 : 坵竵祑

cls
writeln [7m 梬攣 HOST  单渁伐 墎琫嫛 [27m (CALC.SCF)
writeln
10
  write 烦漛, 恆坬(P) : __________________________________________________[50D
input s1
if s1==p then call end
if s1==P then call end
i1:=[s1]
writeln
writeln 烦漛 --> [s1]
writeln 塱壛 --> [i1]
writeln
goto 10

; 狗瀉 瀬衰
procedure end
writeln 墎琫嫛焛 狗瀉衧摗攁.
writeln
stop

