DD N.5 & 700C      ,C D 5 C DIMENSION L(250) DO 10 I=1,250 10 L(I)=0 WRITE($16.A1,//," B S G.",/) WRITE(" ") WRITE(///) DO 11 I=0,90 WRITE($15.A1,90-I.I6) J=IFIX(SIN(FLOAT(I)*/180)*1000) 11 L(I+151)=J 13 JM1=-1 WRITE($16.A1," G - A - U",/) WRITE(" ",///) READ(" B S U :",//) WRITE(" ") WRITE(" ") WRITE(" ",$12.A1) 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 31 II=40,44 DO 30 I=1,360 IQ=I CALL 111 IA=40+IVZ*L(IQ)*16/II/10 IQ=I CALL 222 IB=25+IVZ*L(IQ)/II 30 SETG(IB,IA) 31 CONTINUE CALL 99 CALL 69 IPKT=1 32 CALL 90 N=GET IF (N-$4E) ,13, IF (N-$21) ,999, IF (IS-JS1) ,32, ISH=IH*30+IM/2 ISH=MOD(450-ISH,360) ISM=MOD(6*(75-IM),360) IF (IM-JM1) ,51, DO 45 I=1,45 RESG(L(I),L(I+45)) IQ=ISH CALL 222 L(I+45)=40+IVZ*I/2*L(IQ)/15*16/1000 IQ=ISH CALL 111 L(I)=25-IVZ*I/2*L(IQ)/1500 45 SETG(L(I),L(I+45)) DO 50 I=1,30 RESG(L(I+90),L(I+120)) IQ=ISM CALL 222 L(I+120)=40+IVZ*I*L(IQ)/1071 IQ=ISM CALL 111 L(I+90)=25-IVZ*I*L(IQ)/1666 50 SETG(L(I+90),L(I+120)) 51 IPL=MOD(354+IS*6,360) DO 55 K1=IPL,IPL+6 DO 54 K2=40,42 IQ=K1+90 CALL 222 IX=40-IVZ*L(IQ)*16/K2/10 IQ=K1+90 CALL 111 IY=25-IVZ*L(IQ)/K2 IF (IPKT) ,,52 SETG(IY,IX) GOTO 54 52 RESG(IY,IX) 54 CONTINUE 55 CONTINUE IF (IS) ,,65 IPKT=1-IPKT 65 JM1=IM JS1=IS 67 WRITE(11.V,19.H,"",/,19.H,"",KZ.A1,"",/,19.H,"") WRITE(1.H,0.V,"T :",32.H) CALL 333 WRITE(1.V,1.H,"",32.H,"") GOTO 32 69 DO 75 I=0,360,30 DO 74 J=100,114 IQ=I CALL 222 IA=40+IVZ*J*16/100*L(IQ)/500 IQ=I CALL 111 IB=25-IVZ*J*2/10*L(IQ)/1000 BREAK 74 SETG(IB,IA) 75 CONTINUE RETURN 333 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) 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) RETURN 99 WRITE(21.V,4.H,"N",/," ",/," ",/," Z") WRITE(21.V,36.H,"!",/,34.H,"",/,35.H,"S") RETURN 111 IVZ=1 112 IF (90-IQ) 113,, IQ=IQ+151 RETURN 113 IF (180-IQ) 114,, IQ=331-IQ RETURN 114 IQ=IQ-180 IVZ=-IVZ GOTO 112 222 IQ=IQ+90 IF (360-IQ) ,111,111 IQ=IQ-360 GOTO 111 999 CONTINUE WRITE($16.A1) END