' +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` `PP`>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 pP ϭà@跻~!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£֠ԠPˣ٠Ơ͠z# Pu` S X z S    +  + 5 S S       S ꠕ Ƞ S   ܠ S Ԡ + ٠ +ޠ  5 ܠ S S  艹  #Ϡ + S  謁  #  S L+멥LLꠕLfꢠL+멠L堕LLf S  S  S  S  S =   ک( S d   ک2 S ک   ک< S    کF S ݠ   کP S    کd S ک   کx S کE  f  HENUMBER OF HITS AND MISSES.PI = 2 * (NO. OF NEEDLES)/(NO. OF HITS)HOW MANY NEEDLES DO YOU WANT TO DROP?PI ESTIMATE =  @ z(LꠕL+멄LꩉLꠕL꩎L堕L+멘LԠLʠLꩉL`L! L9<<@    cL6THIS IS A COMPUTER SIMULATION OF COUNTDE BUFFON'S NEEDLE-DROP ESTIMATION OF PIPI CAN BE ESTIMATED BY DRAWING PARALLELLINES 1 UNIT APART AND DROPPING NEEDLESON THE LINED PAPER AND RECORDING Tȑ` ^_ z SՠZȑZ L   VW x, 6,E" 湱 :,Z목Z"ȱ:, L e ? `Z^[ȑ^L'``````````````````````````````````````````````````````````````` [Z䢐š eȄ̤̠ͣ͟`Z[ȅȱZLeZZ[LH  h Lh`  ΑZLZ `[eZȪ{{` y \` S80 `   * L'   L L Lȱ[Z`  i` ! x PZ` ! x 8PPL+` ! x P L8PPPL+  H S L ]hL6 L{` Z[5ŝ ȑІ`^_^ȑ^` ^_ ^^( eZZ[`_^  x _^  Z%ﭥ Z[` ` yȱL* yL4 4  zL  yL LJ  y``` L L LIQQIQPQ`*۩eL`HH` L L iL`hPhQ PQ`i Lh^h_HHvHuH|H{HQHPH{|_H^HLh{h|huhvhh` PL GL  `!l Q\%,`\]hhHH #L\ȥ\ȥ\`LѥLl L Lvu$ # \ WۺyzɃ8L`؅ L PQF ePeQP&Q`$ II &&`Q+Ɂ')0)#&*&Q$La L ` 0` ee`   f`  j %`hh #HH # #hhlHH / hh , qL* lL aL PL1 GL1 ߚLphh 7 ȱ Q +,'E -+.Я JϦΥ +L+ ' ,Ћ VW`υΦ VW`XY \V]W\" ` PL* " LܠVXWȑX` L6 LE,,-`]L L LW ]\L: ߦ\]` ^`PQ`^_^` lP$Li)$ PP W` PP8$NP L LY L  ZhhHH脁 ,թVW" `" L Z ZL Έ`" Lv$Lhh Z l & D # " 3` 7` \]` \` L( Lhhϥ^8 _ ŝiMLԥHHHϦΠ hh` ^H^H``ahPhQa `ʚL iڢLԼʚ`a  饪 r 2 E^4864 ΄ϠΪȱΨ` L ΄ L5΄ϠPȥQ` L+΄ϥLY΄ &$΄ϥLw΄ & &e몘e쨊e΅PeυQP`  ` %L ` ` ` ` ` `з       @ ϭϰ ͠*+ v)Mύ+ ˥++L% + v)xJJJMύ+ ˥++LJ *(`+*H)JJh & & f) υ` ``xf~ayg@0p L<|C3sO? H&I`& &I`&  7%@A]@&%0  X @A>><= 7L. h`&I`&&H'H0HH@ e@*A eA .B } B" !" 7L &I`&hh0h'h&`@Ah`L` b         H    E \LB8$ 0 LN` `TS y`yST`@:A;`:@;A`hhLw`A?@>`:B;C`B:C;`:; HLg<H@ /@e/A  0#i#i# \qLp`뷩 `뷩 `px p %p fp p`t` @q `#i#i#L%p݅si#Lp i#֠#З`t p  B67LH hɍ`6B  8,,` B67LH hɍ`6B  8,,`; 89` ɑ!!`ɚ$(H$$$! $h`h$$`b@l  . $ ; &?1?=A>?I i`HH11`IJ듧ƙɾ5Ė+]̵h5`4ɺл1>@@A`41`>BD`8>6>) `LL u ?l:L``L@ 'A=?<) < `JJJ>Ie=?<=`K i! Ȉ2 ,`H h*:` `YE <Šӭpd`HVTQ PS 6" (!#%L" X`I`ɍ,,L8L,H ΰɐHJ) )h)i( ((`ɇ@ 0`$($$!fi#bZH&bTDThDt(ntJrtttrDh2"&&rr&HDDȅEhH 0l( Lh:h;l Le / XZ]_, :ILl `Ȇ׍숈l E@A  J 0,*i H/.  `0 .: VȘ L `8/;e:` T0 "T3  T3  T; "D3 D"D3 D"D3 "D3 &1!YMJؤ#]#)i#$S#$S[[i$$)|mi)S4J G(i.&E0%.Q&&` , iH h-`/'-'0 (`HJ) 'h)i& &&`0i)0 00`J G&(JJJJ)`:; H:J jɢ )Jb y.)/) JJJ Ȉ` H:  J/Ȑh,--&eʵ``` f f` &L L fLC`8i`uu  ee`` ` 0` ` ` 5I` 5Iй` f f`L ?5=ɥD 5 5 D4ɻɍЀL\ɠ` }Ɏ$ ``LXWVhY `XWYHV(` Jhh LH) JQ JJJH`HJ`hh ?l8e` %GQ/[҅n3pJ?>ʊ:>Ș;k/=:   S;:L 4 40K14 L= BC D..=D5֤4 J :3 g ɠɤ ɓՊ x= 4   &B&C= 44ݴ 4ݺ ɤ4&D`L# ȱ0` 4 `u` 7$ 8`0 &&` { %Ppĥ uv` 2e   %F8 2 8Hh&&&&& 0hhI`LLLHxܥyݥPQLuƵPxLhQεyϱΠ L 4) ؘ 甠` uHɃLh` ☪ T`  甠`ѥ΅ ΅ҥυө 甠0ХҠ ӕ "L 4i` F`ٚ .L 4 `$$L$Ն$L,L 8!$ L赟0L0ܤ } L赟L0ܤ } L ` ` [ S oP YVPL6 O 5OPL Ι_LfP0Q@PPxA@QPa`qp`HP8εxh`Ʌ۰եڅʥۅ , ` :L΄<Ȅ>=?`ʕ>?>`8M˕   , ` L:L``F`$ ܪȱ 婠Lܤ`Ś25 a0 穠LJKH۰hЅѠȱ0@ȱHШhh0JL JLKMMLILLILLLLy 2L,PQ܅x݅yL آ8ЕNЕKʵ˕ە LkLMNܕ`LΥΥLMLʥMː ʥ˰JυKL  8MϕڥL 4΅` ȑ` l΅υLD L4 xPiڄeΕPeϕxPȵxڰL# N ONi)OO i@ &N&O ϕLz JKLυML LMJυKL qL ȩ` 6 6P`JLKMLxL L6 L[` Oڵw۴Nv L`xw8OPL# (` 40!(L 4LdF`  %L"wL{ TL~&&&ڥې څΈ` l 4Ȑ,` 40L 4Ȑ-` 4(L(n ㊨ rLa ?&0ΰ` Δ䮥G 0 #gMghghPcQ)Wqqqqhhq`uuuQ줰䮲륥Q9O/Q) WjB`O~5'Q 䯭䮡ޜݜݞGg` ` `嶡䡯z~" `P O䯭䮡𥴳\@`` ~3`Gg壡yi壡yi` @Gh X{gggggg'(dgxkg~9g'7(*7ϠGX͠LϠ٠SGϠDĠHSĠNSĠTĠ 5EMҠL Šō?FِLϚΠ κ f ٢  ٦Τ ȹɀI ȄȹH h3 oLB oTMɅ"3J[NSJIfmzq# [$NYP;#o6#"#!0 9@0Ӷ:Pyإ<[(N>W']5Kgvq ʤ  Y YoܹݾЇ`TP@xL` Ιϙ_oܙݙᙯ` ??<<<<<<<0UUUUUUUUWΤ PڵxۥΑȥL`hh$ F`` %ֈ`ʤZA^ܙ ݙ0  m7;܄iȢٚ . y$IqܤݐLM͠1FLJܹ/ݾLuc ܪȱ L[ĨP?xO_ڹo  l`w0P`fLPεϵxϱHȱ΅hΈ` J  畠P` Y $0`  畠$0 8 P# o ΅ڥυ e epݕ` 4LL$ `  rPՆϦ ` ΅υȩ ` Ӡȱ0I@iHeШiH˰hhЈЈ͑Ј̑ЈЈ0JKЬ@iHe eѕxh$0 xx ԅբ H 0  敠$ ( x$0  xx 0$FԨֹ)U h)װ H ֐ι LhޤȄ h󰩠ɩch cɰ$0 $` d'ʅ˅LM&ȱϰqȥȥ`FLʥM˥J̥Kͩ`Lkȱ0@hJHȱШhЄ0)ȆȘHJI@hL`ȩ)?Jжi?oiO iȱ) zȵх 8 05X~")XȔ) v*Ȇ0LJɢ  Ȉ ϴX)HЄ ȹ)eHe0 ̥͐Eʑ˥ʥ˰ਈ$ u~q  u  mʥ` ȹ0 L uߙ`` $0LL*iS 0wh(VP`΅h(OM L6 T&ϐ eڅeۅ &L~ 畠(LoU [΅ڥυ   o ` l3 3` 4J G 4&(JJJJ) 甠` F٩ $ 婠 Ȣ ii)ɰLPx+L 4P xL# 48` PxL PeHxeH˰iکeۅȱhڙ`ꠀЕ x ت3 Q3ؕxQεy NvNδPPPL#Q8yڅ`Sε{ϵQڵyxȔPMuHOL L3L`) #L $  `  v mL;ʅ˅LM  mdžة * * *     % 0LH΢QPHΪ0h$0 )?i h](Њ q L H ϐ { lhHHH hHL? hυυ Ljݥ ,L mݰ % LߩƉ 慝 憨80 ў*%L L ު `  }LޢٹHH ޥLLޥШh^^h_H r륡HHHHHl^h#d j݄hJhhhhhhE` LJ }d.U"i L=8,LLTҐL {ݩ),(,,ѸLLԠhhL ߅` ȱLL  ߅ ei` 꺽  ' 8 uvL׊i , {$8$0`LԦƹƸ$HH `ީ 8ϐ*IEʼna Lݦ,{iweLi^ e^hٲаg jH hV_F*ƹƸٲаH $P )0 Z ۆ $1$P 膸 ": ,i = {LrH0h J c ,Lqۥ 3 LۥL Ȫ*ȱ_ȱ{ȱȅ| L+ܥLSؠߠL:`?EXTRA IGNORED ?REENTER  \I`$ !i)$ )L(ʊ$ L W 檠^ \ LD۩ ,? ɠ )H h`0{|uvLh$L :ۥyz` @ `" ީ; =L Z , ,խLc ZL,զ}~, ߅hL* ,h`PQ/ Q^ԥP &^ &^ePP^eQQP&QPe PQ L ߅ ޥHH {h* mh r ȥ`L'hpoj iLڠ 㥌 婝 5ȱȱ` = $)94,;D {$0 4 Lک?`gh<=ij>?`v(Le lL5٩ ӥHHvHuHH >L ٥vQ 8egh ֐` eӚɰ ,ZLLhhB;uhvhh ٘e`:,  "hhh` { ɫ ޥ L>L( HɰɫЉơ$v# \ۦuv $ W (Lb-逐@ HHLLF:L8gh}~`Ƀ` Sբ$Lׅ ׅLԱJHȱJh`LNפ0`L,׈L20`LF׈LL ׅJF8ȹe8ИL`Lø{{ttmnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# !H ֥ h ߦ>  E֥ E & > ` E  E  H ֥ hL  ֥ -L L -EF# =Pi  ֤Lְ ׅ! ׅ  / ) ) "&6 B /`TLՆ8M˕  Tբ , Tզ`  . $ ; E.. 4L& >`Lk 34 Lh856!;<79)F:&8J9j*0v 婭   +<; LhLk'cg=%;!,<+k,w(gG gG]$ t < N8i| (|`ܠLդ4ɪ 4<`<  $ H h .Ю#` L}Э%J u ӊH Өh dѮ#` L Q ;Ү#` Q Ү#`#2 Ӎ'( H() 91 eȱm)h`JJ`#JȱJLh `#  <(eΨ=)eϰ%Hh>?iJK̅  #& ')*& "'JJ) ""% m% ʥ0)J!m%! `JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ`JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ` ӥ',"&,i8i#H&ii&hif&i'`'i,&i,.&iPII&&if&H !"hH8 H!S hIiHSQUhPTh !"IiR"fS8PQ% 8TeRTUU&E%0Q&&kS TePTUeQPفŴxaI10 &WSP& )`" !H)&JJ&&h' &' &' f&') &'#i%Ѕ0J$)` .ХQ&%0Q&&`$0JI0`'0% I`0 I0ܩ(ߠQ)'%01&*%0Q)&E%0*Q&&QeS)j00                T`  `ѥ΅ ΅ҥυө 0ХҠ ӕ "L 4i` F`ٚ .L 4 `$$L$Ն$L,L 8!$`L# ȱ0` 4 `O ɏ5OPLɏ Ι_LfP0Q@PPxA@QPa`qp`HP8εxh`ɅLLHxܥyݥPQLuƵPxLhQεyϱΠ L 4) ؘ ` uHɃLh` L``F`$ ܪȱ Lܤ`Ś25 a0 LJLJKH۰hЅѠȱ0@ȱHШhh0J L赟0LՓ0ܤ } ɑL赟L0ܤ } ɑL ` ` [ S oP YVPL6 ە LkLMNܕ`LΥΥLMLʥMː ʥ˰JυKL  8Mϕڥ۰եڅʥۅ , ` :L΄<Ȅ>=?`ʕ>?>`8M˕   , ` ăL: i@ &N&O ϕLz JKLυML LMJυKLˎ qL ȩ` 6 6P`JLKMLxL L6 L[L JLKMMLILLILLLLy 2L,PQ܅x݅yLÈ آ8ЕNЕKʵ˕{ TL~&&&ڥې څΈ` l 4Ȑ,` 40L 4Ȑ-` 4(L(n ă ărLa ?&0ΰ` ΔL 4΅` ȑ` l΅υLD L4 䎴xPiڄeΕPeϕxPȵxڰL# N ONi)OO줰䮲륥Q9O/Q) WjB`O~5'Q 䯭䮡ޜݜݞGg` ` `嶡䡯z~" `` Oڵw۴Nv L`xw8OPL# (` 40!(L 4LdF`  %L"wLh X{gggggg'(dgxkg~9g'7(*䮥G 0 #gMghghPcQ)Wqqqqhhq`uuuQĠ 5EMҠL Šō?FِLÈϚΠ ăκ f ٢  ٦Τ ȹɀI ȄȹH h3 oLP O䯭䮡𥴳\@`` ~3`Gg壡yi壡yi` @G>W']5Kgvq7ϠGX͠LϠ٠SGϠDĠHSĠNSĠTܙݙᙯ` ??<<<<<<<0UUUUUUUUWB oTMɅ"3J[NSJIfmzq# [$NYP;#o6#"#!0 9@0Ӷ:Pyإ<[(N܄iȢٚ . y$IqܤݐLM͠1FLJܹ/ݾLuc ăܪȱ L[ĨP?xO_ڹo  ʤ  Y YoܹݾЇ`TP@xL` Ιϙ_o$0 8 P# o ΅ڥυ e epݕ` 4LˎL$ `  rPՆϦ ` ΅υȩ ` Τ PڵxۥΑȥL`hh$ F`` ͏%ֈ`ʤZA^ܙ ݙ0  m7; xx ԅբ H 0  $ ( x$0  xx 0$FԨֹ)U h)װ H 듥֐ι L؆l`w0P`fLPεϵxϱHȱ΅hΈ` J  P` Y $0`  'ʅ˅LM&ȱϰqȥȥ`FLʥM˥J̥Kͩ`Lkȱ0@hJHȱШhЄӠȱ0I@iHeШiH˰hhЈЈ͑Ј̑ЈЈ0JKЬ@iHe eѕxh$0X~")XȔ) F*Ȇ0LJɢ  Ȉ ϴX)HЄ ȹ)eHe0hޤȄ h󰩠ɩch cɰ$0 $` dq  u  mʥ` ȹ0 L uߙ`` ӎ$0LL*iS 00)ȆȘHJI@hL`ȩ)?Jжi?oiO iȱ) zȵх 8 05  o ` l3 ΃3` 4J G 4&(JJJJ) ` ӏ F٩ $  ΃Ȣ ii)ɰL ̥͐Eʑ˥ʥ˰ਈ$ u~`ꠀЕ x ت3 Q3ؕxQεy NvNδPPPL#Q8yڅ`Sε{ϵQڵyxȔPMuHOwh(VP`΅h(OM ׁL6 T&ϐ eڅeۅ &L~ 畠(LoU [΅ڥυ džة * * *     % 0LH΢QPHΪ0h$0 )?i h](Њ Px+L 4P 䏕xL# 48` PxL PeHxeH˰iکeۅȱhڙ=i?BC , LʩM˩I6bVcWdXeYfZg[h\i]j^k_L L3L`) #L $  `  v mL;ʅ˅LM  m               NAME:";A$ (10460/ (D$;"OPEN";A$".FMT"I (D$;"WRITE";A$".FMT"b (NF:J0NF:F$(J):| (D$;"CLOSE";A$".FMT" ( ("DISK ERROR":A$:10400DT:T1T99ĺ"OUT OF RANGE.":10300?F(A$(T):T10A$"0"A$ZP(F$(NF)F$(NF)A$:JJ2eZ(10380n("STRING:";A$:A$A$"!"x((A$)J255NFNF1:J0:F$(NF)""(F$(NF)F$(NF)A$:JJ(A$)(J252NFNF1:J0:F$(NF)""(10220 ("FORMAT'"1:HEADING, 2:ITEM, 3:TAB, 4:NEXT LINE, 5:STRING, 6:END":J1U'J11J1610220s(F$(NF)F$(NF)(J1):JJ1 (J110260,10260,10300,10300,10350,10400(T0NH:T1;") ";H$(T):("WHICH?";T:TT1:T0TNH10270((10310#<("HOW MANY?";t'"FORMAT NAME:";A$-~'D$;"OPEN";A$".FMT"F'D$;"READ";A$".FMT"N'NFc'J0NF:F$(J):}'D$;"CLOSE";A$".FMT"''"FORMAT NOT FOUND":A$:200'NF0:J0:F$(0)""':"START IN THE UPPER LEFT CORNER AND WORK ACROSS EACH LINE."@T'S ALL":A$: 6(#"THERE'S NO DATA IN MEMORY."H2#I11000::\'F$(0)""10040w'"SAME FORMAT?";:A$:$'A$"Y"ı.'A$"N"100108'"(L) LOAD FORMAT, OR (C) CREATE FORMAT";:A$:B'A$"C"10200L'A$"L"10040j'10170n (I$(I,C1%(J)),T)(C$(J),T)8330/q 8340Mv I$(I,C1%(J))C$(J)8330W 8340j BS2AS1:J7t 8345 BS1AS2:J7 J AS0BS18355 AS18380 3300 SB3İ5000 SB4İ6000 RS1I3I2 I3 :"THA RS0:SB2ĺD$;"PR#1"2: II11:I3I1I2:II1B? AS0:J07[D C1%(J)1J7:8345vN C2%(J)8280,8290,8310X I$(I,C1%(J))C$(J)8330] 8340b I$(I,C1%(J))C$(J)8330g (C$(J),1)"*"8340j T(C$(J))1:(I$(I,C1%(J)))T8340%160 8015)" ";I:I1INI181003II1FC2%(J)1I2I^C2%(J)2I1I:I2IqC2%(J)3I1I{8015J2820022:"1) ITEM MUST MEET ALL CONDITIONS":"2) ITEM MAY MEET ANY CONDITION";:A$:A$"1"A$"2"8160BS(A$)21:"SELECT : ";I:I0INH38040?mINH2C1%(J)1:8150MnINH3ı\rC1%(J)I1|22:"(1) SMALLER (2) EQUAL (3) LARGER ";:A$:A$:A$"1"A$"3"8060C2%(J)(A$)23:"COMPARED TO : ";:C1%(J)18100" ";C$(J):JJ1:J78T$I$(T,J):I$(T,J)I$(I,J):I$(I,J)T$.J5 I@ SS0:S@NI1İ9000:uJI10:I2NI:J0:C1%(0)1:BS1O:"SEARCH CRITERIA:":T"0) RECORD NUMBER"^I0NH:I1;") ";H$(I):Ic:NH2;") BEGIN"dNH3;") RETURN TO MENU"#hDING, OR (D) DESCENDING":A$2A$"A"A1:7100HA$"D"A2:7100R7060`I0NI1hTIwI1T1NII;" ";I1A7130,7140I$(I1,J1)I$(T,J1)TI17145I$(I1,J1)I$(T,J1)TI1I1TI7180J0NH'I1I1NIJ0NH/I$(I11,J)I$(I1,J):J:I1TJ0NH:I$(NI,J)"":kNINI1:SS0:II1qXNI1İ9000:b:J0NHl"(";J1;") ";H$(J)vJ"SORT ON WHICH HEADING?";J1J1J11J10J1NHı"(A) ASCENRS1ĺ:50905A$:A$"C"A$"K"A$"R"5060JA$:A$"K"5090aA$"R"RS1:5090|H$(J);:" : ";I$(I,J)CS0JRS0CS0SS0p:"DELETE THIS RECORD? ";A$:A$"Y"A$"N"6070A$:A$"N"6150 ԂB$:SS0:NINI10:"RECORD ";NI1:<J0NHXH$(J);:" : ";I$(NI,J)_Je:"(C) CHANGE ITEM, (K) KEEP ITEM, OR":"(R) KEEP REMAINDER OF RECORD":"RECORD ";I1CS1:RS0:J0NH:H$(J);" : ";I$(I,J);" ";B$(B$,N1):(B$)N1āJ2(B$)N2:B$B$" ":<(3960U2B$:N1āJ22N::e<B$"":3960FJ(F$(T))TT1:J1PJ2JZ(F$(T),J2,1)"!"J2J21:3930dA$(F$(T),J,J2J):JJ21nB$B$A$xJ(F$(T))TT1:J1}38204ľA$:A$(27)RS1 1t:"RECORD ";I1:=~J0NHPH$(J),I$(I,J)WJ]oJ1:T0:B$""J1((F$(T),J,1)):JJ1J15N((F$(T),J,2)):JJ2J13850,3860,3870,3890,3910,3970 A$H$(N):3950A$I$(I,N):39502(P) PRINTER";:A$:* A$"P"SB2:3050< A$"S"3010 SB1::"AFTER EACH RECORD WILL RETURN TO":"THE MENU, ANY OTHER KEY CONTINUES." "":A$:8010 SB2ĺD$;"PR#0"  :FS3700,3800 SB23350 SB I0NIJ0NH$I$(I,J).J:IHD$;"CLOSE";F$".DAT"SSS1:n"DISK ERROR":A$:200 NI1İ9000: "(S) SELECT FORMAT, OR (D) DEFAULT";:A$: A$"S"İ10000:FS2:3010 A$"D"3005 FS1 "(S) SCREEN, OR ";H$(I)6I@SS0:D"USE ";F$;" AS NAME (Y/N)?";:A$:A$UA$"Y"2090g A$"N"2000x"NAME? ";F$ F$""2070*22904D$;"OPEN";F$".DAT">D$;"WRITE";F$".DAT"HNH:NIRI0NH\H$(I)fNI12270J:I D$;"CLOSE";F$".DAT"+ SS1:Q "FILE NOT FOUND":A$:216,0:110t "GIVE YOUR FILE A NAME : ";F$ F$""1500 "HOW MANY HEADINGS? ";NH NH11520 NHNH1:NI1 H$(NH),I$(MX,NH) "I0NH,"HEADING #";I1;:" :T$"Y"510 A$"N"Ľ:100% &= XD$;"CATALOG":A$:S "FILE NAME? ";F$^ 1310w D$;"OPEN";F$;".DAT" D$;"READ";F$".DAT" NH:NI jH$(NH),I$(MX,NH) tI0NH:H$(I): NI11280 I0NI J0NH I$(I,J) 00:200# ^A$"C"SB3:8000:200D hA$"D"SB4:FS1:8000:200[ rA$"T"İ7000:200q |A$"F"İ600:200 A$"Q"A$"N"500 200 SS1540 "CURRENT FILE IS NOT SAVED.":"DO YOU STILL WANT TO QUIT? (Y/N) ";:T$ T$"N"200 C) CHANGE A RECORD". "(D) DELETE A RECORD"> "(T) SORT"T "(F) FILE NAMES"m "(N) NEW DATA FILE"} ""(Q) QUIT" ':"YOU HAVE ROOM FOR ";(0)50;" MORE CHARACTERS" ,A$:A$: @A$"S"İ2000:200 JA$"P"İ3000:200 TA$"A"İ40VIOUSLY SAVED DATA SET "K }"(F) LIST CURRENT FILE NAMES ?";W A$:A$q A$"F"İ600:::110 A$"L"İ1000:200 A$"I"İ1500:200 130 216,0::"(S) SAVE CURRENT DATA" "(P) PRINT DATA" "(A) ADD DATA" "( DEVELOPING DATA BASE 0COPYRIGHT 1981EMARK PELCZARSKIQdD$(4)\eMX200{iC$(7),C1%(7),C2%(7),F$(5)jk10)"----- DATABASE -----"l(5):"YOU MAY CHOOSE TO:"mn"(I) INITIALIZE A NEW DATA SET" x"(L) LOAD A PRE               :"DO YOU WANT ANOTHER COPY? ";Z$9(Z$,1)"Y"710T:"ANOTHER ITEM? ";Z$i(Z$,1)"N"ė:s:70yI6);" ----";16);"----------"/LY09208930ICY1L:940WCY1L16);YCY;:16)(D(CY)102.5)(102.5)D(CY)0960:6);"SALVAGE VALUE AT END OF ";CYY1;" IS: ";(CV102.5)(102.5)(4)"PR#0"$)"INVESTMENT CREDIT"37)"EXTRA FIRST YEAR DEPRECIATION"\6);"----";16)"-----------------"37)"-----------------------------"fCY1p6);YCY;:16)(IC102.5)(102.5);:37)(ED102.5)(102.5)z:6);" YEAR";16);"DEPRECIATION"!6);"DATE OF PURCHASE: ";32);D$E 6);"COST OF ITEM: ";32);"$"Cm6);"USEFUL LIFE: ";31);L" YEARS" 6);"DEPRECIATION RATE: ";31);R;"%"*46);"DEPRECIATION CALCULATION">6);"------------------------"H7R6);" YEAR";16 Routine ***/"DO YOU WANT A PRINTOUT? ";Z$D(Z$,1)"Y"710L70b(4)"PR#1":::T(36((72(26(I$)))2))T);"DEPRECIATION ANALYSIS FOR ";I$:46);"DATE PREPARED: ";DP$:6)"INPUT DATA"6);"----------"!:IRST YEAR DEPRECIATION"/:YCY;10)IC;30)ED5DUN" YEAR";10)"DEPRECIATION"cXLY0610l]620}bCY1L:630lCY1L1vYCY;9);D(CY)D(CY)0670"SALVAGE VALUE AT END OF ";CYY1;" IS ";CV *** PrintoutE: ";20)I$, "DATE OF PURCHASE: ";20)D$@ "COST: ";20)C[ "USEFUL LIFE: ";20)L "DEPRECIATION RATE: ";20);R;"%"  CY1 Y1899YY "PRESS RETURN TO CONTINUE ";Z$: &0:" YEAR";10);"INVESTMENT CREDIT";30);"EXTRA F^CVCVD(CY) h7 r*** Last Year Depreciation ***E |CY0410P CYL1h D(CY)YRCV(LY12)x CVCVD(CY) *** Output Data To Video *** :: 6)"DEPRECIATION ANALYSIS FOR ";I$ 10)"DATE PREPARED: ";DP$  "ITEM NAM(D$,2)) DD((D$,4,2)). YY((D$,2))C DD15FY13MMW DD15FY12MMd LY12FY *** First Year Depreciation *** "CY1 ,D(CY)CVYR(FY12) 6CVCVD(CY) @*** Middle Years Depreciation *** JCY2L TD(CY)YRCV lculate Yearly Rate ***( YRR(100L)] *** Calculate Extra First Year Depreciation ***o L6ED.2C} L6ED0 CVCED *** Calculate Investment Credit *** L3IC0 L3ICC30 L5ICC15 L7ICC10 MM(: ";I$:(I$)170# P(I$)0ė:S Z"PURCHASE DATE (MM/DD/YY) ";D$:(D$)190} d"COST OF ITEM ";C$:C(C$):C0100 n"USEFUL LIFE ";L$:L(L$):L0110 x"DEPRECIATION RATE (NEW=200%: USED=150%) ";R$:R(R$):R150R200120 *** Ca{  Depreciation Program2 Revision 1/25/81(:12:12:"TAX DEPRECIATION"::14:"BY TONY GITT"::8:"MODIFIED BY MIKE KRAMER"2I12000::<*** Input Data ***A"ENTER TODAY'S DATE (MM/DD/YY) ";DP$:(DP$)165 F:"NAME OF ITEM       / "353700381B130909111B1B130909111B1B1300"^ "0D09111B1F130909311B1B170909111B1F1300" "292D153F3F372D2D353F3F372D2D35383F1700"195L768:1100 L163844I14:1100:I:BLA$SVX1(A$)2i`Y((A$,X,1))48xjY9YY7tZ((A$,X1,1))48~Z9ZZ7L,Y16ZLL1X: "01000400123F20642D15361E0700" "030008001B002E00" 1NS3880tBS0"uPS1:195Q:22:"UNDER WHAT NAME WAS IT SAVED? ";A$[750nD$;"BLOAD";A$w195:22:"UNDER WHAT NAME? ";A$750D$;"BSAVE";A$;",A8192,L8192195GS0Ĺ16302,0:GS1:19516301,0:GS0:05<"INVALID COLOR; COMMAND CANCELLED":I12000:I:195DCBMX,YX62454` CDi195"INVALID NAME; COMMAND CANCELLED"I12000:I:195R233,3WPS0:BS0:195k233,64p:24:1:"BRUSH NUMBER (1-3)? ";NS rNS16287)128ī210#<PS1BS1:1952@SW1ī350KJX1,Y1X,Y:X1X:Y1YTT210c^X1,Y1X,Ylh210:22:"0-7?";A$(A$)47(A$)56CD(A$):410504CD195:22:"0-7?";:A$(A$)47(A$)56CB(A$):50 A$"B"500! A$"S"9501 A$"G"900A A$"P"875S (A$)27980i A$"F"SW1:850 A$"L"SW0:850 A$"" 210 "PS0BS0ĕNSX,Y #PS0ĕNSX1,Y1 $(16287)128310 (PS1BS0:195 ,X1X:Y1Y6(1 "COLOR: ";CD;" BACKGROUND: ";CB;< X((0)256280)R Y((1)256192)^ NSX,Yr PS0ĕNSX1,Y1 PS1BS1ĔNSX,Y (16384)128290 A$ 16384,0 PS0ĕNSX1,Y1 PS0BS0ĕNSX,Y A$"H"105 A$"C"40X' TO STOP "; A$# A$"X"ij5 A$(13)190> 180L 16304,0Y :22:1y " TYPE 'H' FOR HELP" PS0202 BS0ĺ"PAINT MODE, BRUSH UP":205 "PAINT MODE, BRUSH DOWN":205 SW1ĺ"FILL MODE":205 "LINE MODE"&(0-7)" . "G : GET A PREVIOUS DRAWING"F "S : SAVE DRAWING"L s " : FULL SCREEN/TEXT SWITCH"y "H : HELP;RETURNS TO THIS PAGE" "FROM THIS PAGE YOU MAY:" "PRESS TO GO TO DRAWING PAGE," "OR TYPE ' (NS1:GS0 -PS0:BS0, 27:0:1:SW0: 7CB0:CD7@ dN i16303,0T kq l"DRAWING PAGE OPTIONS:"w m n"L : LINE MODE" x"F : FILL MODE" y"P : PRINT MODE" z "C : NEW DRAWING COLOR (0-7)" "B : NEW BACKGROUND COLOR *:11:10:"HIGH RESOLUTION DRAWING"O14:11:"MARK PELCZARSKI, 1980"g D$(4): CONTROL D 768,1:769,0:770,4:771,0772,18:773,63:774,32:775,100776,45:777,21:778,54779,30:780,7:781,01000232,0:233,3        BRUCE F. FIELD AND"A "PUBLISHED IN SPRING 1981 APPLE ORCHARD"j " TYPED BY MIKE KRAMER 9/1/81.";HE DOUBLE GRAPHICS PRINT") "ROUTINE."/ Z "IF YOU ARE TYPING THE CALL FROM THE" "KEYBOARD AND DON'T WANT THOSE WORDS TO" "APPEAR ON THE PRINTER, FIRST RESET THE" "APPLE OUTPUT TO THE SCREEN (PR#0)."  "PROGRAM WRITTEN BY TO MEMORY."7 P"THEN INITIALIZE THE SILENTYPE WITH A"c Z"'PR#1' (ASSUMING IT'S IN SLOT 1) AND" d"SET UP THE PRINTER PARAMETERS AS YOU" n"DESIRE. INSTEAD OF TYPING CTRL-Q TO" x"PRINT THE HI-RES SCREEN, TYPE 'CALL 768'"; "TO ACTIVATE Tl- " SILENTYPE DOUBLE GRAPHICS"S" -------------------------"Y("THIS BINARY PROGRAM PERMITS PRINTING"2"DOUBLE SIZE GRAPHICS PICTURES ON THE"<"SILENTYPE PRINTER. FIRST, BLOAD THE" F"'DOUBLE GRAPHICS' ROUTINE IN   ADDR CTRL-Y"  I "NOTE THAT THE PRINTER MUST BE CAPABLE OF";x "PRINTING 132 COLUMNS AND MUST BE PLACED" "IN THAT MODE BEFORE STARTING DISASSEMBLY"; " DONATED TO HAAUG BY" " MIKE KRAMER";RY FILE TO LOAD THE";C d"CODE AND SET UP THE CTRL-Y HOOKS. THEN"p n"ENTER THE MONITOR WITH A 'CALL -151'." x"FOLLOWING THE '*' PROMPT ENTER THE MEMOR"; "Y RANGE FOLLOWED BY A 'CTRL-Y' AS SHOWN" "BELOW." " * STARTADDR.END  :3" >> TWO COLUMN DISASSEMBLER <<"9h("THIS UTILITY PRINTS THE DISASSEMBLY FOR"2"A SPECIFIED MEMORY RANGE IN DOUBLE"<"COLUMNS ON A PRINTER. THE PRINCIPAL"F"BENEFIT IS PAPER SAVINGS."P Z"FIRST 'BRUN' THE BINA    "FAVORITE PROGRAMS TO IT."$ * 0 U " CONTRIBUTED TO HAAUG"p "" BY" ," MIKE KRAMER"E DISK. FIRST BLOAD"E "THE BINARY FILE. THEN INSERT THE DISK TO";t "BE ALPHABETIZED IN THE DRIVE. NEXT TYPE" "'CALL 28672' TO EXECUTE THE PROGRAM." "YOU MIGHT WISH TO TRY THE SORT ON A" "DUPLICATE DISK BEFORE ENTRUSTING YOUR" Z:0d" >> DISK DIRECTORY SORT <<"6nYx" BY ANDY O'BRIEN"" WASHINGTON APPLE PI 11/81""THIS MACHINE LANGUAGE PERFORMS A VERY""FAST SORT OF THE DIRECTORY ON A DISK AND"; "WRITES IT BACK TO TH   PROGRAM, CATALOG, ETC. ON THE"M "PRINTER USING PAGED OUTPUT, TYPE IN THE"| "USUAL COMMANDS AND THEN 'CALL 768' JUST" "BEFORE TYPING 'LIST' OR 'CATALOG'."ALENGTHS, CHARACTER"B "SIZES, ETC. JUST BEFORE STARTING OUTPUT"n "TO THE PRINTER ISSUE A 'CALL 768' TO" "ACTIVATE THE ROUTINE. IT WILL BE TURNED" "OFF WHEN THE 'PR#0' IS ISSUED TO RETURN" "OUTPUT TO THE SCREEN."  "TO LIST A VE WITH 'BSAVE PAGED OUTPUT,A300,L66'", @[ J" >> PRESS A KEY FOR NEXT PAGE <<":A$a T ^" >> PAGED OUTPUT <<" h r"TO USE THE PAGED OUTPUT ROUTINE IN A" |"PROGRAM, INCLUDE THE NORMAL CODE FOR" "SETTING MAXIMUM LINE POKE 812,2 FOR PARALLEL"G " POKE 798,LP (LP = PRINTED LINES/PAGE)"v " POKE 804,PL (PL = 6*PAGE LENGTH (IN.))" " POKE 822,1 STOP BETWEEN PAGES.PROCEED" " WITH KEYPRESS." "" POKE 822,0 TURN OFF PAGE PAUSE." ,& 6"SA ISSUED TO THE PRINTER"D "AFTER 54 LINES HAVE BEEN PRINTED. THE"r "FOLLOWING CHANGES CAN BE MADE FROM THE" "KEYBOARD TO CHANGE THE CHARACTERISTICS" "OF THE ROUTINE." " POKE 785,0 AND POKE 812,0 FOR SERIAL" " POKE 785,2 AND d:.n" >>> PAGED OUTPUT <<<"4xc"THIS UTILITY PERMITS PAGING ON LISTINGS""AND PRINTED OUTPUT. TWO VERSIONS ARE""PROVIDED, ONE FOR PARALLEL PRINTERS, THE";"OTHER FOR SERIAL. AS SET UP, 12 LINE" "FEEDS WILL BE   ED TO 40 CHARACTER"D "WIDTH BY TYPING 'TEXT'OR PRESSING RESET.";J "P , 6"PRESS TO END, TO ACTIVATE";:A$: @A$(27)ė: J(4)"BRUN ZOOM AND SQUEEZE" T(4)"BRUN ZOOM AND SQUEEZE"ATHE"5 "SCREEN. SQUEEZE CHANGES THE SCREEN WIDTH";f "TO 33 CHARACTERS AND ELIMINATES IMBEDDED";u "BLANKS."{ "ZOOM IS ACTIVATED BY PRESSING CTRL Z." "SQUEEZE IS ACTIVATED BY PRESSING CTRL Q.";  "THE SCREEN IS RETURNd/n" >>> ZOOM AND SQUEEZE <<<"5xf"ZOOM AND SQUEEZE MAKES IT EASIER TO EDIT";"BASIC PROGRAMS BY ADDING TWO KEYBOARD""COMMANDS.""ZOOM PROVIDES A FAST WAY TO COPY OVER A" "PROGRAM LINE OR CATALOG LINE ON d I/O ROM PEEKER n:4Fx5)">> I/O ROM BYTE VALUES <<":o11)"BYTE 1 BYTE 2 BYTE 3 BYTE 4":{SL17SMSL25649152"SLOT ";SL;":";13)(SM);20)(SM1);27)(SM2);34)(SM3):SLKRES SCREENB1B1&B39B393A1A1BA39A39[ BLANK OLD POSITIONl0:A1,B1:3 PLOT NEW POSITION A,B630 A7A:BB19240* CHANGE SCALE TO REFLECT HGR (280 BY 192)4::>L POSITIONING THE ORIGIN ON THE SCREEN (40 BY 40)Ob USING I J K M AND Fil:3:20,20:A20:B20qvA$A1A:B1BA$"I"BB1:710A$"M"BB1:710A$"J"AA1:710A$"K"AA1:710A$"F"800  KEEP ON THE LO Y = -----------"&" X(X-7)"L:"YOU WOULD TYPE THE FOLLOWING"o"60 DEF FNNUM(X)=(X-1)*(X+2)""70 DEF FNDEN(X)=X*(X-7)""RUN"::"REMEMBER :"&"60 DEF FNNUM(X)=";::"LEGAL BASIC EXPRESSION":"RUN"D830/X ANGE SCALE? ";A$$(A$,1)"Y"90-830X:"DIRECTIONS FOR RATIONAL FUNCTIONS""YOU MUST DEFINE YOUR FUNCTION IN TERMS OF NUMERATOR AND DENOMINATOR""FOR EXAMPLE IF YOU WISH TO GRAPH THE FOLLOWING:"" (X-1)(X+2)""BYSS @ TRANSFORM THE REAL Y VALUE TO HGR AND SEE IF IT IS STILL ON THE SCREENf JV191V0350o TH,Vv ^H r THIS POKE WILL DISPLAY THE BOTTOM QUARTER OF THE GRAPH |16302,0:A$:A$; :"DO YOU WANT TO SHIFT THE ORIGIN AND CHB191S:A2,VA2,V:3 VB0S:A2,VA2,V:I ACTUAL GRAPHINGV H0279  TRANSFORM THE HGR COOR TO THE REAL VALUE X(HA)S:DDEN(X) " DRAW THE VERTICAL ASYMPTOTES IF NECESSARY ,D0Ē3:H,0H,191:7:350 6YNUM(X)D:V HIT ANY KEY"G "THERE IS A HASH MARK ON THE AXIS FOR EACH UNIT";P :7{ AXIS, WWITH THE REAL ORIGIN AT (A,B) 0,B279,B:A,0A,191 HASH MARKS EVERY UNIT ON THE AXIS HA279S:H,B2H,B2: HA0S:H,B2H,B2: V I J K M KEYS. F=FINISHED"b n THIS ALLOWS THE USER TO SELECT WHICH AREA OF THE GRAPH TO VIEW x620: TO POSITION THE ORIGIN S WILL BE THE SCALE DETAIL INCREASES AS S INCREASES 21:"AFTER THE BOTTOM HALF OF THE GRAPH IS FINISHED,INE 60# F PLACE DENOMINATOR HERE[ P DEF FN DEN(X)=1>>IF YOU HAVE A NON-RATIONAL GRAPH Z:"THERE ARE 280 HORIZONTAL DOTS. HOW MANY DOTS/UNIT DO YOU WANT?";S d21:"INDICATE THE INTENDED LOCATION OF THE ORIGIN BY MOVING THE CURSOR WITH THE ::8:7:"GRAPHING RATIONAL FUNCTIONS"::9:"WRITTEN BY RON CARLSON"::14:"MICRO 12/80"::9:"MODIFIED BY MIKE KRAMER"N13500:N GRAPHING RATIONAL FUNCTIONS BY RON CARLSON2 <440: THE NUMERATOR FUNCTION IS TO BE AT L     PUT ROUTINE"/ "INSTEAD OF THE GET COMMAND."5 e "RUN 'COMPARE' FOR DETAILED INSTRUCTIONS";* j"SLOWLY. IT LATER APPEARED IN APPLE"V t"ORCHARD WITH SOME MODIFICATIONS, BUT"| ~"IT STILL USED THE GET COMMAND."  "THE VERSION OF 'COMPARE' ON THIS DISK" "HAS BEEN MODIFIED TO RUN QUICKLY USING" "A MACHINE LANGUAGE STRING INGRAM COMPARE, AND";= ."THE BINARY PROGRAM 'STRING INPUT'."C 8t B"APPLESOFT COMPARE ORIGINALLY APPEARED IN"; L"CALL A.P.P.L.E. BUT SUFFERED FROM BUGS." V"IT ALSO USED THE GET COMMAND TO READ THE"; `"PROGRAM LINES FROM DISK, SO RAN VERY"g&" APPLESOFT COMPARE",Z"APPLESOFT COMPARE FINDS DIFFERENCES IN""TWO PROGRAMS. IT PRINTS ADDED, DELETED,""OR CHANGED LINES ON THE SCREEN OR THE""PRINTER. IT REQUIRES USE OF THE EXEC" $"FILE 'CAPTURE', THE PRO D$(4)R:"PRESS TO RUN 'COMPARE'":" TO END":A$tD$:A$(27)A$(13)2050 A$(13)110 : THE TWO":"PROGRAMS TO BE COMPARED MUST BE STORED"Z"AS TEXT FILES. THE STEPS ARE:":" (1) LOAD 'FILE CAPTURE'":" (2) TYPE 'RUN 5' TO CREATE 'CAPTURE'":" (3) LOAD 1ST PROGRAM FOR COMPARISON":" (4) TYPE 'EXECCAPTURE'":" (5) TYPE 'RUN'. W0,:"PRINTER OR VIDEO ? (P/V) ";:PR$:@PR$"V"PR0:k:"ENTER PRINTER SLOT OR CALL";:PR:vLPRıVPR8ĺD$"PR#";PR:`PR:::16)"COMPARE":3:"BEFORE RUNNING 'COMPARE' THE EXEC FILE":"'CAPTURE' MUST BE CREATED AND"(A$,1)"N"920'(A$,1)"N"960;D$;"DELETE";O$OD$;"DELETE";N$:"ANOTHER COMPARISON? ";A$:(A$,1)"Y"(A$,1)"N"960(A$,1)"Y"90: PRINTER SUBROUTINES"CHARACTERS PER LINE? ";A$:LL(A$):LL30LL240101830-H(OS$)NSĺ"DELETED :":J$OS$:310YR"DELETED :":210:J$OS$:310:850:  ASSUME END OF DATA ERROR IN LAST FILE AND END PROGRAM BL$::" ** END OF COMPARISONS **":D$"CLOSE":D$"PR#0":"DELETE TEXT FILES? ";A$:(A$,1)"Y" ** ADDED **":5);(NS$);:J$NS$:310:260:410:  WHEN ONE FILE IS EXHAUSTED, DETERMINE WHICH AND INDICATE REMAINDER OF OTHER "ADDED" OR "DELETED", AS CASE MAY BE*X(218)(219)256:216,0:9104X230840>"ADDED :":260:J$NS$:310: OLD LINE NUMBER < NEW LINE NUMBER THEN OLD LINE IS DELETED;FETCH NEXT OLD LINEb(OS$)(NS$)ĺ" ** DELETED **":5);(OS$);:J$OS$:310:210:410:IF NONE OF THE ABOVE, THEN THE NEW LINE IS ADDED. PRINT "ADDED" AND FETCH NEXT NEW LINE4(NS$):(OS$)(NS$)OS$NS$350:  IF LINE NUMBERS ARE THE SAME BUT CONTENTS DIFFER,THEN PRINT "CHANGED" AND GET NEXT STATEMENT (OS$)(NS$)OS$NS$ĺ" ** CHANGED **":5);(OS$);:J$OS$:310:"TO :":5);(NS$);:J$NS$:310:350:RXIFT$;::9 , PRINTS A STATEMENT WITH A LINE LENGTH OF LLB 6II0w @IOII1:IIIILL:12);(J$,IO,LL):II(J$)320} J TD$"OPEN"O$ YD$"OPEN"N$ ^210:260:  IF BOTH STATEMENT NUMBER AND CONTENTS AGREE, THEN IGNORE# OS(OS$):NS$)(N$))27 TB%)"COMPARISON OF ";O$;" TO ";N$::A 810N 340: w GETS STATEMENT FROM THE OLD FILE OS$"":D$;"READ";O$ 768,OS$ T$;:: GETS STATEMENT FROM THE NEW FILE NS$"":D$;"READ";N$ 768,NS$ ] x ** ENTER NAMES OF FILES TO BE COMPARED==MUST BE TEXT FILES CREATED BY EXEC-ING CAPTURE D$(4):D$"BLOAD STRING INPUT (A768.L71)"::"OLD PROGRAM TEXT FILE NAME: ";O$::"NEW PROGRAM TEXT FILE NAME: ";N$ 1100: PRINTER ON TB%(LL18(O * CALL -APPLE * JUL/AUG *; * MODIFIED BY *Z * MIKE KRAMER *y ************************* <************************* F24:13:"INSTRUCTIONS? ";A$ P(A$,1)"Y"2000 Z:TS$(1):BL$(7) n::5:1010::5: :2,12:33,7::33,40< *************************\ * COMPARE PROGRAM *| * BY * * CHARLES G. BOODY * * 05/11/80 * * COMMERCIAL RIGHTS * * RESERVED *      *APPLESOFT MENU***, :BY LARRY L. FREEMAND DAND JAMES P. DAVISW N OF ABACUS...D:D$;B$;N$ 20; :10:"THAT IS A TEXT FILE!!!"T PAUSE11000:PAUSE\ 20v  1027,1155,1283,1411  1539,1667,1795,1923  1067,1195,1323,1451  1579,1707,1835,1963  1107,1235,1363,1491 & 1619,1747,1875,2003 0** 6K$"3"B$"DELETE"& @I:1:868K J" PRESS 'LETTER' YOU WISH TO ";Y TK$"3"ğp ^B$;::198:BELLy h240 rISL(K$)65 |X(L(I)2) X194B$"RUN"B$"BRUN" X212470 N$"" J433 N$N$((L(I)J)) J L(I),160:L(I)2,173$ LLISL1933 L(I)1,LL: Ii "RUN ? LOCK=1 UNLOCK=2 DELETE=3 EXIT=4";v B$"RUN"} 6 K$ K$"4"Ā K$"0"K$"4"290 K$"@"K$(LL127)370 240 "K$"1"B$"LOCK" ,K$"2"B$"UNLOCK"X  ::0D$(4):CHR$(4) IS CTRL-DF(D$;"NOMON C,I,O"L2^<D$;"CATALOG"iFL(24)uPI124ZL(I)dInSLSL1xX(L(SL))128X("0")X("2")110ISL24X(L(I))128X("0")X("2")210   XL)) hY(AYBY(CYL))& rX,Y- |L5 22d " DO YOU WANT TO DO THIS AGAIN ? ";B$z (B$,1)"Y"ī110 ::ATRY THESE OR ENTER YOUR OWN."B :" ENTER VALUE FOR A: ";CXg :" ENTER VALUE FOR B: ";CYm ~ PI3.1415927 AX140 BX100 AY80 BY70 ,ANG2.1PI 6STPPI128 @:3 JAXBX,AY TL0ANGSTP ^X(AXBX(CF A AND B,". "YOU WILL CHANGE THE CURVES."\ "HERE ARE SOME SUGGESTED VALUES TO TRY:"b z " A B" " --- ---" " 1 1" " 1 3" " 3 4" " 3 7" :"NOW ONE CYCLE OF 360 DEGREES.Q d::" PRESS THE SPACE BAR TO GO ON...":ANS$Y n: x"THE X,Y COORDINATES HAVE THE FORM:" :" X = COS( ";::"A";::" * ANGLE) :" Y = SIN( ";::"B";::" * ANGLE) :"BY CHANGING THE VALUES OPˣ٠Ơ͠z#נӠ ϠΠҮàǠҠ* Ҡؠ͠ ͠ĠŠ͠ĠŮàͮ͠ŠŠӠ ŠŠӮà̠̲ Ԡ  Ӡ ϠΠҠ  ĠԠ̩ĠԠ̩ĠԮà Ҡ ͠Šà ŠӠ  ĠǠà2"ؠ ͠ àԠȠ ՠ ŠˠǠ Ǡ̠Ӡ Ϡ ϭà ϱɠ ɯϠ͠Ҡ Ġ ˠ͠ˠˠԠ ԠŠӠӳΠԠҠà"ҠҠ  ŠŮàĠ Š ΠӠ  ˠ٠Ԩ̲ ˠ٠ԮàϠˠ ®ԠŠΠҠ ҮŠҠ Эؠɠ "əзȹɠɍ1 !2R7%w)w!w'3 ff ʥ `@l FdeLde8.?rFrde8.?r8.?rFrrMآʕL RW7g5g6$6:g3 J̵ lJ ʕ ΕL $9"FdeLde8.?rFrde8.?r8.?rFrrMآʕL RW7g5g6$6:g3 J̵ lJ ʕ ΕL $9"1R23P B31 gh ɧ J^ :1 <h2h38ブ#(3   (Ҡο)GGFq.?6@rd6?e`$F`%Qq8rGP@p()`=>r%@p()UVW'de=>r=>rY$Zca(Πìɬ)a@E@E(Π)E@dQ(' dededJedKeN@"(r@p()'Ka(Πìɬ)M6a()((q`=>r $(qq2oPa()qqf8rghf8rgh`=>r $2<a (4);"RUN HI" " A --NO CARD OR CAN'T RELOADG W (768)0Ā ":"...LANGUAGE CARD CANNOT BE RELOADED":" UNTIL THE SYSTEM IS REBOOTED..." ,aAND PA#1 ; 10:"(HOLD ON WHILE I PREPARE MYSELF)"g 15:"(WHEN FINISHED WITH ONE PROGRAM," 16:"TYPE 'RUN HI' TO SELECT ANOTHER)" "BLOAD INTBASIC,A$D000" --WRITE PROTECT THE CARD A(16254): $C082  173:812,129:[ s813,192:814,169:815,1:816,208:817,2:818,169:819,0:820,141:821,0: x822,3:823,104:824,205:825,0:826,224:827,240:828,3:829,173:830,128: }831,192:832,96: 769 (768)1250  --IF THERE, LOAD INTG 173:784,131:785,192:j d786,173:787,131:788,192:789,169:790,165:791,141:792,0:793,208:794,205: i795,0:796,208:797,208:798,19:799,74:800,141:801,0:802,208:803,205: n804,0:805,208:806,208:807,10:808,173:809,129:810,192:811, -- DOS 3.3 HELLO  (:.(J213)"TITLE HERE (#50)"QF sP --POKE LANGUAGE CARD FINDERZ768,0:769,173:770,0:771,224:772,72:773,173:774,129:775,192:776,104: _777,72:778,205:779,0:780,224:781,208:782,35:783,     ( | S      # !   /   / #쩥  L~ S   #   / #쩥 L~  (  S Ԡ  S  `  S k  堕 fz  . ک S   `з   逸 ʠ +" S  Ϡ Š +6 S  ꠕ +@ S Š   Š  LJ S      LT S Ϡ   Š   h S ꠕ     #    ! L      ?r$&4q.?r.?r]ŠԠȠͺ4`.?rb%de`.?rK$nq_$&q8.?rr8.?rr40`.?rb%de`.?rK$nq_0??Lr.?Mrqqq.?r.?r.qqq.?r.?r*a(îԽ)FE(Ƚ)FcPS(Š)&@`@9()$_=q.?6Ur.?6Urq.?6Ur.?6Ur_`.Ԡ488.?Mrrr_]͠Ҡˠ@p()]̠a@E(Πìɬ)KS(ԠŠŠ)&@`@9()$a@E(Ġ)E@E(ְ)2`.?Mr$]ϠŠҠˠ]ĠBq.2]Ҡ٠̠ʠ/3]ŠĠ͠٠4]ΠΠҠ;5]Ӡ͠Ӡ̤ϠҠ٠d_n`.?Mr@$x@]ԠͺN@"(r_Q]ԢԽ˨˨Ƚ˨˨Š)xa()E@E(Խ)E@E(˨)FE(˨)FE()E@E(Ƚ)E@E(˨)FE(˨)FE()a@E()Q% ]ҮŠ٠̠o]Ӡ͠ӠŠȬΠĬӠŠԠĠȠƠ٠ĠNdq@p()de.?6rde.?7rq q d e@p()$na@E(Π)a@E( r $2<a(Ҡο)GGFq.?6@rd6?e`$F`%Qq8rGP@p()`=>r%@p()UVW'de=>r=>rY$Zca(Πìɬ)a@E@E(Π)E@dQr' dededJedKeN@"(r@p()'Ka(Πìɬ)M6a()((q`=>r $(qq2oPa()qqf8rghf8rgh`=> BY TED COHN).'--------------------A8' PROGRAM SEGMENTS]B'1000-1300 INSTRUCTIONSyL'2000-2999 READ CATALOGV'3000-3999 ALPHA SORT`'4000-4100 TYPE SORTj'5000-5100 SECTOR SORTt'HOPE YOU HAVE FUN WITH~'THIS SORT ROUTINE!!!!b:1,S1:2,WR1 $S1ĹBUFFER1,17:BUFFER2,S2;$RWTS[T$C$"SORT COMPLETED":10:11p^$:(4)"CATALOG"vh$' *** DISK SORT ***' DONATED TO THE APPLE CORE OF SAN FRANCISCO' DECEMBER 1, 1979 2,S1%d#JBUFFER11BUFFER255352n#XSEQ(I)Jx#J,T%(X):J1,S%(X)e#J2,P%(X):J33,L%(X)u#J34,E%(X)#K130:JK2,((FILE$(X),K,1)):#0,17:1,S:2,WR#RWTS#II1:IN9200#J#S#S09300#7000 $0,17EQ(I1)XFLAG1I,FLAG150002KpI0N:L%(SEQ(I)):QzsXZBUFFERBUFFER255:Z,0::y@(# ----WRITE TO DISK----2#C$"WRITING DIRECTORY":10:11<#I0F#S1211P#7000:CLEAR BUFFERZ#BUFFER1,17:BUFFER ----SORT BY TYPE----(FLAG0CTYPE04:TYPE34070NI0NkXP%(I)128:X0XX128XTYPESEQ(FLAG)I:FLAGFLAG1ITYPEFLAG0I0N1L%(SEQ(I))L%(SEQ(I1))5060 XSEQ(I):SEQ(I)SEQ(I1):SfJ029:FILE$(N)FILE$(N)((IJ)):J/pI6zSLI0N:SEQ(I)I:Ru 10:C$"SORTING DIRECTORY":11 FLAG0 I0N1 XSEQ(I):YSEQ(I1) FILE$(X)FILE$(Y)3060 SEQ(I)Y:SEQ(I1)X FLAG1 I FLAG13005Y":11RD1:WR2:N1(S1211=0,17:1,S:2,RDGRWTSfIBUFFER14BUFFER25535w (I)02180(I3)2552160 NN1*P%(N)(I1)4T%(N)(I3)>S%(N)(I2)HL%(N)(I30)RE%(N)(I31)\FILE$(N)""(LENGTH":8" THIS DOES THE SAME AS THE 1ST SORT,"f" BUT ALSO PLACES THE FILE INTO"" SEQUENCIAL ORDER BY SECTOR LENGTH.":"< PRESS SPACE BAR TO CONTINUE >";A$:A$" "127013010:C$"READING DIRECTORN COMPLETED, THE PROGRAM"I" WILL CLEAR UP ALL DIRECTORY PROBLEMS"c"(2) SORT BY TYPE":" THIS DOES THE SAME AS THE ABOVE, BUT";" ALSO PLACES THE FILES INTO GROUPINGS";" BY TYPE (I.E. I,A,B,T).": "(3) SORTING BY LSO MAKE"/L"FINDING PROGRAM NAMES A SINCH!"[V::"< PRESS SPACE BAR TO CONTINUE >";q`A$:A$" "1120j:"(1) SORT BY NAME"t:" ENTER '1' WHEN ASKED FOR SORT TYPE."~" THIS WILL ONLY ALPHABETIZE THE FILE"" NAMES. WHEPHA-"5 "BETICAL ORDER. IN ADDITION, YOU HAVE THE"e "OPTION OF GROUPING FILES BY THEIR TYPES." $"ORDER IS INTEGER, APPLESOFT, BINARY AND " ."TEXT FILES. " 8" THIS WILL MAKE YOUR CATALOG LOOK " B"VERY NEAT AND CLEAN... IT WILL ADRIVE 1":111 4C$"":11I >(16384)160830W H16368,0] Rw \7:15::"DISK SORT"} f p  12:"CATALOG SORT":: " THIS PROGRAM WILL REARRANGE THE " "FILE NAMES OF YOUR CATALOG INTO ALS" ::9587 "ENTER NUMBER OF DESIRED SORT? ";? S$O S$"1"500_ S$"2"600o S$"3"700x 220 800:2000:3000:9000 X800:2000:3000:4000:9000 800:2000:3000:5000:9000 :10 *C$"PLEASE INSERT DISK INTO 0 Z( d10:"INSTRUCTIONS (Y/N)? ";= nC$:C$"Y"1000N xC$"N"110T "THERE ARE THREE TYPES OF DIRECTORY" " SORTS AVAILABLE: " ::"1 - SORT BY NAME" :"2 - SORT BY TYPE" :"3 - SORT BY SECTOR LENGTH20(C$)2 C$:PRINTS LINE* (7)0 J 5:C$"DISK SORT":11e C$"BY - TED COHN":11 (C$"DATE: DECEMBER 1, 1979":11 221:" PRESS 'ESC' TO END" 7"< PRESS THE SPACE BAR TO CONTINUE...>"; <C$ FC$(27)ė: PC$" "6d3255:16384:MAX70:RWTS16384:BUFFERRWTS256E(RWTS)725d(4)"BLOAD RWTS,A16384,V"r16420,65FILE$(MAX),P%(MAX),T%(MAX),S%(MAX),L%(MAX),E%(MAX),SEQ(MAX)RD1:WR2 16298,0::936:20 PRINT CENTER ROUTINE 958::D$;B$;N$ 20; :10:"THAT IS A TEXT FILE!!!"T PAUSE11000:PAUSE\ 20v  1027,1155,1283,1411  1539,1667,1795,1923  1067,1195,1323,1451  1579,1707,1835,1963  1107,1235,1363,1491 & 1619,1747,1875,2003 0** 6K$"3"B$"DELETE"& @I:1:868K J" PRESS 'LETTER' YOU WISH TO ";Y TK$"3"ğp ^B$;::198:BELLy h240 rISL(K$)65 |X(L(I)2) X194B$"RUN"B$"BRUN" X212470 N$"" J433 N$N$((L(I)J)) J L(I),160:L(I)2,173$ LLISL1933 L(I)1,LL: Ii "RUN ? LOCK=1 UNLOCK=2 DELETE=3 EXIT=4";v B$"RUN"} 6 K$ K$"4"Ā K$"0"K$"4"290 K$"@"K$(LL127)370 240 "K$"1"B$"LOCK" ,K$"2"B$"UNLOCK"X  ::0D$(4):CHR$(4) IS CTRL-DF(D$;"NOMON C,I,O"L2^<D$;"CATALOG"iFL(24)uPI124ZL(I)dInSLSL1xX(L(SL))128X("0")X("2")110ISL24X(L(I))128X("0")X("2")210 ɰ$0 $` d'N gɯ; Y ?ɀ> А H >Ii>?Ii> А,L gʆ ɯɰɹ)3} & &ee &}થi @ HIiIi @⩰# 祝.=D5֤4 J :3 g YɯLɠɤ ɓΊ x=    &B&C= 4ݴ ݺ ɤ4&D ?5=ɥD 5 5 D4ɻɍЀL㎹ɠ`ޅ3 gʆ ɯY[ Y( Lh:h; G :LhHh:h;/ V; THH::;:-H,H E@A  J 0`: V:8 J8LyLjJ?>ʊ:>Ș;k/=:   S;:L O4 40K14 L= BC D.(ʈ3 g Y ɨH40 ^4Lم O4LHH11`HLiLˏ4Hh uLLLqli h,h-~<,ɓ,ɯL:B/ \`HL_l\@8)I:< ?L<EhH 0l Ǡҍ @HHH  ȑ ȑ  hhh`7 '-------------------- TED COHN, 1411 ARLINGTON, EL CERRITO, CA. 94530 (415) 529-2502P -L  3L ɍ  ` ` H c J Hh A 膠Ӱ ` H  L  `ɠ!ɍ( ) ȹ )L ȦL `I i` H*i h ` / :3 X J[ H[ [ h[ Jw Hw w hw `ЭؠҠҠŠéή 3L  g&ɺ),/2ɡ58 - L , L L L rL L )i ` -hhhhL ` 5ȱ 5 5 UL Uȱ U 5 UL` ) Ȋ  ȱ (* L ) Jȱ  ʵ ULHh  UL 3 g H ) Jh襢 UL  `ɰǰɺ)`jHʵj"hL h H*hL h UL ) ) Jȱ  UL H ) Jhq LJ ȱ  5 UL  ȵ Lw  ) ) Jȱ ` H ) Jhq ` uȱ u 5 UL 8 ȵ L    JJJJ7BA@? > =< ; :9876 :  `LLL: L2 Lj L LL L L L Le L ) J  ULȱ  L ) JJ ٥ ͠ ) JH J2ȱ Ih0JHʵj5hL8 `````````       () ```````` ```````````` ```````````` - ````````````` ` ````````` ( ```````````  LsҠùǍ    r M6(o a(ɮîˠ)o Pa()UVWY a(Πϱ)Qrs *APPLESOFT MENU***, :BY LARRY L. FREEMAND DAND JAMES P. DAVISW N OF ABACUS...10) "NO ? THEN WE WILL SIGN OFF.": !P11500:PD "::c 6 ************************w @ SUBROUTINES J ************************ : 10)"REGULAR SPIRAL" :"HERE ARE THE COORDINATES YOU CHOSE:" :" X= K1 *(ANGLE)*:10)"2. EXPONENTIAL"3 :10)"3. LOGARITHMIC"[ :10)"4. SUPERIMPOSED SINE CURVE"g ::: "ENTER YOUR CHOICE(1,2,3, OR 4): ";CH CH1000,2000,3000,4000 22 "DO YOU WANT TO DO THIS AGAIN ? ";C$ (C$,1)"Y"170 : $ |" 4. SUPERIMPOSED SINE CURVE"U :" PRESS SPACE BAR TO GO ON ":ANS$o ******************** MENU FOR TYPE SPIRAL ******************** :: 5 " WHAT TYPE OF SPIRAL DO YOU WANT ? " :10)"1. REGULAR" A FUNCTION OF THE"; P"ROTATING ANGLE. YOU HAVE A CHOICE"] U"OF FOUR TYPES OF SPIRALS :"c Z _" 1. REGULAR : SPREADS OUT EVENLY." a d" 2. EXPONENTIAL: SPREADS INCREASINGLY." n x" 3. LOGARITHMIC: SPREADS DECREASINGLY." z 17)"SPIRAL"D8)"H.EDELSTEIN OCT 23,1979"J#y("PLOTS SPIRALS USING POLAR COORDINATES :"-2" X = K1 * F1(ANGLE) * COS(A * ANGLE)"7<" Y = K2 * F2(ANGLE) * SIN(B * ANGLE)"F K"WHERE F(ANGLE) IS      SSAJOUX" :14)"SPIRAL"W &:::"PRESS SPACE BAR TO END THIS PROGRAM. ":ANS$a 0::CSNX11,Y1SN AX,AYX,Y, AX,AYX,AY: X,AYX,YA LI 22x " DO YOU WANT TO DO THIS AGAIN ? ";B$ (B$,1)"Y"10 : 10 "THE FOLLOWING PROGRAMS ALSO ILLUSTRATE" :"THE USE OF POLAR COORDINATES:" :14)"LI STPPI64& X(L)AXBX(CXL)? Y(L)AYBY(CYL)H :3V "AXBX,AYh ,LANG0STPt 6XX(L) @YY(L) JX1X(LSTP) TY1Y(LSTP) ^0 hAX,AYX1,Y1 rX,AYX1,AY |X1,AYX1,Y1 3 SN((CYL)) X1,YSTART WITH A=1 AND B=1. THIS WILL GIVE"S "YOU A CIRCLE. THEN TRY OTHER VALUES:"} :" ENTER VALUE FOR A : ";CX :" ENTER VALUE FOR B : ";CY PI3.1415926536 AX140 BX79100 AY80 BY70 ANG2.01PIP11)"Y = SIN (B * ANGLE)"K Z:"THESE ARE THE HORIZONTAL AND VERTICAL"w d"LEGS OF THE RIGHT TRIANGLE FORMED BY" n"THE ROTATING ANGLE." s x" BY SPECIFYING DIFFERENT VALUES FOR" "A AND B,YOU CAN GET DIFFERENT CURVES." ' "b  :):12)"POLAR COORDINATES"Q:8)"H.EDELSTEIN OCT 22,1979"(:"ILLUSTRATES HOW CURVES AROUND A POINT"2"ARE BEST PLOTTED BY POLAR COORDINATES."<" THE X,Y COORDINATES HAVE THE FORM:"F:11)"X = COS (A * ANGLE)"    Hɿ L h ơ , )jjH)**h) ȱ ) `ʠڠàҠԠҠŠɠĠ ĠԠĠҠ e  e`  J A ȱ A ơ Ơ`I i)`    ɠ ɍ -`  Lx  Jȥ A ȱ A J  Ơ`  )JJ꽠X,DY,EX,EY,ZC!PI3.1415926536)R7:RADR(2PI)ISTPPI256TAX140eZC0ĪAY80xAY8050(ZC)~:31,11,158278,158278,11,1AX,AYL0RADSTPC(L)AXLBX(CXL)ZZZCS(L)AYLBY(5 25 25 0"9," 2 2 1 1 25 25 25 25 0"d6" 4 4 1 1 25 25 6 6 0"j@pJT"NOTE: KEEP Z LESS THAN 1(E.G.:.1)"^h"NOW ENTER THESE OR YOUR OWN:"r" K1, K2, L1, L2, M1,M2, N1, N2, Z" |BX,BY,CX,CY,DMENSION)"="SEE WHAT CURVES RESULT WHEN YOU CHANGE"^"THE PARAMETERS K,L,M,N,Z."d" SUGGESTED STARTING VALUES ARE:"" K1 K2 L1 L2 M1 M2 N1 N2 Z""--- --- --- --- --- --- --- --- ---""" 2 2 1 1 5 :8"SINE CURVE SUPERIMPOSED ON A REGULAR SPIRAL"e:"HERE ARE THE COORDINATES YOU CHOSE:""X=K1*(ANGLE)*COS(L1*ANGLE)+M1*SIN(N1*ANGLE)*COS(ANGLE)""Y=K2*(ANGLE)*SIN(L2*ANGLE)+M2*SIN(N2*ANGLE)*SIN(ANGLE)" "Z=0 (0>Z<1 ADDS A 3D DI L0RADSTP! L(L)(1L). F1L(L); F2L(L)W C(L)AXF1BX(CXL)c XC(L) S(L)AYF2BY(CYL) YS(L) ZZZC YZYZ* X1ĪX14 X278ĪX278> YZ1ĪYZ1H YZ158ĪYZ158R X,YZ\ Lf  A ? ";CX3N " B ? ";CYSX " Z ? ";ZCgb PI3.1415926536ol R7v RADR(2PI) STPPI32 AX140 ZC0ĪAY80:3225 AY8050(ZC)  :3 1,11,158278,158278,11,1 AX,AY2,A,B."  6 " SUGGESTED STARTING VALUES ARE:"` " K1=30 K2=10 A=1 B=1 Z=0 "NOTE: KEEP Z LESS THAN 1(E.G.:.1)" & "NOW ENTER THESE OR YOUR OWN:"0 " ENTER K1: ";BX: " K2 ? ";BYD " "HERE ARE THE COORDINATES YOU CHOSE:"U :" X= K1 *LOG(1+ANGLE) * COS(A *ANGLE)" :" Y= K2 *LOG(1+ANGLE) * SIN(B *ANGLE)" :" Z=0 (01 ADDS THE 3D DIMENSION)"  "SEE WHAT CURVES RESULT WHEN YOU CHANGE" "THE PARAMETERS K1,K  XC(L)' S(L)AYF2BY(CYL)3 YS(L)> ZZZCI YZYZo (X100X400Y100Y300)2560} X1ĪX1 X278ĪX278 YZ1ĪYZ1 YZ158ĪYZ158 X,YZ L :  : 10)"LOGARITHMIC SPIRAL"& :3.1415926536 R2& RADR(2PI)5 STPPI256@$ AX140W) ZC0ĪAY80:2360j. AY8050(ZC)p8 yB :3L 1,11,158278,158278,11,1V AX,AY` L0RADSTPj E(L).1(L)t F1E(L)~ F2E(L) C(L)AXF1BX(CXL) Z=0"/H"NOTE: KEEP Z LESS THAN 1(E.G.:.1)"5RY\"NOW ENTER THESE OR YOUR OWN:"yf" ENTER K1: ";BXp" K2 ? ";BYz" A ? ";CX" B ? ";CY" Z ? ";ZC PI"0:" Y= EXP( K2 *ANGLE) * SIN( B *ANGLE)"^:" Z=0 (01 ADDS THE 3D DIMENSION)"d "SEE WHAT CURVES RESULT WHEN YOU CHANGE" "THE PARAMETERS K1,K2,A,B."*4" SUGGESTED STARTING VALUES ARE:">6)"K1=1 K2=1 A=5 B=5<XC(L)FYS(L)!PYZYZ/ZX1ĪX1AdX278ĪX278QnYZ1ĪYZ1exYZ158ĪYZ158pX,YZwL}:10)"EXPONENTIAL SPIRAL":"HERE ARE THE COORDINATES YOU CHOSE:":" X= EXP( K1 *ANGLE) * COS( A * ANGLE)CPI3.1415926536R7.RADR(2PI)<STPPI32GAX140^ZC0ĪAY80:1260qAY8050(ZC)w:31,11,158278,158278,11,1 AX,AYL0RADSTPC(L)AXLBX(CXL)(ZZZC2S(L)AYLBY(CYL) A=1 B=1 Z=0"7`"NOTE: KEEP Z LESS THAN 1(E.G.:.1)"=jat"NOW ENTER THESE OR YOUR OWN:"~" ENTER K1: ";BX" K2 ? ";BY" A ? ";CX" B ? ";CY" Z ? ";Z COS(A *ANGLE)"8 :" Y= K2 *(ANGLE)* SIN(B *ANGLE)"f :" Z=0 (01 ADDS THE 3D DIMENSION)"l $ ."SEE WHAT CURVES RESULT WHEN YOU CHANGE" 8"THE PARAMETERS K1,K2,A,B." B L" SUGGESTED STARTING VALUES ARE:"V8)"K1=2 K2=2 11,158278,158278,11,1$ FAX,AY5 PL0RADSTPA xXC(L)M YS(L)[ ZZZ(L)f YZYZt X1ĪX1 X278ĪX278 YZ1ĪYZ1 YZ158ĪYZ158 X,YZ L  23 "DO YOU WANT TO DO THIS AGAIN? ";S$ (S$,1 4' `"ENTER VALUES:";BX,BY,ZC,CX,CY; PI3.1415926536C R7T RADR(2PI)b STPPI32j Z0 C(L)AXBX(L(R2))(CXL) S(L)AYBY(L(R2))(CYL) Z(L)ZC(L(R2)) AX140 AY8050(ZC) ( 2:3 <1,E)" .:" Z=K3*SIN(ANGLE)K 8:"SUGGESTED VALUES OF THE PARAMETERS:"i B15)"K1, K2, K3, A, B" L14)"--- --- --- --- ---" V14)"100, 30, .2, 2, 2" X14)"100, 30, .2, 2, 3" Y14)"100, 50, .3,200,100" Z14)"120, 10, .4, 1, ::,10)"SPHERICAL COORDINATES"T:7)"H.EDELSTEIN NOV 4,1979"::"TRACES A SPIRAL CURVE IN THE FORM OF""A SPHERE. USES SPHERICAL COORDINATES:":" X=K1*SIN(ANGLE)*COS(A*ANGLE)" $:" Y=K2*SIN(ANGLE)*SIN(B*ANGL0) ,L0RADSTP" 6XAXA(L)1 @YAYB(L)Q J(X1X279Y1Y159)350[ TX,Yb ^Lh hp r23 |"DO YOU WANT TO DO THIS AGAIN? ";S$ (S$,1)"Y"10 :A15)"50, 10, 7, 25, 8, 9"" J "ENTER VALUES: ";A1,A2,A3,B1,B2,B3U AX140_ AY80 A(X)A1(A2X)A1(A3X) B(Y)B1(B2Y)B1(B3Y) PI3.14159265 R1.01 RADR2PI STPPI128  :3 "AXA(0),AYB(N(B3*X)". Z:"SUGGESTED PARAMETRIC VALUES:"P d15)"A1, A2, A3, B1, B2, B3"s n14)"--- --- --- --- --- ---" x15)"25, 2, 1, 25, 2, 1" 15)"25, 5, 7, 25, 5, 7" 15)"50, 7, 5, 25, 6, 4 15)"50, 7, 8, 25, 9, 10"   ::15)"ROSETTE"E:7)"H.EDELSTEIN NOV 4,1979"n(:"TRACES 'ROSE PETALS' AROUND THE"2"POINT OF ORIGIN."<" THE PARAMETRIC COORDINATES ARE:"F:" X=A1*SIN(A2*X) + A1*COS(A3*X)" P:" Y=B1*COS(B2*Y) + B1*SIA(L) "YAYB(L)5 ,(X1X279Y1Y159)320? 6X,YF @LL JT T23~ ^"DO YOU WANT TO DO THIS AGAIN? ";S$ h(S$,1)"Y"10 r: |10:18)"THE END" P11000:P A0,300"  : "ENTER VALUES: ";A1,A2,A3,B1,B2,B3E AX140O AY80m A(X)A1(X)A2(A3X) B(Y)B1(Y)B2(B3Y) PI3.14159265 R1.01 RADR2PI STPPI128 :3 AXA(0),AY L0RADSTP XAXIN(Y)+B2*SIN(B3*X)"9 Z:"SUGGESTED PARAMETRIC VALUES:"[ d15)"A1, A2, A3, B1, B2, B3"~ n14)"--- --- --- --- --- ---" x15)"25, 25, 10, 25, 25, 10" 15)"25, 50, 10, 25, 50, 10" 15)"50, 25, 10, 20, 10, 5" 15)"25, 50,300, 25, 5  ::15)"CYCLOIDS"F:7)"H.EDELSTEIN NOV 4,1979"r(:"TRACES A POINT ON A CIRCLE THAT IS"2"ROLLING AROUND ANOTHER CIRCLE. "<" THE PARAMETRIC COORDINATES ARE:"F:" X=A1*COS(X)+A2*COS(A3*X)" P:" Y=B1*S    CYL)XXC(L)YYS(L)8&XXXDX(EXL)(L)Q0YYYDY(EYL)(L)\:YZYZjDX1ĪX1|NX278ĪX278XYZ1ĪYZ1bYZ158ĪYZ158lX,YZvLC90ĺ"YOUR SCORE OF ";S;"% IS GREAT !!":105} gS80ĺ"YOUR SCORE OF ";S;"% WAS GOOD,NEED A LITTLE PRACTICE THOUGH":105 hS70ĺ"YOUR SCORE OF ";S;"% INDICATES NEEDED PRACTICE":105 iT1ĺ"YOU FLUBBED ";T;" TIMES ON THE EXTRA HELP. REVIEWDIVIDED BY ";F;" =":K% 6KPFī303 7TT1:53f KWYZ:"YOU HAVE SOLVED ";Y;" PROBLEMS !!!" d::"YOUR FINAL TALLY IS ";W;" PROBLEMS CORRECT WITHOUT HELP" eS(100Y)W:"THAT GIVES YOU A NUMERICAL SCORE OF ::::::::";S;"%". fS(1)10) E120 F120; YY1:YLY(Y1):75V X((1)10):G(FX)Eb :(12) 9)F;"X * ";E;" =";G:" X=";H : (HXĺ"YOU ARE CORRECT !!":20 )ZZ1 2G" DIVIDED BY ";E;" =":P 3PGE53 4TT1:50 5P;"P:::::10)"BEGINNING ALGEBRA":::7)"ODESSA PAYROLL PRIMETIME":150hY0:Z0:W0:T0:S0::4)"HOW MANY PROBLEMS DO YOU WANT?":::" ";L::"O.K.!! **** ";L;" PROBLEMS IT IS!!!!" E((1)10):F(ŠP8(;@rra@[roM6d6?eS(ҠΠ)&@|`@9()$`@9()$`@9()$_rM6a()Q M6Q;M6o @p(Š)\a(Πˠ)Q}]ԠФĠΠǠĠԮ)^ca(Ԯ)+hca(ΠΠԠ͠)0ica(ˠ٧Ƞ̠)+jca(ԠӠƠ)0kca(ĠϠŠӠƠ)&lca(Ӡ٠Ҡٮ)/@p@\"o @p@\i,o a(ŠӠƠӠˠŠ)cd2e?P a(̠ŠЮ)d2e6o@p(Ԡ٠)\ ;d6?e @M0JM6a(ҠҠΠ٠Ү)Tca(q6a(ɬì)0@p(ΠӠŠӠ)!Ų@p(Ġ)(@p(Ӡ)<@p(̠) M6o@p@\o@pŲ@\oY=KN@"&rCŲ@"&rC@"rC@"rC@"&r ]Ϡ͠Ҡ٠ӮԠŠǠ_ ]ӠҠԠˮ  15) "YOU HAVE ";A;" BYTES AVAILABLE"B "DELETE MEM CHECK"AC"NOMON C,I,O":#10:10>"... PLEASE WAIT ..."DO 2000f"OPEN MEM CHECK"~"WRITE MEM CHECK"("0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000";:AA100240 d  )"Y"1000 :BԠ͠]dedede(de]ԠŠŠϠɯϠӠΠ3a@E(Ǭְ)]ŠǠԠϠXa@E(ң)a@E(Σ)]ԠŠŠ͠͠ɯϠӠΠѰqѱqed"ed#e`d$ed%ed&ed'edd(ed)ed*e`na@E(ΠɬϬ)_Bxd"ed3eca(ԠˠĠӠή)GM6 KM6Hdedede.?6rde.?7rq ]àede ded e]<d eid ed ed e`dededeidedede]Fdededeide@dedededededePdedeKZd ehd!g]ՠ͠+ d6?ed2e]Ǡ KM6^q@p()q.?Jr.?KrN@"rD42rD42r@p()]Ĥ̠ĢΠ(d e@p@]2de8deHdedededed  ΠӠΠԠ̍Ҡ̠Ϡ̠͠ƠˠͩĠˠ͠Ġˠ͠Ġˠ͠Π̤Ҥ̩ϠԠ̍ԠŠӠϠΠŢԠĤŢͤĠàԤͤҠàԤͤΠŠ ԠĠŠŮҤϠԠĤ΢ͤĤŢͤ͠ԠŠҠŠΠԠŠԠԠ͠Ӡ͠ӠΠàŠƠĠŠƠ͠ŠӠĤҤҤŠ ԠҠŠƠàŠϠŠĺԠԠͤƠΠͤ  ΠìɬύĠΠҬıְŠΠҬIJְˠΠҍǍΠìɬύŠҠ؍ōΠìɬύĠǬıְŠǬIJְˠǍǍΠìɬύŠҠ؍ YOUR DIVISION SKILLS SOON !"@ j"DO YOU WANT TO TRY AGAIN";A$P kA$"YES"2~ n"LET'S TRY AGAIN SOON!! APPLE II OUT " sRrE()G+\]ӠĠ͠­٭f\npUV WX"z`.?r.?r$Y'a(ҺӠΠ­)Q%qq\a()G'`$a()G_` *q.? q-rq-rq-r$`$ ]ĠƠ#`$ ]Ġ `%_4\\X4]έ>`$Ca()G_HCa()GqH]ŭ"Ra@*#<()r%q^`<()r%qh`$@m`$r`$llc qd!e!r~\X]Π٭UV WX6qq\d"UVW-rq.?rYUV WX#8 MQedede de]Ġ̣$a(̠ҠؠԿ)G\cq`<()r%q `<()r%q`$@a(ԠҠҿ)G\ JcqT`T LEN START BLEN NAME Lȑ     `ȑ`  .ɀA (DRIVE ERROR) ` (WRITE PROTECTED) ` (VOLUME MISMATCH) ` (READ ERROR) `  婬   ݍ` ]ӠӠĠ L %(!"L,,,`hh L HH`, PRESS RETURN TO CONTINUE% s ɍ` `$ Ld  L$  LL, ,ɛLc $ 0  N `$ 0 PȱL  L  BAD POINTER L   IN DATA SECTOR  ' LL  L LȱL LȱL eiɠ$ 08 i ɠ $ 0 @  ) #L RS=  (effff  K)0 $ N   IN DIRECTORY  ' LL LMȑ eLc LL ȱȱ )<  IN SUB DIRECTORY  ' LL  LȱLL L DECIMAL OR HEX BASE? s ע CRT OR PRINTER? s ᢀ      IN VTOC Lc 8 Đ$ 0 X"L4 TURN ON PRINTER !! VOLUME=  FREE SECTOATIONS USED: P = PROTECTION T = TYPE (EG: A=APPLESOFT) LEN = SECTORS USED ON DISKSTART = BINARY STARTING ADDRESS BLEN = ACTUAL BINARY LENGTH NAME = FILE NAME ( = ABBREVIATED) PRESS "ESC" TO STOP TO RESTART, TYPE: CALL 2048 6d<e8.?rrd=e.?r8.?rrkd>e8.?<rBrd?e.?=r8.?<rBrdBedCede.?>rde.??rM6_ L[   X IMPROVED CATALOG LAWRENCE HALL OF SCIENCEABBREVI     @rrKM6a@H(Π)E@Q@p@*#;@rrKM6a@E(Π)E@QKM6a@E()Q@Π)E@Q@p@*#;@rrKM6a@E(Π)E@QKM6a@E()QrҠϠՠ͠ҠˮŽ)G/^TM6`$`$x`$TPhq-rUVW$d8re.?rY]ͫӠΠƠŠrd8re1|`@*#r9()$]ӠԠ٠@p@*#;ƠŠ¤;"`.?%r$6d!ed e`$%_,o_68,Koa(ԠΠϠ)M6M6oY6Y<@` %a()GbE()Gd2e?a(̠)d2eJKd"eYToa(ԠΩ͠٠Ү E]נŠŠŠǠΠ٬ԧӠԠԠϠŠo,qUVW8.?r.?rrX&`.?r<()r$6 -rq ` %a()GbE()GqUVWd e.?ra@GYc%]ͫΠŠנǠ)a(ŧϠĠϠΠǠ):S()&@`@9()$`@9()$`@9()$_*a@E(Π)E@E(ְ)`@9()%_4]ƠŬŠĠԠƠԠ(a@E(Ġ)E@E(Ұ°)R@qӠנΠ+|]ŠǠŠĠŠΠ`d6?eq8--rr-r-rr&]ŠҠƠĠNd"e M6a(ԠˠŠǠŠ)a(ŠĠҺ)Va(קϠ)2Ja@E(ң)a@E(Σ)]ΠƠԠET-rq-r--rrq.?r.?r`;@r$h.^UVWd--rr e<@*#rrYHh`--rr$d2ea(٠)d2eUVWY r]̠@p())q.?6@r`$`$R@0o.?%rPa(Ǡˠ)F-r"]ΠΠԠ'_63,]ŠΠҠŠŠҠӠ:6d6ed7ed8e(d9eM]ҠӠ@a@E(ŠȠǠ٠Π٬ǠԠMo a(ԠȠˠΠ)a(Ҡ̠ԠŠ)@a(ԠΠϠ)a(ԠçϠŠǠ)cd"e3d2ea(ԠΠҠ)Gd2eù°ðù°ù°ŶİŶ)\M6;@p()\M6a@E(Πìɬ)Fdede-rqde.?6rde.?7rq C].?rq)N@"r@p(Ԡ)G]Ԡ͠ϠŠǠϠ٬̭͠ŠN@"rq_K@B;@rrp(Ÿ)UVW;@rde<@*rrYdHe[z@p(a(٠٠)Xdca(ӠĠǠҠ)a(ӠԠΠŠĠ٠Š)*na(͠͠ŠŠˮ)cKxqq.?Jr.?KrN@"(rD42rC@"r@p()]Ĥ̭5}q`.?r%q.?r $]̭ŠҠ (] 2]7]<_P^FUVW$de.?r`.?r%qYde[]ĠǠ PM6>ZcP a(Šˠ)cP  ] ] ]ŠˠǠ ] ]٠٠Š !] "] #]ӠҠà +q²8² r8±8± rrdeY[X]ҭb`%de.la(ԠΠԠΠŠ) vde[2]ԠӠƠŠծî2]ΠϠŠҠŠ ccc cc ~ Qp]ҠӠŠҭzN@"rC@"FrXq@p(ųĹ°±ƹ±)UVW;@r>@p@*#r±q<@r²q<@*rr6t `-r$ ~ Y UVWq-r- `?$ q`%de \a@G deY `%a@E()G a@q `%q `.?r$  Y Y d!e(rq.? r\n!`$a()G_ ]٠Ԡӭ q\Xq\a()G]Šȭ q`%q$ q\Xq\a()G` ]ŭ%j UV! 8rWXw ]͠à]٠̠<<a(Ġͮ)a(Ġנ)]Ӡ̭#dذqٰ)n]ŠԽҠ͠ xq0qqDױqG<     r []ĠĠ$q.?6@r`$d6?e[b]Ӡ٠ĠΠŠΠϠŠ]ԠԯȠqqq\Lq.? rq.? rq\Lqq`%[`$"q.?r.?r[Dq.?r.?rq.?r.?(Ǡ)o\)a@E()E@E()FE() q\ddedeq\L_^M6P;@r a@[L]ˠĠ Vde `de jde tM~q.? r[devq\L#@p(٠Š)o\\`$@p(Ǡ)o\a@E()E@E()NoM6Pa(Ԡ٠ˠĠԠ)Gd2ea()Gd2e\`$c@p0a(Š)GPa()FG32Pdedea()GM4a()GPa()F:`%Q"D@p(ŠǠӠ)No\\X`$-boM6S(נǠӠ)''ldea(Ԡ) `%a() `%a() `%a()-a(˯)GPa()FE()F$a(Ҡ)GPa()F'&a(Ԡ)GPa()FG1(Pdedea()GM&ea()Gd2ea(Ϡ)\_@\d]ȠҠ`@:()$@p(ŠԠ) o \UVWXY_^o M6-a(Š)GPa()G`%a()Ga@a(Š)GPa()G `%r"1qq qI6@p()@p()@p()"@KM6@p(Ӡ)\c!J@p(ŠŠ­)\Tc@p(٠Ġ)\^o M6 hS(ӠƠŠŠ)&@r`@:()$|M6a@E()c>a(Ԡ)Gd2Y_Yq.?rq.?r`$x @p()[q.?rq.?rq.?rq.?!rq8rq "\[+]Π͠,N@"rC@"rC@"_,d]ˠҠŠŠnqq q;@rxq\LUV WX#`.?r$`.?r$,UVW`.?r<@*#rr$Y`$*UVW`.?r$ 6d<e8.?rrd=e.?r8.?rrkd>e8.?<r[rd?e.?=r8.?<r[rdBedCede.?>rde.??rM6_   ȱȥ     ȱ `   Lb     q-r\F@p@*#rq-r]ԠŠ&UVW-rX&\F!0]Ԡ̬ŬŬ1:a@a@*#ra@*#ra@*#;@rr DYYNa@E(Š)E@ ScccXa(ćχ·Ň)KQ(UVW;@rq <@*#rrY&a@E(Š)E@E(Ұ°)b)a@E(Š)E@a@E(Π)E@La(ǠŠΠ̠Šخ)bXE(Ũө)a@E(Š)E@`@9()%bUVW-r;a()G_+:o P8 r\a()G_EXUVW6-rq-r\qqY`$`$l8bUVW-rq-r\qYq6`$*lUVW-rq-r\:Yq6_C`$`$UVWVWq.?rdeY[UVW q.?rY[.\oPa@*-r#-rrG[\oPa()G[+o P8 r\a()G_[&o P8 r\a@*-r#-rrGo P8 rrp@*-r#-rrY0q UVWa@*#rG\YP\d$Po`$M6_Bccqq-r'UVW q-r'q-r'YIa(Ӻ)FE(ӠҠź)F<82 rE()_&U˵&-rq-rqqY`$*qUVW-rq-r\qYbq/?rq/?rUVW-rq-r-rq-rqq`%q`%qcYo Pa()Pa()o PUVW @B`$Y_ qq Y_ _UVW qd6?e`$`$UVW-rq-r\qY_H`$ -rq-r\qqq`$X`$VqUVWq/?r-rq-r\!`8-rr8r%-rqMYUVW -rqYUVW8rq-rq-r`$1`$q-rq\q\ _"`$q-rq_!q-rq\q\( `:%q:"YqqYq` %[UVW-rqY[2a()G_x#dUVW@p@*#rq_ n-rqqY[/xUV 'W'q.?rdeYq_n5cUV8rW q-rq-r`$%`8-rr8r%-rq(DdedeN@"rq@p()q6?KM6_@ a()Gd$e.?$r q.?6@r`$q_ :d6?e`@:@*#r$a()c`<@r$n_x;`$2`$(`%a@*#rG`<@r$n_x7(           !!! ! ! ! ! !!!!!!!!!"M_](Kd6?eM6o Pa(Š) a()Q2'd6?eKM6o Pa(Š)a()QĿ)&@4`;@r$H>a@H()E@H()HdԴe[RM6o]HdedDZedԴeM6oa(̠Ҡſίɠ)#q.?r`$de`<()r$de_dedԴe(ΠנӠ)c,a(ΠŠԠžϠŠ)a(̠ϠŠ)ca(Ԡ٠)#`.?r$de[]C M6dԴeoa(͠)**oS(ӠŠϠŠP a(٠̠)vca(Ӻ)cc?a(ŠӠϠŠŠҠϠŠĮκ)\ca(̨Π̠͠Π)a(̨Π̠ΠՠϠŠ)cHa(ŠΠŠԠξϠ)aqMq\q0Mױq?q Mױq\qMױ[]dDzeM7`.?r<()r$`.?r$`.?±r$dedDZe[] XKM6boP a(͠)lc̠ ,M66\XM@de\ J\TUVW Y\Y`.?6@r%_'^`.?°r%\h`.?r$@ r\_T |_T]Oٰq2?rUVWYذq2?r2`ذ]%ذq]`ذ%ذqq?q8rq7qqS°q6?±q6?DZq6?Dzq6?q6@q6?Դq6?Դq6?Kd(e0d)ed0ed1ed2ed3ed4ed5e/N@"rqq@p()]?rUVW-rq-r-rq-rqq`%q`%qYRoPUVW @Brp@*-r#-rrYa@Gq oP\d9qUVW `-r$q-rq-r_8q-rq-rq)oP \a(Ҡ)#Z\oPa(Ԡ)G-dq.?6@r`$dd6?e`$T$*nq0`$`$_dFpM6q(UVW-rq-rq`%q`$Yezq/?rq/ȠӠǠĠĠΠҠŠӠΠŠ) o\ UVWoM6dY-#UVW\oPa(Π)G:(\Pa()GY\Pa(Π)G2\ NPoP \a(_t8`$B*=q8Zr@p@*#r_tB`$L*Gq8r@p@*#r_tL`$V*Qq8r@p@*#r_t%Vq8r@p@*#rt[ KM6ce\a(Ӡrp@*#rcc\U@Brp@q;@ra@*rG\q;@r@Brp()qa()G`$,q@Brp@*#rqc\[$`-$.")@p@*#r_t.`Z$8*3q8-r@p@*#rqq/? r@Brp@*#rq&@Brp()`(Ĥ):@*#r$J@Brp()qq/? r@Brp@*#rq@Brp()@q;@rqUVWX6`()9@*#r%qY@Brp()`;@r'$)q@Brq@Brp()_@Brp()qfq/?rq/?r@Brp@*#rq@Brp@*#rq@Brp()qU@Brp()`8(Ԥ):@*#rr8(Ԥ):@*#rr8(Ĥ):@*#rr$?@Brp()Vrq/?rq/?r@Brp@*#rq@Brp@*#rq_Q|q/? rq/? r@Brp@*#rq@Brp@*#rq&@Brp()`():@*#r$O@Brp()qq/?r@Brp@*#r8/?rr%@Brp()Y_8Jq8/?rr@p@*#rq;@rq0TUVWX6`()9@*#r%qY@Brp()P^`8@9()r8@9()r8@9()r8@9(Ԥ)r8@9(Ԥ)r8@9(Ĥ)r$(h@Brp()q`/?r$|`%q-r`%q-r`$%qq(`%q.@p()q/?r`$J`$q/?r\$_QUVW q/?r@Brp@*#r`%@Brp()`%@Brp()3"`8r8rE()G-rq5\ Y`-r%a(Π)G`-r%a(Š)Gf c4~ca(Ҡ٠Ӡ)F8rdE(Ԯ)/q 88 r8'rr-ca(ҠŠӠ)FE(ӠҠŮ)c[@p()qqq%FE(ӠΠ)a(ǠӺ)c; UVWR`-r$ a@*#rE()G-rq Y8 `-r%a(Π)G`-r%a(Š)GccH `$~[R a(ՠŠҠΠŠӺ)cUVWR`-r%a@*#qq+0 UVWq<@*#rr`-r'$D ": -rqq-rq-r'D q-r`'$X N q'q'X `-r%-rqq@ Y`-r'$ q<@*#rr-rq-rq c`$H A a(ՠĠ) P8 r\a@*-r#-rrG[> o P8 r\a@*-r#-rrG[ d6?e q6@q6? oP \d`$  qM6[* M6oPa(ȠӺ)& qq*UVW\Y_--rq - rq M6qq?oPa()GPa()GPa()Pa()!`$4UVW\( Y!4`$ UVW\ Y _) q888rr84r82r_X>( o-rq-r\qY_-UVW-rq-r\qYq6DqUVWq/?r-rq-r-rq-r\&qY_k q-rq-r\-rq-r-rq<@*#rr-rq-rqqq-rڿ)ST$M6oP \a(Ǡ)o \P a(Š)"^$oP\a(Ԡ)9h$q.?6@r`$h$d6?eq0`$h$m$`6$`$h$?r$`q6q6q2q<#UVW-rqY3#`$#qq`$#q'q$#UVWq-r-rqYq5#UVW@Brp()`%@Brp@*#rYk#@Brp()@Brp@*#r@Brp(|x#@p(ӠàΠΠĠ ӠàŠ̠ҤҤԤԤĤΠΠӠΠ)-}#@Bsrp(ΠԠҠРǠ)1#qUVW:-rq<@*;#;rrD#-rq<@*#rrYq:Ҡ)Ad#@Brp(ԠؠԠԠϠ)n#-rq-rq-rq -rq -rq-rq*-rq4-rqL- rq- rq- rq's#- rq- rq-rq )P#@Brp(ΠԠԠΠΠϠĠ)@p(ΠΠΠΠ  )U#@B8rp()sZ#@B=rp(̠ŠΠРĠŠԠȠŠˠΠ)<#@Brp(ΠԠǠŠȠ)@p(Ԡ٠٠ŠΠĠĠנǠ٠)A#@BGrp()sF#@BLrp(נԠנΠŠ٠ΠΠΠΠנǠΠΠΠp(Ҡ٠ϠϠԠ)@p(РԠԠ͠Š͠ŠŠŠ͠)-#@BGrp(РŠ)}2#@BQrp(ŠŠ٠ŠԠ٠ҠŠ͠٠͠͠Ġ͠ŠŠΠĠ٠#@Brp(ԠԠԠ)@p(ӠԠԠԠԠ٠Ԡ٠ԠРŠ̠ԠŠ)}#@BVrp(٠ӠϠϠ٠ϠԠ٠ȠӠՠҠԠ)z(#@BrĠР̠)n#@p(Р̠ˠŠРРϠӠĠנĠӠŠРҠŠӠĠ)} #@Berp(נŠנȠȠҠҠԠŠ٠ԠԠ٠ԠԠ)zƻ̻)}"@p(ӠĠӠˠ̠ӻŠӻŠҠ̠ĠĠŠӠŻҠϻӠ)}"@Btrp(נҠҠˠƠƠĠҠҠϠˠӠŠ̠Š̠ˠ4rD4rD4rD4 r#"UVWR-rq-rqY$"@p()r"@p(̻ìخگ)@B;@rrp@*#r@B;@rrp()E"@p(ʻ˻ƻƻƻ_r&"qq;qq qb"N@"rC@"rC@"rC@"rC@"rC@"rC@"rC@"rC@"rC@"8rrW"O4rC@"rD4rD4rD4rC@"rC@"rC@"rC@"rC@"r5"O4RrD4RrC@"rD$j-noPM6dP\a(ˠՠ)rq.?r`<()r$|q.?r`<()r$q.?r`@$5de de"de @_",q.?r`8r8r$ q_$ q.?r.?rq).OoP \a(éԬî)=To P\a()oP\a()%YoP\a()\-joPa(ԠӠϠΠ)GGlq.?6@r`$jd6?eq0`$j`Ӏ0`6$T$/`$`$`$`$0q8r8r`%qq_(q.?6@rd6?e` $[8@M6\oPa(ŠŠӠ)E\,JoP \a(ǠҠ8Y`$pM6_ LXoP\a(נҠ)P\a(Š)NbP\a(ŠҠ)P\a(Š)"loP\a(Ԩ)G:q.?6@r`$d6?eq 5-" LISSAJOUX CURVES"X(::" H.EDELSTEIN OCT 19, 1979"d2:::<"A FAMILY OF CURVES GENERATED BY CHANGING"F"ANGLES IN THE POLAR COORDINATES THAT"P:"SPECIFY THE POINTS AS THEY ARE PLOTTED" Z:"THROUGH"  3995LEEP"176,HE:175,LE(0 G WRITTEN BY MeROBERTS R. STEWART763 SOUTH WAYNE PLACEWHEELING, IL 60090 COPYRIGHT OCT 19801::"NO LINE # 65535":,EPEP1:EP,188>I1((EL))[EPI,(((EL),I,1)):InEPEP((EL)){EP1,58EP2,128EP3,0EP4,0EP5,0EP6,10EPEP6HE0:LE0EP256ī63997EPEP256:HEHE1:6Ğ:"CONTROL";::" C ";::"INTERUPT ATTEMPTED"::63975X:"UNKNOWN ERROR CODE";:t" ERROR = ";ER" IN LINE # ";::EL:HE(176)256LE(175)EPHELE(EP)25563981EPEP1:63979(EP1)25563983ER163Ğ:"TYPE MISMATCH";::63975OER176Ğ:"STRING TO LONG";::63975~ER191Ğ:"FORMULA TOO COMPLEX";::63975ER224Ğ:"UNDEFINED FUNCTION";::63975ER254Ğ:"BAD RESPONSE TO";::" INPUT ";::"STATEMENT"::639759ER25575%ER69Ğ:"OVERFLOW";::63975MER77Ğ:"OUT OF MEMORY";::63975{ER90Ğ:"UNDEFINED STATEMENT";::63975ER107Ğ:"BAD SUBSCRIPT";::63975ER120Ğ:"REDIMENSIONED ARRAY";::63975ER133Ğ:"DIVIDED BY 0 ";::63975%8)(219)256:MER0Ğ:"NEXT";::" WITHOUT ";::"FOR";::63975tER16Ğ:"SYNTAX ERROR";::63975ER22Ğ:"RETURN";::" WITHOUT ";::"GOSUB";::63975ER42Ğ:"OUT OF DATA";::63975ER53Ğ:"ILLEGAL QUANTITY";::639. ~"BE SURE TO EITHER CHANGE THE ONERR GOTO"] "OR WRITE YOUR OWN ERROR HANDLER TO TAKE"{ "THE PLACE OF MINE.":: 218,1:219,0 "PAUSE....":I13000:I 255:63952 255: *** ERROR HANDLER *** ER(222) EL(21THE LINE IS LISTED." J::K T"I WILL NOW POKE THE LINE-IN-ERROR = 1"p ^"AND LET YOU SEE WHAT HAPPENS."v h r"I WILL NOT CHANGE THE ERROR, SO WHAT-" |"EVER WAS THERE IS WHAT YOU WILL GET." }:"WHEN YOU ARE DONE TESTING THE PROGRAM,"ANDLER."8 :" THE ERROR HANDLER THEN PRINTS OUT THE"g "TYPE OF ERROR. THE LINE WHERE THE ERROR" ""OCCURRED IS THEN POKED INTO THE LAST" ,"LINE IN THE PROGRAM, THE NEW END OF" 6"PROGRAM IS DETERMINED AND POKED" @"INTO MEMORY, & THEN OCCURS, THE ERROR WILL BE"I "DESCRIBED & THE LINE WHERE IT OCCURRED"m "WILL THEN BE LISTED FOR YOU."w :: :"METHOD...":: "LINE 0 IS THE ONERR GOTO" "WHEN AN ERROR IS ENCOUNTERED THE " "PROGRAM JUMPS TO THE ERROR HND IT USEFUL ALSO." d::8 n:"HOW TO USE..."::^ x"START WITH THIS BASIC PROGRAM."~ "DELETE LINES 1 THRU 1000" " (THAT REMOVES THESE INSTRUCTIONS)" "THEN WRITE YOUR PROGRAM BETWEEN " "LINES 0 - 63000"  "IF AN ERROR 63952" TEST LINE,:75G " ERROR HANDLER"\" BY"v" ROB STEWART"(I11000:I2:<" THIS IS A PROGRAM DEBUGGING AID"F"THAT I WROTE TO HELP MYSELF."P: Z"PERHAPS YOU WILL FI" " " " " """""""$q8r8r8rM6c^|$\a(ӠȠӠǠĠĠΠҠ̠̠Ů)_$