RUNNING MAN

This program was written as an experiment in graphics-manipulation. I became fascinated by a Casio watch which displayed a tiny graphic of a person running and decided I not only wanted to re-create that, but put it into proper motion.

The hardest part to figure out was the speed of the man so that the program would display something even remotely realistic. I did figure it out and it works pretty well.

Of course, there is a bit of twisted humor at the end of the program.

A=500
B=200
C=1
E=75
F=2

I=250

X=200
Y=100
Q=X+12

LINE (0,B+9)-(500,B+9)

FOR Z=0 TO 13
LINE (X,Y+Z)-(Q,Y+Z)
LET X=X-.49
LET Q=Q+.49
NEXT Z

5 REM START MAN

LINE (A,B)-(A,B+4),C
LINE (A-1,B)-(A-1,B+1),C
LINE (A-2,B+2)-(A-1,B+3),C
LINE (A+1,B+2)-(A+2,B+3),C
LINE (A-1,B+5)-(A,B+5),C
LINE (A-2,B+6)-(A-2,B+8),C
LINE (A,B+6)-(A+2,B+6),C
FOR PAUSE=1 TO E:NEXT PAUSE

FOR G=B TO B+8
LINE (A-2,G)-(A+2,G),0
NEXT G

LET A=A-F
IF A<I THEN GOSUB 100

LINE (A,B)-(A,B+5),C
LINE (A-1,B)-(A-1,B+1),C
LINE (A-2,B+3)-(A+1,B+3),C
LINE (A-1,B+6)-(A-1,B+8),C
LINE (A,B+6)-(A+1,B+6),C
FOR PAUSE=1 TO E:NEXT PAUSE

FOR G=B TO B+8
LINE (A-2,G)-(A+2,G),0
NEXT G

LET A=A-F
IF A<I THEN GOSUB 100

LINE (A,B)-(A,B+8),C
LINE (A-1,B)-(A-1,B+1),C
LINE (A-1,B+3)-(A+1,B+3),C
LINE (A-1,B+5)-(A-1,B+6),C
FOR PAUSE=1 TO E:NEXT PAUSE

FOR G=B TO B+8
LINE (A-2,G)-(A+2,G),0
NEXT G

LET A=A-F
IF A<I THEN GOSUB 100

LINE (A,B)-(A,B+6),C
LINE (A-1,B)-(A-1,B+1),C
LINE (A-2,B+3)-(A+1,B+3),C
LINE (A-2,B+5)-(A-1,B+5),C
LINE (A-2,B+6)-(A-2,B+7),C
LINE (A+1,B+7)-(A+2,B+8),C
FOR PAUSE=1 TO E:NEXT PAUSE

FOR G=B TO B+8
LINE (A-2,G)-(A+2,G),0
NEXT G

LET A=A-F
IF A<I THEN GOSUB 100

GOTO 5

10 IF INKEY$=" "THEN 30
20 GOTO 10
30 LIST
40 END

100 REM ANVIL DROP

E=0

LINE (X,Y)-(Q,Y+13),0,BF

X=200
Q=X+12
Y=Y+5

FOR Z=0 TO 13
LINE (X,Y+Z)-(Q,Y+Z)
IF Y+Z=B+9 THEN 200
LET X=X-.49
LET Q=Q+.49
NEXT Z

RETURN

200 GOTO 200