QBASIC PROGRAM TO CHECK WHETHER TODAY IS SATURDAY OR NOT

CLS
 INPUT”Enter the todays day”;d$
 IF d$=”SATURDAY”
 THEN PRINT”TODAY IS SATURDAY”
 ELSE
 PRINT”TODAY IS NOT SATURDAY”
 END

USING SUB

DECLARE SUB SATURDAY(d$)
 CLS
 INPUT”Enter the todays day”;d$
 CALL SATURDAY(d$)
 END
 
 SUB SATURDAY(d$)
 IF d$=”SATURDAY”
 THEN PRINT”TODAY IS SATURDAY”
 ELSE
 PRINT”TODAY IS NOT SATURDAY”
 END SUB