# Qbasic, Quickbasic/Qbasic Clock

Question
QUESTION: I saw your QBASIC analog clock program and was wondering if you had a text-only version.

Thanks,
Mike

If by text only, you mean looping and printing TIME\$, I don't know that you need any help with that.

```DO
LOCATE 1, 1 : PRINT TIME\$
SLEEP 1
LOOP```

Is that what you want, or could you better describe what you're after?

-Alex

---------- FOLLOW-UP ----------

QUESTION: I'm look for just the numbers (xx:xx:xx AM/PM, without the clock face or hands.

Thanks

```DO
ctime\$ = TIME\$
ampm\$ = "AM"
hour% = VAL(LEFT\$(ctime\$, 2))
IF hour% > 12 THEN
ampm\$ = "PM"
hour% = hour% - 12
END IF
IF hour% = 0 THEN hour% = 12
minute% = VAL(MID\$(ctime\$, 4, 2))
second% = VAL(RIGHT\$(ctime\$, 2))

LOCATE 1, 1: PRINT LTRIM\$(RTRIM\$(STR\$(hour%))); ":"; LTRIM\$(RTRIM\$(STR\$(minute%))); ":"; LTRIM\$(RTRIM\$(STR\$(second%)));
LOOP
```

Questioner's Rating
 Rating(1-10) Knowledgeability = 9 Clarity of Response = 9 Politeness = 10 Comment Thanks, a bit to complicated for me, but thats my fault. :)

Qbasic, Quickbasic

Volunteer

#### Alex Barry

##### Expertise

I have been a qbasic programmer since 2000, creating games, minor libraries and various small programs. I have experience using interrupts, graphics, file input/output, the mouse cursor, and using libraries. I have also learned FreeBASIC, QB64, c/c++, python, lua, php and html.
I do not claim to be an absolute authority in any language, but I don't mind looking things up and learning with you.

##### Experience

I have been programming in *Basic dialects since 2000, as mentioned in my expertise. After a year of QBasic, I learned C and C++, and dabbled a little in ASM (I don't program in ASM - I literally just played around to see how things work). When QB64 and FreeBASIC were released, I played with those languages. At the time, FreeBASIC offered more functionality and I sided with that language for a while. During that time, while I was learning new languages, that I would see what scripting languages are available, where I took up python and lua. I started to notice a staleness to QB64's development (which I kept tabs on from time to time), and am now trying to be active in it's community and maybe in it's development in the future. Currently, I am only active on the QB64.net forums, but I appear on occasion on FreeBASIC.net's forums as well.

Education/Credentials
Highschool - 2007