112 300 UNTIL year>1799 AND year 0 AND year 310 IF year 320 330 CLS 340 PRINT"and now the time please" 350 PRINT "using a 24 hour clock" 360 370 REPEAT 380 PRINT TAB(5,10);"Hours "; 390 INPUT hour 400 UNTIL hour>-1 AND hour 410 420 REPEAT 430 PRINT TAB(5.12);"Minutes "; 440 INPUT minute 450 UNTIL minute>-1 AND minute 460 470 TIME=100*60*(minute+60*hour) 480 ENDPROC 490 500 510 DEF PROCshowtime 520 IF TIME>8640000 THEN TIME=TIME-8640000 530 hour=TIME DIV 360000 MOD 24 540 minute=TIME DIV (100*60) MOD 60 550 second=TIME DIV 100 MOD 60 560 IF (hour=0 AND minute=0 AND lastminute=59) THEN PROCincdate 570 lastminute=minute 580 PRINT TAB(0,0);"Date = ";day;" "; 590 RESTORE 600 600 DATA Jan,Feb,Mar,Apr,May,June,July,Aug,Sept,Oct,Nov,Dec 610 FOR X=1 TO month 620 READ months 630 NEXT X 640 PRINT month$;" ";year;" "; 650 PRINT "GMT = "; 660 IF hour 670 PRINT;hour;" :
"; 680 IF minute 690 PRINT ;minute; " ";