Programa 20 - Líneas 3D - Lineas con scroll de texto

Sencillo programa con apenas 10 líneas de código escrito en BASIC.
Muestra en pantalla una forma 3D representada con línias.

Código BASIC

10 REM **********************************
20 REM *** Lineas con scroll de texto ***
30 REM ***       FlynnTron1982        ***
40 REM ***        16-12-2019          ***
50 REM **********************************
60 MODE 2
70 BORDER 18:INK 0,0:INK 1,18:CLS
80 DEG
90 ORIGIN 320,100
100 LOCATE 1,24
110 t=t+1:IF t>360 THEN t=1
120 MOVE 100*COS(t+360*COS(t)),100*SIN(t+360*SIN(t))
130 DRAW 100*COS(t+360*SIN(t)),100*SIN(t+360*COS(t))
140 PRINT
150 GOTO 110