' +JJJJ ?\>m0M='+l> /+l  H d@hLҦ L~ L  ﵪ*i BB䵊嵰`72µ- i ư&( Rp s P  LLʬLoō 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`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)*++`NG8`0($ p,&" ۿ ۿڿL흍ٿ vLQ  !"#$%&'()*+,-./0123456789:;<=>?  1 '&&*  (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0(#*!!.<,$94>94="4; +,E!r ; $ Hh Լ ռ ռ ռ`HJ>݌h Hh݌`DF DF /L\HIHHHHhHH݌hHhHh݌H6 VDP (FD Z $0x8x D- ܸDD#LHH`?F Vk *f???0xF Hh D#-FFF8` D ܸx D - ܸx8`-0ݩ?ʥD FFF`   LDcpq` [` ~  LӜsqu`".Q`pNФbptťܥm2<(-Py0\|e<6e< ~ vL~ JJJJj귍hI  aUL@ kU8  L  ^R(jQ0l^l\ IOÌȌ`W ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQL߼YLeLXLeLee ўQ0 L&RE;BY; Ꝥ$`( 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օ3L e3L &RL &QL d L4 We)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ\L \ şL_ NLjHv 3h`0h8` [L NС õ`A@` ŵL]Lõ`  \ 濭0 ş  Q ^\lZl^\8  ş Lȟ`fhjõĵ@OAP`u@`@&`QR`F Ls  @DAF@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@ ,\Z[PRN,XɄOɊRQF(0Bhhhw4h/ ^0(p ߩRP1Q ɿ, P\L˵B̵C8pBZ\  յյ\BIR Z-^ Jp\IZLL-(Q `+ Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J LsL Q(`贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / şFD B ߼ / ]ƴS0Jȴ ȴ)  紅D贅F B ƴ  / 0L Ν `ND8HFFhDh N ş`, ŵBѵ`, ѵB8` ܫ 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˵̵ֵ׵`LzĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`` Bl şL/Ơĵµ`ڿ8.ڿ.ۿ`êL`õĵ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 x(` d£֠Ԡ+ˣ٠Ơ͠ԡ# +u`+ˣ٠Ơ͠ԡ#     ϱԠ ϠԠRҠ Ҡ ϱBɠӠBRA SUN SOFTWARE CO., INC. (1984)*>GO* ALL RIGHTS RESERVEDLGQ34,0::G[:39);" ":7);"CACTUSPLOT FUNCTION PLOTTER";39);" ":39);" "G\G`5:1:"THE FUNCTION TO BE PLOTTED NEXT IS"GeGj8500Gt34,8H~9:"DO YOU WANT TO CHANG2000F_R640,500Fd11001Fn(3000)1800D$(4)KBE(1)KCPI4(1)KDNN50KH3LMYDEV1NTER C TO CHECK AGAIN"@J" W TO WRITE FORMULA AGAIN"`J" R TO RUN PROGRAM"mJK$"CWR"xJ35000~JJP1215,1170,1299J34,0:DUMMY(0)JJJ216,0JLA$(15):K$(1)"Y=X"JF$"Y=X":60040*KH(X)((WRIGH"CORRESPONDING Y VALUE AND PRINT IT"=I:"X VALUE = ";XGI:12NI5zI(222)53(222)69(222)1331250I"FOR THIS X, Y IS UNDEFINED"I1251I:"FOR X= ";X;", Y= ";YI:"IF Y IS WRONG, WRITE THE FORMULA AGAIN"J:"EE IT";H33000"HP1170,1200-H60000XH:12:"DO YOU WANT TO CHECK THAT THE"sH"FORMULA IS CORRECT";~H33000HP1215,1299H216,0:15:"TO CHECK THE FORMULA,"H"ENTER AN X VALUE"H:"THEN THE COMPUTER WILL CALCULATE THE"'IXI2:5:(222)53(222)69(222)13318500:18230@gFS1S1Y{gFXI2H:5:(222)53(222)69(222)13318500:18230gGS1S14YgGI1NP32gGXI1IH:5:(222)53(222)69(222)13318500g"GS1S14Y:18230:18220h,GXXH:5:(222)T)2NP1504fF"PICK THE COLOR";:K$"12345":35000:fFNfFP5P3:18120afFP3P4PP2ofFP:18130fF22:1:958::"COMPUTATIONS IN PROGRESS":NS1:NP50fFH(I2I1)NP:XI1:5:(222)53(222)69(222)13318500:18230fFS1S1Y4gFeE0:17990eFF"ePF INTEGRATE,eZF8000AedF(3000)118030[eiF"INTEGRATE ";:28000enF:22:"INTEGRATE FROM X = ";I1esF" TO X = ";I2ewFS10:NS0exF:22:"SHADE THE AREA";:33000e}FP18050,18125 fFNP76:I2I1(XRIGHTXLEFP03:172400dCPP203P03PRP0P03:17240TdCPP205P13159P1P13:17240_dC17240qdCR$"V"17600dCI1(LA$):I$(LA$,I,1)dD(I$)31P0,P1dRDP0P08d\DI:17990dDI1(LA$):I$(LA$,I,1)dD(I$)31P0,P1dEP1P18:I 31P08(LA$)8,P1:((LA$,1))31P08(LA$)8,P1:17250c\C((LA$,1))31P0,P18(LA$)8:((LA$,1))31P0,P18(LA$)8cbCPP(16384):PP127Ĺ16368,0:17260cgC17240clCPP20817300cvCPP201P1PBP1P13:17240 d{CPP202P030P0TION WHERE LABEL SHOULD START"LbDC10:"PRESS ";::"P";::" TO PRINT IT";\bICR$"V"Ę48bNCR$"H"PR2808(LA$):PB10:P0PR:P1PB:17240bSCPR270:PB8(LA$)3:P0PR:P1PBbXC((LA$,1))31P0,P1:((LA$,1))31P0,P1;cZCR$"H"ĕ((LA$,1))TER THE LABEL, TO ABORT"'aBLA$;aB(LA$)017990naB(R$"H"(LA$)33)(R$"V"(LA$)20)17200aB(7);"THE LABEL IS TOO LONG. RETRY":17030a0C22:1:958:"USE ";::"IJKM";::" EDITING KEYS TO MOVE THE ";::(LA$,1):b:C"TO POSI:3000,FC`>YDEV1:8000:j`>::(7);"DISK ERROR. DO YOU WANT TO RETRY";:33000:768:P16000,16100`hB8000:22:1:958:"IS THE LABEL TO BE PRINTED"`rB"HORIZONTALLY OR VERTICALLY (H/V) ";R$`|BR$"H"R$"V"17030`B:(7):17010aB"ENME ";T$&_>(4);"BLOAD ";T$;",A8192",_>b_>(4);"OPEN ";T$;".TEXT":(4);"READ ";T$;".TEXT"_>XLEFT:XRIGHT:YLO:YHI:XUNIT:YUNIT:LEFT:RIGHT:BTTM:TPP:FC:I1FC:K$(I):I_>(4);"CLOSE ";T$;".TEXT" `>K1FC:F$K$(K):3000,K:60040:K^11^>::5:"TO GET A PICTURE, INSERT THE"X^>"DATA DISK ON WHICH IT WAS SAVED"^>:"PRESS RETURN WHEN YOU HAVE DONE THIS ";R$:16110^>:"DO YOU WANT A CATALOG OF THIS DISK";:33000:P16027,16030^>:(4);"CATALOG"_>:"ENTER THE NAEPLOT FUNCTION ON NEW INTERVAL"G]|.:"N NEW FUNCTION TO BE PLOTTED"k].:"L LIST FUNCTIONS PLOTTED"].:"A ASYMPTOTES FOUND G GET PICTURE"].:"P PRINT/SAVE GRAPH W WRITE LABELS";^.:"S SEE GRAPH E END PROGRAM"A$"G"İ16000:8000:9000$\T$40000/\^$450009\%9000?\-I\#-34,0W\P-16303,0]\-|\-"M MORE POINTS PLOTTED"\-:"T TABLE OF VALUES"\.:"X GIVE X, GET Y"\1.:"Y GIVE Y, GET X"\6.:"I INTEGRATE (FIND AREA)"]J.:"R R"I"İ18000:9000*[#A$"P"İ26000:9000C[#A$"A"İ30000:9000[[#A$"R"İ19000:500k[#A$"R"500}[#A$"N"21500[#A$"L"İ26200:9000[$A$"C"İ11550:9225[$A$"S"İ8000:9000[$A$"E"İ20025:63000["$A$"W"İ17000:9000\,$ N L A G P W ";::"OR";::" E"MZ#"ENTER C TO HAVE CHOICES EXPLAINED ";A$`Z#A$"C"İ11550qZ#A$"C"9060{Z#:24Z#A$"M"İ25000:9000Z#A$"T"İ24000:9000Z#A$"P"İ26000:9000Z#A$"Y"İ22000:9000Z#A$"X"İ21000:9000[#A$PP);39);" "YE 22:1:868(YI 34,21.YN 9Yl :" "?Y4!^Y>!(3000);": ";K$((3000))dY!jY(#uY*#216,0Y-#:1:23:958Y2#DUMMY(0)Yd#A$"C"ĺ:"ENTER M T X Y I R N L A G P W ";::"OR";::" E";:" ";A$:9105 Zn#"ENTER M T X Y I RK(YLO10YUNIT)1(YHI10YUNIT)1_XVRTAXIS2,V(KYUNIT10)VRTAXIS1,V(KYUNIT10)fXKpX8000{X:" "X@XD16304,0::NROUND3:LEFT0RIGHT08265X: 21:X? "X: ";LEFT;" TO ";RIGHT; YA :" ";::"Y: "R(BTTM);" TO ";R(T(3000)125010*wa"MORE POINTS ";:280004wa:22Xwa"MORE POINTS FROM X = ";STARTXzwa" TO X = ";FINXw4b958:"HOW MANY NEW POINTS ? ";NEEWw>bNEEW025210wBb:5wHb"RETRY...";wRb25140wzb4001wcCH3000025550 xc30ED" v2_Xv7_(4);"PR#0"&v<_216,01vA_45000N"PROGRAM ENDED"jCN:jRj R8000j R(3000)121010j R"FIND Y ";:28000jR:"FIND Y FOR X = ";XjR5+H(X)1,V(PB)H(X)1,V(PT)"iG)iGIZiG22:1:958:"THE INTEGRAL OF ";K$((3000))giGNROUND3iG"FROM ";I1;" TO ";I2;" IS ";R(S1H3):18950iDH1:22:958:"FUNCTION UNDEFINED AT X= ";X:18950iJCH3000018985i J3000,KEEP3000j)J4553(222)69(222)13318500:h1GS1S12Y:18230:18350_h6G(XXLEFT)(XXRIGHT)NS118350oh@GY018300hEGPTY:PB0:YYHIPTYHIhJGYLO0PBYLOhTG18330h|GPT0:PBYhGYYLOPBYLOhGYHI0PTYHIhGH(X),V(PB)H(X),V(PT)iGMIDMv30375RvMOSHUN15WvXTEMPAMID:YTEMYMIDN\vARIGHTAMID:RTYYMIDiavALEFTXKEEP:LFTYYKEEPfvXKEEPXTEMP:YKEEPYTEMPkv30375pvuvYMIDRTY30345ŇzvXKEEPARIGHT:YKEEPRTYއvARIGHTAMID:RTYYMID釄v30375vMOSHUN1vXTEMu(Y)(RTY)30315$uARIGHTAMID2uK:319008v\vXKEEPALEFT:YKEEPLFTY:MOSHUN1i vK1500%vAMID(ALEFTARIGHT)2*vXAMID/v54v(222)69(222)133315009vYMIDYՆ>vMOSHUN130320CvYMIDLFTY30290HvALEFTAMID:LFTYYSEARCHING":!uUL1UR1319001uUL130395AuUR130470[u(LFTY)(RTY)30230huK1150uAMID(ALEFTARIGHT)2:XAMID:5u(222)69(222)13331500ͅu(ARIGHTALEFT)1E0831500慲u(Y)(LFTY)30150uALEFTAMID:30155N X = ";ALEFT:50Iu(222)69(222)13331500DNu(222)53UL1OXuLFTYYj]u22:"AND X = ";ARIGHT^uALEFTARIGHT30050_u(7);"RETRY...ENTER LEFTMOST X FIRST":30010ĄbuXARIGHT:5؄qu(222)53UR1{uRTYY u22:1:958:23:15::"(3000):(R$)I28060mI6m40000:45000:28020YmKEEP3000(3000):3000,(R$):_0uz1u8000:(3000)1300052u"LOCATE ASYMPTOTE ";:28000:(3000)KEEP3000İ3000:30007΃5uYDEV1İ3000؃7u80009uUR0:UL0:"LOCATE ASYMPTOTE BETWEEGHT.01(XRIGHT)& kBTTMYLO:TPPYHIPkYLOYLO.01(YLO):YHIYHI.01(YHI)[kk:" "a`mnemCH30001܂tm"FOR WHICH FUNCTION ?":"ENTER ";:I1(3000)1:I;", ";:I:(3000);" OR L TO LIST FUNCTIONS";:" ";R$~mR$"L"İ26200:28020mI1TO"*i"BE AT THE BOTTOM AND TOP OF THE"Fi"SCREEN, RESPECTIVELY"ci:" BOTTOM Y = ";YLOi:" TOP Y = ";YHIiYLOYHI27400́j(7);"RETRY...MAKE FIRST Y LESS THAN SECOND!":45000؁j27104kXLEFTXLEFT.01(XLEFT):XRIGHTXRIXLEFTXRIGHT27030Gi:(7);"RETRY. ENTER LEFTMOST X FIRST"::27005Ri::4{i"OPTION 1: YOU CHOOSE Y INTERVAL"i7:"OPTION 2: AUTOMATIC Y SCALING"iK$"12"i35000ӀiRP:R27104,27400i:5:"OK...ENTER THE Y VALUES YOU WANT ]fA$"P"A$"T"262107^f8000:1:22:(3000)3ĉHbfI1(3000)ZfI;": ";K$(I)afIzfA$"P"A$"T"26400f45000f8000 gxi}i:R0i"PLOT FROM X = ";XLEFTi" TO X = ";XRIGHTiLEFTXLEFT:RIGHTXRIGHTiTURE SAVED ON THIS DISK UNDER THE"4~Pf:"NAME ";T$e~Qf::"NOW PUT THE PLOTTING DISKETTE BACK IN"~Rf:"PRESS RETURN WHEN YOU HAVE DONE THIS ";R$~Sf222,1:26115~Tf(7);"DISK ERROR. DO YOU WANT TO RETRY";:33000:768:222,1:P26170,26115~XfNTER A TITLE: ";T$6}If(4);"BSAVE";T$;",A8192,L8192"m}Jf(4);"OPEN ";T$;".TEXT":(4);"WRITE ";T$;".TEXT"}KfXLEFT:XRIGHT:YLO:YHI:XUNIT:YUNIT:LEFT:RIGHT:BTTM:TPP:(3000):I1(3000):K$(I):I}Lf(4);"CLOSE ";T$;".TEXT"}Nf"~Of:"PIC |3fLA$(I):(LA$(I))13261651|4fII1:26163E|5f(13):1002:1\|6fK1I:LA$(K);:Kj|7f0:26115|:f:"REMOVE THE PLOTTING PROGRAM DISKETTE":"AND INSERT YOUR DATA DISKETTE":26196|=f:"PRESS RETURN WHEN YOU HAVE DONE THIS";R$}?f:"NOW EF HI - RES PAGE 1"8{,f:"TYPE 2: OTHER/SAVE TO DISK"Z{/f:" 3: RETURN TO MENU"{0fK$"123":35000:P26161,26170,26115{1f:"NOW ENTER THE STRING OF PRINTER CONTROL"|2f"CHARACTERS":"PRESS RETURN ONLY AFTER THE ";::"LAST";::" ONE":I112524,0zf(17)-zf12529,0:12524,2553zf9zfPzf(17);"001120000"[z f(18)az"fz&f:3:"TYPE 1: A DOT ADDRESSABLE PRINTER"z(f" FOR WHICH YOU KNOW THE CONTROL";z*f" SEQUENCE TO CAUSE PRINTING"{+f" O:" ";T$yeD$;"PR#"SLOT$&yeT$:@ye"FUNCTIONS PLOTTED:"Kye26200Qye{ye" X GOES FROM ";LEFT;" TO ";RIGHTye:"AND Y GOES FROM ";BTTM;" TO ";TPPyeP26120,26140,26150yeD$;"PR#0"yf45000yf8000yfyfz f12529,255:00,KEEP3000xcA$"M"::" "#xe1xeSLOT$"1"Nxe::5:"PRINTER TYPE ?"mxe:" S SILENTYPE (TM)"xe:" M MPI (TM)"xe:" O OTHER/SAVE TO DISK"xeK$"SMO"xe35000xeR$"O"26150xe:5:"ENTER TITLE FOR THE GRAPH:"ye EXC,A^TEXCTEXC1^!^H'^CA76B79C71A220:60165?]A69B88C80A221:60165`]A67B79C83A222:60165]A83B73C78A223:60165]A84B65C78A224:60165]A65B84C78A225:60165]A82B78C68A219:60165]60170]QQ2^ T60170\A47A203:601704\A61A208:60170K\A62A207:60170b\A60A209:60170y\A94A204:60170\A83B71C78A210:60165\A73B78C84A211:60165\A65B66C83A212:60165\A83B81C82A218:60165]1)"Y"60040%[(7);"RETRY":60020J[34,0:35,24:F$((3000))F$:100i[TEXC2129((16634)1)240v[FL(F$)[SR(112)256(111)[Q1FL[A(SRQ1):B(SRQ):C(SRQ1)[A42A202:60170[A43A200:60170\A45A201:000):I,32:I22,1L@(3000)10,12,14,16,18,20,22,24,26,28@?""""""""""""""@U `_`P p`@_ P P ~xP @P P P*U|>">>"">">>>(U Wu          68:770,104:771,166:772,223:773,154:774,72:775,152:776,72:777,96bAP(4);"RUN CACTUSPLOT"hAd AP(4);"RUN CACTUSPLOT" d 9j^@ PROGRAM TO LOAD SHAPES , SET THE "FUNCTION COUNTER" (LOCATION 3000) AND RUN CACTUSPLOTl@22:10:@"LOADING MAIN PROGRAM"@@232,0@233,8@((4);"BLOAD ASCII SHAPES,A$800"@-3000,1:3001,1:3002,1@/1GAF768,104:769,1  16300,0:16301,0! 322:10:< 4"LOADING SHAPE TABLE"B 7S <T11000:To d(4);"RUN SHAPELOADER"u 22:10:%A2"LOADING SHAPE TABLE"+A7"">>"@P x`>P P P p`8pP P*U `@xP @P `@*U ~ժՊ""""""""""""P `@p@P P @P X T |`P P P*U x?Ԫx>" ""2"2" <P >ppP @xx@Pz_ P `@P P P*U*@?""""*"*"pP @P @p P P P ~P 8P ?C$26.CCC I:-??6-C26-C$$2vCd$26C$l6rCC2v-CC16?*--- 3v- 666)v?CC666%$$,666%$$,666666C $$$vdDa<6-C$6--.-%)366-r)566>?CC*--- -6>?C -66.-C?6-CC8?I166??Cd-)-C?6- ;g6v-CC-6?66.C`6 66I6?C66n  6666n$66v-C$$<66CC$$vmCI 6 6 6CCm5--CC3.)$5--R5?I)66?C$$M >66-'*C-.-%--?CI666CC?d 6-C$?C-526v-C?CC---6)?C2-C$)6??C-C$R55? 557'I%--??*7*C-0)6$66@` &07<AIXalw &1@JYelv !+39@IPT`jt '/:FR\djqz 661n$166n$$$  ?-?w!CC.lM5?`@|P P P pP P*U@P P 0P <*U x?ժ`P ?88`P P P <`P P*U |P P pP