Initial data commit

Task/System-time/Commodore-BASIC/system-time-2.basic

@@ -0,0 +1,14 @@
+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