Home

Add

Edit

With Linenumbers

Code in Textfield

Download

Dim Shared VIRA_TTY_Visible                 As Integer
Dim Shared VIRA_TTY_BackBufferH             As Uinteger = 10
Dim Shared VIRA_TTY_PosY                    As Integer  = 0
Dim Shared VIRA_TTY_SpeedSH                 As Integer  = 1

Dim TKey As String
Do
    TKey = Inkey()
    If TKey = Chr(27) Then Exit Do
    If TKey = "1" Then VIRA_TTY_Visible = 0
    If TKey = "2" Then VIRA_TTY_Visible = 1
    If VIRA_TTY_Visible = 0 Then
        If VIRA_TTY_PosY > -VIRA_TTY_BackBufferH Then VIRA_TTY_PosY -= VIRA_TTY_SpeedSH
        If VIRA_TTY_PosY < -VIRA_TTY_BackBufferH Then VIRA_TTY_PosY = -VIRA_TTY_BackBufferH
    Else
        If VIRA_TTY_PosY < 0 Then VIRA_TTY_PosY += VIRA_TTY_SpeedSH
        If VIRA_TTY_PosY > 0 Then VIRA_TTY_PosY = 0
    End If
    Print VIRA_TTY_PosY
    Sleep 250, 1
Loop
End 0