DECLARE SUB delay (seconds!)
SCREEN 13
RANDOMIZE TIMER
CLS
trak = 0
x = 0
y = 0
z = 51
xinc = RND * 5
yinc = RND * 5
zinc = RND * 5
RESTORE PointData
READ Maxpoints
DIM Cubex(Maxpoints)
DIM Cubey(Maxpoints)
DIM Cubez(Maxpoints)
FOR a = 1 TO Maxpoints
READ Cubex(a), Cubey(a), Cubez(a)
'PRINT Cubex(a); Cubey(a); Cubez(a)
NEXT
'END
RESTORE LineData
READ Maxlines
DIM from(Maxlines)
DIM too(Maxlines)
FOR a = 1 TO Maxlines
READ from(a), too(a)
NEXT

DO
'yinc = yinc + .1
k$ = INKEY$

FOR a = 1 TO Maxlines
x1 = Cubex(from(a))
y1 = Cubey(from(a))
z1 = Cubez(from(a))
x2 = Cubex(too(a))
y2 = Cubey(too(a))
z2 = Cubez(too(a))
LINE (50 * (x1 / z1) + 160, 50 * (y1 / z1) + 100)-(50 * (x2 / z2) + 160, 50 * (y2 / z2) + 100)
NEXT

IF trak = 1 THEN
LINE (50 * (x / 200) + 160, 50 * (y / 200) + 100)-(50 * (x / 50) + 160, 50 * (y / 50) + 100), 0
LINE (50 * (-160 / z) + 160, 50 * (y / z) + 100)-(50 * (159 / z) + 160, 50 * (y / z) + 100), 0
LINE (50 * (x / z) + 160, 50 * (-100 / z) + 100)-(50 * (x / z) + 160, 50 * (99 / z) + 100), 0
END IF
CIRCLE (50 * (x / z) + 160, 50 * (y / z) + 100), 50 * (10 / z), 0

SELECT CASE k$
CASE "t": trak = ABS(trak - 1)
END SELECT

x = x + xinc
y = y + yinc
z = z + zinc
IF x <= -150 OR x >= 149 THEN xinc = -xinc
IF y <= -90 OR y >= 89 THEN yinc = -yinc
IF z <= 40 OR z >= 190 THEN zinc = -zinc

IF trak = 1 THEN
LINE (50 * (x / 200) + 160, 50 * (y / 200) + 100)-(50 * (x / 50) + 160, 50 * (y / 50) + 100)
LINE (50 * (-160 / z) + 160, 50 * (y / z) + 100)-(50 * (159 / z) + 160, 50 * (y / z) + 100)
LINE (50 * (x / z) + 160, 50 * (-100 / z) + 100)-(50 * (x / z) + 160, 50 * (99 / z) + 100)
END IF
CIRCLE (50 * (x / z) + 160, 50 * (y / z) + 100), 50 * (10 / z), 1

'DO: LOOP WHILE INKEY$ = ""
delay 0.02
LOOP

PointData:
DATA 8
DATA -160, -100, 50,   159, -100, 50,   159, 99, 50,   -160, 99, 50
DATA -160, -100, 200,  159, -100, 200,  159, 99, 200,  -160, 99, 200

LineData:
DATA 12
DATA 1, 2,  2, 3,  3, 4,  4, 1,  1, 5,  2, 6
DATA 3, 7,  4, 8,  5, 6,  6, 7,  7, 8,  8, 5

SUB delay (seconds!)
start# = TIMER
DO WHILE TIMER - start# < seconds!
LOOP
END SUB