[IgorOK]

Graphics 1024, 768, 32, 2

Global CPU_COMMANDS_COUNT=9
Dim CPU_COMMANDS$(CPU_COMMANDS_COUNT)

CPU_COMMANDS$(0)="memory acces violation"
CPU_COMMANDS$(1)="check memory statys: ok"
CPU_COMMANDS$(2)="Terminate Jhon Connor"
CPU_COMMANDS$(3)="DESTROY!!!!!"
CPU_COMMANDS$(4)="the cake is lie!"
CPU_COMMANDS$(5)="hasta la vista baby"
CPU_COMMANDS$(6)="no fate"
CPU_COMMANDS$(7)="fuck you asshole!"
CPU_COMMANDS$(8)="I`ll be back!"

Global CPU_STRINGS_COUNT=20
Dim CPU_OUTPUT$(CPU_STRINGS_COUNT)

Global CPU_OUTPUT_DELAY=2
Global CPU_WAIT=CPU_OUTPUT_DELAY
Global CPU_OUTPUT_INDEX

Function DrawTerminatorCPU(X, Y)
    CPU_WAIT=CPU_WAIT-1
    
    If CPU_WAIT=0
        CPU_WAIT=CPU_OUTPUT_DELAY
    
        CPU_OUTPUT_INDEX=CPU_OUTPUT_INDEX+1
    
        If CPU_OUTPUT_INDEX=CPU_STRINGS_COUNT
            CPU_OUTPUT_INDEX=0
            For i=0 To CPU_STRINGS_COUNT-1
                CPU_OUTPUT(i)=""
            Next
        EndIf
        
        CPU_OUTPUT(CPU_OUTPUT_INDEX)=CPU_COMMANDS(Rand(0, CPU_COMMANDS_COUNT-1))
    EndIf
    
    For i=0 To CPU_STRINGS_COUNT-1
        Text X, Y+StringHeight("_")*i, CPU_OUTPUT(i)
    Next
End Function

While Not KeyHit(1)
    DrawTerminatorCPU(100, 100)
    Flip
    Cls
Wend
End

Разберёшься?)))