' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]L L}BBL] 鷎귭෍ᷩ췭ⷍ㷍JJJJx L8㷍෩췍緍 ⷩ᷍H 㷍෍ `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"_]` L/浍굺L  !"#$%&'()*+,-./0123456789:;<=>?80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`HIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   vLDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV e L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@`  d@ŵõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx-(pz `Ϡ-@Ԡ跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴμ(`3؍` TQ X$7 % "$F ԠŠȠƠĠԠ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(`  d ** z#  u`ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?L) <]?J@* JJ<JJJ)JJ*J@@A f2*'&>J l@ȑ @ Б = 3JAJ*J&H鷎귭෍ᷩ췭ⷍ㷍JJJJx L8㷍෩췍緍 ⷩ᷍H 㷍෍ `巬 췌`x (`(8`I`B` ``2>&JJJȱ>'JJJ3ȱ>*JJJfȱ>J&*J&'J&&ȱ>J&*J&'J̻&*)')3*)f>)JJJ`80|'x&Hh & 󸩪 󸩭 󸘠Y'&Yxꪽ' 󸩪 󸽎`Hh` aI꽌ɪ򠚽ɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɵ'*&%&,E'зЮ꽌ɪФ`2JJJ'J&J>Ƚ3JJJJ&'J&&3>ȽfJJJJ&'J&&f>ȥ&)>ȥ')̻>JJJ >`*xY+&x'8*BIxix&&  x) + ') + &д +`FG8`0($ p,&" (0 8@ HPX !"#$`h%&px')*+,-./12345679:;<>                -<L >    HIHHHHhHH݌hHh݌H6 HHH(jf5<"""< """"$ $****""""""""""<"""< :< """"<"""""*"""""< <<<< (A*U*A  8":*:"">"""""""$$$$>>>"2""">""" "" ">"6**""&&**22>"""">""""*," "< >""""""""****""""> >>  >*!d>>$ >&2 *,**>> """" ">  >> ""> """"<  >>" )m2 8Ebb5hLH5b NO, 5bhL ,LJ X8i䂰`(e$)m8Iȅ`%c$d c%d$L" !`$d%c #L5)m2 8Ebb5hLH5b NO, 5bhL ,LJ X8i䂰`(e$)m8Iȅ`%c$d c%d$L" !`$d%c #L5)m2 8Ebb5hLH5b NO, 5bhL ,LJ X8i䂰`(e$)m8Iȅ`%c$d c%d$L" !`$d%c #L5)m2 8Ebb5hLH5b NO, 5bhL ,LJ X8i䂰`(e$)m8Iȅ`%c$d c%d$L" !`$d%c #L5)m2 8Ebb5hLH5b NO, 5bhL ,LJ X8i䂰`(e$)m8Iȅ`%c$d c%d$L" !`$d%c #L5)m2 8Ebb5hLH5b NO, 5bhL ,LJ X8i䂰`(e$)m8Iȅ`%c$d c%d$L" !`$d%c #L5)m2 8Ebb5hLH5b NO, 5bhL ,LJ X8i䂰`(e$)m8Iȅ`%c$d c%d$L" !`$d%c #L5)m2 8Ebb5hLH5b NO, 5bhL ,LJ X8i䂰`(e$)m8Iȅ`%c$d c%d$L" !`$d%c #L5)m2 8Ebb5hLH5b NO, 5bhL ,LJ X8i䂰`(e$)m8Iȅ`%c$d c%d$L" !`$d%c #L5)m2 8Ebb5hLH5b NO, 5bhL ,LJ X8i䂰`(e$)m8Iȅ`%c$d c%d$L" !`$d%c #L5)m2 8Ebb5hLH5b NO, 5bhL ,LJ X8i䂰`(e$)m8Iȅ`%c$d c%d$L" !`$d%c #L5167,898WRTPLH8預Lef%i#g ehL eL L L I*8 XhefL5 ;HJMJ)hi C & & &ee(e$ 00000003230,99,5,10,13* THREE1320,999,5,1,0=3* FOURO3200,9,50,1,0[3T* FIVEp3^5000,99,100,1,0{3* SIX30,99,0,10,13* SEVEN3&1,99,0,1,13* EIGHT30,500,0,1,03* NINE3 5,99,0,1,03H* TEN4R99,999,0,1,IALISATIONSj2ZÆX(2,2),NC%(6):C1:SP0:NQ1::N:TS$(1):D$(4):CS$(12):LC$(14):UC$(15):CP$(30)2dCL$(25):CS$:LC$:OE0:X(2,1)1:CL0:RW0:X((78))((79))2nZ848:Z9582ֱ2`* DATA2j 102* ONE29,9,1,1,13(* TWO30250L1 v2:21:TS$;"PRESS":NQ100Ė7:UC$;"SPACE ";LC$;" TO CONTINUE"v1#v7:TS$;"R KEY TO RE-RUN PROGRAM"1%v7:UC$;"ESC";LC$;" KEY TO LEAVE PROGRAM";1*v1:21:2000:X203021014vRR0:ESC4RR1:ESC21>vX11:40001 2Pò* INITNUS";:1:2000:1:CL$;'0guX203005050lu * BONUSf0quX1X2((65ME)0.466667.5):NQ6NRX1X2v0vuIX2X110uXL168:XR195:YBI:YTI:11000uI0u * OPTIONS0vCN$(27)" R":NQ100CN$(27)(255)"R"0 vMC1:AL1:LL1:UL01vSPXR:YB143:1100:XL140:YTYB:1100Y/IuXL153:YB59:YTYB:1100:NQ10NR0YT0:30040m/NuYTNR(NQ1)84/XuX2143YT:XL168:XR195:C1:YB143143YT1:YTYB:1100:YB0buCN$" ":UL0:LL1:MC1:AL1:7:22:TS$;"PRESS";UC$;" SPACE";LC$;" TO SEE BO.hBD$(X2$,DP1):AD$(X2$,DP1):EX$""/.iD.0u* SCORE SECTION.:u5000:X11:4000:XL0:XR205:YB151:YT0:C1:1000:YB18:YTYB:1100:7:2:TS$;"PERFORMANCE SO FAR"#/Du11:6:TS$;"VERY GOOD":16:18:TS$;"POOR":XL140:XR160:YB31:YTYB:1100:XLBD$):X1$(BD$,1):X2$(BD$,2)AD$:DPDP(EX$)g-hDP0āI1DP1:X2$"0"X2$:I:X2$"0."X2$:26860-hDP(X2$)āI1DP(X2$):X2$X2$"0":I:26860-hDP1X2$"0."X2$:26860-hX2$(X2$,DP1)"."(X2$,DP)-hX2$X1$X2$:DPDP1:DP3DP3)hI:ERR.,.hNSFZ2Z11(NC%(3)Z1NC%(3)Z2)4,KhH,Lh*AN$->BD,AD,EXc,Vh"NUMCHECK-AN$,NC%(0)",`hBD$(AN$,NC%(0)1):AD$(AN$,NC%(3)1,NC%(1)):NC%(4)0EX$"":26740,jhEX$(AN$,NC%(4)1),thNC%(0)0BD$" 0",h,h*XEY->XYYYY../-hDP(D$+gX1$QU$:26600+g3+g * COUNT SF IN X1$a+g"NUMCHECK-X1$,NC%(0)":NC%(6)TP126699+gZ3(X1$):NC%(2)Z3NC%(4)1+hI1Z3:X((X1$,I)):XZ8XZ9Z1I:26650+hI:NSF0:26699+hIZ311:X((X1$,I)):XZ8XZ9Z2I:26670,$(4)1,1)"-"AN1E20**$gX2(QU$):26420=*%gZ4NSFNSFZ4N*'gZNSFNSFZs*/gAN(AN$):TP1X2(QU$):26420*1gBD$Z5$:AD$Z6$:26300:X2(BD$"."AD$)*4gX1(ANX2)X2100*>gER(X1):3000*g*g* GET QU$+gQU$BD$:(AD$)QU$QU$"."A(X2$,2)6)fBD$(X2$,DP1):NSFDP21AD$"":26375Q)gAD$(X2$,DP,NSFDP2)|)gNSFX1:(BD$,1)"!"BD$" 1"(BD$,2)) gX20X21E20:26310)g) g* COMPARE)!gCR0:5000:NK026499)"gX1$AN$:26600:NC%(6)26405*#gAN1E20(AN$,NC%(X2$)31=(fINSF3X2$(X2$,I1)"0"(X2$,I1):26365P(fINSF326355t(f(X2$,I,1)"5"X1$":":26350(fX1$"0"(fX2$(X2$,I1)X1$(X2$,I1)(f(X2$,I,1)":"26365(fX2$(X2$,I2)(((X2$,I1,1))1)"0"(X2$,I1))fI:X2$(AD$)'eAD$"0"AD$'eJ#'eI)'e?'e ***** GENERATEZ'eX((1)(ULLL1))LLk'fZRX26100q'Wf'f ***** ROUND OFF'fX20'fDP(BD$)1:X2$" "BD$AD$:X1NSF'fI3(X2$):(X2$,I,1)"0"26330'fNSFNSF1:X2X21:I (fI&cC1:BX2:25000:BX5:25000$&cG&e ***** GENERATE COMPLETE NO.R&eI01&eULX(RW,CLI):LLX(RW1,CLI):ZRX(RW2,CLI)&e26100:I126040,26050&eBD$" "(X):26090&eAD$(X):(AD$)((X(RW,CLI)))26090'eJ1((X(RW,CLI)))ONTINUE":7:UC$;"ESC";LC$;" KEY TO SEE SCORE OR FINISH"@%7c_%8c* PLOT 1ST ATTEMPT SCREEN%BcBX1:C1:25000:BX2:C2:25000:X(Q1$)(Q2$)4:16X2:4%VcQ1$;" ";:TP1ĺ"X";%[cTP2ĺ"/";%`c" ";Q2$%c%c * 1ST ATT. SCREEN TO GREY:YB119:YT95:1100:250990$bXL93:XRXL:11006$ bI$pb* RIGHT/WRONG_$zbX210:BX6X214|$bERMEĖ29:X2:TS$;"NO"$bERMENKĖ29:X2:UC$;"OK";LC$$b$b* INSTRUCTIONS$bSP25399:%b2:21:TS$;"PRESS":7:UC$;"SPACE ";LC$;" TO C0:1000:25099A#aYB87:YT63:1000:2:10:"1ST ATTEMPT":25090u#aYB119:YT95:1000:2:14:"2ND ATTEMPT":25090#aYB151:YT127:1000:2:18:TS$;"ANSWER (";(Z);"SF)";:15:(QU$,2):25090#aXL184:XRXL:YB87:YT63:1100:25099$aXL184:XRXL1:AL1:LL1:UL0:CN$(27)(32)F"PP1:21:2000:X20İ25300:20560e"ZPESC2İ30000:ESC224999|"dP2:4:29);:5000"nP20000"a"a* SUBS FOR QUESTIONS"a* PRINT BOXES"aXL0:XR221:BX25030,25040,25050,25060,25070,25080#aYB50:YT0:20475!O26400#!OERMECR1:!OBX6:25200:25000\!P* DRAW CORRECT ANSWER SCREEN|! PC1:BX3:25000:BX6:25000!PBX4:C2:25000!P* INCREMENT RESULT COUNT!(PNQNQ1:NRNR(CR0)!2PNQ100İ30000:24999!NTP2:(1).5TPARS "TS$;"IN OR ";TS$;"OUT"Q$@7:UC$;"RETURN";LC$;" TO CONFIRM ACCURACY RANGE"Ws@tt@ * LIMITS SELECT SCREEN~@2:1:TS$;"SET YOUR ACCURACY RANGE":5:8:"LEAST":4:"ACCURATE":18:8:"MOST":16:"ACCURATE"=@XL35:XR55:YB132:YT72:1000:XLL OPTIONS?SP16399l?2:21:TS$;"PRESS":7:TS$;"U OR ";TS$;"D TO MOVE BAR ";TS$;"UP OR ";TS$;"DOWN"?7:UC$;"RETURN";LC$;" TO CONFIRM LEVEL"@@ * LIMIT OPTIONS@SP16499@2:21:TS$;"PRESS"@7:TS$;"I OR ";TS$;"O TO MOVE BLC$;?ME151MEG?*H? * LEVEL BARSR?XL16:XR46:X2135NLV:X2135X216n\?ESC2X1(LV1)135Nf?ESC3X1(LV1)135N:C0p?X1135X116:3:(X18):X1$;:YBX1X212(ESC3):YTYB:1100:YB:(X28):3:"LEVEL";? ? * LEVECYTME816(ESC2):C0:1000:36:(YT8):X1$;p>C1:YTME:1000:(YT8):36:X1$;:36:ESCĺUC$;"OK";LC$;?ME151ME:YT22(ESC):ESCYBME816(ESC3):C0:1000:36:(YB8)2:X1$; ?C1:YBME:1000:(YB8)2:36:X1$;:36:ESCĺUC$;"OK";T0:BX16020,16030>XL2:XR62:1000:11:2:TS$;"HARDEST":11:18:TS$;"EASIEST":XL65:XR123:YB20:YT3:1000:YB148:YT131:1000>16099>XL224:XR279:1000:10:34:"]";:39:"[";>>* LIMITS BAR1>XL231:XR272:YB1492(ESC):ES14,75X14,112X14,112_;3`;* PRINT OPTIONSAe;SP15299j;2:21:TS$;"PRESS":7:TS$;"L KEY TO MOVE ARROW ";TS$;"LEFT":7:TS$;"R KEY TO MOVE ARROW ";TS$;"RIGHT";7:UC$;"RETURN";LC$;" TO CONFIRM CHOICE";;> * BOXES>YB151:Y$;"ALL":3:"MULTI-":3:"PLICATION":15099q:XL105:XR181:1000:17:4:TS$;"A MIXTURE":17:"OF BOTH":15099:XL189:XR272:1000:30:4:TS$;"ALL":30:"DIVISION"::* PRINT ARROW;33C;X14,112X14,75X115,75X1,60X114,75X*X11:4000:C1:ESC0:TPG:BX2:16000:16100:X%100LV5536o*"RESTORE-X%":X(0,0),X(0,1),X(1,0),X(1,1),FLG*XOME:XOXO(151ME)100:ME((ME73)1.05.5)::* PRINT BOXES:YB55:YT16:BX15020,15040,15050+:XL7:XR97:1000:3:4:TS:16000:161003)16400:CN$"IO"(13):C1:16500Q")1:21:2000:ESC410900i,)X20İ16400:10530|6)ESC2MEME8@)ESC3MEME8J)ME136ME136:10530T)ME80ME80:10530^)C2:16100:10530* * SET PARAMETERS FOR QUESTIONS<'16300:CN$"UD"(13)8 (1:21:2000:ESC410500P(X20İ16300:10250c(ESC2LVLV1v((ESC3LVLV1<(LVNLVN:10250F(LV1LV1:10250P(C2:16200d(10250) * SELECT ACCURACY)CS$:ME136:ESC4:X1$(X1$,2):C2:BX20:BX3:15000:BX2:C2:15000:10040a'BX3C1:BX1:15000:BX2:15000:BX3:C2:15000:10040'G0(BX1)(3(BX2))(2(BX3))' * SELECT LEVEL'CS$:LV1:MC1:AL1:UL0:LL1:X1$(32):X1$X1$X1$X1$X1$X1$:ESC2'C2:BX1:16000:16200X20İ15200:10060%V'C0:15100:C16`'ESC310120Mj'X1143X152:BX1et'X1227X1143:BX2p~'10140'X1143X1227:BX3'X152X1143:BX2'15100'BX1C1:BX2:15000:BX3:15000:BX1:C2:15000:10040$'BX2C1:BX1:1500XO))100.5):1000:YT(XO):YB151:10001OE07oW'* SELECTION SCREEN SECTIONk'CS$:C1:X1143$'BX13:15000:BX.'15100:15200:BX2:C2:150008'* GET A KEYB'MC1:AL1:LL1:UL0:CN$"LR"(13)L'1:21:2000:ESC410180Q'ERME1 * * MANUAL SCREEN CLEARQ1:X1:J121X1:32)::J:CP$;Wu * REMOVE PREVIOUS ERRORXL243:XR258:C0:OE0āYB7675OE1:YTYB:1100:YBOE0āYB7475OE:YTYB:1100:YB(XL231:XR272:C1:YT0:YB((XO(0 2040 XLLXUL2040C AN$AN$(X):NKNK1:X$;:2040I Z * ERROR BAR X1X11.05:XL245:XR258:C1:X176X176 X175X175 OEX1 YB7575X112(X10):YTYB:1100:YB (75X1)(XO)(75X1)(XO(XO))100"(8);:2040 pX132170- uNKAL20407 v2999G zMCNK2040V MC12250f X692210 NK0E0(NK1DP1)E1:S0:2260 2040 X452230 E1S0(AN$,1)"E"S1:2260 2040 X462250 E0DP0DP1:2262999 X242030& (CN$)02110V *I1(CN$):(CN$,I,1)X$ESCI1:I(CN$)i 4I:ESC12999} >X8NK02160 H((AN$,NK))69E0 R((AN$,NK))45S0 \((AN$,NK))46DP0 fNKNK1:NK02030 kAN$(AN$,NK):H:V:AN$" `XL,YBXR,YT ,  ********** PLOT O XL,YBXL,YTXR,YTXR,YBXL,YBU k  * INPUT ROUTINE V(37)1:H(36)1:16368,0 NK0:ESC1:AN$"":E0:S1:DP0:H:V:MC);:H:V X$:(X$)2040 X(X$):X20SPSP:1:21:CP$;:30# 21::D$;"RUN ESTIMATE.ERR"9  ********** BOXG 3:CĒ0Y 1200:C1Ē0 XLXL1:XRXR1:YBYB1:YTYT1:1200 XLXL1:XRXR1:YBYB1:YTYT1:1200 XLXL2:XRXR2:YBYB2:YTYT2 K L ********** LINE V3:C0Ē0 ,&* ESTIMATE (APPLE II) VERSION 1R* SEPT. 81 RELEASEv* MARK PEPLOW 26/06/81 *EDITED TO SOLVE DIV SF COMPLAINT *AM 1.82 :4050000:10000:20000:RR101::D$;"RUN MENU" ((222)255                      *) @ȥ<) @JJJ 0*) @ȥ<) @JJJ 0*) @ȥ<) @JJJ 0*) @ȥ<) @JJJ 0*) @ȥ<) @JJJ 0*) @ȥ<) @JJJ 03330,0,0,0,2,1,2,2,0#33:30,0,0,3,2,1,2,2,0A34X30,0,3,3,2,1,1,2,2_34v33,4,4,4,1,1,1,2,2Bx  ȑ  (`7 (`ȽfJJJJ&0u2:21:TS$;"PRESS"f0uNQ100CN$(27)(255)"R":30155t0uSP301700u7:22:UC$;"SPACE ";LC$;" TO CONTINUE"0uSP301701u7:TS$;"R KEY TO RE-RUN PROGRAM":7:UC$;"ESC";LC$;" KEY TO LEAVE PTS$;"CORRECT";:23:":";(" "(NR),3)d/vu5:17:TS$;"INCORRECT";:23:":";(" "((NQ1)NR),3)/u32:19:"0":31:2:(" "(NQ1),2)/uNQ10NR0X1146:30110/uX1NR(NQ1)135:X1146X1/uYB146X11:YTYB:1100:YB0u ***** GET AXR3:XR277:1000y.DuXL2:XR199:YB19:YTYB:1100:XL226:XR237:YB11:YTYB:1100:XLXR:YB146:1100:YTYB:XL226:1100.NuXL245:XR265:YB146:YTYB:1100.Xu9:2:TS$;"SCORE SO FAR".bu5:7:TS$;"QUESTIONS ASKED :";(" "(NQ1),3)'/lu5:12:$(X2$,DP1)"."(X2$,DP)>-hX2$X1$X2$:DPDP1:DP3DP3i-hBD$(X2$,DP1):AD$(X2$,DP1):EX$""o-i-i* NNNNN.==>NNNN-i(QU$,1)"."QU$(QU$,((QU$)1))-wi-0u ********** SCORE SECTION.:uCS$:XL2:XR199:YB157:YT2:C1:1000:XL1,gCR0:AN$(QU$,I)CR1#,g6,h*XEY->XYYYY..o,hDP(BD$):X1$(BD$,1):X2$(BD$,2)AD$:DPDP(EX$),hDP1āI1DP1:X2$"0"X2$:I:X2$"0."X2$:26860,hDP(X2$)āI1DP(X2$):X2$X2$"0":I:26860,hDP1X2$"0."X2$:26860-hX2+gAN$AN$".":26530G+gI(AN$):(AN$,1)"0"AN$(AN$,I1):26522[+gAN$"."AN$""y+g(AN$,1)"."AN$"0"AN$+g(AN$,1)"."AN$(AN$,(AN$)1)+gAN$" "AN$+gI(QU$):(QU$,1)"0"QU$(QU$,I1):26570,gI(QU$):(QU$,1)"."II(AN$)126510(*g(AN$)0CR0:26599Y*gI(AN$):(AN$,1)"0"AN$(AN$,I1):26504*gI(AN$):(AN$,1)"0"AN$(AN$,I1):26506*g26530*gI(AN$):(AN$,1)"0"AN$(AN$,I1):26510*gR(AN$)*gI1R*g(AN$,I,1)"."26522*gI417)2gIN$" "IN$7)>gTEMP(IN$):TEMP1CR0:26479b)Cg(IN$,1)"0"IN$(IN$,TEMP1):26430r)HgTEMP(A1$))Mg(A1$,1)"0"A1$(A1$,TEMP1):26440)YgCR0)\gAN$"-"26479)ag(AN$)(A2$)CR1)fgIN$A1$CR0)og)g* COMPARE*geX((1)(ULLL1))LL((fZRX26100.(Wf:(f*INPUT(fCN$(27):AL0:MCN:LL48:UL57:2000:X20ĢV:H(AN$)ST:26310(g( g * COMPARE(*g(AN$,1)"-"AN$" "AN$(/g(IN$)126430)1gTEMP(IN$):(IN$,1)"0"IN$(IN$,(TEMP1)):26 NO.'eI01A'eULX(RW,CLI):LLX(RW1,CLI):ZRX(RW2,CLI)]'e26100:I126040,26050u'eBD$" "(X):26090'eAD$(X):(AD$)((X(RW,CLI)))26090'eJ1((X(RW,CLI)))(AD$)'eAD$"0"AD$'eJ'eI'e'e ***** GENERATE(5680&-d8:36:RE$:25680Y&2dXL0:YT83:XR279:YB115:C1:13:2:"2ND ATTEMPT":25680&Q Pò ********** INIT._ ZCS$(12)w dTC3:BC3:QC3:PC3 nú(14): LOWER-CASE MODE xTS$(1) B7 CP$(30) D$(4) 7DZ ` DATA MUST INCLUDE TOG CHAR. j IF UC/LC REQ'D/ * ********** SET SCREEN - PLEASE WAIT ...; +4:CP$i +XL45:XR216:YT75:YB107:TH2:CPC:7000 +12:12:TS$"PLEASE WAIT ..." . : ********** GET PROGRAM NUMBER :CH$:CH(CH$):CH1CHNP15010 :CH$; :X$:X(X$) :X131),D$(I):IG V'XL0:XR279:YT(B1)73:YBYT(NP2)14:TH1:CBC:7000` `'B:16:TS$"OPTIONS"l j'I1NP t'BI2:2:I" "D$(I) ~'I 'XL0:XR279:YTYB19:YBYT22:TH3:CQC:7000 'BNP25:2 'TS$"ENTER YOUR CHOICE : "; '15000 *F$(CH) (222)2551604 :(4)"RUN MENU.ERR"N :(4)"RUN MENU.END"c X ********** BOXt bC:I0TH1 lXLI,YTIXRI,YTIXRI,YBIXLI,YBIXLI,YTI vI ? ' ********** SET SCREEN/GET CHOICE ':CS$ L'NP:I1NP:F$(I 1402 **************************S * MENU *t * BY ANDY MOORE *( **************************d50000: INIT.n10000: SET SCREEN/GET CHOICEx11000: SET PLEASE WAIT MESSAGE :D$"RUN "   `@""*""""""""@@*""*`""*""@@`@"""""<""@""""*""*`""""""" *@"""""" "" """""""@p`"""@@`@`@""""""""@*""*"""*"p "*$"$"*`*"""""@>"""* """*"""""" """@`@"6""<<<<<<"@@6""&`""<@@`@"":< "" "@"""""6""&`":<"<@""<:<"<<<"@p`"::@@`@`@""<<"@"*"""*""""*"p"&$""$""6`6""@""":<<"<<@`@"><  @@><>">>&`@@`@@>"">>&` @> >@p`@@`@ :`@ @>">""<<>>>">><>">p<>&>>"`"@">  @           p`@<@p`@@`@"""><<<<@>"">2`"*"@@`@ <"  @"">""">2`<<<"<*@@<"<><<<<"<<""< @`>@@@@p`@<"< @>">"">>>">"p,"2"">""`"@""*<""*<"><<<<"><@`@""" "" " " "@ """2`""*" @@`@"""<""""<@"""""2`""""""*@@""""""""""""""""<@`"@@@@p`@"" """<@*" "*"" *"p "2$"$""`"""*@""*"""""*"" """""""@`@>"* """>"">@ *>"*`>>*>"@@`@""""" """@> "*>"*`"""""><*@@""""""<""<>""""""@`">@~@@p`@""">"""@*> "*> >> *>p* >*$> $" *`*>"""@">">*<"""*"">"""<"""@`@@`@@`@@`@@@`@@~@p`@@p`@@`@@`@@`@< <@`@@ <@`@@@@)"SWITCH OFF THE MACHINE AND"F ^17:8:(15)"TV"(14)" MONITOR(S)."f h3:XL0:XR279:YT34:YB147 rXL,YTXL,YBXR,YBXR,YTXL,YT |63100X)"SWITCH OFF THE MACHINE AND"F ^17:8:(15)"TV"(14)" MONITOR(S)."f h3:XL0:XR279:YT34:YB147 rXL,YTXL,YBXR,YBXR,YTXL,YT |63100X)"SWITCH OFF THE MACHINE AND"F ^17:8:(15)"TV"(14)" MONITOR(S)."f h3:XL0:XR279:YT34:YB147 rXL,YTXL,YBXR,YBXR,YTXL,YT |63100X)"SWITCH OFF THE MACHINE AND"F ^17:8:(15)"TV"(14)" MONITOR(S)."f h3:XL0:XR279:YT34:YB147 rXL,YTXL,YBXR,YBXR,YTXL,YT |63100X)"SWITCH OFF THE MACHINE AND"F ^17:8:(15)"TV"(14)" MONITOR(S)."f h3:XL0:XR279:YT34:YB147 rXL,YTXL,YBXR,YBXR,YTXL,YT |63100X)"SWITCH OFF THE MACHINE AND"F ^17:8:(15)"TV"(14)" MONITOR(S)."f h3:XL0:XR279:YT34:YB147 rXL,YTXL,YBXR,YBXR,YTXL,YT |63100X)"SWITCH OFF THE MACHINE AND"F ^17:8:(15)"TV"(14)" MONITOR(S)."f h3:XL0:XR279:YT34:YB147 rXL,YTXL,YBXR,YBXR,YTXL,YT |63100X)"SWITCH OFF THE MACHINE AND"F ^17:8:(15)"TV"(14)" MONITOR(S)."f h3:XL0:XR279:YT34:YB147 rXL,YTXL,YBXR,YBXR,YTXL,YT |63100X)"SWITCH OFF THE MACHINE AND"F ^17:8:(15)"TV"(14)" MONITOR(S)."f h3:XL0:XR279:YT34:YB147 rXL,YTXL,YBXR,YBXR,YTXL,YT |63100X)"SWITCH OFF THE MACHINE AND"F ^17:8:(15)"TV"(14)" MONITOR(S)."f h3:XL0:XR279:YT34:YB147 rXL,YTXL,YBXR,YBXR,YTXL,YT |63100X)"SWITCH OFF THE MACHINE AND"F ^17:8:(15)"TV"(14)" MONITOR(S)."f h3:XL0:XR279:YT34:YB147 rXL,YTXL,YBXR,YBXR,YTXL,YT |63100X 63100( ***** FINISH ROUTINEL4:1:16300,0:(17);:230,32w"32,0:33,40:34,0:35,24:958:(30)},67:15:(15)"TO FINISH"(14)@10:4:"1. "(1)"REMOVE THE DISK FROM THE"J12:8:"DISK DRIVE." T15:4:"2. "(1  63190 63200C63190 63200C63190 63200C63190 63200C63190 63200C63190 63200C63190 63200C63190 63200C63190 63200C"TO THE "(1)"HEINEMANN "(1)"QUERY "(1)"SERVICE -"= E :v (1)"PROGRAM NAME : ";(15);"APPROX";(14) (1)"ERROR NUMBER : ";(222) (1)"ERROR LINE : ";(218)(219)256 :: (15);"TO RE-START, SWITCH OFF AND ON" :2 @(1)"THE PROGRAM YOU WERE USING HAS JUST"` J"FAILED. ";(1);"THE AUTHOR(S) WOULD BE" T"GRATEFUL IF YOU COULD ADVISE THEM" ^"OF THIS PROBLEM SO THAT IT MAY" h"BE CORRECTED." r: |(1)"PLEASE GIVE THE FOLLOWING INFORMATION"7  0# ***** ERROR ROUTINE116300,0=(17);D1P230,32"32,0:33,40:34,0:35,24::(12):3:0,0279,0279,1910,1910,0#(6656)(6657)(6658)351ĉ,::32,2:33,38 62:10:(15);"* PROGRAM ERROR *";(14);::   63190 63200C63190 63200C63190 63200C63190 63200C63190 63200C63190 63200C63190 63200C63190 63200C63190 63200C"TO THE "(1)"HEINEMANN "(1)"QUERY "(1)"SERVICE -"= E :v (1)"PROGRAM NAME : ";(15);"STDPOS";(14) (1)"ERROR NUMBER : ";(222) (1)"ERROR LINE : ";(218)(219)256 :: (15);"TO RE-START, SWITCH OFF AND ON" :2 @(1)"THE PROGRAM YOU WERE USING HAS JUST"` J"FAILED. ";(1);"THE AUTHOR(S) WOULD BE" T"GRATEFUL IF YOU COULD ADVISE THEM" ^"OF THIS PROBLEM SO THAT IT MAY" h"BE CORRECTED." r: |(1)"PLEASE GIVE THE FOLLOWING INFORMATION"7  0# ***** ERROR ROUTINE116300,0=(17);D1P230,32"32,0:33,40:34,0:35,24::(12):3:0,0279,0279,1910,1910,0#(6656)(6657)(6658)351ĉ,::32,2:33,38 62:10:(15);"* PROGRAM ERROR *";(14);::    63190 63200E 63190 63200E 63190 63200E 63190 63200E 63190 63200E 63190 63200E 63190 63200E 63190 63200E 63190 63200E"TO THE "(1)"HEINEMANN "(1)"QUERY "(1)"SERVICE -"= E :x (1)"PROGRAM NAME : ";(15);"ESTIMATE";(14) (1)"ERROR NUMBER : ";(222) (1)"ERROR LINE : ";(218)(219)256 :: (15);"TO RE-START, SWITCH OFF AND ON":2 @(1)"THE PROGRAM YOU WERE USING HAS JUST"` J"FAILED. ";(1);"THE AUTHOR(S) WOULD BE" T"GRATEFUL IF YOU COULD ADVISE THEM" ^"OF THIS PROBLEM SO THAT IT MAY" h"BE CORRECTED." r: |(1)"PLEASE GIVE THE FOLLOWING INFORMATION"7  0# ***** ERROR ROUTINE116300,0=(17);D1P230,32"32,0:33,40:34,0:35,24::(12):3:0,0279,0279,1910,1910,0#(6656)(6657)(6658)351ĉ,::32,2:33,38 62:10:(15);"* PROGRAM ERROR *";(14);::   NLY" :': ********** PRINT ARROW3;33C{;X14,112X14,75X115,75X1,60X114,75X14,75X14,112X14,112;4:14:" ";_;`; ********** PRINT OPTIONSe;SP15299j;2:21:TS$;"PRESS"t;7:TS$;"L KEY TO MOVE ARROW "TS$;BX15020,15040,15050b:XL7:XR98:1000:3:4:TS$;"SIGNIFICANT":3:5:"FIGURES":3:6:"ONLY"m:15099:XL105:XR183:1000:17:4:TS$;"A MIXTURE":17:5:"OF BOTH":15099:XL189:XR273:1000:29:4:TS$;"DECIMAL":29:5:"PLACES":29:6:"O5(C0(G3TP2)(2(TP1))*(16200H(C0(G3TP1)(2(TP2))S(16300^(10260u( ***** GOT VALUES(MSFNS:MDPND:CS$:WG(NS,1)WG(NS,1)NS:WG(ND,2)WG(ND,2)ND(NMDP:TP1NMSF:: ********** PRINT BOXES:YB55:YT17:60((ESC4TP1NSNS12-(ESC4TP2NDND1J2(ESC3TP1NSNS1b7(ESC3TP2NDND1t<(ESC210360A(TP3TPF(C2:TP2C1P(16200Z(C2:TP1C1d(16300n(10260x(NS1NS1(NS5NS5(ND1ND1(ND5NDWIND GRAPH UP/DOWN%'NS1:ND1:CS$6'C2:G2C0H'16000:16200`'C0(G3)((G2)2)r(16100:16300 (16400:TP1(G2)(AL1:MC1:UL0:LL1:CN$"BUD"(13):G3CN$(255)(CN$,2)(1:20:2000:ESC510450#(ESC1İ16400:102X1143:BX2'15100T'BX1C1:BX2:15000:BX3:15000:BX1:C2:15000:10040'BX2C1:BX1:15000:BX3:15000:BX2:C2:15000:10040'BX3C1:BX1:15000:BX2:15000:BX3:C2:15000:10040'G0(BX1)(3(BX2))(2(BX3))' ***** C2:15000 8' ***** GET A KEYG B'AL1:MC1:CN$"LR"(13):UL0:LL1e L'1:21:2000:ESC410180 Q'ESC1İ15200:10050 V'C0:15100:C1 `'ESC310120 j'X1143X152:BX1 t'X1227X1143:BX2 ~'10140 'X1143X1227:BX3 'X152 u2999 zMCNK2040( MC122508 X462250M DP0DP1:2260W 2040k XLLXUL2040 AN$AN$X$:NKNK1:X$;:2040 ' ********** SELECTION SCREEN SECTION 'CS$:C1:X1143 $'BX13:15000:BX .'15100:15200:BX2:KP1:2040 X242030+ (CN$)2110[ *I1(CN$):(CN$,I,1)X$ESCI1:I(CN$)n 4I:ESC12999 >X8NK02160 \((AN$,NK))46DP0 fNKNK1:NK2030 kAN$(AN$,NK):H:V:AN$;" ";(8);:2040 pX132170 sNKAL2040PLOT ( XL,YBXL,YTXR,YTXR,YBXL,YB. Q  ********** GEN INPUT ROUTINEs V(37)1:H(36)1:16368,0 NK0:ESC1:AN$"":DP0:H:V:MC);:H:V X$:(X$)2040 X(X$):X20SPSP:1:21((CN$)3):CP$;:ESC1:2999 X16S  ********** BOX" 3:CĒ04 1200:C1Ē0^ XLXL1:XRXR1:YBYB1:YTYT1:1200 XLXL1:XRXR1:YBYB1:YTYT1:1200 XLXL2:XRXR2:YBYB2:YTYT2 K L ********** LINE V3:C0Ē0 `XL,YBXR,YT   ********** z0-********** APPROX (APPLE II) VERSION 1`********** SEPT. 81 RELEASE********** MARK PEPLOW 22/06/81 :4050000:10000:20000:RR101::D$;"RUN MENU"((222)2553021::D$;"RUN APPROX.ERR"                  00:25000 OCRCR2:20510D P ***** DRAW CORRECT ANSWER SCREENd PC1:BX3:25000:BX6:25000x PBX4:C2:25000 P ***** INCREMENT RESULT COUNT (PNQNQ1:NRNR(CR0) 2PNQ100İ30000:24999

NNMDP:TP1NMSFmHNWG(0,TP)0RNI1N:WG(I,TP)1WG(I,TP)1\NIfNI1N:WG(0,TP)WG(0,TP)WG(I,TP):IpNI1N:WG(I,TP)WG(I,TP)WG(0,TP):IzNI1N:WG(I,0)WG(I** NEW OPTIONS@SP164994@2:20:TS$;"PRESS"i$@G3Ė7:21:TS$;"B KEY TO CHANGE TO OTHER BAR".@7:22:TS$;"U KEY TO MOVE BAR "TS$"UP"8@7:TS$;"D KEY TO MOVE BAR "TS$"DOWN"B@7:UC$;"RETURN";LC$;" TO CONFIRM";s@ N **********02:X2155ND24(ESC4)=?ESC2X1147:C02(TP2):16380L?C116399h?ESC3X1155(ND1)24?ESC4X1155(ND1)24:C0?YBX1X212(ESC4):YTYB:1100:YB?ESC2YBX11:YTX21:XLXL1XR1:XRXL:1100:XL@@ ********02(TP1):16280!p?C116299=z?ESC3X1155(NS1)24]?ESC4X1155(NS1)24:C0?YBX1X212(ESC4):YTYB:1100:YB?ESC2YBX11:YTX21:XLXL1XR1:XRXL:1100:XL?? ********** RIGHT BAR?C016399?XL182:XR2Bb*?YB147:YTYB:XL137:XR234:1100:C1XL182:XR202:YT131:1000:XLXL2:XRXR2:YTYB:11004?C2XL182:XR202:YB1471311:YTYB:1100:YBG?H? ********** LEFT BARR?C016299\?XL77:XR97:X2155NS24(ESC4)f?ESC2X1147:C161997>X1C:C1:XL206:XR276:YB27:YT3:1000:CX1`?34:2:TS$;"MAX.":33:3:"DEC.PL." ?XL234:XR249:YB35:YTYB:1100?XRXL:YB147:1100:YTYB:XR249:1100?XL234:XR242 ?YB1313524:X(YB11)24:YTYB:1100:37:X32:6X;:Y5:YTYB:11006>XLXR:YB147:1100:YTYB:XL30:1100F>XL37:XR45>YB1313524:X(YB11)24:YTYB:1100:4:X32:6X;:YB>YB147:YTYB:XL45:XR137:1100:YB1471311:YTYB:XL77:XR97:1100:YB>> ********** RIGHT AXIS>C0"LEFT"5~;7:TS$;"R KEY TO MOVE ARROW "TS$;"RIGHT"d;7:UC$;"RETURN";LC$;" TO CONFIRM CHOICE";j;> ********** LEFT AXIS>C016099>X1C:C1:XL3:XR73:YB27:YT3:1000:CX1>4:2:TS$;"MAX.":2:3:"SIG.FIGS." >XL30:XR45:YB32:TS$;"SCORE SO FAR"L-bu5:7:TS$;"QUESTIONS ASKED :";(" "(NQ1),3)-lu5:12:TS$;"CORRECT";:23:":";(" "(NR),3)-vu5:17:TS$;"INCORRECT";:23:":";(" "((NQ1)NR),3)-u32:19:"0":31:2:(" "(NQ1),2).uNQ10NR0X1146:(94); ,i*,0u ********** SCORE SECTIONj,:uCS$:XL2:XR199:YB157:YT2:C1:1000:XLXR3:XR277:1000,DuXL2:XR199:YB19:YTYB:1100:XL226:XR237:YB11:YTYB:1100:XLXR:YB146:1100:YTYB:XL226:1100,NuXL245:XR265:YB146:YTYB:1100-Xu9:54+*gCR0:(AN$,1)"."(AD$)AN$(AN$,(AN$)1)[+4g(BD$)0(AN$,1)"."AN$"0"AN$+>gX1$BD$:(AD$)X1$X1$"."AD$+Hg(X1$,2)AN$CR1+g+xi ********** HINT PRINTING+iX1FP:FP(FP$)1X1X11+i3:28X1,i(95);(8);:5:1)*fI:X2$(X2$,2)E*fBD$(X2$,DP1):NSFDP21AD$"":26375`*gAD$(X2$,DP,NSFDP2)*gFPNSF:NSFX1:(BD$,1)"!"BD$" 1"(BD$,2)* gX20X21E20:26310*g* g ***** COMPARE*%g(AN$)226410+&g(AN$,1)"0"AN$(AN$,2):2640X21:I)fI(X2$)31L)fINSF3X2$(X2$,I1)"0"(X2$,I1):26365_)fINSF326355)f(X2$,I,1)"5"X1$":":26350)fX1$"0")fX2$(X2$,I1)X1$(X2$,I1))f(X2$,I,1)":"26365*fX2$(X2$,I2)(((X2$,I1,1))1)"0"(X2$,IE(eX((1)(ULLL1))LL-(fZRX261003(WfK(Xf ***** ROUND TO DP`(bfNSF(BD$)NDP1k(lf26300q(f(f ***** ROUND OFF(fX20(fDP(BD$)1:X2$" "BD$AD$:X1NSF(fTP226330(fI3(X2$):(X2$,I,1)"0"26330)fNSFNSF1:X2MPLETE NO.'eI01G'eULX(RW,CLI):LLX(RW1,CLI):ZRX(RW2,CLI)c'e26100:I126040,26050{'eBD$" "(X):26090'eAD$(X):(AD$)((X(RW,CLI)))26090'eJ1((X(RW,CLI)))(AD$)'eAD$"0"AD$'eJ'eI'e(e ***** GENERATEY TO SEE SCORE OR FINISH";#&7cL&8c ********** PLOT 1ST ATTEMPT SCSEENp&BcBX1:C1:25000:BX2:C2:25000{&Lc25100&Vc18:3:TP1ĺ(NS);&`cTP2ĺ(ND);&jc27:4:QU$&tcI112(QU$):4:26(QU$)I:" ";:I&c 'e ***** GENERATE COb ***** RIGHT/WRONG&%b10:CR0Ė314%bCR1Ė32B%bBX6Ģ14Y%bCR0ĺ"INCORRECT"n%bCR1ĺ"CORRECT"t%b%b ***** INSTRUCTIONS%bSP25399%b2:22:TS$;"PRESS"%b7:23:UC$;"SPACE ";LC$;" TO CONTINUE"&b7:24:UC$;"ESC";LC$;" K:XRXL:1100$ b+$ b ***** INITIAL TEXTM$b3:3:TS$;"APPROXIMATE TO "^$ bTP125130$"b3:4:"SIGNIFICANT ":3:"FIGURE ";$$bNS1ĺ(8);"S"$*bTP225199$,b3:4:"DECIMAL PLACE ";$.bND1ĺ(8);"S"$4b3:5:" ";$ob%pR 1ST ATTEMPT":25090R#aYB119:YT93:1000:3:14:TS$;"YOUR 2ND ATTEMPT":25090#aYB151:YT124:1000:2:18:TS$;"CORRECT ANSWER IS";:21:(X1$,2):25090#aXL207:XRXL:YB87:YT60:1100:25099#aXL207:XRXL:YB119:YT93:1100:25099 $bXL1311WG(NS,TP)WG(NS,TP)18"PTP2WG(ND,TP)WG(ND,TP)1C"P20000I"am"a ********** SUBS FOR QUESTIONS"a ***** PRINT BOXES"aXL0:XR279:BX25030,25040,25050,25060,25070,25080"aYB55:YT0:1000:25090#aYB87:YT60:1000:3:10:TS$;"YOU27)(32):LL1:UL0:!PP1:22:2000:ESC1İ25300:20550Y!ZPESC2İ30000:ESC224999w!nP ********** WEIGHT ARRAY!xPI1N:I120620!PJ1I1:WG(I,TP)WG(I,TP)WG(J,TP):J!PI!PI1N:WG(I,TP)WG(I,TP)WG(0,TP):I!PCR020650"PTPȑ  (`7 (`ȽfJJJJ& 99,9999,0,1 ,99~6\ ***** 4 DEC PLACES6f 66p 9,88889,0,10000 ,36z 9,10000,0,1 ,66 99,88889,10,1 ,106 8,99999,0,50000 ,137 98,99999,0,1 * 2 DEC PLACES5 6/5 9,889,0,100 ,3H5 9,100,0,1 ,6b5 99,889,10,1 ,10|5 8,999,0,500 ,135 98,999,0,1 ,165 99,999,0,1,995 ***** 3 DEC PLACES5 65 9,8889,0,1000 ,35 9,1000,0,1 ,660,100000,10&4 500000,0,100000,0,13B4 20,999999,0,100000,99Z40 ***** 1 DEC PLACEb4: 6{4D 9,89,0,10 ,34N 9,10,0,1 ,64X 99,89,10,1 ,104b 8,99,0,50 ,134l 98,99,0,1 ,164v 99,99,0,1,995 ****0,10,33 0,94999,0,10000,553 8999,99,100,50,8O3 0,200000,0,10000,10i3 50000,0,10000,0,13 3 20,99999,0,10000,993 ***** 5 SIG FIGS3 63 99999,49,10000,10,33 0,949999,0,100000,53 89999,99,1000,50,8 4 0,2000000,00,0,100,0 ,13(2 20,999,0,100,99?2 ***** 3 SIG FIGSG2 6]2$ 999,49,100,10,3s2. 0,9499,0,1000,528 899,99,10,50,82B 0,20000,0,1000,102L 5000,0,1000,0,132V 20,9999,0,1000,992t ***** 4 SIG FIGS2~ 63 9999,49,100,LLAD,MAX NQ 1f 0,949,0,100,541p 8,99,0,50 ,8I1z 0,200,0,10 ,10^1 500,0,10,0 ,13t1 20,999,0,100,991 ***** 2 SIG FIGS1 61 99,49,10,10 ,31 0,949,0,100 ,51 89,99,1,50 ,81 0,2000,0,100 ,102 5NQ1:SP0:SKP0:TS$(1):D$(4):CS$(12):LC$(14):UC$(15):CP$(30)l0núCS$:LC$:X((78))((79))~0xÁI15:J120WG(I,J)10:J,I0ֱ0H ***** 1 SIG FIG0R 6 : 6 SETS FOR 1 SIG FIG 1\ 9,49,1,10 ,3 : ULBD,ULAD,LLBDuSP30170a/u7:TS$;"R KEY TO RE-RUN PROGRAM":7:UC$;"ESC";LC$;" KEY TO LEAVE PROGRAM";y/uAL1:MC1:UL0:LL1/u1:21:2000:ESC130120/uCS$:RR0/uESC4RR1:ESC2//Pò ********** INITIALISATIONS/ZÆWG(5,2),X(2,2)H0dC1:30110%.uX1NR(NQ1)135:X1146X1G.uYB146X11:YTYB:1100:YB].u ***** GET A KEY.uCN$(27)(32)"R":SP30140.u2:21:TS$;"PRESS".uNQ100CN$(27)(255)"R":30155.uSP30170.u7:22:UC$;"SPACE ";LC$;" TO CONTINUE" /Y TO MOVE ARROW "TS$;"LEFT":7:TS$;"R KEY TO MOVE ARROW "TS$;"RIGHT"v;7:UC$;"RETURN";LC$;" TO CONFIRM CHOICE";|;> * BOXES>YB151:YT0:BX16020,16030>XL2:XR62:1000:11:2:TS$;"HARDEST":11:18:TS$;"EASIEST":XL65:XR123:YB20::XR272:1000:30:4:TS$;"FLOATING":30:"POINT TO":30:"STD FORM"J:]:* PRINT ARROWi;33C;X14,112X14,75X115,75X1,60X114,75X14,75X14,112X14,112_;`;* PRINT OPTIONSe;SP15299Gj;2:21:TS$;"PRESS":7:TS$;"L KE1)(((X(0,1))"9")) *20030&:9:* PRINT BOXES_:YB55:YT16:BX15020,15040,15050:XL7:XR97:1000:3:4:TS$;"STD FORM TO":3:"FLOATING":3:"POINT":15099:XL105:XR181:1000:17:4:TS$;"A MIXTURE":17:"OF BOTH":15099D:XL1893)  (1:21:2000:ESC4109908(X20İ16300:10250K(ESC2LVLV1^((ESC3LVLV1t<(LVNLVN:10250F(LV1LV1:10250P(C2:16200d(10250* * SET PARAMETERS FOR QUESTIONS*:N:I1LV:NN:J19:WG(J):J,I*NN3X(0,040@'BX3C1:BX1:15000:BX2:15000:BX3:C2:15000:10040e'G0(BX1)(3(BX2))(2(BX3))z' * SELECT LEVEL'CS$'CS$:LV1:MC1:AL1:UL0:LL1:X1$(32):X1$X1$X1$X1$X1$X1$:ESC2'C2:BX1:16000:16200'16300:CN$"UD"(1:C1`'ESC310120,j'X1143X152:BX1Dt'X1227X1143:BX2O~'10140g'X1143X1227:BX3~'X152X1143:BX2'15100'BX1C1:BX2:15000:BX3:15000:BX1:C2:15000:10040'BX2C1:BX1:15000:BX3:15000:BX2:C2:15000:10R1RE$UC$"OK" 6 '* SELECTION SCREEN SECTIONJ 'CS$:C1:X1143a $'BX13:15000:BX .'15100:15200:BX2:C2:15000 8'* GET A KEY B'MC1:AL1:LL1:UL0:CN$"LR"(13) L'1:21:2000:ESC410180 Q'X20İ15200:10060V'C0:15100NKAL2040 v2999$ zMCNK20403 MC12250C X452230_ SNKTPBMS1:2260i 2040y X462250 DP0BMDP1:2260 2040 XLLXUL2040 AN$AN$X$:NKNK1:X$;:2040 * NO/OK RE$UC$"N"LC$"O":C01 *I1(CN$):(CN$,I,1)X$ESCI1:I(CN$)D 4I:ESC12999S >X82160e @NK0BM2999s DNK2160 R((AN$,NK))45S0 \((AN$,NK))46DP0 fNKNK1:NK02030 kAN$(AN$,NK):H:V:AN$" "(8);:2040 pX132170 uYBXL,YTXR,YTXR,YBXL,YB 6  * INPUT ROUTINEC ST2040e V(37)1:H(36)1:16368,0 NK0:ESC1:AN$"":S0:DP0:H:V:MC);:H:V X$:(X$)2040 X(X$):X20SPSP:1:21:ESC1:CP$;:2999 X242030 (CN$)0211 BOX 3:CĒ0$ 1200:C1Ē0N XLXL1:XRXR1:YBYB1:YTYT1:1200x XLXL1:XRXR1:YBYB1:YTYT1:1200 XLXL2:XRXR2:YBYB2:YTYT2 K L ********** LINE V3:C0Ē0 `XL,YBXR,YT   ********** PLOT  XL,,&* STDPOS (RML 380Z) VERSION 1R* SEPT. 81 RELEASEv* LUKE PORTER 15/07/8140 :5000010000:20000:RR101::D$;"RUN MENU"((222)2553021::D$;"RUN STDPOS.ERR"  **********! ! ! !!!!!!!!!" " " " """""""""       NRCR:25300:NQ100İ30000:24999_ a21:1:BM0:ST0:UL0:LL1:MC1:AL1:CN$" "(27):2000o aX2024990 aESC224998 aESC3İ30000:ESC224999 a20000 a a* FIRST ATTEMPT SCREEN aBX1:25400:BX2:25400 !aBX3:C2:25400:BX00:PF1:ESC2İ25200:8:17:LA$(0):CR0:22120GVESC2PF124999[VBX5:C1:25600pVX13NK022270{V26500V4000VBX5:C1:25600VCR122299V(QU$,1)"."QU$(QU$,(QU$)1)WBX6:25600W24990W" aNQNQ1:NREVESC2PF124999(JVBX3:C1:25600=TVX13NK022270S^VLA$(0)AN$:26500]hV4000qrVBX3:C1:25600|VCR122299V 2ND ATTEMPTVBM0:ST0:RE$"":CN$""VBX4:25600VBX5:C2:25600V13:171VN11:26300:PF0:ESC2İ300 S4000SC1:BX7:25400.SCR121420>SBX8:25400IS24990`U* STD.POS. ==> FPUCS$:BM0:ST0:CR0:RE$""V26000:A1$BD$"."AD$:A2$EX$V26800:QU$BD$"."AD$V25200@VN11:26300:PF0:ESC2İ30000:PF1:ESC2220400 >S13:30HSBM1:ST0hRSN2:26300:PF0:ESC2İ30000:PF1:ESC2İ25100:BX3:C1:25400:21220~WSESC2PF124999\SC1:BX7:25400fSX13NK021410pSNK0AN$IN$:BM0:ST1:DPPD:14:(15(IN$)):NK(IN$):V14:H15:21240zS26400"":IN$""RBX5:25400-RC2:BX6:25400ASC1:BX7:25400S SST0Ģ14:15SN7:26300:PDDP:PF0:ESC2İ30000:PF1:ESC2İ25100:BX3:25400:21220SESC2PF124999 SC1:BX6:25400*SX13NK021410/SIN$AN$4SC2:BX7:254000:PF0:ESC2İ30000:PF1:ESC221025<RBX4:C1:25400QRX13NK021410RNK0AN$IN$:DPPD:BM0:ST1:25000:8:(15(IN$)):NK(IN$):V8:H15:21080RLA$(1)AN$:26400R4000RBX4:C1:25400RCR121420 RBM0:ST0:PD0:RE$AD$:26900:AS$A1$*!RBM0:ST0:CN$(27)5&R25000pXRN7:26300:PDDP:PF0:ESC2İ30000:PF1:ESC221025]RESC2PF124999bRBX3:C1:25400lRX13NK021410qRIN$AN$:LA$(0)AN$vRBX4:C2:25400R7:30RBM1:ST0(RN2:263I)TEMPzNI0NI29:WG(I)WG(I)WG(I1):I6NJN* POWER CHOSENUNR(1)`NI19zNRWG(I)RI5:20150NINEX$(R)NR* FP ==> STD.POS. RCS$:PD0:RE$"":CR0R26000:A1$BD$"."AD$:A2$EX$R26800:QU$BD$".",?7:UC$;"RETURN";LC$;" TO CONFIRM LEVEL"2@J N* QUESTION SECTIONU*NTP3Gq.NG3TP1:(1).5TP2|/N201004NTP21000,22000>N* FREQUENCY OF POWERS DETERMINEDCNTEMP0HNI19RNTEMPTEMPWG(I)\NIfNI19pNWG(I)WG(135N$f?ESC3X1(LV1)135N:C0p?X1135X116:3:(X18):X1$;:YBX1X212(ESC3):YTYB:1100:YB:(X28):3:"LEVEL";?? * LEVEL OPTIONS?SP16399?2:21:TS$;"PRESS":7:TS$;"U OR ";TS$;"D TO MOVE BAR "TS$"UP OR "TS$"DOWN"K";LC$;Z?ME151ME:YT22(ESC):ESCYBME816(ESC3):C0:1000:36:(YB8)2:X1$; ?C1:YBME:1000:(YB8)2:36:X1$;:36:ESCĺUC$;"OK";LC$;?ME151MEG?H? * LEVEL BARR?XL16:XR46:X2135NLV:X2135X216\?ESC2X1(LV1)YT3:1000:YB148:YT131:1000)>16099Y>XL224:XR279:1000:10:34:"]";:39:"[";_>q>* LIMITS BAR>XL231:XR272:YB1492(ESC):ESCYTME816(ESC2):C0:1000:36:(YT8):X1$;>C1:YTME:1000:(YT8):36:X1$;:36:ESCĺUC$;"O