DD N.6 z 700C o     ,C D 6 C DIMENSION L(80) 13 DO 10 I=1,80 10 L(I)=0 AM1=-1 S1=-1 WRITE($16.A1," G - A - U",///) WRITE(" ",///) WRITE(" B S U :",///) WRITE(" ") WRITE(" ") WRITE(" ") WRITE(23.V,5.H,"B S A") WRITE(24.V,5.H," U G !!!!!!",10.V) 15 WRITE(07.H," : ") READ(IH) IF (IH) 15,, IF (IH-23) ,,15 16 WRITE(17.H," : ") READ(IM) IF (IM) 16,, IF (IM-59) ,,16 17 WRITE(27.H," : ") READ(IS) IF (IS) 17,, IF (IS-59) ,,17 CALL 95 WRITE($16.A1) DO 30 I=1,360,2 T=FLOAT(I) IA=IFIX(40+25*1.3*COS(T*/180)) IB=IFIX(25+25*SIN(T*/180)) 30 SETG(IB,IA) CALL 99 CALL 69 32 CALL 90 N=GET IF (N-$4E) ,13, IF (N-$21) ,999, IF (IS-JS1) ,32, ASTD=ASTD+AMIN/60 SH=7.85398-ASTD*0.523599 SM=7.85398-AMIN*0.104719 SS=7.85398-ASEC*0.104719 IF (IFIX(AMIN-AM1)) ,51, DO 45 I=1,15,2 T=FLOAT(I) RESG(L(I),L(I+20)) IK=IFIX(40+T*1.3*COS(SH)) L(I+20)=IK IK=IFIX(25-T*SIN(SH)) L(I)=IK 45 SETG(L(I),L(I+20)) DO 50 I=41,60 T=FLOAT(I-40) RESG(L(I),L(I+20)) IK=IFIX(40+T*1.3*COS(SM)) L(I+20)=IK IK=IFIX(25-T*SIN(SM)) L(I)=IK 50 SETG(L(I),L(I+20)) 51 IF (IFIX(S1-ASEC)) ,65, RESG(IY,IX) IX=IFIX(40+20*1.3*COS(SS)) IY=IFIX(25-20*SIN(SS)) SETG(IY,IX) 65 AM1=AMIN S1=ASEC 67 WRITE(11.V,19.H,"",/,19.H,"",KZ.A1,"",/,19.H,"") WRITE(1.H,0.V,"T :",32.H) WRITE((IH+IH1)/10+$30.A1,MOD(IH+IH1,10)+$30.A1,":") WRITE(IM/10+$30.A1,MOD(IM,10)+$30.A1,":") WRITE(IS/10+$30.A1,MOD(IS,10)+$30.A1) WRITE(1.V,1.H,"",32.H,"") GOTO 32 69 DO 75 I=0,360,30 DO 74 J=74,80 T=FLOAT(I) T1=FLOAT(J)*0.3 IA=IFIX(40+T1*1.3*COS(T*/180)) IB=IFIX(25-T1*SIN(T*/180)) BREAK 74 SETG(IB,IA) 75 CONTINUE RETURN C U 95 MEM($10F0)=0 MEM($1102)=0 IF (IH-12) 96,, IH=IH-12 MEM($10F0)=1 96 IF (IH-6) 97,, IH=IH-6 MEM($1102)=1 97 IG=IH*3600+IM*60+IS MEM($1106)=LOW(IG) MEM($1107)=IG/256 $ML F5,E5,D5,2A,06,11,3A,02,11,B7,28,04,11,60,54,19,EB $ML 3A,F0,10,CD,33,00,D1,E1,F1 RETURN C U 90 $ML F5,E5,D5,CD,3B,00,32,F0,10,EB,E5,11,60,54,AF,ED,52,EB,E1,38,03 $ML EB,3E,01,32,02,11,22,06,11,D1,E1,F1 IG=MEM($1106)+MEM($1107)*256 IH=IG/3600 IH1=0 KZ=$41 IF (MEM($10F0)) ,,91 IH1=12 KZ=$50 91 IF (MEM($1102)) ,92, IH=MOD(IH+6,12) 92 IM=MOD(IG,3600)/60 IS=MOD(MOD(IG,3600),60) ASTD=FLOAT(IH) AMIN=FLOAT(IM) ASEC=FLOAT(IS) RETURN 99 WRITE(21.V,4.H,"N",/," ",/," ",/," Z") WRITE(21.V,36.H,"!",/,34.H,"",/,35.H,"S") RETURN 999 CONTINUE WRITE($16.A1) END