Snippet of code from the 1980 film "The Return"

thereturn.bas

10 DIM P(10): T$="TTT": I$="I": SC=0:SP$="               "
20 P(0)=10:P(1)=150:P(2)=100:P(3)=200:P(4)=50:P(5)=180:P(6)=120:P(7)=220:P(8)=60:P(9)=90
30 HGR2
40 FOR Y = 0 TO 9: GOSUB 900: NEXT: END

900 GOSUB 920 : FOR X = 140 TO P(Y) STEP 6 * SGN(P(Y)-140): HCOLOR = 0: HPLOT X1, 170 TO X1, 155: HCOLOR = 7: HPLOT X, 170 TO X, 155: HPLOT 140, 170 TO 140, 155: HPLOT 140, 163 TO X, 163: X1 = X: NEXT : GOSUB 920
910 FOR X = P(Y) TO 140 STEP 6 * SGN(140-P(Y)): HCOLOR = 0: HPLOT X1, 170 TO X1, 155: HPLOT X, 163 TO X1, 163: HCOLOR = 7 : HPLOT X, 170 TO X, 155 : X1 = X: NEXT: GOSUB 920: RETURN
920 SC = SC + 1: IF SC > 4 THEN SC = 0
930 PRINT T$; SC; I$; : PRINT LEFT$(SP$, RND(1) * 10 + 1);: PRINT I$;: RETURN