first_Display:
on b4 gosub No_Nil, No_1, No_2, No_3, No_4, No_5, No_6, No_7, No_8, No_9, No_0, No_Blank
peek $87, b0
if bit1 = 0 then low portc 1 high portc 7 else low portc 1 endif
let b13 = b4
gosub pause
let pinsc =%00000000
second_Display:
on b5 gosub No_Nil, No_1, No_2, No_3, No_4, No_5, No_6, No_7, No_8, No_9, No_0, No_Blank
peek $87, b0
if bit2 = 0 then low portc 2 high portc 7 else low portc 2 endif
let b13 = b5
gosub pause
let pinsc =%00000000
third_Display:
on b6 gosub No_Nil, No_1, No_2, No_3, No_4, No_5, No_6, No_7, No_8, No_9, No_0, No_Blank
peek $87, b0
if bit3 = 0 then low portc 3 high portc 7 else low portc 3 endif
let b13 = b6
gosub pause
let pinsc =%00000000
fourth_Display:
on b7 gosub No_Nil, No_1, No_2, No_3, No_4, No_5, No_6, No_7, No_8, No_9, No_0, No_Blank
peek $87, b0
if bit4 = 0 then low portc 4 high portc 7 else low portc 4 endif
let b13 = b7
gosub pause
let pinsc =%00000000
fifth_Display:
on b8 gosub No_Nil, No_1, No_2, No_3, No_4, No_5, No_6, No_7, No_8, No_9, No_0, No_Blank
peek $87, b0
if bit5 = 0 then low portc 5 high portc 7 else low portc 5 endif
let b13 = b8
gosub pause
let pinsc =%00000000
'Pause values ----------------------------------------------------------
pause:
select case b13
case 1 pause 0
case 4,7 pause 1
case 5,2,3 pause 2
case 6,9 pause 3
case 8 pause 4
endselect
RETURN
'Value Displays ---------------------------------------------------------
No_Nil: 'dash"
dirsc =%00001000
let pinsc =%00001000
RETURN
No_1:
dirsc =%00000110
let pinsc =%00000110
RETURN
No_2:
dirsc =%01011011
let pinsc =%01011011
RETURN
No_3:
dirsc =%01001111
let pinsc =%01001111
RETURN
No_4:
dirsc =%01100110
let pinsc =%01100110
RETURN
No_5:
dirsc =%01101101
let pinsc =%01101101
RETURN
No_6:
dirsc =%01111101
let pinsc =%01111101
RETURN
No_7:
dirsc =%00000111
let pinsc =%00000111
RETURN
No_8:
dirsc =%11111111
let pinsc =%11111111
RETURN
No_9:
dirsc =%01101111
let pinsc =%01101111
RETURN
No_0:
dirsc =%00111111
let pinsc =%00111111
RETURN