
Sub GET_Click ()
ih = vbPeek(64, 241)
im = vbPeek(64, 242)
If Val(ih < 10) Then value = "0"
value = Trim(Trim(value) + Trim(Str(ih)) + Trim(":"))
If Val(im < 10) Then value = Trim(value) + Trim("0")
value = Trim(value) + Str(im)
End Sub

Sub INPUT_Click ()
II% = SEGMENT
IJ% = adr
Rem IV% = vbPeek(II%, IJ%)
IV% = vbInp(IJ%)
value = IV%
End Sub

Sub Timer_clock_Timer ()
ih = vbPeek(64, 241)
im = vbPeek(64, 242)
If Val(ih < 10) Then v$ = "0"
v$ = ((v$) + (Str(ih)) + (":"))
If Val(im < 10) Then v$ = (v$) + ("0")
v$ = (v$) + Trim(Str(im))
If value <> v$ Then value = v$
End Sub

