' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈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)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./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"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌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`   LDcpq` [` ~  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օ3L 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@` ŵL^Lõ`  \ 濭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- (  Ϡ@跻~!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ȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵ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 ~(` i d ֠z# u`` 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ޢ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[b@l  . $ ; &?1?=A>?I i`HH11`IJ듧ƙɾ5Ė+]̵--NO CARD OR CAN'T RELOAD" 2 (768)0Ā ":"...LANGUAGE CARD CANNOT BE RELOADED":" UNTIL THE SYSTEM IS REBOOTED..." ,: A:X1BA1:C$;::# : :49234,0:X039J ((1)16)X X,39XXi X,47X39Xz 39X,X47X 47X,XX X::: 8,31,6,17R" ' A3:"ALL RIGHTS RESERVED"7 X1700:XC :1000w :20:2:"WOULD YOU LIKE TO SEE THE CATALOG?"; Y$:Y$"Y"Y$"N"200 Y$"N"ė: ::(4);"CATALOG" A:C:X1BA1:C$;:: YCD A:C$:B:C$:Y****** [$ _::C$"*":A,B,C,D4 d2000:3:8V n:"MICRO ON THE APPLE: DISK"b x:1000 :C2:A3:"MICRO ON THE APPLE" C3:A9:"VOL. 2" A3:C5:"COPYRIGHT (C) 1981" A5:"MICRO INK, INC." A2:"CHELMSFORD, MA 01824 **********************; * *X * MICRO/APPLE HEADER *u( * *2 * COPYRIGHT (C) 1981 *< * MICRO INK, INC. *F * ALL RIGHTS RESERVED*P * * Z ****************  ٹ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                    6: 769 (768)1250% I --IF THERE, LOAD INTG AND PA#1P 10:"(LOADING INTEGER INTO LANGUAGE CARD)" "BLOAD INTBASIC,A$D000" --WRITE PROTECT THE CARD A(16254): $C082 "RUN MICRO ON THE APPLE 2"  804,0:805,208:806,208:807,10:808,173:809,129:810,192:811,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,9,104:W _777,72:778,205:779,0:780,224:781,208:782,35:783,173:784,131:785,192: 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:N n -- DOS 3.3 HELLO  (:.(Y2"DOS VERSION 3.3 08/25/80"<:"APPLE II PLUS OR ROMCARD SYSTEM MASTER"F P --POKE LANGUAGE CARD FINDER Z768,0:769,173:770,0:771,224:772,72:773,173:774,129:775,192:776    ŠӠΠ)- a(ŠΠϠϠԠŠϠɠ)$ a(ĠΠϠҠ) _(#Qq/? rq/? r`.?6?r%Lq`%q`%q f-rq82?rr UV6W`.?6?r$YUVW!q/?rq/?r\dYY_xqq q_x LM6& a(rq-rq [- rq - rq- rq - rq - rq-rq-rq -rq(_ Kdghg&hgh&g&h&ghg&h&gh&g&hn[ xq}q/?rq/? rq/? rUVW Ԡé ]Ϡˬî ]Ĭ ]̠ӠĠ ]]]]cO4r-rq-rq-rq-rq-rq-rq-{]]]άŬĠ]ĠҠ]]ίŠ]] ] 'L67 ` `ɀ ɠɍ)?L.L89 ` ` ɋ`Ɍ`ɏ`)16 BB48:B57BB7& (B);= AA48:A57AA7K (A)" ";Q X18:958:"VALUE= "X- @:"ACCUMULATOR: $";< JN793799L TA(N):450V ^::m h"VARIABLE: $"; rB(105)(106)2562 |NBB4 A(N):450 : D$;"PR#0" 230 :  DECIMAL TO HEX SUB AA16:B(A) A(ABSIONS ON THE"a "PRINTER, FOLLOW THE VALUE WITH A 'P'. TO RETURN TO BASIC, HIT (RETURN) KEY."o 14:868 "ENTER VALUE: ";A$ A$""Ģ23:: ""=NULL$ (A$,1)"P"300 D$;"PR#1"  PRINTER IN SLOT #1 ": ,X(A$):768 664,106,144,1,200' 32,249,234,160,6> 185,157,0,153,25T 3,136,16,247,96} ::7)"FLOATING POINT CONVERSIONS" ::"INSTRUCTIONS-" :"ENTER VALUE YOU WISH CONVERTED TO FLOATING POINT REPRESENTATION. IF YOU WISH TO PRINT THE CONVER* CHELMSFORD, MA 01824 *6 * ALL RIGHTS RESERVED *T * *s ************************ y   P: ZX0:D$(4) dN768792 nA:N,A x ESTABLISH CONVERSION ROUTINE AT $300 165,105,24,105,2 1R  ************************? * *^ * FLOATING POINT *} * ROUTINES * * R.M. MOTTOLA * * * * COPYRIGHT (C) 1981 * * MICRO INK, INC. *      ܅ȱ܅ΥL^@8L,G FI GI F` ,0̨JJJJ H) 0ii0HF$I  'I h Ю``m`  Y```  L  *  ; 8 8,  8 8)"/  ; ; ; ;X` 8 ,   *  ; 8 8,  8 8)"/  ; ; ; ;X` 4Y6 D X1,X4Y101*X1,X4Y1184FG>Y1,Y5XNHB_RY1,Y5X5f\EvfY6,Y10X}pCzY6,Y10X55:D0:E0:F0:G0:2000DA15:B15:C15:D15:E15:F15:G15:2000pA15:B15:C15:D15:E0:F15:G15:2000A0:B0:C0:D0:E0:F0:GO:J0:2000 SEVEN SEGMENT DISPLAYAX1,X4YX1,X4Y1GX1,X4Y5 X1,X5:D0:E0:F0:G0:2000B`A15:B15:C0:D15:E15:F0:G15:2000mjA15:B15:C15:D15:E0:F0:G15:2000tA0:B15:C15:D0:E0:F15:G15:2000~A15:B0:C15:D15:E0:F15:G15:2000A15:B0:C15:D15:E15:F15:G15:2000A15:B15:C1GIT/JTFI100J10: SEPARATE ONE'S DIGITdX17:Y9:1000: DISPLAY FAHRENHEIT ONE'S DIGITm220 SEVEN SEGMENT ENCODERJ1110,1120,1130,1140,1150,1160,1170,1180,1190,1200LA15:B15:C15:D15:E15:F15:G0:2000VA0:B15:C1IT&J0J10: BLANK LEADING ZERO^X1:Y9:1000: DISPLAY FAHRENHEIT HUNDRED'S DIGITJ((TFJ100)10): SEPARATE TEN'S DIGITI0J0J10: BLANK BOTH HUNDRED'S AND TEN'S LEADING ZEROSX9:Y9:1000: DISPLAY FAHRENHEIT TEN'S DICIUS ONE'S DIGITr|TF(9(1(1T(RORI)BETA)273)532.5): CALCULATE FAHRENHEIT & ROUND TO NEAREST INTEGER}SIGN0TF0SIGN15SIGN3,512:3,513: DISPLAY NEGATIVE SIGNTF(TF)J(TF100):IJ: SEPARATE HUNDRED'S DIG((TCJ100)10): SEPARATE TEN'S DIGITTI0J0J10: BLANK BOTH HUNDRED'S AND TEN'S LEADING ZEROS IF J&I ARE BOTH ZERO^X9:Y26:1000: DISPLAY CELCIUS TEN'S DIGIThJTCI100J10: SEPARATE ONE'S DIGITrX17:Y26:1000: DISPLAY CEL OVERFLOWING DISPLAY SIGN01 TC0SIGN15; SIGNh 3,529:3,530: DISPLAY NEGATIVE SIGNu "TC(TC) ,J(TC100):IJ: SEPARATE HUNDRED'S DIGIT 6J0J10: BLANK LEADING ZERO @X1:Y26:1000: DISPLAY CELCIUS HUNDRED'S(JJ98 DEGREES ABSOLUTEI RI589.94(NUMBER): READ INPUT & SCALE TO OHMSt RI0RI1: PREVENT DIVISION BY ZERO TC(1(1T(RORI)BETA)272.5): CALCULATE TEMPERATURE IN DEGREES CELCIUS AND ROUND TO NEAREST INTEGER (TC)999ī220: LIMIT34,389:34,3810:34,3614:34,3615:9,2033o 26,2723:26,2724:26,2726:26,2727:24,2625:24,2628 28,2938:27,2837:26,2736:26,2735:27,2834 28,3533:35,3634:36,3735:36,3736:35,3637:34,3538 T298: SET T(0) AT 2INPUT DO YOU WANT(0,1,2,3)":NUMBERa x"WHAT THERMISTOR CONSTANTS DO YOU WANT(RO,RATIO)":RO,RAy }BETA1.7636E3(RA) : CLEAR SCREEN PRINT TEMPERATURE SCALE CHARACTERS :15 26,276:26,277:26,279:26,2710:7,925:7,928/ * MICRO INK, INC. *7 7 * CHELMSFORD, MA 01824 *V < * ALL RIGHTS RESERVED *u A * * F ************************ P Z d DIGITAL THERMOMETER FOR THERMISTOR PROBE(DISPLAYS BOTH CELCIUS &FAHRENHEIT)# n"WHICH  ************************? * *^ * DIGITAL THERMOMETER *} * CARL KERSHNER * * *# * THERMOMETER *( * *- * COPYRIGHT (C) 1981 * 2 z #? ͭ͠Ҡ ǠԠӠԠίŠ ϠΠŠŠ  ɭŠҠΠӠ٠ àҠ٠Ҡ Ҡ  ԠР ٠ŠĠ"ҠŠҠՠ Ҡ ŠӠ  ԠϠ  ԠŠԠ ŠԠ ŠԠ Ҡ Ӡ   ͭҭɠ ͭҭ ԠǠ ȠǠȠؠϠӠ ! έ! ΠŠ! Ҡ!̠!ŠԠ Š ؠҠ Ϡ à2" Ҡ"ЭŠ"ЭŮ"Ҡ"˭Ġ     ,160,32,237,253,177,60,32,218,253,32,186,252,144,232,96 THE BASIC PRGM + DUMP ROUTINE OCCUPY $800-$1040. IF THE BINARYDATA TO BE SENT RESIDES IN THIS RANGE, IT MUST FIRST BE RELOCATED WITH THE MONITOR MOVE COMMAND.NR HALF-DUPLEX).X LINES 420/450 LOAD RELOCATED MEMORY DUMP ROUTINE AT $1000.tM40964147:D:M,D:Mz 164,61,166,60,32,142,253,32,64,249,160,0,169,186,76,237,253,165,60,9,7,133,62,165,61,133,63,165,60,41,7,208,3,32,0,167 169 *** ALL DONE ***"h:"THE SENDING COMPUTERIS NOW IN TERMINAL MODE & THE RECEIVING COMPUTER HAS BEEN RETURNED WITH BASIC UP IN REMOTE MODE."r::15:"HIT RETURN":|D$"IN #2"1914,138: INITIATE TEMINAL MODE/FULL-DUPLEX (USE 10 FO0" D$"PR #2"! "CALL-151"@ : SENDS CARRIAGE RETURN.S I1(NB8)1u (16384)127Ĺ16368,0:300 4113: CALLS MACHINE LANGUAGE ROUTINE BELOW. "I , 6"3DOG" @D$"PR #0" J T1530,3: NORMAL 30 MSEC WAIT^" 256) LINE 190 PLACES THE DECIMAL EQUIVALENTS OF THE HIGH & LOW BYTE ADDRESS INTO THE PAGE 0 LOCATIONS USED BY THE MEMORY DUMP ROUTINE. 61,HB:60,LB "NUMBER OF BYTES (DECIMAL) ";NB ::6:"HITTING ANY KEY ABORTS TRANSFER": D$"IN #(A$)2133(A$)8200&340,W:16302,0:D$;"BLOAD RIP.PIC,A$4000"l24784:16368,0z16299,0I1500: (16384)128ī1016300,0:I1500:1027 BOVE"5T21:5:"SELECT ONE < > <- -> FOR MORE";O^21:17:A$::A$::xhA$"1"ĺ(4)"BRUN COPY II PLUS 3.0"rA$"2"ĺ(4)"BRUN FDOS COPY|A$"3"IJPRINTCHR$(4)"RUN NIBBLE COPIER"A$"4"IJPRINTCHR$(4)"RUN NIBBLE COPY VERSION 3"  VERSION 3.0 COPIER (30 SEC/DISK)"g@" <2> FDOS COPY PROGRAM":" COPIES ALL BUT THE DOS"JPRINT:PRINT" <3> NIBBLE COPY 2.COPIES A FEW DISKS"OPRINT:PRINT" <4> NIBBLE COPY...A SLIGHTLY BETTER":PRINT" VERSION 3 COPIER THAN AICK AND DIRTY"3 A$"2"ĺ(4)"RUN NIBBLE COPIER"b A$"3"ĺ(4)"RUN NIBBLE COPIER VERSION 2" A$"4"ĺ(4)"RUN NIBBLE COPIER VERSION 3" "(A$)21300 $(A$)833 '240 ,4:958&6::" <1> COPY II PLUS..SUPERFAST NIBBLE ":" D ":21:"PROGRAMS."D :" <3> NIBBLE COPY 2.COPIES A FEW DISKS" :" <4> NIBBLE COPY...A SLIGHTLY BETTER":" VERSION 3 COPIER THAN ABOVE" 21:5:"SELECT ONE < > <- -> FOR MORE"; 21:17:A$::A$:: A$"1"ĺ(4)"BRUN QUBRUN LOCKSMITH 3.1": A$"4"ĺ(4);"BRUN LOCKSMITH 4.1"L (A$)21200] (A$)8300f 100s 4:958 ::" <1> QUICK & DIRTY.FASTER COPYING OF":21:"PROTECTED DISKS": " <2> NIBBLE COPY...THE ORIGINAL FOR":21:"COPYING PROTECTEE THAT":21:"OTHERS WON'T"! 7N <" <4> LOCKSMITH 4.1.THE NEWEST COPIER"~ d21:5:"SELECT ONE < > <- -> FOR MORE"; n21:17:A$::A$:: xA$"1"ĺ(4);"BRUN SUPER DISK COPY 3.6" A$"2"ĺ(4);"BRUN LOCKSMITH 2.0" A$"3"ĺ(4);"X:" "" !4:958o #::" <1> SUPERCOPY 3.6.FOR COPYING NORMAL":21:"FILES:DOS 3.2 & 3.3"u $ (" <2> LOCKSMITH 2.0.CAN COPY IT'S OWN":21:"COPIES,AND A FEW":21:"LOCKSMITH 3.1 CAN'T" - 2" <3> LOCKSMITH 3.1.COPIES SOM  10:"PRESS ANY KEY TO OMIT PICTURE...QUICK!":I1100:(16384)12810Z14:8:"TOO LATE!!!":I1200:ID$(4)10001012,0  16368,0X14X:" "X:" NIBBLE COPY "      G ADDRESS-":"(MUST END WITH 0 OR 8)";ST$b d LINES 110/170 - HEXIDECIMAL TO DECIMAL CONVERSION.| nZ$"0123456789ABCDEF" xI(ST$)11 J1(Z$) (Z$,J,1)(ST$,I,1)ĂJ DECDEC(J1)(16X) XX1:I HB(DEC256):LBDEC(HBMPUTER IN REMOTE MODE WITH EITHER BASIC INITIALIZED?";ANS$@ <l F(ANS$,1)"Y"ĺ"TRANSFER ADANDONED": P1530,60:1914,18: 600 MSEC WAIT AFTER CARRIAGE RETURN.AUTO LINE FEED IS ACIVATED AND THE WAIT FUNCTION + LOCAL DISPLAY ENABLED.) Z"STARTIN* MICRO INK, INC. *6 * CHELMSFORD, MA 01824 *T * ALL RIGHTS RESERVED *r * * ************************    BINARY TRANSFER/MICROMODEM II D$(4) D$"NOMON C,I,O" (420: 2"IS RECEIVING CO  ************************? * *^ * MICROMODEM TRANSFERS *} * GEORGE DOMBROWSKI * * * * BINARY TRANSFER * * * * COPYRIGHT (C) 1981 * PROGRAMS A GREATER DELAY MAY BE REQUIRED."> d"POKE 1914,18"P n"POKE 33,30"\ x"IN#0"h "PR#2"t "LIST" "PR#0" "IN#2" "TEXT" "POKE 1530,3" "POKE 1914,138" D$"CLOSE" TROL OF RECEIVING MACHINEK ( LEAVE TERMINAL MODE BY TYPING CTRL-A/CTRL-Xy 2 THEN TYPE <D$(4) FD$"OPEN BASIC PROGRAM TRANSFER" PD$"WRITE BASIC PROGRAM TRANSFER"* Z"POKE 1530,80:REM FOR LONG FLOATING POINT * MICRO INK, INC. *6 * CHELMSFORD, MA 01824 *T * ALL RIGHTS RESERVED *r * * ************************    BASIC TRANSFER/MICROMODEM II  FIRST RUN THIS PROGRAM AND THEN  ESTABLISH REMOTE CON  ************************? * *^ * MICROMODEM TRANSFERS *} * GEORGE DOMBROWSKI * * * * BASIC TRANSFER * * * * COPYRIGHT (C) 1981 *  bJdedeMq8.?rr.?r&q88.?Xrrrqa()F_<\,a(ϠƠ)d6?e\,ca(ĠƠŪ) M6,UVW1q.?6?r.?6?rY 6M6#["(a(Š͠Š)"2a()<MHM6F`.?r<()r$P`.?r<()r$;d]Ġ͠Ϡ٠נŠ٠ͮiq.?Xr!nd<e.?rd=e8.?rrxd>ed?eM6ˬî ]Ĭ ]̠ӠĠ ] ]]]]qM6o8 rN@"r2S(Ԡ٠ŠĠӠΧ)&@d6?eM6\,]]]ŠϮӮ]٠ԠΠ]]Ӡ]]Ԡé ]    ʭ˩в^ Ш H_LLL@Ӎ gʍˍ ʥ ` ~ǿ` b`- H`a lhɍ` 񩠑`` Q=<` YP  H P _`H^ h L੣ g H ) ` ݣ 2000:I j 'E B1(1)  C1(2)* "A1=";A18 "B1=";B1F !"C1=";C1V $D1A1B1C1c .A1D1A1p 8B1D1B1} BC1D1C1 L"CORRECTION FACTOR FOR RED = ";A1 V"CORRECTION FACTOR FOR BLUE = ";B1 `"CORRECTION FACTOR FOR YELLOW = ";C1 eI1BACĺ"RED"# |ABACĺ"GREEN"; }BABCĺ"ORANGE"Q ~CACBĺ"PURPLE"h BCB(A)ĺ"BLUE" "*********************" X12300:X 30 936: "POINT GUN AT A WHITE SHEET OF PAPER" I11500:I A1(0)  936:: A(0) ## (B(1)) -4 2C(2): 7E <AAA1P =BBB1[ >CCC1g FBB1.5z d"RED CELL=";A n"BLUE CELL=";B s"YELLOW CELL=";C t: u"THE COLOR IS:": v"*********************" yCBC(A)ĺ"YELLOW" {A* ALL RIGHTS RESERVED *6 * *T ************************Z ` f  936:10:10:"COLOR GUN BY NEIL D. LIPSON":I12000:I   YELLOW-2  BLUE -1  RED -0  936:::: 1000   ************************? * *^ * COLOR GUN *} * NEIL LIPSON * * * * COPYRIGHT (C) 1981 * * MICRO INK, INC. * * CHELMSFORD, MA 01824 * a(ҠƠŠΠՠԠϠϮ).r$a(Ҡ̠٠ȠӠĠ)+|$a(ǠŠҬƩ̠٠)+$a(ՠŠРϠӮĠˡ)'[a٠ΠŠҭ)$a(ԠŮ)-"$a(ҠРӠĠȠӭ)*,$a(٠ǠҠή)-6$a(ΠӠŠȠɭ),@$a(ӠǩŠĮ)*^$a(ŠҠР٠ǠŠ).h$٠ǠՠŠΠҠ).#a(ŬԠנՠΧԠĠҠ)#a(ˠԡ)+#a(͠ҠӠՠ),#a(ĠԠŠŠӠĠ)-#a(Π٠Ơسس̠)+$a(ĠՠŠ)<#cPa()F#cPa(Ԡ)P#UVWY Z#M6.#a(ՠŠŠΠƠҭ)-#a(ǠŠҠӠƠҠɭ)-#a(ŮՠŠĠ)+#a(ŠǠΠŮȠ),#a(Ϡ)UVWPa()GP'a()Y Pa()G oc"a(),UVW6a()GPa()@YJa()G |d2e [(#M6o  2#P a(ɭŠoUVW ca() Y$oPa(Π) Pd2e?%Zoa()dUVW)na()GP a()GPa()GPa()xY a()$oPa(%@p()6`%@p()h[]נ2M6a(ҠΠ)/ca(ԩĩЩ)cP"a()cP"a() P"a()Pa(נ) P"a() P"a()cP"a()!e( d"e d#e []ԧ͠Š d6?eq.?6@r`$d6?e@p()`%@p()`%@p()`%@p()`%@p()`%@p()"`%@p(),`@p()\ qq@p()\ \(  ` q [) q8rq q`%q! d2eoPa@d2e [ ( oP 2 d e F d!e d d"e x d#e [ d e drRq88rr \o fP!zd.?$r.?(r.?)remq-rqq"@p()\ qq"@p()\  qq@p()\  qq@p()\ qqq`%q -rq-r[]ŠŠ\ q8r q888rrrq88rr o P a()>q8r Hq888rrrq-rq-r-rq-r-rq-r(`@%q)6--rrq--rr@YJq`$L-q/?r/?r/?r~UVWqUVWq`$x$`8r8r$x`-r$x+q-rq-rqxq6qY qY`$@"q/?ԇχ·̇ه)'4ca()F)E(͇χևŇӇ)G>\ HUVW Y RM6QQ]ŠŠUVW-rqY-rq-rqq $qLUVWVq-rtqqq$d0M6a(هχՇ҇Ň)5c:a(χՇԇχƇ)?cDa(ƇՇŇ̇)GN_>M6a(Ԡí)ca(ΠӠ)ca(·)GUVWY_( M6a(هχՇƇχՇ·ćԇȇŇ)#*ca(Ň؇ɇԇɇq8rq`@9()$)q8rq `@9()$)q8rq`@9()$)q8rq&q` `$ `$q-r)q8rq`@9()$)q8rq`@9()$)q8rq`@9()$)q6`@9()%q@`@9()%qJ`@9()%qT`@9()%q^`@9()%q!hq8r 8rr`$ |a()_ `$`-r $ %q-r` %qM6cca(ĺ)cP\M6`@9()$`@*#r:()$M6ca(ՠŠ)Fca(̠)UVWY_q8r q888rrrq88rr,`@9()%ӠĠ]]]1O4rD4rD4rD4rC@"r(\(#2\3<oPa(Ԡ٠٠ϠԠŠũ)G F\\Zqqq(d]Πn\ ] ]]ɭŠ]ҮʮР]]Ԡé]Ϡˬî]Ĭ]̠          d edededededededede`0M6o P a(ҠŠĠ)(q/?r2q/? r x<dedeMFUVW/?rYP_(Ϡˬî ]Ĭ ]̠ӠĠ ] ]fdededededededededed ed efd e0d e]]]ҠŠӠ]͠ˬҮ]]ҠŠ]]Ԡé ]833<<888S3M6oP a(ӠŠƠ)UVWYHL)Ra(ϠՠȠϺ٠Ҡ)#\S(נΠŠ)'ñf`ñ$t,pS(Ľ̨ԠԠ)'ر-za(ϠՠȠ͠Π)š)_Y-rqc-rqc q[S(Ԡج)''`cc$< `''$ f gh_a(ԠƠš)_ K**O4rD4rC@"2rC@"rC@"r54q(q˱q˲q@p()[&a@E()E@0a@E()E@:a@E()E@Da@E()E@NUVW Xb-r bb-rlYva@E()E@[UVWT'`cc$ `''$ -rq-rq_a(ԠƠq-r6-rq-rqY[a@E()E@a@E()E@UVWT-r'-r`-rc-rc$Yqa@E()E@ `%\`%\@ `%\^\-qqqqqVɱWɲUVʱWʲf `/?r%fgh YY_<UVWq-rq-r"`-r%q6,-rq-rq6Y[@UVW!J-rq-r6-rq-r6TY[^UVW h`$|rq-rq-r6_|q-rr `%qر`%q+Z˱q˲q˳q8˱2r dUVW˳nMxUVW˱YMUVW˲YY_PUVWf q-rq-r `''$ ghY[U ]Ϡˬî ]Ĭ ]̠ӠĠ ] ]]N@"ra(Ġ)2_ <d6?efUV(W/Fij'kY/Pq2? ]]]ŠŭҠ]٠Ӡ]]Ҡ]]Ԡé     @z?"D*U?wow*:Uj}?U(U:" T*U*U*U*Uj]wnU*U**U"*U*U*U\u?"@"D*U:w_;wn]?uj]+P*"D*U*U.U*h]*P*U**U"@(Q" E*P@T*U{w."uP*U.U:w*D*]>W T*U*U*U*wn}T*U"U*@*U"U*]]+"E*D*Uzw+DU:U*U:u*(U: T*U*U*]:/U*U*@*U"@*U:oU*U @"T*U*U:wn];w**w?U@"D D*Q"U*U:w{}?w/U*w~U*U : U*U*U*U*U*D*U*u D*u*U:W* U*];U T*U*U*U*wnU;W*U*U~]*U T*Q*Un}. T z];w**w~_+UX#} D"D*U:?wo];W*U**uD*U*U.];W @*Q*U "D@j;wo];U**un]+UP+n D*"E*U:+un_+D *u*U@(U*un];W* TQ*D`(U*U*U*UW*uj.U*U"T U:@*U*U*U;w?(U.]+U* ]*U*U "DQ*U*un];w*U*"xU/U*U*U*U{*D*T*U"U*U{w *?w@*U.]*U U*U*U "D"D U*U*U*U  u*]*U*U*U*]+U~?@*w_Q*]D(U*U+wnE*U{Wn]**U+U*D"D(Unw*U*U U*_*U*U*U*]W*U*Tzw_{_*UzQ*D(U*]+woU*Dun_*U"(]*U*E DQ*]{/U*U*DT*U "D*U*U*W*DTz_*/`WzG*U*U*U*]wW.U*U~U*U*"U*w_U*"D U*U*U*"T*U*U;UU"E(w_(U(U*U*Uj];UWnU jU*U*E"T*w+ U* ("T*U*U*"@(U*U*_ u.xu>_+U*U*U*U{W@(}U*U"Q*U{UDh.U*W.U*P"T "D*U*U*"D"D(j_*u.p?_n}*U*U*U*]WjU*(uU*U"*U{_+Q"*U*U*U `}?"@U*U~_*@(U:uU*U* U~}@ U*U*U;wn]{W @*U*U *U *U*U*U*U*|n~G"DU*U~o_?w~}{/Tn T Q*U*U;W*}W*@*U*U*U Q*U*"@("T "@U*un;E}D*];w~}+U*w~](U*U*U*Un]{wT*U*U*P*U @*U:w*@*U*T@U*u~ UT Uj]*Un}+*u~(U*U*U*wn}?U (U*UP*U U*u~w*U"*DU*U* uj]?wn]+@j_/UDu@U*U*U*un]W*]{w*U*E(U*U "U*U;wn]*D"U  DU*UjU@@j]?~]+@*U{/]U*U*U*U.]wn]*u.Uw*U*U*U  T*U?_+E D@(U*UT~}+(]/Up(]?UQ"E(U*Unw];w*Tj}*U Q*Uj];w~]T? T*U*U@*U*ETwn]+Aj]w.Ux.]>EQ*E*U*Un]{*Q@*]*U P*U*];w~]+T"U*U`*U*U*U*w~?U*U+w?W*U*U"(U~*U**U*w~U U;.U (w.U*U*D(Q*U*Uj}o?U*U  E~_?/U*U*U*u~+"Q~U*U "T*w~W Q*}o] *];.U u.U*U*U(Q"U*U*U*un]*U*E  U+U*U*U*U*u*U?Q*}"U;@*U*uo];U@:_{W*D@*w*U*"D(Q*UW "T*U*E"u+*U*U*U*wU:U~EQj@*u D**U:wn}U*Q*T;.U (w*U*"DQ*U*;U*U*" T*U*T*Q*U*U*U*@(DQ*};nW~*U*u*U:_;Uj Uu*U*"D*UjW*U*(U*U* U*"T(U*U*w~?D`j}*}? @*U*wj]:W~_?W*D Tzu.U*"D(Uj*E"(U*U  U*E*U*U*U*U*"U*Uj"u; T{?U*U*U*w_ *}U*U "T*wU"Dz+Uj_;W*U @ "T(Q*U*U*U(Q"U*U*Tz"};q]/U*U*U*w_*>*}u*U "T*u~w*U "D:U*U+U*@*>D*U{wWD*U?U*U*U*(U:" U*U*Un];wn]]*U**U"(U*W*U*U };\ D*U{_?w*U:o}?U:w"T*U*U*U*Uz~U*P*U*U*U""T*U*U" D*U:w* U~*U~]{W. U*];W T*U*U*U*WnU{T*U*U*D*"*Un}]* U.Q T*U?wU"U(_U*U*U+w.@*U{w U*U*U*U+w/U(U*@*" T*U{_*U("D(U"(U;w~];u**un}+UUku D*U*T*U;w_*un_+U*: U*U"(U*ujU+W*@""T"D*U*U@P*un]{W.*Uz+U D*U*U*U*wo_;w*U*w]*U T*"Q*Un}{W* T*Q"u?w/*w;U(_"D"T*U:w;wo];W.]+P*w"T*U*u*U;UT?P*U*"D@u{~]+W**u~}+U`.QD *T*U:}Wn]+*u*U"D*U*Uj];W*T Q*U(U](U*U*U*U{/U("U{oU+Wn] *Uz(U*@(U*];~?un}+U*"]+U*U"D U*U;?/U*U"~~/U*U*U*Uo{+UTzT*U*@U*U;W*U?W(un]+U ]*U*U*"D*U*U*U;W*U* U*DU*U*U*U{_ u*}?D*u_Uz@(U*]:uj}{wU*UjWj] *U*U*D"D*u~U"DQ*U (uj_:U*U*U*}?U*uD*{_*]"D(U*];~_**U*Un_**U*U*E"D Uj}+U(U*EP*U P*D*U*U*U" U_*u.*Uz+U*U*Uj]*U*}U~]*U*D"U:]**D*U*U*UU*U"U*U*U{/UD*_*}/@(U*U*Uj]{WnU QPjU*U*D"U*w_ "D U*U* T*"E*U*U*U*U*U*U~ u/ U~?U*U*U*]{@*U*U*Q*U;?"D~*D*wnU*U""E*U*U*"D*U*U*Q_*u.@*_~/U*U*U*U_(wU*U*Q*U;_ @Q*U*w*U*@*W:PDU*u? *UnU*U*U*"u~@U*U*];wn?W@*U*U *U*P*Uj_;W*U"D|~G"DQ*u;Uz]U unD(U*U*];w.U*?W @*U*U *U D*U*U*U**"DQ*un]+(zT*];w_+(U{wUU*U*U*Uj]?w~_"U*Uz*U*P*UT*]{W "@(Q*T D(U*uW*U~Tj];un+P*w@U*U*U:wn] "U(U*EP*U (U:w. T(Q*U *}?wn]*@*]{w/t |~EU*U*U*uno]{*UDh(U*U *Uj]{wn]*UP*U((Q DQ*U*Tj};o_;Aj}oU@U*U*U*unn/uj_w*U*(U*U  U*U;wo]+*D @U*U*U"DQ*?(}/Upz "D(U*uno}o]?w.Tj"U*U*Uj];wow/T*U*ED(U*EQ"hwo_+@(}/U@/}?WU*U*U*un_;.@j]*UQ*U.];wn_+U"U*U*"U+*U*U*U*w+U*EU~~@*u~"U**U*wU*"}{.U @(w.U*U"E*U*u?U*U*z/U*U*U*un}+U*UU~Q*U*"U*w~;U*];w.U .U*U*U *U*U*U;~;U*U"U+"T*U*U*u_"]*u/*}"U?D*U*un]{w~u_;W*ED*w.U*"D(U*}?U"D*U*U"u*_jU*U*U*w/U/EQjT*D(*U*wn}W"*UnU{w*E@*w.U*U"DU*Uz+U*U*U*"T*U*D*U*U*U*U "D*E(*}w+z+U*W*U:w_*U*u ]w.U*"D*un.U* D*U*U*U"T*U*U U*U*un_+UDQz*}?"DQ*U*w*U:w_?U*}  TzW*U*"D*Uj}_*U*Q"@(U*U* "DU*D*U*U:UnU;W*U:*}?>Ux>U*U*U*w @PjU*U*"U*~?"D(u Qj};w*U D"U U*U*U*E U*U*U*}*}?jWW.U*U*U*w_@*}U*U*"U*w~W*U"U+U*};U*E          iiii777w7H ,i ,h`&&&&&eiei`iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiHH…J ` je   i (éлhh`iiiiiiiiiiiiiiiiiiiiiiiiHH T  i ihh`HH T Q)e i ihh`jjjj)` jjjj)` )e   )e` `dhlptx|`lptx|`wwwwwwwwwwwwwwwwww777w77wwww7wwww7777777w7w777$$$$ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @   !!!!!!!"""""""####### @ $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?  Q``((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPР@` @ @ @   # (ʩоL:оLe  # PRUW  #  (٩ѥ    ШL:(     _doS(Šź)&@`@9()$d M;oa(Š)E@E()FE(IJ)_dcc_z.XoP M6a(ŠĠ)]d6?ed6?eb`$q1goa(ϠŠӠΠĠԡ)l_q`$2voa(ŠŠϠ٠)FE()d6@e`.?6@r$<()r$ `.?6@r<()r$ _d+d6?ed6?ed6?ed6?e_+d6?ed6?ed6?ed6?e_#poP M6a(ˠ)ud6?ed6?ezoS()&@`@9()$doPa()E@ ce`.?6@r$_d# oP a(Š)" d6?ed6?eoM6 UVWY `$ - oa(ŠŠϠӠĠԡ) _  M q d6@e `.?6@r$  `.?6@rı)_d&oP M6a(Š)d6?ed6?e$oS(ؠӯ̺)'deM3qqq(.?r.?r@oa(ŠŠ)FE(ӠȠؠҠ)Fd6@<()r%qT`<()r%q^`<()r%qh`<()r%qr`<()r%q`$d _#oP M6a(Ġ)d6?ed6?eoS(Šź)&@`@9()$d#oa(Ġ)E@E(Ġ)#ca(ĠŠˠ)/ca(ؠŠĠŠϠ)oa(κ)]Ġq.?6@r`$d6@e ,q6`<()r%q@`<()r%qJ`M6d6?ed6?enPa(͠ŠΠ)xPa()c&ca(̠ĠŠ͠)+ca(ŠŠϠ).ca(ӠŠŠ͠)(ca(٠̠)+ca(٠Ӡˬî ]Ĭ ]̠ӠĠ ] ]] N@"(r7q qqqq2a(ĠԠ)d} ]]]ŠΠ]٠ԠР]]Ӡ]]Ԡé ]  1010 ( NOW WE RESTORE MARGINA AND MOVE CURSOR INX FRONT OF LINE #.^h32,0y37,13:36,0  SCALE ANTI-CRASHING SUBROUTINE.&X0X00X279X279:Y0Y0DY159Y159N = FN CCH(X)")"9);"COTH = FN CTH(X)"/,H6 NOW WE SET UP LINE`@ 1010 FOR EDITING.yJ 'POKE 32, 2' MOVEST MARGIN SO CURSOR CAN^ FIT IN FRONT.hr(12)|" CHANGE LINE 1010 AS DESIRED AND""RUN AGAIN!"32,2TIONS FOR REMINDER.':E9);"SECANT = FN SEC(X)"b9);"COSEC = FN CSC(X)"9);"COTAN = FN COTAN(X)"9);"SINH = FN SNH(X)"9);"COSH = FN COH(X)"9);"TANH = FN TAH(X)"9);"SECH = FN SCH(X)" 9);"CSCH1619,1600 WAITING FOR YOUR PLEASURE!E( PUNCH 'RETURN'X2 TO CONTINUE!^<xF16368,0:16384,128~PZd THROWS PREVIOUS KEYSTROKEn AWAY WITHx 'GET Z$'!Z$ CLEAR SCREEN AND  PRINT FUNC SUBROUTINE PREVENTS0t OFF-SCALE CRASHING.6~@1830F_ PLOTS FIRST POINT.ewF0ēX,Y:F1X,YI:1010 BLANKS OUT LINE # AFTER LISTING LINE 1010.  1616,160:1617,160:1618,160:NG WHEN X=0.*X0X.0000106P NEXT LINE DESCRIBESm FUNCTION TO BE PLOTTEDsY1(X)(2X)YYY1YY20 SCALES X$.XIS8B RELATES PLOT TO X AXISLVYY80`j25  & NEXT 3 STEPS ESTABLISH>  HORIZONTAL SCALE.D*^4(R1)(R2)R(R1)x>(R2)(R1)R(R2)HG0S704R:G1RXI:Y0\f CONVERTS DEGREES TO p RADIANS.zXX3.14159180 PREVENTS CRASHI b lF0:G0 v1  R1 AND R2 MAY BE SETI  FOR OTHER LIMITS.O _ R11:R2360e k   ** BEGIN PLOT **   CHANGE STEP FOR MORE  OR LESS RESOLUTION.  IF R1>R2 THEN STEP  MUST BE NEGATIVE. IR1R #  MOVE CURSOR TO BOTTOM/  LINE.5 = 24C I P 7a 0,80279,80q 0,160,143 I027970 I,78I,82:279,78279,82 I &I1614416 00,I4,I :I D N FLAGS FOR FIRST PLOT X AND SCALE.X)((X)(X))21: COTH(X)R JSEC(X)1(X):CSC(X)1(X):COT(X)1(X)x TSNH(X)((X)(X))2: SINH(X) ^COH(X)((X)(X))2: COSH(X) hTAH(X)(X)((X)(X))21: TANH(X) r |  ** PLOT GRAPH AXES **   ING ANGLE FROM 1 TO 360, DEGREES.I CHANGE LINE 1010 TO A e FUNCTION YOU WISH TO q PLOT.w }   *** DEFINE FUNCTIONS *** " ,SCH(X)2((X)(X)): SECH(X) 6CCH(X)2((X)(X)): CSCH (X) @CTH(X)(* MICRO INK, INC. *7  * CHELMSFORD, MA 01824 *V  * ALL RIGHTS RESERVED *u * * " ************************ THIS PROGRAM PLOTS A CURVE FOR ANY EXPRESSION AS A FUNCTION OF INCREAS-  ************************? * *^ * FUNCTION PLOTTER *} * DAVID P. ALLEN * * * * FNPLOTTER * * * * COPYRIGHT (C) 1981 *      ϠԠԭà),M6W]ŠӠӠҠˠQ]Š͠Ϡh]Ġ }\d/?r (UVW Y2_da(ű)[na(ű)[xa(ű)w}zc7a(Π)a(ΧϠΠ̭ŠԠ)9ca(Π)a(ΧϠΠԭŠԠ)+a(Ϡ   $0Lɣ $ɠL`IE̅ͅiυ̥i͠ԑȩґȩȥ̑ȥ͑eiʩ)HH!ȱ`Hȱȑhh`܅݅`ܥݥhhL܅݅ܥݥhhL \]ŠԠ٠٠ΠǮ̠̠Ӡ}zd6ed7e`.?r$}a(ŠԠΠΠҠ)_Z})}M6UVdWX6`-r6$<} (}t-r2}`.?%r$Z}<}YF}_Z}P}M6`$<}Z}ca(ïԯŠ)Bd}q.?6@r`$d}d6?e`$}`$P}QĠ)E@E()dLe.?rdMe.?r77ya(Π̭)a(ΠԠ)Q|]ΠԭY}d6ed7ededededededeM6W/ }a(ŠԠЮŠŠΠҠ)QH$uuUVWYuM]ˠϠԠuQ yN@"ryoyS(Ġ)&@y`@:()$6yS"yde.?Lrde.?MrdLe.?rdMe.?rM6!dLe.?rdMe.?rQ]6yde.?Lrde.?MrdLe.?rdMe.?ra(ϠҠ)a(ĠΧ)5u]Šұ6u]Šұ 7u]ĠˠĠ :uMQ&Duq-r`$buNu`$vuXuq_lu buq lutvu`.?6?r$vu{u`à)oS(ΧΠ٠Ϡ)&@9&ua(ĠŠ)]ԠΠԠǠ+u_y.u]Π̭[0uzd6ed7edededeLdededeM6W14ua(ŠŠϠˬîu]Ĭu]̠ӠĠu]u]u] u]X!uca(Π)a(Π̭Š)a(Πԭà)K"ua(Ϡ[u]u]u]ŠԠ٠u]٠ΠǮ̠u]u]ŠԠu]u]Ԡéu]PjU`HU"pUkqUljUP`SRT#(VARIABLE NOT FOUND UPJ TuVTvP`$T UP 8/`NUиߥԥՐ U`LSLYSjLmTڈڐ"Q0ȱHH֑ȱ֑ڈhhLTQ0ڐ >10 /ȱ0(10ȱHȱڑhLTHȥؑȥّڥݑօوܑօ؈ڑh`НHU"kpUlqUksU+kekHȱkellhkmlnLRrU;ULRkiRliSޅP߅QTU UP֥QLfSe֥iנօȱօeڥiiiLSeڥi۠څȱڅݥL/TRL⽂U0 ܰ TLTܐ/ TLT% ޘRH Th,UF  , rU)ʽrU$$%rUrULR sUsU g RPޥQ g RPiQiY1U  ULޠU ʬU 欉U D0UȌU ),лU гkrU     $*"HIT ANY KEY TO RETURN TO MENU"4+16384,128B +16368,0M+100901015,82j':'t'8:15:"SORT DEMO"?~':15:"SELECTIONS"[':10:"1 INTEGER SORT"|'10:"2 FLOATING POINT SORT"'10:"3 CHARACTER SORT"'10:"4 EXIT"'17:"SELECTION ";SE%'SE%0SE%410090'SE%2000,3000,1050,10190'ORE":3140 : 10:"AFTER"' D I0T%7 N FP(I):I:= 'T ' ** &SORT DEMO **h ' SAVE ROOM FOR{ $' SORT ROUTINE .'20992: $5200 8'D$(4) B'D$;"BLOAD AMPERSORT,A$5200" L' SET UP '&' HOOK V' AT $3F5:JMP $5200`'1013,76:1014,0:  H10:"BEFORE":2140* R10:"AFTER"6 \I0N%G fIN%(I):I:\ FLOATING POINTe T%8q FP(T%)| I08 FP(I)1000(1)(I7.16) I 3120 SORT  SRT#(FP,0,T%)  3130  11000 & PRINT ROUTINE 0 10:"BEFFORE" 12703 " AFTER":"ASCEND DESCEND"? I0N%P AB$(I):I:d  INTEGER SORT m N%8z IN%(N%) I0N% IN%(I)7500((1)15000) I 2120  SORT SRT#(IN%,0,N%) *2130 411000 > PRINT ROUTINE ((1)L)1,1)* VB$(CH$,((1)L)1,1)5 `J13K jC$C$C$:B$B$B$R tJc ~AB$(I)B$C$j It 1240  SORT HALF ASCENDING  SORT HALF DESCENDING SRT#(AB$,0,N%,1,8,A,9,16,D) 1260 11000  PRINT ROUTINE " BE* MICRO INK, INC. *7 P * CHELMSFORD, MA 01824 *V Z * ALL RIGHTS RESERVED *t d* * n************************ 10000  CHARACTER SORT $CH$"ABCDWXYZ":L(CH$)1 .N%8 8AB$(N%) BI0N% LC$(CH$,O  ************************? * *^ * AMPER-SORT *}( * ALLEN HILL *- * *2 * AMPERSORT DEMO *7 * *< * COPYRIGHT (C) 1981 * F  H Hפ    +L HL+ b 8( 饝E +LU`Ɵ0Ej bH uhεϦ Hh 8 8HIhΈƝM ̊ ꦛ +828 ע H 6 6 HA ŋ8eȄ 馛 +  f +8 H  6 6 E Ђ D8 ץ H Hݥ00= FХПL0 4 8ת J @ۢ 6  ᥠLᅝץ ʠ u H  6 + H HL΍`, #J `LJ׵ 8 $Ph H榥$P H) EХ ꥦ пЕЏ AЄf΢02HH ޥ LG 6 Hզ + H H N` ᥡש%$p0  H  H $ Sƥ  +Lyy`u` 6 6`Hd eeh TЛ,,@\VʵΕפȢ u TL狥J + H @셝Eׅ槥H U g ޢ` g.&hhHoH giiL8 eר -(ѩ@ gݢ?L+@ ߦLv݅ћFȱAȱ: 혆 J T 8 ΕLLJ V Hsts`IDPNNEININTRMIMAABHH g ɀ^6 - gL HH D \ hآh` LҐ<8) ύύLנ85ɀLޘ Jh hh-H.      N;4);Y(I,1);16);EA(1,I);29);E(I,1)- "I:D ,EATRN(E):V1EA.Ew 6"STANDARD DEV. RESIDUALS: ";(V1(1,1)(NM1)) @J(1):V2J.Y:V2V2(N):EY(V2(1,1)):EATRN(E):V2EA.E JR(V2(1,1)V1(1,1))V2(1,1):R0R0 T"R^2";:(24):": ";(R) ^ST SQUARES EQUATION EQUALS ":2 "Y = ";B(1,1);O J2M1:B(J,1)0ĺ"+";e B(J,1);"*X";J1;o :: EX.B:EATRN(E):EYE "** THE TABLE OF RESIDUALS **": "NO";4);"OBSERVED Y";16);"ESTIMATED Y";29);"RESIDUAL" I1N$ I dI nJ2M1F x:"INPUT THE ELEMENTS OF THE X";J1;"-VECTOR":Q I1Nu "ELEMENT ";I;" ? ";:"";X(I,J)~ I,J CALCULATE RESULTS XATRN(X):SXA.X:SNEINV(S):HXA.Y:BS.H S(0,0)0ĺ"THE S-MATRIX IS SINGULAR": :"THE LEAES ? ";M:M1M17 (M1Nĺ:"TOO FEW OBSERVATIONS ":t 2X(N,M1),XA(M1,N),Y(N,1),B(M1,1),E(N,1),EA(1,N),S(M1,M1) <V1(1,1),V2(1,1),H(M1,1),J(1,N) F:"INPUT THE ELEMENTS OF THE Y-VECTOR": PI1N Z"ELEMENT ";I;" ? ";:"";Y(I,1):X(I,1)1* MICRO INK, INC. *6 * CHELMSFORD, MA 01824 *T * ALL RIGHTS RESERVED *r * * ************************   THE LINEAR MODEL   "NUMBER OF OBSERVATIONS ? ";N "NUMBER OF INDEPENDENT VARIABL  ************************? * *^ * MATRICES & APPLESOFT *} * BY C. BONGERS * * * * MATRIX DEMO * * * * COPYRIGHT (C) 1981 * R Jȱȱ0 L?i i8H,133,30,56,176,177S,255,160,0,177,8,133,1,200,177,8,133,26,200,177,8,133,27,165,1,197,0,48,15,160,0,177,6,209  26,208,7,200,196,0,240,16,208,243,165,30,197,28,208,11,165,31,197,29,208,5,230,31,76,63,255,24,165,8 105,3,144,2,230,9,133,8,24,165,30,105,1,144,2,230,31190. ,:"MACHINE LANGUAGE SEARCH COMPLETED"b 6:"PRESS 'RETURN' FOR APPLESOFT SEARCH: ";A$:m @I1N JS$(R$(I),(S$))ĺS$;" MATCHES #";I;" (PHRASE: ";R$(I);") " TI::"APPLESOFT SEARCH COMPLETED": I768849:X:I,X:I:Z  32,7407)256(108)3 0,(SV2):6,(SV3):7,(SV4)O 30,MD(C):31,(C256)k 28,MD(N):29,(N256) 8,MD(AV73C):9,((AV73C)256) 768 C(30)256(31) CN300 S$;" MATCHES #";C;" (PHRASE: ";R$(C);")" "CC1:CN ROUTINE# MD(X)X256(X256)Q ::8);::"STRING ARRAY SEARCH DEMO":l :"RANDOM STRINGS:": I1N:R$(I)(6526(1))(6526(1)):R$(I);" ";:I:: "ENTER SEARCH STRING: ";S$: SVAV:C1 SV(105)256(106) AV(1* ALL RIGHTS RESERVED *6 * *T ************************Z ` | "BLOAD STRING SEARCH" dS$"": MUST BE FIRST DEFINED SIMPLE VARIABLE nN2000:R$(N): MUST BE FIRST DEFINED ARRAY VARIABLE  x1000: LOAD SEARCH  ************************? * *^ * STRING SEARCH ROUTINE*} * GARY LITTLE * * * * COPYRIGHT (C) 1981 * * MICRO INK, INC. * * CHELMSFORD, MA 01824 *      RH 4 hREą SШЈHhH--h5 :0h$. А \АI0L  LV8ompneiejʆBCin? ,8kilj`<=o>p?iBjC ,iekjel8ompnmeimnejnmnm` pL  L̅ͅ`̥`@  3 Xk o >:?; } o >? /:e/:;i;8:; `ǠӠ ǠӠL $9"1R23P B31 gh ɧ J :1 <h2h38ブ#(  B67LH hɍ`6B  8,,` Ixix&&  5 V E ') +b E &п E x) ++`FG8`0($ p,&"'q*qq8`0($ p,&"Y <)q(  `V0^*^*>` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xH&x'8*7AR?Ԡ͠ԠԠҠҠōĠӠ INTBAS.DATA FPBAS.DATA BOOTSIM.DATA   %L$J) (jJJ>L "?I  `  ` x Nx .x-"67  X K  L J(E)T  XL , 67L  L  X ?L) jjjj`iiآ    `, )` X   ]``LL!   "H (*)+!hi# H (*0(!e!ie! i L8#H (*)+!h"0 H (*0(!8!8! `% e (`HJ))h)i( ((`!!$ded6?e]ҠŠ+`$d6?eKM6da()Q%M]Ԯנ٠Ϡ̠2`%MM]Ԯנ٠Ϡ̠l`$dededed e]ԠϠԠԠˠ5`$ded6?e]ҠŠ5`%d6?eUPdededed e]ǠנΠ͠ԠˠZ_dqq%nde`%d6?exded eUVWMYdedeq.?6@rd6?e/`)'-(a(ԠӠϠԠԺ)TD2]Ϡ̠ԠǠΠנҠҠӮJ<`$dKM6d"e]ŠŠˠŠԠРƠΠ&Fo a(ŠǮΠ)%Kde`Ϡˬî ]Ĭ ]̠ӠĠ ] ]]] a(Ġ),]ҠԠ͠٠ŠǮM6S(ŠҠY]]]ŠǠŠ]ҠҠ]]Ҡ]]Ԡé ]! !!!!!!PI X 5ɑ % LV% [ :    ̤Ơ! ! hLhM _ L L)? ȹHH _)4 )@LȱLHȱHLHȱLH LHMH ahh`eLLM`L+Hȱh ⥢Ġ `HhhlLmbR~eꍎ"@qp ! ! 3 "əзȹɠɍ1 !2R7%w)w!w'3 ff ʥ ` a3a8 AS!LkFdeLde8.?rFrde8.?r8.?rFrrMآʕL RW7g5g6$6:g3 J̵ lJ ʕ ΕL $9"1R23P B31 gh ɧ J :1 <h2h38ブ#("!! < X#67$`,0ɍ PȌ`ɠؠP  : λ ,0  ,ɍɠꩠ'PɰL+*+,-./012H3456789LLLL`ª`LQLY8LXLL"" :*3 g 4 4 I L0 4L u h,h-<:,/ C`/LFlC@)I:< ?L< LhHh:h;/ V; THH::;:-H,HL: V:8 J8LL "" :*3 g 4 0$4 I L0 4L u h,h-<:,/ C`/LFlC@)I:< ?L< LhHh:h;/ V; THH::;:-H,HL: V:8 J8LLL"" hHL>? Le@ A@>LiL67Li LeLLLO>0ܥ> ? JA@@ȱ>@ >/8q@@ȱ@i@.ɝ/j>@>@Li>ie>>?i?@>@ȥ?@P٢ 0ǩ H;: @hHJ ? > > > ZL6LL&2>JVbnzӠΠϬɬÍΠͮōVEYET*J @Ƚ3JJJJ&