'******************************************************************************
'* *
'* THIS PROGRAM HAS BEEN WRITTEN FOR THE MICROMITE 150 RUNNING MMBASIC 4.5 *
'* TO READ THE TEMPERATURE FROM A DS18B20 TEMPERATURE PROBE AND DISPLAY ON *
'* 2 DIGIT COMMON CATHODE SEVEN SEGMENT DISPLAY. EACH OF THE SEGMENTS IS *
'* ATTACHED TO THE MMITE VIA A CURRENT LIMITING RESISTOR AND THE COMMON PIN *
'* IS ATTACHED TO VCC SO MINIMAL COMPONENTS ARE BEING USED.(KISS) *
'* THANKS TO GEOFF GRAHAM FOR ALL HIS EFFORTS. GM *
'* *
'******************************************************************************

SetPin 10,DOUT 'DIGIT 1 SEG A
SetPin 7, DOUT 'DIGIT 1 SEG B
SetPin 15,DOUT 'DIGIT 1 SEG C
SetPin 17,DOUT 'DIGIT 1 SEG D
SetPin 16,DOUT 'DIGIT 1 SEG E
SetPin 9, DOUT 'DIGIT 1 SEG F
SetPin 14,DOUT 'DIGIT 1 SEG G
SetPin 4 ,DOUT 'DIGIT 2 SEG A
SetPin 6, DOUT 'DIGIT 2 SEG B
SetPin 22,DOUT 'DIGIT 2 SEG C
SetPin 18,DOUT 'DIGIT 2 SEG D
SetPin 21,DOUT 'DIGIT 2 SEG E
SetPin 5, DOUT 'DIGIT 2 SEG F
SetPin 3, DOUT 'DIGIT 2 SEG G

Dim D1(8),D2(8),NUM(10,8)

'LOAD MMITE PIN NUMBERS TO 7 SEGMENTS OF EACH DIGIT
For D=1 To 7 :Read D1(D):Next D
For E=1 To 7 :Read D2(E):Next E

'LOAD SEGMENT MATRIX FOR EACH NUMBER 0-9
For X=0 To 9
For Y=0 To 7
Read NUM(X,Y)
Next Y
Next X

'CLEAR ALL SEGMENTS
For I=1 To 7
Pin(D1(I))=1
Pin(D2(I))=1
Next I

' MMITE PIN NUMBERS TO EACH 7 SEGMENT DISPLAY
Data 10,7,15,17,16,9,14
Data 4,6,22,18,21,5,3

'7 SEG A B C D E F G MATRIX FOR EACH DIGIT 0-9
Data 0,1,1,1,1,1,1,0 '0
Data 1,0,1,1,0,0,0,0 '1
Data 2,1,1,0,1,1,0,1 '2
Data 3,1,1,1,1,0,0,1 '3
Data 4,0,1,1,0,0,1,1 '4
Data 5,1,0,1,1,0,1,1 '5
Data 6,1,0,1,1,1,1,1 '6
Data 7,1,1,1,0,0,0,0 '7
Data 8,1,1,1,1,1,1,1 '8
Data 9,1,1,1,0,0,1,1 '9

Do
TEMP$=Str$(DS18B20(2),2,0)
Print TEMP$
H=Val(Left$(TEMP$,1))
For J= 1 To 7
If NUM(H,J)=1 Then Pin(D1(J))=0 Else Pin(D1(J))=1
Next J
K=Val(Right$(TEMP$,1))
For J= 1 To 7
If NUM(K,J)=1 Then Pin(D2(J))=0 Else Pin(D2(J))=1
Next J
Pause 1000
Loop

Do
TRTEMP=DS18B20(2)
TEMP$=Str$(TRTEMP,2,0)
Print TRTEMP

H=Val(Right$(TEMP$,1))
For J= 1 To 7
If NUM(H,J)=1 Then Pin(D1(J))=0 Else Pin(D1(J))=1
Next J

If Val(TEMP$) < 100 Then
Pin(23)=1
K=Val(Left$(TEMP$,1))
For J= 1 To 7
If NUM(K,J)=1 Then Pin(D2(J))=0 Else Pin(D2(J))=1
Next J
Else
Pin(23)=0
K=Val(Mid$(TEMP$,2,1))
For J= 1 To 7
If NUM(K,J)=1 Then Pin(D2(J))=0 Else Pin(D2(J))=1
Next J
EndIf

Pause 1000
Loop