DO WHILE menuoption$ <> "17"
CLS
PRINT
FOR x = 1 TO 80
PRINT "-";
NEXT x
PRINT
PRINT TAB(30); "General Purchase Order Menu"
PRINT
PRINT TAB(10); "1. Input PO Data"; TAB(40); "13. "
PRINT TAB(10); "2. Display Edit Rpt"; TAB(40); "14."
PRINT TAB(10); "3. Edit Data "; TAB(40); "15. "
PRINT TAB(10); "4. Edit Ok, Post to Master"; TAB(40); "16. "
PRINT TAB(10); "5. Generate PO"; TAB(40); "17. exit"
PRINT
FOR x = 1 TO 80
PRINT "-";
NEXT x
INPUT "Enter the menu option - 1 to 17"; menuoption
 SELECT CASE menuoption
 CASE IS = 1
 CLS
 OPEN "c:\temp\po.txt" FOR APPEND AS #1
        studio$ = " "
        DO WHILE studio$ <> "QUIT"
        CLS
        INPUT "Enter the club name"; studio$
        INPUT "Enter the Club Address"; saddress$
                vendorname$ = " "
                DO WHILE vendorname$ <> "QUIT"
                CLS
                INPUT "Enter the vendor name"; vendorname$
                INPUT "Enter the vendor address"; vendoradd$
                        item$ = " "
                        DO WHILE item$ <> "QUIT"
                        CLS
                        INPUT "Enter the Item Description"; item$
                        INPUT "Number of Items"; quan
                        INPUT "Price per unit"; price
                        WRITE #1, studio$, saddress$, vendorname$, vendoradd$, item$, quan, price
                        INPUT "Enter Quit to put in another vendor, else anykey to add another item"; item$
                        item$ = UCASE$(item$)
                        LOOP
                INPUT "Enter Quit to enter another club, else anykey to continue with vendor"; vendorname$
                vendorname$ = UCASE$(vendorname$)
                LOOP


        LOOP
 CASE IS = 2
 CASE IS = 3
 CASE IS = 4
 CASE IS = 5
 CASE ELSE
 CLS
 PRINT "you have not entered a number between 1 and 5"
 INPUT "Touch anykey to continue "; anykey$
 END SELECT

LOOP
END