MOON p Moon's Phases ,to select any phase use LET D=NUMBER and8 7:0:7 IG=192:H=69E:J=58::K=524:M=105i:Z=0 0 to 28= main loop D=028:D$="Q" draw Earth & Moon orbit :G,H,J:G,H,12 draw Moon in orbit P=:A=(D-7)/14*P !C=G+J*A:E=H+J*A:C,E,5 drawMoon's shadow QN=.55:C+N,E:0,K-10 *N:C-N,E:0,K-10 *N:N draw earth's shadow PN=.512 :G+N,H:0,M-9 *N:G-N,H:0,M-9 *N:N describe moon's phase "MOON'S PHASE:DAY ";D 1;("NEW"(D=0D=28))+("1st."D=7)+("LAST"D=21)+("QUARTER"(D=7D=21))+("FULL"D=14)+("CRESCENT"(D>0D<7D>21D<28))+("GIBBOUS"(D14D>7D<21))+"MOON" eclipses & terminator o2;1;( "ECLIPSE OF SUN POSSIBLE"(D=0D=28))+("ECLIPSE OF MOON POSSIBLE"D=14) J("Waxing-sunrise"D<14)+("Waning-sunset"D>14):"terminator" =11 ,22;"EARTH";5,18;"MOON'S ORBIT" 72;21,8;"SUNLIGHT ^ ^ ^ ^ ^ ^ ^ ^" #draw bright limb $D>14P=-P (!J,10 :0,J*2,P -draw terminator 2B=D-7:X=2.5 <B>7B=B-14 F N=X*(/180*-B*25) P!J,10 :0,J*2,N Rjump out of loop(z=1) UZ=1190 Z250:D:Z=1 t:100d:7,6;"YOU MAY NOW SELECT ANY DAY TO SHOW THE MOON'S PHASE. PRESS 'Q' TO STOP." 200 84;"SELECT DAY:CHOOSE A NUMBER BETWEEN 0 & 28";D ifD0 to 28 go to 1 (D0D28)*8 n=158: i=(*7) i;"*HIGH SOFT* "; 5:n: +236099\,25:23658j\,8 O=12 2:6:(*7) Q60<,26:1;123{,122z,579^3*:150: O HY=141):1;1;"**S C I E N C E**";:2:Y 250: B4;7,4;"M O O N' S P H A S E S":200: w1;7,6;"THE PROGRAM WILL SHOW YOU THE MOON'S PHASES. YOU MAY SELECT ANY PHASE IF YOU WISH." 200::3  ighEj:k4mizpIڢaVfcLeGDShbx DQ