750 FOR J=L TO H:F!(J)=D!(J)*90/D!(H):PX(J)=0:PY(J)=198
760 E!(J)=F!(J)*SA!:NEXT:M!=P!(L)/50:ML!=M!*9
770 INPUT"Starting year (1-2000)";K$
775 IF K$="" THEN K$="1"
780 SY=VAL(K$):IF SY<1 OR SY>2000 THEN 640
790 CLS:PRINT T$(1):K=1
800 COL=0:FOR J=L TO H:PRINT TAB(32)N$(J):IF COL=0 THEN PUT(248,K*8),MASK0,AND ELSE IF COL=1 THEN PUT(248,K*8),MASK1,AND
810 COL=K MOD 3:K=K+1:NEXT
820 GOSUB 500:LOCATE 8,32
830 PRINT"Earth":PRINT TAB(32)"Year"
840 E!=.25:T!=SY-EY!:FL=1
850 PUT(106,98),WHITE2
860 FOR J=L TO H:A!=T!/P!(J)+R!(J)
870 A!=INT((A!-INT(A!))*256):IF J=9 THEN 890
880 X!(J)=C!(A!):Y!(J)=-S!(A!):GOTO 910
890 Z!=1+E!*C!(A!):X!(J)=E!+(E!+C!(A!))/Z!
900 Y!(J)=(E!*E!-1)*S!(A!)/Z!
910 X!(J)=INT(107+X!(J)*E!(J))
920 Y!(J)=INT(99+Y!(J)*F!(J)):NEXT
930 K=1:COL=0:FOR J=L TO H:IF PX(J)<>INT(X!(J)) OR PY(J)<>INT(Y!(J)) THEN PUT(PX(J),PY(J)),WHITE,PRESET:PX(J)=INT(X!(J)):PY(J)=INT(Y!(J)):IF COL=0 THEN PUT(PX(J),PY(J)),CYAN ELSE IF COL=1 THEN PUT(PX(J),PY(J)),MAGENTA ELSE PUT(PX(J),PY(J)),WHITE