REM PROG1.BAS (your name and the time the class meets goes here)
REM  This program calulates an employee's gross pay based on
REM  the hourly rated and hours entered.

REM  N$  String   Name           A$  String    Answer to prompt (Y/N)                              
REM  HR  Numeric  Hourly Rate    HW  Numeric   Hours Worked
REM  GP  Numeric  Gross Pay

CLS
PRINT "PROG1.BAS  Juan Marquez  TR  10:30"
PRINT

INPUT.RTN:
REM  *** Input Routine ***
INPUT "Enter employee name: ", N$
INPUT "  Enter hourly rate: ", HR
INPUT " Enter hours worked: ", HW

REM  *** Processing Routine ***
LET GP = HW * HR

REM  *** Output Routine ***
PRINT " "
PRINT "Name: "; N$, "Rate: "; HR, "Hours: "; HW, "Pay: "; GP
PRINT " "

REM  *** Processing Control Test ***
REM  test for upper and lowercase
INPUT "Another Calculation (Y/N)"; A$
PRINT " "
IF A$ = "Y" THEN GOTO INPUT.RTN
IF A$ = "y" THEN GOTO INPUT.RTN

END