Print Using?

[Kernelpanic]

Is this what your looking for?

It is working! But mighty, mighty complicated Egon, Sven would say. - I made it understanding for myself (Learned something again):

Code: (Select All)

'Zeitanzeige. Problem mit "0" geloest (der einzige Weg?)
'justsomeguy - 2. Nov. 2022

Option _Explicit

Dim As Integer m, s
Dim As String tmp

s = 0: m = 0
Do
  _Limit 5
  Cls
  s = s + 1
  If s > 59 Then
    m = m + 1
    s = 0
  End If
  tmp = Chr$((48 * -(m <= 9)) + (35 * -(m > 9))) + "#:" + Chr$((48 * -(s <= 9)) + (35 * -(s > 9))) + "#"
  Locate 1, 1
  Print Using tmp$; m; s
  _Display
Loop While m < 2

End