Pascal/Turbo Pascal - Un Asterisco (*)

Alguien ke me pueda ayudar, tengo ke hacer ke un asterisco corra al rededor de la pantalla. gracias x la ayuda.

Si espesificas mejor lo que quieres hacer te puedo ayudar, porque el asterisco puede correr a lo largo de una sola fila, o por filas seleccionadas de forma aleatoria, o por columnas, o por todo la pantalla (80 filas y 24 columnas)