:59468,12: EST COPYRIGHT (C) 1978 GLEN FISHERW CURSOR #2, APRIL, 1978x BOX 550, GOLETA, CA. 93017~: AS OF 8 MAY 80ZPG$"EST":NM$"2":62000dR(X)(X10.5)10n59468,12:"DO YOU WANT TO ESTIMATE LENGTH? ";:60000:L0$IN$!TY19(L0$,1)"N"400oTY2::"WELL, HOW ABOUT AREA? ";:60000:L0$IN$(L0$,1)"N"400TY0TY1TY2200C$:NC(C$):C$(NC)I1NCT$(C$,I,1)T$T$T$T$:T$T$T$T$:T$(T$T$T$T$T$,40)C$(I)T$#IGDN$""`HC15.839:HC=14/34yVC11.423:VC=14/31"צ*+"520"TRY AGAIN? ";:60000:T$IN$(T$,1)"N"50000TRTR1:TY2000,1000HS((1)39)1HS71000VS((1)20)1+VS71006SR((1)(24VS)):C((1)(39HS))kC$C$(((1)NC)1)u9000:"HOW MANY SQUARE CENTIMETERS";ESHSHSHC:VSVSVC!VSR(VS):HSR(HS)$LOR((HS01.00)(VS1.00)) .HIR((HS1.00)(VS1.00))8AS((HSVS).5)BBESASR$"!!!RIGHT!!!":1120lLESLOWESHIR$"NO...":WW1:1120VR$"GOOD GUESS!"`R$;" THE AREA IS";AS;"SQ. CM."j500(1).52005VS1:HS((1)39)1:ASHSHCHS720012020 HS1:VS((1)20)1& VS720053 ASVSVC[ R((1)(24VS)):C((1)(39HS))s C$C$(((1)NC)1)} 9000 :"HOW MANY CENTIMETERS LONG";ES ASR(AS) ESASR$"!!!RIGHT!!!":2090 ESAS1.25ESAS1.25R$"...NO...":WW1:2090 R$"CLOSE GUESS!"G *R$;" IT WAS ABOUT";AS;"CM. LONG."P 4500l (#:"";:R0(DN$,R);x 2#I1VS <#C);"";(C$,HS) F#I P# ' PP(TRW)TR:PCT(P1000.5)10 dÙ"AFTER";TR;"TRIES, YOUR SCORE IS";TRW nÙ"YOU GUESSED";PCT;"% CORRECT."; Ù"THANKS FOR PLAYING."A Dŀb `IN$" ":ZTTI:ZC2:ZD$(20)x jZ$:Z$""60070 tZTTI(" ",ZC,1);"";:ZC3ZC:ZTTI15 ~60010 Z(Z$):ZL(IN$):(Z127)32" ";:60110 FL(Z127)64(Z127)91Z$((Z128)255)% ZL25460010@ IN$IN$Z$:Z$;ZD$;Z$;_ Z13IN$(IN$,2):CR$;: Z20ZL1IN$(IN$,ZL1):"";:60010 Z141Z$(20(ZL1)):Z2ZL:Z$;:Z:60000 60010 (PN060250 260500:"PRESS RETURN TO ";