REM  This program calculates an insurance premium based on
REM  the age of the driver and the type of car.
CLS
LET PrintLine$ = "The insurance premium due is $#,###.##"
INPUT "Enter the cart type (H)igh or (S) standard: ", Car$
INPUT "Enter the age of the driver: ", Age
IF Car$ = "H" OR Car$ = "h" THEN
   IF Age > 25 THEN
      LET Premium = 850
   ELSE
      LET Premium = 1200
   END IF
ELSE
   IF Age > 25 THEN
      LET Premium = 750
   ELSE
      LET Premium = 1000
   END IF
END IF
PRINT
PRINT TAB(10); USING PrintLine$; Premium