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`oeܔٱ0ۏ$1@hnW &tlnrvNjUaE=H jmكدzڕؤi֟H֐# A :dFZyy{{h}PTFNddENFONEXDATINPUDEDIREAGTEXPRINCALPLOHLIVLIHGRHGHCOLORHPLODRAXDRAHTAHOMROTSCALESHLOATRACNOTRACNORMAINVERSFLASCOLORPOVTAHIMEMLOMEMONERRESUMRECALSTORSPEEDLEGOTRUIRESTORŦGOSURETURRESTOOWAILOASAVDEPOKPRINCONLISCLEAGENETABTFSPCTHEANOSTEЫANOҾSGINABUSFRSCRNPDPOSQRNLOEXCOSITAATPEELESTRVAASCHRLEFTRIGHTMIDNEXT WITHOUT FOSYNTARETURN WITHOUT GOSUOUT OF DATILLEGAL QUANTITOVERFLOOUT OF MEMORUNDEF'D STATEMENBAD SUBSCRIPREDIM'D ARRADIVISION BY ZERILLEGAL DIRECTYPE MISMATCSTRING TOO LONFORMULA TOO COMPLECAN'T CONTINUUNDEF'D FUNCTIO ERROR IN BREAKɁ! i` Ӆmn8囅^圪#8^Ɨ8^ƕƗƕ` i65^^.`p(o"H H h0hhpo`M$L Z۽`H \h ֩P :ۤv  ڢ .ՆF v YLئij YՄ ֐D_i^aeii`jij圪8iae^_^`_a8stopiejȄ ӥPQmnij e֥gh^_^ ijL<Ԡȱ^Șe^^_iȑ^^_Ң3 j )` )`ʠ$hh eL$p "tpM?E0<=Ѕυ 8ɀA N4O0Ťș98:I8xІș Нƹ`ghȥQћ Pћ `֨gȑggiihij ֩*stopijklmn IآURhhHHz`gihi` ,  ,Є hhPQPQD X ȱȱQP- $ ) \ۥ$! ک$ȱȱж \L枱`8Єτ ,0 \ ,0 \ \۩ И F eihh eHiHvHuH j gݥ %ׅ^_L ީ  g ޥHHH XإvyzW4ȱuȱve$v# \ۦuv $ W (Lb-逐@ HHLLF:L8gh}~`Ƀ` Sբ$L?`gh<=ij>?`v(Le lL5٩ ӥHHvHuHH >L ٥vQ 8egh ֐` eӚɰ ,ZLLhhB;uhvhh ٘e`:,  "hhh` { ɫ ޥ L>L( HɰɫЉơhL* ,h`PQ/ Q^ԥP &^ &^ePP^eQQP&QPe PQ L ߅ ޥHH {h* mh r ȥ`L'hpoj iLڠ 㥌 婝 5ȱȱ` = $)94,;D {$0 4 Lک \I`$ !i)$ )L(ʊ$ L W 檠^ \ LD۩ ,? ɠ )H h`0{|uvLh$L :ۥyz` @ `" ީ; =L Z , ,խLc ZL,զ}~, ߅ $P )0 Z ۆ $1$P 膸 ": ,i = {LrH0h J c ,Lqۥ 3 LۥL Ȫ*ȱ_ȱ{ȱȅ| L+ܥLSؠߠL:`?EXTRA IGNORED ?REENTER  ߅ ei` 꺽  ' 8 uvL׊i , {$8$0`LԦƹƸ$HH `ީ 8ϐ*IEʼna Lݦ,{iweLi^ e^hٲаg jH hV_F*ƹƸٲаHٹHH ޥLLޥШh^^h_H r륡HHHHHl^h#d j݄hJhhhhhhE` LJ }d.U"i L=8,LLTҐL {ݩ),(,,ѸLLԠhhL ߅` ȱLL q L H ϐ { lhHHH hHL? hυυ Ljݥ ,L mݰ % LߩƉ 慝 憨80 ў*%L L ު `  }LޢLL(L<  } }$%0Ʃ 8(L$0pijlk"ћћliA[8`hH`klmniȅ ӥȅklȥȑȑȑȑȑiȅ` ieȅ` gݥ0 ɐ ~LGHHHHH hhhHH ,҄ hh)klnm?Łћȱeȱeעk,5LԢx8` ћLK*L өȥʆȑ $PhihiȑȊ ↭^e]eR Ӆmn殤ƕƮ8m因n圑bȱhhћȊћLLȥ e^eʅʥʆd ee`^de *& edeeƙ` 8ompnL$8vС,L A  ީ j ީ HHHHH L  ߅Lj A㥋HH jhhȱ𙅄ȱH +륹HHȱHH ghh Lhhhhȑhȑhȑhȑ` jݠ 6hh R䆞`" ȱ "e膮 㦫 R^LԥSR`FHI8eopnm opqrh`M0 䩀hЦstopmnU^_R #ij^_lk 󅔆nmLb^_^ȱ^ȱ^eȱ^e(ӊ0ȱ^ ie^^__Ŕ #^05ȱ^0ȱ^+ȱ^ȱ^poŜ䛐^_e^^__`)Jeiop Ӥȥ敥ȑL䥡HH ` lhhqL 奌  奫  *LݠHȱȱh^_ H^qheqqr` lݥ^_ 5^Hȱ^ȱ^h(po Heooph^_`T SRS` H hhhL* ьHH 㥌 hhe^^_ L* IL` ) ʊH񌰸Iš hhhhhhhHH` L ` ^LL g ᦠL LN覸^e^`_a`H` Jh`` g R L楝ɑ 률PQ`PHQH RPhQhPL F犠P` F熅  L熆PE%`dL 饢IEL < LS리8$Ii0ǨV $W8Ie Ji `eeeeeLi&&&&8坰IiBfffff`IIIIII `ELԢai0vvvvvj`^Vy dv88; 54541r LᥝH- 2 f  \7 h < L bcde 饡 饠 饟 饞 LLJ eeededcecbebfbfcfdfefJ`^_^^^^E ^`e0,iLR襫`I0hhLNL ci ` cP Li v r8坅 Ğğ Ġġ* e24(&&&0⨥塅堅埅垅L@ (LꢅLԥbcdeL.^_^^^^ ^`, r^_^^^ %^^`` r` L襝 *` 녞I*L)F``a`Ȫı`E0!` Şȱ`şȱ`Š ȩŬ`(IL륝J8$ 芢 脤`)F 鄤`ɠ 넬I* L)腞` -+ [..E0 - +f \$8Lf$På8噅 U 9ƚ0`LH$ 9h80 LaH ch 륪EL祚 d$0L e q80L>nk'nk(X 1vu8 4L:۠-$șȩ0LW     9ƙ U i 0 i8.ș0șylykyjyi00ڊIi i/ȄȪ)ƙ.șI)$Ъ0.ȩ+.8嚪-E/8 i:`  cd pLP袊 +륪 #쩊  UH A驊  hJ I`8;)q4X>Vt~w/z*|cYX ~uƀ1r۠ 饬iP z녒 f륝Ɉ + # i8H rh ` !멓  v禎L酭 뱭Ș殅 饭iȅ 穘ƣ`5Dzh(F 0ɠ 穦 驪 禡 .ɠL+f ck ^ c # p 祢H 祢0 I p h uL\ !  禎  b𩊠LfHL#IڢIڢ-(h#5ᆥ](IڢʥH HɁ fΠ \hɁf hL` vy{| g|S}dpL}Qz}c0~~D:~L̑湭`: 808`ORXv( sL  񕰆򊅤TH کURPQQPIPPIPPPQ)stopgh֘gghgh K֩:ۅ<ԅl g RlP L L 0, 0,-`L ,- 0` (L ,(ʤL (L( Ld ʊL[ I`8f`?2`@ g RPmQnLԥPsoQtp` g RPsQtPiQj֥PiQjLl֩ ޥ8fإuv Lنަߥuڥvۥyܥzݥ􅸥uv >Lץڅuۅv܅݅ߚLLްij ֥`a, PQ ֥`a```aiśj地a`ʈjiLԭVSL@TL9 ʅPQ L PȱQL L,U,R@ ,T,SWP ~)`H)&JJ&&h' &' &' f&')'#i媽0J(` Q&%0Q&&`#0JI0`'0 I`0 I0ݩ()%%01&%0)&E%0Q&&e)j00',"&,i8i#H&ii&hif&i'`'i,&i,&iPII&if&HhH8HӰ hIiHӅхhЅhIi҄f8Ъх e8e҅ԥձ&E%0Q&&bӰ eЅԥePفŴxaI1& ')*& 'JJ) e ʥ0)Je`JJJJӊ)IȄҤѢԆզ8eЅԐ e҅Ր JJJ`JJJJӊ)IȄҤѢԆզ8eЅԐ e҅Ր JJJ` g RQPHH, hh`L `*U W :L ` `  eȱe ` -L -La=?P<Ȅ> sʆ>PHt?QnLԅtp=hso< LeP>eQ? ॔<=`@ ߩL ʊ( (H hL$`J G(i.&E0%.Q&&` , iH h-`/'-'0 (`HJ) 'h)i& &&`0i)0 00`J G&(JJJJ)`:; H:J jɢ )Jb y.)/) JJJ Ȉ` H:  J/Ȑh,--&,*i H/.  `0 .: VȘ L `8/;e:` T0 "T3  T3  T; "D3 D"D3 D"D3 "D3 &1!YMJؤ#]#)i#$S#$S[[i$$)|mi)S4i#bZH&bTDThDt(ntJrtttrDh2"&&rr&HDDȅEhH 0l( Lh:h;l Le / XZ]_, :ILl `Ȇ׍숈l E@A  J 0`YE <Šӭpd`HVTQ PS 6" (!#%L" X`I`ɍ,,L8L,H ΰɐHJ) )h)i( ((`ɇ@ 0`$($$!f`ɠɍZɊZɈ$!$$"% %% e (`I(ii,i\$%H $ hi#ʥ"%$$%%#%"H $(*)+!hi# H $(*0 $(!`8Hh`BC<>=?<=`K i! Ȉ2 ,`H h*:` `E/E//`$(H)? @(hl8NO,(,` ɛ`2H2 h2Ɉɘ  : 3  5ɕ()ߝɍв [=< @L< >=?<) < `JJJ>Ie@@A`41`>BD`8>6>) `LL u ?l:L``L@ 'A&?1?=A>?I i`HH11`IJ듧ƙɾ5Ė+]̵b@ &WSP& )`" !H)&JJ&&h' &' &' f&') &'#i%Ѕ0J$)` .ХQ&%0Q&&`$0JI0`'0% I`0 I0ܩ(ߠQ)'%01&*%0Q)&E%0*Q&&QeS)j00',"&,i8i#H&ii&hif&i'`'i,&i,.&iPII&&if&H !"hH8 H!S hIiHSQUhPTh !"IiR"fS8PQ% 8TeRTUU&E%0Q&&kS TePTUeQPفŴxaI1& ')*& "'JJ) ""% m% ʥ0)J!m%! `JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ`JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ` Ӎ$ H h .Ю#` L}Э%J u ӊH Өh dѮ#` L Q ;Ү#` Q Ү#`#2 Ӎ'( H() 91 eȱm)h`JJ`#JȱJLh `#  <(eΨ=)eϰ%Hh>?iJK̅  #`Lk 34 Lh856!;<79)F:&8J9j*0v 婭   +<; LhLk'cg=%;!,<+k,w(gG gG]$ t < N8i| (|`ܠLդ4ɪ 4<`<  / ) ) "&6 B /`TLՆ8M˕  Tբ , Tզ`  . $ ; E.. 4L& >H ֥ h ߦ>  E֥ E & > ` E  E  H ֥ hL  ֥ -L L -EF# =Pi  ֤Lְ ׅ! ׅ  ׅ ׅLԱJHȱJh`LNפ0`L,׈L20`LF׈LL ׅJF8ȹe8ИL`Lø{{ttmnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# ! L3L`) #L $  `  v mL;ʅ˅LM  mdžة * * *     % 0LH΢QPHΪ0h$0 )?i h](Њ Px+L 4P xL# 48` PxL PeHxeH˰iکeۅȱhڙ`ꠀЕ x ت3 Q3ؕxQεy NvNδPPPL#Q8yڅ`Sε{ϵQڵyxȔPMuHOwh(VP`΅h(OM L6 T&ϐ eڅeۅ &L~ 畠(LoU [΅ڥυ   o ` l3 3` 4J G 4&(JJJJ) 甠` F٩ $ 婠 Ȣ ii)ɰL ̥͐Eʑ˥ʥ˰ਈ$ u~q  u  mʥ` ȹ0 L uߙ`` $0LL*iS 00)ȆȘHJI@hL`ȩ)?Jжi?oiO iȱ) zȵх 8 05X~")XȔ) v*Ȇ0LJɢ  Ȉ ϴX)HЄ ȹ)eHe0hޤȄ h󰩠ɩch cɰ$0 $` d'ʅ˅LM&ȱϰqȥȥ`FLʥM˥J̥Kͩ`Lkȱ0@hJHȱШhЄӠȱ0I@iHeШiH˰hhЈЈ͑Ј̑ЈЈ0JKЬ@iHe eѕxh$0 xx ԅբ H 0  敠$ ( x$0  xx 0$FԨֹ)U h)װ H ֐ι Ll`w0P`fLPεϵxϱHȱ΅hΈ` J  畠P` Y $0`  畠$0 8 P# o ΅ڥυ e epݕ` 4LL$ `  rPՆϦ ` ΅υȩ ` Τ PڵxۥΑȥL`hh$ F`` %ֈ`ʤZA^ܙ ݙ0  m7;܄iȢٚ . y$IqܤݐLM͠1FLJܹ/ݾLuc ܪȱ L[ĨP?xO_ڹo  ʤ  Y YoܹݾЇ`TP@xL` Ιϙ_oܙݙᙯ` ??<<<<<<<0UUUUUUUUWB oTMɅ"3J[NSJIfmzq# [$NYP;#o6#"#!0 9@0Ӷ:Pyإ<[(N>W']5Kgvq7ϠGX͠LϠ٠SGϠDĠHSĠNSĠTĠ 5EMҠL Šō?FِLϚΠ κ f ٢  ٦Τ ȹɀI ȄȹH h3 oLP O䯭䮡𥴳\@`` ~3`Gg壡yi壡yi` @Gh X{gggggg'(dgxkg~9g'7(*䮥G 0 #gMghghPcQ)Wqqqqhhq`uuuQ줰䮲륥Q9O/Q) WjB`O~5'Q 䯭䮡ޜݜݞGg` ` `嶡䡯z~" `` Oڵw۴Nv L`xw8OPL# (` 40!(L 4LdF`  %L"wL{ TL~&&&ڥې څΈ` l 4Ȑ,` 40L 4Ȑ-` 4(L(n ㊨ rLa ?&0ΰ` Δ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[L JLKMMLILLILLLLy 2L,PQ܅x݅yL آ8ЕNЕKʵ˕ە LkLMNܕ`LΥΥLMLʥMː ʥ˰JυKL  8Mϕڥ۰եڅʥۅ , ` :L΄<Ȅ>=?`ʕ>?>`8M˕   , ` L:L``F`$ ܪȱ 婠Lܤ`Ś25 a0 穠LJKH۰hЅѠȱ0@ȱHШhh0J L赟0L0ܤ } L赟L0ܤ } L ` ` [ S oP YVPL6 O 5OPL Ι_LfP0Q@PPxA@QPa`qp`HP8εxh`ɅLLHxܥyݥPQLuƵPxLhQεyϱΠ L 4) ؘ 甠` uHɃLh` ☪ T`  甠`ѥ΅ ΅ҥυө 甠0ХҠ ӕ "L 4i` F`ٚ .L 4 `$$L$Ն$L,L 8!$`L# ȱ0` 4 `u` 7$ 8`0 &&` { %Ppĥ uv` 2e   %F8 2 8Hh&&&&& 0hhI`LJ?>ʊ:>Ș;k/=:   S;:L 4 40K14 L= BC D..=D5֤4 J :3 g ɠɤ ɓՊ x= 4   &B&C= 44ݴ 4ݺ ɤ4&D ?5=ɥD 5 5 D4ɻɍЀL\ɠ` }Ɏ$ ``LXWVhY `XWYHV(` Jhh LH) JQ JJJH`HJ`hh ?l8e` %GQ/[҅n3peʵ``` f f` &L L fLC`8i`uu  ee`` ` 0` ` ` 5I` 5Iй` f f`LJ G(i.&E0%.Q&&` , iH h-`/'-'0 (`HJ) 'h)i& &&`0i)0 00`J G&(JJJJ)`:; H:J jɢ )Jb y.)/) JJJ Ȉ` H:  J/Ȑh,--&,*i H/.  `0 .: VȘ L `8/;e:` T0 "T3  T3  T; "D3 D"D3 D"D3 "D3 &1!YMJؤ#]#)i#$S#$S[[i$$)|mi)S4i#bZH&bTDThDt(ntJrtttrDh2"&&rr&HDD h,h-<:B/ Y`EL\lY@5)I:< ?L<EhH 0l( Lh:h; LehHh:h;/ V; THH::;:-H,H E@A  J 0`: V:8 J8L Lӭpd`HVTQ PS 6" (!#%L" PJ TuVTvP` P&Q&R&S8RTSURSP`/T P 8/`HJ) )h)i( ((`ɇ@ 0`$($$!f`ɠɍZɊZɈ$!$$"% %% e (`I(ii,i\$%H $ hi#ʥ"%$$%%#%"H $(*)+!hi# H $(*0 $(!`8Hh`BC<>=?<=`K i! Ȉ2 ,`H h*:` `E/E//`$(H)? @(hl8NO,(,` , ɛ`2H2 h2Ɉɘ  : 3  5ɕ()ߝɍв [=< @L< >=?<) < `JJJ>Ie@@A`41`>BD`8>6>) `LL u ?l:L4 uLCL@ 'A&?1?=A>?I i`HH11`쩻듧ƙɾ5Ö+]̵Y~~բժժժ֪՚p@U*}{w+U֪ժժժժժ@ժwժ՚~|@U*}cq+Uժժժժժժ(D*ժ~G~@Gxa|c@U*cq/U֪ժժaGߪժժЪժתښ@@O`c>@@ժժժժתժ׺@U*cq/U֪ժժ;3|ժժժժժժժ@@U*uo}+Uժժձ$Jj*)Fձ@U*?o=/U֪ժժc=_תժժժժժժժժ@U*ucq+Upx#$}*@غ@U*cc/Uժժժկժժժժժժժ֚x@U*}cs+U0 2U Lں@U*o{?U֪ժժժժժժժԪժժՀժժ՚@`gp`xxw@U*}ss+U0@$*U Pں@Ujac?U֪ժժժժժժժժժբՊժժת՚x|A~~?|ap@U*}cq+U֪ժժժժժ|ժժժ՚?@U*}cq+Uկժժժժժݪ(P ժ_ښ@>@Opa~@@U*cq/U֪ժժaO߮ժЪժժՀժժժښ?@@O`c>@U*U*U*Uժժժժժ:կ@U*cq/U֪ժժ;pժժժժժժժ@@U*uo}+UժժժߪՊ"*)@U*cc/U֪ժժ?תժժժժժժժժp@U*ucq+Uz  ֪*@@@U*cc/Uժժժժժժժժժժժ֚?|@U*}ss+U0#U*Rj E@@@U*o{?U֪ժժժժժժժԪժժժժժ՚@@gp`xx@U*}{w+U䋑U*vn %D@Ujac?U֪ժժժժժժժժժժժת՚`p~x?pp@U*}ss+U֪ժժժժժߪ(pժժժ՚|@U*}cq/Uժժժժժݪ(Pժժښ@@Opc@@U*cq/U֪ժժ9xC;vߪժԪժժՀժժժ~``Gpc|@U*U*U*Uժժժպ تիժ׺@U*cq/U֪ժժ>ppժժժժժժժ@@U*uo}+Uժժժ(^j*)տպ@U*cc/U֪ժժӼ_֪ժժժժժժժժښx@U*ucq+Up @"*%Dغ@U*cc/U֪ժժժժժժժժժժ֚~xx|pp@U*}{w+U0 2W @غ@U*o{?U֪ժժժժժժժժԪժժժժժ՚@@gp`xx~@U*}cq+U0*U E Cں@Ujac?U֪ժժժժժժէݪժתժժ՚xp@@@U*}cq+U֪ժժժժժժժ *x`ժժժ՚p@U*}cq/Uתժժժߪ(@ժժښ@@O`c~@U*cq/U֪ժժ p8s~ߪժժժժ݀ժժժ|qpGxa|@U*U*U*UժժիժՊ"ߪů@U*?o=/U֪ժժ8w~ժժժժժժժժ>@@U*uo}+Uժժݪ N*)+@U*cc/U֪ժժժպ_֪ժתժժժժժժޚx@U*ucq+U02&f2 ?@@y@U*cc/U֪ժժժժժժժժժժ֚~px@x?p@U*}cq+U0 U*^j B@U*o{?U֪ժժժժժժժժժЪժժժժ՚@@gp`xx~@U*}cq+UĈV*U*Uj E@@Ujac?U֪ժժժժժժժ(תժժ՚|@U*}ss+U֪ժժժժտժժժ ժժժժ՚|`ժժժ՚@U*}cq/UߪcתժժժתTժժښ@@O`g_@U*cq/U֪ժժ;~;r?תժժժժ?ժժժxxC|ax@U*U*U*U:ժժ׮ժ$ֺ@U*?o=/U֪ժժOw=֪ժժժժժժժ@U*uo}+Uժնު J*)ժպ@U*cc/U֪ժժժժ_֪תժժժժժժ֚x@U*uss+U00$6@$́1(Dz@U*cc/U֪ժժժժծժժժժՂժժ֚?xsxp|p@U*}ss+U0 *] %Aغ@U*o{?U֪ժժժժժժժժժЪժժժժ՚@@gp`xx|@U*}ss+Up*U*U*U*U*U %\kں@Uj!" U֪ժժժժժժ*իժ՚x@U*}cq+U֪ժժժժժժժժ *ժժժժ՚`c>8|`ժժժժ՚@U*}cq/UժxӪժժתժժښ@@O`g~?p?@U*cq/U֪ժo;E!sժժժժժժժժ`?^Aw?@`@U*UjU*UժժժՊ *)@U*?o=/U֪ժժgw=;`תժժժժժժժժ@U*uo}+Uժժo |K*)ժ@U*cc/U֪ߪժժժ_ת߫ժժժժժժ֚x@U*}ss+U0 "1E@@U*cc/U֪ժժժժժժժժժՂժժ֚pCp@xp TO CONTINUE";:35,22:70 5,39:6,1:7,25:(HM108)C: :2040Z ****************q * TERMINATION * * MODULE * **************** : (HM):HM1189,LB:1017,191:1018,157: **************** * PAGE TWO ND-BY":* D$"READ "TF$:HM46:250,160K (64435)6Ĺ38600,176:3100 :"DO YOU HAVE LOWER CASE?(Y/";::"N";::")";:2500:(KB128)"Y"ČHM357:250,32 D$"CLOSE":TF1& 251,21:23:" PRESS TO EXIT READ MODE":10);"KB195ė::D$;"CATALOG":3550: 'C'[HKB205ĺ" M":D$;"BRUN MENU 4.0":: 'M'vR(KB128)"R"ė:3000\(7);:2090 **************** * KEYBOARD * * INPUT MODULE * **************** T1āI1300 KB(1================"U 12:8:"'CALL 1016' FROM BASIC":8:"'CONTROL-Y' FROM MONITOR"19:"=RUN MENU PROGRAM =CATALOG DISK"::"=READ ";:TF$;:" =QUIT TO BASIC" 23:7::"PRESS LETTER FOR SELECTION";:*25004KB209ī3500: 7:"";+ h25001 rH  ****************_  * MAIN MENU *v  * SECTION *  **************** :TI$" APPLE-DAYTON DISK-OF-THE-MONTH ":5000:TI$VO$::50009:8:"TO RE-RUN MENU PROGRAM":8:"======7:30":= 6"CONTACTS-":"PRES- STEVE ALLEN, (513) 253-0645"h @"SECY- BOB RENNARD, (513) 426-3579": J"OTHER CLUBS- NEWSLTR & SOFTWARE EXCHG":"WELCOME; CONTACT SECRETARY"::"APPLE-DAYTON INC., P.O. BOX 1666," T"FAIRBORN, OHIO 45324"! ^24:"THE APPLE USERS GROUP OF DAYTON, OHIO":h "GOAL- PROMOTE THE INFORMED USE OF APPLE":"COMPUTERS": ""MEMBERSHIP- OPEN, $5 INIT + $18/YR":"RECV NEWSLTR & ELIG TO BUY DISK-OF-MONTH" ,"MEETING- 2ND THURS EACH MONTH, WRIGHT ":"STATE UNIVERSITY ,A"HM:LG1080, .1090:LOGO NOT IN MEMORY; 8T11:2500D BT10L L:V V1500` `4000j j2000  ****************  * APPLE-DAYTON *  * CLUB INFO *  * SECTION *  ***************** :13::" APPLE-DAYTON ":::43,NOVEMBER 1983"+ TF0:TEXT NOT LOADEDe HM((990)7)256:LB(HM1189):HM1188,0:HM1189,0 LG0:DEFAULT TO LOGO NOT LOADED :((12290)(8800))(12000)Ĺ16304,0:16302,0:LG1 D$(4):D$"NOMON C,I,O": $D$"BRUN A-D HELLO.OBJ  ****************/ * APPLE-DAYTON *F * HELLO *]( * INCLUDING A *t2 * TEXT READER *< * MODULE. *F * JUNE 1983 *P * TED ROSE *Z ****************d6400TF$"A-D VOL 43" ,VO$"VOLUME        RESS ANY KEY TO CONTINUE>";% h2500+ rB  ****************Y  * MAIN MENU *p  * SECTION *  **************** :TI$" APPLE-DAYTON DISK-OF-THE-MONTH ":5000:TI$VO$::5000 9:8:"TO RE-RUN MENU PROGRAM":8:"============7 6"CONTACTS-":"PRES- STEVE ALLEN, (513) 253-0645"b @"SECY- BOB RENNARD, (513) 426-3579": J"OTHER CLUBS- NEWSLTR & SOFTWARE EXCHG":"WELCOME; CONTACT SECRETARY"::"APPLE-DAYTON INC., P.O. BOX 1666," T"FAIRBORN, OHIO 45324" ^24:7:" BT10F L:P V1500Z `4000d j2000{  ****************  * APPLE-DAYTON *  * CLUB INFO *  * SECTION *  ****************$ :13::" APPLE-DAYTON ":::"THE VEMBER 1983% TF0:TEXT NOT LOADED_ HM((990)7)256:LB(HM1189):HM1188,0:HM1189,0 LG0:DEFAULT TO LOGO NOT LOADED :((12290)(8800))(12000)Ĺ16304,0:16302,0:LG1 D$(4):D$"NOMON C,I,O": $D$"BRUN A-D HELLO.OBJ,A"HM:  ****************/ * APPLE-DAYTON *F * HELLO *]( * INCLUDING A *t2 * TEXT READER *< * MODULE. *F * JUNE 1983 *P * TED ROSE *Z ****************d6400TFADVOL43 ,VO$"VOLUME 43,NO        ` APPLE-DAYTON PROGRAM LIBRARY L(OAD R(UN K(LOK U(NLOK X(ALL C(ATL D(EL V(RFY S(TOP Q(UIT VOL PG OF SECT-FREE N(DRIV ĿѕH!ɾL [ Q ԧLLJJJJ 0 0` [$ B  i&e L`$  ɍ ` X :$   LѕL` 8`ة;^Z_[` ` 9 X΅  [$ `( `0 Lee`8 ` :8` ^r67 Qx`4 N [ = X @^8JJJJi 0΍4`67LQ S TLQHɍh` 8 iiLح) 0L{L@^    [  Ux s r $$ a ` L  ` `ii LY/NOMONSTART ALENGTH Lx  m&NmJnm0  з0MLH c _ XHL [  ؗ  Ж mL c _ Ҡ [ C0  3  $ S!  [$ ЖLH ؗ Ж  L{И~Д [  ؗ+ $$$o  Ж 4<=>?BC ,ڍ ԧLS T  m鷽 ݌ 0 X '1  x)ȹx)ȹx)    [$ $ q L {{l   Ġ̠Ժݍ場򠱹ĠŠӠЬ̠ŠŠˠŬҮʠºݬҮàԺݠŮƠԺݠ宠̠ũ뮮󮠠󮠠䮠嬠宠宍կҠݍ栨󢩮¯ڠ ݬ箍կ٠Šݍ䠢󢬠Šݬ˭ĠݠΠºݬǯˮկ¯ڠԭӠݍ󮠠宠󮠠˭͠ݬ˭Ԡݬ宍ǯˠݍ箠ݍ͠뮠ҮʠºݬŠݍ󮠠䮠ĮӠºݬ宍ǯҠŠ뮠嬠宠ŠԠؠԺݬ宍ǯƭ̤ĮՠºݍĠﻠ̤ˮ¯ŠԠؠݍŠΠ˭ƭŠȠŠҠĠϠݍՠĠϮʠºݍ廠          Ӱٸ ԍͺ̭ų̭č΍׍¯ŠԠجӶıֲԱңҕҕɾɍ`ᕊHH@ӕLҕɍ ԕ֕ԕzՕԕוՕh • •ՕڕHەI ŕٕٕɺٕؕؕ •ٕ • •ܕHݕI ŕ • • •ԕhhҕlޕH •`T$MG$:2275:11:T$"IN SLOT "LH$" DRIVE "DH$:2275:2355:E0:60000Y"PN$"":PD$"""3000:CL$::2550:12:T$"YOUR PROGRAM IS NOW BEING LOADED.":2275:D$;"RUN";PN$::" DISTRIBUTED BY OXFORD APPLE USERS GROUP JAN 82:"PRESS 'RETURN' KEY TO CONTINUE.";:34,24:35,24:1:D$;"PR#";P1:PI$"Y"ĺIA$;LN$;!" ":BA12,(43603):BA13,(43604):54,0:55,149:56,(43605):57,(43606):1002:(4);"EXEC LISTER.EXEC":G"`SD1:VL$"":3950:E1ĉ:PD$"THE LISTER":2550:10:,2:711I,0< jBA3,4:BA14,0:BA2,0:BA6,176:BA7,176 r:2550:12:T$"TURN ON THE PRINTER AND ALIGN PAPER.":2275:2325:2355:E7525:2:2600:10:T$"INSERT YOUR PROGRAM DISKETTE":2275:11:T$"IN SLOT "LS$" DRIVE "DR$:2275:2325U!23:4T";:L10L263999ĺ6L10L263999ĺL1$;",";L2$p"PR#0":(4);"CLOSE LISTER.EXEC":BA38354:BA5,LP6 bBA4,L:BA1,FS:I1(PZ$):611I,((PZ$,I,1))128::BA8,100:BA9,2:611I,0:I1(SL$):711I,((SL$,I,1))128::BA10,200:BA11 IN SLOT "LH$" DRIVE "DH$(7)(34):B$"LOAD"A$",S"LS$",D"DR$",V"VO$tF3000:D$;"DELETE LISTER.EXEC"PD$;"OPEN LISTER.EXEC":(4);"WRITE LISTER.EXEC":"INT":"HIMEM:-27392":"1CALL-741:POKE34,22:CALL-936:END":"RUN":"NEW":B$"LISLH$" DRIVE "DH$:2275:2355:E0:7645IA$(9)(1):LN$(1)L$"N":PZ$"NAME.."A$" DATE.."DA$" TIME.."P9$" PAGE..":SL$"STARTING LINE.."L1$" ENDING LINE.."L2$QMA$"PRINT"(34)(7)" "MG$(34):D1$":PRINT"(34)" D$LP$:PT2:PL2:2250:LP$RS$:LP(LP$):E60000:(LP6)(LP99)ĺG$:7630T$"IS THIS ENTRY CORRECT? ":24:2275:RD$"":2400:E60000:RS$"N"Ģ23:2600:753023:2600:3000'SD1:VL$"":3950:E1ĉ:2550:10:T$MG$:2275:11:T$"IN SLOT "18:1:"PRINTER LINE LENGTH ";:RD$L$:PT2:PL3:2250:L$RS$:L(L$):E60000:(L40)(L255)ĺG$:762820:1:"DO YOU WANT PAGINATION? ";:RD$FS$:2400:FS$RS$:FS(FS$"Y"):E60000:FS$"N"Ģ22:1:SP$:7631K22:1:"PRINTER PAGE LENGTH ";:R$RS$:E60000:L2(L2$):(L263999)ĺG$:7624E(L2L1)ĺG$:762014:1:"PRINTER SLOT ";:RD$P1$:PT2:PL1:2250:P1$RS$:E60000:P1(P1$):(P11)(P17)ĺG$:762616:1:"PARALLEL INTERFACE CARD? ";:RD$PI$:2400:PI$RS$:(R27)60000j0a10:23:"VOLUME ";:RD$VO$:PT2:PL3:2250:VO$RS$:E60000:VO(VO$):(VO254)ĺG$:760012:1:"STARTING LINE ";:RD$L1$:PT2:PL5:2250:L1$RS$:E60000:L1(L1$):(L163999)ĺG$:7620.12:23:"ENDING LINE ";:RD$L2$:PT2:PL5:2250:L2:7570;((RS$,1))65((RS$,1))90ĺG$:RD$RS$:757010:1:"SLOT ";:RD$LS$:PT2:PL1:2250:LS$RS$:E60000:LS(LS$):(LS1)(LS7)ĺG$:758510:12:"DRIVE ";:RD$DR$:PT2:PL1:2250:DR$RS$:E60000:DR(DR$):(DR1)(DR2)ĺG$:759/YY) ";:RD$DA$:2450:DA$RS$:E60000~5:1:"TIME (HHMM) ";:RD$P9$:PT2:PL4:PZ1:2250:P9$RS$:E60000:(P9$)2400((P9$,2))59ĺG$:75507:1:"PROGRAM NAME ":8:6:PT0:PZ0:PL30:RD$A$:2250:A$RS$:E60000:RS$Q$RS$S$ĺG$:RD$RS$47095)16):LS$LH$:DH$((47096)):DR$DH$:VH$((47094)):VO$"0":D$;"BLOADLISTER.OBJ"`SD1:VL$"":3950:E1ĉ:2550:10:T$MG$:2275:11:T$"IN SLOT "LH$" DRIVE "DH$:2275:2355:E0:7520eDA$TD$::2550:2325'j3:1:"TODAY'S DATE (MM/DD38387,166:38388,223:38389,154:38390,72:38391,152:38392,72:38393,96:4500VL38144:PZ$"":SL$"":4900:P9$"0000":L$"80":L1$"0":L2$"63999":PD$" OXFORD APPLE USERS PROGRAM LISTER":PI$"Y":P1$"1":LP$"66":FS$"Y":LP66:MG$""XQLH$(( TO CONTINUE. ":D$;"NOMON I,O,C":OP$D$"OPEN":RE$D$"READ":WR$D$"WRITE":CL$D$"CLOSE")LF$"DATE.F":Q$"":S$" ":SP$" ":P$"..............................":Z$"0000000000":Z0:W1P*38384,104:38385,168:38386,104:1:3955D\:EL63000T$"MENU PROGRAM NOT FOUND":12:2350:60000zE0:E3090,7750,3950,8065,63000:T$"ERROR "(EC)" HAS OCCURRED. REF NO "(EL):21:2275:T$"SORRY ABOUT THAT!!!":22:2350:60000[$D$(13)(4):G$(7):PE$"PRESS 'RETURN' KEYC(222):EL(218)(219)256:38384:EC255ĺD$GEL3090E1:3095_EL7750EC6ī7760EL7750EC4ĉ:2550:T$"DISKETTE IS WRITE PROTECTED":12:2350:7520EL7750EC10ĉ:2550:T$"LISTER.EXEC IS LOCKED":12:2350:7520EL3950E:& E0:3000:RE$;TF$;",R";TR:TR$2 D$::n3000:E0:SL$Q$:TD$Q$:OP$;LF$;",S";LH$;",D";DH$;",V";VH$:RE$;LF$:SL$:TD$(SL$,14,2)"/"(SL$,16,2)"/"(SL$,12,2):SL$(SL$,11):E((SL$,1,(VL$))VL$)sCL$;LF$::3000::44990E2T))ı E0:2420:2 2225:PL8:2250:EıJ T$RS$:2425:E0ı TXPH:TYPV:TD$RS$:T$UD$" DATE IS INVALID.":22:2350:Eı TX:TY:RD$TD$:2450 936:1:T$"** "PD$" **":RLZ:2275:( 1:958: 34,Z:35,Z:33,1:32,Z:"/")((T$,6,1)"/")ın~ YM$(T$,7,2)(T$,1,2)(T$,4,2):T1(YM$):TX((YM$,T,1))48:(TXZ)(TX9)ı :MM((T$,1,2)):DD((T$,4,2)):YY((T$,7,2)):DD1MM1MM12YY70ı T(MM4MM6MM9MM11):DD(28(MM2YY(YY4)4)(MM2)(PV=3 23:T$PE$:RLW:2275:2225:RD$Q$:2250:2300:TVZ:k` 2225:PL1:2250:E(RS$"Y")(RS$"N")ıe G$;:RD$RS$:PH:PV:2400t YM$(Z$(((T$,2)))(((T$,1,2))60)(((T$,4,2))60),10((T$)Z)W,4):y E1:((T$)8)((T$,3,1);:RS$RS$R$:21601 PTZ:PLZ:PCZ:PZZ:PPZ:P 2150:EPLPF$RS$:2100V  1:868:T(33)RL:T$(T$,1,T):1(T(T$))2:T$;:RLZ: T$Q$:RLZ:TV(TV):(TVZ)2275:23:2275:  G$;:T150:T:G$;:. G$;:RLZ:2275:2050:TVTHTHT:TH:PV:((RD$,THPH1,1)".",1,PL0);:TT$Q$] R21R$(RD$,THPH1,1):2165 E(R31R44R58((RS$,1)S$))((RS$)PL(PT1))((((RS$,1)"-")((R45)((RS$Q$)(PT2)))((R45)((R48R57)((RS$)PL))))PT):EĺT$;:2160 R$(PT1):TL0TL05 kRS$Q$:PH:PV:RD$;(P$,1,TL);R pTHPH(RS$):TH:PV:R$n uT$G$:R$Q$ĺT$;:2160 zR(R$):E(RER27):ERS$Q$: R24ĺT$;:2155 R13RS$RS$(RD$,1,(RD$)(RS$Q$)):9 R8T(THPH):RS$(RS$,1,(RS$)T):):PF$(PF$,1,(PF$)TM):PF$(Z$,(Z$)(PF$)(PPZ)PP)PF$:(PPZ)2055:(PCZ)2060:PF$(SP$PF$,PLPX)(" -",TM1,(PZ)): *PF$(PF$SP$,1,PL): 4PXZ:PT12090,2075,2075:PHPX:PV:PF$;: f16368,0:2050:TL$RD$:2000:RD$TL$:TLPLTLPF$,PP):1 T$(PF$,1,(PF$)PP(PPZ)):TX$Q$~ TY$(T$,3):T$(T$,1,(T$)(TY$)):TX$TY$TX$:(T$)TX$","TX$:2065 PF$TX$(PF$,(PF$)PP(PPZ)): PX(PC(PLPP1)3(PP0)):(PZ)2010:PF$(Z$,1,PZ(PL(PF$)))PF$:TM((PF$,1)"-"#7500KTL((TL$)Z):TLāTL(TL$)11:(TL$,TL,1)S$ĂTLkTL$(TL$,1,TL):TL(TL$):TL((PF$)2):T$"0":(TL)āTL1(PF$)1:(PF$,TL,1)T$ĂTLPF$(PF$,TL):PH(36)1:PV(37)1: PF$(PF$,1,(PF$)PP)"."(          $KEY17615904$17:1:"KEY PRESSED IS ";(K)h$15:1:"MEMORY LOCATION 49152'S VALUE IS ";KEY$'K(49152):K127Ģ15:34:" ":1557$11575$622:"I HOPE THIS EXAMPLE HELPS"$;49168,0:40$@::0E" #40#34,3:-#"SPACE BAR = 160"D#"RETURN = 141"[#" <- = 136"r#" -> = 149"#:"PRESS ANY KEY TO SEE THE VALUE OF"# "MEMORY LOCATION 49152."#:"PRESS "(34)"0"(34)" TO END"#34,13:#KEY(49152)NOWS THAT A KEY HAS BEEN"!"40J""PRESSED AND IT KNOWS WHAT KEY WAS"R"40""PRESSED BY THE VALUE OF LOCATION 49152""40""FOR EXAMPLE IF YOU PRESS RETURN""40""THE VALUE OF KEY WILL BE 141""40#"HERE IS A SMALL EXAMPLTHE COMPUTER TO READ THE"!!40O!"KEYBOARD. IF THE VALUE OF THE KEYBOARD"W!40!"IS LESS THE 128 THE COMPUTER KNOWS"!40!"THAT NO KEY HAS BEEN PRESSED."!40!"IF THE VALUE OF KEY IS MORE THEN 127,"!40""THE COMPUTER K F402 K"1500 TIMES AND RETURN TO THE PROGRAM"L P"WHERE IT LEFT OFF."T U40y Z"YOU WILL NOTICE THE WORD KEY." _40 d"KEY MAKES REFERENCE TO LOCATION 49152." n40 s"PEEKING TO MEMORY LOCATION (PEEK(49152)" x40!}"WILL CAUSE "HERE ARE THE SUBROUTINES AGAIN"(20534,20:f"THE PROGRAM IS IN THIS ROUTINE RIGHT NOW."("THE LOOP IS GOING THRU LINE 20 & 30"-402"IF YOU PRESS A KEY THE LOOP WILL END."<40A"IF NO KEY IS PRESSED THE LOOP WILL CYCLE":"(A)AGAIN (S) SOFTDISK ";:A$3:A$"A"Ľ:H(4);"RUN MENU"NToTHANK YOU BERT KERSEYBEAGLE BROS SOFTWAREAND PEEK & POKE CHARTS:T$"DELAY ROUTINE":L(T$):21L2:T$:I140:"=";:I 34,4::1245 ::HERE IS A REVIEW."~40':1245R:"DO YOU UNDERSTAND THE SUBROUTINE?"y:"PRESS NO FOR ANOTHER EXAMPLE.""PRESS (Y/N) ";:A$:::A$"N"İ128012:"WOULD YOU LIKE TO SEE THE PROGRAM""AGAIN OR RETURN TO SOFTDISK?"!WAS NOT EVEN 1 SECOND."CB:"I JUST POKED 49168,0 AND WE ARE IN"pG"SUBROUTINE 920 RIGHT NOW AND IT WORKS"L49168,0:920V:"REMEMBER, CLEAR THE KEYBOARD STROBE"`"BY POKING 49168,0, OR YOUR ROUTINE"j"WILL NOT WORK."o40t:"920020:1:" ":V50:"WE WILL ENTER THE ROUTINE "A$" SECONDS TO SUBROUTINE 920":B$" SECOND TO SUBROUTINE 920"$I611:23:1:I2ĺI;A$'I2ĺI;B$)I:920.255:34,3::58"SEE, THE DELAY :'I11000:KEY(49152):KEY127ı-:6I:H:5:920940U34,14:}"YOU ARE IN THIS DELAY RIGHT NOW.":"WE WILL SLOW DOWN THE SPEED AND ""GOSUB 920 AGAIN TO SHOW IT WILL NOT WORK":"PRESS RETURN IN 5 SECONDS":CORRECT!!":>:"IF YOU DON'T CLEAR THE KEYBOARD STROBE"YH"THE ROUTINE WON'T WORK."R"THE KEYBOARD STROBE MUST BE CLEARED"W"AFTER EACH TIME IT IS USED, BY A"z"POKE49168,0..."201000 DELAY LOOP WITHOUT POKE 49168,0"# "WHAT DOES POKE 49168,0 DO"M:"(A) CLEARS MEMORY LOCATION 49168"u:"(B) CLEARS THE KEYBOARD STROBE":"(C) STARTS THE DELAY LOOP" :"ANSWER--->";:A$::A$"B"ī820%:"NOPE. IT CLEARS THE KEYBOARD STROBE."*830 4:"21L2:T$34,7:E"WHAT DETERMINES THE LENGTH OF THE DELAY"e:"(A) LENGTH OF THE LOOP":"(B) MEMORY LOCATION ":"ANSWER -->";:A$::A$"A"760650:"CORRECT!!":"THE LONGER THE LOOP THE LONGER THE DELAY":40THE LOOP EXECUTES."C"THE LARGER THE LOOP THE LONGER THE DELAY"K20W34,3:b1245:"HERE ARE THE LISTINGS AGAIN,""NOTICE THE DIFFERENCE BETWEEN THE LONG":"AND SHORT ROUTINES."20T$"A LITTLE QUIZ":L(T$) +z#?XIJ   ŮƠ Ġ̠ Π կ¯ڠԭӠ6!¯ڠ "կ٠ŠկҠҮʠҮà ǯҮŠҮʠǯˠ˭͠˭Ԡ˭Š˭Ġ ĠϠ ĠϮʠՠ¯ŠԠؠŠԠؠǯƭŠĮӠ 8ؑi=iagj`Ȅ 0`8aa```VɍȄ e 閥%з ݖɛ, X 閥0 ,,`` I$:2O * * COMMENTS *3 * IF APPLICABLE*J ****************| GOSUB 560 REMOVE REM FOR WAIT FOR KEYPRESS ******************* * TITLE CENTERING * * MODULE * *******************(20(TI$)2):TTHER> TO CONTINUE";:35,22:;0 5,39:6,1:7,25:(HM108)G: :2040^ ****************u * TERMINATION * * MODULE * **************** : (HM):HM1189,LB:1017,191:1018,157: **************** * PAGE TWAND-BY":+ D$"READ "TF$:HM46:250,160O PEAK(64435)6Ĺ38600,176:3100 :"DO YOU HAVE LOWER CASE?(Y/";::"N";::")";:2500:(KB128)"Y"ČHM357:250,32 D$"CLOSE":TF1& 251,21:23:" PRESS TO EXIT READ MODE":10);"KB195ė::D$;"CATALOG":3550: 'C'\HKB205ĺ" M":D$;"BRUN MENU 4.0":: 'M'wR(KB128)"R"ė:3000\(7);:2090 **************** * KEYBOARD * * INPUT MODULE * **************** T1āI1300 KB(ə ` APPLE-DAYTON PROGRAM LIBRARY L(OAD R(UN K(LOK U(NLOK X(ALL C(ATL D(EL V(RFY S(TOP Q(UIT VOL PG OF SECT-FREE N(DRIV ĿѕH!ɾL [ Q ԧLLJJJJ 0 0` [$ B  i&e L`$  ɍ ` X :$   LѕL` 8`ة;^Z_[` ` 9 X΅  [$ `( `0 Lee`8 ` :8` ^r67 Qx`4 N [ = X @^8JJJJi 0΍4`67LQ S TLQHɍh` 8 iiLح) 0L{L@^    [  Ux s r $$ a ` L  ` `ii LY/NOMONSTART ALENGTH Lx  m&NmJnm0  з0MLH c _ XHL [  ؗ  Ж mL c _ Ҡ [ C0  3  $ S!  [$ ЖLH ؗ Ж  L{И~Д [  ؗ+ $$$o  Ж 4<=>?BC ,ڍ ԧLS T  m鷽 ݌ 0 X '1  x)ȹx)ȹx)    [$ $ q L {{l       ɍ  ` @ ``$ $ $I$ $) ʩ`@ ȱ`'$ɍI$ $)?)ߑө` NEW RECORD -":V3:H1:1000:L$(J)"D"K$:NN1:KNJ21:L$(K)L$(K1):K`+L$(J1)T$:1250J::"ENTER NEW RECORD -":V3:H1:1000:NN1:L$(N)"D"K$:125NI::"CATEGORY NOT FOUND - PRESS 'RETURN' ";Z$:125,X:(5):"ENTER NAME OF CATEGO:"RECORD NOT FOUND":::"PRESS 'RETURN' ";Z$:125 :(5):"ENTER CATEGORY IN WHICH":(7):"RECORD WILL BE PLACED -":V7:H25:1000:CA$K$:I2N:(L$(I),1)"*"ī590 CA$(L$(I),2)ī590 JI1N:(L$(J),1)"*"ī560LT$L$(J)::"ENTER:"1. DELETE THIS ";XX$:(8):(10):"2. FIND NEXT SIMILAR ";XX$:(10):(10):"3. TERMINATE DELETE SEQUENCE":(13):(5):"ENTER THE NUMBER OF YOUR CHOICE - ";B$:B(B$) B450,470,125:425 NN1:JIN:L$(J)L$(J1):J:125 II1:4153 I::$:125! ,XX1:XX$"RECORD":400< :XX0XX$"CATEGORY"U 930:::ZZ0ī125 "ENTER KEYWORD FOR SEARCH - XXXXX":V3:H28:1000:ICOUNTER2 IIN:K$(L$(I),2,5)ī480 :(L$(I),2):(4):(5):"CHOOSE FROM THE FOLLOWING -":(6):(10):(5):"ENTER THE NUMBER OF YOUR CHOICE - ";A$:A(A$):A240,300,400,500,600,2000,700,800:125 :I2N:(L$(I),2):(L$(I),1)"*"ĺ (L$(I1),1)"*"ī270 275 (24):"MORE TO COME, PRESS 'RETURN' ";Z$: I:(24):"PRESS 'RETURN' ";Z:(7):(10):"2. DELETE A RECORD" (9):(10):"3. DELETE A CATEGORY":(11):(10):"4. ADD A RECORD":(13):(10):"5. ADD A CATEGORY":(15):(10):"6. RE-ORDER A CATEGORY"_ (17):(10):"7. HARDCOPY LIST":(19):(10):"8. EXIT FROM THE PROGRAM":(22)+jL$(100):D$(4):D$;"OPEN SAFE DEPOSIT BOX":D$;"READ SAFE DEPOSIT BOX":L$(1):N(L$(1)):N1ī100FI2N:L$(I):IdD$;"CLOSE SAFE DEPOSIT BOX"! }:ZZ0:XX0:XX$"":(3):(5):"CHOOSE FROM THE FOLLOWING -":(5):(10):"1. SCREEN DISPLAY"      ` APPLE-DAYTON PROGRAM LIBRARY L(OAD R(UN K(LOK U(NLOK X(ALL C(ATL D(EL V(RFY S(TOP Q(UIT VOL PG OF SECT-FREE N(DRIV ĿѕH!ɾL [ Q ԧLLJJJJ 0 0` [$ B  i&e L`$  ɍ ` X :$   LѕL` 8`ة;^Z_[` ` 9 X΅  [$ `( `0 Lee`8 ` :8` ^r67 Qx`4 N [ = X @^8JJJJi 0΍4`67LQ S TLQHɍh` 8 iiLح) 0L{L@^    [  Ux s r $$ a ` L  ` `ii LY/NOMONSTART ALENGTH Lx  m&NmJnm0  з0MLH c _ XHL [  ؗ  Ж mL c _ Ҡ [ C0  3  $ S!  [$ ЖLH ؗ Ж  L{И~Д [  ؗ+ $$$o  Ж ӠҠЍŧӠԍٍĠŠǍ̠ҠӍŠӍҍŠħӠ٠ōŠϠ̍ĠϠōӍӍ٠ʮ̠ɍŠĠ̍Ԡ̍ȠӍ٠ʮ̠ɍԠ̍Š̍ħҧ̍ӍIJ٧ӠԠӍı 13):V(I)V(I)13(S(I)14)$ r50004 C10İ9500 1:21:"[<- ->] MOVE POINTER [ESC] = QUIT":"[SPACE] PLAY CARD TO OUTPUT FILE [1-9-0] PLAY CARD FROM DECK":7)"THE DECK HAS ";::C1;::" CARDS LEFT "; 49168,0 49152,128 2,158266,158266,12,1:C135:V(C)D(C):D(C)0< S(C)14g "V(C)13S(C)S(C)1:V(C)V(C)13:290o ,IC 65000::7000 @C0:D(52)0400:DEAL A CARD JCC1:C152C:D(C)0330 TI0:S(I)14 ^V(I)D(C):D(C)0 hS(I)S(I)((V(I)1)32:A658:1:0:CU1 (300006 214:" SHUFFLING "I R(((1)2))U C152q R(52(1)1):RC235 RTDK(C):DK(C)DK(R):DK(R)RT:D(C)DK(C):D(R)DK(R) C)"*";:768 :P1500:::0 34,20:::6:0,00,159268,159268,02,0 ::24576]5:"DO YOU WISH TO SEE THE INSTRUCTIONS? N";:38:A$:A$:A$"Y"İ20000~:"LET'S START THE GAME":5(4)"BLOAD CARD.SHPS,A$4000":232,0:233,64 D(52),DK(52),V(35),S(35),X(42),Y(42),C$(13):L768:A18:A221:A327:A447:A5     ӠҠЍŧӠԍٍĠŠǍ̠ҠӍŠӍҍŠħӠ٠ōŠϠ̍ĠϠōӍӍ٠ʮ̠ɍŠĠ̍Ԡ̍ȠӍ٠ʮ̠ɍԠ̍Š̍ħҧ̍ӍIJ٧ӠԠӍı2115B Z$"N"ī2999!L 2310* 125)TT0TTKP1ī21156NN(NN$):NN0NNKP1ī2115GTTNNī2999TM$L$(TTP):IITTPJ2:L$(II)L$(II1):II:IIJ1NNP11:L$(II)L$(II1):II:L$(NNP)TM$ :III1J1:(L$(II),2):II:(24):"FURTHER RE-ORDERING? (Y/N) ";Z$:Z$"Y"CATEGORY NOT FOUND - PRESS 'RETURN' ";Z$:2999Q JI1N:(L$(J),1)"*"ī2110X4J`>PIC:KI1J1:KP10ī2160\KP;" ";(L$(K),2):2170p" ";KP;" ";(L$(K),2)zK:(23):(32):"OLD # ";TT$:(24):(32):"NEW # ";NN$:TT(TT$):K$"":G$"":(V):(H)AG$:G$;:G$(8)(K$)2ī1010gG$(8)K$(K$,((K$)1)):1020{G$(13)ī1080$K$K$G$:10208K$""ī1010B:(5):"ENTER CATEGORY -":V5:H18:1000:I2N:L$(I)"*"K$ī2080.I::"0XX0ī970:(5):"ENTER CATEGORY IN WHICH":(7):"RECORD IS FOUND -":V7:H19:1000:CA$K$:I2N:(L$(I),1)"*"ī960CA$(L$(I),2)ī960COUNTERI1:970I:(10):"CATEGORY NOT FOUND":(12):"PRESS RETURN -";Z$:ZZ1:D$;"OPEN SAFE DEPOSIT BOX":D$;"DELETE SAFE DEPOSIT BOX":D$;"OPEN SAFE DEPOSIT BOX":D$;"WRITE SAFE DEPOSIT BOX":L$(1)(N):I1N:L$(I)(34)L$(I):L$(I):IpD$;"CLOSE SAFE DEPOSIT BOX":::(27);(69):" ";(L$(I),2):(27);(70):M0:78X NUMBER 81";:60(TD$));TD$:(18);:I2N:(L$(I),1)"*"ī900_MM1:(M2)(M2)ī770z(L$(I1),1)"*"ī765INī765" ";(L$(I),2);:780" ";(L$(I),2):78039(L$(I1)));(L$(I),2) I:(12);:0:125 RY -":V5:H26:1000:NN1:L$(N)"*"K$:125:"ENTER TODAY'S DATE -":V1:H22:1000:TD$K$:1:(9);"80N";:(14);(27);(69);" SAFE DEPOSIT BOX INVENTORY":(20):(27);(70);(15);" OXFORD BRANCH OF BANK ONE OF MIDDLETOWN - ";B"BO???---m---??????--m--????-m-??m"$$$$$$ H9;--M)-??????---m---5??????7---m---5??????7---m---5??????w--- ---????w-- --??w- -w 666666666666v$$$$$$$$$$$$$d66666666666666.$$$$$$$$$$$$$$,66666666666666.$$$$$$$$$$$$$$,666666666666$$l66*.%%'%'-8?*?(<,<,,-.>.>6-..>'%'%'m577$$$$$$$m-??-m--????--m---??????.--m---5??????.--m---5??????-m M-;m-$$$$$$-?- -5??.m-;-mi-????--- ---5??????.--m---????-mi-m-"$$$$$$$m??-m-????--m--??? 5l|!0* S&6Kaw4I\q;,<,< %.>.>.(,557777--%-.>657?<:'%% 5757---(757?< (<,--557?<,<,< -.8,-57>>.''%<,,557.>>''%-.>.>.?<$<565-e$$ -66?     ]:::X(0)120:Y(0)123,uJ152:DK(J)J:2yAh49152,128GPÀ_ ADAPTED FROM ** ONE FOUNDATION ** - BY PAUL M. ZELMAN -` COMPLETELY REWRITTEN 5/18/83 BOB RAGSDALE  F OUR,FIVE,SIX,SEVEN,EIGHT,NINE,TEN,JACK,QUEEN,KINGDuI768789:J:I,J:: 160,1,162,0,138,24,233,1,208,252,141,48,192,232,224,125,208,242,136,208,237,96 uX102:X201:X306:I1X37X214X1:X(I)1232X3:Y(I)1015(2X1X2)30(X12)(X21):":HN"IF A CARD CANNOT BE PLAYED TO THE FILE, THEN A CARD IS DEALT FROM DECK TO THE FILE.":"IF THERE ARE NO CARDS LEFT IN THE DECK THEN YOU LOSE."RN24:"PRESS ANY KEY TO START";:49152,128:49168,0::0uI113:C$(I):1:u ACE,TWO,THREE,FSEVEN COLUMNS TO THE OUTPUT PILE.":"ONLY THE CARDS AT THE BOTTOM OF EACH COLUMN IS PLAYABLE">N"A CARD CAN BE PLAYED TO THE OUTPUT FILE IF IT IS ONE NUMBER HIGHER OR ONE NUMBERLOWER THAN THE FILE CARD."::"SUITS ARE IGNORED AND THE ACE EQUALS ONE!":6025 N:*N"THE DECK IS SHUFFLED AND DEALT FACE UP IN 7 VERTICAL COLUMNS OF 5 CARDS EACH.":"THE NEXT CARD IS THEN DEALT,FACE UP, UNDER THESE CARDS TO START THE PILE."/Nb4N"THE OBJECT OF THE GAME IS TO TRANSFER ALL THE CARDS IN THE   AND STILL HAD "C1" CARDS TO PLAY!":6025%TL0:SP0:I17:J511:JI7(J1)I:V(JI)0TLTLJ:J1:V(JI)V(0)1V(JI)V(0)1SP1:I7&%:0%SP1ı%::21:"YOU LEFT ";:N1TL:10:N;:768:W1500:::" CARDS! YOU LOSEA$"Y"đ:::50-::(4)"BRUN MENU 4.0"OXICU35:7:53X(I)12,Y(I):qLIOC35:4:53X(I)12,Y(I):@::"THE "C$(V(I))" DOESN'T GO ON THE "C$(V(0))"!"P13000::400(#K0:I17:KKV(I)::K0ī400,d#:21:"YOU WIN5:LS(I)14S(I)15Ē44S(I)16S(I)17Ē5PS(I)X(I)12,Y(I)25:p22:"GIVE UP ON THIS HAND? ";:A$:A$:A$"Y"A$"N"6000zA$"N"40024:"DO YOU WANT TO TRY AGAIN? ";:49168,0A$:A$"Y"A$"N"6028A$:),Y(I):V(0)V(I):V(I)0:S(0)S(I):S(I)0:I0:5000:9000BD8000X(V(I)V(0)1)(V(I)V(0)1)Ē4:18X(I),Y(I):7:S(II)5X(I),Y(I):V(0)V(I):V(I)0:S(0)S(I):S(I)0:I0:5000:9000b8000783,100:7:18X(I),Y(I):4:V(I)X(I)5,Y(I)7000:400M AA5ė::" YOU GOOFED - TRY AGAIN":P12000::400 V(CU)0ė:"THERE ARE NO CARDS HERE!":P13000::400 J28 V(JCU)0IJCU:III7:600 J7JJ7:530 0ICU8:(V(I)V(0)1)(V(I)V(0)1)Ē4:18X(IA(49152)128:49168,0/ AA4AA6Ė1:320O AA3ė:6000:QUIT ROUTINE~ AA1CU1OCCU:CUCU1:7500:7000:400 AA2CU7OCCU:CUCU1:7500:7000:400 AA1CU1OCCU:CUCU6:7500:7000:400 AA2CU7OCCU:CUCU6:7500:NX(Y):NX(Y)NX(Y)ZZYY(DL(Y)RA)8:NYNY(Y):NY(Y)NY(Y)YY:RGRA(Y):RA(Y)RA(Y)((ZZ2)(YY2)):RA(Y)0ZZ(DL(Y)RA)RG:NX(Y)NXZZ:YY(DL(Y)RA)RG:NY(X)NYYY:2NX(Y),NY(Y):2NX(Y),NY(Y):NL(Y)0:19702NX(Y),NY(Y):2040Z14:(4:1:"RANGE? ";AN$:RA(X)(AN$)::24:1:" ":RA(X)01810^RA(X)4.91790&NL(X)99:RA(X)(RA(X)20)5:NX(X)140:NY(X)95:2NX(X),NY(X):NL(X)99NXXX35blY1E:NL(Y)02040v2NX(Y),NY(Y):ZZ(DL(Y)RA)8:NX:E02060# DE100İ2490:2060F (16384)127Ĺ16384,0:1890U NL1:1720[ v X135:NL(X)0ī1760 1870 NLNL1:NL11880 LRMLRM1:LRM02060 AN$"" 24:1:"DIR.?";A$:DL(X)(A$):24:1:" "J2"DESTRUCTION":1X(X),Y(X):X(X)0:EE1:G15:I100:J10:768,I:769,J:770:I150:768,I:769,J:770:G::1:1:" ":DEDE10 T1050 ^X:DE100DE100:1650 hJ25:I70:768,I:769,J:770 r2:34:LRM;" ":24:32:DE:22:32:E;" "ZZ(A(X)RA)SP:Y(X)Y(X)ZZ:1X(X),Y(X):D1(X(X)140)2:D2(Y(X)95)2:D3(D1D2):D3151630 D315Ģ1:1:"DANGER!!":G13:I120:J75:768,I:769,J:770:I140:768,I:769,J:770:1:1:" " D315D37DEDE2 D371620 "1:1::X(X)01460 xE41630 A(X)(1)360:X(X)(A(X)RA)95:X(X)X(X)140:Y(X)(A(X)RA)95:Y(X)Y(X)95:2:0:1X(X),Y(X):E4X(X)1:Y(X)1:A(X)0: X(X)1EN(X)1:1630 0:2:1X(X),Y(X):SP2((1)DF):a Z(A(X)RA)SP:X(X)X(X)Z:136010:X1(ARA)R:X1X1X:Y1(ARA)R:Y1Y1Y:X11,Y11:A:R 140,1140,188:45,95235,95:20:1:"180":4:13:"270":36:13:"90":21:24:"0":1:32:"MISSLES":23:30:"% DESTRUCT." <21:32:"ENEMY ":2420:0:0:54,0:55,96: dX14b 1060-24:32:DE:22:32:E;" ":]$::::2220:(4);"BLOAD RADAR.OBJ":23408NL(60):LRM27:E20:NX(60):NY(60):RA(60):DL(60):3:0:0:54,0:55,96:RA57.2955795:R159520:X140:Y95:R5S20R20S13R20S10C A     ?,m8??g--? .>.>.>.>+.?<,<,<,< --.>.>.6-..%'%'%'%'--557?7-757??< <,< --.:'-<'-<'-<'- 8???J$$$56667??<,<,<,<,R,,<,<,<;.>.>...6?n$$$,6666$$$$5666->5'%%g-,$,''<2:'-<'-<''<, .$,6I???,,,,,,<,??:?(<,<,,566%$$$<56-$%7+%?,%:?g'%'%'%'--5575757-???,<,<,<,< --?76>$$,<,----5757??<,<,<,< --. 6.$$$$76>?'$<6666%$I???L-<'-<'-<'- 8???5-%%'%'%'-8?0..%'%'%'%'mI77776I???,<,<,<,< 6.$$$$5>8> 666>$$$$)6.$$$$76>''0666>$$$$J57??<,<,<,< --.>.>.--8,<>.>.>.-757??'%'%'%'--5575I7??%'%'%'%--.??7---M MM --5?????????.----MI)---5????????????.-----------???????????-------------m ---5????7--m --5??7--m --5????7---m ---5??????7----m ----5????????7-----m-----5??????????7------------???????????$6666666666666---mIII--->??;??7--mIIII)-5???.-mIIIII-5???.-mIIIII-5???.--M m)M -->?????????.----MI)---5????????????.-----------???????????--------------MII---5?????????.--mIMM --5????7--MIIII -5???.-mIIIII-5??66.$$$$$$$$$$$$$$,66666666666666.$$$$$$$$$$$$$$,66666666666666.$$$$$$$$$$$$$$,66666666666666.$$$$$$$$$$$$$$,66666666666666.$$$$$$$$$$$$$$,66666666666666.$$$$$$$$$$$$$$,66666666666666.$$$$$$$$$$$$$$,66666666666666.$$$$$$$$$$$$$$,66666666666666. $$$$$$$$$$$$ $Od d{!  d; d d{! -?O d{! -?Iv{1 v{1 v{1 v{1 v{1 v{1--?I!I;?'dIIIIIIIRIII)-$DCCCACACC[I$?;?7$6%77''',,>-  -e3--..<<>7..<<55>>>$$?O)-?<$',%-,-5..5>7?>?$$$e666%$$ܓ:?.----6668?OI --$.-d6>$$I - -%2 -% -%$2&)- -%2 -% -%$6&??'2D?'?'$2&;??'2D?'?'$6&IIIIIIIIIII @,EdUeRU QJJJ` $ H h .#` L}%J u H h h #` L W A #` W #`#2 '( H() 91 -dh`JJ`(6?$JȱJLh*17?6.-.%-%$?<$''',,,5` H XN7<6NWRU@ TPhhHNɍ-Ɉ+$$Ln`*++8 $%ll%J) +%j )* * (je$*h-HJJJ'hH*&'*&'*&')&&OH**hQ**O+i+$$! $%%#"%Nh`     F20:E2200:J120:768,A:769,B:770:768,C:769,D:770:768,E2:769,F:770:GEG1:2530aZ :6S MORE DIFFICULT TO HIT.":::GEG13:2190:{ 21::"DIFFICULTY FACTOR (6-14)";DF$:DF(DF$):DF6DF14Č770:2460  H240:K10:J130:X15 HH1:768,H:769,K:770:768,50:769,9:770:GEG12650Y ::A130:C50:E280:B10:D15: 2.5":t :0:34,3::5:"YOU WILL NOW HAVE TO ENTER THE DIFFICULTY FACTOR. THE SPEED OF THE ENEMY MISSLES IS A RANDOM NUMBER FROM ONE TO THE MAXIMUM DIFFICULTY FACTOR."0 "THUS A HIGHER DIFFICULTY FACTOR WILL MAKE THE ENEMY MISSLE"ARE 10 DEGREES APART, AND ENTER THE ANGLE FOR THE DIRECTION."V :"YOU MUST THEN ENTER THE RANGE."::"THE RANGE IS ILLUSTRATED BY THE CONCENTRIC CIRCLES THAT STAND FOR TEN MILES EACH. ENTER THE RANGE IN TERMS OF MULTIPLES OF TEN..E.G. RADAR I.C.B.M. STATION. IT IS YOUR JOB TO PROTECT YOUR CITY FROM THE ENEMY MISSLES."BB :"WHENEVER YOU WISH TO LAUNCH A MISSLE, PRESS THE SPACE BAR. THE COMPUTER WILL THEN ASK FOR 'DIR.?' FOR THE DIRECTION. LOOK AT THE ANGLES ON THE RADAR, THEY":INGER "::R 23:"WOULD YOU LIKE TO PLAY AGAIN? ";AN$:(AN$,1)"Y"Đ::1080X $ 0::::" I N S T R U C T I O N S ":W8 "YOU ARE IN CHARGE OF A780,9:781,202:782,208:783,245:784,174:785,0:786,3:787,76:788,2:789,3:790,96:791,0:792,0:::::10:8:" ":10:9:" RADAR DEFENSE ":10:10:" " 22:10:"COPYRIGHT (C) 1980 ":23:10:" G.E. GONDER02,25:25003,0:25004,45:25005,0:25025,40:25026,54:25027,63:25028,36:25029,5:25030,0:25045,164:25046,42:25047,221:25048,127:25049,49:25050,6:25051,0::770,173:771,48:772,192:773,136:774,208:775,5:776,206:777,1:778,3779,240:0ĺ"PRETTY GOOD. VERY FEW CASULTIES":2320fDE0ĺ"TREMENDOUS. NONE PERISHED BECAUSE OF YOUR FINE PERFORMANCE. YOU WIN THE MEDAL OF VALOR."p2320K12:J25:I70:768,I:769,J:770:K:\232,168:233,97:25000,4:25001,0:2503:LRM;:11:DE;"%";:30:E::"*** DIFFICULTY FACTOR ";DF;" ***":10:"YOUR PERFORMANCE IS....":DE100ĺ"AWFUL. A CITY OF 2,000,000 HAS PERISHED":2320RDE50ĺ"NOT GOOD. ONE MILLION PEOPLE DIED FROM THE NUCLEAR ATTACK.":2320*\DE50DEX(Z)NX(Y))6200020306(Y(Z)NY(Y))620304:2X(Z),Y(Z):768,100:769,100:770:2X(Z),Y(Z):2:1X(Z),Y(Z):X(Z)0:NL(Y)0:EE1ZY:1380 :1:E0E0 "STATISTICS":"MISSLES";" DESTRUCTION";" ";"ENEMY LEFT":0^ ~"5:"TO ROTATE CUBE, HOLD BUTTON#2 AND MOVE"::"TO SPIN PLANE INDICATED BY ARROW, MOVE" ""STICK APPROPRIATELY"::"TO MOVE INDICATOR ARROW, HOLD BUTTON#1":"AND MOVE STICK UP OR DOWN":8898 "5:"TO ROTATE CUBE TYPE AS FOLLOWS:"@"10:"R F "2 "23::"PRESS ANY KEY TO CONTINUE";:C$:8 _"B `"8700 j":"TYPE 0 FOR A PREVIOUS CUBE":"TYPE 1 FOR A RANDOM CUBE":"TYPE 2 FOR A COMPLETED CUBE" v"C::4 y""TYPE 3 IF USING JOYSTICK":"TYPE 4 IF USING KEYBOARD":P: |"P28830,886VE: TYPE !"; 2050 T 00 ^ 16Q(2),Q(3)9 h 0:@ 7O 7138,114^ 8154,108m 9170,102| 10181,84 11181,63 12181,42 13173,23 14157,16 15141,9  @ !23:" P/DOWN"6 "ROTATE: BUTTON#2 AND MOVE APPROPRIATELY"f "QUIT/SAVE: PRESS BUTTON#1 AND BUTTON#2";q 1:: 21:"ROTATE: R=RIGHT L=LEFT U=UP D=DOWN" "SPIN: + CLOCKWIZE - COUNTERCLOCKWIZE" 6:"FOLLOW BY PLANE NUMBER" "QUIT/SA";C$:9355 F8700" d::1:0/ nP4150T xQ(1)5:Q(2)182:Q(3)63:7:2900^ 2030g 160q 4000{ 2500 Z$;"BLOAD CHAIN, A520":520"RUBIK-PLOT" 21:"SPIN PLANE: MOVE STICK APPROPRIATELY" "MOVE ARROW: BUTTON#1 AND MOVE U  RUBIK8162;Q(3),A(54),B(54):Z$(4):8900E 9000O8800^C2S10jC040t9250~8700100(1::"ENTER NAME ";C$:)1:" "-Z$;"OPEN ";C$:Z$;"READ ";C$7I154:B(I):I <Z$;"CLOSE        <"\:FBF:<<@@\bBb\\bb\@<:FBBB8 0 "" "8.TTTT>DDDD8DDD8:FF:\bb\@@:F|<@>>H0BBBb\BBB$DDTTlB$$BBBb\@<~ ~880(8DRj2x$B~BBB>DD
DDDDD>~~~BB>BB>"B$$$$$~$~$$x8P<F&db  R"\   T8|8T| ~@ BB<~B > 60HH0>>>***>"6*""">$ 88>>>>*>><> ?:{>  ɖfLLm L! L!m LG LGmɎ?; I8LmLf  L $ .  L L?d [ % [$JT  '  dd   2   Ȍ   @L; $  .  L? ` ɖfLL lACj NI DLI BʗNY790wJpڄF]6)]wp3khEMѮUnKv3N*Q=D%N+di7s2jBuhP)cI'o077>> d5%<<2N %<'gI)..>>>7..g?I$',,$,l((>75?6555-,((8355555EE?L,,<<7?`A%?>%7>77,,%%-$%?<<'%?$ "36363636363636272424" Z$"24242424243C36363636"v$"3636363627BC36273C36"$"1E24373E241736272400"$"2424242424242424242C"$"36363636363636363676"$"2424242424242424242C"$"360E24352E241536252|$I4654:B(I)6:I/$I819216383:I,0:I?$C1ī9390[$Z$;"BLOAD CHAIN, A520"r$520"RUBIK-RANDOM"$I154:A(I)0:I$$"2424242424242424242C" $"36363636363636363666" $"2424242424242424242C"$"36256436252C360C2*#P$(I$,I,2):H((P$,1)):L((P$,1))@#HH48:H9HH7V#LL48:L9LL7m#P,H16L:PP1:Iw$9120"$ SET RUBIK ARRAY,$I19:B(I)1:I;$I1018:B(I)2:IJ$I1927:B(I)4:I^$I2836:B(I)5:Im$I3745:B(I)3:I"q#"76242424643636363625"9r#"2424242C363636362E24"Us#"2424242C363636362E24"qt#"242424AC3636362E2424"u#"24AC3636360C24242C36"v#"362E2424353625241536"w# "0C2C2E2D00"#P16384:232,0:233,64#I$:I$"END"ı#I1(I$)12c#"2424242424242424242C"7d#"3636363636363636362E"Ve# "24242424242424242405" rf#"3636363636363636362E"g#"24242424242424242474"h#"3636363636363636362E"i# "2424242424242424242400"o#"AD243576246436362524"p#"2C36362E242424353636 "2424242424242424242400"6[#"2424242424242424242C"R\#"36363636363636363676"n]#"2424242424242424242C"^#"3636363636363636362E"_# "24242424242424242405" `#"3636363636363636362E"a#"24242424242424242474"b# "3636363636363636360E"L#"3636363636363636362E"7M#"2424242424242424242C"SN#"36363636363636363666"oO#"2424242424242424242C"P#"3636363636363636362E"Q#"24242424242424242464"R#"3636363636363636362E"S#"2424242424242424242C"T#"3636363636363636362E"U#ALIZATION ROUTINES%2# SHAPE TABLESs<#"10002200B9005001A501FF015A02A002A902B402BF02C902D502E002E902F402FF02" G#"2424242424242424242C"H#"36363636363636363666"I#"2424242424242424242C"J#"3636363636363636362E"K#"24242424242424242464"E THE CUBE BY MAKING"D#"EACH FACE OF THE CUBE A SOLID COLOR. AN"s#"OPTIONAL LEARNING FEATURE BEGINS WITH A"#"COMPLETED CUBE SO THAT A PLAYER MAY"#"LEARN HOW SQUARES MOVE."#23:"PLEASE WAIT WHILE LOADING SHAPE TABLE"'#(# INITIUBE. THE"8""PLAYER IS ALLOWED TO EITHER ROTATE THE"c""CUBE RIGHT, LEFT, UP, OR DOWN OR TO"""SPIN ANY OF NINE PLANES IN A CLOCKWIZE"""OR COUNTERCLOCKWIZE DIRECTION. THUS,"""BY APPROPRIATE ROTATES AND SPINS THE"""PLAYER CAN SOLV IS INITIALIZED":1:"1"15:"RUBIK CUBE"?"19:"BY"T"15:"RON SANTA"\":""THIS PROGRAM REQUIRES A COLOR TV OR """COLOR MONITOR. THE PROGRAM WILL NOT"""SOLVE A RUBIK'S CUBE BUT INSTEAD WILL" ""DISPLAY ALL SIDES OF A COR ROTATE RIGHT":10:"L FOR ROTATE LEFT":10:"U FOR ROTATE UP""10:"D FOR ROTATE DOWN"::::"TO SPIN A PLANE TYPE + OR -""10:"WHERE + = CLOCKWIZE":10:"AND - = COUNTERCLOCKWIZE"::"THEN TYPE PLANE NUMBER""23:"PLEASE WAIT WHILE CUBE44):B(34)A(45):B(12)A(46):B(15)A(47):B(18)A(48)Kv M1:K24:L16:3600Q| cI13:J02$B(KMI3MJ)A(L3IJ).J:I877138,1148154,1089170,10210181,8411181,6312181,4213173,2h k B(42)A(11):B(41)A(14):B(40)A(17):B(51)A(29):B(50)A(32):B(49)A(35):B(29)A(40):B(32)A(41):B(35)A(42):B(11)A(49):B(14)A(50):B(17)A(51)o 3u B(45)A(12):B(44)A(15):B(43)A(18):B(48)A(28):B(47)A(31):B(46)A(34):B(28)A(43):B(31)A()A(26):B(36)A(27):B(7)A(34):B(8)A(35):B(9)A(36)M[ M1:K40:L34:3600S^ ka M1:K4:L2:3600d B(39)A(10):B(38)A(13):B(37)A(16):B(54)A(30):B(53)A(33):B(52)A(36):B(30)A(37):B(33)A(38):B(36)A(39):B(10)A(52):B(13)A(53):B(16)A(54)1:L43:3600J M B(13)A(4):B(14)A(5):B(15)A(6):B(22)A(13):B(23)A(14):B(24)A(15):B(31)A(22):B(32)A(23):B(33)A(24):B(4)A(31):B(5)A(32):B(6)A(33)Q 4W B(16)A(7):B(17)A(8):B(18)A(9):B(25)A(16):B(26)A(17):B(27)A(18):B(34)A(25):B(3525):B(25)A(39):B(22)A(42):B(19)A(45):B(3)A(48):B(6)A(51):B(9)A(54)_: M1:K15:L7:3600e@ C B(10)A(1):B(11)A(2):B(12)A(3):B(19)A(10):B(20)A(11):B(21)A(12):B(28)A(19):B(29)A(20):B(30)A(21):B(1)A(28):B(2)A(29):B(3)A(30): G M1:K5)A(52) ' M1:K31:L25:3600&, / B(38)A(2):B(41)A(5):B(44)A(8):B(53)A(20):B(50)A(23):B(47)A(26):B(26)A(38):B(23)A(41):B(20)A(44):B(2)A(47):B(5)A(50):B(8)A(53)3 H9 B(39)A(3):B(42)A(6):B(45)A(9):B(54)A(19):B(51)A(22):B(48)A(5):B(34)A(46):B(31)A(47):B(28)A(48)? M1:K22:L16:3600E y C3365,3375,3385,3395,3405,3415,3425,3435,3445% B(37)A(1):B(40)A(4):B(43)A(7):B(52)A(21):B(49)A(24):B(46)A(27):B(27)A(37):B(24)A(40):B(21)A(43):B(1)A(46):B(4)A(49):B(79)A(11):B(50)A(14):B(51)A(17):B(40)A(29):B(41)A(32):B(42)A(35):B(17)A(40):B(14)A(41):B(11)A(42):B(35)A(49):B(32)A(50):B(29)A(51) & B(46)A(12):B(47)A(15):B(48)A(18):B(43)A(28):B(44)A(31):B(45)A(34):B(18)A(43):B(15)A(44):B(12)A(4A(27):B(25)A(34):B(26)A(35):B(27)A(36)A M1:K42:L34:3600G ^ M1:K6:L2:3600 B(52)A(10):B(53)A(13):B(54)A(16):B(37)A(30):B(38)A(33):B(39)A(36):B(16)A(37):B(13)A(38):B(10)A(39):B(36)A(52):B(33)A(53):B(30)A(54)  B(40  B(31)A(4):B(32)A(5):B(33)A(6):B(4)A(13):B(5)A(14):B(6)A(15):B(13)A(22):B(14)A(23):B(15)A(24):B(22)A(31):B(23)A(32):B(24)A(33) ) B(34)A(7):B(35)A(8):B(36)A(9):B(7)A(16):B(8)A(17):B(9)A(18):B(16)A(25):B(17)A(26):B(18)9):B(6)A(42):B(9)A(45):B(25)A(48):B(22)A(51):B(19)A(54)T r M1:K13:L7:3600Z x { B(28)A(1):B(29)A(2):B(30)A(3):B(1)A(10):B(2)A(11):B(3)A(12):B(10)A(19):B(11)A(20):B(12)A(21):B(19)A(28):B(20)A(29):B(21)A(30) M1:K49:L43:360 M1:K33:L25:3600 d g B(47)A(2):B(50)A(5):B(53)A(8):B(44)A(20):B(41)A(23):B(38)A(26):B(2)A(38):B(5)A(41):B(8)A(44):B(26)A(47):B(23)A(50):B(20)A(53) k < q B(48)A(3):B(51)A(6):B(54)A(9):B(45)A(19):B(42)A(22):B(39)A(25):B(3)A(3Q(2),Q(3) h 0:# C$"+"31504 C$"-"3350: n N C3165,3175,3185,3195,3205,3215,3225,3235,3245 ] B(46)A(1):B(49)A(4):B(52)A(7):B(43)A(21):B(40)A(24):B(37)A(27):B(1)A(37):B(4)A(40):B(7)A(43):B(27)A(46):B(24)A(49):B(21)A(52) _APPROPRIATELY"> "QUIT/SAVE: PRESS BUTTON#1 AND BUTTON#2";I 1::{ 21:"ROTATE: R=RIGHT L=LEFT U=UP D=DOWN" "SPIN: + CLOCKWIZE - COUNTERCLOCKWIZE" 6:"FOLLOW BY PLANE NUMBER" "QUIT/SAVE: TYPE !"; 1:: T 0 ^ 165:Q(2)182:Q(3)63 7:2900* 20303 160= 4000G 2500M k :Z$;"BLOAD CHAIN, A520" 520"RUBIK-PLOT" 21:"SPIN PLANE: MOVE STICK APPROPRIATELY" "MOVE ARROW: BUTTON#1 AND MOVE UP/DOWN" "ROTATE: BUTTON#2 AND MOVE  RUBIK-RANDOM9 I((78)256(79))65535:C(I)ER110dC(1):C$"+":C.5C$"-"(C(19(1)):C1C940-J154.A(J)B(J)/J23000<RF8700ZI154[A(I)0\Id::1:0nP4150 xQ(1)51)A(17):B(40)A(29):B(41)A(32):B(42)A(35):B(17)A(40):B(14)A(41):B(11)A(42):B(35)A(49):B(32)A(50):B(29)A(51){  B(46)A(12):B(47)A(15):B(48)A(18):B(43)A(28):B(44)A(31):B(45)A(34):B(18)A(43):B(15)A(44):B(12)A(45):B(34)A(46):B(31)A(A(35):B(27)A(36)* M1:K42:L34:36000 G M1:K6:L2:3600 B(52)A(10):B(53)A(13):B(54)A(16):B(37)A(30):B(38)A(33):B(39)A(36):B(16)A(37):B(13)A(38):B(10)A(39):B(36)A(52):B(33)A(53):B(30)A(54) u B(49)A(11):B(50)A(14):B(B(32)A(5):B(33)A(6):B(4)A(13):B(5)A(14):B(6)A(15):B(13)A(22):B(14)A(23):B(15)A(24):B(22)A(31):B(23)A(32):B(24)A(33)  B(34)A(7):B(35)A(8):B(36)A(9):B(7)A(16):B(8)A(17):B(9)A(18):B(16)A(25):B(17)A(26):B(18)A(27):B(25)A(34):B(26)):B(25)A(48):B(22)A(51):B(19)A(54)=r M1:K13:L7:3600Cx { B(28)A(1):B(29)A(2):B(30)A(3):B(1)A(10):B(2)A(11):B(3)A(12):B(10)A(19):B(11)A(20):B(12)A(21):B(19)A(28):B(20)A(29):B(21)A(30) M1:K49:L43:3600 ~ B(31)A(4):d g B(47)A(2):B(50)A(5):B(53)A(8):B(44)A(20):B(41)A(23):B(38)A(26):B(2)A(38):B(5)A(41):B(8)A(44):B(26)A(47):B(23)A(50):B(20)A(53)k %q B(48)A(3):B(51)A(6):B(54)A(9):B(45)A(19):B(42)A(22):B(39)A(25):B(3)A(39):B(6)A(42):B(9)A(45C$"+"3150 C$"-"3350# WN C3165,3175,3185,3195,3205,3215,3225,3235,3245] B(46)A(1):B(49)A(4):B(52)A(7):B(43)A(21):B(40)A(24):B(37)A(27):B(1)A(37):B(4)A(40):B(7)A(43):B(27)A(46):B(24)A(49):B(21)A(52)_ M1:K33:L25:3600 Q(2)138:Q(3)111:, Q(2)154:Q(3)105:C Q(2)170:Q(3)99:Z Q(2)182:Q(3)84:q" Q(2)182:Q(3)63:, Q(2)182:Q(3)42:6 Q(2)171:Q(3)25:@ Q(2)155:Q(3)18:J Q(2)139:Q(3)11:T 0:Q(1)4Ę16^ 16Q(2),Q(3)h 0:   C1C92570 )( Q(1)42085:2 Q(1)62630E< C$"+"RA CQ(1):cF C$"-":2625tZ Q(1)42085d Q(1)62620n 2630 Q(1)32085 2630 Q(1)32085 2620 Q(1)2810,2820,2830,2840,2850,2860,2870,2880,2890(1)I:Q(1)9Q(1)1' 3 Q(1)1Q(1)91 8 2800> B 7:2900H L 2050a ` (J)127I1:2340u j (K)1272750 ~ C$"D":2140 24:38:C$ C$"+"C$"-"2570 C$"R"C$"L"C$"U"C$"D"2560 C$"!"2560 2500 C0: C(K)1272160 %I110:I& *20509 4(J)1272085M >(K)1272600X RC$"L"b \C0:s pC$"!":2140 (J)1272085 (K)1272650 C$"R":2140 (J)127I1:2340  (K)1272700  C$"U":2140 $ 0:2900 . Q(1)QX13016I16J:Y497I6J:) 1500M X1116I16J:Y1187I6J:_ I13:J02p N3IJKız J:I  J16287:K16286 I(0):I502100 I2002200 I110:I I(1):I502300 I2002400 !(J)127ͭN37Z2:K25:1180- BN46Z3:K34:1200F LN55Z3:K43:1220L VV `1500v eX13016J:Y13121I6J: t1500 yX23716J:Y11121I7J: 1500 X4216J:Y10421I6J: 1500 X8116J:Y11221I7J: 1500 1::Z$;"BLOAD CHAIN, A520":520"RUBIK-ROTATE": 3000B 65_ ::1:"ENTER NAME ";C$ Z$;"OPEN ";C$:Z$;"WRITE ";C$ I154:B(I):I Z$;"CLOSE ";C$  N10Z1:K2:1120 $N19Z2:K7:1140 .N28Z1:K16:1160 8  0:1AL154*FB(L)A(L)1508KNL:1000NU0:ZX,Y:ICB(L)jdB(L)3ICB(L)3:ZZ3{jIC4:ZX,YLL154:A(L)B(L):LS5İ7000P422020002302500C$"+"C$"-"250C$"!"5000           314157,1615141,9$V!23:" ""23::"PRESS ANY KEY TO CONTINUE";:C$:_" B(36)A(34):B(33)A(35):B(30)A(36)1? I3745B@ B(I36)A(I)IA IVD I4654jE B(2746I)A(I)qF IwG (A(I) - I4 0 B(12)A(10):B(15)A(11):B(18)A(12)\ 1 B(11)A(13):B(14)A(14):B(17)A(15) 2 B(10)A(16):B(13)A(17):B(16)A(18) 5 I1927 6 B(4519I)A(I) 7 I : B(34)A(28):B(31)A(29):B(28)A(30) ; B(35)A(31):B(32)A(32):B(29)A(33)$#Z(I$)[F#A1Z12lP#P$(I$,A,2)}Z#H((P$,1))d#L((P$,1))n#HH48:H9HH7x#LL48:L9LL7#P,H16L#PP1#P160009110#P10089110#"DAT1XX,YY:9300I115'AXX4I5BYY.5IAA,B:0OJ12:J[A,B:7e9300lI2:32:XXA:YYB:21XX,YY:9300 I120*93004I'#9999(# SUBROUTINE MACHINE LANGUAGE LOAD"*# DATA STATEMENT MUI122AXX1.5I'BYY1.5I3A,B:0AJ12:JMA,B:5W 9300^Is6:64:XXA:YYB&1XX,YY:9300DI113NAXX2.25IXBYY3IbA,B:0gJ12:JlA,B:6q9300vI7:16:XXA:YYB2.8I ,BYY1.5I! 6A,B:0/ ;J12:J; @A,B:6E E9300L JIa T7:32:XXA:YYBt ^1XX,YY:9300 |I116 AXX1.5I BYY1.5I A,B:0 J12:J A,B:7 9300 I 5:48:XXA:YYB 1XX,YY:9300  A,B:0 J12:J% A,B:7, I6 9300D I12:IU 5:XXA:YYBb 1XX,YYn I115} AXX2.8I BYY1.5I A,B:0 J12:J A,B:5 9300 I 6:16:XXA:YYB 1XX,YY:9300 I120 "AXXXX:90,56XX140,56XX:20,64XX90,64XX:90,72XX140,72XX:20,80XX90,80XX:90,88XX140,88XX $XXXX1:XX9XX0:6:40 %35 (20XX,4020XX,64:XXXX1:XX31XX0:7:100 )40 d7:1:0 nI150 sA1501.5I xB1592.8I,40:QQQQ1:QQ11QQ0:5:30& 25 50,40XX90,40XX:90,48XX140,48XX:50,56XX90,56XX:90,64XX140,64XX:20,72XX90,72XX:90,80XX140,80XX 20,88XX90,88XX:90,96XX140,96XX:XXXX1:XX9XX0:7:35 30e #50,48XX90,480400" & "394461200CDCDBDB7389"C "BAE3DF969F4D4A445669"` "11B6F3D71CE41B160700"l "END"x SUB768 9000 :21:17:"WINNER" :1:QQ0 10QQ,4010QQ,159:QQQQ1:QQ11QQ0:25 20 2:10QQ,1610QQ RUBIK-END1 "A9C88501850285038504" ^ "AD30C088D004C601F00ECAD0F6A6004C0A03" "AD30C088D004C602F00ECAD0F6A6004C1C03" "AD30C088D004C603F00ECAD0F6A6004C2E03" "AD30C088D004C604F008CAD0F6A6004C400360" "END"  "0100     ::305T"COLUMN WIPE ";:Z$:30000:305:"LEFT TO RIGHT WIPE ";:Z$:30010:305"RIGHT TO LEFT WIPE ";:Z$:30020:305:"TOP TO BOTTOM WIPE ";:Z$:30030:305"VERTICAL CENTER OUT WIPE ";:Z$:30060:305:"TWO WAY CENTER OUT WIPE ";:Z$:300Y ARE USUALLY Z$ OR L$ FOR A STRING..,Z$(XX) FOR AN ARRAY...V FOR VTAB...AND,H FOR HTAB.,,,,,(TYPE ANY KEY)qg:"========================================":" NEXT: THE TAKE-OFFS"::"========================================"Z12300IF WE CAN SPICE IT UP A LITTLE.,e EACH SUBROUTINE IS WELL MARKED AND CAN,EASILY BE INCORPORATED INTO YOUR PRO-,GRAMS.,,,A 'REM' STATEMENT NEAR THE BEGINNING OF,EACH SUBROUTINE TELLS YOU WHAT VARIABLESkfNEED TO BE SET BEFORE USING THE ROUTINE.,THELL TRIGGER A ROUTINE WHICH WILL BOMB YOUR DIS"]?7:V7:1:"]";::" ";::1008:20340t@:"RUN B/Z BOMB"zA dTHERE IS REALLY NO EXCUSE FOR PUTTING,TEXT ON THE SCREEN IN A DULL FASHION,SUCH AS THIS.,,LET'S DO THIS PAGE OVER AGAIN AND SEE,LE CAN BE":T3$"ONE, TWO, OR THREE LINES":Z$:21200:200o=:Z130:(1)231:(1)371:"]";::" ";::1>L$"THIS MESSAGE APPEARS COURTESY OF A SUBROUTINE CALLED "ZC$"HIDDEN MESSAGE"ZC$". WARNING!!! IF YOU UNVEIL THE ENTIRE LINEIT WI SUBROUTINE IS CALLED "ZC$"ESCALATOR"ZC$:V5:20320J-Z11000:::;"THE NEXT SUBROUTINE CREATES A NICE TITLEPAGE WHICH YOU CAN USE AT THE BEGINNING OF ONE OF YOUR PROGRAMS."::"TYPE ANY KEY TO SEE IT RUN."9<T1$"SAMPLE TITLE":T2$"THIS TITGHT PULL"ZC$".":V11:20110- #Z11000:e $Z$"THIS IS A "ZC$"LEFT PULL"ZC$".":V13:20120 %Z11000::Z$"THIS IS A "ZC$"CENTER PULL"ZC$:V15:20130:Z11000: 'L$"THIS IS "ZC$"SLOT MACHINE TEXT"ZC$:V20:20170 )6,L$"THISZ11000::Z$"OR BRING THE TEXT ON USING ONE OF THE SUBROUTINES DEMONSTRATED HERE:":V4:20070q Z11000: L$"THESE ARE CALLED "ZC$"PULLS"ZC$".":V7:20080 !L$"THIS IS AN "ZC$"UP AND IN PULL"ZC$:V9:20080 "Z$"THIS IS A "ZC$"RI ***":20020:Z$:W :Z022:Z$(Z)::Z$(19)"*** THIS SUBROUTINE IS CALLED: ***" Z$(20)"*** REPEATING LINE ***":20060:Z$: Z$"IF NOTHING ELSE"(44)" YOU SHOULD AT LEAST ADDA LITTLE SOUND TO YOUR PROGRAM.":V1:20070a Z12300: ZC$(34)5 Z$(23):Z022:Z$(Z):X :Z022:Z1:1:Z$(Z)::Z$ :Z11500::Z$(19)"*** THIS SUBROUTINE IS CALLED: ***":Z$(20)"*** ROLLING TEXT ***":20000:Z$: Z$(20)"*** VERTICAL RISE y 33790 :"========================================":" FIRST: THE PUT-ONS"::"========================================" 4 --==##=*=##==-- BY DR. B. ZARRO --==##=*=##==-- n                     !!! ! ! ! ! !! 膢 ȱ " <67 L  8ij v vo>N33,1:Z039:32,Z:24:ZZ022:(Z$(ZZ),Z1,1);:::" "::1:!\N REPEATING LINE ============== "`NZ022:Z$(Z)Z$(Z)"  $NZB22:ZA022:34,ZAC &NZC0ZB:1:Z$(ZC);:(Z$(ZC))40ĺM (N::[ *N23:38: 4N VERTICAL RISE ============= !6NREQUIRES THIS STATEMENT: DIM Z$(22) Z$(0) THROUGH Z$(22) SHOULD BE STRINGS OF 40 CHARACTERS PUT-ONS  N ROLLING TEXT ============ "NREQUIRES THIS STATEMENT: DIM Z$(22) Z$(0) THROUGH Z$(22) SHOULD BE STRINGS OF 40 CHARACTERS OR LESS ";tO:" RUN AS SOON AS YOU TYPE A KEY. YOU ";::" ";::" CAN THEN LIST THIS PROGRAM TO FIND ";::" ";:T" ANY SUBROUTINE YOU WANT TO USE. ";::" ";:40:" ";::X(0):T8J AS A METHOD OF ";::" ";::" FILLING THE PAGE SO THAT THERE IS ";::" ";J:" SOMETHING ON THE SCREEN TO WIPE OUT. ";::" ";:40:" ";::" BENEATH THIS BOX YOU WILL SEE THE ";::" ";::" NAME OF THE SUBROUTINE WHICH WILL ";::" @" TO BE SATISFIED WITH A PLAIN OLD ";::" ";::" ";(34);"HOME";(34);" WHEN YOU WANT TO GET RID OF A ";::" ";::" PAGE OF TEXT.";:40::" ";QE40:" ";::" YOU WILL SEE THE LINES IN THIS BOX ";::" ";::" OVER AND OVER, SIMPLYDEMONSTRATE SUB- ";6:" ";::" ROUTINES WHICH WIPE A PAGE OF TEXT ";::" ";::" OFF THE SCREEN. JUST AS THERE IS NO ";:;" ";::" EXCUSE FOR PRESENTING TEXT IN A DULL ";::" ";::" FASHION, THERE IS ALSO NO REASON TO ";::" ";:= ";(34);"*";(34);". ";'Z$:W4:MODE1:CH$"*":30250:"USE THE FLASHINGMODE SPARINGLY. ITCAN GET TO BE A BITTOO MUCH.";:Z15000::,611Z11500::::" TAKE-OFFS ";:40:" ";::" THIS PROGRAM WILL SED:":"CH$ = ";(34);"&";(34);" : W = 2"::"IT'S NOT NECESSARY TO SETTHE MODE EACH TIME YOU USE";""THIS ROUTINE. NORMAL CHAR-ACTERS WILL BE USED UNLESSMODE IS SET TO 1 OR 2."::"LET'S TRY IT ONE MORE TIMEUSING W = 4 , MODE = 1 , ANDCH$ E NEXT TEXT YOU PUT ONTHE SCREEN."::"FOR FLASHING CHARACTERS USE MODE= 1. FOR INVERSE CHARACTERS USEMODE = 2.":"TO MAKE THIS BORDER I USED: CH$ = ";(34);":";(34);" : W = 1 : MODE = 2 ";:Z$:W2:CH$"&":30250i"TO MAKE THIS BORDER I U:Z$:W1:CH$":":MODE2:30250:"EACH TIME YOU USE THIS ROUTINE,THE TEXT WINDOW WILL BE FILLED";"WITH ANY CHARACTER YOU CHOOSE."::"A NEW WINDOW WILL THEN BE OPENEDAND A BORDER OF BLANK SPACESWILL AUTOMATICALLY BE PROVIDED";t"AROUND THARE:"::"CH$ : THE BORDER CHARACTER USED":"W : THE WIDTH OF THE BORDER""MODE : INVERSE OR FLASH (OPTIONAL)":"IN THIS CASE, I USED THE FOLLOWINGTO CREATE THIS BORDER:"::"CH$ = ";(34);"%";(34);" : W = 2":::c "(TYPE ANY KEY TO CONTINUE) ";0:305W"SLANT FROM CENTER ";:Z$:30230:305:"SLANT FROM EDGES ";:Z$:30240:305"BORDER WIPE ";:Z$:W2:CH$"%":30250:"THIS IS THE ONLY WIPE SUBROUTINE";I"WHICH REQUIRES THAT YOU PROVIDEVARIABLES."::"T