CISY 125 - In-Class Lab 7

Part A

Enter in the following program and make sure it runs.

Make sure you add your name as a REM statement.

Save the file as InLab7a.BAS

REM your name here CLS CALL DisplayHeader PRINT "Recipe List" PRINT PRINT "1 - Sundae" PRINT "2 - Cone" PRINT "3 - Shake" PRINT INPUT "Enter the customer's choice"; Order PRINT SELECT CASE Order CASE 1 CALL DisplayHeader PRINT TAB(29); "Sundaes use: " PRINT PRINT TAB(15); "8 oz ice cream" PRINT TAB(15); "1 oz nuts" PRINT TAB(15); "2 oz sauce" CASE 2 CALL DisplayHeader PRINT TAB(15); "Cones use: " PRINT PRINT TAB(15); "6 oz ice cream" PRINT TAB(15); "1 cone" CASE 3 CALL DisplayHeader PRINT TAB(15); "Shakes use: " PRINT PRINT TAB(15); "10 oz ice cream" PRINT TAB(15); "1 oz sauce" CASE ELSE PRINT "That is not on the menu!" END SELECT END SUB DisplayHeader CLS PRINT TAB(29); "Polar Cub North Ice Cream Store" PRINT TAB(29); "===============================" PRINT END SUB

Part B

change the store name to Frosty Freeze Ice Cream Store and make sure it runs.

Save the file as InLab7b.BAS

Submitting the program

  1. Submit the QBasic code electronically (either hand in the In-Class Floppy, or e-mail the QBasic code)
  2. Submit the QBasic code on paper.