' +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 ~(` F d ֠z# u`T OF ANY CHARACTER TO START AGAIN/Z10:DE09 1000 TS6: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 nXM2 N(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,ADDR256ORE 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     NE IF NO TRAILING MINUS IN MASKb:N$" ":NF%N$"-": BLANK IF POSITIVE, MINUS SIGN IF NEGATIVEuDOUT$OUT$N$:MӠ)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)\[_\@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"`@$]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#] ] ] ]ɭӠȠǠ]Ġ͠]]ȭԠ]]Ԡé]    Ԡ)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(ΠŠŠ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 * * *       oa(ȠԠŠ˧)oa(٠Π)`.?6@r$(N@"rd!e$ -M6@PS(ϠՠȠϠŠРҠΠԠŠٯΠ)&@?T`@:()$Zca(ҠԠŠ)ccR@_dPZ@p(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!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-rqAA$)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 *     hLhM _ L L)? ȹHH _)4 )@LȱLHȱHLHȱLH LHMH ahh`eLLM`L+Hȱh ⥢Ġ `HhhlLmbR~eꍎ"@qp M6[MbE()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נӠŠŠҠ̠ĠΠϠŠϠŠĠƠҠ):dM6cqa(ՠŠǠĠǠԡ)Hxa(ŠŠԠŠǠΠŠΠӠԠӠՠ)UVWY]]٠ƠͭM6DD$(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 *       1619,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`j 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) ^,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,743 "əзȹɠɍ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ブ#( $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   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 *             :*3 g 4 4 I L0 4L u h,h-<:,/ C`/LFlC@)I:< ?L< LhHh:h;/ V; THH::;:-H,HL: V:8 J8LL PSNI2,((F$,I,I)):I: .PSNI2,0:NUMBERPSNI3:100R 3PSN2,LO:PSN1,HI 8"ADD MORE ? ";Y$:(Y$,1)"Y"PSNNUMBER2:1015 =NUMBER,0:NUMBER1,0:NUMBERNUMBER2:100:175,LO:176,HI BI14:I;5)F$(I):IA "ANY CHANGES ? ";Y$:(Y$,1)"N"1050~ "WHICH ONE ? ";W:"CHANGE PART ";W;" TO ";:F$(W):1035 F$"":I13:F$F$F$(I)","::F$F$F$(I) LINELINE5:NUMBERLINE:100 $PSN,LO:PSN1,HI:PSN2,131 )I1(F$): dHI(NUMBER256):LO(NUMBER256HI)256:C  INPUT SUBSTRINGS] PSN(175)(176)256{ "INPUT THE COLOR ";F$(1) "INPUT THE PATTERN ";F$(2) "INPUT THE YARDS IN DECIMAL ";F$(3) "INPUT THE FABRIC TYPE ";F$(4)  ALLOW CHANGES * COPYRIGHT (C) 1981 *7  * MICRO INK, INC. *V  * CHELMSFORD, MA 01824 *u * ALL RIGHTS RESERVED * " * * $ ************************ & 2 <4000 FLINE2000 P1000 Z CALCULATE HI/LOW BYTES,  ************************? * *^ * DATA STATEMENT *} * GENERATOR * * VIRGINIA LEE BRADY * * * * DATA-GEN * * *   77w7H ,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_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(ϠԠԭà),M6W]ŠӠӠҠˠQ]Š͠Ϡh]Ġ }\d/?r (UVW Y2_da(ű)[na(ű)[xa(ű)w}zc7a(Π)a(ΧϠΠ̭ŠԠ)9ca(Π)a(ΧϠΠԭŠԠ)+a(Ϡ  :*3 g 4 0$4 I L0 4L u h,h-<:,/ C`/LFlC@)I:< ?L< LhHh:h;/ V; THH::;:-H,HL: V:8 J8LLL N0΂ L `G ,׭,`` L Ƀ` "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*iiii7$0Lɣ $ɠL`IE̅ͅiυ̥i͠ԑȩґȩȥ̑ȥ͑eiʩ)HH!ȱ`Hȱȑhh`܅݅`ܥݥhhL܅݅ܥݥhhL   hHL>? Le@ A@>LiL67Li LeLLLO>0ܥ> ? JA@@ȱ>@ >/8q@@ȱ@i@.ɝ/j>@>@Li>ie>>?i?@>@ȥ?@P٢ 0ǩ H;: @hHJ ? > > > ZL6LL&2>JVbnzӠΠϬɬÍΠͮōVEYET*J @Ƚ3JJJJ&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 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)" P"'"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 *  *     ; 89` ɑ!!`ɚ$(H$$$! $h`h$$`> 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.$*"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   z{H~ x;h Hɛhz{H~h`) idȱ}|xyhy|}ɀ yдHxhЫ;[Ѥѓd%` 89i67LQ ɛ `8ɨ ,$(H)? @(h ɐ QLe( B!!8 ,$[L 5ɍ,,5LÑz# Ҡ Ӡ ԠР ٠ŠĠ"٠Ҡ !ؠϠ" Ӡ ԠϠ ԠŠԠ ŠԠ ŠԠŠؠҠͭҭɠͭҭԠǠȠǠȠ Ҡ ˭ĠέΠŠҠ ̠ŠԠ " ĭ ĭ  àŠҠ ϠΠŠŠ Ҡ ЭŠ ЭŮ ˠ ҠҠ( ŠŠŠ ŠԠ ! Ǡ ӠӭǠŠɠ Š Ԡ Ԡ ̠  àԠà٠ΠȠ ȭԠűŲų נԠ ͠Ԡ ͠ Π Ԡˠ ҠˠˠԠϠΠŠŠҠ ȯŠ !Ԡ"ĠԠӠ͠8KSVE$"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     $$$$ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @   !!!!!!!"""""""####### @ $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?  Q``((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPР@` @ @ @   # (ʩоL:оLe  # PRUW  #  (٩ѥ    ШL:(   PI X 5ɑ % LV% [ :    ̤Ơ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      "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   $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]]]ŠǠŠ]ҠҠ]]Ҡ]]Ԡé ] 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 * * *  *       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*"H (*)+!hi# H (*0(!e!ie! i L8#H (*)+!h"0 H (*0(!8!8! `% e (`HJ))h)i( ((` !d6?e]ԠĠ_Q?e]ԠӠd6?e]ԠӠ&]ҠŠӠUV W?deY!S(ҠŠϠ)'%d6?e]ҠĠUV W?]ӧ%de]ԠŠΠY ]Ԡé ]Ϡˬî ]Ĭ ]̠ӠĠ ] ]`]d]Ԡͺ n]ӠӠǠ!xd6. ] ] ]ɭӠӠ٠ ]Π ]נȮΠ ] ]ӭǠ ]    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*"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[~]]٠ҢϠ͢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]]]Šɠ]ԠʮР]]Šɠ]]Ԡé]     `}?"@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 B67LH hɍ`6B  8,,`)#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 ] ]]ǠĠ]ĠîŬҮ]]Š]]Ԡé]      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 3 Xk o >:?; } o >? /:e/:;i;8:; `ǠӠ ǠӠL $9"1R23P B31 gh ɧ J :1 <h2h38ブ#(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 ] ]]ǠĠ]ĠîŬҮ]]Ԡ]]Ԡé     @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 L̅ͅ`̥`@S(ŠƠΠ)' q`$ KM6Q `d%[P a(Ϡǡ)_[*]ϠŠӬĪ[de1deM \[UVW2?rY[&o Pa(ɠ̠ԠРϠ)#Pa(ӠϠ)+Pa(ҠǠŠΠԮ)$oP Π)[ Xq  bq loPv`-r %a()G {b-rG[ `<()r$* %KM6Q*`.?r$*4de[*]ϠŠӬĪ[de deM \2e?\\d2e\YoPa()G`.?r$deM6_0 KM6%oUVW PbGY#oPUVW a()GY*UVW oPbE()GY oP a(̞\\`-r-r$ q)oP a(ͽ)G` %a()GbG d2e?q\ d2eq\Yq-r\@-rq-rqd2e?\\d2e\>-rqqd.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 ] ]]ǠĠ]ĠîŬҮ]]Ԡ]]Ԡé      ]Ϡˬî ]Ĭ ]̠ӠĠ ] ]]N@"ra(Ġ)2_ <d6?efUV(W/Fij'kY/Pq2?,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.R 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 169LV8ompneiejʆBCin? ,8kilj`<=o>p?iBjC ,iekjel8ompnmeimnejnmnm` pL)' q`$ KM6Q `d%[P a(ԧӠϠǡ)_)ϠŠӬĪ[de1deM \[UVW2?rY[&o Pa(ɠ̠ԠРϠ)#Pa(ӠϠ)'Pa(ҠǠŠ̠Ԯ)$oP S(ŠƠΠű %a()G b-rG%[&q q +oP 0a()GW[ `<()r$* %KM6Q*`.?r$*4de[*]ϠŠӬĪ[de deM \[*]r$deM6_ KM6%oUVW PbGY#oPUVW a()GY*UVW oPbE()GYoP a(̠)[ q  q oP`-rrq-rq\q.?r`$"de\ "\,d2e\1q\6Y @dŵe?E\!J-rqq\ T\^d2e\hYrY|oP a()G`.?$roP a(ν)G` %a()GbG UVWq-r\%oPa(ʽ)G` %a()Gb"Pa(ʩ)G`-r %a()Gd2e?b-rGd2eUVWX6\`-r$@ d2e? \-(xqq qq}qq& KM6 \ \ UVW-rq/?drq\YI-rq -rq-rq-rq-rqUVWq-r`Ϡˬî]Ĭ]̠ӠĠ]]]dO4crD4r8iq6(qqqde )nq6@q6?qqY ] ]]ǠĠ]ĠîŬҮ]]̠]]Ԡé]       ************************? * *^ * MICROMODEM TRANSFERS *} * GEORGE DOMBROWSKI * * * * BINARY TRANSFER * * * * COPYRIGHT (C) 1981 * """"RH 4 hREą SШЈHhH--h5 :0h$. А \АI0L 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` ]]]ǠĠ]ĠîŬҮ]]ˠ]]Ԡé ]     X140: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     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@*ɠϠˬî7]Ĭ<]̠ӠĠA]F]K]P]d_0u]Ϡ.a()GR@@B;@rrp(ϠΠ)qqq\& ]]]Ҡ]ӠҮȠ]#]Ҡ(]-]Ԡé2]        07)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 *  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˳]]]ŠҠҠŠ]ĠƮҠ]]Š]]Ԡé ] BA1:C$;:: , :49234,0:X039< ((1)16)J X,39XX[ X,47X39Xl 39X,X47Xz 47X,XX X::: 8,31,6,17C,31,6,17C3:"ALL RIGHTS RESERVED") X1700:X5 :1000i :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: A:X1****** [$ _::C$"*":A,B,C,D5 d2000:3:15J n:"MICRO/APPLE"V x:1000z :C2:A4:"MICRO/APPLE DISK" C3:A9:"VOL. 1" A3:C5:"COPYRIGHT (C) 1981" A5:"MICRO INK, INC." A2:"CHELMSFORD, MA 01824"  A **********************; * *X * MICRO/APPLE HEADER *u( * *2 * COPYRIGHT (C) 1981 *< * MICRO INK, INC. *F * ALL RIGHTS RESERVED*P * * Z ****************   MPUTER 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 COR Jȱȱ0 L?i i8H*ߨii i'R`8  `'@ p @ p )@ p )p @ Π&[ mZ  m y? 8B  )P 0yo 8r  )P L+h `  `' )0  )j );" AFTER ";NA$(I);".":48 0Y:LOC(K)J:ND(K)KA1J:INS(K)SU:JKA1:CPR44NA$(K1)"COMMA":JKA:63250_DeNsvPCP1Ā:"NOTE: YOU MUST MAKE THE FOLLOWING CHAN-":"GES MANUALLY:":I1K:((IMS(I)))ND(I)Ă:"LINE ";LM(I),": INSERT ";IMS(I)ND(I)PCR1 E SO(SK256):(LS(J)1),SO:(LS(J)),SK256SOw I1K:LNULN(I)LM(I)SK:LNUBGNLM(I)LNU} SKSKADD:LUNLNU KK1:LN(K)LC:SU(J1)48 KAJ2J6:CPR(KA):CPR0CPR58CPR44ī63290&SU10SUCPRLNUTRMLNU62900ĺ:"RENUMBERING COMPLETED THROUGH LINE ";LUN;".":63350] LNUBGN63190 SK$"0000"(SK):SK$(SK$,5) I1K:LNUINS(I)Ă:63180 KA1ND(I):LOC(I)1ND(I)KA,((SK$,6KA,1))48: LNUINS(I)IMS(I)SK ((SK):LC256(M1)(M):LC6290063100Q JJM2M255:TST(J):TST0MJ3:63040u TTST171NA$(K1)"GOTO":63250 ^TST176NA$(K1)"GOSUB":63250 hTST196(J1)47(J1)58NA$(K1)"THEN":63250 rJ |J1L:LNU256(LS(J)1)(LS(J)):";BGN:" ENDING LINE--";TRM:" TOTAL NUMBER OF LINES (ROUGHLY)--";D: ,"RENUMBERED BEGINNING LINE--";SK:"INCREMENT--";ADD 6START256(104)(103):MSTART2:DD(D4):LS(D),LN(DD),LM(DD),LOC(DD),NA$(DD),ND(DD),INS(DD),IMS(DD)# @LL1:LS(L)M*!  * MICRO INK, INC. *A  * CHELMSFORD, MA 01824 *a  * ALL RIGHTS RESERVED *  * *  *************************  :(3):"RENUMBERING PROGRAM":I ""LINES TO BE RENUMBERED:":" BEGINNING LINE--! *************************A * *a * APPLESOFT RENUMBERING * * JAMES D. CHILDRESS * * * * RENUMBER * * *  * COPYRIGHT (C) 1981       ] ] ]Šֽ Խ&]Π ӠӠŠ#]ŠӠΠ٠Ԡפ KM6]ΠŠΠ٠a(ϯŠŠ)"oa(ŠĠǠ)' ]]]ĠǠԠ]]Ԡé]Ϡˬî]Ĭ]̠ӠĠ ]  00)256):YHM100256X:63,X:62,Y:ZSINN:X(ZS256):YZS256X:67,X:66,Y:834mWWWWADD:INCINCADDJ0NN:IJ,NT(J)::IINNINNGE HAS BEEN MADE":"THROUGH PART OR ALL OF LINE ";LM:]KK1:L(K)LM:CH0LMBLLMELıZSIN:X(ZS256):YZS256X:61,X:60,Y:X(WW256):YWW256X:63,X:62,Y:ZHHM100WWZS:X(ZH256):YZH256X:67,X:66,Y:834S61,X:60,Y:X((HM1K:L(I)L(I1)633206:L$"0000"(L(I)):L$(L$,5)XDJ15:WJ,48((L$,J,1)):rN00000:::::::::"";Y$~X:HM:bJ0N:(IJ)SK(J)ıl6vCOINCADDCO%0CH1:CO%1:"THE SUPPLY OF COLONS IN LINE 62999 IS":"DEPLETED. THE CHAN )$۬a`bec}fd)z ݀`|zzz|})B ݀`}c|x- لf`iaj`glqfivfjubq`rbf* ڪ/#pborfmu~zmxzqy~h{|s*d>$ْ zek bzh(02IM4M255:(I)0(I)SK(0)(I)34ĂP(I)34SQSQ12(SQ1)m(I)SK(0)SQ1İ63330(I)0NANAINC:X(NA256):YNA256X:M1,X:M,Y:MI1:63170X(NF256):YNF256X:START1,X:START,YI::"THE ITEM":" 63170.I0255:NT(I)(M4I):NT(I)0Ă^NNI1:ADDNNN:MMNN6:WWWWADD(ADD0)6NT(0)34āI1NN:NT(I1)NT(I)::NNNN1:ADDADD1X(NL256):YNL256X:START1,X:START,YLM256(M3)(M2):NA256(M1)(M):LM629866323NING LINE ";BL:" THE ENDING LINE ";EL:N hNF256(START1)(START)z rI0255:SK(I)(START4I):SK(I)0Ă |NI1 SK(0)34SK(0)64SQ(SK(0)34):I1N:SK(I1)SK(I)::NN1MSTARTN6SQ:INC0:CH0:256(M3)(M2)2CH1:RE YOU RUN 63000.":HM: T1,2:::"PLEASE VERIFY IF THE COMPUTER TAKES":"THIS AS YOU INTENDED. DO YOU WANT":"TO CONTINUE (YES OR NO)? ";Y$::Y$"YES"ģHM:/ ^"THE CHANGE ENTERED WILL BE MADE IN THE":"RANGE OF LINES CHOSEN ENTER":" THE BEGIN0:836,76:837,44:838,254W ,WWFINI540START1:X0(WW)188WWW:X1:WWWW1730w 6256(WW1)(WW)62986Ă @NL256(WW1)(WW2):CONLWW10:HMWW100 J256(START3)(START2)1ĺ" YOU MUST ENTER YOUR SEARCH ITEM AS LINE":"1 BEFO::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SK(100),NT(100),L(100):START256(104)(103):FINI256(106)(105) "HM256(116)(115):834,160:835,* "  * MICRO INK, INC. *B  * CHELMSFORD, MA 01824 *c  * ALL RIGHTS RESERVED *  * *  ************************* ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: ! *************************A * *a * SEARCH/CHANGE * * J. D. CHILDRESS * * * * SEARCH/CHANGE * * *  * COPYRIGHT (C) 1981       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 * !!!!!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]]]ǠΠŠɠ]àڠ]]Ǡ]]Ԡé ]! !!!`.?%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]!! ! ! *** 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 #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(HB 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." " """""z{H~ x;h Hɛhz{H~h`) idȱ}|xyhy|}ɀ yдHxhЫ;    [ d  % " ʅ˅LM8ei ȱ d   p   dб`ui` ` `hh` "