Run DOS Remake
Prompt-driven input mirrors the original one-purpose classroom utility.
Commands: ENTER to begin, positive numeric height/radius values, Y/N replay, RESET to restart.
CONECAL.EXE - Cone Calculator (1995)
DOS Roots Lab
Cone Calculator, Rebuilt from 1995
A compact Pascal utility focused on geometric input and arithmetic output: enter cone dimensions and print volume in one clean DOS flow.
Original Program Intent
CONECAL.PAS is an early single-feature calculator focused on typed input,
procedure calls, and computed output formatting.
It demonstrates the standard 1995 pattern: ask for dimensions, compute, print result, and pause.
Original Pascal Logic
1) Input Prompts
writeln ('Please input the Height of your cone');
readln (Hi);
writeln ('Please input the radius of your cone');
readln (Rad);2) Volume Calculation
Vol:=3.14*(Rad*Rad)*Hi ;3) Result Output
writeln ('The Volume of your cone is ',Volume:2:2);View longer 1995 source excerpt
Program ConeCal;
var
Volume,Height,Radius:real;
procedure Calculate (var Vol,Hi,Rad:real);
begin
writeln ('Please input the Height of your cone');
readln (Hi);
writeln ('Please input the radius of your cone');
readln (Rad);
Vol:=3.14*(Rad*Rad)*Hi ;
end;
begin
Volume := 0;
Height := 0;
Radius := 0;
Calculate (Volume,Height,Radius);
writeln ('The Volume of your cone is ',Volume:2:2);
end.Developer Notes
What Stayed True
- Same two-input sequence: height first, radius second.
- Same formula style and decimal output emphasis.
- Same straight-through procedural flow.
What Changed for Web
- Input validation adds DOS-style error feedback for invalid values.
- Replay loop and RESET command support repeated runs in one session.
- Boot sequence emulates startup without requiring page refresh.