' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]L L}BBL] 鷎귭෍ᷩ췩緈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,&"_]` L/浍굺L  !"#$%&'()*+,-./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#0EB 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`   vLDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ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 iõ`  \ 濭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䵍䵐`"L ŵ8ŵH ~(`# d ֠z# u`.q6(qqq/qq 0\ 2\ dUVWi-rq/?drq\nYUVW q%oP a(ɽ)G` %a()GbGUVWq.?r`$de\ ]Ϡˬî]Ĭ]̠ӠĠ]]] (KM6 )O4cr)*q6@q6?qq(,qXq qq,f q ] ]]ǠĠ]ĠîŬҮ]]Ԡ]]Ԡé     a(ԧӠϠǡ)_ \[UVW2?rY[&o Pa(ɠ̠ԠРϠ)#Pa(ӠϠ)+Pa(ҠǠŠΠԮ)0oP S(ŠƠΠ)'q`$ KM6Q`d%[P a()G[ `<()r$* %KM6Q*q.?r`$*4de[*]ϠŠӬĪ[de deM \[*]ϠŠӬĪ[de1deM#oPUVW a()GY*UVW oPbE()GY oP a(Π)[ Xq  bq loPv`-r %a()G {b-rG[q q oP d2e\\q\Y-rqd2e?q\\d2e\YoPa(ć)G`.?r$deM6_0 KM6%oUVW PbGYɲP a(ٽ)G` %a()Gd2ebGd2e\UVWX6"\q.?r`$de\ \`-r$-rq-r\ d2e?q\\q\\q,-q6(qqq.qq 0\ 2\ZUVWc-rqY dUVWi-rq/?drq\l`$nY UVW`$q-r%oP a(ɽ)G` %a()GbG7o]Ϡˬî]Ĭ]̠ӠĠ]]] (KM6 )O4cr)*q6@q6?qq4,qXq q q ] ]]ǠĠ]ĠîŬҮ]]Ԡ]]Ԡé    )#Pa(ӠϠ)(Pa(ҠǠŠŠԮ)1oP S(ŠƠά)'q`$%`d%[P a(Ϡǡ)_[+]ϠŠĬӠĠ[de deMUVW2?rY[3]ϠŠŠӬĠ[de1deMUVW2?rY[/o Pa(ɠ̠ԠРϠPa(Š)[ Xq  bq loPv`-r %a()G {b-rG[ `<()r$* %KM6Q#*oPa()G/q.?r`$*#1oPa()G4de\Y`$YoPa(ć)G`.?r$deM6_0 KM6%oUVW PbGY#oPUVW a()GY*UVW oPbE()GY oPa(н)Gd2e-drq-r\q-r\q d2e?0-rq-r\\d2e\qd2e?0-rq\\d2e \ qq.?r`$de+.q(qqq 0\ 2\ZUVWd-rqY dUVWi-rq/?drq\l`$nYUVW qUVWUVW2?rY \`-r-r$'qdϠˬî]Ĭ]̠ӠĠ]]] (KM6 )O4dr)*q6@q6?qq4,qXq qq ] ]]ǠĠ]ĠîŬҮ]]Š]]Ԡé][~]]٠ҢϠ͢UVWde.?r Y[ []]ŠUVWdede`%de Yde `%q`%qq\qqe *Y4[ ] ]ΠŠ q UVWX61 q.?r.?r q `$  q q de  Y8r$de.q 8YB[]]Π qUVWX6+q.?r.?r q`$  q q dW` $:0`.?r %a()G:b.?rG DYNcXQ]]ΠqqUVWq.?rqq q`%\qq6*qq-r\`%\`$ ,Y]ԠŠccBa(ŠŠƠɠϠ)F8drE(̠Ӻ)cb.?rE()G!UVձdq8r!2qqq-<qqq qq6FO4r-rq-rqd]Π}UVW \ \qq\`%\栠Ϡˬî ]Ĭ ]̠ӠĠ ] ] ]4M6o Pa(נ٠ӠϠՠԠ)G T M6q `$2qh]]]Šɠ]ԠʮР]]Šɠ]]Ԡé]     !d6?e]ԠĠ_Q?e]ԠӠd6?e]ԠӠ&]ҠŠӠUV W?deY!S(ҠŠϠ)'%d6?e]ҠĠUV W?]ӧ%de]ԠŠΠY ]Ԡé ]Ϡˬî ]Ĭ ]̠ӠĠ ] ]`]d]Ԡͺ n]ӠӠǠ!xd6. ] ] ]ɭӠӠ٠ ]Π ]נȮΠ ] ]ӭǠ ]@$]1J$UVWq-r`$r$K^$q8r8@r( de 8r r$Y[8r8@r( reY#]#]Ԡح$]j$qUVW`$$qUVWd?8re@8 88rrr $Y_$$d?e$Y,$]6$]ԠԠ3#]Ԡͺ4#]<#]=#]Ҡ >#]?#UV W?deYF#]P#]ԠӠZ#]!d#d6?ed6?ed6?e#]#]Ԡ٭#]f#UVWq`8 r%qd8Ϡˬî]Ĭ]̠ӠĠ]](#])#]!/#]ӠĠΠȨة!0#]ǠƠ1#]Ȩة2#] ] ] ]ɭӠȠǠ]Ġ͠]]ȭԠ]]Ԡé]  ]ŠŮC]J]T[ԠҠ]Š]Š][*]+]8,d2ea()Gd2ea(Š̯)M6]@]A]ԠҠBq,q _]`]a]ΠŠb]c]dq\`%\e]f]n_x]y] T]ŠҠԠ]]]D$]$]$]Šà̠Š$]Ҡ͠ԠŠ$]$]] q ' qq  `.?%r$MN_M6_Q_Rv@p@*#;@rrq;@rUVWXq<@*#rrq<@*#rrK` %q` %qdeYd ed ed eM*`.?r$q.?r.?r tϠˬî M]ĬN]̠ӠĠO]P]Q] XN@"rPbS(Ŀ)&@M6`@*#r9()$vq;@rUVWde<@*#rrYld e4D]E]F]͠ԠĠG]ΠǮ̠H]I]ԠJ]K]ԠéL] N0΂ L `G ,׭,`` L Ƀ`*ii i'R`8  `'@ p @ p )@ p )p @ Π&[ mZ  m y? 8B  )P 0yo 8r  )P L+h `  `' )0  )j  @BɍH,,ɠɍ hLL,067`@ST` z{H~ x;h Hɛhz{H~h`) idȱ}|xyhy|}ɀ yдHxhЫ;[Ѥѓd%` z{H~ x;h Hɛhz{H~h`) idȱ}|xyhy|}ɀ yдHxhЫ;    [ d  % ; 89` ɑ!!`ɚ$(H$$$! $h`h$$`89i67LQ ɛ `8ɨ ,$(H)? @(h ɐ QLe( B!!8 ,$[L 5ɍ,,5Lʅ˅LM8ei ȱ d   p   dб`ui` ` `hh` BEGIN DATA STATEMENTS DEFININGG  TEXT TO BE PLACED IN EXEC FILEM  "I=PEEK(176)*256+PEEK(175)-2:POKE 104,INT(I/256):POKE 103,I-INT(I/256)*256" ( "LOAD SUBROUTINES" 2 "POKE 103,1:POKE 104,8:PRINT 'SUBROUTINES LOADED...';CHR$(7)" "'"A$A$(34)  A$( 1170. Q  CHECK FOR CORRECT ERROR CODEi  (#42=OUT OF DATA)o  (222)42ī1255 "ERROR #";(222) "IN LINE #"(218)(219)2556  216,0 D$;"NOMON O" D$;"CLOSE";FILE$ " " `D$;"OPEN";FILE$- jD$;"DELETE";FILE$B tD$;"OPEN";FILE$X ~D$;"WRITE";FILE$c 1250i   READ IN LINE AND REPLACE  APOSTROPHES WITH QUOTES  S$ A$"" I1(S$) (S$,I,1)"'"A$A$(S$,I,1) (S$,I,1)STATEMENTS ARE USED ONLY AS DELIMITERS AND WILL NOT  APPEAR ON THE EXEC FILE. APOSTROPHES IN THE DATA STATEMENTS WILL APPEAR  AS QUOTATION MARKS IN THE EXEC FILE. $ .D$(4) 8:(7) B"NAME FOR EXEC FILE?";FILE$ L VD$;"MON O*!  * COPYRIGHT (C) 1981 *A  * MICRO INK, INC. *a  * CHELMSFORD, MA 01824 *  * ALL RIGHTS RESERVED *  * *  *************************  GENERALIZED EXEC FILE WRITER:3  QUOTES IN THE DATA ! *************************A * *a * CREATING AN APPLESOFT * * SUBROUTINE LIBRARY * * N.R. MCBURNEY * * * * EXEC FILE WRITER *  *     T OF ANY CHARACTER TO START AGAIN/Z10:DE09 1000 S6:JJ6:WW6:ZZ1W'200:F6X:G6Y6TY15640LXM6:YN6:0:100lXF6:YG6:M6X:N6Y:3:100ypZ1Z1DAZ1DEDN700085100XX279:Y190:100:A$! (7000) PLOT POINT 297 190 TO INDICATE END OF SIMULATION THEN WAIT FOR INPU PLOT|JU05600KAA5:PP5:EE5:PEU5:EZK5:SRDS5:JJ5:WW5:ZZ1W^200:F5X:G5YmTY15540XM5:YN5:0:100XF5:YG5:M5X:N5Y:3:100 (5600-5640) SET UP VALUES FOR SATURNSA06000AA6:PP6:EE6:PEU6:EZK6:SRD (5400-5440) SET UP VALUES FOR MARS AND PLOT?MA05500w"AA4:PP4::EE4:PEU4:EZK4:SRDS4:JJ4:WW4:ZZ1W,200:F4X:G4Y1TY154406XM4:YN4:0:100@XF4:YG4:M4X:N4Y:3:100r (5500-5540) SET UP VALUES FOR JUPITER AND:YN2:0:100-xXF2:YG2:M2X:N2Y:3:100` (5300-5240) SET UP VALUES FOR EARTH AND PLOToEA05400AA3:PP3:EE3:PEU3:EZK3:SRDS3:JJ3:WW3:ZZ1W200:F3X:G3YTY15340XM3:YN3:0:100XF3:YG3:M3X:N3Y:3:1000Z1W200:F1X:G1Y'TY15140= XM1:YN1:0:100]XF1:YG1:M1X:N1Y:3:100F (5200-5240) SET UP VALUE FOR VENUS AND PLOTPVE05300ZAA2:PP2:EE2:PEU2:EZK2:SRDS2:JJ2:WW2:ZZ1Wd200:F2X:G2YiTY15240 nXM2X140:Y96:100#X141:Y96:1007X248:Y96:100LL10Q2136Q2aXX1(L1)105.9yYY1(L1)105.9FA100L1$ (5100-5140) SET UP VALUES FOR MERCURY AND PLOTME05200AA1:PP1:EE1:PEU1:EZK1:SRDS1:JJ1:WW1:Z # OF DAYS TO PLOT ";DN!::J"ENTER # OF DAYS BETWEEN PLOTS ";DAZDA04800b:}"0 NOT ALLOWED":4070 4800 INIT HIGH RES, FULL SCREEN, PAGE 2 (4805-4860) PLOT REFERENCE POINTS AND OUTER 10 DEGREE CIRCLE3TY0TY14000::@:"DO YOU WANT TO START AT":^"A SPECIFIC DATE (0) ":"OR THE BEGINNING OF THE YEAR (1) ";DTDT0DT14020DT14060::"ENTER # OF DAYS SINCE JAN 0, 1980 ";DEZ1DE::"ENTER"DISPLAY SATURN ";SA-S610825.863:E6.0555QA6937.541838.425gP6A6(1E6E6)2sK61E6U6P6E6J695.5Q180W62115SA1TT.1<:::"DO YOU WANT ":"POINT (0) OR CONTINUOUS (1) PLOTS ";TYE4E4)2K41E4"U4P4E45 J4335.7Q180@ W4289P MA1TT.6m "DISPLAY JUPITER ";JU} S54332.125E5.0478A5507.046460.595P5A5(1E5E5)2K51E5U5P5E5J513.6Q180W51604JU1TT.19SPLAY EARTH ";EA#S3365.2560E3.0167EA394.55591.445[P3A3(1E3E3)2gK31E3tU3P3E3J3102.6Q180W33EA1TT1.05"DISPLAY MARS ";MAS4686.980E4.0934A4154.936128.471 P4A4(1 K11E1U1P1E1+J177.1Q1808W137.58IME1TT2.3f"DISPLAY VENUS ";VEuS2224.701E2.0068A267.72666.813P2A2(1E2E2)2K21E2U2P2E2J2131.3Q180W2140.5VE1TT1.5"DIERIHELION IN RADIANSI W1= DAYS FROM 0 DEGREES TO PERIHELION FOR 1980 TT=SCALING FACTOR TO USE FULL PLOTTING AREA IF SELECTED PLANETS ARE DISPLAYED"DISPLAY MERCURY ";MES187.969E1.2056A143.40328.597P1A1(1E1E1)2"ENTER A 1 FOR YES AND A 0 FOR NO"(](2020-2079) GET SPECIFIC VALUES FOR EACH PLANET S1=ORBITAL PERIOD: P1=A1*(1-E1*E1)/2 E1=ECCENTRICITY: U1=P1/E1:K1=1/E1 REM A1= MINIMUM AND MAXIMUM DISTANCE FROM THE SUN J1=LONGITUDE OF PT TO DISPLAY "9 :"THE SAME PLANETS AS YOUR LAST RUN"M :"Y OR N ";A$U :f &A$"N"2000x 0A$"Y"1800 :S104000 ?: D:"YOU HAVEN'T PICKED THE PLANETS YET" N:: "CHOOSE THE PLANETS YOU WANT TO DISPLAY" "RIMARY PAGE, SET TEXT MODE2 16300,0:16303,0? T1.5708P Q3.14159265a Q26.2831853r VL.99999999 FA2932  FA IS THE RATIO OF X TO Y TO PLOT A CIRCLE AN THE APPLE INSTEAD OF AN OVAL $X1140:Y196 :::: "DO YOU WANV1(V(VV1))T V1 IS THE ANGLE THAT THE PLANET LIES FROM THE SUN. THE 0 POINT BEING AT THE RIGHT, INCREASING COUNTERCLOCKWISE. DSRD2V1Q2V1 V1V1J X(V1)RV:Y(V1)RVFA "XXTTX1:YYTTY1 ,  (1000) DISPLAY P (200-300) CALCULATE THE X AND YPLANET POSITIONSI DZ(ZSRD)SRD] D IS FOR DAYSp BQ(DSRDQ2) RVA(P(1E(B))) RV IS THE RADIUS VECTOR OR DISTANCE FROM THE SUN TO THE PLANET VPERVEZ V1VVL V1VVL GHT (C) 1981 *3  * MICRO INK, INC. *U  * CHELMSFORD, MA 01824 *w  * ALL RIGHTS RESERVED *  * *  ***************************  P1000 Z (100-110) PLOT X AND Y VALUES dX,Y n4;# ***************************E * *g * SOLAR SYSTEM SIMULATION * * DAVID A. PARTYKA * * * * SOLAR * * *  * COPYRI         ERROR IN MATRIX 20C h"MATRIX CONTAINS INVALID CHARACTER"W "RE-ENTER":BAh I11000:Iv 020:958 1500 (#2 (512)1459000 20006 ENCODE CHARACTER\ AB: SAVE BEGINNING OF CHARACTERv  LOOK THROUGH MATRIX I10641960128 C0 J06 H (IJ)1743700 (IJ)1704000 CC2J tJ B,C:BB1 <I n1000 D '<-' TO EDIT."9 "(LEAVE DOTS THAT ARE NOT REPLACED)e "ENTER A 'CTRL S' TO STORE THE FIGURE" "ENTER A 'CTRL Q' TO QUIT"  PRINT MATRIX L9 I07 "......." xI 9  GET INPUT CHARACTER 4657 (512)1473000,"OF FIRST 'ASCII' CHARACTER"= ^" (MAXIMUM VALUE OF 127)D Bi B0B128450:"RE-ENTER":400y B26624B8 936 X"CHANGE THE DOTS IN THE FOLLOWING MATRIX" "TO ASTERISKS TO DESCRIBE A FIGURE." "USE 'ESC C', 'ESC D', '->' AN COPYRIGHT (C) 1981 *<  * MICRO INK, INC. *_  * CHELMSFORD, MA 01824 *  * ALL RIGHTS RESERVED *  * *  ****************************  d:936 5:"ENTER DECIMAL EQUIVALENT" $ ****************************G * *j * DEFINE HI-RES CHARACTERS * * ROBERT F. ZANT * * * * CHARACTERS * * *  *     45COL15,30ROW7* NOW GET SHAPES@232,ALO:233,AHI[I45COL30,30ROW15bIlKEY$rx& 6 hROW((IMOD1)6), rCOLIMOD6ROW1< |C1(I100)L C2I100C1\ C2(C210)p C3I10(I10) 232,NLO:233,NHI C1C12:C2C22:C3C32 C12460 C145COL5,30ROW7 C22C12480 C245COL10,30ROW7C3CREEN AND CREATE GRID4 GRID WILL HOLD 36 SHAPES? 62450` 0,0269,0269,1800,1800,0q L4526945 J018010 L,J "J:L ,L3018030 6J026945 @J,L JJ:L T CALCULATE GRID SQUARE COORDS. ^IMOD0IMOD3% n SET UP POINTER TO SHAPE TABLEJ xAHI(ADDR256):ALOADDR256AHIo GET NO. OF SHAPES FOR DISPLAY~ NN(ADDR) INITIALIZE SCREEN :16302,0 3:1:0 I1NN IMODI36(I36) IMOD1350 KEY$ SCLEAR SFILE2 #::"HIT ANY KEY FOR EACH PAGE OF TABLE"P (D$(4):D$;"NOMON C,I,O"s 2D$;"BLOAD NUMERALS,A20000,D2" < SET UP POINTER TO NUMERALS FNHI78:NL32 P GET TABLE FOR DISPLAY Z"SHAPE TABLE NAME ";NAME$ d"STARTING ADDRESS ";ADDRGHT (C) 1981 *3  * MICRO INK, INC. *U  * CHELMSFORD, MA 01824 *w  * ALL RIGHTS RESERVED *  * *  ***************************   **** DISPLAY SHAPE TABLE **** LOAD NUMERALS SHAPE z# ***************************E * *g * HOW TO DO A SHAPE TABLE * * JOHN FIGUERAS * * * * SHAPE3 * * *  * COPYRI    (ADDR256)'ASVE2N1,(ADDR256)= "DONE? Y/N ";KI$NKI$"N"160k"SAVE TABLE? Y/N ";KI$( RESPONSE PROTECTED AGAINST RANDOM KEY HIT2KI$"Y"1360<KI$"N"1370F1310PD$;"BSAVE"NAME$",A"(ASVE)",L"(ADDR)Z00,75!"SAVE SHAPE? Y/N ";KI$3KI$"Y"1220BNN1:180e GET INDEX FOR NEXT FREE BYTE~NN1:ADDRADDRASVENMAX1270"WARNING: TABLE FULL WITH THIS SHAPE"NMAX1310 STORE INDEX IN DIRECTORY ASVE2N,ADDR2568KSVE$"P"1150:B USE PLOT-THEN-UP VECTOR TO ENDMLCYCLE21120hVADDR,BYTE:ADDRADDR1{`CYCLE11140jBYTEBYTE32:1150tBYTE4~ADDR,BYTE:ADDRADDR1 ADD RECORD MARK. DISPLAY NEW SHAPEADDR,0:ADDRADDR1:N20 PLOT ROUTINE7Y2Y3Y36:X1,Y2X1,Y2:ZY2Y2Y24:X2,Y2X2,Y2:{Y2Y1Y1:X3,Y2X3,Y2: TURN OFF CURSOR IN PLOTTED SQ.XXSYYSı1X,Y:$ PREPARE BYTE FOR QUIT. CLOSE OUT BYTE FOR MOVE-ONLYSYMBOL3930(BYTEBYTE64SYMBOL9 STORE BYTETADDR,BYTE:ADDRADDR1 STORE 3-BIT VECTOR IN NEXT BYTE IF NEEDEDSYMBOL0SYMBOL3980 PREPARE FOR NEXT BYTE. GET NEXT 3-BIT VECTORCYCLE0:480CYCLE1:BYTESYMBOL:48OVE AND STORE BYTE9\BYTEBYTE8:ADDR,BYTE:ADDRADDR1mf ENTER UP MOVE AND DUMMY LEFT MOVE IN NEW BYTEpBYTE24:CYCLE2:480z ID THIRD 3-BIT VECTOR IS A MOVE ONLY, FINISH BYTE; ELSE LOAD BYTE INTO TABLE AND STORE 3-BIT VECTOR IN NEXT BYTE. PLOT$KSVE$"P"SYMBOLSYMBOL4F LOAD 3-BIT VECTOR INTO BYTEX CYCLECYCLE1jCYCLE1810 BYTESYMBOL:480*CYCLE29004BYTEBYTE8SYMBOL> PROTECT AGAINST PREMATURE END-OF-RECORDHBYTE7480R ENTER DUMMY RIGHT M670SYMBOL3:XX10:760/KEY$"P"690EFLAG1:1000:530XKEY$"Q"1080 NEXT STATEMENT PROTECTS FROM KEYING ERRORKEY$"E"5700:FLAG0:1000 SET UP PRE-PLOT STATUSKSVE$KI$:3:500 ADJUST 3-BIT VECTOR FORSVE$KEY$!0 GET NEW KEYSTROKE+:KEY$lD GO TO SIEVE TO GET 3-BIT PLOT VECTOR FROM KEY$ AND KSVE$NKEY$"U"610XSYMBOL0:YY10:760bKEY$"R"630lSYMBOL1:XX10:760vKEY$"D"650SYMBOL2:YY10:760KEY$"L"NABLES CURSOR AFTER A PLOT DISABLE2FLAG1520X ERASE CURSOR IN PREVIOUS SQUAREe1X1,Y1 PLOT CURSOR AT NEW X,Y. SAVE X,YX1X:Y1Y:FLAG01X,Y SAVE LAST TWO KEYSTROKES. KI$ IS NEEDED FOR ERASE R OUTLINE &KI$KSVE$:K0Y51X,Y:XSX:YSYA CLEAR TEXT. DISPLAY INSTRUCTIONSM:::o"MOVE PLOT CURSOR WITH KEYS""L-LEFT R-RIGHT U-UP D-DOWN""P TO PLOT Q TO QUIT" INITIALIZE KEY$. PLOT CURSORKEY$"":KSVE$"":570" FLAG RE-EISPLAY PLOTTING GRID. INITIALIZE COUNTER, CYCLEE ,3:1:0:CYCYLE0K 6h @X015010:X,0X,150: JY015010:0,Y150,Y: T CLEAR TEXT AND GET INITIAL PLOT COORDS ^::: h"ENTER STARTING COORDS" r"X ";X:X10X5|"Y ";Y:Y1ADDRASVEINDEX+ SEE IF FILE IS FULL: MAXN260k "SHAPE TABLE FULL. NEXT FREE BYTE AT ";ADDRu 1370 SET UP ADDRESS POINTERS TO TABLE 232,ASVE256(ASVE256):233,(ASVE256)  UPDATE SHAPE COUNTER NN1:ASVE,N/ " D",A"(ASVE)",V0,D2"4 x GET CAPACITY MAX OF FILET MAX(ASVE2)256(ASVE3)f MAX(MAX2)2 GET NO. OF SHAPES IN TABLE N(ASVE) GET FILE LENGTH INDEX(ASVE2N2)256(ASVE2N3) COMPUTE ADDRESS OF NEXT FREE BYTE UERAS, ROCHESTER, N.Y.":. (16)"9/12/79":@ 217)"****":d < INPUT TABLE NAME AND LOCATION F"SHAPE TABLE NAME ";NAME$ P"STARTING ADDRESS, DECIMAL ";ASVE Z DISK ACCESSES USE DISK D2 dD$(4):D$;"NOMON C,I,O" nD$;"BLOAD "NAME$GHT (C) 1981 *3  * MICRO INK, INC. *U  * CHELMSFORD, MA 01824 *w  * ALL RIGHTS RESERVED *  * *  ***************************  6);"****CREATE A SHAPE TABLE****"  #5);"J. FIG# ***************************E * *g * HOW TO DO A SHAPE TABLE * * JOHN FIGUERAS * * * * SHAPE2 * * *  * COPYRI            ORE INITIALIZED FILE ON DISK( D$(4)> D$;"NOMON C,I,O"t "D$;"BSAVE"NAME$",A"(ADDR)",L"(N)",V0,D2"z , ENTER CURSOR SHAPE VECTORS7 62,36,45,54,04,00B I05U A:INITI,A:s GET INDEX TO NEXT SHAPE} NN6 STORE NEW INDEX IN DIRECTORY ADDR4,N256(N256) ADDR5,(N256) UPDATE SHAPE COUNTER ADDR,1  STES TO BE STORED ";N( 2 ZERO DIRECTORY7 <I02N1G FADDRI,0:g P CALCULATE INDEX TO CURSORs ZN2N2 d PUT CURSOR INDEX INTO DIRECTORY nADDR2,N256(N256) xADDR3,(N256) CALC INITIAL ADDRESS TO CURSOR INITADDRNRO INK, INC. *3  * CHELMSFORD, MA 01824 *U  * ALL RIGHTS RESERVED *w  * *  ***************************   "NAME OF SHAPE TABLE ";NAME$ #"STARTING ADDRESS, DECIMAL ";ADDR ("NO. OF SHAP|# ***************************E * HOW TO DO A SHAPE TABLE *g * JOHN FIGUERAS * * * * SHAPE1 * * * * COPYRIGHT (C) 1981 *  * MIC   B1B39B39A1A1.A39A39G BLANK OLD POSITIONX0:A1,B1:3p PLOT NEW POSITIONy A,B630 A7A:BB19240* CHANGE SCALE TO REFLECT HGR (280 BY 192)4::> GIN OF THE SCREEN (40,40):b USING L R U D AND FTl:3:20,20:A20:B20\vA$jA1A:B1BA$"U"BB1:710A$"D"BB1:710A$"L"AA1:710A$"R"AA1:710A$"F"800 KEEP ON THE LO RES SCREENB1ING"'"60 DEF FNNUM(X)=(X-1)*(X+2)"E"70 DEF FNDEN(X)=X*(X-7)P"RUN"f::"REMEMBER :"&"60 DEF FNNUM(X)=";::"LEGAL BASIC EXPRESSION"0:"70 DEF FNDEN(X)=";::"LEGAL BASIC EXPRESSION":"RUN"D830X POSITIONING THE ORIIONAL 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)"" Y = ----------"" X(X-7)":" YOU WOULD TYPE THE FOLLOWON THE SCREEN JV191V0350)TH,V0^Hmr THIS POKE WILL DISPLAY THE BOTTOM QUARTER OF THE GRAPH|16302,0:A$:"DO YOU WANT TO SHIFT THE ORIGIN AND CHANGE SCALE?";A$A$"Y"A$"YES"90830:" DIRECTIONS FOR RAT GRAPHING H0279D  TRANSFER 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:VBYS @ TRANSFORM THE REAL Y VALUE TO HGR AND SEE IF IT STILL EACH UNIT" :7; AXIS, WITH THE REAL AXIS AT (A,B)U O,B279,B:A,0A,191} HASH MARKS EVERY UNIT ON THE AXIS HA279S:H,B2H,B2: HA0S:H,B2H,B2: VB191S:A2,VA2,V: VB0S:A2,VA2,V: ACTUALELECT WHICH AREA OF THE GRAPH TO VIEWG x620: TO POSITION THE ORIGINb S WILL BE THE SCALE DETAIL INCREASES AS S INCREASES 21:"AFTER THE BOTTOM HALF OF THE GRAPH IS FINISHED, HIT ANY KEY" "THERE IS A HASH MARK (/) ON THE AXIS FOR YOU HAVE A NON-RATIONAL GRAPH# U:m Z:"THERE ARE 280 HORIZANTAL DOTS. HOW MANY DOTS/UNIT DO YOU WANT?";S d21:"INDICATE THE INTENDED LOCATION OF THE ORIGIN BY MOVING THE CURSOR WITH THE L R U D KEYS. F=FINISHED"% n THIS ALLOWS THE USER TO S* COPYRIGHT (C) 1981 *7  * MICRO INK, INC. *V  * CHELMSFORD, MA 01824 *u  * ALL RIGHTS RESERVED *  * *  ************************ 2: <NUM(X)X FDEN(X)(X2) K: P DEF FN DEN(X)=1>> IF  ************************? * *^ * GRAPHING RATIONAL *} * FUNCTIONS * * RON CARLSON * * * * FUNCTION GRAPH * * *          AA$)8BB$(BB$,(BB$)2)% 63010- :3 X(AA$)3BB1::630105 @(AA$)19BB0::63010P JZZ1BB1ZZ0:63080o T(AA$)65(AA$)9063080 ^AA$((AA$)32) hBZ$BZ$AZ$:AZ$;:BB0ĝ rBB$BB$AA$:(BB$)8(AA$)8ĺ" "; |(BB$)2(AA$)8BB$"":BZ$"":63010 (* MICRO INK, INC. *7  * CHELMSFORD, MA 01824 *V  * ALL RIGHTS RESERVED *u  * *  ************************  BB$"":BZ$"":BB0:ZZ0 "AA$:AZ$AA$:(AA$)13ĝ:63130 ,(AA$)1ZZ1::BB0:63010 65  ************************? * *^ * LOWER CASE ENTRY *} * JAMES D. CHILDRESS * * * * LOWER CASE ENTRY * * * * COPYRIGHT (C) 1981 *  DD$(BB$,ILL1,1):MM(DD$)' :I,MM- DD NUL0:LL0::63110 X:" NUMBER OF NEXT LINE TO BE REWRITTEN":"(ENTER 0 TO END PROGRAM ";LT bLT0Ā l6302063210$ (AA$)65(AA$)90632109 AA$((AA$)32)W BZ$BZ$AZ$:AZ$;:BB0ĝ BB$BB$AA$:(BB$)8(AA$)8ĺ""; (BB$)2(AA$)8BB$"":BZ$"":63140: (AA$)8BB$(BB$,(BB$)2) 63140 BB$""63310 &:ILLUL 0ULJ1:63120* |K1LL0TST34LLJ10 L BB$"":BZ$"":BB0:ZZ0k ILLUL:((I));::"##" AA$:AZ$AA$:(AA$)13ĝ:63260 (AA$)1ZZ1::BB0:63140 (AA$)3BB1::63140 (AA$)19BB0::63140 ZZ1BB1ZZ0:"WRITTEN ";LT:, ,:M256(104)(103)2Y 6LN256(M1)(M):LNLMAXLNLT63320 @LNLTM256(M1)(M2)2:63030 JK0:LL0:UL0 TJM2M255:TST(J):TST0MJ3:63030 ^TST58K0 hTST186TST132K1 rK1LL0TST34* MICRO INK, INC. *7  * CHELMSFORD, MA 01824 *V  * ALL RIGHTS RESERVED *u  * *  ************************   :(3):"LOWER CASE INSERTION PROGRAM":: "LMAX62999:"NUMBER OF FIRST LINE TO BE RE-":  ************************? * *^ * LOWER CASE INSERT *} * JAMES D. CHILDRESS * * * * LOWER CASE INSERT * * * * COPYRIGHT (C) 1981 *      $XV$XY$XZ$ <156300 =XW$XV$XX$XY$XZ$_ =XT$"************************":B30(XW$)p =XS$(XT$,B) "=XW$XS$XW$ ,=E IS XW$ <:& <(ZZ$,1)"-"155604 -rqqdϠˬî7]Ĭ<]̠ӠĠA]F]K]P]d_0u]Ϡ.a()GR@@B;@rrp(ϠΠ)qqq\& ]]]Ҡ]ӠҮȠ]#]Ҡ(]-]Ԡé2]             S(ŠƠΠ)'8'`$L' B'KM6Q L'`%[V'P `'a(Ϡǡ)_'d%a()G` %a()GbGK[#LoP%a()P%a()G?[ @deE`.?r$E Jde[/'o Pa(ɠ̠ԠРϠ)#'Pa(ӠϠ)*$'Pa(ҠǠŧӠԮ)$.'oPe1deM7[1d]ϠŠЮӬĪe[nde deM[UVW2?rY+[XoP%)]q-rq-r&b`d%a()G` %a()Gb,gP%`'a()UV WP'a()Y[ pq  zq  d2e?oP`-r %a()G b-rG d2eoP`-r %a()G b-rG.]ϠŠԠĬĪ[dԲ-rqq\[ KM6%oUVW PbGY#oPUVW a()GYUVWoP+oPa(Ԡν)oPa(Ǻ)G:oP'a()P'a()P'a()P'a()PW[yq-rqqq`-r$ \ \_q`-r$ \ \_ `$ q-r-rq-rq\-rqq\`.?r$\@_-rq-rq\`.?r%\@_oPa()G!Pa(н)F8rG`.?r$deM6_(-rq-rq q\X[-rq-rq q\X)G` %a()GbG\y`$\_\q`%qoPb8rG`.?r%\@_`$-q-rq-rq\LoPb8rGqq KM6 (\ 2\dUVWi-rq/?drq\nYs-rq xqq}qq `$ q2oP"a(н)G`d%a()G` %a()Gb.P"a(ѽ)G`d%a(Ϡˬî ]Ĭ ]̠ӠĠ ] ]]O4rD4r)q6@q6?qq'!qpqdq-q6(q` ]]]ǠĠ]ĠîŬҮ]]ˠ]]Ԡé ]     )' q`$ KM6Q `d%[P a(ԧӠϠǡ)_)\[_\@p(ȠŠ)\_@p(Š͠)\#_$@p(Π)\_@p(Ҡ͠)\_@p( ͠)\O_P@p(Š͠)\_@p(٠)\$#a(ԠӠ٠)_#@p(Ƞ)\g_h@p(Š͠)\_@p(Ǡ)\/_0@p(Ԡ)\_@p(ȠŠ)\_@p(ԠŠ%-rq-rnYua(̠ҠӠ)w_< xa(ŠˠˠӠ)}_< ]7UVW oPa()GY_d0d2e?oPa@Gd2ea()G[ oP"`dr(`ұ$P-`Ҳ$d/`--rr6%[2`ҳ$x7[<--rrq-rA--rrq-rF[FPoPa()E@*8-rr#-rrE(Ġա) TbIұUQdUVW,i`-r-r6`<%q<8q8-r 8-rrr- rd`F%qF8#q8-r 8-rrr- rd$`P%qP5%a(ˠ٠)E@*8-rr#-rr!'ұq/?drҲq/?drҳq/?r%[_ /?r q-r_ q-r_ q-r_ q-r_`%["--rrq--rr[-rq-rPq8-r8--rr6r( 8-rrr- rdխ UVW  X  `--rr%\ Y+ `-#r-"r%-#rq _]Ӡq--rrd-`8--rrdr-r$<`$$-rq8-r-rr`- -rq_  -rq ` $T * `!$ ` %q_T  `$ q_T  `$ q_T  ]T ` %q^ `-r%qh ` $ r - rq- rq  ])* a(ӠŠŠӠנ)F- rE() `- r$ 9 a@*-r#-rrE(ӠΠ) --rrq Y Y Y ` $  -rq_ /?r -rq_  -rq_ `-r$ ~ UVW `8--rrdr$  UVW  X  `-r-r$  q/?-rr8r - rq- r `-r%-rqA a(ԠΠ)E@*-r#-rrE()FE(-2r$.) -rq6_ (. `  $B _` B `-r6$.L -rqO `!$t Q ` %-!rq S qV _t ` ` $T j `-r6$.t UVWXy .`%q` %q2_ ` $`$.q_ ` $ _.  `$.K `"8  r$)  `-r$. `%q_`%q1?rqq`%q` $T `-2r$T `%- rq` %- rq_T &`8  r%_.` $` $$`8r$4` $.4_4 >q-r_Hq_Rq-r_#\q`%q_fq-r_#pq`%q_zq-r_#q `#rY!,`%׳@Brp@*r6[T@`%[UVW`׳@:@*#r%Y`%[qײ@p׳@J[T`%[UVW`׳@:@*#r%Y`%[qױ@p׳@[ ] q`\@\`׳@:()$#q-rq-r$`88rr$.a(ȠŠ)8_ _H׳@p()qUVW;@r`$`@*#r9()$,`$_`@*#r9()$q׳@Brp@*ɶrq6-rq - rq- rq-rq-rqw-rq tw-rq-rq-rq -rq6-rq- rq6 - rq61- rq - rq -rqw-rq-rqEw-rq-rq-rq rqtw-$rq 5wUVW2-rq-rq-rq-rqYFw-rq2-rq-rq6-rq -rq- rq/w- rq- rq -rq-rq$w-rq-rq-rq \w-rq-rq--rq*8w-rq -rq-rq*Bw-rq-rq-rq*Lw-rq-rq-rq*Vw-rq-rq -rq*`w-rq -rq- rq*jw-!rq-"rq-#vUVW -rqtY-v- rq$- rq$-rqvUVW-rqYv-rq(v-rqvUVW-rq YwUVW-rq@Y$wUVW-rqY*.w-rq-rqԱ-rqYzvUVW-rqYvUVW-rqYvUVW-rqYvUVW!-rq YvUV"W#-rq@Yv-$rq vUVW-rqYv-rq -rqv-rqԠ)4 v@B;@rrp(Р̠РԠ) *v@B;@rrp( )%4v@B;@rrp()*>v@B;@rrp(ԠŠ) Wv@B;@rrp() [vqfvUVW -rqYpvUV Wp(ԠŠԠ)*u@B;@rrp(Š) u@B;@rrp() uq%9v@B;@rrp(ϠРΠˠ) v@B;@rrp(Ǡ)>v@B;@rrp(РԠŠŠɠӠנננРΠ)/u@B;@rrp(ŠŠŠ)4u@B;@rrp(ؠ Š)4u@B;@rrp(͠ӠŠ)/u@B;@rrp(ĠР)4u@B;@rr42rD42r DuO42rD42rD42rD42r NuKM6#XuN@"rC@"rD4 rbu@p() luqquO4r vuqu]Š%u]ĠŠĠĠMu@B;@rrp(ΠŠŠӠ)Gq$UVW$`-r$%'$a@*8r#rE()G $q`%P%Y&oP_0u]Š]:uN@"(rC@"rC@"rCױ@"rCײ@"rC׳@"rD42rD J$d2e"T$`$$Y$oPq^$UVWh$`8-rdr$$'r$a@*8r#rE()G|$q8r`$$ $a()P$Y($o PUVW a()GY'$o Pa( r$#_##oP!a()#`$##o P!a()#` $#_J$#oPa(Π)Pa()+#`$$oP#a()P#a(Π)6$oPa()GP#a(Ӡ)Pa(Ӡ)GP#a()e?B#`-r8-rr$#oP!a()P!a()B#`-r8-rr$#oP!a()P!a()9#`-r8-rr$#oP#a()9#`-r8-rr$#oPa(נ)(#`8%q Z#oPd#`$#:n#a(ՠŠĠ)FE()F/?rdE(Π) x#` %a(Šǡ)#a(ĭ)#Q$#UVW oPa()Y"#`$J$%#oP!a()P!a()d2_p@p()\__p8_pW_"@p(ҠӠ)\"oP_#(#@p(ҠŠ)\ -#q2#`-r6%q <#`-r6%qF#`-r6%qP#`-r6_@p(Ġ͠)\{_|@p(Ӡ)\"`-#r6%q_@p(Ӡ)\C_D@p(Ԡ͠)\_@p(٠Š)\ _ @p(ԠҠ)\oנӠŠŠҠ̠ĠΠϠŠϠŠĠƠҠ):dM6cqa(ՠŠǠĠǠԡ)Hxa(ŠŠԠŠǠΠŠΠӠԠӠՠ)UVWY]]٠ƠͭM6oa(ȠԠŠ˧)oa(٠Π)`.?6@r$(N@"rd!e$ -M6@PS(ϠՠȠϠŠРҠΠԠŠٯΠ)&@?T`@:()$Zca(ҠԠŠ)ccR@_dPZ@p( ] ] ]Šֽ Խ&]Π ӠӠŠ#]ŠӠΠ٠Ԡפ KM6]ΠŠΠ٠a(ϯŠŠ)"oa(ŠĠǠ)' ]]]ĠǠԠ]]Ԡé]Ϡˬî]Ĭ]̠ӠĠ ]     M6 UVɱWɲUVʱWʲf `/?r%fghYY4_d d6?e f UV(W/ ij'k Y _d(#QŠ̠)'رLf S(Ԡج٠)''Q`$V`$ ``''$L jgh_L S(ؠΠӠ)'ɱ'ɲ`ɱɲ'ɱɲ$ S(٠ΠӠ)'ʱ'ʲ&`ʱʲ/ʱʲ$ M6L d6?eiMkUVW˱YnMpUVW˲YxY]q2?r `%qر`%q ˱q ˲q˳q8˱2r`.?r$`.?r$`.?r$hKQL M6#S(ϠϠˬî ]Ĭ ]̠ӠĠ ] ]] M62Kq(q <N@"rF˱q˲qq6@c_d] fd6?eg_ hUVW˳]]]ŠҠҠŠ]ĠƮҠ]]Š]]Ԡé ] rq!-rq-rq-rq-rq?x-rq$-rq(-rq-rq-rqy_6|Pa()G[.}b8.?r.?rr8.?r.?rrQ-rq-rqd-rq-rq-rq?x-rq-rq-rq- rq- rq$?x- rq- rq- rq-rq-rq$?x-rq-rq2-rq-rq-rq?x--rq-rq-rq2[xx-rq- rq-!rq-$rqZ-%rq<-&rqA-'rq-(rq<Ex-)rq$-*rq-+rq-/rq<-1rq -2rq/x-3rq-5rq-;rq-<rqK xq?xe%d"ed#eoPPxUVW<-rqY[Zx-rq-rq-rq-rq<-rq-rq7- rq- rqd[dx- rq- rq-rq-rq<-rq(-rqZ-rq-rq(/nx-rq-rq- rq- rqPw- rq-rq -rq -rq-rq-rq-rq wd2e?+wo\|o\|o \|o\| xoP3 xUVWa()GP` %a()GP'a()Y:xd2ed ed!rp()UVW;@rX6ڱq8<@*rrr8<@*rrr<@*rr ڲq(ڱ deڲde<@*rr deKMY`.?6@r$`.?6@r$Q Fde Pde  Zde dd e nd e xd e d e d e de de de de de de deL de de de`!,@p()*6@BϠˬî ]Ĭ ]̠ӠĠ ]] M6oa(ǠΠŠ)`.?6@r$ N@"r de (de0 2de <de]]]ǠΠŠɠ]àڠ]]Ǡ]]Ԡé ]M6[bE()F E()Gq.?6@r `$ q o8rPa@*#r @Brp@*#;@rr o8 rPa@ d6?eY `$\!`%Y q@Brp@*#r& !d6?eo8rPa@qY\!q)' qd6?e@p()qq UVWL ]ҠŠؽӠϠҠΠԠؠŠƠؽΠ$ q`$ qq+ UVWq.?6?r.?6?rY_ > o8rP qbE()o8rP[ a(ԭԠ)ccc\R@q_]G ]ŠϠԠĠϠΠĠԠĠΠפ? `$ qN@"rC@"FrC@"r@p()D @p(&`@*#r:@*#r%qY4ccM6a()FE(ӠԠ)_-M6a()FE()E(Ԡ)]Š$q8rq;@r`$q8r`%_q8 r(o8rPqq ]ԠԠ!q]ԠŠo8 rPa@\ o8rP`@9@$]]ŠӠ,UV;@rW;@r@Brp@*#rY1UVW;@r`;@r%q`;@r%Y