15 lines
448 B
Plaintext
15 lines
448 B
Plaintext
5 rem set time to current time of day
|
|
10 print chr$(147);
|
|
20 input "Enter hour of day (0-23)";h$
|
|
25 if val(h$)<0 or val(h$)>23 then goto 20
|
|
30 input "Enter minutes (0-59)";m$
|
|
35 if val(m$)<0 or val(m$)>99 then goto 30
|
|
40 input "Enter seconds (0-59)";s$
|
|
45 if val(s$)<0 or val(s$)>99 then goto 40
|
|
60 ti$=h$+m$+s$
|
|
70 print chr$(147);
|
|
80 print chr$(19);"The time is now: ";ti$
|
|
85 print:print "Press any key to end."
|
|
90 get k$:if k$="" then 80
|
|
100 end
|