PicoCalcBasic/onboot.bas at main · rlauzon54/PicoCalcBasic · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
' A little program to run when you first fire
' up the PicoCalc.

' Set date and time
InputDate:
input "Year";year:print
input "Month";month:print
input "Day";day:print

' Validate input
if year < 100 then year = year+2000
if month < 1 or month > 12 then goto InputDate
if day < 1 or day > 31 then goto InputDate

date$=str$(year)+"-"+str$(month)+"-"+str$(day)
print "Set date to ";date$
print

InputTime:
input "Hour";hour:print
input "Minute";minute:print
' I don't bother to set seconds from
' input simply because it won't be
' even close to right

' Validate input
if hour < 1 or hour > 24 then goto InputTime
if minute < 0 or monute > 60 then goto InputTime

time$=str$(hour)+":"+str$(minute)+":30"

print "Set time to ";time$
print

' I mainly work out of Drive B:
' so default over to drive B:
drive "B:"
print "Defaulting to B: drive"