PROGRAM 16


'  FILENAME:  PROG16.BAS
'  THIS PROGRAM INPUTS THE FIRST NAME AND LAST NAME FROM THE KEYBOARD AND
'  DISPLAYS THEM ON THE SCREEN IN REVERSE ORDER.
CLS
DO
        GOSUB INPUT.NAME
        GOSUB COMBINE.NAME
        GOSUB PRINT.COMBINATION
        GOSUB CHANGE.COMBINATION
        GOSUB PRINT.NEWCOMBINATION
LOOP UNTIL UCASE$(NAME$) = "STOP"
END
INPUT.NAME:
        INPUT "ENTER FIRST NAME.  TYPE 'STOP' TO END PROGRAM. ", NAME$
        IF UCASE$(NAME$) = "STOP" THEN
                CLS
                END
        END IF
        LOCATE 3, 1
        INPUT "ENTER LAST NAME.                               ", NAME2$
RETURN
COMBINE.NAME:
        LET NAME3$ = NAME2$ + ", " + NAME$
RETURN
PRINT.COMBINATION:
        LOCATE 5, 1
        PRINT NAME3$
RETURN
CHANGE.COMBINATION:
        LET NAME4$ = NAME$
        LET NAME5$ = NAME2$
RETURN
PRINT.NEWCOMBINATION:
        LOCATE 7, 1
        PRINT NAME4$ + " " + NAME5$
        SLEEP 2
        CLS
RETURN

'  FILENAME:  PROG16.OUT

ENTER FIRST NAME.  TYPE 'STOP' TO END PROGRAM. ANTHONY

ENTER LAST NAME.                               ORTIZ

ORTIZ, ANTHONY

ANTHONY ORTIZ




BACK TO CIS133 PAGE.