BBS: Inland Empire Archive Date: 01-26-93 (12:13) Number: 391 From: JOHN GREAVES Refer#: NONE To: ERIC MAYS Recvd: NO Subj: MENUS Conf: (2) Quik_Bas

Hi Eric, In a letter to all you asked how to EM>GET A CLOCKONTHE SCREEN. I am sure there are lots of ways. here is oneSUBprinttime tx$ = LEFT$(TIME$, 2)SELECTCASEtx$CASEIS= "00": t1$ = "12"CASEIS= "01": t1$ = "1"CASEIS= "02": t1$ = "2"CASEIS= "03": t1$ = "3"CASEIS= "04": t1$ = "4"CASEIS= "05": t1$ = "5"CASEIS= "06": t1$ = "6"CASEIS= "07": t1$ = "7"CASEIS= "08": t1$ = "8"CASEIS= "09": t1$ = "9"CASEIS= "10": t1$ = "10"CASEIS= "11": t1$ = "11"CASEIS= "12": t1$ = "12"CASEIS= "13": t1$ = "1"CASEIS= "14": t1$ = "2"CASEIS= "15": t1$ = "3"CASEIS= "16": t1$ = "4"CASEIS= "17": t1$ = "5"CASEIS= "18": t1$ = "6"CASEIS= "19": t1$ = "7"CASEIS= "20": t1$ = "8"CASEIS= "21": t1$ = "9"CASEIS= "22": t1$ = "10"CASEIS= "23": t1$ = "11"ENDSELECTt$ = LEFT$(TIME$, 2)IFt$ > "12"THENx$ = "pm"IFt$ < "12"THENx$ = "am" tim2$ = RIGHT$(TIME$, 5) tim2$ = LEFT$(tim2$, 2)LOCATE14, 20IFt$ >= "12"ANDt$ < "17"THENENDIFIFt$ < "12"THENENDIFIFt$ >= "17"THENENDIFSLEEP3ENDSUBI hope this code will help. I use it with one of my menu programs. As I am a fairly new programer it was developed with a lot of input from this echo. Change it however you like. Good Luck with your menu. John Greaves --- RAMail 3.15 * Origin: Sunshine Valley's DCI BBS - (604) 442-2386 (1:353/400)

Echo Basic Postings

**Books at Amazon:**

Back to BASIC: The History, Corruption, and Future of the Language

Hackers: Heroes of the Computer Revolution (including Tiny BASIC)

Go to: The Story of the Math Majors, Bridge Players, Engineers, Chess Wizards, Scientists and Iconoclasts who were the Hero Programmers of the Software Revolution

The Advent of the Algorithm: The Idea that Rules the World

Moths in the Machine: The Power and Perils of Programming

Mastering Visual Basic .NET