%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:190
File Name:RECTANGL
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
"THIS PROGRAM FINDS   THE AREA,PERIMETER,  AND DIAGONAL OF A    RECTANGLE"
\Lbl 1
"ENTER THE LENGTH"?\->L
"ENTER THE WIDTH"?\->W
\ClrText
"PERIMETER IS":2L+2W\Disp"AREA IS":LW\Disp"DIAGONAL IS":\sqrt(L\x^2+W\x^2)\Disp\ClrText
\Goto1

%End