:Disp "cranwell@yahoo.com" :"JanFebMarAprMayJunJulAugSepOctNovDec"üT :Disp "Use ARROWS":Disp "F4 or F5":Disp "Then ENTER" :For(I,1,4):Disp "":End:1üN:iPart 12rand+1üM:iPart 5rand+1996üY :Lbl CRANWELL:Repeat x>34:getKyüx:Y+(x==26)-(x==24)üY:M+(x==25)-(x==34)üM :Y+10(x==15)-10(x==14)üY:If M>12:1üM:If M<1:12üM :Outpt(7,7,sub(T,M*3-2,3):Outpt(7,11,Y):End :Outpt(8,1," Su Mo Tu Wd Tr Fr Sa"):1üG :For(I,1,2):GüR:If M<3:Then:Y-1üZ:Else:YüZ:End :365*Y+int (30.6*M-30.3)+int (Z/4)-int (Z/100)+int (Z/400)+int (3/(M+1))*(M+1)+5üF :7*fPart (F/7)üD:int (D+.5)üG :If R==1:M+1üM:If M==13:Then:1üM:Y+1üY:End:End:Disp "":3üE:1üW:3üB :Lbl W:If W>9:2üB:Outpt(8,R*3+B,W):W+1üW:R+1üR :If Rù7:Then:If getKy==105:Stop:Disp "":0üR:E+1üE:End :If (W>26)(G==R):Goto Z:Goto W :Lbl Z:Pause :Disp "","":Goto CRANWELL