' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( 0 Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(`  d ֠z# u`@ 0@`@@` B@ 0""@ `@ @h @@ 0@ @@@@ 0@ Bs@X@ 0 @ (!@ @p@0@  @@@ @ 0@@@@`@ B@ ""@  PM``@@@ 0@@`@@@@@  ! @ @` H@@pl@s@ pp@@ @@?@@@ 4 @ ``@p0` @ A B@A@r' @ 0 0@@@ `@ H@0@~@@ @!@ 6N80@@ @"@,@  @@@ @@ H@@ONH@ @@@@@ @ gA@@ @ `P@@`| @ p@@@@@@  @! @ 8p @d@@ 0"0@ @ @@@@@@ @@ H@@@DH 芢 脤`)F 鄤`ɠ 넬I* L)腞` -+ [..E0 - +f \$8Lf$På8噅 U 9ƚ0`LH$ 9h80 LaH ch 륪EL祚 d$0L e_^^^^ ^`, r^_^^^ %^^`` r` L襝 *` 녞I*L)F``a`Ȫı`E0!` Şȱ`şȱ`Š ȩŬ`(IL륝J8$E ^`e0,iLR襫`I0hhLNL ci ` cP Li v r8坅 Ğğ Ġġ* e24(&&&0⨥塅堅埅垅L@ (LꢅLԥbcdeL.^vvvvvj`^Vy dv88; 54541r LᥝH- 2 f  \7 h < L bcde 饡 饠 饟 饞 LLJ eeededcecbebfbfcfdfefJ`^_^^^^W8Ie Ji `eeeeeLi&&&&8坰IiBfffff`IIIIII `ELԢai0ᦠL LN覸^e^`_a`H` Jh`` g R L楝ɑ 률PQ`PHQH RPhQhPL F犠P` F熅  L熆PE%`dL 饢IEL < LS리8$Ii0ǨV $` lݥ^_ 5^Hȱ^ȱ^h(po Heooph^_`T SRS` H hhhL* ьHH 㥌 hhe^^_ L* IL` ) ʊH񌰸Iš hhhhhhhHH` L ` ^LL g ^ ie^^__Ŕ #^05ȱ^0ȱ^+ȱ^ȱ^poŜ䛐^_e^^__`)Jeiop Ӥȥ敥ȑL䥡HH ` lhhqL 奌  奫  *LݠHȱȱh^_ H^qheqqr "e膮 㦫 R^LԥSR`FHI8eopnm opqrh`M0 䩀hЦstopmnU^_R #ij^_lk 󅔆nmLb^_^ȱ^ȱ^eȱ^e(ӊ0ȱL$8vС,L A  ީ j ީ HHHHH L  ߅Lj A㥋HH jhhȱ𙅄ȱH +륹HHȱHH ghh Lhhhhȑhȑhȑhȑ` jݠ 6hh R䆞`" ȱ ↭^e]eR Ӆmn殤ƕƮ8m因n圑bȱhhћȊћLLȥ e^eʅʥʆd ee`^de *& edeeƙ` 8ompn` gݥ0 ɐ ~LGHHHHH hhhHH ,҄ hh)klnm?Łћȱeȱeעk,5LԢx8` ћLK*L өȥʆȑ $PhihiȑȊLL(L<  } }$%0Ʃ 8(L$0pijlk"ћћliA[8`hH`klmniȅ ӥȅklȥȑȑȑȑȑiȅ` ieȅ q L H ϐ { lhHHH hHL? hυυ Ljݥ ,L mݰ % LߩƉ 慝 憨80 ў*%L L ު `  }LޢS@ @ H  HGG@NH@ @  `ɠɍZɊZɈ$!$$"% %% e (`I(ii,i\$%H $ hi#ʥ"%$$%%#%"H $(*)+!hi# H $(*0 $(!`8Hh`BC<>=?<=`K i! Ȉ2 ,`H h*:` `YE <Šӭpd`HVTQ PS 6" (!#%L" X`I`ɍ,,L8L,H ΰɐHJ) )h)i( ((`ɇ@ 0`$($$!fi#bZH&bTDThDt(ntJrtttrDh2"&&rr&HDDȅEhH 0l( Lh:h;l Le / XZ]_, :ILl `Ȇ׍숈l E@A  J 0,*i H/.  `0 .: VȘ L `8/;e:` T0 "T3  T3  T; "D3 D"D3 D"D3 "D3 &1!YMJؤ#]#)i#$S#$S[[i$$)|mi)S4`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,--& W :L ` `  eȱe ` -L -La=?P<Ȅ> sʆ>PHt?QnLԅtp=hso< LeP>eQ? ॔<=`@ ߩL ʊ( (H hL$`JJJJӊ)IȄҤѢԆզ8eЅԐ e҅Ր JJJ`JJJJӊ)IȄҤѢԆզ8eЅԐ e҅Ր JJJ` g RQPHH, hh`L `*Uf&i'`'i,&i,&iPII&if&HhH8HӰ hIiHӅхhЅhIi҄f8Ъх e8e҅ԥձ&E%0Q&&bӰ eЅԥePفŴxaI1& ')*& 'JJ) e ʥ0)Je ~)`H)&JJ&&h' &' &' f&')'#i媽0J(` Q&%0Q&&`#0JI0`'0 I`0 I0ݩ()%%01&%0)&E%0Q&&e)j00',"&,i8i#H&ii&hizݥ􅸥uv >Lץڅuۅv܅݅ߚLLްij ֥`a, PQ ֥`a```aiśj地a`ʈjiLԭVSL@TL9 ʅPQ L PȱQL L,U,R@ ,T,SWP0,-`L ,- 0` (L ,(ʤL (L( Ld ʊL[ I`8f`?2`@ g RPmQnLԥPsoQtp` g RPsQtPiQj֥PiQjLl֩ ޥ8fإuv Lنަߥuڥvۥyܥ~L̑湭`: 808`ORXv( sL  񕰆򊅤TH کURPQQPIPPIPPPQ)stopgh֘gghgh K֩:ۅ<ԅl g RlP L L 0, 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:ƀ1r۠ 饬iP z녒 f륝Ɉ + # i8H rh ` !멓  v禎L酭 뱭Ș殅 饭iȅ 穘ƣ`5Dzh(F 0ɠ 穦 驪 禡 .ɠL+f ck ^ƙ.șI)$Ъ0.ȩ+.8嚪-E/8 i:`  cd pLP袊 +륪 #쩊  UH A驊  hJ I`8;)q4X>Vt~w/z*|cYX ~u q80L>nk'nk(X 1vu8 4L:۠-$șȩ0LW     9ƙ U i 0 i8.ș0șylykyjyi00ڊIi i/ȄȪ)B 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ޢb@Ll  . $ ; &?1?=A>?I i`HH11`IJ듧ƙɾ5Ė+]̵h5`4ɺл1>@@A`41`>BD`8>6>) `LL u ?l:L``L@ 'A=?<) < `JJJ>Ieʊ:>Ș;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 oL10)T$23050 Z5 ZI1C1I1:A$(I1)A$(I11):T ZA$(I)YR$MO$DA$A$:CC1Z Z ](DC$,3,2);"/";(DC$,5);"/";(DC$,2);" ";:24010:D$(D): ]Y((DC$,2)):M((DC$,3,2)):D(365(Y2)(Y1)4)((DC$,5))2!]T1((DC$,3,2)):DDD(TS, ADJUST FOR LEAP YEARS 7bRDC$YR$MO$DA$:DU$DC$:LU:D$;"OPEN ";F$mUD$;"WRITE ";F$:C:D1$:DT$xVI1CVD$;"WRITE ";F$VA$(I)"V,VD$;"CLOSE ";F$6VYC0I1:23060YT$(YR$MO$DA$A$,10)YI1C Y(A$(I),:;:RMO$(DS$,I1):DA$(DS$,I1,I1I1):YR$(DS$,I11)UDR(MO$)1MO$"0"MO$oNR(DA$)1DA$"0"DA$XR(MO$)2(DA$)2(YR$)221040ZRD((MO$))(DA$)T(YR$):MO$"02"DA$"29"(T4)4T21040: CHECK DAY AGAINST MONTH TABLES:$*ND$;"PR#0":D$;"IN#0":973:KRND$;"PR#1":: PRINTER ON (SLOT 1)l\ND$;"PR#0":: PRINTER OFF RI1(DS$):(DS$,I,1)"/"21020R:21040RI1I1(DS$):(DS$,I1,1)"/"21050&R:DS$DS$(DD$,6):210500R"ERROR IN DATE":I0OPTION "g'"IF SO, HIT TO ABORT AND RETURN TO ":"MAIN MENU "$':"WOULD YOU LIKE TO RETURN TO THE MAIN (MENU (Y/N) ?";A$.'A$"N"ī20908'A$"Y"ĺ"RUN HELLO"B'10020 ND$;"PR#";CS:D$;"IN#";CTER AND COUNTER, ABORT AT 8 EVENTS(#K#:"RETURN FOR MENU ";T$:2090#TX14:TT,((T$,TX,1))128:TTTT1::TT,EC:TTTT1:: LOAD A TICKLE TIME'"RUN HELLO" '::"BEFORE ENDING, DID YOU SAVE YOUR DATA? ":"IF NOT, HIT AND CHOOSE ,2)):MT((T$,3)):T113:MTMTT:MT0HTHT1:MT60MT:HT0HT24HT: SUBTRACT INTERVAL, DO WRAPS#T$(MT):MT10T$"0"T$#T$(HT)T$:HT10T$"0"T$: PACK INTO 4 DIGIT TIME#9190#"#ECEC32:CTCT1:CT89180: BUMP EVENT POIN(T$)4T$"0"T$:9050&d#(A$(I),7)Xn#"SKIP OR INTERVAL <5> ";C$:(C$,1)"S"9170js#C$""C$"5"|x#9190:T(C$)#TE$(A$(I),7):TE$TE$(BB$,32(TE$)):TX132:ET,((TE$,TX,1)):ETET1:: LOAD A TICKLE EVENT#T09160f#HT((T$T0159:TTT,0:: CLEAR THE TICLKE TIMESV2#TS1:I1C:T$(A$(I),6):T$DU$9170g<#T$TA$9180F#T((A$(I),7,4)):T0T23599170I#(T$DU$)(TCT)9170L#(T$DU$)(TCT)9180N#(T$DU$)TSĺ:"<";TM$;">"::TS0P#T$(T)Z#E TIME,"#" OF THE APPOINTMENT"Z$#24:"PRESS ANY KEY TO CONTINUE";:A$::(#20000:"E";DS$:20010:21000::CT0:"LOADING TICKLERS:"::TTB0:ETB1:EC0:20000:"@";TC$-#"1+2400":"I";TA$:"K";TA$:"M";TM$:20010:TC((TC$,4))*0#b@l  . $ ; &?1?=A>?I i`HH11`IJ듧ƙɾ5Ė+]̵h5`4ɺл1>@@A`41`>BD`8>6>) `LL u ?l:L``L@ 'A=?<) < `JJJ>Ie=?<=`K i! Ȉ2 ,`H h*:` `YE <Šӭpd`HVTQ PS 6" (!#%L" X`I`ɍ,,L8L,H ΰɐHJ) )h)i( ((`ɇ@ 0`$($$!f* SKIP OF INTERVAL ** ARE GIVEN WHEN"E#:"ACTIVITIES ARE LISTED." #::"ENTER < S > FOR NO REMINDER"::"ENTER < 0 > FOR ONE REMINDER AT":" TIME OF APPOINTMENT"::"ENTER < N > FOR N REMINDERS PRIOR THE":" APPT AND ONE AT TH0):PL:9:(A$(I),12):8080CBL25ĢBL:9:(A$(I),7);:BLBL1IYBL25BL2BL:1:"RETURN FOR MENU ";T$:2090%#:3:"THE ACTIVITIES FOR THE DAY WILL"::"BE LISTED. IF THERE ARE NO EVENTS, "::"RETURN TO MENU. THE OPTIONS "::"*EI817:I10ĺ"0";6JI;":00 - ";:I12ĺ"LUNCH";HT:I10ĺ"0";p^I17ĺI;":30 - ";:I12ĺ"LUNCH";h::BL22:I1C:T$(A$(I),6):T((A$(I),7,4)):T$DC$8090rT$DC$8080|T1700T800T1(T100):PL(T18)23((TT1100)360102090FX20000:"C";DU$:20010:I1C:(A$(I),6)DU$7020LblI1TI1:CCT::"PURGING:"::I1T:(A$(I),6);" ";(A$(I),7)::I1C:A$(I)A$(IT):::"RETURN FOR MENU ";T$v2090@:"GLANCE AT A DAY"::27000::24000:;T$(T$,1)"Y"2090FI1IC1:A$(I1)A$(I11)::CC1:2090jp:"REPORT FROM A DAY"::27000}zP$"P"İ20050PL0::26000:P$"P"İ20060ICĄ"RETURN FOR MENU ";T$:2090:"RETURN FOR MENU, N FOR NEXT SET ";T$:(T$,1)"N"CK CALANDAR TO FIND INDEX)"#:@8:"RETURN FOR MENU OR"H10x"ENTER THE INDEX OF THE EVENT ";I$:I(I$)I$(13)2090CI2090I12090::"THIS EVENT IS:"::(A$(I),6);" ";(A$(I),7)::"DELETE THE EVENT (Y/N)"25000:PL11:DC$DU$:13:26000:24:"RETURN FOR MENU, N FOR NEXT MONTH ";T$:(T$,1)"N"2090T((DU$,3,2))1:T13DU$(((DU$,2))1):T1T$(T):T10T$"0"T$DU$(DU$,2)T$"01":DD0:4010:"DELETE AN EVENT":::"(CHE :"SCHEDULE AN EVENT":27000. :24000:H :"ENTER ACTIVITY":v "IN THE FORM OF ** HHMM (ACTIVITY) **": "TIME MUST BE MILITARY": "";A$:A$(A$,40):A$""2090: NEVER SCHEDULE NULL EVENTS 23000 2090DD((DU$,5))aE SESSION")" M - ABORT / MAIN MENU"H:"ENTER THE COMMAND ";C$bP$(C$,2):C$(C$,1)sC$"S"3000C$"C"4000C$"D"5000C$"R"6000C$"G"8000C$"T"8990C$"E"İ22000:9999C$"M"100002090 D$;"CLOSE ";F$! FL0:2100/ *:FL1:4E 4:"FUNCTIONS:":d >" S - SCHEDULE AN EVENT"z H" C - CALENDAR" R" G - GLANCE AT A DAY" \" R - REPORT FROM A DAY" f" D - DELETE AN EVENT" z" T - TICKLER LOAD" " E - END TH:20010: GET STARTING TIME & DATE1 16:DT$:D D$;"OPEN ";F$W D$;"READ ";F$f C,D1$,D2$ "THERE ARE ";C;" RECORDS IN THE BOOK" "DATE OF CREATION ";D1$:"DATE OF LAST UPDATE ";D2$ C02070 I1C:D$;"READ ";F$:A$(I): ": 32 BYTES OF SPACES\ F$"DB SEQ": FILE FOR DATES, USER MAY PUT QUERY HERE! :14::" ":14:" M B I ":14:" ":14:" DATE BOOK ":14:" "::" 20000:"A";TI$:"C";DU$:"E";DD$:"D";DT$12):MO$(1)"JANUARY":MO$(2)"FEBRUARY":MO$(3)"MARCH":MO$(4)"APRIL":MO$(5)"MAY":MO$(6)"JUNE":MO$(7)"JULY":MO$(8)"AUGUST":MO$(9)"SEPTEMBER":MO$(10)"OCTOBER":MO$(11)"NOVEMBER":MO$(12)"DECEMBER" A$(256) D$(4)! BB$" K'":1,32767 D$(0)"SUNDAY":D$(1)"MONDAY":D$(2)"TUESDAY":D$(3)"WEDNESDAY":D$(4)"THURSDAY":D$(5)"FRIDAY":D$(6)"SATURDAY" D(12):D(0)0:D(1)31:D(2)28:D(3)31:D(4)30:D(5)31:D(6)30:D(7)31:D(8)31:D(9)30:D(10)31:D(11)30:D(12)31 MO$(d}nT(974)(975)25610:B0(T)(T1)256:B1(T2)(T3)256:CS(T8): GET THE POINTERS FROM THE BINARY CODE xT10:T208:T1T1(TT2)::T1T1(T1256)256:(T9)T1ė:"THE LOOKUP CHECKSUM IS NOT CORRECT!"::"RE-'EXECUTE DATE BOO               ٹ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 ֥ hL  ֥ -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فŴxaI10 &WSP& )`" !H)&JJ&&h' &' &' f&') &'#i%Ѕ0J$)` .ХQ&%0Q&&`$0JI0`'0% I`0 I0ܩ(ߠQ)'%01&*%0Q)&E%0*Q&&QeS)j00                      ٹ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ɰɫЉơe$v# \ۦuv $ W (Lb-逐@ HHLLF:L8gh}~`Ƀ` Sբ$L ) \ۥ$! ک$ȱȱж \L枱`8Єτ ,0 \ ,0 \ \۩ И F eihh eHiHvHuH j gݥ %ׅ^_L ީ  g ޥHHH XإvyzW4ȱuȱv Нƹ`ghȥQћ Pћ `֨gȑggiihij ֩*stopijklmn IآURhhHHz`gihi` ,  ,Є hhPQPQD X ȱȱQP- $_^ ijL<Ԡȱ^Șe^^_iȑ^^_Ң3 j )` )`ʠ$hh eL$p "tpM?E0<=Ѕυ 8ɀA N4O0Ťș98:I8xІșh0hhpo`M$L Z۽`H \h ֩P :ۤv  ڢ .ՆF v YLئij YՄ ֐D_i^aeii`jij圪8iae^_^`_a8stopiejȄ ӥPQmnij e֥gh^ DIRECTYPE MISMATCSTRING TOO LONFORMULA TOO COMPLECAN'T CONTINUUNDEF'D FUNCTIO ERROR IN BREAKɁ! i` Ӆmn8囅^圪#8^Ɨ8^ƕƗƕ` i65^^.`p(o"H H ANOҾSGINABUSFRSCRNPDPOSQRNLOEXCOSITAATPEELESTRVAASCHRLEFTRIGHTMIDNEXT WITHOUT FOSYNTARETURN WITHOUT GOSUOUT OF DATILLEGAL QUANTITOVERFLOOUT OF MEMORUNDEF'D STATEMENBAD SUBSCRIPREDIM'D ARRADIVISION BY ZERILLEGALPLOHLIVLIHGRHGHCOLORHPLODRAXDRAHTAHOMROTSCALESHLOATRACNOTRACNORMAINVERSFLASCOLORPOVTAHIMEMLOMEMONERRESUMRECALSTORSPEEDLEGOTRUIRESTORŦGOSURETURRESTOOWAILOASAVDEPOKPRINCONLISCLEAGENETABTFSPCTHEANOSTE0oeܔٱ0ۏ$1@hnW &tlnrvNjUaE=H jmكدzڕؤi֟H֐# A :dFZyy{{h}PTFNddENFONEXDATINPUDEDIREAGTEXPRINCAL                      A$+XR(MO$)2(DA$)2(YR$)221040ZRD((MO$))(DA$)T(YR$):MO$"02"DA$"29"(T4)4T21040: CHECK DAY AGAINST MONTH TABLES, ADJUST FOR LEAP YEARS bRDC$YR$MO$DA$:DU$DC$:U:D$;"OPEN ";F$UD$;"WRITE ";F$:C:D1$:DT$%RI1(DS$):(DS$,I,1)"/"210202R:21040\RI1I1(DS$):(DS$,I1,1)"/"21050z&R:DS$DS$(DD$,6):210500R"ERROR IN DATE":I0::RMO$(DS$,I1):DA$(DS$,I1,I1I1):YR$(DS$,I11)DR(MO$)1MO$"0"MO$NR(DA$)1DA$"0"D:"RETURN FOR MENU ";T$:2090p#TX14:TT,((T$,TX,1))128:TTTT1::TT,EC:TTTT1:: LOAD A TICKLE TIMEv' ND$;"PR#";CS:D$;"IN#";CS:*ND$;"PR#0":D$;"IN#0":973:RND$;"PR#1":: PRINTER ON (SLOT 1)\ND$;"PR#0":: PRINTER OFF T1:MT60MT:HT0HT24HT: SUBTRACT INTERVAL, DO WRAPSW#T$(MT):MT10T$"0"T$#T$(HT)T$:HT10T$"0"T$: PACK INTO 4 DIGIT TIME#9190##ECEC32:CTCT1:CT89180: BUMP EVENT POINTER AND COUNTER, ABORT AT 8 EVENTS##SKIP OR INTERVAL <5> ";C$:(C$,1)"S"9170=s#C$""C$"5"Ox#9190:T(C$)#TE$(A$(I),7):TE$TE$(BB$,32(TE$)):TX132:ET,((TE$,TX,1)):ETET1:: LOAD A TICKLE EVENT#T091609#HT((T$,2)):MT((T$,3)):T113:MTMTT:MT0HTH2#TS1:I1C:T$(A$(I),6):T$DU$9170:<#T$TA$9180bF#T((A$(I),7,4)):T0T23599170}I#(T$DU$)(TCT)9170L#(T$DU$)(TCT)9180N#(T$DU$)TSĺ:"<";TM$;">"::TS0P#T$(T)Z#(T$)4T$"0"T$:9050d#(A$(I),7)+n#" OF THE APPOINTMENT"-##K15000:K(#20000:"E";DS$:20010:21000::CT0:"LOADING TICKLERS:"::TTB0:ETB1:EC0:20000:"@";TC$-#"1+2400":"I";TA$:"K";TA$:"M";TM$:20010:TC((TC$,4))0#T0159:TTT,0:: CLEAR THE TICLKE TIMES)(A$(I),6)DC$260503#eDC$(A$(I),6):PL2026060M#eDC$DO$PL1926060t#eDC$DO$ĺ:24000:DO$DC$:PLPL2#e" ";:I100ĺ" ";:I10ĺ" ";#eI;" - ";(A$(I),7):PLPL1#e#e#xi:"ENTER THE DATE <";DD$;">";#i28000:T0271001":"aT$T$"1":T3T"an"aM((DU$,3,2)):DC$(DU$,4)"01":24010:PPD31:TD(M):M2(Y4)4YT29"aI1T:T1PP:I10T1T11"bT1:(T$,I,1)"1"Ğ" bIDDğ"bI;::PPPP3:PP22ĺ::PP1" b:PP1ĺ:"*b#eDO$"":I1C:1)::DD((D7)7)-!]M2(Y4)4YDD13!]y!a:7:T30:MO$(((DU$,3,2)));" 19";(DU$,2):T$"":T2$(DU$,4):!aI1C:T1$(A$(I),4):T((A$(I),5,2)):T2$T1$25070!aT2$T1$25060!aTT325060"aT1T(T$)1:T10āT21T1:T$T$"0]"`.?r$6P,a(ŠĠԠŠ)a(̠Š͠ӠĮ)6a(Π)}d?ed@e`M`.?r$]]ƠŬĠ]2o a(ǠԠϠŠĩ)a(Ġìİ)]ŠԠŠq.?6~?r]ð_6]]ϠĠҠΧԠUnd$ed%ed&ed'e d(ed)ed*ed+ed,eUsd-ed.ed/ed0ed1ed2ed3ed4ed5eUxd6ed7ehd8ed9ed:ed;ed<ed=ed>eU_d eHd ed ed ed ede#dededeUddededededededededeUidededededeJd ed!ed"ed#e| ]Ӡ]Kc (M6*2a(ӠΠ)1<ca(ŠɠĠ͠)F] P]ŠŠĠUZdededededeHdedededeh  6#:"THE OPTION ** SKIP OR INTERVAL ** ARE GIVEN" #:"ENTER < S > FOR NO REMINDER"::"ENTER < 0 > FOR ONE REMINDER AT":" TIME OF APPOINTMENT"::"ENTER < N > FOR N REMINDERS PRIOR":" THE APPT AND ONE AT THE TIME""#" BL25BL27BL:1:"RETURN FOR MENU ";T$:2090Y#:2:11:"** THE TICKLER **"#:5:"THE ACTIVITIES FOR THE DAY WILL"::"BE LISTED UNDER - LOADING TICKLERS -."::"IF THEIR ARE NO EVENTS, RETURN"::"TO MENU. IF THE ACTIVITIES ARE LISTED"^I17ĺI;":30 - ";:I12ĺ"LUNCH";hh::BL22:I1C:T$(A$(I),6):T((A$(I),7,4)):T$DC$8090yrT$DC$8080|T1700T800T1(T100):PL(T18)23((TT1100)30):PL:9:(A$(I),12):8080BL25ĢBL:9:(A$(I),7);:BLBL1|lI1TI1:CCT::"PURGING:"::I1T:(A$(I),6);" ";(A$(I),7)::I1C:A$(I)A$(IT):::"RETURN FOR MENU ";T$v2090@:"GLANCE AT A DAY"::27000::24000:EI817:I10ĺ"0";JI;":00 - ";:I12ĺ"LUNCH";T:I10ĺ"0";&:"REPORT FROM A DAY"::270003zP$"P"İ20050TPL0::26000:P$"P"İ20060{ICĄ"RETURN FOR MENU ";T$:2090:"RETURN FOR MENU, N FOR NEXT SET ";T$:(T$,1)"N"60102090X20000:"C";DU$:20010:I1C:(A$(I),6)DU$7020b4010 :"DELETE AN EVENT":I"ENTER THE INDEX OF THE EVENT ";I:WCI2090eI12090:"THIS EVENT IS:"::(A$(I),6);" ";(A$(I),7)::"REALLY DELETE IT ";T$(T$,1)"Y"2090I1IC1:A$(I1)A$(I11)::CC1:2090 pENTS 23000 2090,DD((DU$,5))25000:PL11:DC$DU$:13:26000:24:"RETURN FOR MENU, N FOR NEXT MONTH ";T$:(T$,1)"N"2090T((DU$,3,2))1:T13DU$(((DU$,2))1):T1T$(T):T10T$"0"T$DU$(DU$,2)T$"01":DD0:"P"7000C$"G"8000*C$"T"8990CC$"E"İ22000:9999M2090o :"SCHEDULE AN EVENT":27000~ :24000: "ENTER ACTIVITY": "IN THE FORM OF ** HHMM (ACTIVITY) **": "";A$:A$(A$,40):A$""2090: NEVER SCHEDULE NULL EV" P - PURGE PAST DAY'S EVENTS":z" T - TICKLER LOAD"W" E - END THE SESSION"z"PRESS < ESC > FOR MAIN MENU":"ENTER THE COMMAND ";C$P$(C$,2):C$(C$,1)C$"S"3000C$"C"4000C$"D"5000C$"R"6000C$ C020700 I1C:D$;"READ ";F$:A$(I):D D$;"CLOSE ";F$N 2100W *:4m 4:"FUNCTIONS:": >" S - SCHEDULE AN EVENT" H" C - CALENDAR" R" G - GLANCE AT A DAY" \" R - REPORT FROM A DAY" f" D - DELETE AN EVENT" p:T 20000:"A";TI$:"C";DU$:"E";DD$:"D";DT$:20010: GET STARTING TIME & DATEc 16:DT$:v D$;"OPEN ";F$ D$;"READ ";F$ C,D1$,D2$ "THERE ARE ";C;" RECORDS IN THE BOOK" "DATE OF CREATION ";D1$:"DATE OF LAST UPDATE ";D2$A$(256) D$(4)S BB$" ": 32 BYTES OF SPACES F$"DB SEQ": FILE FOR DATES, USER MAY PUT QUERY HERE! :14::" ":14:" M B I ":14:" ":14:" DATE BOOK ":14:" ":8)31:D(9)30:D(10)31:D(11)30:D(12)31 MO$(12):MO$(1)"JANUARY":MO$(2)"FEBRUARY":MO$(3)"MARCH":MO$(4)"APRIL":MO$(5)"MAY":MO$(6)"JUNE":MO$(7)"JULY":MO$(8)"AUGUST":MO$(9)"SEPTEMBER":MO$(10)"OCTOBER":MO$(11)"NOVEMBER":MO$(12)"DECEMBER" CHECKSUM IS NOT CORRECT!"::"RE-'EXECUTE DATE BOOK'":1,32767 D$(0)"SUNDAY":D$(1)"MONDAY":D$(2)"TUESDAY":D$(3)"WEDNESDAY":D$(4)"THURSDAY":D$(5)"FRIDAY":D$(6)"SATURDAY"( D(12):D(0)0:D(1)31:D(2)28:D(3)31:D(4)30:D(5)31:D(6)30:D(7)31:D(3 DATE BOOK - (C) COPYRIGHT 1982, MBI, CORP. 9dnT(974)(975)25610:B0(T)(T1)256:B1(T2)(T3)256:CS(T8): GET THE POINTERS FROM THE BINARY CODE> xT10:T208:T1T1(TT2)::T1T1(T1256)256:(T9)T1ė:"THE LOOKUP                    5)"/"(DC$,2): CHANGE DEFAULT '&,jD&`mT(16384):T12828000t&jmT136T149T212Ĺ16368,T:TT140:28020|&omT0&tm: WAIT FOR A KEY, IF RETURN -4, IF RETURN 9, IF RETURN 72, ELSE RETURN WITH STROBE STILL SET&OMO1:MO13MO1:YRYR1;%iDA$(DA):DA10DA$"0"DA$\%iMO$(MO):MO10MO$"0"MO$}%iYR$(YR):YR10YR$"0"YR$%iDD$MO$"/"DA$"/"YR$%i1:(37):27000%i"";DS$:(DS$)0DS$DD$%j21000:I027000!&jDD$(DC$,3,2)"/"(DC$,$iT72ĺ:20000:"E";DD$:20010:(37)1:27000l$iDA((DD$,4,2)):MO((DD$,2)):YR$(DD$,7):YR(YR$)$iDADA(T):DA0DA29:MOMO1:(MO2)(YR4)4YRDAD(MO):MO0MO12:DA31:YRYR1%iDAD(MO)ĭ(DA29)(MO2)((YR4)4YR)DA1:M(A$(I),6)DC$260503#eDC$(A$(I),6):PL2026060M#eDC$DO$PL1926060t#eDC$DO$ĺ:24000:DO$DC$:PLPL2#e" ";:I100ĺ" ";:I10ĺ" ";#eI;" - ";(A$(I),7):PLPL1#e#e#xi:"ENTER THE DATE <";DD$;">";#i28000:T0271001":"aT$T$"1":T3T"an"aM((DU$,3,2)):DC$(DU$,4)"01":24010:PPD31:TD(M):M2(Y4)4YT29"aI1T:T1PP:I10T1T11"bT1:(T$,I,1)"1"Ğ" bIDDğ"bI;::PPPP3:PP22ĺ::PP1" b:PP1ĺ:"*b#eDO$"":I1C:1)::DD((D7)7)-!]M2(Y4)4YDD13!]y!a:7:T30:MO$(((DU$,3,2)));" 19";(DU$,2):T$"":T2$(DU$,4):!aI1C:T1$(A$(I),4):T((A$(I),5,2)):T2$T1$25070!aT2$T1$25060!aTT325060"aT1T(T$)1:T10āT21T1:T$T$"010)T$23050 Z5 ZI1C1I1:A$(I1)A$(I11):T ZA$(I)YR$MO$DA$A$:CC1Z Z ](DC$,3,2);"/";(DC$,5);"/";(DC$,2);" ";:24010:D$(D): ]Y((DC$,2)):M((DC$,3,2)):D(365(Y2)(Y1)4)((DC$,5))2!]T1((DC$,3,2)):DDD(TS, ADJUST FOR LEAP YEARS 7bRDC$YR$MO$DA$:DU$DC$:LU:D$;"OPEN ";F$mUD$;"WRITE ";F$:C:D1$:DT$xVI1CVD$;"WRITE ";F$VA$(I)"V,VD$;"CLOSE ";F$6VYC0I1:23060YT$(YR$MO$DA$A$,10)YI1C Y(A$(I),:;:RMO$(DS$,I1):DA$(DS$,I1,I1I1):YR$(DS$,I11)UDR(MO$)1MO$"0"MO$oNR(DA$)1DA$"0"DA$XR(MO$)2(DA$)2(YR$)221040ZRD((MO$))(DA$)T(YR$):MO$"02"DA$"29"(T4)4T21040: CHECK DAY AGAINST MONTH TABLES:$*ND$;"PR#0":D$;"IN#0":973:KRND$;"PR#1":: PRINTER ON (SLOT 1)l\ND$;"PR#0":: PRINTER OFF RI1(DS$):(DS$,I,1)"/"21020R:21040RI1I1(DS$):(DS$,I1,1)"/"21050&R:DS$DS$(DD$,6):210500R"ERROR IN DATE":I0OPTION "g'"IF SO, HIT TO ABORT AND RETURN TO ":"MAIN MENU "$':"WOULD YOU LIKE TO RETURN TO THE MAIN (MENU (Y/N) ?";A$.'A$"N"ī20908'A$"Y"ĺ"RUN HELLO"B'10020 ND$;"PR#";CS:D$;"IN#";CTER AND COUNTER, ABORT AT 8 EVENTS(#K#:"RETURN FOR MENU ";T$:2090#TX14:TT,((T$,TX,1))128:TTTT1::TT,EC:TTTT1:: LOAD A TICKLE TIME'"RUN HELLO" '::"BEFORE ENDING, DID YOU SAVE YOUR DATA? ":"IF NOT, HIT AND CHOOSE M:5000 H3H20:MMH:5000' 420[ FPI(M15):140,80(F)H3XF140,(F)H380: pD$(4):D$;"PR#";SL$::D$;"IN#";SL$:"3 ":"@";T$ uXX(16336)(16336) zD$;"PR#0":D$;"IN#0": 00 NTC0 XH3H10@ ](49152)155Ĺ49168,0:"RUN HELLO"a bM((T$,5,2)):3:5000:MSMw lH3H8:MMM:5000 vH3H20:MMH:5000 0:H3H10:MMS:6000:5000 ICIC1:IC30ė:::D$;"RUN DEMO 0" (T$,5,2)"00"600 H3H8:MM DEMO 9 :+ SL$((768));:16302,0B3V2PI3.14159260_4H60k6XF1.15P"BLOAD HCLOCK"6000M((T$,3,2)):MMMH3H8:5000MX((T$,1,2)):MX12MXMX12MMX5(M560):MHM H3H20:50  ,2)):MT((T$,3)):T113:MTMTT:MT0HTHT1:MT60MT:HT0HT24HT: SUBTRACT INTERVAL, DO WRAPS#T$(MT):MT10T$"0"T$#T$(HT)T$:HT10T$"0"T$: PACK INTO 4 DIGIT TIME#9190#"#ECEC32:CTCT1:CT89180: BUMP EVENT POIN(T$)4T$"0"T$:9050&d#(A$(I),7)Xn#"SKIP OR INTERVAL <5> ";C$:(C$,1)"S"9170js#C$""C$"5"|x#9190:T(C$)#TE$(A$(I),7):TE$TE$(BB$,32(TE$)):TX132:ET,((TE$,TX,1)):ETET1:: LOAD A TICKLE EVENT#T09160f#HT((T$T0159:TTT,0:: CLEAR THE TICLKE TIMESV2#TS1:I1C:T$(A$(I),6):T$DU$9170g<#T$TA$9180F#T((A$(I),7,4)):T0T23599170I#(T$DU$)(TCT)9170L#(T$DU$)(TCT)9180N#(T$DU$)TSĺ:"<";TM$;">"::TS0P#T$(T)Z#E TIME,"#" OF THE APPOINTMENT"Z$#24:"PRESS ANY KEY TO CONTINUE";:A$::(#20000:"E";DS$:20010:21000::CT0:"LOADING TICKLERS:"::TTB0:ETB1:EC0:20000:"@";TC$-#"1+2400":"I";TA$:"K";TA$:"M";TM$:20010:TC((TC$,4))*0#* SKIP OF INTERVAL ** ARE GIVEN WHEN"E#:"ACTIVITIES ARE LISTED." #::"ENTER < S > FOR NO REMINDER"::"ENTER < 0 > FOR ONE REMINDER AT":" TIME OF APPOINTMENT"::"ENTER < N > FOR N REMINDERS PRIOR THE":" APPT AND ONE AT TH0):PL:9:(A$(I),12):8080CBL25ĢBL:9:(A$(I),7);:BLBL1IYBL25BL2BL:1:"RETURN FOR MENU ";T$:2090%#:3:"THE ACTIVITIES FOR THE DAY WILL"::"BE LISTED. IF THERE ARE NO EVENTS, "::"RETURN TO MENU. THE OPTIONS "::"*EI817:I10ĺ"0";6JI;":00 - ";:I12ĺ"LUNCH";HT:I10ĺ"0";p^I17ĺI;":30 - ";:I12ĺ"LUNCH";h::BL22:I1C:T$(A$(I),6):T((A$(I),7,4)):T$DC$8090rT$DC$8080|T1700T800T1(T100):PL(T18)23((TT1100)360102090FX20000:"C";DU$:20010:I1C:(A$(I),6)DU$7020LblI1TI1:CCT::"PURGING:"::I1T:(A$(I),6);" ";(A$(I),7)::I1C:A$(I)A$(IT):::"RETURN FOR MENU ";T$v2090@:"GLANCE AT A DAY"::27000::24000:;T$(T$,1)"Y"2090FI1IC1:A$(I1)A$(I11)::CC1:2090jp:"REPORT FROM A DAY"::27000}zP$"P"İ20050PL0::26000:P$"P"İ20060ICĄ"RETURN FOR MENU ";T$:2090:"RETURN FOR MENU, N FOR NEXT SET ";T$:(T$,1)"N"CK CALANDAR TO FIND INDEX)"#:@8:"RETURN FOR MENU OR"H10x"ENTER THE INDEX OF THE EVENT ";I$:I(I$)I$(13)2090CI2090I12090::"THIS EVENT IS:"::(A$(I),6);" ";(A$(I),7)::"DELETE THE EVENT (Y/N)" RETURN 72, ELSE RETURN WITH STROBE STILL SET6#T(DS$)0DS$DD$%"j21000:I027000d"jDD$(DC$,3,2)"/"(DC$,5)"/"(DC$,2): CHANGE DEFAULT j",j"`mT(16384):T12828000"jmT136T149T212Ĺ16368,T:TT140:28020"omT00#tm: WAIT FOR A KEY, IF RETURN -4, IF RETURN 9, IF A31:YRYR1]!iDAD(MO)ĭ(DA29)(MO2)((YR4)4YR)DA1:MOMO1:MO13MO1:YRYR1~!iDA$(DA):DA10DA$"0"DA$!iMO$(MO):MO10MO$"0"MO$!iYR$(YR):YR10YR$"0"YR$!iDD$MO$"/"DA$"/"YR$!i1:(37):27000"i"";DS$:ME":"IN THIS MANNER. SO WE HAVE TRIED TO":"ACCOMODATE THESE PEOPLE AS WELL!"Z x20000 (49152)155Ĺ49168,0:"RUN HELLO" 'D$;"RUN DEMO 9" ND$;"PR#";SL$:D$;"IN#";SL$ *N"3 ":"3 ":"3 ":"3 ":"3 ":"3 " 4ND$;"PR#0":D$;"IN#0": DEMO 8$ SL$((768))0D$(4)8:ZT$" ":3:15:T$s 15:" M B I ""15:T$#15:" APPLETIME "&15:T$(dO n"WELL, WE AT MBI CORP. REALIZE THAT":"NOT EVERYONE APPRECIATES TELLING TI e e+ xi:"ENTER THE DATE <";DD$;">";A i28000:T027100t iT72ĺ:20000:"E";DD$:20010:(37)1:27000 iDA((DD$,4,2)):MO((DD$,2)):YR$(DD$,7):YR(YR$) !iDADA(T):DA0DA29:MOMO1:(MO2)(YR4)4YRDAD(MO):MO0MO12:DPPPP3:PP22ĺ::PP1( b:PP1ĺ:.*bVeDO$"":I1C:(A$(I),6)DC$26050veDC$(A$(I),6):PL2026060eDC$DO$PL1926060eDC$DO$ĺ:24000:DO$DC$:PLPL2e" ";:I100ĺ" ";:I10ĺ" ";eI;" - ";(A$(I),7):PLPL1 T1$25060aTT325060FaT1T(T$)1:T10āT21T1:T$T$"0":YaT$T$"1":T3T_aaM((DU$,3,2)):DC$(DU$,4)"01":24010:PPD31:TD(M):M2(Y4)4YT29aI1T:T1PP:I10T1T11bT1:(T$,I,1)"1"Ğ bIDDğbI;::(365(Y2)(Y1)4)((DC$,5))2V]T1((DC$,3,2)):DDD(T1)::DD((D7)7)p]M2(Y4)4YDD1v]a:7:T30:MO$(((DU$,3,2)));" 19";(DU$,2):T$"":T2$(DU$,4):aI1C:T1$(A$(I),4):T((A$(I),5,2)):T2$T1$25070 aT2$C0I1:23060*YT$(YR$MO$DA$A$,10)5YI1COY(A$(I),10)T$23050UZx ZI1C1I1:A$(I1)A$(I11):ZA$(I)YR$MO$DA$A$:CC1Z](DC$,3,2);"/";(DC$,5);"/";(DC$,2);" ";:24010:D$(D):#]Y((DC$,2)):M((DC$,3,2)):D"02"DA$"29"(T4)4T21040: CHECK DAY AGAINST MONTH TABLES, ADJUST FOR LEAP YEARS zbRDC$YR$MO$DA$:DU$DC$:U:D$;"OPEN ";F$UD$;"WRITE ";F$:C:D1$:DT$VI1CVD$;"WRITE ";F$VA$(I)"V,VD$;"CLOSE ";F$6VY1)"/"21050*&R:DS$DS$(DD$,6):21050E0R"ERROR IN DATE":I0:~:RMO$(DS$,I1):DA$(DS$,I1,I1I1):YR$(DS$,I11)DR(MO$)1MO$"0"MO$NR(DA$)1DA$"0"DA$XR(MO$)2(DA$)2(YR$)221040\ZRD((MO$))(DA$)T(YR$):MO$C:TTTT1:: LOAD A TICKLE TIME&'F ND$;"PR#";CS:D$;"IN#";CS:g*ND$;"PR#0":D$;"IN#0":973:RND$;"PR#1":: PRINTER ON (SLOT 1)\ND$;"PR#0":: PRINTER OFF RI1(DS$):(DS$,I,1)"/"21020R:21040 RI1I1(DS$):(DS$,I1,"0"T$A#T$(HT)T$:HT10T$"0"T$: PACK INTO 4 DIGIT TIMEK#9190Q##ECEC32:CTCT1:CT89180: BUMP EVENT POINTER AND COUNTER, ABORT AT 8 EVENTS##:"RETURN FOR MENU ";T$:2090 #TX14:TT,((T$,TX,1))128:TTTT1::TT,Eg#TE$(A$(I),7):TE$TE$(BB$,32(TE$)):TX132:ET,((TE$,TX,1)):ETET1:: LOAD A TICKLE EVENTu#T09160#HT((T$,2)):MT((T$,3)):T113:MTMTT:MT0HTHT1:MT60MT:HT0HT24HT: SUBTRACT INTERVAL, DO WRAPS#T$(MT):MT10T$:T0T23599170-I#(T$DU$)(TCT)9170HL#(T$DU$)(TCT)9180pN#(T$DU$)TSĺ:"<";TM$;">"::TS0|P#T$(T)Z#(T$)4T$"0"T$:9050d#(A$(I),7)n#"SKIP OR INTERVAL <5> ";C$:(C$,1)"S"9170s#C$""C$"5"x#9190:T(C$):CT0:"LOADING TICKLERS:"::TTB0:ETB1:EC0:20000:"@";TC$}-#"1+2400":"I";TA$:"K";TA$:"M";TM$:20010:TC((TC$,4))0#T0159:TTT,0:: CLEAR THE TICLKE TIMES2#TS1:I1C:T$(A$(I),6):T$DU$9170<#T$TA$9180F#T((A$(I),7,4))  L"P";T VD$;"PR#0"/ `D$;"IN#0"5 j;  $;"PR#";SL$] D$;"IN#";SL$g "3 "m x L"P";T VD$;"PR#0" `D$;"IN#0" j  06)(16336) zD$;"PR#0":D$;"IN#0": C(T0T)100.5)100;" SECONDS."::"SEE WHAT A DIFFERENCE LINE NUMBERS MAKE!" I18:1000:I:1100:(49152)155Ĺ49168,0:"RUN HELLO" D$;"RUN DEMO 8" I12300 I , I12300:I  D$;"PR#";SL$ D$;"IN#";SL$ "3 "= DEMO 7D$(4) 2 SL$((768))d"THE PROGRAM SEGMENT:":200,300:1000:200:1100:"TAKES ";T;" SECONDS.":T0Tin"WHILE THE SEGMENT:":400,500:1000:400:1100:"TAKES ";;T;" SECONDS."sL x"THAT'S A DIFFERENCE OF ";(  z#?  Š³  Ϯ ؠӠ !Ġ   ˠ Ԡ   Šˠ Ҡ̠" ŠŠˠ ԠŠˠŠ Ѡ ɠŮ "ϠϠϠϠ Ԡ à2 à2 ˠˠϠϠϠϠ Ϡ!Ϡ ϠɠŠˠ"Ҡ РҠ ŠĠˠ + D$(4):CL$D$"PR#4"(13)D$"IN#4"MRS$D$"PR#0"(13)D$"IN#0"VCL$b<"E";C$kdRS$s:C$;:97334,2 D:28020%omT0%tm: WAIT FOR A KEY, IF RETURN -4, IF RETURN 9, IF RETURN 72, ELSE RETURN WITH STROBE STILL SET%DR10YR$"0"YR$,$iDD$MO$"/"DA$"/"YR$A$i1:(37):27000_$i"";DS$:(DS$)0DS$DD$u$j21000:I027000$jDD$(DC$,3,2)"/"(DC$,5)"/"(DC$,2): CHANGE DEFAULT $,j$`mT(16384):T12828000%jmT136T149T212Ĺ16368,T:TT140\#iDADA(T):DA0DA29:MOMO1:(MO2)(YR4)4YRDAD(MO):MO0MO12:DA31:YRYR1#iDAD(MO)ĭ(DA29)(MO2)((YR4)4YR)DA1:MOMO1:MO13MO1:YRYR1#iDA$(DA):DA10DA$"0"DA$#iMO$(MO):MO10MO$"0"MO$$iYR$(YR):YPLPL2,"e" ";:I100ĺ" ";:I10ĺ" ";L"eI;" - ";(A$(I),7):PLPL1R"eX"e{"xi:"ENTER THE DATE <";DD$;">";"i28000:T027100"iT72ĺ:20000:"E";DD$:20010:(37)1:27000"iDA((DD$,4,2)):MO((DD$,2)):YR$(DD$,7):YR(YR$)9 !aI1T:T1PP:I10T1T119!bT1:(T$,I,1)"1"ĞE! bIDDğg!bI;::PPPP3:PP22ĺ::PP1x! b:PP1ĺ:~!*b!eDO$"":I1C:(A$(I),6)DC$26050!eDC$(A$(I),6):PL2026060!eDC$DO$PL1926060"eDC$DO$ĺ:24000:DO$DC$:$(DU$,4):G aI1C:T1$(A$(I),4):T((A$(I),5,2)):T2$T1$25070Z aT2$T1$25060j aTT325060 aT1T(T$)1:T10āT21T1:T$T$"0": aT$T$"1":T3T a!aM((DU$,3,2)):DC$(DU$,4)"01":24010:PPD31:TD(M):M2(Y4)4YT2";(DC$,5);"/";(DC$,2);" ";:24010:D$(D):s]Y((DC$,2)):M((DC$,3,2)):D(365(Y2)(Y1)4)((DC$,5))2]T1((DC$,3,2)):DDD(T1)::DD((D7)7)]M2(Y4)4YDD1] a:7:T30:MO$(((DU$,3,2)));" 19";(DU$,2):T$"":T2 VI1CVD$;"WRITE ";F$*VA$(I)0"VD,VD$;"CLOSE ";F$J6V^YC0I1:23060zYT$(YR$MO$DA$A$,10)YI1CY(A$(I),10)T$23050Z ZI1C1I1:A$(I1)A$(I11):ZA$(I)YR$MO$DA$A$:CC1Z,](DC$,3,2);"/768,I: STORE THE SLOT FOR THE 'FULL' ROUTINE @::"THE DATE BOOK WILL BE RUN WITH THE"::"APPLETIME CLOCK IN SLOT ";I;"." J:  WILL BE RUN WITH THE"::"APPLETIME CLOCK IN SLOT ";I;"." J: 2 FINDER_dI172nA16384I256DxA12432523Y(AA1)76200b300iI::(7);"I CAN'T FIND AN APPLETIME CLOCK HERE.":"I CAN'T RUN THE DATE BOOK."::"USE CTRL(C) TO ABORT THE EXEC FILE."240. , :"SCHEDULE AN EVENT":27000. :24000:H :"ENTER ACTIVITY":v "IN THE FORM OF ** HHMM (ACTIVITY) **": "TIME MUST BE MILITARY": "";A$:A$(A$,40):A$""2090: NEVER SCHEDULE NULL EVENTS 23000 2090DD((DU$,5))aE SESSION")" M - ABORT / MAIN MENU"H:"ENTER THE COMMAND ";C$bP$(C$,2):C$(C$,1)sC$"S"3000C$"C"4000C$"D"5000C$"R"6000C$"G"8000C$"T"8990C$"E"İ22000:9999C$"M"100002090 D$;"CLOSE ";F$! FL0:2100/ *:FL1:4E 4:"FUNCTIONS:":d >" S - SCHEDULE AN EVENT"z H" C - CALENDAR" R" G - GLANCE AT A DAY" \" R - REPORT FROM A DAY" f" D - DELETE AN EVENT" z" T - TICKLER LOAD" " E - END TH:20010: GET STARTING TIME & DATE1 16:DT$:D D$;"OPEN ";F$W D$;"READ ";F$f C,D1$,D2$ "THERE ARE ";C;" RECORDS IN THE BOOK" "DATE OF CREATION ";D1$:"DATE OF LAST UPDATE ";D2$ C02070 I1C:D$;"READ ";F$:A$(I): ": 32 BYTES OF SPACES\ F$"DB SEQ": FILE FOR DATES, USER MAY PUT QUERY HERE! :14::" ":14:" M B I ":14:" ":14:" DATE BOOK ":14:" "::" 20000:"A";TI$:"C";DU$:"E";DD$:"D";DT$12):MO$(1)"JANUARY":MO$(2)"FEBRUARY":MO$(3)"MARCH":MO$(4)"APRIL":MO$(5)"MAY":MO$(6)"JUNE":MO$(7)"JULY":MO$(8)"AUGUST":MO$(9)"SEPTEMBER":MO$(10)"OCTOBER":MO$(11)"NOVEMBER":MO$(12)"DECEMBER" A$(256) D$(4)! BB$" K'":1,32767 D$(0)"SUNDAY":D$(1)"MONDAY":D$(2)"TUESDAY":D$(3)"WEDNESDAY":D$(4)"THURSDAY":D$(5)"FRIDAY":D$(6)"SATURDAY" D(12):D(0)0:D(1)31:D(2)28:D(3)31:D(4)30:D(5)31:D(6)30:D(7)31:D(8)31:D(9)30:D(10)31:D(11)30:D(12)31 MO$(d}nT(974)(975)25610:B0(T)(T1)256:B1(T2)(T3)256:CS(T8): GET THE POINTERS FROM THE BINARY CODE xT10:T208:T1T1(TT2)::T1T1(T1256)256:(T9)T1ė:"THE LOOKUP CHECKSUM IS NOT CORRECT!"::"RE-'EXECUTE DATE BOO     "THIS CONCLUDES THE APPLETIME CLOCK":19:10:"HAVE A GREAT DAY !!!":23:17:"M B I"[  De!&!E@JHT hLR`wLh L  ih 4+-,HaH`H  iae`dh`hah+ LT ~LT ` E yar` E `zar`ya`r` E yla L E r`8 # L E r\ F9  X`   )Hh)Hh H0h"h)  j m"F 8UHFhF !&!! :!      ; > C H O a x      ! & + 0 5 W Z   סL & `Hy zhx ` סL   ` Ġ0A: )`G)i `8` ̠ `\ ٿ`\ ٿ`H h `H h`HHHHHH0 tttMMMi-L 8-LʥMˠe@< < m q   hhhhh`    :8:"RETURN FOR MENU OR"'10W"ENTER THE INDEX OF THE EVENT ";I$:I(I$)jI$(13)2090xCI2090I12090::"THIS EVENT IS:"::(A$(I),6);" ";(A$(I),7)::"DELETE THE EVENT (Y/N)";T$(T$,1)"Y"2090%I:24:"RETURN FOR MENU, N FOR NEXT MONTH ";T$:(T$,1)"N"2090uT((DU$,3,2))1:T13DU$(((DU$,2))1):T1T$(T):T10T$"0"T$DU$(DU$,2)T$"01":DD0:4010:"DELETE AN EVENT":::"(CHECK CALANDAR TO FIND INDEX)" :"SCHEDULE AN EVENT":27000. :24000:F "ENTER ACTIVITY":t "IN THE FORM OF ** HHMM (ACTIVITY) **": "";A$:A$(A$,40):A$""2090: NEVER SCHEDULE NULL EVENTS 23000 2090DD((DU$,5))@25000:PL11:DC$DU$:13:26000E SESSION")" M - ABORT / MAIN MENU"H:"ENTER THE COMMAND ";C$bP$(C$,2):C$(C$,1)sC$"S"3000C$"C"4000C$"D"5000C$"R"6000C$"G"8000C$"T"8990C$"E"İ22000:9999C$"M"100002090 D$;"CLOSE ";F$! FL0:2100/ *:FL1:4E 4:"FUNCTIONS:":d >" S - SCHEDULE AN EVENT"z H" C - CALENDAR" R" G - GLANCE AT A DAY" \" R - REPORT FROM A DAY" f" D - DELETE AN EVENT" z" T - TICKLER LOAD" " E - END TH:20010: GET STARTING TIME & DATE1 16:DT$:D D$;"OPEN ";F$W D$;"READ ";F$f C,D1$,D2$ "THERE ARE ";C;" RECORDS IN THE BOOK" "DATE OF CREATION ";D1$:"DATE OF LAST UPDATE ";D2$ C02070 I1C:D$;"READ ";F$:A$(I): ": 32 BYTES OF SPACES\ F$"DB SEQ": FILE FOR DATES, USER MAY PUT QUERY HERE! :14::" ":14:" M B I ":14:" ":14:" DATE BOOK ":14:" "::" 20000:"A";TI$:"C";DU$:"E";DD$:"D";DT$12):MO$(1)"JANUARY":MO$(2)"FEBRUARY":MO$(3)"MARCH":MO$(4)"APRIL":MO$(5)"MAY":MO$(6)"JUNE":MO$(7)"JULY":MO$(8)"AUGUST":MO$(9)"SEPTEMBER":MO$(10)"OCTOBER":MO$(11)"NOVEMBER":MO$(12)"DECEMBER" A$(256) D$(4)! BB$" K'":1,32767 D$(0)"SUNDAY":D$(1)"MONDAY":D$(2)"TUESDAY":D$(3)"WEDNESDAY":D$(4)"THURSDAY":D$(5)"FRIDAY":D$(6)"SATURDAY" D(12):D(0)0:D(1)31:D(2)28:D(3)31:D(4)30:D(5)31:D(6)30:D(7)31:D(8)31:D(9)30:D(10)31:D(11)30:D(12)31 MO$(d}nT(974)(975)25610:B0(T)(T1)256:B1(T2)(T3)256:CS(T8): GET THE POINTERS FROM THE BINARY CODE xT10:T208:T1T1(TT2)::T1T1(T1256)256:(T9)T1ė:"THE LOOKUP CHECKSUM IS NOT CORRECT!"::"RE-'EXECUTE DATE BOO      N YOU START VISIDEX, YOU MUST SPECIFYSLOT 8 FOR THE CLOCK! ";:OY! -"  768,I48- XX(4096131)5 : 3:10:"WELCOME TO APPLETIME":6:14:"A PRODUCT OF":8:16::" M B I ": 13:15:"MAIN MENU" 15:7:"(1) SET CLOCK / CALENDAR" 16:7:"(2) RUN DATE BOOK" 17:7:"(3) CON(AA1)76140 170 I' :F T$" ":12:T$R 12:T$k 12:" M B I " 12:" APPLETIME ":12:T$:12:T$: 12:2:(7);"I CAN'T FIND AN APPLETIME CARD HERE":14:10:"THE CLOCK CANNOT RUN"::20:20:"- SORR HELLO APPLETIME CLOCKk::5:17:"M B I":7:14:"PRESENTS THE":9:10:"APPLETIME CLOCK CARD"21:13:"COPYRIGHT 1982":23:4:"MICROCOMPUTER BUSINESS INDUSTRIES"(D$(4)2K11800:KnI17:A16384I256 xA12432523:  !! I),7)7n#"SKIP OR INTERVAL <5> ";C$:(C$,1)"S"9170Is#C$""C$"5"[x#9190:T(C$)#TE$(A$(I),7):TE$TE$(BB$,32(TE$)):TX132:ET,((TE$,TX,1)):ETET1:: LOAD A TICKLE EVENT#T09160E#HT((T$,2)):MT((T$,3)):T113:MTMTLKE TIMES52#TS1:I1C:T$(A$(I),6):T$DU$9170F<#T$TA$9180nF#T((A$(I),7,4)):T0T23599170I#(T$DU$)(TCT)9170L#(T$DU$)(TCT)9180N#(T$DU$)TSĺ:"<";TM$;">"::TS0P#T$(T)Z#(T$)4T$"0"T$:9050d#(A$(PPOINTMENT"9$#24:"PRESS ANY KEY TO CONTINUE";:A$::(#20000:"E";DS$:20010:21000::CT0:"LOADING TICKLERS:"::TTB0:ETB1:EC0:20000:"@";TC$-#"1+2400":"I";TA$:"K";TA$:"M";TM$:20010:TC((TC$,4)) 0#T0159:TTT,0:: CLEAR THE TICHEN"$#:"ACTIVITIES ARE LISTED." #::"ENTER < S > FOR NO REMINDER"::"ENTER < 0 > FOR ONE REMINDER AT":" TIME OF APPOINTMENT"::"ENTER < N > FOR N REMINDERS PRIOR THE":" APPT AND ONE AT THE TIME "#" OF THE ABL25ĢBL:9:(A$(I),7);:BLBL1(8BL25BL2`BL:1:"RETURN FOR MENU ";T$:2090#:3:"THE ACTIVITIES FOR THE DAY WILL"::"BE LISTED. IF THERE ARE NO EVENTS, "::"RETURN TO MENU. THE OPTIONS "::"** SKIP OF INTERVAL ** ARE GIVEN W - ";:I12ĺ"LUNCH";'T:I10ĺ"0";O^I17ĺI;":30 - ";:I12ĺ"LUNCH";h::BL22:I1C:T$(A$(I),6):T((A$(I),7,4)):T$DC$8090rT$DC$8080|T1700T800T1(T100):PL(T18)23((TT1100)30):PL:9:(A$(I),12):8080"$:20010:I1C:(A$(I),6)DU$7020+blI1TI1:CCT::"PURGING:"::I1T:(A$(I),6);" ";(A$(I),7)::I1C:A$(I)A$(IT):::"RETURN FOR MENU ";T$v2090@:"GLANCE AT A DAY"::27000::24000:EI817:I10ĺ"0";JI;":001IC1:A$(I1)A$(I11)::CC1:2090Ip:"REPORT FROM A DAY"::27000\zP$"P"İ20050}PL0::26000:P$"P"İ20060ICĄ"RETURN FOR MENU ";T$:2090:"RETURN FOR MENU, N FOR NEXT SET ";T$:(T$,1)"N"60102090%X20000:"C";DU :"THIS WILL CREATE AN EMPTY FILE FOR":"THE DATE BOOK PROGRAM."::"READY? ";T$w ,D$;"OPEN ";F$:D$;"WRITE ";F$ 60:DA$:DA$ D$;"CLOSE ";F$ "THE FILE IS READY." F INIT DATE BOOK FILE+F$"DB SEQ"dI17:A16384I256:A12432523:(AA1)76220m240tI::(7);"I CAN'T FIND AN APPLETIME CLOCK HERE.":"I CAN'T RUN!":D$(4):D$;"PR#";I:D$;"IN#"I:"D";DA$:D$;"PR#0":D$;"IN#0"T VWXV`.?rL%_"VV_TV"VYD,Vcca(ɠΧԠĠΠŠˠ)ca(ɠΧԠή)QTVq^Vq.?60r[QΧԠĠΠŠˠ)ca(ɠΧԠή)QTVq^Vq.?60r[Q@Qc<a԰@GPaİ@GPa@>aԱ@GPaı@GPa@ @PaIJ@Ao Pa(Ժ)cFaԴ@GPaĴ@GPa@HaԵ@GPaĵ@GPa@ JPaĶ@Lcca(ΠŠ)E@ PoP(d_ UUVWUq6@VU)Fa(ң)Fa()]ԠϠ a() S()&@S()&԰@S()&Ա@S()&İ@S()&ı@S()&IJ@!S()&@S()&@#S()&Դ@S()&Ե@%S()&Ĵ@S()&ĵ@S()&Ķ@'S()&@S()&@ (a(ң) 2a(Σ)7oPa(̺)%]ɠŠҠà\U1N԰@"rCԱ@"rCİ@"rCı@"rCIJ@"rN@"rC@"r1NԴ@"rCԵ@"rCĴ@"rCĵ@"rCĶ@"rN@"rC@"rC@"r1 M6oa(Ҡàˠ) a(Σ   @ @@@@`0 @  @,@ 00@pl@s@ 8p d@  @M` @~@@@ @!p@@`| @@@ `"P@ @ AGpAA@p@ `` HGG@DH@ 4 @@@@ @|@?@ @6N@ (!@ 80@ @@@@@0@ `@ @HsH@@@ 0 "0@ g@`@(!B@@@ 0`OHH@DJ@ @@@@ @0 @0@ pp@ !@ @` H@@  @@@@@`@@ 0@@@@  `@ 0 B@` ""@`@ 0 HHH@DM@  @ ~@ H @ @ @p@x"!@ 0 @ 0@ @X@@ ~@ @ 0@@h @ `           CK CALANDAR TO FIND INDEX)"#:@8:"RETURN FOR MENU OR"H10x"ENTER THE INDEX OF THE EVENT ";I$:I(I$)I$(13)2090CI2090I12090::"THIS EVENT IS:"::(A$(I),6);" ";(A$(I),7)::"DELETE THE EVENT (Y/N)"25000:PL11:DC$DU$:13:26000:24:"RETURN FOR MENU, N FOR NEXT MONTH ";T$:(T$,1)"N"2090T((DU$,3,2))1:T13DU$(((DU$,2))1):T1T$(T):T10T$"0"T$DU$(DU$,2)T$"01":DD0:4010:"DELETE AN EVENT":::"(CHE01%jmT136T149T212Ĺ16368,T:TT140:280209%omT0%tm: WAIT FOR A KEY, IF RETURN -4, IF RETURN 9, IF RETURN 72, ELSE RETURN WITH STROBE STILL SET%T(MO):MO10MO$"0"MO$:$iYR$(YR):YR10YR$"0"YR$V$iDD$MO$"/"DA$"/"YR$k$i1:(37):27000$i"";DS$:(DS$)0DS$DD$$j21000:I027000$jDD$(DC$,3,2)"/"(DC$,5)"/"(DC$,2): CHANGE DEFAULT $,j%`mT(16384):T12828002)):MO((DD$,2)):YR$(DD$,7):YR(YR$)#iDADA(T):DA0DA29:MOMO1:(MO2)(YR4)4YRDAD(MO):MO0MO12:DA31:YRYR1#iDAD(MO)ĭ(DA29)(MO2)((YR4)4YR)DA1:MOMO1:MO13MO1:YRYR1#iDA$(DA):DA10DA$"0"DA$$iMO$έέϠōǠׯɍԠׯɍǍԩL19260601"eDC$DO$ĺ:24000:DO$DC$:PLPL2V"e" ";:I100ĺ" ";:I10ĺ" ";v"eI;" - ";(A$(I),7):PLPL1|"e"e"xi:"ENTER THE DATE <";DD$;">";"i28000:T027100"iT72ĺ:20000:"E";DD$:20010:(37)1:27000)#iDA((DD$,4,24010:PPD31:TD(M):M2(Y4)4YT29J!aI1T:T1PP:I10T1T11c!bT1:(T$,I,1)"1"Ğo! bIDDğ!bI;::PPPP3:PP22ĺ::PP1! b:PP1ĺ:!*b!eDO$"":I1C:(A$(I),6)DC$26050!eDC$(A$(I),6):PL2026060 "eDC$DO$PMO$(((DU$,3,2)));" 19";(DU$,2):T$"":T2$(DU$,4):q aI1C:T1$(A$(I),4):T((A$(I),5,2)):T2$T1$25070 aT2$T1$25060 aTT325060 aT1T(T$)1:T10āT21T1:T$T$"0": aT$T$"1":T3T a+!aM((DU$,3,2)):DC$(DU$,4)"01":MO$DA$A$:CC1ZV](DC$,3,2);"/";(DC$,5);"/";(DC$,2);" ";:24010:D$(D):]Y((DC$,2)):M((DC$,3,2)):D(365(Y2)(Y1)4)((DC$,5))2]T1((DC$,3,2)):DDD(T1)::DD((D7)7)]M2(Y4)4YDD1]6 a:7:T30:OPEN ";F$*UD$;"WRITE ";F$:C:D1$:DT$5VI1CIVD$;"WRITE ";F$TVA$(I)Z"Vn,VD$;"CLOSE ";F$t6VYC0I1:23060YT$(YR$MO$DA$A$,10)YI1CY(A$(I),10)T$23050Z ZI1C1I1:A$(I1)A$(I11):ZA$(I)YR$MO$)1MO$"0"MO$,NR(DA$)1DA$"0"DA$UXR(MO$)2(DA$)2(YR$)221040ZRD((MO$))(DA$)T(YR$):MO$"02"DA$"29"(T4)4T21040: CHECK DAY AGAINST MONTH TABLES, ADJUST FOR LEAP YEARS bRDC$YR$MO$DA$:DU$DC$: U:D$;"(SLOT 1))\ND$;"PR#0":: PRINTER OFF ORI1(DS$):(DS$,I,1)"/"21020\R:21040RI1I1(DS$):(DS$,I1,1)"/"21050&R:DS$DS$(DD$,6):210500R"ERROR IN DATE":I0::RMO$(DS$,I1):DA$(DS$,I1,I1I1):YR$(DS$,I11)DR(S#*#:"RETURN FOR MENU ";T$:2090|#TX14:TT,((T$,TX,1))128:TTTT1::TT,EC:TTTT1:: LOAD A TICKLE TIME'"RUN HELLO"'"RUN HELLO" ND$;"PR#";CS:D$;"IN#";CS:*ND$;"PR#0":D$;"IN#0":973:RND$;"PR#1":: PRINTER ON T:MT0HTHT1:MT60MT:HT0HT24HT: SUBTRACT INTERVAL, DO WRAPSc#T$(MT):MT10T$"0"T$#T$(HT)T$:HT10T$"0"T$: PACK INTO 4 DIGIT TIME#9190##ECEC32:CTCT1:CT89180: BUMP EVENT POINTER AND COUNTER, ABORT AT 8 EVENTE TIME,"#" OF THE APPOINTMENT"Z$#24:"PRESS ANY KEY TO CONTINUE";:A$::(#20000:"E";DS$:20010:21000::CT0:"LOADING TICKLERS:"::TTB0:ETB1:EC0:20000:"@";TC$-#"1+2400":"I";TA$:"K";TA$:"M";TM$:20010:TC((TC$,4))*0#* SKIP OF INTERVAL ** ARE GIVEN WHEN"E#:"ACTIVITIES ARE LISTED." #::"ENTER < S > FOR NO REMINDER"::"ENTER < 0 > FOR ONE REMINDER AT":" TIME OF APPOINTMENT"::"ENTER < N > FOR N REMINDERS PRIOR THE":" APPT AND ONE AT TH0):PL:9:(A$(I),12):8080CBL25ĢBL:9:(A$(I),7);:BLBL1IYBL25BL2BL:1:"RETURN FOR MENU ";T$:2090%#:3:"THE ACTIVITIES FOR THE DAY WILL"::"BE LISTED. IF THERE ARE NO EVENTS, "::"RETURN TO MENU. THE OPTIONS "::"*EI817:I10ĺ"0";6JI;":00 - ";:I12ĺ"LUNCH";HT:I10ĺ"0";p^I17ĺI;":30 - ";:I12ĺ"LUNCH";h::BL22:I1C:T$(A$(I),6):T((A$(I),7,4)):T$DC$8090rT$DC$8080|T1700T800T1(T100):PL(T18)23((TT1100)360102090FX20000:"C";DU$:20010:I1C:(A$(I),6)DU$7020LblI1TI1:CCT::"PURGING:"::I1T:(A$(I),6);" ";(A$(I),7)::I1C:A$(I)A$(IT):::"RETURN FOR MENU ";T$v2090@:"GLANCE AT A DAY"::27000::24000:;T$(T$,1)"Y"2090FI1IC1:A$(I1)A$(I11)::CC1:2090jp:"REPORT FROM A DAY"::27000}zP$"P"İ20050PL0::26000:P$"P"İ20060ICĄ"RETURN FOR MENU ";T$:2090:"RETURN FOR MENU, N FOR NEXT SET ";T$:(T$,1)"N"'T FIND AN APPLETIME CLOCK HERE"::"I CAN'T RUN.":DTVSL$(48I)Z^VXX(4096131):K HERE"::"I CAN'T RUN.":TVSL$(48I)^VXX(4096131):X ::"HIT THE KEY TO EXIT."+ 66 UI17I UA16384I256[ VA12432523r V(AA1)7622050} V22100 "VI ,V::(7);"I CAN'T FIND AN APPLETIME CLOCK HERE"::"I CAN'T RUN.": TVSL$(48I) ^VXX(4096131):  IY ";DT$;:30:GT$:= r"UNFORMATTED TIME ";TU$;:30:GU$f |"APPLESOFT TIME ";TA$;:30:GA$: "UNFORMATTED DATE ";DA$;:30:HA$ "DATE FORMAT 1 ";D1$;:30:H1$ "DATE FORMAT 2 ";D2$;:30:H2$  "MOUNTAIN TIME ";MT$$I";GA$ "C";DA$:"K";HA$2 "D";D1$:"L";H1$H "E";D2$:"M";H2$^ "F";DN$:"N";GN$t "G";DT$:"O";GT$ " ";MT$ ,D$;"PR#0" 6D$;"IN#0" @ J18:"LOCAL:";:30:"GMT:": ^"UNFORMATTED DAY ";DN$;:30:GN$ h"FORMATTED DA5 DIAGNOSE TEST THE APPLETIME;F22000RD$(4)Y4 (49152)155Ľ:49168,0:"RUN HELLO"49168,0dD$;"PR#";SL$nD$;"IN#";SL$x"3 ""1+0800": PST TO GMT"@";TU$:"H";GU$ "A";TA$:"  23 V(AA1)7622050% V22100, "VIu ,V::(7);"I CAN'T FIND AN APPLETIME CLOCK HERE"::"I CAN'T RUN.": TVSL$(48I) ^VXX(4096131):  1 SECONDS."::"SEE WHAT A DIFFERENCE LINE NUMBERS MAKE!"> L I12000S IY ,j I12000:Ip  D$;"PR#";SL$ D$;"IN#";SL$ "3 "  L"P";T VD$;"PR#0" `D$;"IN#0" j UI17 UA16384I256 VA124325 D$(4) 22000qd"THE PROGRAM SEGMENT:":200,300:1000:200:1100:"TAKES ";T;" SECONDS.":T0Twin"WHILE THE SEGMENT:":400,500:1000:400:1100:"TAKES ";;T;" SECONDS."s8 x"THAT'S A DIFFERENCE OF ";((T0T)100.5)100;"  5)"/"(DC$,2): CHANGE DEFAULT '&,jD&`mT(16384):T12828000t&jmT136T149T212Ĺ16368,T:TT140:28020|&omT0&tm: WAIT FOR A KEY, IF RETURN -4, IF RETURN 9, IF RETURN 72, ELSE RETURN WITH STROBE STILL SET&OMO1:MO13MO1:YRYR1;%iDA$(DA):DA10DA$"0"DA$\%iMO$(MO):MO10MO$"0"MO$}%iYR$(YR):YR10YR$"0"YR$%iDD$MO$"/"DA$"/"YR$%i1:(37):27000%i"";DS$:(DS$)0DS$DD$%j21000:I027000!&jDD$(DC$,3,2)"/"(DC$,$iT72ĺ:20000:"E";DD$:20010:(37)1:27000l$iDA((DD$,4,2)):MO((DD$,2)):YR$(DD$,7):YR(YR$)$iDADA(T):DA0DA29:MOMO1:(MO2)(YR4)4YRDAD(MO):MO0MO12:DA31:YRYR1%iDAD(MO)ĭ(DA29)(MO2)((YR4)4YR)DA1:M(A$(I),6)DC$260503#eDC$(A$(I),6):PL2026060M#eDC$DO$PL1926060t#eDC$DO$ĺ:24000:DO$DC$:PLPL2#e" ";:I100ĺ" ";:I10ĺ" ";#eI;" - ";(A$(I),7):PLPL1#e#e#xi:"ENTER THE DATE <";DD$;">";#i28000:T0271001":"aT$T$"1":T3T"an"aM((DU$,3,2)):DC$(DU$,4)"01":24010:PPD31:TD(M):M2(Y4)4YT29"aI1T:T1PP:I10T1T11"bT1:(T$,I,1)"1"Ğ" bIDDğ"bI;::PPPP3:PP22ĺ::PP1" b:PP1ĺ:"*b#eDO$"":I1C:1)::DD((D7)7)-!]M2(Y4)4YDD13!]y!a:7:T30:MO$(((DU$,3,2)));" 19";(DU$,2):T$"":T2$(DU$,4):!aI1C:T1$(A$(I),4):T((A$(I),5,2)):T2$T1$25070!aT2$T1$25060!aTT325060"aT1T(T$)1:T10āT21T1:T$T$"010)T$23050 Z5 ZI1C1I1:A$(I1)A$(I11):T ZA$(I)YR$MO$DA$A$:CC1Z Z ](DC$,3,2);"/";(DC$,5);"/";(DC$,2);" ";:24010:D$(D): ]Y((DC$,2)):M((DC$,3,2)):D(365(Y2)(Y1)4)((DC$,5))2!]T1((DC$,3,2)):DDD(TS, ADJUST FOR LEAP YEARS 7bRDC$YR$MO$DA$:DU$DC$:LU:D$;"OPEN ";F$mUD$;"WRITE ";F$:C:D1$:DT$xVI1CVD$;"WRITE ";F$VA$(I)"V,VD$;"CLOSE ";F$6VYC0I1:23060YT$(YR$MO$DA$A$,10)YI1C Y(A$(I),:;:RMO$(DS$,I1):DA$(DS$,I1,I1I1):YR$(DS$,I11)UDR(MO$)1MO$"0"MO$oNR(DA$)1DA$"0"DA$XR(MO$)2(DA$)2(YR$)221040ZRD((MO$))(DA$)T(YR$):MO$"02"DA$"29"(T4)4T21040: CHECK DAY AGAINST MONTH TABLES:$*ND$;"PR#0":D$;"IN#0":973:KRND$;"PR#1":: PRINTER ON (SLOT 1)l\ND$;"PR#0":: PRINTER OFF RI1(DS$):(DS$,I,1)"/"21020R:21040RI1I1(DS$):(DS$,I1,1)"/"21050&R:DS$DS$(DD$,6):210500R"ERROR IN DATE":I0OPTION "g'"IF SO, HIT TO ABORT AND RETURN TO ":"MAIN MENU "$':"WOULD YOU LIKE TO RETURN TO THE MAIN (MENU (Y/N) ?";A$.'A$"N"ī20908'A$"Y"ĺ"RUN HELLO"B'10020 ND$;"PR#";CS:D$;"IN#";CTER AND COUNTER, ABORT AT 8 EVENTS(#K#:"RETURN FOR MENU ";T$:2090#TX14:TT,((T$,TX,1))128:TTTT1::TT,EC:TTTT1:: LOAD A TICKLE TIME'"RUN HELLO" '::"BEFORE ENDING, DID YOU SAVE YOUR DATA? ":"IF NOT, HIT AND CHOOSE ,2)):MT((T$,3)):T113:MTMTT:MT0HTHT1:MT60MT:HT0HT24HT: SUBTRACT INTERVAL, DO WRAPS#T$(MT):MT10T$"0"T$#T$(HT)T$:HT10T$"0"T$: PACK INTO 4 DIGIT TIME#9190#"#ECEC32:CTCT1:CT89180: BUMP EVENT POIN(T$)4T$"0"T$:9050&d#(A$(I),7)Xn#"SKIP OR INTERVAL <5> ";C$:(C$,1)"S"9170js#C$""C$"5"|x#9190:T(C$)#TE$(A$(I),7):TE$TE$(BB$,32(TE$)):TX132:ET,((TE$,TX,1)):ETET1:: LOAD A TICKLE EVENT#T09160f#HT((T$T0159:TTT,0:: CLEAR THE TICLKE TIMESV2#TS1:I1C:T$(A$(I),6):T$DU$9170g<#T$TA$9180F#T((A$(I),7,4)):T0T23599170I#(T$DU$)(TCT)9170L#(T$DU$)(TCT)9180N#(T$DU$)TSĺ:"<";TM$;">"::TS0P#T$(T)Z#VVLL0LL LL1LH Xh`9Hą9 ĥ8H7H6Hą768 L LL LLh6h7h8h9LL `l6l8V@VVVVVVVV^^^^^^^^VVVWVVWVVVVVVVWV@VVVVVVVVVVVVVVVVVVVVVVV" 4) CDT OR EST"%V" 5) EDT"DV:"ENTER 1,2,3,4 OR 5 ";ZOW769,ZUW0uSSSS1:SS60SS0:SMSM1:SM60SM0:SHSH1:SH24SH05u:uSH10ĺ"0";DuSH;":";:SM10ĺ"0";NuSM;":";:SS10ĺ"0";XuSSbu A12432523$V(AA1)7622050/V221006"VI,V::(7);"I CAN'T FIND AN APPLETIME CLOCK HERE"::"I CAN'T RUN.":TV768,48I^VXX(4096131)V"WHAT IS YOUR TIME ZONE?"V" 1) PST"V" 2) PDT OR MST"V" 3) MDT OR CST"2420150"NGASTGAST24:20130rNLASTGAST105.215: THE NUMERATOR OF THIS FRACTION IS THE USER'S LONGITUDENLAST0LASTLAST24NMIN60(LAST(LAST))NSH(LAST):SM(MIN):SS(60(MIN(MIN)).5)NUI17UA16384I256 V00000.\NJ0JDUT24_fNGMST6.671702780.0657098232(J02400000.2433282.5)1.0027379093UTspNGMST2420100zNGMSTGMST24:20080NOMEGA372.11330.0529539(JD2400000.2433282.5)NE0.00029(OMEGA3.141592180.)NGASTGMSTE NGAST"IN#0"?4NK1900((GD$,1,2)):I((GD$,5,2)):M((GD$,3,2))z6NUT((GT$,1,2))((GT$,3,2))60.((GT$,5,2))3600.>NJD367K(7(K((M9)12))4)(275M9)I1721013.5UT240.5HNX100KM190002.5:SIGN1:X0SIGN1RNJDJD0.5SIGN2414Ģ20:" ":" " TC14Ģ20:14:"SIDERIAL TIME":17:30010: 24 ICIC1:IC3010 '10 ND$;"PR#";SL$:D$;"IN#";SL$ %N"1+0";900O:"H";GT$:"K";GD$*ND$;"PR#0":D$;AN":11:T7$:11:D7$< 16:23:"PARIS":21:T8$:21:D8$c 16:33:"KABUL":31:T9$:31:D9$ (49152)155Ĺ49168,0:::15:"D O N E !!": 30000 TCTC1:TC10ĺ:"WHY SETTLE FOR THE WORLD WHEN YOU":"CAN HAVE THE STARS?";(7)Q TC3:16:"LOCAL TIME":17:T1$:17:D1$O 10:1:"CAPETOWN":1:T2$:1:D2$x 10:12:"PHOENIX":11:T3$:11:D3$ 10:22:"LONDON":21:T4$:21:D4$ 10:33:"TOKYO":31:T5$:31:D5$ 16:2:"SYDNEY":1:T6$:1:D6$ 16:12:"TEHERNEY0 T71230O:T7$(T7):T71000T7$"0"T7$[ "1+";T7$:"I";T7$:"L";D7$: TEHERAN "1+0";1000O:"I";T8$:"L";D8$: PARIS T91334O:T9$(T9):T91000T9$"0"T9$ "1+";T9$:"I";T9$:"L";D9$: KABUL ,D$;"PR#0" 6D$;"IN#0"( 200O:T3$((T3)):T30T3$"000": kT30T3$"-0"T3$R lT30T3$"+0"T3${ n"1";T3$:"I";T3$:"L";D3$: PHOENIX x"1+0";900O:"I";T4$:"L";D4$: LONDON "1-D0";0800O:"I";T5$:"L";D5$: TOKYO "1-D0";0700O:"I";T6$:"L";D6$: SYD  WORLD CLOCK :22000&2D$(4)QSL$((768)):O(769)100\ 20000n D$;"PR#";SL$ D$;"IN#";SL$("3 "2"A";T1$:"D";D1$_T21100O:T2$(T2):T21000T2$"0"T2$d"1+";T2$:"I";T2$:"L";D2$: CAPETOWN# iT3     SS RETURN AT THE NEXT MINUTE, OR":"PRESS TO ABORT TO THE MENU";:T$:T$:XYZ1yT$(27)Ĺ49168,0:"RUN HELLO"T$(13)VVAB21:33:" ":20:T$"":280"C$"20"İ11000:303,10000/D$(4):D$;"PR#";SL$:D$;"IN#";SL$1"A";C$:T THE NEXT MINUTE) IN THE FORM: HHMM ";C$D (C$)4C$"0"C$w (C$)4ĺ"ERROR - ENTER 3 OR 4 DIGITS":250 C$(((C$,1))T)(C$,3) T$(2)(((T$(2),1))T1)(T$(2),1) C$"0"T$(3)T$(1)T$(2)(D)C$"00"T49168,0:::"PREDD28:T10:(Y4)4Yĭ(T$(1))3T14:DD29X Y(Y4)43ĭ(T$(1))2T14:DD29 "NEXT FEBRUARY HAS ";DD;" DAYS.": "DO YOU WANT 24 OR 12 HOUR TIME ";:C$ T8:(C$,1)"1"T0:"AM OR PM ";:C$:(C$,1)"P"T4- "ENTER THE TIME (A)1T$(I)"0"T$(I) IR (T$(3))1ĺ"ERROR - YEAR MUST BE NON-ZERO":120 Y(T$(3)):D(365(Y2)(Y1)4)(T$(2))2 I1(T$(1)):X:DDX:I 0,31,28,31,30,31,30,31,31,30,31,30 DD((D7)7) :"IT IS ";D$(D);"."/ (D$,P0,PP0):II1:P0P1- PP1:I3160a P(D$)ĺ"ERROR - YOU MUST USE SLASHES!":120j 140 T$(3)(D$,P0,(D$)P1) I13:(T$(I))1ĺ"ERROR - YOU LEFT ONE OUT":120 (T$(I))2ĺ"ERROR - ONLY 2 CHARACTERS":120 (T$(I)"MONDAY":D$(2)"TUESDAY":D$(3)"WEDNESDAY":D$(4)"THURSDAY":D$(5)"FRIDAY":D$(6)"SATURDAY" D$(4):D$;"PR#";SL$:D$;"IN#";SL$:"E";DD$:D$;"PR#0":D$;"IN#0" "MM/DD/YY (DEFAULT ";DD$;") ";:D$:P1:P01:I1:D$""D$DD$ (D$,P,1)"/"T$(I)h  SETTERZXYZ04d CLOCK SETTING ROUTINE=i:3bn6:"M B I A P P L E T I M E "o6:5:"S E T T H E C L O C K"::s22000:SL16256(I16)tC$"20":290u:x:"ENTER THE DATE IN THE FORM:"[ }D$(0)"SUNDAY":D$(1)  OM THE MBI CORPAPPLETIME CARD!" x:"TO DO THIS, DO THE FOLLOWING":" 1) THE CLOCK MUST BE IN SLOT 4":" 2) BRUN FID FROM A DOS DISK":" 3) COPY THE FILE VISIO.8 FROM THIS DISK TO THE VISIDEX DISK" :" (EXPECT FID TO TELL YOU THAT THE R VISIDEX INSTRUCTIONS"Zd"TO USE THE APPLETIME CLOCK WITH VISIDEX,A FILE FROM THIS DISK MUST BE MOVED OVERTO THE VISIDEX DISK." n:"THIS FILE WILL THEN BE LOADED EVERYTIME THE VISIDEX DISK IS BOOTED, AND THE TIMEAND DATE WILL BE TAKEN FR   :(7);"I CAN'T FIND AN APPLETIME CLOCK HERE"::"I CAN'T RUN.":Q TVSL$(48I)g ^VXX(4096131): I3 FPI(M15):140,80(F)H3XF140,(F)H380:h pD$(4):D$;"PR#"SL$:D$;"IN#";SL$:"3 ":"@";T$ uXX(16336)(16336) zD$;"PR#0":D$;"IN#0": UI17 UA16384I256 VA12432523 V(AA1)7622050 V22100 "VIA ,V:& ](49152)155Ĺ49168,0::1184:G bM((T$,5,2)):3:5000:MSM] lH3H8:MMM:5000t vH3H20:MMH:5000 0:H3H10:MMS:6000:5000 (T$,5,2)"00"600 H3H8:MMM:5000 H3H20:MMH:5000 (0): COLLECT GARBAGE 420i  :22000$:16302,0+3?2PI3.14159260H4H60T6XF1.15iP"BLOAD HCLOCK"s6000M((T$,3,2)):MMMH3H8:5000MX((T$,1,2)):MX12MXMX12MMX5(M560):MHMH3H20:5000NTC0 XH3H10   D$;"CLOSE ";F$! FL0:2100/ *:FL1:4E 4:"FUNCTIONS:":d >" S - SCHEDULE AN EVENT"z H" C - CALENDAR" R" G - GLANCE AT A DAY" \" R - REPORT FROM A DAY" f" D - DELETE AN EVENT" z" T - TICKLER LOAD" " E - END TH:20010: GET STARTING TIME & DATE1 16:DT$:D D$;"OPEN ";F$W D$;"READ ";F$f C,D1$,D2$ "THERE ARE ";C;" RECORDS IN THE BOOK" "DATE OF CREATION ";D1$:"DATE OF LAST UPDATE ";D2$ C02070 I1C:D$;"READ ";F$:A$(I): ": 32 BYTES OF SPACES\ F$"DB SEQ": FILE FOR DATES, USER MAY PUT QUERY HERE! :14::" ":14:" M B I ":14:" ":14:" DATE BOOK ":14:" "::" 20000:"A";TI$:"C";DU$:"E";DD$:"D";DT$12):MO$(1)"JANUARY":MO$(2)"FEBRUARY":MO$(3)"MARCH":MO$(4)"APRIL":MO$(5)"MAY":MO$(6)"JUNE":MO$(7)"JULY":MO$(8)"AUGUST":MO$(9)"SEPTEMBER":MO$(10)"OCTOBER":MO$(11)"NOVEMBER":MO$(12)"DECEMBER" A$(256) D$(4)! BB$" K'":1,32767 D$(0)"SUNDAY":D$(1)"MONDAY":D$(2)"TUESDAY":D$(3)"WEDNESDAY":D$(4)"THURSDAY":D$(5)"FRIDAY":D$(6)"SATURDAY" D(12):D(0)0:D(1)31:D(2)28:D(3)31:D(4)30:D(5)31:D(6)30:D(7)31:D(8)31:D(9)30:D(10)31:D(11)30:D(12)31 MO$(d}nT(974)(975)25610:B0(T)(T1)256:B1(T2)(T3)256:CS(T8): GET THE POINTERS FROM THE BINARY CODE xT10:T208:T1T1(TT2)::T1T1(T1256)256:(T9)T1ė:"THE LOOKUP CHECKSUM IS NOT CORRECT!"::"RE-'EXECUTE DATE BOO    (7);"I CAN'T FIND AN APPLETIME CLOCK HERE"::"I CAN'T RUN.":PTVSL$(48I)f^VXX(4096131):XXSE +I150:: DELAY+SL2,0:UI17UA16384I256VA12432523V(AA1)7622050V22100"VI4,V::(7);"I CANTOGGLE THE WRITEB':;* ROUTINE FOR 30 SECOND ADJUSTz+SL3,0:SL2,255:SL3,4:SL2,8: SETUP 30 SECOND PULSE +I150:: DELAY+SL2,0:UI17UA16384I256VA12432523V(AA1)7622050V22100"VI@,V::DIAGNOSE"8' ROUTINE FOR SETTING THE CLOCK (FULL SET)'SL1,0:SL,15:SL1,4:SL3,0:SL2,255:SL3,4:SL2,1: SET UP CLOCK'S PORTS $'I012:CA12I.'SL,((C$,I2)): STORE THE TIME BYTE8'SL2,(12I)165:SL2,1: STORE THE ADDRESS, "D";C1$:"G";C2$+6D$;"PR#0":D$;"IN#0"L;::5:C$;" ";C1$;" ";C2$]@I12000:ImBXYZ1ī330E(13):"DO YOU WISH TO CHANGE DATE OR TIME "::(16):"(Y/N) ";FA$:(A$,1)"Y"ī117G(A$,1)"N"C$"20":280H326 JD$;"RUN FILE IS LOCKED!)"Y 22:"VISIDEX IS A TRADEMARK OF PERSONAL SOFTWARE, INC."; :1000::I18000::1000::24:"PRESS ";::" ";::"TO RETURN TO MAIN MENU" (49152)155Ĺ49168,0:"RUN HELLO" 49168,0:150Q 19:1:"WHE "INTERNAL FORMATTING"e  "NORMAL TIME","OFFSET TIME","PROGRAM TIMER","RECHARGING BATTERY BACKUP"  "MOUNTAIN HARDWARE MODE" K "END" 'I13:20000:I '(49152)155Ĺ49168,0:"RUNHELLO" 'D$;"RUN DEMO 1" ND$;"PR#";SL$:D$;"IN#";S:K::: 200006 T$" ":1:15:T$O 15:" M B I "[ "15:T$t #15:" APPLETIME " &15:T$ ( dI0 nF$ s20000 xF$"END"10000 }(7) 10:F$ 100  "CLOCK","CALENDAR","DAY OF WEEK" / DEMO 0 ! SL$((768))-D$(4)::6:4:"MICROCOMPUTER BUSINESS INDUSTRIES":8:14:"PRESENTS THE":10:8:"APPLETIME DEMONSTRATION":22:7:"PRESS ";::" < ESC > ";:" AT ANY TIME":24:9:"TO RETURN TO MAIN MENU" K12000   EI817:I10ĺ"0";6JI;":00 - ";:I12ĺ"LUNCH";HT:I10ĺ"0";p^I17ĺI;":30 - ";:I12ĺ"LUNCH";h::BL22:I1C:T$(A$(I),6):T((A$(I),7,4)):T$DC$8090rT$DC$8080|T1700T800T1(T100):PL(T18)23((TT1100)360102090FX20000:"C";DU$:20010:I1C:(A$(I),6)DU$7020LblI1TI1:CCT::"PURGING:"::I1T:(A$(I),6);" ";(A$(I),7)::I1C:A$(I)A$(IT):::"RETURN FOR MENU ";T$v2090@:"GLANCE AT A DAY"::27000::24000:;T$(T$,1)"Y"2090FI1IC1:A$(I1)A$(I11)::CC1:2090jp:"REPORT FROM A DAY"::27000}zP$"P"İ20050PL0::26000:P$"P"İ20060ICĄ"RETURN FOR MENU ";T$:2090:"RETURN FOR MENU, N FOR NEXT SET ";T$:(T$,1)"N"CK CALANDAR TO FIND INDEX)"#:@8:"RETURN FOR MENU OR"H10x"ENTER THE INDEX OF THE EVENT ";I$:I(I$)I$(13)2090CI2090I12090::"THIS EVENT IS:"::(A$(I),6);" ";(A$(I),7)::"DELETE THE EVENT (Y/N)"25000:PL11:DC$DU$:13:26000:24:"RETURN FOR MENU, N FOR NEXT MONTH ";T$:(T$,1)"N"2090T((DU$,3,2))1:T13DU$(((DU$,2))1):T1T$(T):T10T$"0"T$DU$(DU$,2)T$"01":DD0:4010:"DELETE AN EVENT":::"(CHE :"SCHEDULE AN EVENT":27000. :24000:H :"ENTER ACTIVITY":v "IN THE FORM OF ** HHMM (ACTIVITY) **": "TIME MUST BE MILITARY": "";A$:A$(A$,40):A$""2090: NEVER SCHEDULE NULL EVENTS 23000 2090DD((DU$,5))aE SESSION")" M - ABORT / MAIN MENU"H:"ENTER THE COMMAND ";C$bP$(C$,2):C$(C$,1)sC$"S"3000C$"C"4000C$"D"5000C$"R"6000C$"G"8000C$"T"8990C$"E"İ22000:9999C$"M"100002090ΠŠ)Qd_ UUVWUq6@VUVWXV`.?rL%_"VV_TV"VYD,Vcca(ɠΧԠĠΠŠˠ)ca(ɠΧԠή)QTVq^Vq.?60r[Qc<a԰@GPaİ@GPa@>aԱ@GPaı@GPa@ @PaIJ@Ao Pa(Ժ)cFaԴ@GPaĴ@GPa@HaԵ@GPaĵ@GPa@ JPaĶ@Lcca(ΠŠ)E@ PoP(5Z`.?r%deccPa(Ġ)Fa(ң)Fa()]ԠϠ a() S()&@S()&԰@S()&Ա@S()&İ@S()&ı@S()&IJ@!S()&@S()&@#S()&Դ@S()&Ե@%S()&Ĵ@S()&ĵ@S()&Ķ@'S()&@S()&@ (a(ң) 2a(Σ)7oPa(̺)%]ɠŠҠà\U1N԰@"rCԱ@"rCİ@"rCı@"rCIJ@"rN@"rC@"r1NԴ@"rCԵ@"rCĴ@"rCĵ@"rCĶ@"rN@"rC@"rC@"r1 M6oa(Ҡàˠ) a(Σ  Y. YOU CAN KEEP TRACK OF":"THE TIME ANYWHERE IN THE WORLD!":20000m (49152)155Ĺ49168,0:"RUN HELLO" 'D$;"RUN DEMO 2" ND$;"PR#";SL$:D$;"IN#";SL$ *NI15:"3 ":I 4ND$;"PR#0":D$;"IN#0":UT":"EXTRA PROGRAMMING.":20000& s3 x"THE ";[ y:"FULLY";::" ";::"FORMATTED"; z:" OUTPUT PRODUCES":"ALL OF THE TEXT OUTPUT YOU WILL SEE":"IN THE FOLLOWING DEMONSTRATIONS.":20000 }D "THE TIME OFFSETS ARE ALSO DONE ":"INTERNALL DEMO 1! SL$((768))-D$(4)5:WT$" ":3:15:T$p 15:" M B I "|"15:T$#15:" APPLETIME "&15:T$(d n"WITH THIS CLOCK MODULE YOU HAVE FULL":"CONTROL OF ALL CLOCK FUNCTIONS WITHO  (DC$,3,2);"/";(DC$,5);"/";(DC$,2);" ";:24010:D$(D): ]Y((DC$,2)):M((DC$,3,2)):D(365(Y2)(Y1)4)((DC$,5))2 ]T1((DC$,3,2)):DDD(T1)::DD((D7)7) ]M2(Y4)4YDD1 ]!a:7:T30:MO$(((DU$,3,2)));" 19";(D$:C:D1$:DT$VI1C-VD$;"WRITE ";F$8VA$(I)>"VR,VD$;"CLOSE ";F$X6VlYC0I1:23060YT$(YR$MO$DA$A$,10)YI1CY(A$(I),10)T$23050Z ZI1C1I1:A$(I1)A$(I11):ZA$(I)YR$MO$DA$A$:CC1Z: ]$)1DA$"0"DA$9XR(MO$)2(DA$)2(YR$)221040ZRD((MO$))(DA$)T(YR$):MO$"02"DA$"29"(T4)4T21040: CHECK DAY AGAINST MONTH TABLES, ADJUST FOR LEAP YEARS bRDC$YR$MO$DA$:DU$DC$:U:D$;"OPEN ";F$UD$;"WRITE ";F PRINTER OFF 3RI1(DS$):(DS$,I,1)"/"21020@R:21040jRI1I1(DS$):(DS$,I1,1)"/"21050&R:DS$DS$(DD$,6):210500R"ERROR IN DATE":I0::RMO$(DS$,I1):DA$(DS$,I1,I1I1):YR$(DS$,I11)DR(MO$)1MO$"0"MO$NR(DAPTION "M$':"DO YOU WANT TO ABORT AND RETURN TO MAIN MENU (Y/N) ? ";A$_.'A$"N"ī2090y8'A$"Y"ĺ"RUN HELLO"B'10020 ND$;"PR#";CS:D$;"IN#";CS:*ND$;"PR#0":D$;"IN#0":973:RND$;"PR#1":: PRINTER ON (SLOT 1) \ND$;"PR#0":: TER AND COUNTER, ABORT AT 8 EVENTS(#K#:"RETURN FOR MENU ";T$:2090#TX14:TT,((T$,TX,1))128:TTTT1::TT,EC:TTTT1:: LOAD A TICKLE TIME'"RUN HELLO" '::"BEFORE ENDING, DID YOU SAVE YOUR DATA?":"IF NOT, HIT AND CHOOSE O,2)):MT((T$,3)):T113:MTMTT:MT0HTHT1:MT60MT:HT0HT24HT: SUBTRACT INTERVAL, DO WRAPS#T$(MT):MT10T$"0"T$#T$(HT)T$:HT10T$"0"T$: PACK INTO 4 DIGIT TIME#9190#"#ECEC32:CTCT1:CT89180: BUMP EVENT POIN(T$)4T$"0"T$:9050&d#(A$(I),7)Xn#"SKIP OR INTERVAL <5> ";C$:(C$,1)"S"9170js#C$""C$"5"|x#9190:T(C$)#TE$(A$(I),7):TE$TE$(BB$,32(TE$)):TX132:ET,((TE$,TX,1)):ETET1:: LOAD A TICKLE EVENT#T09160f#HT((T$T0159:TTT,0:: CLEAR THE TICLKE TIMESV2#TS1:I1C:T$(A$(I),6):T$DU$9170g<#T$TA$9180F#T((A$(I),7,4)):T0T23599170I#(T$DU$)(TCT)9170L#(T$DU$)(TCT)9180N#(T$DU$)TSĺ:"<";TM$;">"::TS0P#T$(T)Z#E TIME,"#" OF THE APPOINTMENT"Z$#24:"PRESS ANY KEY TO CONTINUE";:A$::(#20000:"E";DS$:20010:21000::CT0:"LOADING TICKLERS:"::TTB0:ETB1:EC0:20000:"@";TC$-#"1+2400":"I";TA$:"K";TA$:"M";TM$:20010:TC((TC$,4))*0#* SKIP OF INTERVAL ** ARE GIVEN WHEN"E#:"ACTIVITIES ARE LISTED." #::"ENTER < S > FOR NO REMINDER"::"ENTER < 0 > FOR ONE REMINDER AT":" TIME OF APPOINTMENT"::"ENTER < N > FOR N REMINDERS PRIOR THE":" APPT AND ONE AT TH0):PL:9:(A$(I),12):8080CBL25ĢBL:9:(A$(I),7);:BLBL1IYBL25BL2BL:1:"RETURN FOR MENU ";T$:2090%#:3:"THE ACTIVITIES FOR THE DAY WILL"::"BE LISTED. IF THERE ARE NO EVENTS, "::"RETURN TO MENU. THE OPTIONS "::"*L$ *N"3 ":"3 ". 4ND$;"PR#0":D$;"IN#0":S(49152)155Ĺ49168,0:"RUN HELLO": 'D$;"RUN DEMO 3"Z ND$;"PR#";SL$:D$;"IN#";SL$ *N"3 ":"3 ":"3 ":"3 ":"3 ":"3 " 4ND$;"PR#0":D$;"IN#0":I DEMO 2" SL$((768)).D$(4)6:XT$" ":3:15:T$q 15:" M B I "}"15:T$#15:" APPLETIME "&15:T$(dn"FIRST, LET'S LOOK AT ALL OF THE FORMATS FOR TWO TIME ZONES."x20000%  + D$(4):CL$D$"PR#4"(13)D$"IN#4"MRS$D$"PR#0"(13)D$"IN#0"VCL$b<"E";C$kdRS$s:C$;:97334,2 6368,T:TT140:28020&omT0&tm: WAIT FOR A KEY, IF RETURN -4, IF RETURN 9, IF RETURN 72, ELSE RETURN WITH STROBE STILL SET&LiYR$(YR):YR10YR$"0"YR$:%iDD$MO$"/"DA$"/"YR$O%i1:(37):27000m%i"";DS$:(DS$)0DS$DD$%j21000:I027000%jDD$(DC$,3,2)"/"(DC$,5)"/"(DC$,2): CHANGE DEFAULT %,j%`mT(16384):T12828000&jmT136T149T212Ĺ1,7):YR(YR$)j$iDADA(T):DA0DA29:MOMO1:(MO2)(YR4)4YRDAD(MO):MO0MO12:DA31:YRYR1$iDAD(MO)ĭ(DA29)(MO2)((YR4)4YR)DA1:MOMO1:MO13MO1:YRYR1$iDA$(DA):DA10DA$"0"DA$$iMO$(MO):MO10MO$"0"MO$%24000:DO$DC$:PLPL2:#e" ";:I100ĺ" ";:I10ĺ" ";Z#eI;" - ";(A$(I),7):PLPL1`#ef#e#xi:"ENTER THE DATE <";DD$;">";#i28000:T027100#iT72ĺ:20000:"E";DD$:20010:(37)1:27000 $iDA((DD$,4,2)):MO((DD$,2)):YR$(DD$(Y4)4YT29."aI1T:T1PP:I10T1T11G"bT1:(T$,I,1)"1"ĞS" bIDDğu"bI;::PPPP3:PP22ĺ::PP1" b:PP1ĺ:"*b"eDO$"":I1C:(A$(I),6)DC$26050"eDC$(A$(I),6):PL2026060"eDC$DO$PL1926060#eDC$DO$ĺ:U$,2):T$"":T2$(DU$,4):U!aI1C:T1$(A$(I),4):T((A$(I),5,2)):T2$T1$25070h!aT2$T1$25060x!aTT325060!aT1T(T$)1:T10āT21T1:T$T$"0":!aT$T$"1":T3T!a"aM((DU$,3,2)):DC$(DU$,4)"01":24010:PPD31:TD(M):M2D$;"IN#0":S"AND DATES ARE BEING FORMATTED ":"INSIDE OF THE CLOCK CARD! "M v (49152)155Ĺ49168,0:"RUN HELLO" ICIC1:IC206 'D$;"RUN DEMO 4"  ICIC1:IC206 'D$;"RUN DEMO 4"  TU$;:30:GU$:"APPLESOFT TIME ";TA$;:30:GA$:Y D"UNFORMATTED DATE ";DA$;:30:HA$ X"DATE FORMAT 1 ";D1$;:30:H1$ "DATE FORMAT 2 ";D2$;:30:H2$ :"MOUNTAIN MODE ";MM$G IC15ĺ:(7)::"REMEMBER THAT ALL OF THESE TIMES":";HA$ "D";D1$:"L";H1$1 "E";D2$:"M";H2$Y "F";DN$:"N";GN$:"G";DT$:"O";GT$h ,D$;"PR#0"w 6D$;"IN#0" J:18:"LOCAL:";:30:"GMT:": ^"UNFORMATTED DAY ";DN$;:30:GN$:"FORMATTED DAY ";DT$;:30:GT$:2 &"UNFORMATTED TIME "; DEMO 3"SL$((768))(P:"APPLETIME FORMAT DEMONSTRATION"\D$(4)f1:1n: D$;"PR#";SL$ D$;"IN#";SL$ "3 ""1+0";900(769)100" ";MM$"@";TU$:"H";GU$"A";TA$:"I";GA$ "C";DA$:"K   25000:PL11:DC$DU$:13:26000:24:"RETURN FOR MENU, N FOR NEXT MONTH ";T$:(T$,1)"N"2090T((DU$,3,2))1:T13DU$(((DU$,2))1):T1T$(T):T10T$"0"T$DU$(DU$,2)T$"01":DD0:4010:"DELETE AN EVENT":::"(CHE :"SCHEDULE AN EVENT":27000. :24000:H :"ENTER ACTIVITY":v "IN THE FORM OF ** HHMM (ACTIVITY) **": "TIME MUST BE MILITARY": "";A$:A$(A$,40):A$""2090: NEVER SCHEDULE NULL EVENTS 23000 2090DD((DU$,5))aE SESSION")" M - ABORT / MAIN MENU"H:"ENTER THE COMMAND ";C$bP$(C$,2):C$(C$,1)sC$"S"3000C$"C"4000C$"D"5000C$"R"6000C$"G"8000C$"T"8990C$"E"İ22000:9999C$"M"100002090 D$;"CLOSE ";F$! FL0:2100/ *:FL1:4E 4:"FUNCTIONS:":d >" S - SCHEDULE AN EVENT"z H" C - CALENDAR" R" G - GLANCE AT A DAY" \" R - REPORT FROM A DAY" f" D - DELETE AN EVENT" z" T - TICKLER LOAD" " E - END TH:20010: GET STARTING TIME & DATE1 16:DT$:D D$;"OPEN ";F$W D$;"READ ";F$f C,D1$,D2$ "THERE ARE ";C;" RECORDS IN THE BOOK" "DATE OF CREATION ";D1$:"DATE OF LAST UPDATE ";D2$ C02070 I1C:D$;"READ ";F$:A$(I): ": 32 BYTES OF SPACES\ F$"DB SEQ": FILE FOR DATES, USER MAY PUT QUERY HERE! :14::" ":14:" M B I ":14:" ":14:" DATE BOOK ":14:" "::" 20000:"A";TI$:"C";DU$:"E";DD$:"D";DT$12):MO$(1)"JANUARY":MO$(2)"FEBRUARY":MO$(3)"MARCH":MO$(4)"APRIL":MO$(5)"MAY":MO$(6)"JUNE":MO$(7)"JULY":MO$(8)"AUGUST":MO$(9)"SEPTEMBER":MO$(10)"OCTOBER":MO$(11)"NOVEMBER":MO$(12)"DECEMBER" A$(256) D$(4)! BB$" K'":1,32767 D$(0)"SUNDAY":D$(1)"MONDAY":D$(2)"TUESDAY":D$(3)"WEDNESDAY":D$(4)"THURSDAY":D$(5)"FRIDAY":D$(6)"SATURDAY" D(12):D(0)0:D(1)31:D(2)28:D(3)31:D(4)30:D(5)31:D(6)30:D(7)31:D(8)31:D(9)30:D(10)31:D(11)30:D(12)31 MO$(d}nT(974)(975)25610:B0(T)(T1)256:B1(T2)(T3)256:CS(T8): GET THE POINTERS FROM THE BINARY CODE xT10:T208:T1T1(TT2)::T1T1(T1256)256:(T9)T1ė:"THE LOOKUP CHECKSUM IS NOT CORRECT!"::"RE-'EXECUTE DATE BOO             + D$(4):CL$D$"PR#4"(13)D$"IN#4"MRS$D$"PR#0"(13)D$"IN#0"VCL$b7"A";T$n<"E";C$wdRS$:"THE FORMATTED TIME IS",T$"THE FORMATTED DATE IS",C$34,3 D ":"3 ":"3 ") 4ND$;"PR#0":D$;"IN#0": x20000 "IN THIS DISPLAY, NOTE HOW THE DATES":"ARE ADJUSTED FOR THE TIME ZONES (EVEN":"ACROSS THE INTERNATIONAL DATE LINE).": 20000:20000 (49152)155Ĺ49168,0:"RUN HELLO" 'D$;"RUN DEMO 5" ND$;"PR#";SL$:D$;"IN#";SL$ *N"3 * DEMO 4# SL$((768))/D$(4)7:YT$" ":3:15:T$r 15:" M B I "~"15:T$#15:" APPLETIME "&15:T$(dn"NOW LET'S WIDEN OUR HORIZONS AND LOOK":"AT TIMES ALL OVER THE WORLD!":  CHECKSUM IS NOT CORRECT!"::"RE-'EXECUTE DATE BOOK'":1,32767 D$(0)"SUNDAY":D$(1)"MONDAY":D$(2)"TUESDAY":D$(3)"WEDNESDAY":D$(4)"THURSDAY":D$(5)"FRIDAY":D$(6)"SATURDAY"( D(12):D(0)0:D(1)31:D(2)28:D(3)31:D(4)30:D(5)31:D(6)30:D(7)31:D(73 DATE BOOK - (C) COPYRIGHT 1982, MBI, CORP. 9dnT(974)(975)25610:B0(T)(T1)256:B1(T2)(T3)256:CS(T8): GET THE POINTERS FROM THE BINARY CODE> xT10:T208:T1T1(TT2)::T1T1(T1256)256:(T9)T1ė:"THE LOOKUP !!" " """""""""      D$;"RUN DEMO 0"4 @D$;"RUN VISIDEX INSTRUCTIONS" ::12:3:"THIS CONCLUDES THE APPLETIME CLOCK":19:10:"HAVE A GREAT DAY !!!":23:17:"M B I" A THE APPLETIME CLOCK":19:10:"HAVE A GREAT DAY !!!":23:17:"M B I"  2:3:TINUOUS DEMONSTRATION"? 18:7:"(4) VISIDEX INSTRUCTIONS"b 19:7:"(5) EXIT APPLETIME" 23:8:"SELECT AN OPTION ( 1 - 5 ) :";A$ A(A$):A1A5188 A290,300,310,320,400 "D$;"RUN SETTER" ,D$;"EXEC UTE DATE BOOK" 1 6M0:SHSH1:SH24SH05u.:uSH10ĺ"0";HDuSH;":";:SM10ĺ"0";bNuSM;":";:SS10ĺ"0";jXuSSpbuv D0150NGASTGAST24:20130lNLASTGAST105.215: THE NUMERATOR OF THIS FRACTION IS THE USER'S LONGITUDENLAST0LASTLAST24NMIN60(LAST(LAST))NSH(LAST):SM(MIN):SS(60(MIN(MIN)).5)N0uSSSS1:SS60SS0:SMSM1:SM60S\NJ0JDUT24YfNGMST6.671702780.0657098232(J02400000.2433282.5)1.0027379093UTmpNGMST2420100zNGMSTGMST24:20080NOMEGA372.11330.0529539(JD2400000.2433282.5)NE0.00029(OMEGA3.141592180.)NGASTGMSTENGAST24294NK1900((GD$,1,2)):I((GD$,5,2)):M((GD$,3,2))t6NUT((GT$,1,2))((GT$,3,2))60.((GT$,5,2))3600.>NJD367K(7(K((M9)12))4)(275M9)I1721013.5UT240.5HNX100KM190002.5:SIGN1:X0SIGN1RNJDJD0.5SIGN2400000. "G TC14Ģ22::22:" SIDERIAL TIME":17:30010O 24e ICIC1:IC3010 (49152)155Ĺ49168,0:"RUN HELLO" 'D$;"RUN DEMO 6" ND$;"PR#";SL$:D$;"IN#";SL$ %N"1+0";900O:"H";GT$:"K";GD$*ND$;"PR#0":D$;"IN#0"$% 17:1:"PARIS":1:T8$:1:D8$L 17:14:"KABUL":14:T9$:14:D9$W 30000 TCTC1:TC10ĺ:"WHY SETTLE FOR THE WORLD WHEN YOU":"CAN HAVE THE STARS?";(7) TC14Ģ20:" ":" TIME":17:T1$:17:D1$> 7:1:"CAPETOWN":1:T2$:1:D2$e 7:14:"PHOEIX":14:T3$:14:D3$ 7:27:"LONDON":27:T4$:27:D4$ 12:1:"TOKYO":1:T5$:1:D5$ 12:14:"SYDNEY":14:T6$:14:D6$ 12:27:"TEHERAN":27:T7$:27:D7O:T7$(T7):T71000T7$"0"T7$L "1+";T7$:"I";T7$:"L";D7$: TEHERANy "1+0";1000O:"I";T8$:"L";D8$: PARIS T91334O:T9$(T9):T91000T9$"0"T9$ "1+";T9$:"I";T9$:"L";D9$: KABUL ,D$;"PR#0" 6D$;"IN#0" 1:17:"LOCALT3)):T30T3$"000"+ kT30T3$"-0"T3$C lT30T3$"+0"T3$l n"1";T3$:"I";T3$:"L";D3$: PHOENIX x"1+0";900O:"I";T4$:"L";D4$: LONDON "1-D0";0800O:"I";T5$:"L";D5$: TOKYO "1-D0";0700O:"I";T6$:"L";D6$: SYDNEY! T71230x  DEMO 5#D$(4)BSL$((768)):O(769)100M 20000_ D$;"PR#";SL$q D$;"IN#";SL${("3 "2"A";T1$:"D";D1$_T21100O:T2$(T2):T21000T2$"0"T2$d"1+";T2$:"I";T2$:"L";D2$: CAPETOWN iT3200O:T3$((!! ! ! ! ! !!!!)):T$DC$8090 rT$DC$8080x|T1700T800T1(T100):PL(T18)23((TT1100)30):PL:9:(A$(I),7):8080BL25ĢBL:9:(A$(I),7);:BLBL1BL25BL2BL:1:"RETURN FOR MENU ";T$:2090>(#20000:"E";DS$:20010:21000:$(I)A$(IT):::"RETURN FOR MENU ";T$1v2090r@:"GLANCE AT A DAY"::27000::24000::I817:I10ĺ"0";JI;":00 - ";:I12ĺ"LUNCH";T:I10ĺ"0";^I17ĺI;":30 - ";:I12ĺ"LUNCH";h::BL22:I1C:T$(A$(I),6):T((A$(I),7,4&ICĄ"RETURN FOR MENU ";T$:2090e:"RETURN FOR MENU, N FOR NEXT SET ";T$:(T$,1)"N"6010o2090X20000:"C";DU$:20010:I1C:(A$(I),6)DU$7020b'lI1TI1:CCT::"PURGING:"::I1T:(A$(I),6);" ";(A$(I),7)::I1C:A90I12090d:"THIS EVENT IS:"::(A$(I),6);" ";(A$(I),7)::"REALLY DELETE IT ";T${(T$,1)"Y"2090I1IC1:A$(I1)A$(I11)::CC1:2090p:"REPORT FROM A DAY"::27000zP$"P"İ20050PL0::26000:P$"P"İ20060"RETURN FOR MENU, N FOR NEXT MONTH ";T$:(T$,1)"N"2090pT((DU$,3,2))1:T13DU$(((DU$,2))1):T1T$(T):T10T$"0"T$DU$(DU$,2)T$"01":DD0:4010:"DELETE AN EVENT":"ENTER THE INDEX OF THE EVENT ";I:CI20T"9000 C$"E"İ22000:9999*2090L :"SCHEDULE AN EVENT":27000[ :24000:s "ENTER ACTIVITY": "";A$:A$(A$,40):A$""2090: NEVER SCHEDULE NULL EVENTS 23000:2090DD((DU$,5));25000:PL11:DC$DU$:13:26000:24:" P - PURGE PAST DAY'S EVENTS":z" T - TICKLER LOAD"W" E - END THE SESSION"v:"ENTER THE COMMAND ";C$P$(C$,2):C$(C$,1)C$"S"3000C$"C"4000C$"D"5000C$"R"6000C$"P"7000C$"G"8000C$" C020700 I1C:D$;"READ ";F$:A$(I):D D$;"CLOSE ";F$N 2100W *:4m 4:"FUNCTIONS:": >" S - SCHEDULE AN EVENT" H" C - CALENDAR" R" G - GLANCE AT A DAY" \" R - REPORT FROM A DAY" f" D - DELETE AN EVENT" p:T 20000:"A";TI$:"C";DU$:"E";DD$:"D";DT$:20010: GET STARTING TIME & DATEc 16:DT$:v D$;"OPEN ";F$ D$;"READ ";F$ C,D1$,D2$ "THERE ARE ";C;" RECORDS IN THE BOOK" "DATE OF CREATION ";D1$:"DATE OF LAST UPDATE ";D2$A$(256) D$(4)S BB$" ": 32 BYTES OF SPACES F$"DB SEQ": FILE FOR DATES, USER MAY PUT QUERY HERE! :14::" ":14:" M B I ":14:" ":14:" DATE BOOK ":14:" ":8)31:D(9)30:D(10)31:D(11)30:D(12)31 MO$(12):MO$(1)"JANUARY":MO$(2)"FEBRUARY":MO$(3)"MARCH":MO$(4)"APRIL":MO$(5)"MAY":MO$(6)"JUNE":MO$(7)"JULY":MO$(8)"AUGUST":MO$(9)"SEPTEMBER":MO$(10)"OCTOBER":MO$(11)"NOVEMBER":MO$(12)"DECEMBER" ΠҍĠ̠̍ЍΠŠˍ" 8:"THE FOLLOWING DEMONSTARION ALLOWS":"YOU TO SEE THE TIME IT TAKES":"TO PERFORM A PROGRAM"i x20000 (49152)155Ĺ49168,0:"RUN HELLO" 'D$;"RUN DEMO 7" ND$;"PR#";SL$:D$;"IN#";SL$ *N"3 ":"3 ":"3 ":"3 ":"3 ":"3 " 4ND$;"PR#0":  DEMO 6# SL$((768))/D$(4)7:YT$" ":3:15:T$r 15:" M B I "~"15:T$#15:" APPLETIME "&15:T$(d:::n"WITH THE INTERNAL TIMER YOU CAN":"MEASURE ELAPSED TIME TOO."^ s1""