L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 Ccˆʎõĵ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- ( t Ϡ@跻~!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`` <p?@ b8 4 @pp@A ` @a Fa@@a@|@@D @``p`  @@ p!@@ `@   @0 @@    @ @ 0P@pp ! 0 @ @>y  @ 0 33 @!@L@t@ @0@@ * @ |p!@ @0@x8@8p  @`0` p@p0 @ 0 0  x#P`@` 5 @ @ `b   @@  pX``@ D@`` @|  @ @xC@@l` l`~q @1xpp @|@ `?` ~ H h@ !p  @ 0B0   p@0 ` p0@ @ d @ @@  @  @@p|G1F1p @ =LC|~@ @ @p @ 6H @@p`",z "WHAT OTHER CONNECTIONS DO YOU SEE?"[ "COULD THERE REALLY BE SOME CONNECTION?"h "HOW?" "YOU SEEM QUITE POSITIVE." "ARE YOU SURE?" "I SEE. PLEASE GO ON." "I UNDERSTAND. PLEASE CONTINUE." "WHY DO YOU BRING UP "* "WHAT ARE YOU THINKING OF?":4 "REALLY, ALWAYS?"Z> "DO YOU REALLY THINK SO?"|H "BUT YOU ARE NOT SURE YOU*"R "DO YOU DOUBT YOU*"\ "IN WHAT WAY?"f "WHAT RESEMBLANCE DO YOU SEE?"p "WHAT DOES THE SIMILARITY SUGGEST TO YOU?E YOU SAYING NO JUST TO BE NEGATIVE?"K "YOU ARE BEING A BIT NEGATIVE."\ "WHY NOT?"r "ARE YOU SURE?" "WHY NO?" "WHY ARE YOU CONCERNED ABOUT MY*" "WHAT ABOUT YOUR OWN*""CAN YOU THINK OF A SPECIFIC EXAMPLE?"  "WHEN?"EAMS?"0 "ARE YOU DISTURBED BY YOUR DREAMS?"[ "HELLO...PLEASE STATE YOUR PROBLEM." "YOU DON'T SEEM QUITE CERTAIN." "WHY THE UNCERTAIN TONE?" "CAN'T YOU BE MORE POSITIVE?" "YOU AREN'T SURE?" "DON'T YOU KNOW?"% "ARLEASE DON'T APOLOGIZE."<N "APOLOGIES ARE NOT NECESSARY."rX "WHAT FEELINGS DO YOU HAVE WHEN YOU APOLOGIZE?"b "DON'T BE SO DEFENSIVE!"l "WHAT DOES THAT DREAM SUGGEST TO YOU?"v "DO YOU DREAM OFTEN?" "WHAT PERSONS APPEAR IN YOUR DR "NAMES DON'T INTEREST ME."M "I DON'T CARE ABOUT NAMES--PLEASE GO ON."n "IS THAT THE REAL REASON?"& "DON'T ANY OTHER REASONS COME TO MIND?"0 "DOES THAT REASON EXPLAIN ANYTHING ELSE?": "WHAT OTHER REASONS MIGHT THERE BE?"D "P "WHAT DO YOU THINK?"F "ARE SUCH QUESTIONS ON YOUR MIND OFTEN?"w "WHAT IS IT THAT YOU REALLY WANT TO KNOW?" "HAVE YOU ASKED ANYONE ELSE?" "HAVE YOU ASKED SUCH QUESTIONS BEFORE?" "WHAT ELSE COMES TO MIND WHEN YOU ASK THAT?"MEAN TO YOU IF YOU GOT*"1 "WHY DO YOU WANT*"O "SUPPOSE YOU SOON GOT*"n "WHAT IF YOU NEVER GOT*" "I SOMETIMES ALSO WANT*" "WHY DO YOU ASK?""DOES THAT QUESTION INTEREST YOU?" "WHAT ANSWER WOULD PLEASE YOU THE MOST?"̰d6?eKM6'Qq\wq'\wq(\w@q4бqвq\q17бq47\,q4бq4\,Cpd,eq/\q6\wq\q\q\ &M6(&oa(Ӡ٠٠ϠĠ)&`.?6@r$& &d6?e&d6?e 12:15:"EXPERIMENT"B! :14:9:"USE KEYBOARD FOR MENU.":`& 6:12:"BY DEAN HUNTLEY"0 15:3:"PATTERNS": 15:4:"========"D 1:24:A$:255:)20101.85323)$Y((0)1.62):, A05 145E ::I139W :I:1:"*":w I223:1:AA1:A:"*":I A1:I139:A:23:"*":AA1:I A1 I223:39:AA1:A:"*":I 60 :10:5:"USE PADDLES AND PADDLE BUTTONS.":=бqвq\qx?бq вq\qBбq вq\d,eqB\qL/\qh/\ &M6(&oa(Ӡ٠٠ϠĠ)&`.?6?r$& &d6?e&d6?ed6?eKM6'Q=q|\w qP\wq\w qQ\w*qJ\4qmR\w>q\wHq8D\Rqv\w\qO\wfqR\wpqW\wzqQ\qP\wqT\wqR\wq:бqвq\q @   ` @ x0C| ! ŠǠǠӠ)H0 `%a(٠Ǡ٠ԠӠŠǠ)-: `%a(ԠƧϠŠ)JD [N ]S q_N 8 r_X qa(٠ŠӠͬ٠ɧ͠ǠϠ٠Ԡ ]Ġ a()l a(ƽԠŮҽԠŮ̽ԠŠͽĮȮĽĮý ȽԮѽԮ) a(нŠ)G3 `%a(ǠĠӠĠĭ)U& `%a(٠Ǡ͠ԠҠԠ1271900b1880#l16368,0:>v"MEMORY (1-100)":130L= ";FFCV1(37)!" ";A$K(A$,2,1)"F"A$(A$,1)(FF):1830\A$"R"1530nA$"RN"1410NEFF:A$"N"II3:::50!(A$,1,1)"S"KL1&CZ10170:33,40:DN"HIT ANY KEY TO CONTINUE" XX(16384):XF61740F515000,5010,5020,5030,5040,5050,5060,5070,5080,5090,5100,5110,5120,5130,5140,5150,5160,5170,5180,5190,5200,5210,5220,5230,5240,5250,5260,5270,5280,5290,53001760"ILLEGAL FORMULA":216,0:WW$"CR"1780QQ$:" hG51G4%rG3(G5)(F7F9)1700-|G5FG4G41:G3(G4)F7F9t"VALUE ";(F7F9);" =";:" ";Q2:CV(37)F91060,1070,1080,1090,1100,1110,1120,1130,1140,1150,1160,1170,1180,1190,1200,1210,1220,1230,1240,1250,1260,1270,1280,1290,1300,131070,6280,6290,6300LL1860*216,08"X=";QQ$AG41RF61(QQ$)fQ1$(QQ$,F6,1)p"F764,F9126:Q1$(F7F9)G11:16106F9@1700JG2126:(QQ$,F6G1,1)(F7G2)G1G11:1610TG2^G11F6F6G11:1700839 18,398) X1015:5,17X:XB X1621:13,17X:XI 1a 12,1335:12,1334y &30,3235:30,3234 034,3914:34,3930 :14,3038:14,3039 D7 N X START CLOCK b l3000 v2390 {ROME1:MM1:2260:MM1:ONCEPT BY  PAUL RAYMER1  VIII/IX/MCMLXXXL  == AS IT APPEARED INe  CREATIVE COMPUTINGt  MAGAZINEz   "HOW MANY MINUTES PAST THE HOUR? ";M "WHAT IS THE HOUR? ";H   15 X039:0,4X:X 0,838:0,N d::R$(60)-X160:R$(X):XA"LL5:T1:TT1G,Y6 TIME ADJUSTs@ JULIUS=SECOND EMPTYJ AUGUSTUS=FILLINGT OCTAVIUS=HOUR ADJUST^hJULIUS9:AUGUSTUS10:OCTAVIUS100r| ROMAN WATER CLOCK  ORIGINAL C   bqf/бqвq\lq+0\vq-бqвq\q.\q<\q(w\wq#N\wqO\wq \wqN\wq,\wq0\wq\wq0\wq(\wq7L\\wqh)\wqv\wq-бqвq\q 0\q\wqX\wqO\wqF/\qN\wqX\wq/\w&q+0\0q\w:q,\wDqN\wNq"N\wXqu\w*бqвq\q4,бqвq\qV/бqвq\"q)\,q*\6qn+\@q.\Jq0\Tq8\^qF(\whq\wrq\w|q\wqO\wqt'\wq(Zq\wdqW\nqR\wxq\wqN\wq\wq\wq'\wq\wq2\wq)\wq\wq+\wq=/\qT\wq\wq)бqвq\qwq0N\wqO\wq$N\wq\wqO\wq\wqT\wq\wq \wq'\w q(\wq\wq\w(q(\w2q \w<q\wFq\wPq\wdCeM6d6?e!$Ld ed!e\h_hq]ԮԮԠĠFiq.?rq.?rde%deMMdedeMjUVW 3k`-r%q`-r%q`-r$ql`$om`$p@nde/ gY n u | Kұ/ḵu 9ұ/̱i  _(#]Ǯ`%\ \ Id<ed=ed>ed?edBe``` +>L`@LRY ` ǩLr`ة0G0D0Aʼmʼm``0 +>ؠ0w0t0qoʼʼ      آ0?0<090ʼ0mʼ0mf#de dededededededeLde dede`#_'d6?eQq q/ qY q q q qqKqqqұq/qḵqn#ױqײq+x#]ԠРŠo#ded ed ed e0d ed edededede dedeedBedCeM6d6?ePL`.?r.?r"%\`.?r%de`.?r%de_*(#]Ԡ͠ج٠ϭħӠ2#dJedKe<#dedeF#dedeP#qqN@"(rZ#Lkd#a(ӠҠ)E@a(٠)_Pa(ӠŠ)E@a(ՠԠŠϠŠŠϠϠҠΠӡ)-a(Ϡ٠ΠԠЧƠĠѧ)G[]Ǯ&`.?6@r%\`%\ \ Id<ed=ed>ed?ҠŠƠ)FG`$`x$|`P$h`($TU@a(ӠԠ)E@a(Ҡ٠ӠՠӠ̠)G_>q`%- rq`%- rq61?`%q\`%Mg`%M[@\4q[Bq`%q\[C\qqq[ q[]ˠ/``%-rq `%-rq6 `%q\`%Mg`%M[6\4q[7q`%q\[8q` %q\[9\qqq[ :_;;\q[<\Mq[*=\q[-q` %q\[.q`0%q\[/\qqq[ 0_11\q[2\Mq[*3\`%Mg`%Mq[94q`%q\`%Mg`%M[l5q''\q[(\Mq[*)\`%Mg`%Mq[9*q`%q\`%Mg`%M[l+q`%-rq6`%-rq`%q\`%Mg`%M[,\4[\Mq[*\`%Mg`%Mq[> q`%-rq`%-rq61!`%q\`%Mg`%M["\4q[$q`%q\[%\qqq[ &_[*\`%Mg`%Mq[>q`%-rq`%-rq61`%q\`%Mg`%M[\4q[q` %q\[\qqq[ _\q%Mg`%Mq[> q`%-rq`%-rq61 `%q\`%Mg`%M[\4q[q`0%q\[\qqq[ _\q[\Mqq[>q`%-rq`%-rq61`%q\|`%Mg`%M[\4q[q`%q\[\qqq[ _  \q[ \Mq[* \`%-rq6`%q\`%Mg`%M[\4q[q`%q\[q` %q\[\qqq[ _\q[\Mq[*\`%Mg`%Mq\[q`0%q\[\qqq[ _\q[\Mq[*\`%Mg`%Mq[9q`%q\|`%Mg`%M[lq`%-rq`Mq[*\`%Mg`%Mq[9q`%q\|`%Mg`%M[lq`%-rq`%-rq6`%q\`%Mg`%M[\4q[q` %[qƱqM[qƱqMұ[=de.?rMM`$`$qƱM[qƱqM[qƱqM̱[]ԠŠqMMM[\4q[ _\q[\]Ġde.?r_]ԠŠqMMM[]ԠŠqMMM[]ĠȠ&`$`$wq_=de.?rMM`$`$qƱM88rrde`%M`%M_q@ode88rrde `%M`%M_q;pde88rrde`%M`%M!qYdedeqq[|] }de.?r_        dx ` d ` dƅ ` d `                 dz `     d ` dԅ ` d ` d `  dJ `       d `       d̅ `        d `   d@ `  d| `  d `     d `       d< `       d `  dօ `  d `        d@ `  j  ` d  ` d…  ` d  ` d  ` d\ `Ḻh ~p ұy   Q   d  ` d@  ` d36d<e8.?rrd=e.?r8.?rrkd>e8.?<rrd?e.?=r8.?<rrdBedCe de.?>rde.??rM6_ آ&#ee ܅ L L 8 `W _                     /{`%qMM`$|Mq[|Mq[ q[ q]Ԡ$ `$ `$N `$N a(ɬϠՠĠӿٯΩ)ca(Ԡé̠) `%q `%q q[ӱqӲqӳqq[*]Ԡ+d6?eKM6,Q4]ԠŠ5qMMM[ >q[ Hq[ Rq[ \q[ f]Š0g`%qMM`$hMױq[hMײq[ pq[ z]Ġ$w_ qq_ / MMMfg hgh&ghX!ca(Ƞ͠ĠϠԠӠ̠ӠҠȠƠŠŠŠӠ)N"a(ήՠ̠ŠĠΠĠĠ٠ƠŠӠĮ)G&#qqƱqMұ[<de.?rMM`$`$ qƱM[qƱqM[ qƱqM̱[ ]ŠĠ, MM`$`$qƱM[qƱqM[qƱqM[ q[`]Ԡ$`%q`%qw_ q[ q[ q[]ԠŠqMMM[]Ġ&`$`$wq_<de.?rMM`$`$qƱM[qƱqM[e`.?r"%de"[ q[]ˠ/`%qMM`$Mq[Mq[ ]de.?r_]Ġde.?r_ q[]ԠqMMM[ q[       _(#]˧Ġ.q.?6@rd6?e`%[q[5q`.?r%d  dx ` d ` dƅ ` d `                 dz `     d ` dԅ ` d ` d `  dJ `       @L; $  .  L? ` ɖfLL  ɖfLL `   d@ `  d| `  d `     d `       d< `       d `  dօ `  d `        d@ `  j  ` d  ` d…  ` d  ` d  ` d\ `Ḻh ~p ұy   Q   d  ` d@  ` d}6d<e8.?rrd=e.?r8.?rrkd>e8.?<rrd?e.?=r8.?<rrdBedCe de.?>rde.??rM6_ آ&#ee ܅ L L 8 `W _               {&%M6oa(͠ŠԠӠàà)s0%oa(Ҡ̠̠Š̠̠̠͠٠)]D%ca(ϠԠqײq+x#]ԠРŠo#ded ed ed e0d ed edededede dedef#de dededededededeLde dede` !%qeF#de de"P#O4 rO4rN@"(rqkd#q q/ qY q q q qqKqqqұq/qḵqSi#quq q9qұqq/̱qiqqqn#ױ`-r%qY`ʱ$[]ŠҬUVWYUqUVW -rqYq`%q`%qqd6?e[<qq[*(#]Ԡ͠ج٠ϭħӠ2#dJedKe<#ded[/ `$ `$ `$# `$`$)q8/?rr`-r$_ q[) q8/?rr`-r$_ 4ʱqUVWX`-r%qY`ʱ%[8ʱqUVW X$<< qqca(٠)cqq`$ [ ]Šà `@9()$ # q/? r`-r$ _  qq[ ]Ҡ$ UVW `-r$ Y_ `$  `-r$ q`%q O d!e

q[ Hq[ Rq[ \q[ f]Š0g`%qMM`$hMױq[ƱqM[ q[`$w_ qq_ / MMMfg hgh&ghX!ca(Ƞ͠ĠϠԠӠ̠ӠҠȠƠŠŠŠӠ)U"a(ήՠ̠ŠĠΠĠĠqƱM[qƱqM[qƱqMұ[<de.?rMM`$`$ qƱM[qƱqM[ qƱqM̱[ ]ŠĠ, MM`$`$qƱM[qƱqM[qUCKS..." '84 '" THAT WAS SO MUCH FUN...."< ':Y '"BYE-BYE FUNNY PERSON."c ':: $'"(BY THE WAY, IS THAT YOUR NOSE OR ARE" &'" YOU EATING A BASEBALL BAT?)" .'150 nX((1)34)1+ xY((1)22)1= L((1)3)1L L1İ1000[ L2İ2000j L3İ3000q J I11000:I 35 Y:X:"HA HA!"  Y:X:"HEE HEE"  Y:X:"HO-HO" ' END OF JOKES... ':3:"AW, SH Z$(255)/"ASK ME A RIDDLE ";Z$740Z#:"TELL ME ANOTHER ONE. ":Z$r$(Z$,1)"N"ī10000(::" GEE...THAT'S A TOUGH ONE."2I11000:I<"I'M THINKING...."FI15000:IP"I GIVE UP. ";Z$ZZ$_ dJ  30032KuIN ALL COPIES.Lu8Mu THANK YOU!!>NuDOuXPu---VERSION 1.3---------------+r;uxu ALL FOLKS!T-----------------+;uuG?u A[@u LOW-RESrAu BIRTHDAY CAKExBuCu -*-DuEu CLASSIFIEDFu -PUBLIC DOMAIN-Gu DEC., 1981HuIuPLEASE RETAIN LINESJu30000-11,1518:11,1520-|'15:5,1018:5,10205~':;'T'A$" HAVE A PIECE! "^'1640m'34,22::y N:::0u1u2u3u+-------------------+4uI HAPPY BIRTHDAY! I5uI BY JIM GANZ I7uI WEST HARTFORD, CT I9u+-- 'CB31:220:15+$'Y20388.'14,24Y>8'NB'X115:X223^L'Y19151fQ'15sV'X1,X2Yz['7`'X1,X2Y19j'X1X11:X2X21t'u'11v'X114:X224w'Y29241x'X1,Y:X2,Yy'X1X11:X2X21z'Y{'14:,5776,206:777,1:778,3:779,240:780,9:781,202Y782,208:783,245:784,174s785,0:786,3:787,76788,2:789,3:790,96 +-----------------+ I CUT THE CAKE! I +-----------------+ Id +----------------+#e)f/gGh20(A$)21:A$:MtSumv +---------------+w I POKE TONE Ix I ROUTINE Iy +---------------+z{|770,173:771,48:772,192773,136:774,208:775)$k%e%`@9()$k%f%`@9()$k%h%_b%k%Lkl%a()m%d ed!ev%UVW -rqY_'d6?eQ)͠Š͠ՠ٠ŠѠנҠΠԧӠҠΠǠŠ),N%oa(ΠԠΧ)FX%oa(͠٠̠ȮҠ̮®îԠé)*b%oS(ԠϠ)&@ c%`@9()%Qd%`@9((Y);:::::0:32,1:33,35:34,2:35,22:56:L61:X138:"*";:l6X123:1:"*";:39:"*":623:1:X139:"*";:632,1:33,35:34,2:35,226SC1:::534,12:5S0570(534,28538:23:A$O5A$(27)S0:330b5A$(16)İ610w5&G110:922:G50C11C15:CC15DL5N::5b:34,23:5l1:1:I02:J07:X(I40)(J128)1024:KXX38:Y(K):Y160Y32-6vD PROGRAM)":16:8:YEAR:YEAR0590:>4r"MONTH ";SEE$:U12[4C1N:SEE$A$(C)SEECa4w4SEE0Č198:3704CSEE:MTHA1(C)4:4:SC04604L1U4MTH12C1:CC1:MTH1:YEARYEAR1:SEE$A$(1):4805MTHMTH1:SEE$A$(C1)T,8,SEPTEMBER,9,OCTOBER,10,NOVEMBER,11,DECEMBER,12N3JD$(4): INPUT DISPLAYV3T:3^4:12);"YEAR AT A GLANCE":10:"COMMANDS -> NEXT MONTH = 'SPACE'":13);"NEW ENTRY = ' ESC '":13);"HARDCOPY = 'CTL P'"%4h16:"YEAR (ENTER '0' TO EN TAB FUNCTION2SC1240$2640+236233,35O214);SEE$;" ";YEAR:U22" SUN MON TUE WED THR FRI SAT"2(J)2"I1DAY:I$(I):40:4S);I$;:2,26 JANUARY,1,FEBRUARY,2,MARCH,3,APRIL,4,MAY,5,JUNE,623@ JULY,7,AUGUS(.4MTH2.3):B2(.4(MTH1)2.3):E1YEAR4:K(.75H1)M1ZMTH1MTH2130^1dXABA2EFp1nYAB1B2EFy1x1501XABG:XXK1YAB1G:YYK1MTH2YYA21DAYYX1T(X7)7X1E1EMTH2DAY291T0T7 2JT54:'0 << CALENDAR >> BY K. JENST0N12:A$(N),A1(N):C1N:A$(C),A1(C):C]0330o0((I$)9S1:u020<D$(4)0FA365YEAR:B131MTH31:B1131(MTH1)31:E(YEAR4):F(.75(YEAR100).75)81PG((YEAR1)4):H((YEAR1)100):A2  " AVAILABLE":216,0:CV(37)1:PA11000:PA:660A1440cCV:" ":CVlLL0F516000,6010,6020,6030,6040,6050,6060,6070,6080,6090,6100,6110,6120,6130,6140,6150,6160,6170,6180,6190,6200,6210,6220,6230,6240,6250,6260,62ULT"Z" TO PREVIOUS NO."Gd:"& NORMAL MODE SIGN":::33,19:CVQnAZANYxCVlCV(37)1:CVw14605000FF0"ENTER FUNCTION # ";F5$:F5$"0"1450(F5$)01780F5(F5$):14807X(222):X90ĺ"NO FUNCTIONS":2:PQ2:QQ2:$RQ2:/SQ2::TQ2:EUQ2:PVQ2:[WQ2:f XQ2:qYQ2:|ZQ2:(32,19:34,17::PA1200:PA2"'R' REPT FUNCTION"<"'RN' NEW FUNCTION"F"'SIGN&F' MATH SIGN"P" & FUNCTION RESD$;D3$F$:F1$:FI$:D4$/D$;"CLOSE"@II1:::50XD$;"EXEC CAL-FILE"^i$AQ2:t.BQ2:8CQ2:BDQ2:LEQ2:VFQ2:`GQ2:jHQ2:tIQ2:~JQ2:KQ2:LQ2:MQ2:NQ2:OQ"#";F5;" X= ";QQ$fF52p"DONE":216,0:7408zKD$;"RUN CALC"k"INPUT FUNCTION ":" ";F0$F$(FV)"FF="F0$":RETURN"F1$(FV1000)"QQ$="(34)F0$(34)":RETURN"FI$"3FV="(FV10)D$;D1$D$;D2$D$;D1$"'N' NORMAL CONTROL"&:33,19:5CV(37)1B" ";A$JCVZA$"I"910k A$"E"1850A$"N"ĉ::50 A$"FD"840*A$"D"8904A$"F"ĺ" ":CV:750>1320H880RLL1:F50100:1500\:FF0v130LCV:" ";A$;:H17(A$)1:HH1H:" ";:HH:" ":"= ";ANU130g32,19:34,16::"FUNCTION CONTROLS":"------------------":"'I' INPUT FUNCTION""'D' DELETE""'F' USE A FUNCTION""'FD' DSP FUNCTIONS"A$"MD"540THH0100:M(HH)0ĺ"MEM ";HH;"=";M(HH):XX1:X10İ1870:X0eHH:X0:130|N((A$,2,(A$)))&N10019100STM(N):ST;3);::"S":D130N(A$,2,1)"M"620XM(((A$,3,(A$))))0b130lAN0:AZ0 hANANNEr640#|ANANNE,6409ANANNEB640OANANNEX640n(A$)1N0:470N((A$,2,(A$)))N1001910KL1KL0:M(N)FF:STFF:CV:"S";N;"=":FF:130M(N)ANSTAN640(A$)1N0:560)% A$"CMC"āHH0100:M(HH)0:HH; (A$,2)"SM"130S (A$,2,1)"M"300v Z((A$,3,(A$))):Z1001910 NEM(Z) "310 ,NE((A$,2,(A$))) 6A19 @B$(C$,A,1)350 JA T130^A360,380,400,420,440,500,590,660,18501607 (222)133ĺ"ERROR":"DIVISION BY ZERO":160R "ERROR NOT ALLOWED"_ " ";A$s A$"N"ĉ::50 A$""A$AA$ AA$A$ A$"CR"640 (A$)0230 (A$,1)"+"NE(A$):360 NE(A$):CV:A$"+"A$:360 B$(A$,1'CMX'":20);" ' MD ' MEM DSPLY":20);" ' CR ' DSPLY VAL"q Z20);"AND 'CMC' TO CLEAR":20);" ALL MEMORIES"~ d33,19: nII1020,3580,170 xC$"+-/*SMCFE" CV1(37) CV23CV12:HH112::HH:12 CZ1CZ0:1780 157 20);" ' / ' FOR DIVIDE":20);" ' C ' FOR CLEAR":20);" ' ";::"S";::" ' FOR STORE" F20);" ' M ' FOR MEMORY":20);" ' F ' FOR FUNCTION":20);" ' N ' FOR NORMAL"< P20);" ' E ' FOR END":20);" 'MX'&'SX' X=1-100":20);" '(SIGN)MX' & CAL-FILE":D4$"RUN" (20);"TYPE ANY NUMBER ":20);"TO ADD ":20);"TYPE SIGN THEN":20);"NUMBER IF OTHER":20);"THEN ADD (+)" 220);::" NORMAL MODE "::20);"THE SIGNS ARE-"\ <20);" ' - ' FOR SUBTRACT":20);" ' * ' FOR MULTIPLY":? FV5000,*************************K* MADE FOR A B C *j* WITH MUCH DIFFICULTY ** BY RANDY WRIXON ************************** :M(100):D$(4):D1$"OPEN CAL-FILE":D2$"DELETE CAL-FILE":G3(26) :D3$"WRITE          5000 67"PROGRAM BOAT.SHOPPING SUBMITTED"N"BY R.L. MCARTHY"f"237 CALLE FIESTA""SAN CLEMENTE,CA 92672"&::"COMMERCIAL RIGHTS RESERVED."0"NOT FOR PROFIT.":"PERSONAL USE GIVEN WITHOUT RESERVATIONS" D:"SIGNED: POUND OF DISPLACEMENT"A"3.DISPLACEMENT PER FOOT OF LENGTH"d"4.BALLAST PER DISPLACEMENT""5.PRICE PER DISPL($/LB) ":"SELECTION? ";Q$:X(Q$)(Q$)3Ā"INPUT" PR# PR# PR# ";X ,X1000,2000,3000,4000,25(USED)",4750,1750,236,24.5,21,8,"$27.5"e D"CATALINA 30",10200,4200,446,29.92,25.0,10.83,"$30.7K"p dI1N nB$(I),DI(I),BA(I),SA(I),LO(I),LW(I),BE(I),PR$(I) xI :15:"MENU" "1.DATA FOR INDIVIDUAL BOAT""2.SAIL AREA PER8.0K"D ?"STONEHORSE 23 ",4490,2000,339,23.33,18.33,7.083,"$25.0" @"HUNTER 30",9700,4000,473.1,29.96,25.75,10.125,"$38.5K" A"CAPE DORY 28",9000,3500,404,28.146,22.21,8.875,"$33.9" B"CAL 25",4500,2000,314.5,25.25,22,9,"$19.9") C"PAC SEACFTӍōӍӍӍӍӍӠȍӠŠ͠ȍӠϠΠȍӍӍӍōӠŠȍӍӍӠύӍӠŠ̠ƍӠ΍ӠŠƍӠŠƍӠŠȍӍӠӠύӠӠST FROM SPACE ":: 23:"PRESS RETURN TO CONTINUE";:A$@ DZ1Z42080!+Z1F$"NOUNS"5,Z2F$"VERBS"N-Z3F$"ADJECTIVES"Z/Z450p4D$"OPEN"F$",L40">D$"WRITE"F$",R0":0HD$"CLOSE"R:2040 INTRO PAGE  10:12::"INTERSTELLAR NEWS" :" WITH THE LATEST NEWS FIRFILES HAVE BEEN"9"CREATED, ENTERING '4' WILL RETURN"\"CONTROL TO THE MAIN MENU.":{5)"1 CREATE NOUN FILE"5)"2 CREATE VERB FILE" 5)"3 CREATE ADJECTIVE FILE"5)"4 QUIT" :"ENTER SELECTION NUMBER - ";:Z:Z *L40"D$"WRITE"F$",R"P:A$7D$"WRITE"F$",R0":P?D$M::1150h CREATE NEW DATA FILE:10);::"CREATE NEW DATA FILE"::"THIS PORTION OF THE PROGRAM SHOULD""BE USED TO CREATE NEW DATA FILES.""WHEN THE NECESSARY "PROCESS","CONFIGURATION","PROGRAM","APPROACH","ALGORITHM","PROJECTION","ALLOCATION","TABULATION" XTENDED","COMPRESSED","MINIMAL","DIFFERENTIAL","LINEAR","INTERNAL","SEQUENTIAL","OPTIMAL","EXPANDED"  "GEOMETRIC","LOGARITHMIC","ARITHMATIC","SUB-ATOMIC","AUTOMATIC","SYNTHETIC","ANALYTIC","RELATIVISTIC","SPANNING","STATIC"a  "SYSTEM","PROCEDURE", F(20):"HIT RETURN ";R$O d:(5):"LET ME SEE NOW...":I11000:::(12)b nI((1)10)1r xA$(I);" "; I((1)10)1 B$(I);" "; I((1)10)1 C$(I) 20 "HIT RETURN FOR ANOTHER ONE ";R$ 100d  "INTEGRATED","Ec BUZZ.PHRASE.GENERATOR#=A$(10),B$(10),C$(10)RI110:A$(I):g(I110:B$(I):|2I110:C$(I):<:(5):"IN THE BEGINNING WAS THE WORD,">:"AND THE WORD BROUGHT THE IDEA TO MIND,"@:"AND THE IDEA BECAME REALITY."):N2NN1(.N3((N210))10:N2$(N2)N.((N2$,4,1))5NNN3.1:12050X/NNN3k/NNNN1:X(I)Nq/$/:X(I)N/$/$10050 '6* SORT BALL/DISP IN NUMERICAL ORDER>*+S0I4+N1N1U>+I1N1mH+X(I)X(I1)11130R+ZX(I):Z$B$(I)\+X(I)X(I1):B$(I)B$(I1)f+X(I1)Z:B$(I1)Z$p+S1z+I+S111050+. ROUNDING OFF .NX(I):N1(NZ:B$(I1)Z$:PR$(I1)Q$ #S1'#I5#S19050;#f' SORT DISP/LENGTH IN NUMERICAL ORDERnB'S0yL'N1N1V'I1N1`'X(I)X(I1)10130j'ZX(I):Z$B$(I)t'X(I)X(I1):B$(I)B$(I1)~'X(I1)Z:B$(I1)Z$'S1'I'S1$(I1)X(I1)Z:B$(I1)Z$&S1-I;S18050AM'#:::::::r(# SORT $/LB IN NUMERICAL ORDERzZ#S0d#N1N1n#I1N1x#X(I)X(I1)9130#ZX(I):Z$B$(I):Q$PR$(I)#X(I)X(I1):B$(I)B$(I1):PR$(I)PR$(I1)#X(I1)""5100 2@ SORT SA/DI IN NUMERICAL ORDER=JI1NPODI(I)DI(I)64qRS(I)SA(I)(DI(I)).66666666T S(I)=SA(I)/DI(I)^X(I)S(I)hIrS0|N1N1I1N1X(I)X(I1)8130ZX(I):Z$B$(I)X(I)X(I1):B$(I)B1934,73:1935,78:1936,71%I1NiCO$(PR$(I),2,4):CO(CO$)1000:CPCODI(I):CP((100CP))100uX(I)CP}I:900018);" "I1NB$(I);23);"$";X(I)I" (PRESS ANY KEY)"A$:A$10000))100"X(I)B(I)::110007IN11:12000N::B$(I);20);X(I)UIm" (PRESS ANY KEY)"A$:A$""2100 $/LB"BOAT";20);"PRICE PER"" ";20);"DISP($/LB)"1930,87:1931,79:1932,82:1933,75:KEY)" A$:A$""2100& D BALLAST PER DISP FOR ALL BOATSJi"BOAT";20);"BALLAST PER"" ";20);"DISP":1930,87:1931,79:1932,82:1933,75:1934,73:1935,78:1936,71I1N::B(I)BA(I)DI(I) B(I)((B(I):1935,78:1936,71 I1N2 DI(I)DI(I)2240^ ::D(I)=INT(100*((DI(I)^.3333)/LW(I))){ D(I)DI(I)(.01LW(I))3 I I1N:X(I)D(I):I 10000:IN11:12000 J06:1930J,160:J B$(I);:20:X(I) I " (PRESS ANY 930J,160:J"B$(I);:26:X(I)) IB/" (PRESS ANY KEY)"V4A$:A$""2100\> DISP PER LENGTH FOR ALL BOATS  "BOAT";20);"DISPLACEMENT/LENGTH" " ";20);"RATIO" : 1930,87:1931,79:1932,82:1933,75:1934,73.6666666,"BOAT";20);"SAIL AREA/"L" ";20);"DISPLACEMENT"e" ";20);"RATIO"1930,87:1931,79:1932,82:1933,75:1934,73:1935,78:1936,718000IN11 X(I)= (INT(X(I)*100000))/10012000 J06:1R$,PR$(M)SD$,S(M)%DL$,D(M)3BD$,B(M)wCO$(PR$(M),2,4):CO(CO$)1000:CPCODI(M):CP((100CP))100CP$,"$";CP"(PRESS ANY KEY)"A$:A$""1220 SAIL AREA PER DISPFOR ALL BOATS RATIO=SA/(DISP IN CU FT)^0S(M)((S(M)10000))1000038D(M)DI(M)LW(M)O:D(M)((D(M)100 ))100dBB(M)BA(M)DI(M)DB(M)((B(M)100 ))100L10::B$(M):Q"";VDI$,DI(M)`BA$,BA(M)jSA$,SA(M)tLO$,LO(M)~LW$,LW(M)BE$,BE(M) P R.L.MCARTHY"(N"DATED DECEMBER 1981">S"HIT RETURN ";R$DUw SUB ROUTINE FOR INDIVIDUAL BOAT DATA DISPLAY}I1NI;".";B$(I)I"WHICH BOAT?"R$:S$:Y$R$S$:Y(Y$)Y18ī1045$MY:.S(M)SA(M)DI(M) ::A$"DALLAS APPLE CORPS ":P.31415926536:I0:X0100:A019:II121(I21):BAP:11(B)12.5:14(B)20.5:(A$,I,1)::A!";:770:X 255$ Z1500:ZK X102005:768,X:769,20:770:Xh 23:17::"THIS SIZE": "X15:768,10:769,10:770:Z150:Z:X ,Z15000:Z 623:1: @ J WARNING! T DO NOT CHANGE ANY INFORMATION BEYOND THIS L55: r FIVE MARKER N |3L:2X9:" ":O120:PG(BZ):O:300e  INSTRUCTIONS:  N O N E 00 REM BX40L10 X60L15- (X5)X5ī370< Y1L5LM Y:2X:" "Z PG(BZ)a "Yp ,24:3:X;w 6X} @ JW12000:W TZ(2002):Z1(2003) ^I337:2000I,Z:2001I,Z1:1999I,160:W1100:W:PG(BZ)(BZ):I h23:1:2V,XLVI,XLVII,XLVIII,XLIX,L,LI,LII,LIII,LIV,LV,LVI,LVII,LVIII,LIX,LXMFINISN ARABIC TO ROMAN!o I,II,III,IV,V,VI,VII,VIII,IX,X,XI,XII,XIII,XIV,XV,XVI,XVII,XVIII,XIX,XX XXI,XXII,XXIII,XXIV,XXV,XXVI,XXVII,XXVIII,XXIX,XXX,XXXI,XXXII,XXXIII,XXXIV,XXXV,XXXVI,XXXVII,XXXVIII,XXXIX,XLC XLI,XLII,XLIII,XLIV,XL 15:18,288 HTT3140& TT1, > ADJUST HOURS W1OCTAVIUS:WY f LL5:L0l r CLEAR TO ONE AFTER 12 0X153837,38XW1AUGUSTUS:WXTT0H1R37LL5:L03936:14,3939 36,3914(& 34,2860 34,3529<: ND ADD AN HOURTN [X 0hb 18,278pl 15}v 8,3327 W150:W TTTT1 TT133360 TT1 37,39(2TT) 38,39(2TT) 15 36,3939 0:8,3427 1:M60HH1:M0:3000-L H13İ4000:3000[V :2)"MINUTES";20)"SECONDS";35)"HOURS"a` j 13)"TEMPUS EST ";R$(H);(32);R$(M)t 3~   HOUR MAKER  0 X1737 5,7X W1AUGUSTUS:W X 15 14,V1151 7:V,38+ W1JULIUS:W8 0:V,38? VF XP TT1h 7:LL,37L:LLLL1} LL8LL5:LL1 L21LL5:L0 MT2260  ROMEı  R37  1:14,37  15:8,38 $ 0,838 . 0 8 X913:X,39:XB MMX813:X,39:X 0# RR1- PP159 X160E PPPP1R 15PP,Rh *PP0RR1:PP15o 47 >14,37:W1JULIUS:W H0:14,37 R7 \13,37:W1JULIUS:W f0:13,37 p7 z13,38:W1JULIUS:W 0:13,38 7 ROME0 R37:D22 15,D3 W1AUGUSTUS:WJ DD1:DR1İ1000Z R33İ2000a 0m 15,D1t 7} 650   SECOND MAKER  PP1 14P,R P15RR1:P0 $7 .D22 8   MINUTE MAKER 15 "TO THE PROGRAM AUTHORS":11)"AND CONTRIBUTORS."b (::6)"";:A$: 2"ANY OF OUR PUBLIC DOMAIN PROGRAM DISKS FROM OUR LARGE LIBRARY CAN BE COPIED ONTO YOUR BLANK DISKS SENT TO US FOR A"Y <"COPY FEE OF ONLY 75 CENTS,eqC\q%\wq\wq\\wq\w$q+\w.q?*\w8q\wBq0\wLqh)\wVq.\w`qb\wjq$N\wtqw\w~qx\wqw\wq,N\wqy\?"r M[UVWв`}$ \dMqб`}$ \dMq8бrY[,M d!eqбqвq\[ M63d,e\d,eUqбqвq\.d,eqбqвq\d @p()]̯a@E(ĠԮ) _dd"end e8r(x[\dM[,\dMqб^\dM[wq'q8'rdyq8'rd{`%q6}`%q6d e.? rd"e.       MILD""(F$)3X1$" MODERATE"=(F$)3X1$" STRONG"C^ ELECTRONIC WIND SOCKd(W$,1)"Y"X2$" WIND"(D$,1)"E"X3$" WEST"$(D$,1)"W"X3$" EAST".(D$,1)"N"X3$" SOUTH"8(D$,1)"S"X3$" NORTH"0B(W!p EXTREME HIGH WIND INDICATOR'zP(S$,1)"N"ĺ"TORNADO APPROACHING!"Vu MOISTURE FACTOR ANALYZER{(R$,1)"Y"ĺ"RAIN PROBABILITY 90% -- SHOWERS LIKELY TOMORROW" WIND VELOCITY SCALE (F$)0X1$" DING METEOROLOGICAL INFORMATION% . 100] *"HERE IS TODAY'S WEATHER REPORT BASED ON" 4"SCIENTIFIC DATA YOU HAVE ENTERED INTO" >"THE COMPUTER...": H R DOING METEORLOGICAL STUDY OF DATA AND OTHER STUFF FED INTO COMPUTER \ f -  NOTE CLEVER USE OF 'IF' STATEMENT3 a (W$,1)"Y"ĺ"IN WHICH DIRECTION? ";:D$k 1170u 1210 (D$)0ĺ"HOW FAR? ";:F$ 1170 1210:1210:936   USE OF FOLLOWING SLOW PRINTOUT OPTIONAL WITH SKILL IN UNDERSTANWITH EXTREME ACCURACY TO INSURE MOST"/ &1170L 0"SCIENTIFIC RESULTS.":V :1170` D1210 N"WAS THE PAPER STILL OUTSIDE? ";S$ X1170 b1210 l"WAS THE PAPER WET?";R$ v1170 1210 "DID THE PAPER MOVE?";W$ 1170 1210INE! ^ WARNING!V h if you have lower case it is ok to change anything you wish.p rX770790:Y:X,Y:X |173,48,192,136,208,5,206,1,3,240,9,202,208,245,174,0,3,76,2,3,96,POB 42831,LAS VEGAS NV,89116       X366n (%5d :'-3.1nvȴv  t!6 +=7.=6$5 $-?.7-?6=6-edR $$ $<- $$576-=?66& $$57.-?66& $$756?/-66& $$75>?- 66&`5Qhy :Thn{ $$5?,6.:  $$57.  $$57vc4vvc$06&$$$$5 %%5.'>7 %%5O> %%5?N v9'/(%5-?????(%5-?v?-(%5-Ȗ'ȿ'ȭ/5?3-SURE TIME"9 6"AND THE REVISED EXPOSURE WILL BE COMPU-"E ;"TED." @:"THE PROGRAM IS BASED ON VALUES, SUPPLIEDBY KODAK FOR POLYCONTRAST RAPID II RC PAPER." T:"*** PUNCH ANY KEY TO START ***";:K$:1960S N ) ";A$* A$"Y"ī1960:A$"Y"ī41008 ::24:F 34,4:10q "THIS IS A PROGRAM FOR PHOTOGRAPHERS" "WHO MAKE PRINTS ON EASTMAN KODAK" ""POLYCONTRAST PAPER." ,:"INPUT INITIAL FILTER NUMBER, REVISED FILTER NUMBER AND INITIAL EXPOB250 N$"3.5"B160+ N$"4"B80=  N$"0"B500C e "YOUR TIME IN SECONDS IS ";Tp 1900~ E(AT)B E(E1000.5)100 E01900  "YOUR ADJUSTED EXPOSURE IS ";::E;::" SECONDS" :::"DO ANOTHER ? ( Y OR250 S$"1.5"A400* S$"2"A320> S$"2.5"A320P S$"3"A250d S$"3.5"A160u S$"4"A80 S$"0"A500 "YOUR NEW FILTER IS PC ";N$ N$"1"B250 N$"1.5"B400 N$"2"B320 N$"2.5"B320 N$"3":::8::"WRONG INPUT, TRY AGAIN !!!":< vD12500:DH {:1960P :s 9)"POLYCONTRAST CONVERSIONS" 3:"****************************************" 4105 :34,4:12  12:"YOUR STARTING FILTER IS PC ";S$: S$"1"A * P0LYCONTRAST *1 * CONVERSION *I * PROGRAM BY *b * LOUIS REENS * z * *# * 8/16/82 *( * *- * 214-370 0119 *2 * *7 *****************Z1950+ l     z #?|Xγ   ŠŠӠ ҠΠ    ҠԠϠӠĠӠ5͠ŠҠΠҠŠŠ Šà"  ҧӠȠ ԠǠŠנ͠ ٠٠ Ӡ Ӡ !Ġנ͠ ՠ ӠϧӠԠŠϧӠԠŮؠ ˠŠŠŠҠӠԠǠ100,175"",120,200+"DEAR",150,200<"X",160,200L""",180,200l,"HAPPY",110,100,"",110,1006"BIRTHDAY",118,200@"",149,200J"TO",134,200T"YOU!",149,255_`ab +----------------+c I CENTER A$ ",200,100,"BIRTHDAY",180,1759"",200,175,"TO",150,175M"YOU!",160,255\PAUSE,0,0"HAPPY",200,100,"",200,100,"BIRTHDAY",180,175"",200,175,"TO",135,175"YOU!",150,255PAUSE,0,0"HAPPY",200,100,"",200,100"BIRTHDAY",!! ":1640x:PAUSE0999:*1000006R +-----------------+n I DATA FOR CANDLE I I POSITIONS,MUSIC I +-----------------+24,8,12,5,10,7,28,6,20,7,26,7,18,8,22,5,14,6,16,4"HAPPY",200,100,""NOW MAKE A WISH & PRESS ANY KEY":1640Z(A$"TO BLOW OUT THE CANDLES, "NAME$"!":1640k2BLOW1:1140|<0::TM09FX,Y:Y,Y1X:PA150(1)::PPA0999:Z::dA$" YOU GOT THEM ALL! ":1640 nA$" YOUR WISH WILL COME TRUE!1280&A$"PAUSE"āPA049::1240EA$"X"A$NAME$",":1640U:22:1640l768,A:769,B:770r x ~  +--------------+ I BLOW OUT I I CANDLES! I +--------------+'A$1:11809:X,Y13(16384)1281210=1150M16368,0:\BLOW1340kTITI0:qw} +---------------+ I PLAY SONG I +---------------+TM024A$,A,B:A$""$"TO "NAME$"!":1640@j:8:" PRESS ANY KEY TO SING!! ";:FlLmhn +-----------------+o I FLICKER FLAMES, Ip I WAIT FOR KEY Iq +-----------------+rst16368,0~:T09:X,YX,Y1)9ĠZ:X,Y(1)) BX,Y:CčX,Y1- L::(TITLE)ĺ V(TITLE)A$"HAPPY BIRTHDAY!":1640:A$"BY JIM GANZ":1640:A$"A LOW-RES ANIMATED BIRTHDAY CAKE":1640::9:" PRESS ANY KEY TO BEGIN ";::1140`A$"LET'S ALL SING "(34)"HAPPY BIRTHDAY"(34):1640:A10:6,1412:7,1614:5,1316:9,1818:8,1720:6,1422:9,1824:8,1726:7,1528e (TITLE)1060r CB31ıx ~   +-----------------+  I LIGHT CANDLES I  +-----------------+   $9 .CA09:X,Y 8C(20,3823:20,3824:20,3825:20,3826:19,3727:19,3628:19,3629:18,3530:18,3531:17,3432:16,3433v ICING~ 14 5,3215:6,3114:8,2913:11,2612:15,2211:5,3216:6,3117:8,2918:11,2619:15,2220 4CANDLES >13S H8,17236:5,3335:4,3434:3,3533:3,3532:2,3631:2,3630:2,3629:3,3528:3,3527:4,3426m DRAW CAKEu 11 16,324:17,335:18,346:18,357:19,368:19,369:19,3710:20,3711:20,3812:20,3813:20,3814 &X1522:21,38X:k N220   1 +-----------------+N I DRAW CAKE Ik +-----------------+q w } 16368,0:: CB:Y022:0,39Y: 8:Y2339:0,39Y: DRAW PLATE 7^ 12,2639:10,2838:8,3037:6,3Y HAPPY BIRTHDAY!& 2000001660WCB15:TITLE1:ZCB:210:Z0:CB0:]dcnr +-----------------+s I USER INPUT It +-----------------+uvx:198:"ENTER FIRST NAME:";NAME$ 2          Z ::3:16)"75 CENT":6)"PUBLIC DOMAIN PROGRAM DISKS":::12)"DISTRIBUTED BY:"::12)"ASPEN SOFTWARE"::6)"729--1/4 E. PORTLAND STREET":8)"PHOENIX, ARIZONA 85006":7)"TELEPHONE: (602) 253-0651"1 ::10)"WITH SPECIAL THANKS":8)   C$"N"6100(C$"Y"C$"N"6020K:"SLOT FOR PRINTER CARD: ";PRP`::::fd" OF THE BIKE)E:" 3. NUMBER OF TEETH ON EACH COG OF THE"k" FREEWHEEL (REAR SPROCKETS)22:12:""B$ p * PRINT-OUT *z * SUBROUTINE *"DO YOU WANT A PRINT-OUT (Y/N)? ";C$C$"Y"6070"SPEEDS."7:" TO USE THIS PROGRAM, YOU MUST HAVE"c"THE FOLLOWING INFORMATION ABOUT YOUR"p"BIKE:":" 1. WHEEL DIAMETER (USUALLY 27 IN.)":" 2. NUMBER OF TEETH ON EACH CHAINWHEEL"" (SPROCKETS LOCATED IN THE MIDDLE"F5ı 3" POSITION 6: ";F6>F6ıDh"" POSITION 7: ";F7n, * INSTRUCTIONS * * SUBROUTINE *" THIS PROGRAM WILL COMPUTE THE GEAR""RATIOS FOR BICYCLES HAVING 5 OR MORE" ,:"NUMBER OF TEETH ON FREEWHEEL COGS:"2V" POSITION 1 (SMALLEST): ";F1\" POSITION 2: ";F2" POSITION 3: ";F3" POSITION 4: ";F4" POSITION 5: ";F5 00# 3& F6;7)C1F6D;19)C2F6D;31)C3F6DA+ F63200G- r0 F7;7)C1F7D;19)C2F7D;31)C3F7D{ 0: * DETERMINE NUMBER * * OF FREEWHEEL COGS *:"ARE THERE 5, 6, OR 7 FREEWHEEL COGS? ";FF54010F74010 0 F1;7)C1F1D;19)C2F1D;31)C3F1D6 a F2;7)C1F2D;19)C2F1D;31)C3F2Dg  F3;7)C1F3D;19)C2F3D;31)C3F3D  F4;7)C1F4D;19)C2F4D;31)C3F4D  F5;7)C1F5D;19)C2F5D;31)C3F5D! F532 ";C18 :"NUMBER OF TEETH ON MIDDLE CHAINRING: ";C2j :"NUMBER OF TEETH ON SMALL CHAINRING: ";C3t 4000z  6000  " GEAR CHART FOR ";D;" ";M$". BICYCLE WHEELS" : 7)C1,19)C2,31)C3 7)"--",19)"--",31)"--"C2F4D /-4F5;10)C1F5D;25)C2F5D;9F52200A;a>F6;10)C1F6D;25)C2F6DoCF62200uEHF7;10)C1F7D;25)C2F7D0: * TRIPLE CHAINRING * * SUBROUTINE * :"NUMBER OF TEETH ON LARGE CHAINRING:6000 A " GEAR CHART FOR ";D;" ";M$;". BICYCLE WHEELS"I :\ 10)C1,25)C2u 10)"--",25)"--": F1;10)C1F1D;25)C2F1D  F2;10)C1F2D;25)C2F2D  F3;10)C1F3D;25)C2F3D %*F4;10)C1F4D;25)F51200 S# VF6;10)C1F6D1 [F612007 ]K `F7;10)C1F7DT 0:o  * DOUBLE CHAINRING *  * SUBROUTINE * :"NUMBER OF TEETH ON LARGE CHAINRING: ";C1 :"NUMBER OF TEETH ON SMALL CHAINRING: ";C2 4000  : ";C1 4000  6000& [ " GEAR CHART FOR ";D;" ";M$;". BICYCLE WHEELS"c :o 10)C1 10)"--": $F1;10)C1F1D ) .F2;10)C1F2D 3 8F3;10)C1F3D = BF4;10)C1F4D G LF5;10)C1F5D QC1İ1000 C2İ2000* C3İ30007 C4220` ,::"ANOTHER GEAR COMBINATION? ";D$p 6D$"Y"200 @D$"N"340 JD$"Y"D$"N"300 T ^  * SINGLE CHAINRING *  * SUBROUTINE * :"NUMBER OF TEETH ON CHAINRINGCTIONS (Y/N)? ";A$$ A$"Y"İ50004 A$"N"200M A$"Y"A$"N"130U :{ "WHAT IS THE WHEEL DIAMETER? ";D :"INCHES (IN) OR CENTIMETERS (CM)? ";M$ M$"IN"M$"CM"215 :"HOW MANY CHAINRINGS (1,2,OR 3)? ";C C1220 hd * BICYCLE GEAR RATIOS *=n * BY DON WENDELL *[x * MARCH 1982 *a10:8:"***********************"12:10:"BICYCLE GEAR RATIOS"14:8:"***********************"A11000: 20:5:"DO YOU WANT INSTRU        ****** * WRITTEN BY *2 * KEN SCADDEN *H ***************aIC795413'240,IC260,IC.l0;ICIC12NН242,IC260,IC[4ICIC12cICpȯZS111yP,LPïTP,LDłZSvűփ 150,245,150,200,150,100,150,200,125,200,130,100,130,200,150,100,150,200,155,100,150,255 *********Y3W120:P(16336):)30:2X,YAX4W110:QQ,(QQ):O40:2X,Yk 5W1((1)100200):Wr50y5J6400006(16384)12827ĉ::"BYE!":L6617:x7PP(16300)(16298)(16301)7K11500:::60 @0"044,10842,98:46,10845,102C046,10850,99:50,11260,111e048,11058,104:48,11053,109z81DEST180(1)8011X,Y21XO,YO:1X,Y:YOY:XOX:XXXM:YYYM:YMYMG:X250Y130XDEST12800d21XO,YO2((1)255)1,35:2X,/JJJJ1+/JJ21İ250000D/YM(4(1)3)A/XM12(1)2O 0G.3(1)hp0X49:Y106:XOX:YOY~0Q110:P(QQ):07044,10842,98:46,10845,102046,10850,99:50,11260,111048,11058,104:48,11053,1090RR110:RR00*K214:X140K120,3K2:%*K1:* 5,3,11,12,9,7 G\+K3215O+X2p+X20K3K31:K4K41:11200w$,1,K411:X270K38,30K4:,K3P-4,13,0,8,7,10,0,11,5,3,6,6,7,10- MOVE BALL.1|.QQ16336.JJ0.J113 1"202,V207,V(#V&#W81917#222,W227,W>T$WK$X8191\%242,X247,Xc%Xp%Y8191H&262,Y267,Y&Y' DRAW BRIDGEt'6'219,142219,124231,124231,142<(3( LETTERS(3)K127h)X1)3R  CASTLE FLAG2C240,80240,54260,54260,66240,66VL240,60260,60i250,66250,54| COLOR CASTLEx7S101142@192,S257,SS T9199l 182,T267,T T4!U8191!182,U187,U!U`"V8198P110 L,M,N,O# L,MN,O* dP  180,80,190,80,200,80,210,80,220,80,230,80,240,80,250,80,260,80,270,80,190,90,200,90,210,90,220,90,230,90,240,90,250,90,260,90,180,100,270,100 , CASTLE FLAG COLOR 5 R5565 X241,R259,R6 K112 DG,H,I,J) G,HI,J0 K p 180,100,180,80,190,142,190,100,190,90,190,80,200,90,200,80,210,90,210,80,220,90,220,80,230,90,230,80,240,90,240,80,250,90,250,80,260,142,260,100,260,90,260,80,270,100,270,80  CASTLE HORIZONTAL <15,F45,F F& 24,13042,1109 h25,13043,110L 36,13048,114_ 037,13049,114r 42,11048,114 43,11049,114 \6 Q8193 $9,Q29,Q Q  FLAG P5 7,1427,8030,807,9430,947,80  CASTLE VERTICLE |B,C,D A,BC,D ` A,B,C,D& 23 ( A,BC,D@ A,B,C,DG 7T T A,BC,D 0,0,0,191,1,0,1,191,0,191,279,191,279,0,279,191,278,0,278,191,0,0,279,0  GRASS 1 E143190 H 2,E277,E E  CANNON t5 F130142 2,173,48,192,136,208,4,198,1,240,7,202,208,246,166,0,208,239,165,3,133,1,198,2,208,241,96 <K768833:P:K,P::1013,76:1014,0:1015,3 1:0 A,B,C,D x7 A,BC,D @A,B,C,D 5 A,BC,D lA,B,C,D 7 4A,BC,D A,J : D$(4)8D$;"BLOAD CASTLE APPLE.SHAPE"[D$;"BLOAD CASTLE.SHAPE,A8100"p232,164:233,31v(Y 2 201,84,208,15,32,177,0,32,248,230,138,72,32,183,0,201,44,240,3,76,201,222,32,177,0,32,248,230 ,104,134,3,134,1,133,0,170,160,1,132,     ";:A$/`:"TO STOP ENTERING, TYPE 'END'.":Wb"LENGTH LIMIT IS 40 CHARACTERS.":meD$"OPEN"F$",L40"jD$"READ"F$",R0":PtD$~F$:A$(A$)40Ğ:"LIMIT IS 40 CHARACTERS.":::1150A$"END"ė:1030PP1D$"OPEN"F$",GLE WORD OR A";X"GROUP OF WORDS. THE MORE DESCRIPTIVE"`Y"THE ENTERIES, THE BETTER."::tZ:"EXAMPLE:":[5)"ALIEN"\5)"SHIPLOAD OF VEGAN COLONISTS"]5)"BUYS CONTROL OF"^5)"SMOKE TRAILING"_23:"PRESS RETURN TO CONTINUES.":5)"1 NOUNS"-5)"2 VERBS"F5)"3 ADJECTIVES"Y$5)"4 QUIT".:"ENTER SELECTION NUMBER - ";:Z:Z8Z1Z41070BZ1F$"NOUNS"GZ2F$"VERBS"LZ3F$"ADJECTIVES"VZ450W:"ENTERIES MAY BE A SINEAD ALL ABOUT IT!!!"::# ,I1Z0 6H$(I):6 @F JD$"PR#0":n T:"DO YOU WANT MORE HEADLINES?";Z$ ^(Z$,1)"Y"130 h50  ADD TO DATA FILES ::"(ADD TO DATA FILES)"::: "YOU MAY ADD DATA TO ONE OF THREE""CATAGORIE,R"V1:V$* D$"READ ADJECTIVES,R"A1:A$2 D$U H$(I)N$" "V$" "A$" "N1$[ j D$"CLOSE" "HERE ARE YOUR HEADLINES" D$"PR#1"  ""EXTRA EXTRA EXTRA EXTRA EXTRA": 10 SPACES ':25)"R D$"READ VERBS,R0":V6 D$"OPEN ADJECTIVES,L40"U D$"READ ADJECTIVES,R0":A] D$h I1Z{ A1((1)A1) V1((1)V1) N2((1)N1) N1((1)N1) D$"READ NOUNS,R"N1:N1$ D$"READ NOUNS,R"N2:N$ D$"READ VERBS!! ":::C "HOW MANY HEADLINES DO YOU WANT TO SEE?";Z Z10ĺ"SORRY. MAXIMUM OF 10 HEADLINES AT A TIME"::130 :"ONE MOMENT, PLEASE, WHILE I SET THE TYPE.": D$"OPEN NOUNS,L40" D$"READ NOUNS,R0":N D$"OPEN VERBS,L40"EATE NEW DATA FILE"& B5)"4 QUIT"P F:"ENTER SELECTION NUMBER - ";:Z:ZV Hf KZ1Z470s PZ1100 UZ21000 VZ32000 Z d PRINT HEADLINES n:::"EXTRA EXTRA EXTRA EXTRA ": x11)"READ ALL ABOUT IT!B ( *** INSTELLAR NEWS HEADLINES ***O *** 5-18-81 FIRST VERSION ***[D$(4)#Z10ĺ"SORRY. MAXIMUM OF 10 HEADLINES AT A TIME."::130( PRINT MENU2:75)"1 PRINT HEADLINES"<5)"2 ADD TO DATA FILES" A5)"3 CR 6 13,4,6,19,1,1,5,10,10,4,1B @ 14,4,6,18,2,1,6,8,11,4,1d J 15,4,6,17,3,1,7,5,13,4,1 T 16,4,6,15,5,2,23,5,1 ^ 17,1,29,5,17,8,1 h 18,1,29,9,9,12,1 r 19,60,1 | 20,1,13,5,11,1,28,1,1  21,1,13,5,11,1,2,6,23,21,6,1)  5,4,6,22,12,5,6,5,1F  6,4,6,21,11,8,6,4,1d  7,4,6,21,10,10,5,4,1  8,4,6,21,9,11,5,4,1  9,4,6,21,8,11,6,4,1  10,4,6,21,7,11,7,4,1 " 11,4,6,21,6,11,8,4,1 , 12,4,6,19,1,1,5,11,9,4,1 601170 (1210 2 <' F6000> PQ111000:Q1:10J ZA1A1AU dI1A_ n" ";f xIr A1A1B A1601170 IA1BA11 T$(I); I 1310  1,60,1  2,1,12,26,9,12,1  3,3,8,24,17,8,1  4,45000 LL(A$)" VJ1(60L)- `I1LG jT$(JLIL)(A$,I,1)N tIU ~J] C0l A11:CC1{ C381330 A  A,B N21370 A1A1A IA1AA11 T$(I); I A1A1B I1B " "; I A1ϸ31CHANGE STMT 5010 FOR YOUR PRINTER SLOT7 B10000_ *** LOVE PICTURE ***h tT$(90)~936"KEY IN THE WORD(S) - UP TO""30 CHARACTERS":A$$:."1 FOR CLEAR LETTERS"8"2 FOR DARK LETTERS ":N B                     d::x =========================== CROW-MAGNUM COUNTING SYSTEM IDEA BY NEAL ANDRATHAAL =========================== BZ16336"WHAT MODERN NUMBER? ";NN80ė:150N1Ā200X1NX20L5 ҍҠҭˠčΠ̍ĠҍōΠčҠٍ̠ΠڠҍŠōˍҠҠΠҍ٠ԍĠҠ΍ǠŠӍĭР΍ǠŠӍ٠΍ҠŠǍĠЍǠŠƠΠčҍŭĠԍĠŠ٠΍ԍĠƠŠӍƠō̧ӠŠƠō͠ƠӍŠǠ΍ҠנƠύĠƠԠӍŠΠ΍ŠҠҍĠԠҍӠč٠ٍٍŠҍ٠͍ҠƠ̠֍РȍӠΠǍĠҍԭĠ΍ҍԠӍӠƠҍӠƠ΍٠Ҡ̍ĠԍҠǠԍĠ٠ҍĠ٠Р΍ҠĠčР΍ĠƠΠӍĠƠΠӍ٠Ġ΍ˠōàΠԍ̠Ǡ   ,60,1 0+ *** BLOCK LETTERS ***1=T$(80)b"ENTER UP TO 6 CHARACTERS ":A$l5000{I1(A$)T$(I)(A$,I,1) II1(A$) T$(I)" "2170*:123,56:124,15:125,247:126,0164D$>D$T$(I)2130H8,6,5,3,14,6,6,2,10,17 30,8,6,5,3,14,6,7,1,10,1Y 31,9,6,3,3,15,6,16,1,1,1{ 32,9,6,3,3,15,6,15,2,1,1 33,10,6,1,3,16,6,14,3,1,1 34,10,10,16,6,12,5,1,1 35,11,8,13,27,1,1 36,11,8,13,27,1,1& 378,1,1(  22,4,6,13,3,10,6,12,5,1,1K  23,5,6,11,3,11,6,14,3,1,1n  24,5,6,11,3,11,6,15,2,1,1  25,6,6,9,3,12,6,16,1,1,1  26,6,6,9,3,12,6,7,1,10,1  27,7,6,7,3,13,6,6,2,10,1  28,7,6,7,3,13,14,10,1 29,ӠԍӍӍӍӠǠ̠ƍӍӍӍӍӠŠӠ͍ӠŠĠƍӠŠ΍ӠƍӍӍӠΠŠȍӠȍӍӍӍӠύӠԠƍӠ̠ƍӠȠύӍӍӍӍӍӍӍ    OGRAM BY DAN POTE"6p"214-631-8270 OR 214-492-2027" WITH THINGS"0 "LIKE ... 10 X = INT(Y * 25)"O*"IT WILL RENUMBER THE 25"|4"I HAVE TRIED THE FIX IN APPLE ORCHARD">"IT DID HELP WITH SOME PROBLEMS"H"IF YOU HAVE A WORKING RENUMBER PLEASE "R"PUT IT ON THE NEXT D.O.M."\f"PRT IS A FILTER AND"+"MAY NOT BE NEEDED"1`"YOUR APPLE CAN POWER 20 OR MORE SENSORS""PRESS SPACE FOR MORE";:B$"H E L P.... THIS PROGRAM WAS NOT " "RENUMBERED BECAUSE THE D.O.S. RENUMBER" "PROGRAM DOES NOT WORK100 C" v"COST APX. $3.00 "$ O "A LM135 CAN BE USED IN ITS PLACE IT"r "HAS A RANGE OF -55 TO 150 C" "COST APX. $4.50" : "THE OP-AMP IS A 741 COST $.40" "ALL RESISTORS ARE +- 5% .25 WATT" "THE R-C AT THE OUTPU(HC10)10; "GET A 255 AT ";HF;" DEG F ";HC;" DEG C"g &"PRESS SPACE TO ENTER NEW TEMPS PRESS" ("'I' TO GET MORE INFO ON PARTS";:B$ +B$"I"ī600 050 X: b"SENSOR IS A NATIONAL SEMICONDUCTOR" l"LM335 IT WILL WORK FROM 0 TO "PRESS SPACE TO CONTINUE...";:B$) :V "WHEN THE DATA IS 'PEEKED' AT YOU WILL"i LC(LC10)10 "GET A 0 AT ";LF;" DEG F ";LC;" DEG C" "PRESS SPACE TO CONTINUE...";:B$ :: "WHEN THE DATA IS 'PEEKED' AT YOU WILL" HC"HIGHEST IN DEG C ";HC) LKLC273.15: HKHC273.15M LF(LC1.8)32` HF(HC1.8)32 GAIN10((HK100)(LK100)) GAIN((GAIN100))100  "SET POT FOR ";(LK)100;" VOLTS" "GAIN = ";GAIN "R = ";GAIN10;" K OHMS"! A$"F"ī200 A$"C"ī400K "WHAT IS LOWEST TEMPERATURE YOU WANT TO"g "MEASURE IN DEG F ";LF "HIGHEST IN DEG F ";HF LC(LF32)1.8 HC(HF32)1.8 ,430 "WHAT IS LOWEST TEMPERATURE YOU WANT TO" "MEASURE IN DEG C ";LC 8 D$(4)?(D$;"BLOAD TEMPERATURE SCHEMATIC"E2O<(22)td"ALL RESISTORS ARE IN 'K' OHMS"n"SENSOR INTERFACE FOR THE APPLE. "s"USING THE APPLIED ENGINEERING A/D"x"DO YOU WISH TO WORK DEG F OR C.";:A$}::       @`~`  @x0 @ @ D @ @@ `0q p@ @ @p@ 0`  G f0p @@0@ h}#` `h@x8 p0 @@@  @@x` @ p@@  @`@@  @@  @ `* a @ @?<` `@0`@ p! 00 8@.| ` @@y @6@0@ @ @@  `?0@0@ D@8  @<`@`  @ @ !@ `8 8q@`@A0 @ , @" V 0@ @@0 l@ B0!@p0p@ @  `@|@@` @`D@>  0 p` f0PC ! B@0 q8 p!@@ x          768,20:769,40:770:JW 1:1:"X":X239:1:768,X5:769,10:X:"-";:770:X:"X" X221:X:40:768,X5:769,5:"!":770:X:22:40:"X" X3911:22:X:768,X5:769,10:"-";:770:X:22:1:"X";: X2121:X:1:768,X5:769,5:"d SCREEN SIZERn5x AN ORIGINAL CONCEPT J BY PAUL RAYMER PAUL'S ELECTRIC COMPUTER 3464 TOWNHOUSE DR LAS VEGAS NV 89121  II/I/MCMLXXXII370100 I$"YOUR SCREEN IS:":J1(I$):11:13J:(I$,J,1):č΍٠ǍŠčӍŠԍčˠǍ̍̍РǍҭǍǍ٠٠΍٠ōǍč٠ōōÍÍ̠ččō٠čōōǍōÍǍ٠ȍŠǍӍÍٍÍٍٍٍōǍÍ Z(P) @TEMP(Z.137)505 JTEMP((TEMP10))10b "TIME: ";HT;HU;":"MT;MU;" TEMP: ";TEMPk XMUt 160 * BY DAN POTE;A1 B,16 A,34$ MU(A). A,35: MT(A)D A,36P HU(A)Z A,37f HT(A)z STRIP HT BITS HT7HTHT8 HT3HTHT4 B,0 XMUī160 MU0ī288 MU5ī288 160  ,P49280CH1(SA16) 6THIS PROGRAM USES A RANGE OF 50 TO 85 F". %[ '"HOWEVER, ALMOST ANY RANGE IS POSSIBLE"e /::k 2 d"WHAT SLOT IS THE TIME II IN ";S g"WHAT SLOT IS THE A/D IN ";SA j"WHAT CHANNEL (1-8) IS THE TEMP ON ";CH x A49282(S16) B 4"THIS PROGRAM WILL PRINT THE TIME AND ":g"TEMPERATURE EVERY 5 MINUTES WITH THE "m"TIME II AND A/D IN ANY SLOT""USE THE PROGRAM 'TEMPERATURE INTERFACE'" "TO DESIGN THE NECESSARY CIRCUIT."!( #"   00001108 011100000110,011100000110,001110001100i 000111011000,000011110000,000001100000u W 111110001111,011100000110,011100000110 011100000110,011100100110,011101110110 011111111110,011110001110,1111 000011110000,000011110000,0001111110006 Uh 1111110011111,011100001110,011100001110 011100001110,011100001110,011100001110 011100001110,001111111100,000111111000 V 111110001111,011100000110,01110 001111111110,011111111111,111000000011Z 111000000000,011111111100,001111111110 100000000111,111111111110,011111111100 T 111111111111,111111111111,110011110011 000011110000,000011110000,000011110000* 11,111000000111,111000110111M 011100011110,001111111110,000111111011Y R 111111111100,011111111110,011100000111 011100000111,011111111110,011111111100 011100011100,011100001110,111110001111 S) 00,000111111000 PL 111111111100,011111111110,011100000111} 011100000111,011111111110,011111111100 011100000000,011100000000,111110000000 Q 000111111000,001111111100,011100001110 11100000010,011110000110? 011111000110,011101100110,011100110110p 011100011110,011100001110,111110011111| O 000111111000,001111111100,011100001110 111000000111,111000000111,111000000111 011100001110,001111111102 011100000110,011111111110,111111111111> Mo 111110001111,011110001110,011111011110 011101110110,011100100110,011100000110 011100000110,011100000110,111110001111 N 111110001111,011100000111 111110001111,011100001110,011100011100b 011100111000,011111110000,011111110000 011100111000,011100011100,111100011110 L 111110000000,011100000000,011100000000 011100000000,011100000000,011100000010011100000,000011100000,000011100000U 000011100000,000011100000,000111110000a J 000000011111,000000001110,000000001110 000000001110,000000001110,111110001110 011100001110,001111111100,000111111000 K1111111110,000111111100# HT 111110011111,011100001110,011100001110 011111111110,011111111110,011100001110 011100001110,011100001110,111110011111 I 000111110000,000011100000,000011100000$ 00111111111,011100000011Gt 011100011000,011111111000,011111111000xv 011100011000,011100000000,111110000000x Gz 000111111100,001111111110,011100000111| 111000000000,111000011111,111000011111~ 011100000111,00100000111:f 011100001110,011111111100,111111111000Fh Ewj 111111111111,011111111111,011100000011l 011100011000,011111111000,011100011000n 011100000011,011111111111,111111111111p Fr 111111111111,011 C9Z 000111111100,001111111110,011100000111j\ 111000000000,111000000000,111000000000^ 011100000111,001111111110,000111111100` Db 111111111000,011111111100,011100001110 d 011100000111,011100000111,011 011100001110,111111111111,111111111111]N 111000000111,111000000111,111000000111iP BR 111111111000,011111111100,011100001110T 011111111110,011111111100,011100001110V 011100000111,011111111110,111111111100X :6000. Q111000:Q1:10+8 -,-\B 000000000000,000000000000,000000000000D 001111111100,001111111100,000000000000F 000000000000,000000000000,000000000000H AJ 000011110000,000111111000,001110011100,L 2100RJ19\L$+fT$(I10J)L$2pJ9zIEL119UL21(A$)iL$T$(L210L1)vL3112T$(L2)" "2270(L$,L3,1)"0"2270T$(L2);L32290" ";L3" ";L2  L1 $50,420,26,24.08,10.5,"$33.3K"U ;"BAYFIELD 32",9600,4000,525,32,23.25,10.5,"$44.4K" <"CAPE DORY 30",10000,4000,437,30.21,22.83,9,"$40.5" ="ROUGHWATER 33",15000,5000,417,32.08,26,9.75,"$49.0K" >"FLICKA 20 CUTTER ",4500,1750,280,20,18.16,8,"$26"SHANNON 28",9300,3600,470,28.16,23,9.5,"$65.3K"h 7"WATKINS 27",7500,3500,347,27,23.66,10,"$27.8K" 8"ORION 27 CUTTER",10000,3200,508,27.33,22.16,9.25,"$45K" 9"CAL 31 SLOOP",9170,3600,490,31.5,25.66,10,"$47K" :"ISL PACKET26 CUTTER",8000,27$"SAILAWAY PRICE"P SD$"SAIL AREA/DISP":DL$"DISP/LENGTH":BD$"BALLAST/DISP" 3"BABA 30",12500,5000,504,29.75,24.5,10.25,"$55.0K" 4"FALMOUTH CUTTER-22",7400,2500,357,22,20.83,8,"$33.4K" 5"BAYFIELD 29",7100,3000,468,29,21.75,10.16,"$34.0K"3 s BOAT.SHOPPING"::500+ N18pB$(N),DI(N),BA(N),SA(N),LO(N),LW(N),BE(N),PR$(N),S(N),D(N),B(N)zX(N)DI$"DISPLACEMENT":BA$"BALLAST":SA$"SAIL AREA":LO$"LENGTH ON DECK"CP$"COST PER POUND" LW$"W/L LENGTH":BE$"BEAM":PR          93* 000111111000,001111111100,001100001100d* 001100001100,001111111100,000000001100* 001100001100,001111111100,000111111000* 0* 000011110000,000111111000,001100011100+ 001100101100,001101001100,001110001000001100000,000001100000,000001100000W)v 000001100000,000001100000,000001100000c)x 8)z 000111111000,001111111100,001100001100)| 000110011000,000011110000,000110011000)~ 001100001100,001111111100,000111111000* 001111111100,001111111000%(h 6V(j 000111111000,001111111100,001100000000(l 001100000000,001111111000,001100001100(n 001100001100,001111111100,000111111000(p 7(r 001111111100,001111111000,001100110000&)t 00001110000,000011110000I'\ 000110110000,001111111100,001111111100z'^ 000000110000,000000110000,000000110000'` 5'b 001111111100,001111111100,001100000000'd 001100000000,001111110000,000000011000(f 000000001100,00001100000<&N 000110000000,001111111100,001111111100H&P 3y&R 000111111000,001111111100,001100001100&T 000001101100,000001111100,000001101100&V 001100001100,001111111100,000111111000&X 4'Z 000000110000,0%@ 1;%B 000001100000,000011100000,000111100000l%D 000001100000,000001100000,000001100000%F 000001100000,001111111100,001111111100%H 2%J 000111111000,001111111100,001100001100 &L 000000001100,000000011000,00$4 000100011100,000001111000,000001100000`$6 000000000000,000001100000,000001100000l$8 +$: 000011100000,000011100000,000011100000$< 011111111100,011111111100,011111111100$> 000011100000,000011100000,000011100000 000000000,000000000000,000000000000/#( !`#* 000001100000,000011110000,000011110000#, 000011110000,000001100000,000001100000#. 000000000000,000001100000,000001100000#0 ?#2 000011110000,000111111000,00110001110000000000,000000000000,000000000000S" 000000000000,000000000000,000000000000" 000001100000,000001100000,000000000000" ^"" 000000000000,000000000000,000000000000"$ 000000000000,000000000000,000000000000##& 00011110000,000001110000F! 000001110000,000001110000,000011111000R! Z! 001111111111,001111111111,001100011110! 000000111100,000001111000,000011110000! 000111100011,001111111111,001111111111! ."" 000010001111 XE  111110011110,011100001100,001110011000v  000111110000,000011100000,000111110000  001100111000,011000011100,111100111110  Y 111110001111,011100000110,001110001100! 000111011000,0000 OF DATA IN LINE 3950 ~:8TURN PRINTER ON: LINES 5000 TO 5030 TURN PRINTER OFF: LINES 6000 TO 6030 :** PRINTER PAK I ** DISTRIBUTED BY APPLE PUGETSOUND PROGRAM LIBRARY EXCHANGE |;6708 39TH AVENUEURE":"2 BLOCK LETTERS":"3 CALENDAR":20:"WHICH DEMO #";X9 +KEY:KEY1KEY311020p9+KEY1000,2000,3000:THIS PROGRAM CAN NOT BE MODIFIED WITHOUT CHANGING LINES 3245 AND 3246. 3246 SPECIFIES EXACT MEMORY LOCATION G":16:"U";:40:"E";08'17:"N":18:"D"8'50,63:::10:" ":10:" P R E S E N T S ":10:" "8'50,2558'I12000:I8*::3:10:"A.P.P.L.E. PRESENTS:":7:"PRINTER PAK I"<9+10:"1 LOVE PICT P L E":2:"P U R I X"7j'3:"P G O B C":4:"L E G R H"7t'5:"E T R A A":14:"S A R N"8~'15:"O M Y ";:9:" ";:17:" ";:25:" ";:33:" "k68'" ";:5:" ";:9:" ";:17:" ";:25:" ";:33:" "6B'" ";:5:" ";:7:" ";:9:" ";:15:" ";:17:" ";6L'23:" ";:25:" ";:31:" ";:33:" ";:39:" "6V'50,255:@7`'"A P 5** TURN PRINTER ON ** &51,5K5p** TURN PRINTER OFF ** R5z0X5g5'50,63::5'1:2:" ";:9:" ";:17:" ";:25:" ";:33:" "5$'" ";:5:" ";:9:" ";:13:" ";:17:" ";:21:" ";:25:" ";:33:" "26.'" 262728293031," "$46Z4" 1 2"," 3 4 5 6 7 8 9",101112131415164"17181920212223,24252627282930,31 "4,746" 1"," 2 3 4 5 6 7 8"," 9101112131415"5@16171819202122,23242526272829,"3031 "6171819;320212223242526,2728293031 ," "B34x3" 1 2 3 4"," 5 6 7 8 91011",12131415161718319202122232425,262728293031 ," "353" 1 2 3"," 4 5 6 7 8 910",11121314151617418192021222324,25161718192021B222232425262728,"293031 "," "I22`2Q111000:Q1:102" 1 2 3 4 5 6"," 7 8 910111213",14151617181920221222324252627,28293031 ," "233" 1 2 3 4 5"," 6 7 8 9101112",1314151 1LC1251(12LC$1<6000.1F30701P::"APPLE PUGETSOUND PROGRAM LIBRARY EXCHANGE":"6708 39TH AVE SW, SEATTLE, WA. 98136"1Z::"(206) 932-6588"::1d101n3128313031303131303130311x1 2" 1 2 3 4 5 6 7"," 8 91011121314",15$(M$,M121,2)$0LY$L$(M166L)/0VN17<0`X2N21N0jP$(Y$,X2,2)^0tX$P$3740g0~P$;q0" ";{037500" ";0N0" ";0M100L00T03920060000COPYCOPY10 COPYLIMIT394005000 YEAR 19";A/ / T14)/ T3T326/ T$B$C$]/ B$;J$(T3);T$;J$(T31);T$;J$(T32)c/ q/ K$;K$;K$~/ T3T32/ L16/ MT/ MM32/L63640/M1MM2/(L$(M16),1,2)" "3640/$M1/.3800/8M1MM20BX3260. R16. D$*. L$(M66R)D$1. RJ. T((M$,M221,2))T.* TTSb.4 T1(T7)n.> T1T17z.H T1TT1.R T10T17.\ ST1.f M.p B$" ":C$" ".z K$"SU MO TU WE TH FR SA ". 5000 / 20)"CALENDAR FOR THE "-b J$(7)"JULY "0-l J$(8)"AUGUST "F-v J$(9)"SEPTEMBER"]- J$(10)"OCTOBER "t- J$(11)"NOVEMBER "- J$(12)"DECEMBER "- M112- :123,10:124,15:125,133:126,49- M$- D$- D$(S)3320- R16- D$- R. PIES WANTED ":LI, LILIMIT:, Y1A1:Y1(Y14):AA1W, Y1A365Y13:Y2(Y17)q, Y3Y1Y27:Y30Y37, SY3:AA1,& J$(1)"JANUARY ",0 J$(2)"FEBRUARY ",: J$(3)"MARCH ",D J$(4)"APRIL ",N J$(5)"MAY "-X J$(6)"JUNE 1004+ 001100001100,000111111000,000011110000:+ Y+ *** CREATE A CALENDAR ***{+ J$(12),L$(75):COPY0:LIMIT0+ 936:" SET-UP PRINTER WITH THE"+ " TYPE OF PAPER ( 80 COL. ) "+ "YEAR OF CALENDAR ";:" 19":A, 936:"HOW MANY COPACE BAR TO GET THE "1 "WEATHER REPORT ";:A$H 936:X11000:XN ~  HUMAN INTERACTION WITH REFERENCE MATERIAL  "PLEASE ANSWER THE FOLLOWING QUESTIONS"   DELAY LOOPS GIVING TIME FOR HUMANS TO THINK  1170% "/2 X 11 (ORDINARY TYPING PAPER WILL"K r"DO) AND PLACE IT OUTDOORS FOR A"` |"SHORT TIME.": "THE COMPUTER WILL NOW GO INTO A HOLDING" "PATTERN OF ABOUT 15 SECONDS OR SO..." X110000:X 936:X15:(7):X "WHEN READY PRESS S8  ::*10:12:"WEATHER STATION";M12000:ME"936L, g6 INSTRUCTIONS FOR USEm@J"YOU NOW HAVE THE ABILITY TO INTERFACE"T"YOUR COMPUTER WITH THE OUTSIDE WORLD.":^"TAKE AN ORDINARY SHEET OF PAPER ABOUT"$ h"8-1""CH IS THE BEST BUY"F n24:"PRESS: R=RERUN E=END X=EXIT->";:A$V sA$"E"135e yA$"R"10u zA$"X"145} : :"GOOD BY"S100# ]T(1);" SIZE-> ";S(1):1056 _T(2)T(3)100U `T(2);" SIZE-> ";S(2):105o dT(3);" SIZE-> ";S(3) i:5:"THIS DOES NOT TAKE INTO ACCOUNT THE CAL-ORIES OR THE FACT YOU MAY EAT MORE THAN-YOU NEED OR SHOULD EAT, BUT NOW YOU KNOW WHIS13:P(S)A(S)50:/ QS13:L(S)P(S)21:I RS13:P(S)(P(S)):e SS13:T(S)C(S)L(S): TS13:T(S)(T(S)): UP(1),L(1),T(1) VP(2),L(2),T(2) WP(3),L(3),T(3) Y:"BEST BUY IS THIS PRICE-> "; [T(1)T(2)95 \T(1)T(3))2:S* S13:A(S)3.14159R(S)R(S):D S13:A(S)(A(S)):x #:" RALLY AROUND THE PIZZA PROGAM AND EAT ":5 ("SIZE","SQ-INCH","COST":5 2S(1),A(1),C(1) <S(2),A(2),C(2) FS(3),A(3),C(3) K:5:"SERVES","#SLICE","COST":5 P-S(3),R(3),P(3),L(3),A(3),C(3),T(3):10IS13:X(S)(X(S))::z"---------------------------------------": :7:" * INPUT THE PIZZA SIZE THEN THE COST *":S13:" SIZE-> ";S(S):S13:" COST-> ";C(S): S13:R(S)S(Ssvy|&|yvspmjgc`]ZWTQOLIFC@>;8631.,*'%#!  !#%'*,.1368;>@CFILOQTWZ]`cgjmpU @ QJJJ`ŴxaI1S-Q/ ? QJJJ`& ')*& *'JJ) **- m- ʥ0J)m-)(`)J Ji,`#" ! & #` L # !" #`#&/'$% #`E%0Q&&S [ TePTUeQPF0'@0- &`0(Q) &E%0Q&&QeS)j00', "&, i8i#H&ii&hif&i'`'i, &i, &iPII&.if&JJJJS)PIȄR-QTU/T8ePT ? UeR  .WSP.)`*()H)&JJ&&h' &' &' f&') .'#i-| 0J, i` @ & Q&%0Q&&`H()*hH8(H)S hIiHSQUhPTh()*IiR*fS8PQ+-  8TeRTUU+5& SW SEATTLE WA. 98136 * SPECIAL THANKS TO * APPLE CORP SAN DIEGO, CALIF ;** EDITED BY ** ** DAVE GARSON ** \q7бq7\,q5бq5\,Eq7\q\wqP\wqj/\qx\wq_+\wPqoR\wq\wq*\wq*\wq!N\wq R\wq*\wfqB3\qP\wq\wqb6\q|P\wqY\qвq6гq\Xq,бqвq\XEq,\q8*\wq ;\qv\wq\wq\w9ql2бq-\,ql2бqR/\,ql2бqq2\,:q|5\qDQ\wq\wqw\wq4*\w@PqI6бqвqq`Oбqвq\X:q P\qO\wq\wqN\wq"N\wEqP\wq4\q\wq\wq?(\wq(\w:qv\wqj)\wqG\q1\wqZ\w_q5бq6вq6гq \Xq,бv q[\qR\wq\wq$\w= qQбqвq\qPV\qP\wq \w` qTбq6вq6гq\XqTбq6вq\XqZOбqвq6гq\XO qZOбqвq\Xq`Oбqвq6\Xqвqгq\Xq0aбq6вq6\Xe: qL]бqвqгq\Xq$^бqвq6гq\Xq\бqвq6гq\XfX qiбq6вq6гq\Xq\бqвqгq\Xq*iбq6вqгq\X/вq\qSбqвq\qWбqвq\N qZбqвq \ql`бqвq\qt`бqвq \N q$^бq вq\q\бq вq\q6^бqвq\W q:^бqвq \qDK:q(\wq\wq\wq/\wq\w6qOO\wq3бq:\,q7\q+N\w:Hq,\wq\wql/\q'\wq4\wHzq\wqB*\wq\wq )\wqXGбqвq \N qbNбqбq\,qбq\,qбq\,qбq\,DlqбqL\,qбq\,qбqf\,qY.\=q-\q-\q-бq1\,q-бq)/\,=q['бq,\,qo<бqF\,q-\q-\)\,Dq*бq*\,q*\q+бq+\,qL,бqP,\,Rq-бq-\,q-бq-\,q.бq.\,qбqвq\Yqбqвq\q-бqвq\qбq\,qбq\,KDqq \,qZ!бq`!\,qc!\q""бq*"\,D^q"бq"\,q#бq#\,q{$бq$\,q$\KqC%бqJ%\,q &бq&\,q&бq&\,q'бq'\,Dq'\qd(бqj(\,q,)бq1)\,q)бqqYбqb\,Kqgбql\,q"бq)\,q/бq4\,qбq\,Rqбq\,qбq\,qбq\,qбqвq\Dq9бq>\,qбq\,qбq\,q\D6q бqXq4бq6вq6гq\Xqбqвqгq\XHq\q\wq\wqбq\,q#бq#\,9xqбq \,q бq\,qбq\,Kqбq\,qбq\,qбq\,M63d,e\d,eUqбqвq\.d,eqбqвq\d,ewqбqвq \qбqвq6гq \Xqбq6вqгq \Xq бqвq\fq бqвq6гq\(10))1  nK(3(10))1 0 xL(3(10))1 O N$(J);" ";V$(K);" ";O$(L)f TIME11100:TIMEo 90Kq :! N$(3),V$(3),O$(3):"TYPE THREE NOUNS:"a"(PRESS RETURN AFTER EACH WORD.)"{( K1 3: N$(K): K2"NOW TYPE THREE VERBS:"< K1 3: V$(K): K F"NOW TYPE THREE OBJECTS:"P K1 3: O$(K): K Z dJ(3        !!!!!!!!!""" " " " " """"*************************#YES0@:S$;" (Y/N) ";:A$:A$XA$"Y"YES1:1599qA$"N"ĺ(7):1520w?TT$T$(M)PT$T$AP$wtx************************ TEST FOR NEXT DAY ***************************** DF1499:(7);DF;" DAY";DF1ĺ"S";" LATER!!!!!":************************ ASK Y/N QUESTION ****************AP$" AM":DF0IT25TT24:AP$" AM":DFDF1:1310\#T0AP$" M "p(T12AP$" N "-T12AP$" PM"2T13TT127T1TT12<H(T)AM(60(TH).5)FT$(H)":":M10T$T$"0":M0T$T$"0":1360 KHHHM60*AP$"P"H12HHHH12b(AP$"N"AP$"M")(HH12)Ğ::"AM OR PM!";:1265(AP$"M"HH12)(AP$"A"HH12)HHHH12EF0:1299:(7):EF1 ************************ HOURS TO HOURS, MINUTES *****************O HOURS *****************************[H1H12Ğ::"HOUR MUST BE FROM 1TO 12!";:1265M0M59Ğ::"MINUTE MUST BE FROM 0 TO 59!";:1265AP$(AP$,1)T$"ANPM":I1(T$):AP$(T$,I,1)1240::"AM, N, PM OR M!";:1265 HI(HH)%M(60(HHHI).5)FHI;" HOURS, "M;" MINUTES ";LKL************************ PRINT ERROR MESSAGE *****************************V::(7);"TIME MUST BE POSITIVE!":%************************ HOURS, MINUTES T14004:"FINISH COOKING AT ";:TFT:1300:T$>1400nS$"DIFFERENT START OR FINISH TIMES?":1500{YES270S$"ANOTHER CASE?":1500YES210************************ PRINT HOUR, MINUTES *****************************(7);"MINIMUM COOKING TIME IS:":HHET2.25:1000:"--- ALL ON HIGH!!!":FTSTET2.25::470NH0Ğ::(7);"MAXIMUM COOKING TIME IS:":HHET:1000:"--- ALL ON LOW!!!":FTSTET::4701400:"CHANGE FROM HIGH TO LOW AT ";:TSTNH:1300:T$ FOR THE FOLLOWING DAY?":1500:YES270= hFTFT24:330O rET2.25THTLc |NH(ETDT)1.25p NLDTNH NH0ĺ:"START COOKING ON ";::"LOW";::" AT ";:TST:1300:T$:430 :"START COOKING ON HIGH AT ";:TST:1300:T$[NL0Ğ:: 1200:EF270 "STHHw ,:"ENTER COOKING FINISH TIME IN FOLLOWING FORMAT: (HOUR,MINUTE,AM/N/PM/M) ";H,M,AP$ 61200:EF300 @FTHH JDTFTST TDT0370+ ^::(7);"FINISH TIME IS EARLIER THAN START TIME."::S$"IS THE FINISH TIMEİ1100:210K :"ENTER RECOMMENDED COOKING TIME ON LOW (IN HOURS) ";TL` TL0İ1100:230m TTTLTH :"TOTAL RECOMMENDED COOKING TIME IS:":TT;" HOURS. :"ENTER COOKING START TIME IN FOLLOWING FORMAT: (HOUR,MINUTE,AM/N/PM/M) ";H,M,AP$" DESIRED TIME TO FINISH COOKING: :"OUTPUTS ARE:c :" TOTAL ORIGINAL COOKING TIME :" TIME TO SWITCH FROM HIGH TO LOW :" TIME COOKING IS FINISHED :"ENTER RECOMMENDED COOKING TIME ON HIGH (IN HOURS) ";TH TH0 PERFORMS THE CALCULATIONS NECESSARY TO ADJUST CROCKPOT COOKING TIMES TO ACHIEVE DESIRED COOKING START AND FINISH TIMES. :"INPUTS ARE: :" RECOMMENDED COOKING TIMES ON HIGH AND LOW :" DESIRED TIME TO START COOKING% :x  ************************** CROCKPOT COOKING TIME ** VERSION 1.0 6/12/82 ** PROGRAMMED BY KEN SCOTT *****************************d************************* MAINLINE PROGRAM ***************************