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`FILE (2D$;"OPEN ";F$2<D$;"READ ";F$QFNAMES$:KK1:Z$(K)NAMES$ZPMN$fZI117pdA(I)wnIxRN$R$ĺD$:1450ZZ3ĭRN$NAMES$15301350D$81015);::"ONE MOMENT PLEASE ":::ZZ1:RN$"END":1320BNAMES$LMN$VNS(`M2;D2;Y20jCM8tC1F~LN,DD,YYNPCVDV]TeN1lLtSP|C3AAT2N2P1C2D$  RETURN TO 810# ....................... INPUT INFO FROM ECP 50.84,51.92,53.00,54.08,55.16,56.24,57.32,58.41,59.49,60.57,61.65,62.73 53.54,54.35,55.16,55.97,56.78,57.60,67.06,68.14,69.22,70.30,71.39 72.47,73.55,74.63,75.71,76.79D$(4)$.D$;"APPEND ";F$8D$;"WRITE ";F$ p980,zDD((DT$,3,2)):YY((DT$,2))OLN((DT$,2)):X1LN:MN$:XUeTMLN30DDuTDM230D2YYY2ī980LTMTD425"360 8 IS LENGTH"L(365TD)TM425 JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,D5 DAYS > ";A((T2C1100)365L);"%";4);:A$:q "SAVE THIS WRITE?";:A$:(A$,1)"Y"ĺD$;"UNLOCK ";F$:1040*K0::"RECALL A PREVIOUS ONE? ";:A$:(A$,1)"Y"147045000>D$;"CLOSE ";F$HR(DT$)8ī970\(DT$)6890f420-";C1AA(SPNSC3)C1J(19):10);"ADD. APPRECIATION";33);A(AA)VT2TAA|(21):10);" TOTAL ";33);A(T2)(23):5);"NET RETURN ";::A(T2C1100);::" % FOR ";L;" DAYS" :N2A(T2C1100)05);A((TC1100)365L);"% < 36NPUT SPPRSPM PRINT "COMMISION,IF SOLD AT THIS PRICE ";: INPUT C3W3000aC3CC"COMMISION COST IS: ";C3:J11500::34,0(16):"IF ";NAME$;" CALLED @ ";SP;" ";SPNS;" -";C3;"= "(17):33);NSSPC3(18):32);""DIVIDENDS ";DV&(14)I015):"TOTAL ";DV(PCNSOC)]:TDV(PCNSOC)gDC2OCqN(15)X5):"NET RETURN ";::A(TC1100);" %";::" FOR ";L;" DAYS"bN1A(TC1100)l34,19:v PRINT "STRIKING PRICE OF CALL";: I CALL"E" ";MN$;" ";SP;" @";PC;" ";NSPC;" -";OC;"= ";PCNSOC]"EXP. ";MN$;" ";DDj34,18:"AMOUNT OF DIVIDENDS";:DV34,010:"IF ";NAME$;" STAYS AT ";P1(10)15):"OPTION INCOME ";PCNSOC(12)15): ";PSNS;"+";CM;"= ";30);::PSNSCM:X|C1PSNSCM: C1=TOTAL COST OF STOCKb(19)"STRIKING PRICE OF CALL";:SP"CALL PREMIUM ";:PC"EXP. DATE OF CALL (MMDDYY)";:DT$:850NONS1009000(7)"SELL------ "CALL OPTION WRITTING WORKSHEET":"----------------------------------------"V ,P1PSw 6 CONVERT TD$ TO TODAYS DATE @M2((TD$,2)) JD2((TD$,3,2)) TY2((TD$,2)) ^(3) h"BUY------- ";NAME$;" @ ";PS;30);"COST"-rNS;" ";NAME$;"T":"----------------------------------------"Z "NAME OF STOCK";:NAME$:NAME$""5000 "NUMBER OF SHARES (100'S) ";:A$:NS(100(A$)):NS "PRICE/SHARE ";:PS:PRPS 3000 CMCC "COMMISION COST IS: ";CM J11500:L ":6);Z:1 dA(20):2000:D$(4): D$ = CONTROL D= nD$(4)d x5);"TODAYS DATE (MMDDYY):";:TD$w (TD$)6120 (TD$)1120 A(X)((X100))100 Z$(30): R$(13) 7000 5000 . 6);"CALL OPTION WRITTING WORKSHEE *"4 $"* BY *"c ("* DAN RHOADES *" 2"* *" <"***************************************" F P"INSTRUCTION? (Y OR N)";:A$:(A$,1)"Y"İ12000 * *6 * GREEN APPLES *T * NORTH CENTRAL IOWA *r ************************x  "***************************************" "* *" #"* OPTION WRITER 4  ************************? * DAN RHOADES *^ * *} * COMMISSIONS BY * * DAVE SPARKS * * OCT. 6 1980 * * * * 50 STOCKS PER FILE *                   $% 0 vf'  `m :F a -mLǏLi^j_kZl[`8tp`8M`y h (`|)* X |`YLHHJhh`Ǘ˯߷ë󳏋'C/cO KC[ a(נ)+Ss?` APPLE DAYTON PROGRAM LIBRARY L(OAD R(UN D(ELETE C(ATLG T(DRIV K(LOK U(NLOK X(ALL E(XIT V(ERIFY ----------------------------------------VOL PG OF SECT-USED LEFT ---------------------------------------- ) v) m}}m~~ة$eeeLؠ D8}}~~ؠ ~ 0})JJJJ 0ș}) 0șeJJJJ 0``% $ Bd 鑠e e ēHi&eh L`$e  ɍ ` X0 md:&98N9m:Jn8m8eed`8edd 鑠` :` ^67ą89 Q@ y 6 @^`6798 Q`Hǒ hǒ``}~eei@iA)m~~ v  6g/5 ys r ; ya ` `$$(ɠ$C y$f ``H$%  h\  `CATALOG\Y/N\LOAD\LOCK\UNLOCK\RUN\SAVE\DELETE\NOMONC\START\ LENGTH\,D\I/O ERROR\VERIFY\@  dh a X ;g B ؐg KL L KPhg a X00   ddd 鑠 ؐLs ;O ؐ YLЪPТ2'gh a X ;" ē$ y X ؐ Y ȒL :L'% g h y ē I8Mtn=vH?J QVQT_ɕ%j^iZk[l#^Z_[ 0f ߓ Y1  Ȓ@)ȹ@)ȹ@) Xmɠ 0   L Mf'fП K Xg QLiLLs4 ON, OHIO *!  ****************6 PAGE 2 COMMENTS< V Q>=QUIT" 700& KB209ė::'Q'K KB195ė::D$;"CATALOG"::'C' KB205ĺ:D$;"BRUN MENU 3.1":: KB="M"? "";:640 KB(16384):KB128700 16368,0   ****************  * APPLE-DAYTON *  * DAYTX:2:5:"APPLE-DAYTON DISK-OF-THE-MONTH"::8:"VOLUME ";VOL;", ";MTH$ b9:10:"TO RERUN MENU PROGRAM":9:"-----------------------" l12:9:"'CALL 1016' FROM BASICS":14:10:"CTRL-Y FROM MONITOR" v22:"=RUN MENU PROG =CATALOG "; :700 NI OTE THE INFORMED USE OF APPLE":"II SYSTEMS": "MEMBERSHIP- OPEN, $5 INIT + $18/YR":"RECV NEWSLTR & ELIG TO BUY DISK-OF-MONTH" "MEETING- 2ND THURS EACH MONTH, AIR FORCE";:"INST. OF TECH, WRIGHT-PATT AFB, 7:30": "CONTACTS-":"PRES- JOHN MA=: APPLE-DAYTON HELLO PROG. MASON FRIAR, DTD 5 JUL 80.[VOL29:MTH$"SEPTEMBER 1982"|D$"":D$;"NOMON C,I,O"::5002000600:2:13::" APPLE-DAYTON "::4:"THE APPLE USERS GROUP OF DAYTON, OHIO":. "GOAL- PROM     LLHxܥyݥPQLuƵPxLhQεyϱΠ L 4) ؘ 甠` uHɃLh` ☪ T`  甠`ѥ΅ ΅ҥυө 甠0ХҠ ӕ "L 4i` F`ٚ .L 4 `$$L$Ն$L,L 8!$ L赟0L0ܤ } L赟L0ܤ } L ` ` [ S oP YVPL6 O 5OPL Ι_LfP0Q@PPxA@QPa`qp`HP8εxh`Ʌ۰եڅʥۅ , ` :L΄<Ȅ>=?`ʕ>?>`8M˕   , ` L:L``F`$ ܪȱ 婠Lܤ`Ś25 a0 穠LJKH۰hЅѠȱ0@ȱHШhh0JL JLKMMLILLILLLLy 2L,PQ܅x݅yL آ8ЕNЕKʵ˕ە LkLMNܕ`LΥΥLMLʥMː ʥ˰JυKL  8MϕڥL 4΅` ȑ` l΅υLD L4 xPiڄeΕPeϕxPȵxڰL# N ONi)OO i@ &N&O ϕLz JKLυML LMJυKL qL ȩ` 6 6P`JLKMLxL L6 L[` Oڵw۴Nv L`xw8OPL# (` 40!(L 4LdF`  %L"wL{ TL~&&&ڥې څΈ` l 4Ȑ,` 40L 4Ȑ-` 4(L(n ㊨ rLa ?&0ΰ` Δ䮥G 0 #gMghghPcQ)Wqqqqhhq`uuuQ줰䮲륥Q9O/Q) WjB`O~5'Q 䯭䮡ޜݜݞGg` ` `嶡䡯z~" `P O䯭䮡𥴳\@`` ~3`Gg壡yi壡yi` @Gh X{gggggg'(dgxkg~9g'7(*7ϠGX͠LϠ٠SGϠDĠHSĠNSĠTĠ 5EMҠL Šō?FِLϚΠ κ f ٢  ٦Τ ȹɀI ȄȹH h3 oLB oTMɅ"3J[NSJIfmzq# [$NYP;#o6#"#!0 9@0Ӷ:Pyإ<[(N>W']5Kgvq ʤ  Y YoܹݾЇ`TP@xL` Ιϙ_oܙݙᙯ` ??<<<<<<<0UUUUUUUUWΤ PڵxۥΑȥL`hh$ F`` %ֈ`ʤZA^ܙ ݙ0  m7;܄iȢٚ . y$IqܤݐLM͠1FLJܹ/ݾLuc ܪȱ L[ĨP?xO_ڹo  l`w0P`fLPεϵxϱHȱ΅hΈ` J  畠P` Y $0`  畠$0 8 P# o ΅ڥυ e epݕ` 4LL$ `  rPՆϦ ` ΅υȩ ` Ӡȱ0I@iHeШiH˰hhЈЈ͑Ј̑ЈЈ0JKЬ@iHe eѕxh$0 xx ԅբ H 0  敠$ ( x$0  xx 0$FԨֹ)U h)װ H ֐ι LhޤȄ h󰩠ɩch cɰ$0 $` d'ʅ˅LM&ȱϰqȥȥ`FLʥM˥J̥Kͩ`Lkȱ0@hJHȱШhЄ0)ȆȘHJI@hL`ȩ)?Jжi?oiO iȱ) zȵх 8 05X~")XȔ) v*Ȇ0LJɢ  Ȉ ϴX)HЄ ȹ)eHe0 ̥͐Eʑ˥ʥ˰ਈ$ u~q  u  mʥ` ȹ0 L uߙ`` $0LL*iS 0wh(VP`΅h(OM L6 T&ϐ eڅeۅ &L~ 畠(LoU [΅ڥυ   o ` l3 3` 4J G 4&(JJJJ) 甠` F٩ $ 婠 Ȣ ii)ɰLPx+L 4P xL# 48` PxL PeHxeH˰iکeۅȱhڙ`ꠀЕ x ت3 Q3ؕxQεy NvNδPPPL#Q8yڅ`Sε{ϵQڵyxȔPMuHOL L3L`) #L $  `  v mL;ʅ˅LM  mdžة * * *     % 0LH΢QPHΪ0h$0 )?i h](Њ q L H ϐ { lhHHH hHL? hυυ Ljݥ ,L mݰ % LߩƉ 慝 憨80 ў*%L L ު `  }LޢٹHH ޥLLޥШh^^h_H r륡HHHHHl^h#d j݄hJhhhhhhE` LJ }d.U"i L=8,LLTҐL {ݩ),(,,ѸLLԠhhL ߅` ȱLL  ߅ ei` 꺽  ' 8 uvL׊i , {$8$0`LԦƹƸ$HH `ީ 8ϐ*IEʼna Lݦ,{iweLi^ e^hٲаg jH hV_F*ƹƸٲаH $P )0 Z ۆ $1$P 膸 ": ,i = {LrH0h J c ,Lqۥ 3 LۥL Ȫ*ȱ_ȱ{ȱȅ| L+ܥLSؠߠL:`?EXTRA IGNORED ?REENTER  \I`$ !i)$ )L(ʊ$ L W 檠^ \ LD۩ ,? ɠ )H h`0{|uvLh$L :ۥyz` @ `" ީ; =L Z , ,խLc ZL,զ}~, ߅hL* ,h`PQ/ Q^ԥP &^ &^ePP^eQQP&QPe PQ L ߅ ޥHH {h* mh r ȥ`L'hpoj iLڠ 㥌 婝 5ȱȱ` = $)94,;D {$0 4 Lک?`gh<=ij>?`v(Le lL5٩ ӥHHvHuHH >L ٥vQ 8egh ֐` eӚɰ ,ZLLhhB;uhvhh ٘e`:,  "hhh` { ɫ ޥ L>L( HɰɫЉơ$v# \ۦuv $ W (Lb-逐@ HHLLF:L8gh}~`Ƀ` Sբ$Lׅ ׅLԱJHȱJh`LNפ0`L,׈L20`LF׈LL ׅJF8ȹe8ИL`Lø{{ttmnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# !H ֥ h ߦ>  E֥ E & > ` E  E  H ֥ h ֥  ֥ -L L -EF# =Pi  ֤Lְ ׅ! ׅ  / ) ) "&6 B /`TLՆ8M˕  Tբ , Tզ`  . $ ; E.. 4L& >`Lk 34 Lh856!;<79)F:&8J9j*0v 婭   +<; LhLk'cg=%;!,<+k,w(gG gG]$ t < N8i| (|`ܠLդ4ɪ 4<`<  $ H h .Ю#` L}Э%J u ӊH Өh dѮ#` L Q ;Ү#` Q Ү#`#2 Ӎ'( H() 91 eȱm)h`JJ`#JȱJLh `#  <(eΨ=)eϰ%Hh>?iJK̅  #& ')*& "'JJ) ""% m% ʥ0)J!m%! `JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ`JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ` ӥ',"&,i8i#H&ii&hif&i'`'i,&i,.&iPII&&if&H !"hH8 H!S hIiHSQUhPTh !"IiR"fS8PQ% 8TeRTUU&E%0Q&&kS TePTUeQPفŴxaI1( &WSP& )`" !H)&JJ&&h' &' &' f&') &'#i%Ѕ0J$)` .ХQ&%0Q&&`$0JI0`'0% I`0 I0ܩ(ߠQ)'%01&*%0Q)&E%0*Q&&QeS)j00             ààH /Ѽdd`dЅ deԄ8ҍӍd`D}Tߥ҅ީd LԦ}dҍ` ǠҠÍǠԠÍϠٮɆ0&⽌D}T L֠ $Ȅф(0PLddLԩՠԑihL* ۄکڍ ȱڍ `D`ߠ h  *L`,0,0I,0`d hhLd t Ld L di#Ld)ʽdʽdȄф L Pd0G  @dd0 RHDThЮ$0lp  :DL DLld 4ILILHUЍ`(S(L Lީߩ$, Lީߩ$hL  % "  hH ބ ބߩdҩ Ȍ ER STRING A$, B(20((A$)2)):B0B19 B:A$::  :D$(4): CTRL-D92:A$"APPLE II":1000j(4:A$"DOS VERSION 3.3 SYSTEM MASTER":100027:A$"JANUARY 1, 1983":1000<D$;"BLOAD LOADER.OBJ0"F4096: FAST LOAD IN INTEGER BASICd(4);"RUNAPPLE-DAYTON HELLO/V27"  CENT  Ժō͠       ٍ`` ٍ`čҍӍ  čč                   ččƍ        ΍ԍ         ōӍ               ͍              Ӎ     ҍ     Ӎ                    ȍҍ         ō       ō      čӍ  Սōȍ                                                         rq-rq-rq -rq -rq -rqNu_ N KM6 o P a(ϠԠӠƠŠ)oQ)8HNd"eM6PS(Π)'`$4RNKM6Ld6?efUV(W/iŰj'kY\Nfq\aN`$ N"fNq.?6@rd6?e`$fNpN_ N<0uO4rD4rD4 rC@"(rD4r-rq-rQDu-\[- NKM6Poa(ϠԠӺ)"Ncc3*NP a(Ġ)cP a()c74NP a(Ԡ)cP a(̠)c9>NP a(̠)cP a()c$CNP a(٠ҠҠϠWf-rUVWqlŰm/nYqY*[ Kd6?ecM6! UVW&XUVWX oPa()G YY []̠"UVW lm.nY[]ڠ&UVWij'kY[p\Ӻ) c\dc#a(ŠϠҠҬ)c+S(ҠǠŠҠՠή)'`$BM6Ld6?e(fd6?eUVW'lŰm/nY" q.?6@rd6?e`$ _B[ ]EqUV),PԱa(͠)GPԲa(),PԱa(Ԡ)GPԲa()[ oPa(ԭپ)"q.?6@rd6?e`$_0u KM6&Pa(ҠŠƠĠ)c(a(ŠӠŠΠƠԱqԲq'nPԱa()GPԲa()*xPԱa()GPԲa()*PԱa(ˠ)GPԲa()'PԱa()GPԲa(),PԱa(ˠ)GPԲa()'PԱa()GPԲa(<a(ԠŠ٠Ġ٠Ԡ֠έ)-Aa(ŠŮŠӠϠŠ),Fa(Ҡ̠٬ĠŠ)(Ka(ϠŠŠŠ)Pa(ҠӮ) UcP%Za(ӠŠԠƠŠӺ)_c\d_d]ϠӠ]Π٠]̠Π]]] KM6P a(Ҡ) cP#a(Ϡ) 2cP*7a(ӠŠƠؠԠӠ)-    eʵ``` f f` &L L fLC`8i`uu  ee`` ` 0` ` ` 5I` 5Iй` f f`L ?5=ɥD 5 5 D4ɻɍЀL\ɠ` }Ɏ$ ``LXWVhY `XWYHV(` Jhh LH) JQ JJJH`HJ`hh ?l8e` %GQ/[҅n3pJ?>ʊ:>Ș;k/=:   S;:L 4 40K14 L= BC D..=D5֤4 J :3 g ɠɤ ɓՊ x= 4   &B&C= 44ݴ 4ݺ ɤ4&D`L# ȱ0` 4 `u` 7$ 8`0 &&` { %Ppĥ uv` 2e   %F8 2 8Hh&&&&& 0hhI`LLLHxܥyݥPQLuƵPxLhQεyϱΠ L 4) ؘ 甠` uHɃLh` ☪ T`  甠`ѥ΅ ΅ҥυө 甠0ХҠ ӕ "L 4i` F`ٚ .L 4 `$$L$Ն$L,L 8!$ L赟0L0ܤ } L赟L0ܤ } L ` ` [ S oP YVPL6 O 5OPL Ι_LfP0Q@PPxA@QPa`qp`HP8εxh`Ʌ۰եڅʥۅ , ` :L΄<Ȅ>=?`ʕ>?>`8M˕   , ` L:L``F`$ ܪȱ 婠Lܤ`Ś25 a0 穠LJKH۰hЅѠȱ0@ȱHШhh0JL JLKMMLILLILLLLy 2L,PQ܅x݅yL آ8ЕNЕKʵ˕ە LkLMNܕ`LΥΥLMLʥMː ʥ˰JυKL  8MϕڥL 4΅` ȑ` l΅υLD L4 xPiڄeΕPeϕxPȵxڰL# N ONi)OO i@ &N&O ϕLz JKLυML LMJυKL qL ȩ` 6 6P`JLKMLxL L6 L[` Oڵw۴Nv L`xw8OPL# (` 40!(L 4LdF`  %L"wL{ TL~&&&ڥې څΈ` l 4Ȑ,` 40L 4Ȑ-` 4(L(n ㊨ rLa ?&0ΰ` Δ䮥G 0 #gMghghPcQ)Wqqqqhhq`uuuQ줰䮲륥Q9O/Q) WjB`O~5'Q 䯭䮡ޜݜݞGg` ` `嶡䡯z~" `P O䯭䮡𥴳\@`` ~3`Gg壡yi壡yi` @Gh X{gggggg'(dgxkg~9g'7(*7ϠGX͠LϠ٠SGϠDĠHSĠNSĠTĠ 5EMҠL Šō?FِLϚΠ κ f ٢  ٦Τ ȹɀI ȄȹH h3 oLB oTMɅ"3J[NSJIfmzq# [$NYP;#o6#"#!0 9@0Ӷ:Pyإ<[(N>W']5Kgvq ʤ  Y YoܹݾЇ`TP@xL` Ιϙ_oܙݙᙯ` ??<<<<<<<0UUUUUUUUWΤ PڵxۥΑȥL`hh$ F`` %ֈ`ʤZA^ܙ ݙ0  m7;܄iȢٚ . y$IqܤݐLM͠1FLJܹ/ݾLuc ܪȱ L[ĨP?xO_ڹo  l`w0P`fLPεϵxϱHȱ΅hΈ` J  畠P` Y $0`  畠$0 8 P# o ΅ڥυ e epݕ` 4LL$ `  rPՆϦ ` ΅υȩ ` Ӡȱ0I@iHeШiH˰hhЈЈ͑Ј̑ЈЈ0JKЬ@iHe eѕxh$0 xx ԅբ H 0  敠$ ( x$0  xx 0$FԨֹ)U h)װ H ֐ι LhޤȄ h󰩠ɩch cɰ$0 $` d'ʅ˅LM&ȱϰqȥȥ`FLʥM˥J̥Kͩ`Lkȱ0@hJHȱШhЄ0)ȆȘHJI@hL`ȩ)?Jжi?oiO iȱ) zȵх 8 05X~")XȔ) v*Ȇ0LJɢ  Ȉ ϴX)HЄ ȹ)eHe0 ̥͐Eʑ˥ʥ˰ਈ$ u~q  u  mʥ` ȹ0 L uߙ`` $0LL*iS 0wh(VP`΅h(OM L6 T&ϐ eڅeۅ &L~ 畠(LoU [΅ڥυ   o ` l3 3` 4J G 4&(JJJJ) 甠` F٩ $ 婠 Ȣ ii)ɰLPx+L 4P xL# 48` PxL PeHxeH˰iکeۅȱhڙ`ꠀЕ x ت3 Q3ؕxQεy NvNδPPPL#Q8yڅ`Sε{ϵQڵyxȔPMuHOL L3L`) #L $  `  v mL;ʅ˅LM  mdžة * * *     % 0LH΢QPHΪ0h$0 )?i h](Њ q L H ϐ { lhHHH hHL? hυυ Ljݥ ,L mݰ % LߩƉ 慝 憨80 ў*%L L ު `  }LޢٹHH ޥLLޥШh^^h_H r륡HHHHHl^h#d j݄hJhhhhhhE` LJ }d.U"i L=8,LLTҐL {ݩ),(,,ѸLLԠhhL ߅` ȱLL  ߅ ei` 꺽  ' 8 uvL׊i , {$8$0`LԦƹƸ$HH `ީ 8ϐ*IEʼna Lݦ,{iweLi^ e^hٲаg jH hV_F*ƹƸٲаH $P )0 Z ۆ $1$P 膸 ": ,i = {LrH0h J c ,Lqۥ 3 LۥL Ȫ*ȱ_ȱ{ȱȅ| L+ܥLSؠߠL:`?EXTRA IGNORED ?REENTER  \I`$ !i)$ )L(ʊ$ L W 檠^ \ LD۩ ,? ɠ )H h`0{|uvLh$L :ۥyz` @ `" ީ; =L Z , ,խLc ZL,զ}~, ߅hL* ,h`PQ/ Q^ԥP &^ &^ePP^eQQP&QPe PQ L ߅ ޥHH {h* mh r ȥ`L'hpoj iLڠ 㥌 婝 5ȱȱ` = $)94,;D {$0 4 Lک?`gh<=ij>?`v(Le lL5٩ ӥHHvHuHH >L ٥vQ 8egh ֐` eӚɰ ,ZLLhhB;uhvhh ٘e`:,  "hhh` { ɫ ޥ L>L( HɰɫЉơ$v# \ۦuv $ W (Lb-逐@ HHLLF:L8gh}~`Ƀ` Sբ$Lׅ ׅLԱJHȱJh`LNפ0`L,׈L20`LF׈LL ׅJF8ȹe8ИL`Lø{{ttmnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# !H ֥ h ߦ>  E֥ E & > ` E  E  H ֥ h ֥  ֥ -L L -EF# =Pi  ֤Lְ ׅ! ׅ  / ) ) "&6 B /`TLՆ8M˕  Tբ , Tզ`  . $ ; E.. 4L& >`Lk 34 Lh856!;<79)F:&8J9j*0v 婭   +<; LhLk'cg=%;!,<+k,w(gG gG]$ t < N8i| (|`ܠLդ4ɪ 4<`<  $ H h .Ю#` L}Э%J u ӊH Өh dѮ#` L Q ;Ү#` Q Ү#`#2 Ӎ'( H() 91 eȱm)h`JJ`#JȱJLh `#  <(eΨ=)eϰ%Hh>?iJK̅  #& ')*& "'JJ) ""% m% ʥ0)J!m%! `JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ`JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ` ӥ',"&,i8i#H&ii&hif&i'`'i,&i,.&iPII&&if&H !"hH8 H!S hIiHSQUhPTh !"IiR"fS8PQ% 8TeRTUU&E%0Q&&kS TePTUeQPفŴxaI1( &WSP& )`" !H)&JJ&&h' &' &' f&') &'#i%Ѕ0J$)` .ХQ&%0Q&&`$0JI0`'0% I`0 I0ܩ(ߠQ)'%01&*%0Q)&E%0*Q&&QeS)j00                             ààH /Ѽdd`dЅ deԄ8ҍӍd`D}Tߥ҅ީd LԦ}dҍ` ǠҠÍǠԠÍϠٮɆ0&⽌D}T L֠ $Ȅф(0PLddLԩՠԑihL* ۄکڍ ȱڍ `D`ߠ h  *L`,0,0I,0`d hhLd t Ld L di#Ld)ʽdʽdȄф L Pd0G  @dd0 RHDThЮ$0lp  :DL DLld 4ILILHUЍ`(S(L Lީߩ$, Lީߩ$hL  % "  hH ބ ބߩdҩ Ȍ   B(20((A$)2)):B0B1, B:A$:-  :D$(4): CTRL-D92:A$"APPLE II":1000j(4:A$"DOS VERSION 3.3 SYSTEM MASTER":100027:A$"JANUARY 1, 1983":1000<D$;"BLOAD LOADER.OBJ0"F4096: FAST LOAD IN INTEGER BASICd(4);"RUNA-D HELLO" CENTER STRING A$   `p``΍       Ӎ        ٍ             ٍ      ٍ         ٍ       ٍ ٍ        ٍ ٍ      ٍ          ٍ         ō          ٍ ō         ΍      ō              ΍     ΍  ΍      ΍     Ӎ       ٍ                     ٍ         ̍΍Íōٍٍ΍ԍٍٍ  LLLL`ª`LQLY PL  ;   `    ` `G P E O12:SF0TT1SSS1'TT2SFS2-z.......................................................................pTHIS PROGRAMS ALLOWS YOU TO COPY A RANGE OF SECTORS FROM ONE DISK TO ANOTHER. `JND".  2,181,183 96,0,03 1,96,1,0,0,0,80,31,0,32N 0,0,1,0,0,96,1,0,0,0l 0,0,0,1,239,216,0,0,0,0~...SUBROUTINE TO SET PROPER RANGE FOR READING AND WRITING SECTORSUP15050SS0:SF12TT1SSS1TT2SFS2SS............................................................O 7936=$1F00l $1F00 234 NOP ... NOP 169 LDA # 31 $1F 160 LDY 169,31,160,58 32AST2: PREVIOUS DRIVE #`RJ:...............................................................\"***************************************"T:..............................................................: "END"<T ...........#IOB5,J: SECTOR #7IOB12,2: WRITE COMMANDIIOB9,BUFFEReIOB13,0: ERROR CODEIOB16,LAST: PREV. DRIVE 8064: $1F80ET(7959)ET(IOB13)"WRITING ";T;" ";J;" ";ET4BUFFERBUFFER1>L.......6"***************************************"Y.............................................................WRITING.................................BUFFER32JSSSFUPIOB2,2: DRIVE 2IOB4,T: TRACK EADIOB13,0: ERROR CODE?&IOB16,LAST: PREV. DRIVESD7936: $1F00dIET(IOB13)R"READING ";T;" ";J;" ";ETlBUFFERBUFFER1vLAST1: PREVIOUS DRIVE #J:........................................................*************************************"fBUFFER32: HIGH-ORDER BYTE OF DATA BUFFER STARTING ADDRESSvJSSSFUP|IOB2,1: DRIVE 1IOB4,T: TRACK #IOB5,J: SECTOR # IOB9,BUFFERIOB12,1: COMMAND...R200: RETURN KEY "936: 'LAST1: PREVIOUS DRIVE #Q *T2T1TST1:TFT2a ,TTSTFUPg 4 5.......START.......... h4990:...SET SECTOR START...STOP ................................READING.................................&"**R ";T2,S2 T20T2351652 S20S212165; UP1Y T1T2UP1: COUNT DOWNp T1T2S1S2UP1 TST1:TFT2 UP1TST2:TFT1 ::"HIT ";:50,127:"RETURN";:50,255:" TO START COPYING " A(16384):A128200 A141STER IN DRIVE ";:50,127:"1":50,255- :e " COPY IN DRIVE ";:50,127:"2":50,255m 35y ::: "(USE DECIMAL)": "ENTER TRACK,SECTOR ";T1,S1 T10T135155 S10S112155 : "ENTER TRACK,SECTO47 +(RW1I),234: NOP0 .(RI),234: NOP7 0ID 2I4887K 5JZ 9(RW1I),Jg :(RI),Jn <It A F......................................................................... d936::: x" INSERT " }:% " MA....................................M !.......POKE IOB AND CALLING PROGRAMq ".......BOTH USE SAME IOB TABLE #....POKE IOB AND CALLING PROGRAM $ $1F00 7936 % $1F80 8064 &IOB7994: $1F3A 'RW17936:R8064 (I0 ***********************;** TWO DRIVE COPY **X** BY **u** TOM O'BRIEN **** GREEN APPLES **** NORTH CENTRAL IOWA************************* 100$ .....................................     -uTHE AUTHOR OF THIS PROGRAM WOULD VERY MUCH LIKETO RECEIVE A COPY OF ALL CORRECTIONS OR MODIFICATIONSMADE-uSEND TO ADDRESS AT START OF LISTING. THANK YOU-u[][][][][][][][][][][]-PÀRE USE..,{uCOMMAND 4 -- FOR FUTURE USE.U,|uCOMMAND 5 -- FOR FUTURE USE.|,}uCOMMAND 6 -- FOR FUTURE USE.,~uCOMMAND 7 -- RETURN TOORIGINAL COMMANDS.,uCOMMAND 8 -- THIS EXITS YOU FROM THE PROGRAM.,u[][][][][][][][][][][]r YOU A SECOND MENU OF COMMANDS - SEE THE FOLLOWINGx+xuCOMMAND 1 -- THIS WILL ALLOW YOU TO DISASEMBLE THE BUFFER AREA.+yuCOMMAND 2 -- THIS WILLREAD IN THE DESIGNATED SECTOR AND VERIFY IT WITH THE PREVIOUS BUFFER.,zuCOMMAND 3 -- FOR FUTU NEXT TRACK AND SECTOR.*luCOMMAND 7 -- THIS ALLOWS YOU TO MODIFY THE BUFFER. FOLLOW THE INSTRUCTIONS. YOU MAY USE RIGHT AND LEFT ARROWS.*vuTHE ESCAPE KEY WILL SWITCH YOU TO THE ALTERNATE DUMP MODE.3+wuCOMMAND 8 -- THIS GIVESOWN ON SCREEN.)NuCOMMAND 4 -- THIS WRITES BUFFER AREA TO TRACK AND SECTOR SHOWN ON THE SCREEN. YOU MUST PUSH 4 TWICE.)XuCOMMAND 5 -- THIS ALLOWS YOU TO CHANGE THE TRACK AND SECTOR.*buCOMMAND 6 -- THIS WILL READ TO THE BUFFER THENF$"H"İ12000#(NF$"A"İ13000-(N2000s(0uCOMMAND 1 -- THIS DUMPS BUFFER AREA TO SCREEN IN HEX FORMAT.(:uCOMMAND 2 -- THIS DUMPS BUFFER AREA TO SCREEN IN ASCII FORMAT.)DuCOMMAND 3 -- THIS READS TO BUFFER THE TRACK AND SECTOR SHBAD SUBSCRIPT ERROR.">'N(222)163ĺ:"TYPE MISMATCH ERROR"z'N(222)254ĺ:"BAD RESPONSE TO INPUT STATEMENT ERROR."'N(222)255ĺ:"CTRL C INTERRUPT ATTEMPTED."'N222,0'N::"DO YOU WANT TO CONTINUE?";:E$'NE$"Y"50000'N11000(G WRITTEN ON IT, THEN A READ ERROR WILL RESULT, BECAUSE THERE IS NOTHING TO READ."_&pNERR,0&zN(222)16ĺ:"SYNTAX ERROR--ALLSO SONETIMES CONT. C OR WRONG TYPE AS RESPONCE TO INPUT."&N(222)53ĺ:"ILLEGAL QUANTITY ERROR."'N(222)107ĺ:"RS ON 13 SECTOR DOS."%\N(ERR)128ĺ:"READ ERROR. THE RWTS ROUTINE WAS, AFTER48 REPEATED ATTEMPTS, UNABLE TO READ EITHER THE ADDRESS FIELD OR THE DATA FIELD. IF THE DATA FIELD FOR THE "T&fN(ERR)128ĺ:"SPECIFIED SECTOR HAS NEVER HAD ANYTHINDIFFER-ENT THAN THE VOLUME SPECIFIED IN BYTE 4."$HN(ERR)32ĺ"THE VOLUMN FOUND WAS ";(VOLUMN);".":"THE EXPECTED VOLUMN WAS ";(RWTS13);"."%RN(ERR)64ĺ:"DRIVE ERROR. SOMETHING UNUSUAL IS HAPPENING. THIS ERROR CAN BE CAUSED BY EMPTY SECTO#B10:1:"7 MOD "*#B11:1:"8 MORE"4#B2000R# N ERROR HANDLING ROUTINESX#*N#4N(ERR)16ĺ:"DISKETTE IS WRITE-PROTECTED AND CANNOT BE WRITTEN TO."0$>N(ERR)32ĺ:" VOLUME MISMATCH ERROR. THE VOLUME NUMBER OF THE DISKETTE FOUND WAS FICATION COMPLETE ":15120K";22:10:VF;" DIFFERENCES DETECTED "`";""k";11400"hB FIRST LIST OF COMMANDS"mB4:1:"1 HEX ""rB5:1:"2 ASC ""|B6:1:"3 READ""B7:1:"4 SAVE""B8:1:"5 NEW "#B9:1:"6 NEXT"256!:RWTS19,(BUFFER256)8!:216,0:COMND,1:RWTSD!:20000|!:BUFFERBUFFER256:RWTS18,BUFFER(BUFFER256)256!:RWTS19,(BUFFER256)!:VF0!:X0255!:(BUFFERX)(BUFFER256X)15080!:VFVF1!:X":VF0Ģ22:10:"VERI,0:59,64 6418D 6::"PRESS M FOR MENU - ANY OTHER TO CONT."\ 6CT$:CT$"M"14100p 6(59)6414010{ 614030 711000 7F$"H"İ12000 (7F$"A"İ13000 2711300 : VERIFY SECTOR!:BUFFERBUFFER256:RWTS18,BUFFER(BUFFER256)DN):DN1DN82000K,DN14000,15000,11400,11400,11400,11400,17000,50000a. HEX SCREEN DUMP{.1:18:" HEX DUMP ".HEX.F$"H"/2 ASC II DUMP21:18:"ASC II DUMP"2ASSII2F$"A"26 DISASSEMBLE BUFFER 6:58DRAW MORE COMMANDS&B,4:1:"1 DASM":L,5:1:"2 VERI"NV,6:1:"3 "b`,7:1:"4 "vj,8:1:"5 "t,9:1:"6 "~,10:1:"7 MORE",11:1:"8 STOP",22:10:"ENTER COMMAND NUMBER-- ",22:32:DN:DN,DN(z #Xı  ͺŠؠΠàүȠŠҠŠׯƠɠĠ կӠӠ ǠԠ ԮĠ̠נũ Ϡ Үʰ à*٠Ҡ կҮɮԮ կΠŠ կΠԠ կͧӠȠҠ!կͧӠˠҠ'կϠŠ٠կà ůΠӠ" ǯΠ ǯРΠנǯȭŠ կΠŠӠ կҮɮԮկҮɮԮĠϠՠ¯ˠΠҠ6 ůůȠ̠ůǠԠů͠SSION = $30.00"$' CO0:CC30:16304' OL0ī3510A' COCOOLQ' NR0ī3520b' CCCCNR100r' CCCC.0099' COCO.0099' CC(CC100)100' CO(CO100)100' PAPRNS' PA5000COCO1.06' PA5000COCO1.04( PA5000CCCC10Z0&\ CCCC2Z &a ZCCNR/&f Z65Z65;&k CCZNRS&p PA5000CCCC1.15k&u PA5000CCCC1.1z&z CCCCCC& & ALLOCATE ROUTINE& CCCC1.08& COCO1.08& CCCC1.5& NR0COCO1.5& COCC30ī3500' "MINIMUM COMMIA5000CC1.15%% PA5000CC1.16%% PAPRNR100M%* PA5000CC1.15b%/ PA5000CC1.1m%4 CCNR%9 PA30000CCPA.004142%> PA30000CCPA.00682%C PA20000CCPA.00922%H PA2500CCPA.01312%M CCCC6NR%R ZNR10&W ZSION $ $ 1$ SINGLE LOT/ODD LOT ROUTINEL$ PA2500CPA.00922f$ PA2500CPA.01312$ PA800CPA.026.4$ C65C65$ PA5000CC1.15$ PA5000CC1.1$ $ MULTIPLE ROUND LOT ROUTINE$ PAPR100$ 3300% P0 #v 3280#{ 3340# 3460)# 3280C# MULT LOTS + ODD LOTP# PAPROLZ# 3300c# COCm# 3340z# CXCCCO# NRNR1# 3340# NRNR1# CYCCCX# CCCXCO# CY0COCOCY# 3460# 3280# $ CC=FINAL STOCK COMMIS10" PANSPR" 3300"" COC," 34606" 3280C" PANSPRM"! 3300V"& CCC`"+ 3460j"0 3280w"5 PAOLPR": 3300"? COC"D PA100PR"I 3300"N CXCCO"S NR2"X 3340"] NR1"b CYCCCX"g CCCXCO"l CY0COCOCY#q 346R SHARE: ";PRG! NSPR100ĺ"10% COMMISSION = $";(NSPR10.5)100:O! J0a! MAP ROUTINEr! NR(NS100)! OLNSNR100! OL0NR0J1! OL0NR1J2! OL0NR1J3! OL0NR1J4! OL0NR1J5" J3075,3100,3125,3195,32LUNT ELLIS & LOEWI, INC. STOCK COMMIS- SION PROGRAM. ADAPTED FOR THE APPLE BY DAVID G. SPARKS 1980." INPUT ROUTINE "NUMBER OF SHARES: ";NS ! INPUT "PRICE PE:1460A4"ERROR NUMBER ";ER:"AT LINE # ";EN::D$;"CLOSE ";F$G>mH:"FILE NOT FOUND"::F$"":6990R"VOLUME MISMATCH"\"I/O ERROR"f"DISK FULL"p"FILE LOCKED"z"SYNTAX ERROR"2100 ..................... "BR10ī2100IER2020,2054,2040,2060,2070,2120,2130,2140,2150,2160,2170QERo"LANGUAGE NOT AVAILABLE""RANGE ERROR""RANGE ERROR" "WRITE PROTECTED""END OF DATA":RN$"END"2090 RN$;" ...IS NOT IN THIS FILE"*I12:I65 DAYS > ";A((A(14)A(4)100)365A(10));"%";4);:M"RECALL ANOTHER?";gA$:(A$,1)"Y"1470wA$R$5000}5000D$;"CLOSE ";F$ ...................... ERROR SUBROUTINE EN(218)(219)256:ER(222):E7):33);A(1)A(11)A(12)3(18):31);" -";A(4)f(19):10);"ADD. APPRECIATION";34);A(A(13))(21):10);"TOTAL ";34);A(A(14))(23):5);"NET RETURN ";::A(15);::" % FOR ";A(10);" DAYS"55);A((A(8)A(4)100)365A(10));" % < 3(17),r(12):15);"DIVIDENDS ";A(7)e|(14):15);"TOTAL ";A(7)(A(6)A(1)A(17))(15):5):"NET RETURN ";::A(9);" %";::" FOR ";A(10);" DAYS "(16):"IF ";NAME$;" CALLED @ ";A(11);" ";A(11)A(1);" -";A(12);" = "(1S$,3,2))"@DL5DD((S$,2,2))?J(7):"SELL------ CALL"T" ";MN$;" ";A(11);" @";A(6);" ";A(1)A(6);" -";A(17);" = ";A(1)A(6)A(17)Y" EXP. ";MN$;" ";DD^10:"IF ";NAME$;" STAYS AT ";A(16)h(10):15):"OPTION INCOME ";A(6)A(1)ABEGINNMNG OF THE STOCK REVIEW PORTION 3D$:ZZ4<:2^10);"DATE OF WRITE$ ";A(2)"(3):"BUY------- ";NAME$;30);"COST",(4):A(1);2);NAMES$;" @ ";A(16);3);A(16)A(1);" +";A(3);" =";::A(4):6S$(A(5)):DL(S$):DL6DD((]ZZ1ZZ2::"LIST OF STOCKS ON FILE":"------------------------------":V1K:Z$(V):VeK0:D$(4):"NAME OF STOCK TO BE REVIEWED; ";:RN$RN$""5000:"LINE 806"ZZ31320 *************************& THIS IS THE 07'PA5000CC1.15-7'PA5000CC1.1>7'PAPRNR100U7'PA5000CC1.15j7'PA5000CC1.1u7'CCNR7'PA30000CCPA.0041427'PA30000CCPA.006827(PA20000CCPA.009227 (PA2500CCPA.013127(CCCC6NR8(ZNR10 - OC6.' 68'86B' SINGLE LOT/ODD LOT ROUTINES6L'PA2500CPA.00922m6V'PA2500CPA.013126`'PA800CPA.026.46j'C65C656t'PA5000CC1.156~'PA5000CC1.16'6' MULTIPLE ROUND LOT ROUTINE6'PAPR1007'100501305&CXCCCO5&NRNR1(5&1013045&NRNR1A5&CYCCCXN5&CCCXCO_5&COCYCOCYj5&10370t5&9980z5&5' "OPTION COMMISSION = ";OC5'5' : PRINT "PURCHASE = $";NO * OP * 100 + OC6$' : PRINT " SALE = $";NO * OP * 10PAOLPR4%100504%COC*4%PA100PR54%10050A4%CXCCOJ4&NR2U4 &10130^4&NR1k4 &CYCCCXx4*&CCCXCO44&COCXCOCX4>&103704H&99804R&101304\&103704f&99804p& MULT LOTS + ODD LOT4z&PAPROL4&100504&COC5&1SUBROUTINE3%OL0NR0J103&%OL0NR1J2C30%OL0NR1J3V3:%OL0NR1J4i3D%OL0NR1J53N%J9570,9620,9670,9810,98403X%3b%PANSPR3l%100503v%COC3%103703%99803%PANSPR3%100503%CCC3%103703%99804%762$NO5OC67.6.2$NO5OP1.75OC62.4J2$NO5OP1.3125OC57.2]2$NO6OC81.12x2$NO6OP1.75OC74.882$NO6OP1.375OC68.642$NO7OC94.642$NO7OP1.8125OC87.362$NO7OP1.375OC80.082%9990 3% ASSIGN ROUTINE 81J$NO2OP1.75OC31.2.1T$NO3OC48.67H1^$NO3OP2.5OC45.43e1h$NO3OP1.9375OC43.681r$NO3OP1.9375OC40.561|$NO3OP1.1875OC37.441$NO4OC56.241$NO4OP2OC54.081$NO4OP1.75OC49.922$NO4OP1.3125OC45.(CC100.5)1000#OCCC#0#9990;0#NO4OP2OC54.08K0#NO1OC25f0$NO1OP2OP4OC300$NO2OP1.75OC33.280$NO2OC38.940"$NO2OP3.3125OC36.770,$NO2OP2.5625OC34.6106$NO2OP2.3125OC301@$NO2OP2OC33.25OP.4375OC716OP(NO1)4I/#OP.375OP.625OC716OP(NO1)5.5p/#OP.5625OP1OC716OP(NO1)7/#OC0ī9990/# ABOVE LINE QUITS WHILE AHEAD/#PROP:NRNO:PANRPR100/#PA800ī9210/#9490/#OP2CCCC1.040#OP2CC................. ,.(# OPTION COMMISSIONSL.2# "NUMBER OF OPTIONS ";NOb.<# "PREMIUM ";OPy.F# FIND OPTION COMM.P#OP.0625NO1OC2.5.Z#OP.0625NO1OC82.5(NO1).d#OP.125OC92.5(NO1).n#OP.1875OC102.5(NO1)/x#OP.1877LOSE ";F$-5-@ >>> .....CREATE NEW FILE ..... ;-EZ-F::"CLOSE ";F$;" FILE":p-G:D$;"CLOSE ";F$-H:D$;"LOCK ";F$-J:"NAME OF NEW FILE";:F$-TF$""ĺD$;"CATALOG":8010-^D$;"OPEN ";F$-hD$;"CLOSE ";F$-r5000.'# .....CK ";F$X,b"NAME OF FILE TO USE":" RETURN FOR CATALOG":" 'NEW' FOR NEW FILE"m,g" ";F$,lF$""ĺD$;"CATALOG ":7010,nF$"NEW"ġ:8010,p,q"OPENING ";F$;" FILE",r,tD$;"UNLOCK ";F$,vD$;"OPEN ";F$ -D$;"C0:J:5000+zD$;"UNLOCK ";F$2+D$;"OPEN ";F$G+D$;"DELETE ";F$Z+D$;"OPEN ";F$b+D$l+5000v+N7000+S5000+W ..................... +X ......INPUT FILE NAME --F$,]F$""ĺ:D$;"CLOSE ";F$::"CLOSING ";F$;" FILE"::D$;"LO:"# OF YOUR CHOICE?";:A$:J((A$,1))R*J200,1470,1450,6000,6990,8000,5995\*5000*k10);::"LOCKING ";F$;" FILE";:*o:D$;"CLOSE ";F$:D$;"LOCK ";F$:*p:"DELETE ";F$;" FILE";:A$:(A$,1)"Y"6010 +q:"FILE NOT DELETED":J145"SELECT OPTION"/):5);"1 WRITE OPTION"N):5);"2 RECALL OPTION"w):5);"3 LIST OF OPTIONS ON FILE"):5);"4 DELETE FILE ENTRIES"):5);"5 INPUT NEW FILE "):5);"6 CREATE NEW FILE"):5);"7 EXIT PROGRAM")*.06( PA5000CCCC1.04*( CCCC1.049( COCO1.04F( COCOOLW( CO89CO89e(CCCC100v(CC89CC89( CCCCNR(CC(CC100.5)100(CO(CO100.5)100(( ........................ ( SELECT OPTIONS ()XA:F11 2465 -( INPUT EQUATIONE2 F10:F20:F30:F40< :"THIS PORTION OF THE PROGRAM ALLOWS YOU TO ENTER THE EQUATION OF A STRAIGHT LINE"F "IS THE LINE PARALEL TO THE Y AXIS?"P R$Z (R$,1)"Y"2700d F31i :"INPUT ,7,11,13,17,19,23,29,31,37,41,43,47,53,59,61,67,71,73,79,83 89,97,101,103,107,109,113,127,131,137,139,149,151,157,163,167 173,179,181,191,193,197,199 A:A1992510 AMYAMX2510 MYA(MYA)MXA(MXA)2460 MYMYA:MXMES ARE LIMITED TO SAVE TIME.^b THEREFORE LOWEST COMON DENOMINATOR MAY NOT ALLWAYS BE FOUNDre MX0MY0F11j MYMX02430t MY(MY)(1):MX(MX)y 2435~ MY(MY):MX(MX) MYMX(MYMX)2450 F21:F11  ; 2,3,5COORDINATES GIVEN")3 S$"+ ":B0S$""84 F202370`8 :10);"Y = ";MYMX;" X ";S$;" ";Bj= 2380B :10);"Y = ";MY;"/";MX;" X ";S$;" ";BL :"PRESS ANY KEY TO CONTINUE"Q R$V ` FIND LOWEST COMON DENOMINATORa NUMBER OF PRIM2400 F102300% F2022900 4:15G " = ";MYMX:2300R 4:15g " = ";MY;"/";MX~ "B = Y INTERCEPT"  "SUBSTITUTE TO SOLVE FOR B"  "B = Y - M X = Y1 - M X1"  MGMYMX  BY1MGX1 $ "B = ";B. :"EQUATION FOR TE SLOPE FLAG F31 23808 15);"Y = M X + B"] "M = SLOPE = (Y2-Y1) / (X2-X1)"s MYY2Y1:MXX2X1 "M = ";MY;"/";MX F10:F20  F1 IS CHANGE IN MY OR MX FLAG  F2 IS WHOLE NUMBER FLAG  FIND LOWEST COMON DENOMINATOR )  DEVELOPE EQUATION FROM COORDINATESc :"(";X1;",";Y1;")";28);"(";X2;",";Y2;")":F30:F40t X1X22220 :"THESE COORDINATES CAN NOT BE DEFINED BY Y = M X + B. THE EQUATION FOR THIS LINE IS:" :" X = ";X1  F3 IS INFINA21 " ENTER Y1 ";Y18 15);"(";X1;",";Y1;")"? 8d "SECOND COORDINATES (X2,Y2)"} " ENTER X2 ";X2 9:21 " ENTER Y2 ";Y2 X1X2Y1Y22046 15);"(";X2;",";Y2;")" %A11000 *DA /A 02200 423 S$"+ " (5000>  INPUT TWO SETS OF COORDINATES :"THIS PORTION OF THE PROGRAM GENERATES A STRAIGHT LINE EQUATION FROM TWO SETS":"OF COORDINATES SUPPLYED BY YOU." :"FIRST COORDINATES (X1,Y1)" " ENTER X1 ";X1 6:***********************;** ALGEBRA 1 **X** BY **u** TOM JACOBSEN **** THE GREEN APPLES **** CEDAR FALLS IOWA *************************F10:F20:F30:F40 MY2:MX3:B24:S100:MG      TH SO THE LENGTH OF THE WRITE MAY BE OFF A DAY OR TWO."=<.<." IF AT ANY TIME YOU WANT TO RETURN TO THE MAIN MENU DURING THE PROGRAM; JUST HIT A WHEN INPUT IS ASKED FOR.";</A$</]A CALL ON IT.";.;." IT WILL ALSO FIGURE YOUR COMMISSION COSTS FOR YOUR STOCK AND OPTIONS INTO YOUR RATE OF RETURN.";.7<." A MAXIMUM OF 50 OPTION WRITES CAN BE STORED IN ONE FILE. THE NO. OF DAYS OF A WRITE IS FIGURED ON A 30 DAY MON.04:J)COCO1.04:T)COCOOL0:^)CO89CO89>:h)CCCC100O:r)CC89CC89\:|)CCCCNRt:)CC(CC100.5)100:)CO(CO100.5)100:);.:5:" THIS PROGRAM IS DESIGNED TO SHOW YOU THE POSSIBLE RATE OF RETURN IF YOU BUY A STOCK AND WRITE OL0ī104509(COCOOL*9(NR0ī10470;9(CCCCNR100K9(CCCC.0099[9(COCO.0099p9(CC(CC100)1009)CO(CO100)1009)PAPRNS9)PA5000COCO1.069")PA5000COCO1.049,)PA5000CCCC1.0696)PA5000CCCC1.04:@)CCCC108((Z0Z082(CCCC2Z(8<(ZCCNR78F(Z65Z65C8P(CCZNR[8Z(PA5000CCCC1.15s8d(PA5000CCCC1.18n(CCCCCC8x(8( ALLOCATE ROUTINE8(CCCC1.088(COCO1.088(CCCC1.58(NR0COCO1.58(COCC30CO0:CC30: 9(% 16:11:" 00000 "I 17:11:" 0 0 "m 18:11:" 0 0 " 19:11:" 0 0 " 20:11:" 0 0 " 21:11:" 0 0 " 22:11:" 00000 " T12000,2010,2020,2030,2040,2050,2060,2070,2080,2090,2100,2110,2120,2130,2140,2150] #X1l (T01400v )TT1 -1030 xT0:SC(U)SC(U)T:2210 }(7) 1999 AAR1400 TT1 SC(U)SC(U)T:1:(7):(7) (7):(7) y d6000!T15:C0:AR0:X0/16368,0>T01999NX401300^R(16384)nR1271110xBXX1L1030V16368,0ZR1411500[R176R1851090`RR176e11:27C:Rj(7)oARAR10R:CC1t1090U           H"10);"5 STOP"4:12:"ENTER NUMBER ";AFA1A55050XA(A)5050yA6000,2000,2600,2900,200005050p DEMO VALUESuF10:F20:F30:F40vS$"+ "zMY2:MX3:B24:S100:MG232900 NEBRA PROGRAM NUMBER 1"-14)"Y = M X + B"\:" THOMAS JACOBSEN 8-26-79"jA12000rDAyA:718);"MENU":10);"1 DEMO"10);"2 INPUT COORDINATES"10);"3 INPUT EQUATION"10);"4 PLOT GRAP(16384) 16368,0(* A1273260/4 09> 3320n CHANGE X Y COORDINATES TO HIGH RES COORDINATESX(F51)((XGS70).5)150Y(F51)(1)((YGS70).5)70F5F51 MENU AND MAIN CONTROL PROGRAM:108);"ALG, MG.05MG.05BS50B(1)S503300T "PRESS ANY KEY TO CONTINUE ";:R$^ :: FLASH LINE IF IT LIES ON AXIS "PRESS ANY KEY TO CONTINUE" X(1),Y(1)X(2),Y(2) D1100: 3 X(1),Y(1)X(2),Y(2) D1100:  A0 F513224 YGS* XG(YGB)MGA XG0XGSİ4000P F513224^ YG(1)So XG(YGB)MG XG0XGSİ4000 PLOT LINE X(1),Y(1)X(2),Y(2) F31X1(1)S35X1S353300 MG20F313300 MG20F313300 F50g XG(1)S"l YGMGXGB>q YG(1)SYGSİ4000Mr F503202Vs YGSgv XG(YGB)MGx XG(1)SXG0İ4000z F503202| YG(1)S~ XG(YGB)MG XG(1)SXG0İ4000 XGS YGMGXGB YG(1)SYGSİ400X ";S$;B 3150" F213120/! MGMYMXW& "EQUATION Y = ";MYMX;" X ";S$;Ba+ 3150n0 MGMYMX5 "EQUATION Y = ";MY;"/";MX;" X ";S$;BN PLOT LINES F313170U F50X XGX1:YGS:4000Z XGX1:YG(1)S:4000] 3250b103045 BGBG10 SS10) 30203 :21Z "EACH DIVISION = ";S10;" UNITS." PRINT EQUATION AND SET UP FOR POLTTING LINE F313080 "EQUATION X = ";X1 3150 F413100 MGMY "EQUATION Y = ";MY;" | 148,A152,A& 80A,6880A,72, J 127,7131,7:129,5129,9o 133,4136,7139,4:136,7136,10 232,70236,70:234,68234,72 238,67244,73:238,73244,67 DESIDE MAGNITUDE OF GRAPH BG(B):S10 F31BG(X1) BG Y = "; F412810* MY;" X ";S$;B4 2850C F212840] MY;"/";MX;" X ";S$;Bg 2850} MYMX;" X ";S$;B" :"PRESS ANY KEY TO CONTINUE"' R$, T DRAW GRAPH^ c 3h 150,0150,140m 80,70220,70r A01407 2 FRACTION" F4$ F4127503 F422760? :2720U "ENTER M ";MY_ 2770y "CHANGE IN Y ";MY "CHANGE IN X ";MX F10:F20:2400 :"B = Y INTERCEPT" "ENTER B ";B S$"+ ":B0S$"" :"EQUATION X INTERCEPT ";n X15x :"EQUATION X = ";X1[} :"PUSH ANY KEY TO CONTINUE ";c R$i  :"EQUATION FORMAT IS Y = M X + B" "M = SLOPE = CHANGE IN Y / CHANGE IN X" "HOW DO YOU WANT TO ENTER M?"  " 1 DECIMAL":" 11:" 111111 55555 "!mEp16:11:" GGG OOO "iq17:11:" G G O O "r18:11:" G O O "s19:11:" G O O "t20:11:" G GGG O O "u21:11:" G G O O "v21:" 111111 4 "cCf16:11:" 11 5555555 "gg17:11:" 111 5 "h18:11:" 11 5 "i19:11:" 11 555555 "j20:11:" 11 5 "k21:11:" 11 5 5 "l22:" 111111 33333 "YA\16:11:" 11 4 "e]17:11:" 111 4 4 "^18:11:" 11 4 4 "_19:11:" 11 4444444 "`20:11:" 11 4 "a21:11:" 11 4 "b22:1 111111 2222222 "O?R16:11:" 11 33333 "cS17:11:" 111 3 3 "T18:11:" 11 3 "U19:11:" 11 33 "V20:11:" 11 3 "W21:11:" 11 3 3 "X22:11:111111 111111 "E=H16:11:" 11 22222 "aI17:11:" 111 2 2 "J18:11:" 11 2 "K19:11:" 11 222 "L20:11:" 11 2 "M21:11:" 11 2 "N22:11:"1111 00000 ";;>16:11:" 11 11 "_?17:11:" 111 111 "@18:11:" 11 11 "A19:11:" 11 11 "B20:11:" 11 11 "C21:11:" 11 11 "D22:11:" 9 "19416:11:" 11 00000 "]517:11:" 111 0 0 "618:11:" 11 0 0 "719:11:" 11 0 0 "820:11:" 11 0 0 "921:11:" 11 0 0 ":22:11:" 118888 "'7*16:11:" 999999 "[+17:11:" 9 9 ",18:11:" 9 9 "-19:11:" 999999 ".20:11:" 9 "/21:11:" 9 "022:11:" "5 16:11:" 88888 "Y!17:11:" 8 8 "}"18:11:" 8 8 "#19:11:" 88888 "$20:11:" 8 8 "%21:11:" 8 8 " &22:11:" 8 "316:11:" 7777777 "W17:11:" 7 "{18:11:" 7 "19:11:" 7 "20:11:" 7 "21:11:" 7 " 22:11:" 7 "  1 16:11:" 66666 "U 17:11:" 6 6 "y18:11:" 6 "19:11:" 666666 "20:11:" 6 6 "21:11:" 6 6 " 22:11:" 66666 " /16:11:" 5555555 "S17:11:" 5 "w18:11:" 5 "19:11:" 555555 "20:11:" 5 "21:11:" 5 5 "22:11:" 55555 " -16:11:" 4 "Q17:11:" 4 4 "u18:11:" 4 4 "19:11:" 4444444 "20:11:" 4 "21:11:" 4 "22:11:" 4 " + 16:11:" 33333 "O 17:11:" 3 3 "s 18:11:" 3 " 19:11:" 33 " 20:11:" 3 " 21:11:" 3 3 "22:11:" 33333  ) 16:11:" 22222 "M 17:11:" 2 2 "q 18:11:" 2 " 19:11:" 222 " 20:11:" 2 " 21:11:" 2 " 22:11:" 2222222 ' 16:11:" 11 "K 17:11:" 111 "o 18:11:" 11 " 19:11:" 11 " 20:11:" 11 " 21:11:" 11 " 22:11:" 111111 " gD$;"CLOSE SPELLING LIST"= hD$;"LOCK SPELLING LIST":1_ i(A$)0Ģ(37)2:958:100m nNUM(A$) s:"ENTER WORD: ";W$(NUM) xD$;"WRITE SPELLING LIST,R";NUM }W$(NUM) NUMNUM1:80 D$;"OPEN SPELLING LIST,L20":NUM0"NUMNU0" PNUMNUM1:NLNL1; RD$;"READ SPELLING LIST,R";NUMH UW$(NUM)b WW$(NUM)""NL20:95 ZD$:5)NUM;". ";W$(NUM) _NL20NL0:D$::"IF YOU WANT TO MAKE A CORRECTION, ENTER # OF WORD,OTHERWISE PRESS RETURN: ";A$:105 dW$(NUM)""8035,22% #D$;"DELETE SPELLING LIST"F (D$;"OPEN SPELLING LIST,L20"o -NUMNUM1:D$:5)NUM;". ";:W$(NUM) 2D$;"WRITE SPELLING LIST,R";NUM 7W$(NUM) <W$(NUM)""45 F LIST SPELLING WORDS HNL0:NUM0:: KD$;"OPEN SPELLING LIST,L2 D$;"UNLOCK SPELLING LIST"> OPN370: CORRECT WORDS !:"** SPELLING LIST IS ABOUT TO BE DELETED."::10)"PRESS ESC TO AVOID.":A$:(A$)271 "::"ENTER YOUR WORD AFTER THE ?":I(37):24:"PRESS RETURN AFTER ? TO END INPUT. ";:I1::ND CORRECT WORDS") 5)"4. PRINT LIST"C 5)"5. INSTRUCTIONS"m 5)"6. STOP"::"INPUT OPTION? ";OPN D$(4):D$;"OPEN SPELLING LIST,L20" OPN1140 OPN4140: PRINT SPELLING LIST OPN5ė:600: INSTRUCTIONS OPN6ĺ(7): "W$(100),R(100),I(100):NUM0=:13)"SPELLING TEST"h:10)"BY RICHARD A. MICHAEL 1980  **THE GREEN APPLES** **CEDAR FALLS IOWA** :"OPTIONS:"5)"1. TAKE SPELLING TEST"5)"2. ENTER NEW WORDS" 5)"3. LIST A     #J ** BY **6#T ** TOM JACOBSEN **Q#^ **THE GREEN APPLES**l#h **CEDAR FALLS IOWA**r# Nx#%NHOW MANY PROBLEMS IN THIS COMPETITION?"/"vNPH"{NP1NP(NP)7045R"7020X"d"X1NS"1:"NAME OF STUDENT # ";X"11X:S$(X)"S$(X)S$(X)" ""S$(X)(S$(X),24)""3000#@ **TOM'S MATH DRILL**="!!p*!uS$(5),S(5),SC(5),ST(5)5!zX15Z!S$(X)" "u!S(X)2:SC(X)0:ST(X)0{!!U1:P1!X!\12:"HOW MANY STUDENTS WILL COMPETE?(1TO5)"!]NS!bNS1NS5NS(NS)7020!g7000!l'"q12:"5230,5240,5250 ZP310" _5260, dP3506 i5260A nP3100K s5260V xP3200` }5260l P31000 P1((1)(P31)) P2((1)(P11)) AP1P2 11:" "!11:11:P1;16);"-";19);P2;24);"5060P3505060$P3100.50609P3200C5060OP31000eP1((1)(P31)){P2((1)(P31))AP1P211:" "11:11:P1;16);"+";19);P2;24);"=" PS(U)5210,5220,5S(U)5D 3155#I S(U)S(U)16N S(U)1S(U)1BS SC(U)0IX UP] Pxb 23:1:"DO YOU WANT TO TRY AGAIN?"g S$(0):(S$(0),1)"N"20000l m X15n SC(X)0:ST(X)0o q 3000S(U)5010,5020,5030,5040,5050P310X  X(1) X.5İ5200. X.5İ50008 2160B 1000T ST(U)ST(U)Td U2:27:Px U2:35:ST(U) X11000 X U! P3(P3)3165& U1NS+ SC(U)3031300 SC(U)1531455 3155: S(U)S(U)1 ? S(U) N O O "419:11:" N N N O O "X20:11:" N N N O O "|21:11:" N NN O O "22:11:" N N OOO "  P1NP U1NS 2200  U2:1:S$(U)  X11000 2:11:" GGG OOO "#wX1:1:" STUDENT PROBLEM SCORE "f3:S$(1)t4:S$(2)5:S$(3)6:S$(4)7:S$(5)16:11:" N N OOO "17:11:" NN N O O "18:11:" N N ẕ@p(ΠϠȠՠϠРڠѠʠ ϠڠڠנؠР)_ q̱@p(ѠѠȠՠѠǠǠ̠ؠѠРѠРՠѠȠҠѮ)_ {̱@p(Π`$M6o_ ṟ@p(ؠɠؠàؠɠŠà֠Ѡɠנɠ̠ѠìĠŧؠή)_ i̱@p(נѧΠΠʠנ ˠЧĠנؠ ʠРנŮ)_ŠϠŠ)a(נϠ٠נ)S(ŠԠή)&@C@`@9()$x`@:()@:()$KM6`@9()$dQaS(ϠՠŠ̠Կ)&@q/?r`@:()@:()$S(ȠŠ)'*̳@p@@Brp@`%@Brp̳@*r`@9()%@p()JUVW`̱@*#r:@$̳@p̲@̲@Brp@`%̲@Brp̳@*r Y_!`@:()@:()$@p()_F,`@9()@9()@9()$@a(РϠŠ)a6a(Ҡ)Yo a@a@ca̲@M6]S(ҠҠϠź)&@`;@r$,q<@r`$,`@*#r:()$-a(٠ԠԠҠΧԠĮ)_Ra(Š̠Š)E@E(ӠϺ)GR@`;@r$q<@r`$>`@:()$>nM6a(Ҡź)Ṟ@`̱@9()$nM6o\a̱@cx@p()q;̱@rd"e̲@p()UVW̲@Brp()`<̱@*rr<̱@*rr%̲@Brp̱@*#rYHUVW@p@*#rUVW`@9̱@*#r$Y@Brp()Y_@Brp(ؠؠΧ)](a(ΠΠҠŠŞ̌ŠѧӠӧاӠŧĠϠή)p2ca(ՠ٠ҠŠϠŠƠŠĠӬҠŠŠƠҠή)+dcS(Ҡο٠ҠΩ)&@_ N@"rC@"rC@" rC@" rC̱@"rC̲@"rC̳@"r@p()^KM6ca(ӠӠͮ͠͠ӠŠҠ)Va(ŠŠԠƠӠӠĠҠҮ     S KEPT.";" THE MISSED":"WORDS CAN BE REVIEWED AFTER THE TEST.":"WORDS ARE PRESENTED IN RANDOM ORDER TO AVOID ROTE MEMORY RESPONSES.":"PRESS A KEY FOR MENU: ";:A$:1 CREEN TO PROMPT THE USER FOR TYPING OUT ON THE KEYBOARD." l:"PROVISION IS ALSO MADE FOR A PRINTER LISTING."::"THE SPELLING TEST PROVIDES FOR THREE LOOKS AT THE WORD BEFORE IT IS BYPASSED TO THE NEXT WORD. A RECORD OF NUMBER OF CORRECT WORDS I(A$,1)"Y"190B:"DON'T BLAME ME IF YOU DON'T GET YOUR"_"SPELLING TEST RIGHT!!"ekxI1NUMI(I)ĺW$(I)I:X"THIS PROGRAM PROVIDES FOR ENTERING A LIST OF SPELLING WORDS WHICH WILL THEN BE FLASHED ON THE S00|CV(37)CV:1:B$.T10CC1F"YOUR SCORE IS:";CMNU:x"YOU GOT ";C;" WORDS CORRECT"~:"DO YOU WANT TO SEE THE WORDS YOU MISSED (Y/N)? ";A$(A$,1)"Y"İ500:"DO YOU WANT TO DO IT AGAIN (Y/N)? ";A$ ";""DO YOU WANT TO SEE THE WORD AGAIN? ";J,A$:1:B$].TT1:T3400o1A$(13)240y6:A$;(W$(I),1)" "320<W$(I)(W$(I),((W$(I))1)):315@(A$,((W$(I))))W$(I)380ET1I(I)1JT11:T3240T4 ":C00I1NUM:R(I)0:I(I)0:I\"SPELLING TEST: TO BEGIN PRESS RETURN"qA$:(A$)13Ā~N1NUMI%(NUM.5)(1)1R(I%)0222II%:R(I)1T0:T1010:W$(I)J120Q(3)J10:1:" M1:D$;"READ SPELLING LIST,R";NUM/W$(NUM)DW$(NUM)""145wD$;"CLOSE SPELLING LIST":NUMNUM1:OPN1180(4);"PR#1"(20)I1NUM5)I;". ";W$(I)I(4);"PR#0"B$" r@Brp̲@*#r`;̲@r%̲@Brp̲@*rYX̲@p̱@UVW;̲@ṟ@Brp̲@*#rq<̱@*rr`%̱@Brp@*#rY[͠ՠ٠ҬŠҠӠ٠ˮ)_ s ̱@p(Šˠ٠ӠϠŠנҠӮӠĠάάŠĠҮ). \a̱@oP a(͠)F_xW̲@p@@p()UVWq/?ΠԠΠŠԠԮ)_ Ẕ@p(נԠէŠĠӠ͠Ԭɧ̠ԠՠǠϠӠ)_̱@BQrp(ŠĠ̠ĠΠϠŠȠԠͮ)ḇ@Brp(ԠǠϠŠԠҠԠŠǠϮ)_ Ẕ@p(ŠӠԠΠȠԠ̠Ԡ٠Ϡ¬ĠРŠŠ)_̱@BQrp(ȠĠ٠ӠҠŠĠŮΠŠ٠ՠ̠ĠҠӠ)M̱@Brp(ŠŠԬĠҠĠà)0̱@Brp(ǬΠŠŮ)_ Ẕ@p(ŧŠԠӠ٠Ӡ ĮŠŠՠ̠٠Š)_̱@BQrp(׮ŧŠԠӠŠĠ٠٠Ӡ ĮԠˠ)+̱@Brp(rp(źɠԠҡΠҡĺΠҡΠҡ)_ Ẕ@p(ӠϠŠӠŠĠŠĠƠԮԠӠŠ)_̱@BQrp(ǠΠŠĠƠԠĠŮŠӬŠӬŠӠˠĠ)2̱@Brp(ĠƠǠĠԠɠͮ)_ Ẕ@p(źŧӠȡϺנϠՠנŧӠȿ)_̱@BQrp(źŠŠĠŠϠϺՠΧԠˠŠԮ)W̱@BƠ֠ؠР͠ڮ)_ y̱@p(ɠˠԠ̠ԠǠŠΠӠ٠ŠˠĠĠƠǠĠԠ٠)ẖ@Bprp(ŠŠĠРȠǠˠĠĮɧ͠٠ԬĠɧ֧͠נננӠϠàѠìנˠڠàѮ)_ ḵ@p(ǠàנŠ̠Ѡ̠îàŠ׺נŠî)_ U̱@p(ƠƠƠ֠x̱@p(Р٠ʠ֠ƠР׬ϠƠ֬ɠ֠٠РѠ͠ԠŠٮ)_ ṯ@p(ȠĠȠ̠֠ҠҠР̠ԠˠڬР֠РϠɠڠԠЮ)_ w̱@p(Ƞ֠נؠΠغΠ Ơ̿Ѡנ)F̱@BQrp(Πغʠ̠ŠѠʠʠſ)_ m̱@p(ҠՠРҠϠѠĠР֠ՠҠѠ֠Π٠)_ Ѯ)_ vṯ@p(ҧՠɠ٠ҠՠՠȠĠĠȠĠؠՠ͠ڮ)_ t~̱@p(ʠΠԠӧ ΠʠԠΠӠʠΠԠ֠ʠѠؠή)_ Ẕ@p(Ѡ˻̠̠ǠɠƠˠƠǮ)_ o`̱@p(נĠƠҠƠ  ѠҠǠ֠Ơ ʠ֠Ǡ ʮ)_ jj̱@p(ؠѠǠӠ͠ڠΠǠѠӠؠѠ٠ɠʠɠĠҠҠ)NC̱@BQrp(خʠʠؠʠĠؠ٠נخ)_ lḺ@p(̠Р֠ڠ̠֠Ӡˠ̠ԠԠנˠѠˠؠϠڮ)_ TV̱@p(Ǡ̠Ѡ̠ڠ̺ɠ٠Ҡ֠άѠ٠Ҡɿ)_ |8̱@p(ħƠڠԠҠנƠƠƠȠɬ֠ȠĠƠ̠ɧŠ֮)9_ ZḆ@p(ʠҠʠƠʠ٠ҠʠΠؠԠѠŠŠɠΠؠՠΠڠՠ֠î)_ k$̱@p(ӠàӠѠ׬ȠŧȠѠȠàŠנ͠ؠѠŮ)_ h.̱@p(ӠʠΠŠƠǠ٠ҠϠ)ea(Ǡſ)\}\0u[ M6a()c%a(ŠΠ٠ŠȠ)*a(ǠԠŠҠӠϠ)*a(ŠŠ٠ƠŠҠϮ),a(ҠŠӬ)a(͠ȠԿ)B\}G\0uK[ LM6Ma()c.Na(ՠŠΠҠϠȠƠ).Qa(ԠӬĠĠŠ)-Va(ǠӮΠנ٠))[a(ӠΠՠŠŠŠ)-`a(ŠҠԠӠ)+a(ҠԠؠ٠٠ԠήԠ).a(٠ŠŠŠԠ),a(ԠؠҠȮȠРӠ)+a(٠Ӡөנ)-a(Ӡ͠Ԡؠ̠Ƞ(ŠԿ)z\}\0u[ M6a()c-a(ҠҠӠŠӠĠ)-a(ӠŠӠΠŠӠӠĠӠ)+a(ŠӠ׮ŠӠנĠӠ)a(Ӡſ)\}\0u[ M6a()c.a(ĠӠٮŠԠΠ)-4a(ĠŠĠĠӠٮŠ)$9a(ԠΠŠĠŠ)+>a(ĠӠٮŠԠ)-Ca(ŠȠŠĠԠԬԠ̠),Ha(ĠԮȠנȠ٠)Ma)c-a(ԠŠŠԠŠӠƠŠ)a(Ҡ޹)\}\0u[ M6!a()c."a(ΠԠΠҠΠ).%a(Š٠٠ǠϠŠӮ)(*a(ŠĠƠŠԠŠŠĠ),/a(Կ)N\}S\0uW[ XM6Ya()c&Za(ΠϠӠŠ)-]a(ҬӠԠŠҠŠ)+ba(ԠƠŠҠϠ̠Π)+ga(ŠԠӠƠŠӿ)\}\0u[ M6a(a()c-a(Ӡ ӠӠ޵)(a(Ơ̠٠ϠŠΠ)-a(ΠԮƠȠΠ)-a(Ġ͠ȠŠĬԠӠ)*a(ŠƠҠǠȠҠ) a(ǠŠΠӠӠҠӠ),a(ӠҠӮŠΠΠ)-a(̠ҠҠȠŠ)-a(ŠӠŠӠȠ٠ӠŠ),a(ŠƠŠ̠ˮԠ)a(ŠŠſ)\}\0u[ M6Ӡ٩Ġ͠Šˠ)-Oa(ŠҮŠԠŠԠΠ) Ta(Ġ٠ŠΠٮ)\}\0u[ M6a()c*a(ΠӠˠĠӠ)(a(ĮŠҠӠŠ)-a(ӠĠҠةƠ),1a(Ԡ٠٠ϠԠΩĠ),6a(Ӡ٠ӠҠӠȠ),;a(٠ԠϠΠҠӠΠ)-@a(٠Ơ٠ΠӠҠĠ).Ea(ӠԮϠĠŠԠ).Ja(Ơ٠ĠĠ)'a(Š͠Ҡ٠Ԡ),a(ήԠŠĠƠӬ)+a(ҠĠ٠٠ϠŠҮ),a(נ٠ĠŠ٠Šٿ)"\}'\0u+[ ,M6-a()c..a(ĠŠŠΠ)-a(ӠŮϠӠŠĠƠͿ)\}\0u[ M6a()c-a(ϠŠӠΠΠŠԠ)-a(̠̠Ӭ)*a(ҠĠϠ٠͠)-a(٠Π).sa(ԠΠӠƠŠŠŠҠ)+xa(ӠĠӠ̠ϠŠ)'}a(ƠӠҠҠӮӠ)-a(ĠŠӠΠª)-a( ӠĠŠΠ)-a(ĠӠԠӠ  \ O4 r N@"r N@"rN@"rC@"r\'<_* P\dZ_*cQ dM6ea()c.fa(Šά¬ĠìȠҠӬ))ia(ªĠê٠ŠӮ)-na(ӠȠӠԠŠ          )UVWY[oQ'Q']ǠŠ$'UVW  .'-rq8'Y B'q*[*]Ǡ+q/? r +`-r%_+ +-rq +q*+` %_y._PHqQ30u]ҠҠϠϠԠ)v _Du a(ҠϠ) c a() _Du7]ŠŠҠΠӠ̣٠̠OM6ccccPa(Π) UcccZa(̮)_cUVWcYa(٠̠ a(ŠĠ٠ȠŮ) _Du a(ҠϠ)! cS& a(ŠΧΠӠΠŠĠΠΧΠӠΠΡӠ)<0 a(ҬŠ٠ƠӠŠӠ)-: a(Į) _Du a(ҠϠ) cV a(ҠԠԠǠȠΠŠȠ̠ԠԠŠǠ)V a(ŠԠȠԠԠؠΠŠȮŠԠحĠԠӠ)- a(ȭĠӮŠΠ٠)&ؠ)J _DuT a(ҠϠ)Y cV^ a(ƠؠӠΧӠŧӠԠŠĠΧӠҠŬĠ٠Ӡ)Vh a(̠ƠŠĠĠŠΠŠϠӬΠŠ)%r a(ؠΠŠ٠ήŠԠ͠Ӡ̠Ϡ޳˭Ġ٠)G a(ĠŠĠͬӠŠΠϠŠͮ) _Du a(ҠϠ) c! a(ح) c! a(ح) c  a(ŠΠҠӠԠϠΠĠϠΠ)V a(ĠĠ٠ΠĠԠΠĠӠ̠ϠҠӠ٭)U a(ŠĻΠǠŠŬˬŠӠȠ)U a(Ϡ͠ǠŠ)SF a(ҠƠӠƠԬҬĠĬ٠ͽαβҠ)QP a(αβŠΠŠԠȠ٠ΠŠĠΠϠŠӮ)Z a(ŠŠҠӠϮ) _Du a(ҠϠ) cQ a(ŠӮŠΠƠ), a(נӠΠ٠Ơ) _Du( a(ҠϠ)- cU2 a(ŠŠԠӠƠŠҬĬĠԠ)T< a(٬ĠΠǠƠŠϠŠӠƠDu a(ҠϠ) cU a(ǠϠԠŠԠƠɠӠĠΠҠ)U a(Š̠ӠƠŠǠӬŠŠנ)T a(Ơ٠ΠŠĠϠŠӠƠǠŠҠΠΠϠӬؠĠ٬٠Ġ)S~ a(ΠŠؠӠӠŠˠĠҬĠ٠Ӡ)` a(ŠˠĠҠĠǠԠؠĠ٠ԠŠŠӠӠΠ) _ӠӠƠνؽΠٽƠνҠ)W. a(ؽΠٽĠٽٮ٠ҠҠξؽĠٽέ)V _Du` a(ҠϠ)e cSj a(ŠŠŠƠŠ̠ˠӠŠԠΠŠĠ٠)Ot a(ϠŧӠƠŠŬ)U a(ڮϠΠҠӠΠŠ٠Ơ٠ΠӠҠĠ)U a(ӠԮŠԠҠƠӠΠΠŠԠŠӠȠϠ)U$ a(ӠؠĠŠҠƠɠŠȠŮŠŠ) pa(Ӡê­ªĠí)cc_Dua(ҠϠ)ca(حة)a(ؠ)a(ؠ)cc_Dua(ҠϠ) cV a(ȠŠӠŠԠȠŠŠӠƠϠӬ)TRa(ǠԠԠŠΠӬڮҠƠӠ)U\a(Ġ̠ϠŠŠԠĠŠ٠ƠӠŠ)Vfa(٠ȠĠΠŬŠΠӠԠ),a(ŻĠȠӠנȠ)a(ȠŠϠԿ) \}\0u[4a(ҠϠ)9cT>a(ŠӠƠŠ͠ԠĠŠŠΠΠ)THa(ϠӠȠΠŠĮΠҠŠ)/@ya(ΠϠŠӮӠŠ)/Jya(ΠՠŠŠҠή)/Tya(ƠՠԠϠŠ̠͠)(^ya(Ϡ̠ҠŠӠ)/hya(ŠŠΠΠŠҠӠΠ)rya(q]0u]%:uMo P a(Π)DuPa()NuP a(̠)6XuoS(ӠٯΩ)&α@`α@9()α@9()%[bu`α@:()$Xuu]y]("yMoP a()o/6ya(ŠŠӠϠ jmLftmUVW?~mq.?rmq.?rmghmYm[m]Hq]Ӡ RqMA\qoa(ŠŠƠԠҿξ)Gd$eRα@@fqoa(ŠĠҧӠſξ)Gd$eRβ@kq[q[Ӡ iM"ioPaα@E(ӠŽ)FӱG(ioP;β@raβ@E(ӠŽ)FӲG id"eo`%P;α@r`%P!d2ea() d2e]Š`$ ӲqӲ"oPa(ӠŽ)FӲ_, ӱqӱ&oPaα@E($ӲqӲqoPa(ӠŽ)FӲ[ӱqӱq#oPaα@E(ӠŽ)Fӱ[ [ d"eoPa(ˠ)GP`%aα@G`%aβ@G$oP a(ŠĠ)G@`$TJijk\X[0lmnlmn\X[0lmnlmn\X[N[ X]>bo`%P;α@r`%P!d2ea(ء)%gUVW2q.?6?rY ld2ev`>r=>r%\[K`=>r=>r=>r=>r%\[K`=>r=>r=>r=>r%\[[0ijkijk\X[0ijk$%\'`$%\'`$%\'`$%\[=`=>r=>r=>r%\[K`=>r=>r= \mf\rq#q'\t`$xv`$zLxqoP 8 ;β@rra(ˠ)Eβ@E(ӠΠ)G[HzqoP8 ;α@rra(ҠΠ)Eα@E()G[|[]ˠҠ'`r$xf\`.??r%\,`ӱӲ1$R_n`%ijk`%lmn[,UVWdY.`8$^1`$J6`$T@[Jq[Tq[^] hfmNα@"rCβ@"r \}\0u\Hq(\`m]ԭ2\xi]Ӡd\z nf\xq82?rrq.?rq.?r`8%q#`8%q'`=>r$x`=>     ӠͿ)uR@u_dy]٠ο$"ya(ϠՠԠϠ٠)R@,y`@*#r9()%_6y`@*#r9()%Q@y_"y}UVW Y }ccc}[8]Πӭ̮٠̠Š@:ua(ϠՠŠΠҠϠӠͿӠҠϩ)GR@:0:1:3?S0@N0:C0BJN4CD(J)((1)61) E        РŠ]ҧӠ]]]͠]Π͠]Ԡ]ŠӠ]ˠ]Ϡ]]Š]]Ӡ]Š]ŠӠ]ҠԠĠ)-|yd2e?oP a(Ԡ٠٠Ϡ)y`.?6@r$yyd6?ed2e[y]}]͠ }qqq6K}dedede dededede de%Z}[c}]?????O---%????????????,mI)---mI)%??????,mI)---mI)%??????,mI)---mI)%????????????,-----------%??????,mI)---mI)%??????,mI)---mI)%??????,-----------%????????????,mI)---mI)%??????,mI)---mI)%??????,mI)---mI)%????????????,-----------%????????,mI)---mI)%??????,mI)---mI)%????????????,------------????;????,----MI----%????;????,----MI----%????;????,-----------%????????????,mI)---mI)%??????,mI)---mI)%??????,mI)---mI)%????????????,-----------%????????????????????????,--------????????,-----------%????????????,-----------%????????????,-----------%????????????,------------????????????,mI)---mI)%??????,mI)---mI)%??????,mI)---mI)%????????????,-----------%????????????????????????,-----------%????????????,mI)---mI)%?????I----%????;????,----MI----%????;????,-----------%????????????,mI)-------%?????????,mI)-------%?????????,mI)-------%????????????,-----------%????????????????????????,-----------%????????????,mI)---mI)%??????,mI)---mI)%??????,mI)---mI)%????---------%????????????,mI)-------%?????????,mI)-------%?????????,mI)-------%????????????,-----------%????????????????????????,-----------%????????????,-------mI)%?????????,-------mI)%?????????,-------mI)%????????????,-----------%????;????,----M------%????????????,-----------%????????????,-----------%????????????????????????,-----------%????????????,-------mI)%?????????,-------mI)%?????????,-------mI)%????????????,-----------%????????????,-----------%????????????,-----------%????????????,--`Cs????????????,-----------%????????????,-----------%????????????,-----------%????????????,-----------%????????????,-----------%????;????,----MI----%????;????,----MI----%????;????,-----------%????????????,-----------%????????????,----- **SHIP CAPTAIN CREW**5 ** BY **Q ** DAVID SPARKS **m **THE GREEN APPLES ** **CEDAR FALLS IOWA ** MAY NEPTUNE STRAIGHTEN YOUR WAKE, AND SMOOTH THE WAY AFORE' YE!"255:J12000::J11000:::"AVAST! YE'VE SQUANDERED ALL THE SHIP'S""TREASURE, YE BILGE RAT! ASHORE WITH YE!"IDE AT ANCHOR WHILE YOU THROW THE OTHER FOUR DICE."9fp" IF YOU HAVE A SHIP AND GET A CAPTAIN, YOU MAY PUT HIM ABOARD WHILE TOSSING THREE TO FIND A CREW."zm" IF YOU FAIL AFTER THREE TRIES, YOUR WAGER IS FORFEIT. YOUANY GOOD TO FIND A CREW."W:" AND YES, YOU MAY BE FORTUNATE ENOUGH TO GET TWO, OR EVEN ALL THREE OF THE DICE YOU NEED ON A SINGLE THROW.":3\" YOU GET THREE ROLLS OF THE DICE BEFOREYOUR TURN IS OVER. IF YOU GET A SHIP YOU MAY LET IT RREW. IT IS THE LESSON OF THE SEA THAT ALL ARE NEEDED IFANY ARE TO BE OF USE."H:" A FOUR ON THE DIE IS A CREW. YOU NEED A SIX, A FIVE, AND A FOUR TO WIN."R:" OF COURSE, YOU'LL HAVE TO HAVE BOTH A SHIP AND A CAPTAIN BEFORE IT'LL DO SKILL OF THECAPTAIN."4:" A FIVE ON THE DIE IS A CAPTAIN. YOU NEED A CAPTAIN FOR YOUR SHIP, BUT YOU NEED NO CAPTAIN IF YOU HAVE NO SHIP."S>:" EVEN SO, NEITHER VESSEL NOR CAPTAIN CAN TRAVERSE THE DANGERS OF THE SEA IF THERE BE NO BULLY COW."d :" A SIX ON THE DIE IS A SHIP. YOU MUSTHAVE ONE BEFORE YOU HAVE ANY USE FOR ANYOTHER."*:" THE ANCIENT MARINERS ALSO KNEW, AYE, 'TWAS OFTEN THE ONLY THING THAT BARRED MUTINY, THAT THEIR LIVES DEPENDED ON THEEXPERIENCE AND NAVIGATIONAL:ŠŠŠĠ٠ǠŠԠĠΠŠϭΠ̮Ӡ/ͩ͠Ġ ӠӠͮ`٠ӬЧLΠҠϠŠŠΠŠΠԠά͠ĠӬîԠӠ٠  ΠάŠҠ̠ŠԠŠ͠ƠŠήՠΠΠŬŠΠϠˬѧΠ̠ŠĠӠ٠ΠŠӮ`Ů 8̠͠ŮՠΠϠҠӠŠӠϠӭŠ͠   2Š/ŠΠ٠Ǡ̭ĠΠŠ͠ŮŠŠӠנϠ٠Š`ŠŠΠŠϠˠ٠ЭΠŠĠ٠ǠŠ͠LΠŠԠŠӠΠĬŠǠŠ ĠΠǠŠ  Ӡ͠ϠӠՠΠΠ̠ŠΠȠҭ̭ɠԠ ӮӬĠŠŠâҠέ̭ΠԠ̠Ӯ̠ӠԠҠΩ̭ Ԡ̮Ԡ۩`̭ƠԠFLASHINGӮ̭֠ԠŠߩ 6ĠΠŠ/̠ӠΩҠŠŠϠŠ̠Ӯ̭ԠȠܩ`ӠŠҬҠάL   2ӠΠ٠ǠҠŠ͠ҠάîŠέĠӠŠ   AR SCREEN)"::"TO EXECUTE SCREEN WRITE 2":D$"FP": 24:"HIT ";::"RETURN";::" TO CONTINUE, ";::"ESC";::" TO EXIT"; A(49152):A1271010 :49168,0:dd9ddxD$(4)4N13:400:1000:A155500:C500g(4)"BLOAD U/SCR.WRI.INST."N::8:8:"LOADING ";::"SCREEN WRITE 2":4 D$"BLOAD U/SCREEN WRITE 2.1":13:"ENTER 'CALL 848' (CLEARS SCREEN)"::