How do you write main menu pseudo code?

Answer 1

====

'-----------------------------------------------

'*** PROGRAM: Main Menu

' LANGUAGE: QBASIC: VERSION: QB64

'-----------------------------------------------

'------------------------------------------

'*** Global variable declarations list...

'------------------------------------------

userKeyPress$=""

'-----------------------

'*** Main Program...

'-----------------------

DO 'this is a menu driven program...

GOSUB clearScreen

GOSUB printMainMenuTitleHeading

GOSUB printMainMenuOptionsList

GOSUB printMainMenuInstructionsHeading

GOSUB printMainMenuUserInstructions

GOSUB awaitUserKeyPress

GOSUB checkUserKeyPress

LOOP UNTIL UCASE$(userKeyPress$) = "Q" '...UCASE converts lower case to upper

END '...END of program/halt program code execution

'----------------------

'*** Sub-routines...

'----------------------

clearScreen:

CLS '...(CL)ear the output (S)creen

RETURN

printMainMenuTitleHeading:

PRINT "MAIN MENU"

PRINT "========"

RETURN

printMainMenuOptionsList:

PRINT "Hit key: <1> for Program 1: 12 X Tables Square"

PRINT "Hit key: <2> for Program 2: Select a times tables to print out"

PRINT

PRINT "Hit key: <Q> to Quit!"

PRINT

RETURN

printMainMenuInstructionsHeading:

PRINT "USER INSTRUCTIONS"

PRINT "=============="

RETURN

printMainMenuUserInstructions:

PRINT "In order to select from the above Main Menu options list..."

PRINT

PRINT "First, chose the type of program you wish to run..."

PRINT "by, carefully, reading it's description."

PRINT

PRINT "Then, hit a corresponding single number/letter key, either: '1'/'2';"

PRINT "or, alternatively, hit key: 'Q' to Quit!"

PRINT

PRINT "-Thank you!"

RETURN

awaitUserKeyPress:

DO '...keep looping until when user presses any key...

userKeyPress$ = INKEY$ '...store any IN-coming KEY press

LOOP UNTIL userKeyPress$ <> ""

RETURN

checkUserKeyPress:

IF userKeyPress$ = "1" THEN GOSUB program1 '...GO to named SUB-routine

IF userKeyPress$ = "2" THEN GOSUB program2 '...GO to named SUB-routine

RETURN

program1:

GOSUB clearScreen

PRINT "PROGRAM 1"

'(...program 1/code goes here...)

GOSUB awaitUserKeyPress

RETURN

program2:

GOSUB clearScreen

PRINT "PROGRAM 2"

'(...program 2/code goes here...)

GOSUB awaitUserKeyPress

RETURN