C C$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ C$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ TREE.FTN $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ C$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ C C THIS PROGRAM WILL DRAW A CHRISTMAS TREE ON THE TERMINAL, AND C BLINK THE LIGHTS. IT IS BEST WHEN RUN FROM A HIGH BAUD RATE C TERMINAL. TIME OF THE DISPLAY MAY BE ALTERED BY CHANGING THE C DO LOOP INDEX "I". C C NOTE: THIS PROGRAM DOES REQUIRE A RANDOM NUMBER GENERATER C C C WRITTEN BY K.G. ROLLER C RESEARCH COMPUTER SERVICES C G.D. SEARLE C CHICAGO, ILL. C BYTE SCREEN (61,23) INTEGER ARG BYTE STAR DATA SCREEN /30*' ','*',30*' ', + 29*' ','/',' ','\',29*' ', + 28*' ','/',3*' ','\',28*' ', + 27*' ','/',' ','*',' ','*',' ','\',27*' ', + 26*' ','/',7*' ','\',26*' ', + 25*' ','/',' ','*',4*' ','*',2*' ','\',25*' ', + 24*' ','/',5*' ','*',2*' ','*',' ','*','\',24*' ', + 23*' ','/',' ',3*' ','*',2*' ','*',2*' ','*',2*' ','\',23*' ', + 22*' ','/',5*' ','*',2*' ','*',3*' ','*',2*' ','\',22*' ', + 21*' ','/',2*' ','*',8*' ','*','*',4*' ','\',21*' ', + 20*' ','/',4*' ','*',3*' ','*',5*' ','*',4*' ','\',20*' ', + 19*' ','/',10*' ','*',9*' ','*','\',19*' ', + 18*' ','/',3*' ','*',6*' ','*',8*' ','*',3*' ','\',18*' ', + 17*' ','/','*',22*' ','*',' ','\',17*' ', + 16*' ','/',9*' ','*',10*' ','*',6*' ','\',16*' ', + 15*' ','/','*',23*' ','*',4*' ','\',15*' ', + 14*' ','/',12*' ','*',9*' ','*',8*' ','\',14*' ', + 13*' ','/',4*' ','*',8*' ','*',4*' ',10*' ','*',4*' ','\',13*' ', + 12*' ','/','*',25*' ','*',8*' ','\',12*' ', + 11*' ',39*'-',11*' ', + 28*' ','|',3*' ','|',28*' ', + 28*' ','|',3*' ','|',28*' ', + 28*' ',5*'-',28*' '/ DO 10 L=1,23 WRITE (5,9000) (SCREEN(K,L),K=1,61) 10 CONTINUE WRITE (5,9020) CALL VTANS (5) DO 100 I=1,10 DO 90 J=1,23 DO 85 K=1,61 IF (SCREEN(K,J).NE.'*') GO TO 85 STAR=' ' IF (J.EQ.1) GO TO 40 PROB=RAN(I1,I2) IF (PROB.LT..5) GO TO 79 40 PROB=RAN(I1,I2) IF (PROB.GT..5) GO TO 50 ARG=0 GO TO 80 50 ARG=1 80 STAR='*' 79 CALL VTDTX (5,ARG,J,K,STAR) 85 CONTINUE 90 CONTINUE 100 CONTINUE CALL VTHME (5) CALL VTESC (5,2) CALL VT52M (5) C C C 9000 FORMAT (' ',61A1) 9020 FORMAT (18X,'MERRY CHRISTMAS FROM R. C. S. ') C C END