C PROGRAM WORM C C AUTHOR MICHAEL BOORSTEIN C C DATE MARCH 26, 1978 C C COMMENTS: C C THIS ROUTINE MOVES A 15 CHARACTER WORM RANDOMLY AROUND THE SCREEN C C DIRECTION KEY: C C UP=1 C RIGHT=2 C DOWN=3 C LEFT=4 C C IMPLICIT INTEGER(A-Z) DIMENSION DIR(24) BYTE X(15),Y(15) DATA DIR/1,2,3,4,1,2,3,4,1,2,3,4,1,2,3,4,1,2,3,4,1,2,3,4/ DATA X/15*36/ DATA Y/15*12/ DATA HEAD,TAIL/1,15/ C C SET UP SCREEN C CALL CLRSCN C C START RANDOM NUMBER GENERATOR C CALL RANDOM(0,0,JUNK) C C MAIN LOOP C 20 CALL RANDOM(1,24,WCH) WCHDIR=DIR(WCH) CALL RANDOM(5,40,HOWFAR) DO 30 J=1,HOWFAR 30 CALL MVWORM(X,Y,HEAD,TAIL,WCHDIR) GOTO 20 END