5 PRINT CHR$(12)
6 REM BC00 = 48128
10 ADD = 48128 : DAT = 48129 : ENABLE = 7 : PA = 14 : PB=15
20 BIT = 0 : SC=512+38
25 P=0
30 POKE ADDR,PA : POKE DAT,1        : REM SET CLK HIGH 
40 POKE ADDR,ENABLE : POKE DAT,64   : REM SET PA AS O/P PB AS I/P
50 POKE ADDR,PB : POKE DAT,0        : REM SET DATA LINE LOW PB0
53 GOSUB 400 : REM INSERT MC
55 BM=ST + SZ+1 : REM BASE ADDRESS OF TIME DATA
57 PRINT CHR$(12)
58 REM MC ADDRESS = $7C00, MSB = 124, LSB = 0
60 POKE 34,0
70 POKE 35,124
80 X=USR(I): REM READ RTC + temperature and display DATE and TIME
100 IF P=0 THEN GOSUB 62000 : REM display TEMPERATURE
110 P=P+1:IF P=1300 THEN P=0
120 GOTO 80


400 REM INSERT MACHINE CODE
405 PRINT "INSERTING MC"
407 READ ST,SZ
410 FOR X=ST TO ST + (SZ-1)
415  READ B
420  POKE X,B
430 NEXT X
440 PRINT "MC INSERTED"
450 RETURN

500 DATA 31744,588
510 DATA 32,189,125,32,95,125,169,208,32,215,125,169,0,32,215,125
520 DATA 32,102,125,32,95,125,169,209,32,215,125,160,0,32,243,125
530 DATA 173,76,126,205,77,126,240,40,32,112,125,173,76,126,153,77
540 DATA 126,200,32,243,125,173,76,126,153,77,126,200,192,19,208,10
550 DATA 32,125,125,32,102,125,32,87,124,96,32,112,125,76,50,124
560 DATA 32,125,125,32,102,125,96,162,0,169,32,32,172,124,232,173
570 DATA 83,126,32,172,124,232,32,89,125,232,32,192,124,232,32,89
580 DATA 125,232,173,81,126,32,172,124,232,32,89,125,232,32,251,124
590 DATA 232,32,89,125,232,173,79,126,41,63,32,172,124,232,169,58
600 DATA 157,2,2,232,173,78,126,41,127,32,172,124,232,169,58,157
610 DATA 2,2,232,173,77,126,41,127,32,172,124,96,72,74,74,74
620 DATA 74,9,48,157,2,2,232,104,41,15,9,48,157,2,2,96
630 DATA 173,80,126,56,233,1,141,76,126,10,24,109,76,126,168,185
640 DATA 230,124,157,2,2,232,200,185,230,124,157,2,2,232,200,185
650 DATA 230,124,157,2,2,96,83,117,110,77,111,110,84,117,101,87
660 DATA 101,100,84,104,114,70,114,105,83,97,116,173,82,126,41,16
670 DATA 240,11,173,82,126,41,15,24,105,10,76,18,125,173,82,126
680 DATA 41,15,56,233,1,141,76,126,10,24,109,76,126,168,185,53
690 DATA 125,157,2,2,232,200,185,53,125,157,2,2,232,200,185,53
700 DATA 125,157,2,2,96,74,97,110,70,101,98,77,97,114,65,112
710 DATA 114,77,97,121,74,117,110,74,117,108,65,117,103,83,101,112
720 DATA 79,99,116,78,111,118,68,101,99,169,32,157,2,2,96,32
730 DATA 34,126,32,62,126,96,32,34,126,32,48,126,32,20,126,96
740 DATA 32,34,126,32,48,126,32,62,126,32,20,126,96,32,20,126
750 DATA 32,48,126,32,62,126,96,32,20,126,32,48,126,169,15,141
760 DATA 0,188,173,0,188,32,62,126,96,169,14,141,0,188,169,1
770 DATA 141,1,188,169,15,141,0,188,169,0,141,1,188,169,7,141
780 DATA 0,188,173,0,188,9,64,41,127,141,1,188,96,32,102,125
790 DATA 32,95,125,32,20,126,162,9,32,48,126,32,62,126,202,208
800 DATA 247,32,95,125,76,102,125,141,76,126,162,8,32,20,126,14
810 DATA 76,126,176,3,32,34,126,32,48,126,32,62,126,202,208,236
820 DATA 76,135,125,32,20,126,162,8,32,48,126,14,76,126,169,15
830 DATA 141,0,188,173,0,188,41,1,240,3,238,76,126,32,62,126
840 DATA 202,208,229,96,169,7,141,0,188,173,0,188,41,127,141,1
850 DATA 188,96,169,7,141,0,188,173,0,188,9,128,141,1,188,96
860 DATA 169,14,141,0,188,173,0,188,9,1,141,1,188,96,169,14
870 DATA 141,0,188,173,0,188,41,254,141,1,188,96


3000 REM DIRECT SCREEN OUTPUT FOR TEMPERATURE
3010 FOR H=1 TO LEN(STRING$)
3020   POKE SC+H,ASC(MID$(STRING$,H,1))
3030 NEXT H
3040 RETURN

62000 REM READ TEMPERATURE
62010 TH=PEEK(BM+17) : TL=PEEK(BM+18)
62015 TL = ((TL AND 192) / 64)* 0.25
62020 IF TH AND 128 THEN TH=TH-1:TH=NOT TH:TH=TH AND 255:TH =TH*-1:TL=TL*-1
62022 IF TL = 0 THEN STRING$=STR$(TH) + ".00": GOTO 62035
62025 IF TL = .5 THEN STRING$=STR$(TH +TL) + "0": GOTO 62035
62030 STRING$=STR$(TH+TL)
62035 STRING$ = STRING$ + " Celsius   "
62040 GOSUB 3000 : REM DIRECT OUTPUT TO SCREEN
62050 RETURN