10 TK2_EXT
11 PAPER 4:INK 0:PAPER #2,2:WTV 4
12 LRESPR boot_ext
13 BAUD 1200:SDP_SET 9,2,1:SDP_DEV prt:SDP_KEY "p":PRT_USE prt,ser1
14 IF DATE<8E8 THEN 
15 PRINT "Enter date and time"
16 INPUT ,"YYYY"!y,"MM"!m,"DD"!d\,"HH"!h,"MM"!mm
17 SDATE y,m,d,h,mm,0
18 END IF 
19 SPJOB 0,0,31:FLP_SEC 1
20 PRINT "Current Date/time ="!DATE$
