' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]L L}BBL] 鷎귭෍ᷩ췩緈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,&"_]` L/浍굺L  !"#$%&'()*+,-./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#0EB H  @H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`HIHHHHhHH݌hHhHh݌H6 ˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `LĦ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- (  Ϡ@跻~!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`  @@a  @p $xyyA@@@@B#@x`"F< BCp`0 ` `@@` $@@pp`@p@@ `@@`8L`a80"<@@ s H$ Iq0BG `ax0,)qI0@q"*<Pb1q)qI0L&%(%п)&з()`  `467L67`ɠTH)<=H8< <<<&=<&=e<)e8?<>>i>?i?hhL&'!%&' W()* :LΏ"  "# $ $! JB ! J ɿLa $!! J L`"# `  `()L)0L((%)& )&  L ` `  ` &)%0`  &)%0) &)%0` ,L()* ! ,) Lߎ LĎLĎ%    `)+L-+         Š塐> $ 8娅  f  Ҍ  e  L $ 8娅   e Ҍ P`QT X` ,MɀIEA)* ) LP  W W` W  W`  W ) W`8  8``Jj垅埅`eeş䞐 8垅埅8` Y  -   Wm   :--иLL' LL LL LL``  ` WTR`L΋LҋLLLLL6 38Dcq} L L\ Li L}L LL  LL   L  LL  4LL NLL L LLL@st8 X;67 󩎅9L Hɠ') Jh%ɍ$!H hL) $!$L[% r%$L[$dHi$dh(Ԣ$d CCD~EwGmKnMwKnNnMmNlPoQpQlSoTp:w<n7s8{9;;77823/.----))))*w-x*'&%%&&xu3r3q2p1r.s,x*w,w.z//257688988v8v<|=|8|/|&u)u*#16>6!#138@BDJE>@D|G|BuEuLuaubzfz`ajm^[RQWYahlua{fx`fhiii}`dee_`a\]]WWTTTSIHGwwyyNNHPQQPQRRQONNMK~J|J{L}M~NOOPRTTWXYZ[[]^]^^`_~^~_{^}`{`x^w^x`v_u`r]qYqWoUqSqQpPoNsMuMwKvJwI{I|GGEDDFIIIKK`_acefhhfdc=2>??A@?=;986765446777|8{9x:w8t8r7q4s4v5v4==??==AA>=A,,+++*+*)=76444>>??AE@FEFFFDDGGEIJKIIHGGGGIIkOOOOOMooqqqqqqsswwvuuuv%%((&&)*''**()++((++%%**&-34433477558855886699679977::88::88<<99<;==;;==;;>><<>><<??BG`qx84<"*:< <"<&"&>m>> @`@q@6>xq  GHHHHHHHHHHHH HHHHG  qx~~~~~~~~I*w*I>+@`~8??>>|~|`>>   ****T*T*T*T"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>"A>>< (&20  *, **>> """""    """  "" """""" >> "U+U+U+U+wk]]A]]a]]a]]ac]}}}]ca]]]]]aA}}a}}AA}}a}}}C}}}M]C]]]A]]]cwwwwwc_____]c]muyum]}}}}}}A]IUU]]]]]YUM]]c]]]]]ca]]a}}}c]]]UmSa]]aum]c]}c_]cAwwwwww]]]]]]c]]]]]kw]]]UUI]]]kwk]]]]kwwwwA_ow{}AAyyyyyA}{wo_AOOOOOAwk]    bbb_dgilkkkkjjjjjiiiiiihgggggffffeeeeeedeeeffghhiiijjjklkghiikklh]^^^]]^]]hhhhhh]]:;;:'&&&-[[X)WXXXWWWRYYXXYZY\]```____^^^^^^^]]]\\\\\[[[[[[[ZZZZ[[\]]^^^``__^^^^\\\[[[[[^^_]]]bbbb_eebbbbe.,47:=?<95?BBBCDDDCDGFGGFFE????GNNIILLLIINNHHHHP2444IINNQQR RVWXYYWVQRRQQWWWWWWXYYYXWWYXXYWWWXXX_[_]b[b\%(!!#w'o-m1l4m6q;v=v?yBsEoGmKlNlPlTnXp^r`ucygzhzfzf}gjlmmljhea[ZYWWUPNMIGGFDCCB><;9865421/%%')(&%%&(*++*((*++*(&%%,,..12224422.iGsGsGuGtGtGtKtKwKwGwKyGzKz_0f._0_0_0f2c1c0c0c/_5f5_5_7_7_7`8c8d8f7f6f6f5f:_:_<_<_<_<f=_?_AfA_E_E_D_C`CaDaDbEcEdEeEfEfDeCdC_GfG_J_J_K _J_J`IbIcIdIfJfLdM`M_L_L_OfO_OfR_R_W _V`UcUdUfVfXdY`Y_X_[_[f[[gSgGcGcKcGdPdLeSePfWfNeXfGhGhGhGfGfGfJpJpJp HpGpGoGlIjJjKiSiZl[l[lZpXpVpQpQpQrQqVqXp[p[p[lWjSiLiGoGoGoJpHpHpGpGoHjSiXjXjYlZlZpZpYpWpGlGlIkJjKjYqYqYq[pKjKjHkGlGoGkHkHkIkIjJjJkKjKUTTT WTSTRTRTTTSTQSQTPSORMPLPLPOROSGVGXGXHXLXL[I[GZG\H[Y[[\[ZY[L[LXYX[Y[WYWHWGVGWGXHW[WZWZXZ[Z[Y[G[G[G[G\Z\[]ZZZZ[Z[YG^G`H_Y_[`[^Y^H^G^G^H_H_[_[`[^Z^Z`G^G_GbGbGdGdTgGgGhGcGcGbGbGcHcHcZc[b[dJcJcAZA[@[Z>Z=Z>G>KAK?[@ ZAYBVCRDOCLBOCQCSCUCWBYB[A[BXCWCUDTDGEGDGFGFGDHE[E[IXIZIZFGFGEGKGMGMILZLGKGKGKGMHLHK[K[M[KQLHLHMHMGLGLGMQLZLGSGSJSJSGRGPHOLOOQQSVTXSZR[QYOVNSOSPUQVPIO KPLPOSQTTUVUZT[RZTZSXTXT., - LAST UPDATE 11/05/85 - VERSION 3.5 KDM;LCLCLDM:L:L:MG-G- G.I.G0G1H3K4O4S3T1T/R.R.Q.I.G-G,H-I-Z-[,[/[/Z.Q.H.H-H-[-G2G2 G3H4I4L4O4P4S2Q3P3O4N4I4I3J4G/G,G5G5G7G6G6W6Z7[8[9[:[:Y;W;G;G:G<G6 V6X7Y7Z8[8[8[7Z7Y6X6W7G7G7G8G>GAGBHBIBJBKALBMBPCSCUBWBY:3<3=4@4A4@4C4C4;3C4C4C5C4A4@4@4>4=4=4;4:4:3737343=3=126283848D8D;B;C:D737382=2?3>4>D>D@DABAC@D=3=3>2G4G3F2F2F2CBCDCDGBGCGCD3D3DCD8D8F6F9F2I2K2K4J;L3N2N2M2N2O2I2I4J;L:L8K3J3I4J4J4J9L;LDLD887962 2!?$2$2#2&2#2 3 4!D!D D!D"7!D$=$A$@$>#?#?#;#;#>$=#9"5!3!2*2*2,2*D-2/2.202+@-CCA2GE155>AA928+4+3+>,?,D-D-C-C-C-D,D,A,A-B-;,9,D/D0D1D0D023D5D4D4D47242627383C?@@B? >=97422323>? >==<;:7655433??C32 2 23C C234CDDB@A@CAB11154222CC338869222432 234ABCDDABC@DC33CC33811111111 " 0*>1L-E-E e e ep z19 : ;<?BEGIMM OPN!M#K&I(G(B'?$= ;;99@2 2 5 4 2258>ACDC A > = = = = = A CA@>8464333 3 2 2  3 4 A C D DB??DCBCCDDD    0ЂՀՊЀdD@dOHLqՀ`Ђ*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*ЂЀDD@D@HHHr Հ@%DHD%HD#`b I<ԪժժժժժժժժժժժժժժժՀԪժժժժժժժժժժժժժժժՀՂՂШЂЀDL`2D@HHH02  &$H$&DH$$<"<I@*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*Pc4Ucecf?@ >  f@ PV?@ ?  fJ> `rX0``c,NcX<yI$ggp1q, DCEDC%p8TX0<`! *< < B0< `q $ppp@@@% @G baX0@%b0,@Bgq8Tx bbsA Gdp, <qH<@'r `!L  ,bB`x$8X`CC@Q0 p GDcI,pa!`(Xx8<,<   ND `cc`X$Rba`c" @`r @ecIGH$ DBD"@G@HHL@ O$<Ip IB@H 2) H ""*PIq ( HBd2`dD ID"  I q"2 "$&@'$&DT@H@HHH@`IH$"I B@H p|")yI ""*>P y)yIBbDps""qDDqI$B@ "" !$$ $$$DTDD>p!""*>*>IH> y $yy $$$`'BDD" $" eGDT|Irc!HHD """> I8 $"b "BH"""r|$HHHODD@#D ( xAH$pI$""`"TD|>">PBBD$BpD$Rr@C"B " $DGH$"DBI2D""&@HIHHH@IH$"I OIH DL") I ""*"P ) IBD0""AMMāI110:X(16336)::800H760RX136910\A1āI110:X(16336)::8SE3:TA29952:AN26112*MT,0:MT1,117>ST,0:ST1,118QA25425:I1XgC(I,1)(A):AA1}C(I,2)(A):AA1ITA5,0TA,1:TA1,C(2,1):TA2,C(2,2):TA3,V(1)7:TA4,1SESE3:A1:800TA1,C(1,1):TA2,C(1,1:M((NM$(I),1))192:M(M)I:M$(M)(NM$(I),(NM$(I))2)N&AM(M):AHHAU0I]:V6iDI1MMNVV2:V:H:M$(I)XbB28672:I025:A:BI,A::BlD$"BLOAD STABLE"vD$"BLOAD GRAPHIX"X(25424)MT6:ST8:SE24576:MOк:"(C) 1986 BY GREEN VALLEY PUBLISHING":5:"A DIVISION OF SHAREDATA, INC.";w3:252,173258,173:255,173255,177260,173260,177:260,173263,176266,173:267,173267,177H40:MM0:I1NF((NM$(I),(NM$(I))1,1))1745609MMMM I1:T(I):T$(I) I% 1D 7,0259,0259,407,407,0f 11,2255,2255,3811,3811,2 5:1,45263,45263,1501,1501,45:25,4525,150 3,46261,46261,1493,1493,46:27,4527,150N21:"USE <- AND -> TO SELECT, RETURN TO RUN":370 6(I)0NS0:NT0:3709 @NFNF1:FT(NF)(I2)T JNM$(NF)"":JI3I34y T(J)160(J1)160JI34:360 ^NM$(NF)NM$(NF)((J)) hJ rI |NT0TRKNT:SECNS:190 D$"BLOAD MENUFONT,A$9100" D$"BRUN HI-GEN" I1TF IOB4,TRK:IOB5,SECF IOB9,LOC256:IOB8,LOC(IOB9)256a IOB12,CMD:IOB3,VOLk RWTS 72,0:IOB3,255 (ERR)270 280 "DISK ERROR":D$"MAXFILES 3": NT(BUF1):NS(BUF2) "IBUF11BUF22135 ,(I)255((40(T$(X)))2.5)) dD(X)(5(X1))J nM(X)((40(M$(X)))2.5)V xD$(4)d BUF20000 FINDIOB768:RWTSFINDIOB8:ERR78 ADRFINDIOBFINDIOB25:V:ADR,V: FINDIOB:IOB(78)(79)256 VOL0 TRK17:SEC15 CMD1:LOCBU,TO TRACK YOUR BUSY WEEKs < 32,227,3,133,79,132,78,96,32,227,3,32,217,3,176,5,169,0,133,78,96,169,1,133,78,96 F 169,64,133,61,169,32,133,67,169,0,133,60,133,66,169,95,133,63,169,255,133,62,32,44,254,96 PA56:I17:V(I)A:AA16: ZT(X)s 4 MENU IS A PRODUCT OF GREEN VALLEY PUBLISHINGX A DIVISION OF SHAREDATA, INC. COPYRIGHT (C) 1986, ALL RIGHTS RESERVED 8192970NM$(30),FT(30),M$(7),C(2,2),V(7),M(7),T$(4)(T:I1T:T$(I): 2 3,ELECTRONIC CALENDAR,       24:7:"PRESS ANY KEY TO CONTINUE";:A$< F:D$"RUN MENU"=  60D$(4):::D$"BRUN INITFDOS,A$8000":10:5:"INSERT BLANK DISK IN DRIVE ONE":24:7:"PRESS ANY KEY TO CONTINUE.";:A$:(:12:13:"FORMATTING..."2D$"INIT HELLO,D1"( <::12:1:"INSERT YOUR MASTER DISK INTO THE DRIVE.": `O@P-Q`LOčPQ`2LHA>VDP (ED Z c(0x8x D- ܸDD#L H8?E Vk *f???0xE ݀ ݀ ݀Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE  <1230:X(16384):X12860c F::11:12:"INSERT NEW DISK"::8:"AND PRESS CONTROL-RESET"k K75{ 1230:1220 CC1:C7C1 CL(C) 0,0270,0270,1900,1900,0: 1,1269,1269,1891,1891,1: 75 MENUQ IS A PRODUCT OF GREEN VALLEY PUBLISHINGY A DIVISION OF SHAREDATA, INC. COPYRIGHT (C) 1986, ALL RIGHTS RESERVED70 D$(4):D$"BLOAD QUIT TITLE,A$4000"CL(6)(I16:CL(I):2 1,2,3,5,6,3 749168,0  ЀЪ0ժՂЀЀЂՀՊЀdD@dOHLqՀ`ЀЪժՂЀЀЂ*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*ЂЀDD@D@HHHr Հ@%DHD%HD#`b I<ЀЪ$ ::"ERROR.":I12000:::20$(I),X); 20:(A$(I),X);4 &X(A$(I))2520G 0I3V19:580Q :VV2X DIn NX0:X$"!/-\!/-\"z X19:33 bXX1:X9X1 l(X$,X,1); vKEY(49152):KEY128600 1012,0 49168,0:::12:15:"LOADING..." D$"RUN MENU" KEY(49152):KEY128390* 49168,03 150X A$(1)"DO NOT SAVE DATA TO THIS" A$(2)" DISK. PLEASE FORMAT A WORK DISK" A$(3)"AT THE MAIN MENU" A$(4)"PRESS ANY KEY TO CONTINUE." V8 I14 X0 XX1 V:20X:(AA$(4)"PRESS ANY KEY TO CONTINUE."* V85 "I14= ,X0G 6XX1a @V:20X:(A$(I),X);v J20:(A$(I),X); TX(A$(I))2310 ^I3V19:370 hVV2 rI |49168,0:X0:X$"!/-\!/-\" 19:33 XX1:X9X1 (X$,X,1);:I 21:3:I337:" ";:I< 1:1::I139:" ";:Ia I222:I:1:" ";:39:" ";:I 23:1:I139:" ";:I: 150 A$(1)"WE STRONGLY SUGGEST THAT YOU" A$(2)"MAKE A BACKUP COPY OF THIS" A$(3)"MASTER DISKETTE"" %  8192680!D$(4)7(D$"BLOAD MLMENU"Q2D$"BLOAD GVS,A$5FFF"W<bF35395sPI11000:IZ49168,0dXX1:Y(16384):Y127230nX500230x100:3:3::I337:" ";:I I421:I:3:" ";:37:" ";  0ЂՀՊЀdD@dOHLqՀ`Ђ*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*ЂЀDD@D@HHHr Հ@%DHD%HD#`b I<ԪժժժժժժժժժժժժժժժՀԪժժժժժժժժժժժժժժժՀՂՂШЂЀDL`2D@HHH02  &$H$&DH$$<"<I@*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*)23404$. A$(27)ė:12:15:"ABORTED...":1870:K$8 F$NM$((A$)64):I#NT0TRNT:SENS:2090)#:F$""U# NF0Ģ12:13:"NO FILES FOUND":1870:# I1NF:I:1:(I64)". "(NM$(I),(NM$(I))(PX$)):# 23:1:"TYPE A LETTER (A-"(NF64)") OR ESC TO ABORT."$$ 24:1:">";:A$:(A$"A"A$(NF64))A$(27(BU2)"zIBU11BU221352"(I)2552280N"(I)0NS0:NT0:2280h"NF22(I2)02280"DM$"":JI3I34"(J)160(J1)160JI34:2240"DM$DM$((J))"J"(DM$,(PX$))PX$2280"NFNF1"NM$(NF)DM$#I1(X$):PX$PX$(((X$,I,1))128):A! FI:IO(78)(79)256J!VO0Z! TR17:SE15i!*CM1:LOBU!4IO4,TR:IO5,SE!>IO9,LO256:IO8,LO(IO9)256!HIO12,CM:IO3,VO!RRW!\72,0:IO3,255!f(ER)NF0:2300"pNT(BU1):NS1SL%1WR$"0"WR$A$:D0:II1:I(GO$)1930f D0A$""WR$WR$"00"A$:II1:I(GO$)1930 D1WR$(WR$,(WR$)1)"0"(WR$,1)A$:D0:II1:I(GO$)1930 V:HT:WR$  V:HT::"MM/DD/YY"::1900&!NF0:PX$"":X$".EC":IlLN8:LA47:HA57:16604vGO$""(GO$)52040MSL%0:D0:I1:WR$""wA$(GO$,I,1):A$"/"SL%SL%1:1970DD1:WR$WR$A$:II1:D32040I(GO$)1930A$""SL%32040D2WR$WR$A$:D0:II1:I(GO$)19300 D ","TUESDAY ","WEDNESDAY","THURSDAY ","FRIDAY ","SATURDAY ","SUNDAY "b 32,227,3,133,79,132,78,96,32,227,3,32,217,3,176,5,169,0,133,78,96,169,1,133,78,96,169,64,133,61,169,32,133,67,169,0,133,60,133,66,169,95,133,63,169,255,133,62,32,44,254,96 T TO QUIT (Y/N)? ";1A$:A$"N"A$"Y"1810AA$"N"690|&:12:"INSERT YOUR MASTER DISK INTO THE DRIVE.":187001800::12:15:"LOADING...."DD$"RUN MENU"N24:7:"PRESS ANY KEY TO CONTINUE:";:49168,0:A$::KX "MONDAY (ZZ$)8RR01750F((ZZ$)LA(ZZ$)HA)ZZ$","ZZ$":"1670VRRLN1670tRRRR1:ZZ$;:GO$GO$ZZ$~1670:RR1GO$""RR1GO$(GO$,RR1)RRRR1V:HT:GO$" "(8);1670:12:"ARE YOU SURE YOU WAN/O ERROR - CHECK YOUR DISK DRIVE.":1870:690>@E2551650rJ:12:"ARE YOU SURE YOU WANT TO QUIT (Y/N)? ";TA$:A$"N"A$"Y"1620^A$"Y"1830h:40r"ERROR #"E" AT LINE "E1:|V:HT:GO$"":RR0ZZ$(ZZ$)131740ı:12:15:"WRITING...".D$"OPEN"F$?D$"WRITE"F$`I17:J116:A$(I,J):J,IsD$"CLOSE"F$:E(222)E1(218)(219)256E41580":12:5:"YOUR DISK IS WRITE-PROTECTED.":1870:690,E81600-6:12:" I:$K7ĺK6;1(K610));@(K6ĺK6;1(K610));K2I17i<A$(I,K);11(A$(I,K)));pFIvP}ZKd" ";nJ17xI110(95);I(124);J:D$"PR#0"MMMM1:MM01120690F1 E E K L Y S C H E D U L E"Jt::20:"FOR THE WEEK "DT$" THROUGH "ED$o~::" ";:I177:"_";:I::u" ";H17W$(H)" ";HK116" ";J17I110(95);I(124); J9:" MAKE SURE YOUR PRINTER IS HOOKED INTO"::" SLOT #1 AND READY TO PRINT."L20:5:"DO YOU WISH TO CONTINUE (Y/N)? ";:A$:A$"N"A$"Y"1100VA$"N"690`:12:"SET THE PAPER, PRESS ANY KEY TO START":A$::D$"PR#1"j::25)"W:LA32:1660:A$(A,B)GO$!910-1480:y12:3:"DO YOU WANT A PRINTED COPY (Y/N)? ";:A$:A$"N"A$"Y"1050$A$"N"690.:12:1:"HOW MANY COPIES DO YOU WANT: ";8V12:HT35:LN1:LA49:HA57:1660:MM(GO$):GO$""ė:1050RB:U :";:V22:HT35:LN2:LA48:HA57:16607GO$""690DB(GO$)XB7BB6:970gB6BB6yB1B16910CB6:B6CB621:1:958:W$(A)" AT "C;:B6ĺ" PM ":1010" AM"A$(A,B)23:1:">";:V23:HT3:LN10:HA954EAE:I12EAI6.>I4:10:EA;18);E;HHI6ĺ21);"PM";:860TR" AM";g\24);A$(A,I);mfp4:3::"TYPE":z4:13::"FOR"::21:1:958:"TYPE THE NUMBER OF THE HOUR YOU WISH"'"OR PRESS FOR THE MEN4:"9: QUIT THE PROGRAM"$22:1{"TYPE THE NUMBER OF YOUR CHOICE OR PRESS":" TO PRINT SCHEDULE SO FAR :";A$:(A$)13580A(A$)A91800A81040 A0720:3:18::W$(A): I116*EI6:I6EI6$(I),3);::$XI139:"_";:::0bI116DlI7VI6:640SvI6VI6gV;:V10ĺ" ";rJ17J1ĺ" ";J5:(A$(J,I),3);:::1870:::I17::4:I": "W$(I)::4:"8: DONE ENTERING DATA FOR WEEK"::V16:HT4:LN20:LA65:HA90:16605GO$""ė:440KF$GO$".EC":690g:12:15:"READING..."wD$"OPEN"F$D$"READ"F$I17:J116:A$(I,J)&A$(I,J)""A$(I,J)" "0J,I:D$"CLOSE"F$D::2 NI17:I5:(W"N"400A$"N"440K:12:13:"READING DISK...":2050:F$""510T390:12:"DO YOU WANT THIS SCHEDULE SAVED (Y/N)?";A$:A$"Y"A$"N"450A$"N"F1:69015:1:"ENTER A NAME FOR THE SCHEDULE FILE :""16:1:">>";:1900:ED$WR$:h:7:"MONDAY "DT$" THROUGH SUNDAY "ED$r10:3:"ARE THESE THE CORRECT DATES (Y/N) ?";:A$:A$"Y"A$"N"370|A$"N"310:11:"DO YOU WANT TO USE A PREVIOUSLY CREATED"::10:"SCHEDULE FILE (Y/N)? ";A$:A$"Y"A$ ,1870f6:4:"YOUR SCHEDULE WILL RUN FROM MONDAY"::" THROUGH THE FOLLOWING SUNDAY."@10:"ENTER MONDAY'S DATE :"::"MM/DD/YY":JV11:HT1:1900:DT$WR$T13:1:"ENTER DATE FOR THE FOLLOWING SUNDAY :"^V14::"MM/DD/YY":RRESPONDS TO THE HOUR OF":"THE DAY IN THE NEXT COLUMN OF NUMBERS."O 1870 "IF YOU DESIRE, THIS PROGRAM WILL SAVE":"YOUR SCHEDULE ON A WORK DISK FOR YOU.":"ANY BLANK, APPLE-FORMATTED DISK WILL" "" SUFFICE FOR THIS PURPOSE." OF THE WEEK." 1870w "THE HOURS OF THE DAY START AT 7 O'CLOCK":"IN THE MORNING AND END AT 10 O'CLOCK IN" "THE EVENING.": "TO ACCESS ONE OF THE HOURS OF THE DAY,":"YOU TYPE THE NUMBER AT THE LEFT OF THE"E "SCREEN WHICH COK":"OF THE IMPORTANT EVENTS THAT YOU HAVE"Y "INCORPORATED INTO YOUR BUSY WEEK.": "IT IS VERY SIMPLE TO USE. ALL YOU DO IS":"GO ALONG DAY BY DAY AND TYPE IN THE" "IMPORTANT TIMES OF THE DAY YOU HAVE TO":"REMEMBER FOR EACH DAYJ15:X(16336):J,IK 13:5:"DO YOU NEED INSTRUCTIONS (Y/N)? ";:A$d A$"N"A$"Y"140t A$"N"310 :"THIS IS A SCHEDULING PROGRAM WHICH WILL":"RECORD A SCHEDULE FOR ONE WEEK.". "IT WAS DEVISED TO HELP YOU KEEP TRAC:12:1:"INSERT YOUR DATA DISK INTO THE DRIVE NOW":1870Y dA$(8,20),NM$(22):D$(4) n:I29:I1:1:868:I:1:"*** ELECTRONIC CALENDAR ***";:J15:X(16336):J,I xA$"*** ELECTRONIC CALENDAR ***":I16 9:1:J1I:" ";:J:A$"";:LC ELECTRONIC CALENDAR IS A PRODUCT OF GREEN VALLEY PUBLISHINGh A DIVISION OF SHARE DATA, INC. COPYRIGHT (C) 1986, ALL RIGHTS RESERVED(3814421540<I17:W$(I):FBU38144:FI768:RWFI8:ER78PIFIFI25:V:I,V:; Z       %" 28400%, :936:12:14::"LOADING....":E%6 (4);"RUN MENU"M4);"RUN MENU"A"ġ:930%! 936:12::"BE SURE YOUR MASTER DISK IS IN DRIVE 1!":23:7::"PRESS ANY KEY TO CONTINUE";::TE$:TE$""ī2840%" 2840 &, :936:12:14::"LOA$ V:HT:868:GOOD$;"$ 2690Z$ :12:"ARE YOU SURE YOU WANT TO QUIT (Y/N)? ";:A$t$ A$"N"A$"Y"2840$ A$"N"ġ:930$! 936:12::"BE SURE YOUR MASTER DISK IS IN DRIVE 1!":23:7::"PRESS ANY KEY TO CONTINUE";::TE$:TE$""ī2840 # RRLN2690S# RRRR1:ZZ$;:GOOD$GOOD$ZZ$:(RR1RRLN)Ģ24:1:868:2820# RRLNĢ24:5:"MAXIMUM LENGTH OF "LN" REACHED.";:2820# 2690# 24:1:868:V1:# RR1GOOD$""# RR1GOOD$(GOOD$,RR1)# RRRR1# 24:1:868 LEGAL ASCII VALUE RECOGNIZED%"( H"2 VALUE RETURNED FROM ROUTINEN"< s"F GOOD$ = STRING INPUT BY USER.y"P "Z "d "n V:HT:GOOD$"""x RR0" ZZ$" (ZZ$)132770" (ZZ$)8RR02780" ((ZZ$)LA(ZZ$)HA)ZZ$","2690z#??     ԠŠ"Š ӠӠԠɭΠؠ Ϡ Ԯà Šˮ  àҮ ՠ  Π ՠO PRINT TEXT WITH CLICKS.O%O4OI1(A$)DO(A$,I,1);TOX(16336)[OIaOgOINIT HELLO,D1":(4)"DELETE HELLO,D1"::17:"DONE"::2:"INSERT MASTER DISK";z ,AN1ĺ" AND PRESS RETURN";:A$:A$: @AN2ĺ"RUN MENUQ" A::12:14:"LOADING..." JT(A)1ĺ"RUN"A$(A) TT(A)2ĺ"BRUN";A$(A)^T(A)3ĺ"EXEC";A$(A)1KBN2240= VTV1(X)2:HT25.5:A$(KB):110::AKB::K AN321[ AN1300 ":::(4)"BRUN INITFDOS,A$8000":10:5:"INSERT BLANK DISK IN DRIVE ONE":24:7:"PRESS ANY KEY TO CONTINUE.";:A$: #:12:13:"FORMATTING..."O )(4)"(PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP_CGKOSW[_@DHLPTX\@DHLPTX\AEIMQUY]AEIMQUY]BFJNRVZ^BFJNRVZ^CGKOSW[_CGKOSW[_@DHLPTX\@DHLPTX\AEIMQUY]AEIMQUY]BFJNRVZ^BFJNRVZ^CGKOSW[_CGKOSW[_(((((((((((((((((((((((((((((((ȱȱȱL,aȱaȱaȱȱLkaȱ'a@8 ]ab\a(`ȱ࿐a@8 abae (ж`@DHLPTX\@DHLPTX\AEIMQUY]AEIMQUY]BFJNRVZ^BFJNRVZ^CGKOSW[`EL`n%0^ `  aLo`)@L`ȱȱȱȱ ,aȱaȱaȱȱ kaiЎ @T`  U`I@  `  @ ` Ч ` @Ж ȄRU `ȱ   IT THE PROGRAM"22:1q"TYPE THE NUMBER OF YOUR CHOICE OR PRESS":" TO PRINT SCHEDULE SO FAR :";AA$:(AA$)13740$A(AA$).A9İ28408A81360BA01030L2270V3:18::BB$(A):`I116jEI6:I6E,"SATURDAY ","SUNDAY ""2270(?::4)"1-MONDAY"V:4);"2-TUESDAY"n:4)"3-WEDNESDAY":4)"4-THURSDAY":4)"5-FRIDAY":4)"6-SATURDAY":4)"7-SUNDAY":4)"8-DONE ENTERING DATA FOR WEEK":4)"9-QU: I116#*I7VI6:83024I6VI6F>V;:V10ĺ1);QHJ17`RJ1ĺ2);x\J5:(A$(J,I),3);~fpz24:7::"PRESS ANY KEY TO CONTINUE.";:AN$ "MONDAY ","TUESDAY ","WEDNESDAY","THURSDAY ","FRIDAY "M DISK..."D$;"OPEN";Z$.D$;"READ";Z$9I17EJ116]A$(I,J): DAY,WEEK(A$(I,J))1A$(I,J)" ": FILL SPACES:D$;"CLOSE";Z$:2270:2);I17I5:(BB$(I),3); :I139:"=";: A NAME FOR THE SCHEDULE FILE :"T16:1:">>";:V16:HT4:LN20:LA65:HA90:2500fGOOD$""641xZ$GOOD$:920:12:" PUT YOUR DATA DISK INTO THE DRIVE NOW":24:" PRESS ANY KEY WHEN READY TO CONTINUE.";:A$ :2270:8:10:"READING FRO4:1:"ENTER A NAME FOR YOUR SCHEDULE FILE :"a\16:1:">>";:V16:HT4:LN20:LA65:HA90:2500s]GOOD$""600^Z$GOOD$_650l12:3:"CARE TO SAVE THIS SCHEDULE (Y/N)? ";:AC$:AC$"Y"AC$"N"620vAC$"N"F1:920 15:1:"ENTER& MARK PETERSONGG$(13))D$(4)7&A$(8,20)B0I17N:BB$(I)UDI[NXW$"ELECTRONIC CALENDAR":2270:7:"DO YOU WANT TO USE A PREVIOUSLY CREATED"::10:"SCHEDULE FILE (Y/N)? ";:A$YA$"Y"A$"N"600ZA$"N"620-[19) :";:V16:2500:YY(GOOD$)1YY1YY994507f:7:" MONDAY ";DT$;" THRU SUNDAY ";EDT$10:3:"ARE THESE THE CORRECT DATES (Y/N) ?";:RP$:RP$"Y"RP$"N"490RP$"Y"RP$"N"ī490RP$"N"ī340 EDITED BY JAKE SCOTT 410:EDT$(MM)"/"(DD)"/"(YY)-48012:1:868:"MONTH (1-12) :";:V12:HT16:LN2:LA48:HA57:2500:MM(GOOD$)MM1MM1241014:1:868:"DATE (1-31) :";:V14:2500:DD(GOOD$)DD1DD3141916:1:868:"YEAR (01-9TO CONTINUE";: J756" T:4z ^"YOUR SCHEDULE WILL RUN FROM MONDAY"::" THROUGH THE FOLLOWING SUNDAY." h10:"ENTER MONDAY'S DATE :" r410:DT$(MM)"/"(DD)"/"(YY) |10:1:"ENTER DATE FOR THE FOLLOWING SUNDAY :":958$ TO CONTINUE";:& RP$:RP$""ī280/ ":8 ,"IF YOU DESIRE, THIS PROGRAM WILL SAVE"::"YOUR SCHEDULE ON A WORK DISK FOR YOU."::"ANY BLANK, APPLE-FORMATTED DISK WILL": 6" SUFFICE FOR THIS PURPOSE." @23:8::"PRESS ANY KEY END AT 10 O'CLOCK IN"* "THE EVENING."0 "TO ACCESS ONE OF THE HOURS OF THE DAY,":"YOU TYPE THE NUMBER AT THE LEFT OF THE" "SCREEN WHICH CORRESPONDS TO THE HOUR OF":"THE DAY IN THE NEXT COLUMN OF NUMBERS." 23:7::"PRESS ANY KEY" a "IT IS VERY SIMPLE TO USE. ALL YOU DO IS":"GO ALONG DAY BY DAY AND TYPE IN THE" "IMPORTANT TIMES OF THE DAY YOU HAVE TO":"REMEMBER FOR EACH DAY OF THE WEEK."  "THE HOURS OF THE DAY START AT 7 O'CLOCK":"IN THE MORNING AND"N"A$"Y"100 xA$"N"340& x "THIS IS A SCHEDULING PROGRAM WHICH WILL":"RECORD A SCHEDULE FOR ONE WEEK."~ "IT WAS DEVISED TO HELP YOU KEEP TRACK":"OF THE IMPORTANT EVENTS THAT YOU HAVE" "INCORPORATED INTO YOUR BUSY WEEK.F 2300U(I29:I1:1:868:I:1:"*** ELECTRONIC CALENDAR ***";:I[2<A$"*** ELECTRONIC CALENDAR ***":I16F9:1:J1I:" ";:J:A$"";PIZWS11500:WSd13:5:"DO YOU NEED INSTRUCTIONS (Y/N)? ";:A$ nA$          ЀР@A@ %" 28400%, :936:12:14::"LOADING....":E%6 (4);"RUN MENU"M$ V:HT:868:GOOD$;"$ 2690Z$ :12:"ARE YOU SURE YOU WANT TO QUIT (Y/N)? ";:A$t$ A$"N"A$"Y"2840$ A$"N"ġ:930$! 936:12::"BE SURE YOUR MASTER DISK IS IN DRIVE 1!":23:7::"PRESS ANY KEY TO CONTINUE";::TE$:TE$""ī2840 # RRLN2690S# RRRR1:ZZ$;:GOOD$GOOD$ZZ$:(RR1RRLN)Ģ24:1:868:2820# RRLNĢ24:5:"MAXIMUM LENGTH OF "LN" REACHED.";:2820# 2690# 24:1:868:V1:# RR1GOOD$""# RR1GOOD$(GOOD$,RR1)# RRRR1# 24:1:868 LEGAL ASCII VALUE RECOGNIZED%"( H"2 VALUE RETURNED FROM ROUTINEN"< s"F GOOD$ = STRING INPUT BY USER.y"P "Z "d "n V:HT:GOOD$"""x RR0" ZZ$" (ZZ$)132770" (ZZ$)8RR02780" ((ZZ$)LA(ZZ$)HA)ZZ$","2690D INPUT ROUTINE! 4! VALUES SENT TO ROUTINE ::! d! V = VERTICAL POSITION OF CURSOR ! LN = MAXIMUM LENGTH OF STRING! HT = HORIZONTAL POSITION OF CURSOR! LASCII = LOWEST LEGAL ASCII VALUE RECOGNIZED" HASCII = HIGHESTOU SURE YOU WANT TO QUIT (Y/N)? ";:A$@ t A$"N"A$"Y"2410Q ~ A$"Y"2840W f E62470 936:12:" THAT FILE IS NOT ON YOUR DATA DISK.":2480:600 24:7:"PRESS ANY KEY TO CONTINUE.";:A$:936: ! - STANDAR12:"THAT FILE IS NOT A WEEKLY SCHEDULE FILE":2480:600H8 E82380B 936:12:" I/O ERROR - CHECK YOUR DISK DRIVE.":2480:L E112400V 936:12:"THAT FILE NAME IS IMPROPER, TRY AGAIN.":2480:600` E2552450& j 936:12:"ARE YZ$;:2270:10:" SCHEDULE NOW WRITTEN TO ";Z$::NHG11500:HGTw:L20((W$)2):L::W$::E(222) E1(218)(219)256 E42340 936:12:5:"YOUR DISK IS WRITE-PROTECTED.":2480:$ E523609. 936:NSERT YOUR DATA DISK INTO THE DRIVE.":24:" PRESS ANY KEY WHEN READY TO CONTINUE.";:A$t^:12:15:"WRITING..."fGG$;D$;"OPEN";Z$pD$;"DELETE";Z$zD$;"OPEN";Z$D$;"WRITE";Z$I17J116A$(I,J):D$;"CLOSE";(K610));':K6ĺK6;1(K610));2DI17PNA$(I,K);11(A$(I,K)));WXI]bdKp" ";{J17I110(95);I (124);J :D$;"PR#0" MMMM1:MM01470920\F1ıX]:12:" I::20);"FOR THE WEEK ";DT$;" THROUGH ";EDT$U"::" ";:I177:"_";:I::[rhs" ";sH17BB$(H);2);HK116" ";J17I110(95);I(124);J: 0K7ĺK6;1NTO"::" SLOT #1 AND READY TO PRINT."w20:5:"DO YOU WISH TO CONTINUE (Y/N)? ";:AD$:AD$"N"AD$"Y"1410AD$"N"930:12:"SET THE PAPER, PRESS ANY KEY TO START":AD$::(4);"PR#1"::25)"W E E K L Y S C H E D U L E"03:LN10:HA95:LA32:2500:A$(A,B)GOOD$2F1220<P2140Z:12:3:"DO YOU WANT A PRINTED COPY (Y/N)? ";:AD$:AD$"N"AD$"Y"1370dAD$"N"930n:12:1:" HOW MANY COPIES DO YOU WANT?";MM+x:9:" MAKE SURE YOUR PRINTER IS HOOKED IE MENU :";:V22:HT35:LN2:LA48:HA57:2500>GOOD$""920MB(GOOD$)bB7BB6:1280qB6BB6B1B161220 CB6:B6CB621:1:958:BB$(A);" AT ";C;:B6ĺ" PM ":1320" AM"(A$(A,B)(223:1:">";:V23:HTI6tEAE:I12EAI62~I4:10:EA;18);E;MI6ĺ21);"PM";:1170Y" AM";l24);A$(A,I);r4:3::"TYPE":4:13::"FOR"::21:1:958:"TYPE THE NUMBER OF THE HOUR YOU WISH","OR PRESS FOR TH P2140[Z:12:3:"DO YOU WANT A PRINTED COPY (Y/N)? ";:AD$:AD$"N"AD$"Y"1370ldAD$"N"930n:12:1:" HOW MANY COPIES DO YOU WANT?";MMx:9:" MAKE SURE YOUR PRINTER IS HOOKED INTO"::" SLOT #1 AND READY TO PRINT."E2GO$""920B(GO$)2B7BB6:1280AB6BB6TB1B161220i CB6:B6CB621:1:958:BB$(A);" AT ";C;:B6ĺ" PM ":1320" AM"(A$(A,B)223:1:">";:V23:HT3:LN10:HA95:LA32:2500:A$(A,B)GO$F122018);E;!I6ĺ21);"PM";:1170-" AM";@24);A$(A,I);F\4:3::"TYPE":by4:13::"FOR"::21:1:958:"TYPE THE NUMBER OF THE HOUR YOU WISH""OR PRESS FOR THE MENU :";:V22:HT35:LN2:LA48:HA57:2500MBER OF YOUR CHOICE OR PRESS":" TO PRINT SCHEDULE SO FAR :";]AA$:(AA$)13740j$A(AA$)y.A9İ28408A81360BA01030L2270V3:18::BB$(A):`I116jEI6:I6EI6tEAE:I12EAI6~I4:10:EA;::4:"1-MONDAY"*:4:"2-TUESDAY"B:4:"3-WEDNESDAY"Y:4:"4-THURSDAY"n:4:"5-FRIDAY":4:"6-SATURDAY":4:"7-SUNDAY":4:"8-DONE ENTERING DATA FOR WEEK":4:"9-QUIT THE PROGRAM"22:1E"TYPE THE NUE"F$:2270:2);'I17>I5:(BB$(I),3);F :\I139:"=";::h I116|*I7VI6:8304I6VI6>V;:V10ĺ1);HJ17RJ1ĺ2);\J5:(A$(J,I),3);fpz3000227016:1:">>";:V16:HT4:LN20:LA65:HA90:2500BGO$""641XF$GO$".EC":920:2270:8:10:"READING FROM DISK..."D$"OPEN"F$D$"READ"F$I17J116A$(I,J)A$(I,J)""A$(I,J)" "J,ID$"CLOSYA$:A$"Y"A$"N"601*ZA$"N"620^[:12:13:"READING DISK...":50000:F$""650g\600l12:3:"CARE TO SAVE THIS SCHEDULE (Y/N)? ";:AC$:AC$"Y"AC$"N"620vAC$"N"F1:92015:1:"ENTER A NAME FOR THE SCHEDULE FILE :"2 "DT$" THROUGH SUNDAY "EDT$g10:3:"ARE THESE THE CORRECT DATES (Y/N) ?";:A$:A$"Y"A$"N"490wA$"N"3400I17:BB$(I):XW$"ELECTRONIC CALENDAR":2270:7:"DO YOU WANT TO USE A PREVIOUSLY CREATED"::10:"SCHEDULE FILE (Y/N)? ";ULE WILL RUN FROM MONDAY"::" THROUGH THE FOLLOWING SUNDAY."w h10:"ENTER MONDAY'S DATE :"::"MM/DD/YY": rV11:HT1:4000:DT$WR$ |13:1:"ENTER DATE FOR THE FOLLOWING SUNDAY :" V14::"MM/DD/YY"::4000:ED$WR$:7:"MONDAYIN THE NEXT COLUMN OF NUMBERS."+ 3000 ,"IF YOU DESIRE, THIS PROGRAM WILL SAVE":"YOUR SCHEDULE ON A WORK DISK FOR YOU.":"ANY BLANK, APPLE-FORMATTED DISK WILL" 6" SUFFICE FOR THIS PURPOSE." @3000 T:4F ^"YOUR SCHEDE HOURS OF THE DAY START AT 7 O'CLOCK":"IN THE MORNING AND END AT 10 O'CLOCK IN"i "THE EVENING.": "TO ACCESS ONE OF THE HOURS OF THE DAY,":"YOU TYPE THE NUMBER AT THE LEFT OF THE"! "SCREEN WHICH CORRESPONDS TO THE HOUR OF":"THE DAY YOU HAVE"5 "INCORPORATED INTO YOUR BUSY WEEK.": "IT IS VERY SIMPLE TO USE. ALL YOU DO IS":"GO ALONG DAY BY DAY AND TYPE IN THE" "IMPORTANT TIMES OF THE DAY YOU HAVE TO":"REMEMBER FOR EACH DAY OF THE WEEK." 3000S "TH"DO YOU NEED INSTRUCTIONS (Y/N)? ";:A$@ nA$"N"A$"Y"100P xA$"N"340 :"THIS IS A SCHEDULING PROGRAM WHICH WILL":"RECORD A SCHEDULE FOR ONE WEEK." "IT WAS DEVISED TO HELP YOU KEEP TRACK":"OF THE IMPORTANT EVENTS THAT  38144* A$(8,20),NM$(22):D$(4)52300(:I29:I1:1:868:I:1:"*** ELECTRONIC CALENDAR ***";:J15:X(16336):J,I<A$"*** ELECTRONIC CALENDAR ***":I16F9:1:J1I:" ";:J:A$"";:J15:X(16336):J,I' d13:5:           ùIO4,TR:IO5,SE9#ùIO9,LO256:IO8,LO(IO9)256P#ùIO12,CM:IO3,VOX#ÌRWl#ù72,0:IO3,255}#í(ER)50150#ë50160#ú"DISK ERROR":D$"MAXFILES 3":#NT(BU1):NS(BU2)#ÁIBU11BU22135#ĭ(I)25550280$ĭ(I)0NS5,169,0,133,78,96,169,1,133,78,96,169,64,133,61,169,32,133,67,169,0,133,60,133,66,169,95,133,63,169,255,133,62,32,44,254,96 "dBU58144:FI768:RWFI8:ER78"nÁIFIFI25:V:I,V::"xÌFI:IO(78)(79)256"VO0"TR17:SE15"CM1:LOBU#(GO$)4030Q!D1WR$(WR$,(WR$)1)"0"(WR$,1)A$:D0:II1:I(GO$)4030a!V:HT:WR$g!"!,V:HT::"MM/DD/YY"::4000!PNF0:PX$"":X$".EC":I1(X$):PX$PX$(((X$,I,1))128):|"ZÃ32,227,3,133,79,132,78,96,32,227,3,32,217,3,176,,1):A$"/"SL%SL%1:4070@ DD1:WR$WR$A$:II1:D34140T I(GO$)4030^ A$""n SL%34140 D2WR$WR$A$:D0:II1:I(GO$)4030 D1SL%1WR$"0"WR$A$:D0:II1:I(GO$)4030 !D0A$""WR$WR$"00"A$:II1:I(4);"RUN MENU"J 24:7:"PRESS ANY KEY TO CONTINUE:";:49168,0:A$:: "MONDAY ","TUESDAY ","WEDNESDAY","THURSDAY ","FRIDAY ","SATURDAY ","SUNDAY "LN8:LA47:HA57:2500GO$""(GO$)54140SL%0:D0:I1:WR$"" A$(GO$,IR1) RRRR1( V:HT:GO$" "(8);2 2690j :12:"ARE YOU SURE YOU WANT TO QUIT (Y/N)? ";:A$ A$"N"A$"Y"2840 A$"N"ġ:930! :12:"INSERT YOUR MASTER DISK INTO THE DRIVE.":3000" 2840, :12:15:"LOADING...."6 DATA DISK.":3000:600 4 V:HT:GO$"":RR0= ZZ$Q (ZZ$)132770i (ZZ$)8RR02780 ((ZZ$)LA(ZZ$)HA)ZZ$","ZZ$":"2690 RRLN2690 RRRR1:ZZ$;:GO$GO$ZZ$ 2690 : RR1GO$"" RR1GO$(GO$,RL E112400PV :12:"THAT FILE NAME IS IMPROPER, TRY AGAIN.":3000:600a` E2552450j :12:"ARE YOU SURE YOU WANT TO QUIT (Y/N)? ";:A$t A$"N"A$"Y"2410~ A$"Y"2840  E62470 :12:" THAT FILE IS NOT ON YOURE(222)$ E1(218)(219)2563 E42340i :12:5:"YOUR DISK IS WRITE-PROTECTED.":3000:x$ E52360. :12:"THAT FILE IS NOT A WEEKLY SCHEDULE FILE":3000:6008 E82380B :12:" I/O ERROR - CHECK YOUR DISK DRIVE.":3000:RITING..."fD$"OPEN"F$,pD$"DELETE"F$<zD$"OPEN"F$MD$"WRITE"F$XI17dJ116qA$(I,J)y:D$"CLOSE"F$:2270:10:" SCHEDULE NOW WRITTEN TO "F$::HG11500:HG:L20((W$)2):L::W$:: NA$(I,K);11(A$(I,K)));"XI(b/K;" ";FJ17RI110^(95);eIr(124);yJ :D$"PR#0" MMMM1:MM01470920\F1ı]:12:" INSERT YOUR DATA DISK INTO THE DRIVE.":3000 ^:12:15:"W::" ";:I177:"_";:I::&r3s" ";>H17OBB$(H);2);VH\hK116t" ";J17I110(95);I(124);J:0K7ĺK6;1(K610));:K6ĺK6;1(K610));DI170:5:"DO YOU WISH TO CONTINUE (Y/N)? ";:AD$:AD$"N"AD$"Y"1410VAD$"N"930:12:"SET THE PAPER, PRESS ANY KEY TO START":AD$::D$"PR#1"::25)"W E E K L Y S C H E D U L E"::20);"FOR THE WEEK ";DT$;" THROUGH ";EDT$ ":24:7:"PRESS ANY KEY TO CONTINUE.";:A$:936:9:936:12::"BE SURE YOUR MASTER DISK IS IN DRIVE 1!":23:7::"PRESS ANY KEY TO CONTINUE";::TE$:TE$""ī6300063000:936:12:14::"LOADING....":(4);"RUN MENU"WIMPROPER, TRY AGAIN.":15000:50804(E25510500p(936:12:"ARE YOU SURE YOU WANT TO QUIT (Y/N)? ";:A$(A$"N"A$"Y"10401(A$"Y"63000()E610600)936:12:" THAT FILE IS NOT ON YOUR DATA DISK.":15000:5080h)3NM$((A$)64):ED...":3000:9&F$NM$((A$)64):"NO FILES FOUND":3000:T%āI1NF:I:1:(I64)". "(NM$(I),(NM$(I))(PX$)):%Ģ23:1:"TYPE A LETTER (A-"(NF64)") OR ESC TO ABORT."%Ģ24:1:">";:A$:(A$"A"A$(NF64))A$(27)50340%ĭA$(27)ė:12:15:"ABORTED...":3000:&F$0:NT0:50280)$ĭNF22(I2)050280@$"DM$"":JI3I34g$,ĭ(J)160(J1)160JI34:50240{$6DM$DM$((J))$@ĂJ$Jĭ(DM$,(PX$))PX$50280$TNFNF1$^NM$(NF)DM$$hĂI$rĭNT0TRNT:SENS:50070$|ė:F$""%ĭNF0Ģ12:13:΍ЍΠՍժժժժժߪժ?xCp|p@pժժժժժ?xaa~p@|pժժժߪp~`~<`ߪժժժתתժת?x?x~?xppתߪժתժժժժժժժߪժժߪժժժժߪժժߪժժժժժժժժժժߪժժ?xp`p`pժժߪժժժ?xaa~pACpժժժߪժժժתתժߪ?x?x~?xpCpתߪժתժժժժժժժߪߪժժߪժժתժժժתժժժժժժժժժժתժժ?xpp`pժժתժժժ?xaa~v`Cpժժժߪժժժתժժߪ?x|~?xpCpתժתժժժժժժժժߪժժժתժժתժժժתժժժժժժժժժժתժת?xx~p`pתժժժժժժժ?xaa~pCpժժժߪժժժתժժߪ?x|~x`Apˍˍ 1:"HOW MANY COPIES DO YOU WANT: ";ckV12:HT35:LN1:LA49:HA57:1850:MM(GO$):GO$""ė:1110t:9:" MAKE SURE YOUR PRINTER IS HOOKED INTO"::" SLOT #1 AND READY TO PRINT."~20:5:"DO YOU WISH TO CONTINUE (Y/N)? ";:A$:A$"N"A$"Y1:1:958:W$(A)" AT "C;:B6ĺ" PM ":10707$" AM"D.A$(A,B)823:1:">";:V23:HT3:LN10:HA95:LA32:1850:A$(A,B)GO$B970L1530:V12:3:"DO YOU WANT A PRINTED COPY (Y/N)? ";:A$:A$"N"A$"Y"1110`A$"N"690#j:12::"FOR"::F21:1:958:"TYPE THE NUMBER OF THE HOUR YOU WISH""OR PRESS FOR THE MENU :";:V22:HT35:LN2:LA48:HA57:1850GO$""690B(GO$)B7BB6:1030B6BB6B1B16970CB6:B6CB6,2A(A$)4A91990#>A811000HA0780HR:3:18::W$(A):T\I116ifEI6:I6EI6pEAE:I12EAI6zI4:10:EA;18);E;I6ĺ21);"PM";:920" AM";24);A$(A,I);4:3::"TYPE": 4:13:,3);:::20608:::I17::4:I": "W$(I):c:4:"8: DONE ENTERING DATA FOR WEEK":4:"9: QUIT THE PROGRAM" 22:1"TYPE THE NUMBER OF YOUR CHOICE OR PRESS":" TO PRINT SCHEDULE SO FAR :"; A$:(A$)13520*116:A$(I,J)0A$(I,J)""A$(I,J)" "9J,IJD$"CLOSE"F$U::2v&I17:I5:(W$(I),3);:::I139:"_";:::DI116NI7VI6:610XI6VI6bV;:V10ĺ" ";lJ17vJ1ĺ" "; J5:(A$(J,I)"Y"A$"N"391%A$"N"F1:690X15:1:"ENTER A NAME FOR THE SCHEDULE FILE :"16:1:">>";:V16:HT4:LN20:LA65:HA90:1850GO$""ė:390F$GO$".EC":690:12:15:"READING..."D$"OPEN"F$D$"READ"F$ I17:JUT:11:"DO YOU WANT TO USE A PREVIOUSLY CREATED"::10:"SCHEDULE FILE (Y/N)? ";r^A$:A$"Y"A$"N"350hA$"N"390r:12:13:"READING DISK...":2230:F$""450|340:12:"DO YOU WANT THIS SCHEDULE SAVED (Y/N)?";A$:A$ѝV11:HT1:2080:DT$WR$Q13:1:"ENTER DATE FOR THE FOLLOWING SUNDAY :"x"V14::"MM/DD/YY"::2080:ED$WR$,:7:"MONDAY "DT$" THROUGH SUNDAY "ED$610:3:"ARE THESE THE CORRECT DATES (Y/N) ?";:A$:A$"Y"A$"N"310@A$"N"250 WORK DISK FOR YOU.":"ANY BLANK, APPLE-FORMATTED DISK WILL"i " SUFFICE FOR THIS PURPOSE."s 2060 :4:"YOUR SCHEDULE WILL RUN FROM MONDAY"::" THROUGH THE FOLLOWING SUNDAY."10:"ENTER MONDAY'S DATE :"::"MM/DD/YY": ACCESS ONE OF THE HOURS OF THE DAY,":"YOU TYPE THE NUMBER AT THE LEFT OF THE" "SCREEN WHICH CORRESPONDS TO THE HOUR OF":"THE DAY IN THE NEXT COLUMN OF NUMBERS." 2060A "IF YOU DESIRE, THIS PROGRAM WILL SAVE":"YOUR SCHEDULE ON A DAY BY DAY AND TYPE IN THE"{ "IMPORTANT TIMES OF THE DAY YOU HAVE TO":"REMEMBER FOR EACH DAY OF THE WEEK." 2060 "THE HOURS OF THE DAY START AT 7 O'CLOCK":"IN THE MORNING AND END AT 10 O'CLOCK IN" "THE EVENING.":S "TOGRAM WHICH WILL":"RECORD A SCHEDULE FOR ONE WEEK." x"IT WAS DEVISED TO HELP YOU KEEP TRACK":"OF THE IMPORTANT EVENTS THAT YOU HAVE" "INCORPORATED INTO YOUR BUSY WEEK.": "IT IS VERY SIMPLE TO USE. ALL YOU DO IS":"GO ALONG ***";:J15:X(16336):J,II <A$"*** ELECTRONIC CALENDAR ***":I16 F9:1:J1I:" ";:J:A$"";:J15:X(16336):J,I P13:5:"DO YOU NEED INSTRUCTIONS (Y/N)? ";:A$ ZA$"N"A$"Y"80 dA$"N"250< n:"THIS IS A SCHEDULING PRO  38144 1670+I17:W$(I):MBU38144:FI768:RWFI8:ER78gIFIFI25:V:I,V::12:1:"INSERT YOUR DATA DISK INTO THE DRIVE NOW":2060A$(8,20),NM$(22):D$(4) 2:I29:I1:1:868:I:1:"*** ELECTRONIC CALENDAR           3:"NO FILES FOUND":2060:V$ I1NF:I:1:(I64)". "(NM$(I),(NM$(I))(PX$)):$ 23:1:"TYPE A LETTER (A-"(NF64)") OR ESC TO ABORT."$ 24:1:">";:A$:(A$"A"A$(NF64))A$(27)2570$ A$(27)ė:12:15:"ABORTED...":2060:% F23:1:"TYPE A LETTER (A-"(NF64)") OR ESC TO ABORT."q# 24:1:">";:A$:(A$"A"A$(NF64))A$(27)2570# A$(27)ė:12:15:"ABORTED...":2060:# F$NM$((A$)64):V)DM$# I# NT0TRNT:SENS:2300# :F$""$ NF0Ģ12:1160JI34:2470$" DM$DM$((J))+" JH" (DM$,(PX$))PX$2510T" NFNF1d" NM$(NF)DM$k" I" NT0TRNT:SENS:2300" :F$""" NF0Ģ12:13:"NO FILES FOUND":2060:" I1NF:I:1:(I64)". "(NM$(I),(NM$(I))(PX$)):7# 8,LO(IO9)256'! IO12,CM:IO3,VO/!$ RWC!. 72,0:IO3,255Y!8 (ER)NF0:2530s!V NT(BU1):NS(BU2)!` IBU11BU22135!j (I)2552510!t (I)0NS0:NT0:2510!~ NF22(I2)02510! DM$"":JI3I34" (J)160(J1)0:II1:I(GO$)2110( V:HT:WR$. O V:HT::"MM/DD/YY"::2080 NF0:PX$"":X$".EC":I1(X$):PX$PX$(((X$,I,1))128): FI:IO(78)(79)256 VO0 TR17:SE15 CM1:LOBU  IO4,TR:IO5,SE! IO9,LO256:IO32220RI(GO$)2110%\A$""5fSL%32220cpD2WR$WR$A$:D0:II1:I(GO$)2110zD1SL%1WR$"0"WR$A$:D0:II1:I(GO$)2110D0A$""WR$WR$"00"A$:II1:I(GO$)2110 D1WR$(WR$,(WR$)1)"0"(WR$,1)A$:D169,1,133,78,96,169,64,133,61,169,32,133,67,169,0,133,60,133,66,169,95,133,63,169,255,133,62,32,44,254,96  LN8:LA47:HA57:1850*GO$""(GO$)522204SL%0:D0:I1:WR$"">A$(GO$,I,1):A$"/"SL%SL%1:2150HDD1:WR$WR$A$:II1:D:"LOADING...."!D$"RUN MENU"\ 24:7:"PRESS ANY KEY TO CONTINUE:";:49168,0:A$:: "MONDAY ","TUESDAY ","WEDNESDAY","THURSDAY ","FRIDAY ","SATURDAY ","SUNDAY "j 32,227,3,133,79,132,78,96,32,227,3,32,217,3,176,5,169,0,133,78,96,""RR1GO$(GO$,RR1)(RRRR1@V:HT:GO$" "(8);J1860~:12:"ARE YOU SURE YOU WANT TO QUIT (Y/N)? ";A$:A$"N"A$"Y"2000A$"N"690:12:"INSERT YOUR MASTER DISK INTO THE DRIVE.":20601990:12:15A$"Y"2020:1050"ERROR #"E" AT LINE "E1:L:V:HT:GO$"":RR0UDZZ$iN(ZZ$)131930X(ZZ$)8RR01940b((ZZ$)LA(ZZ$)HA)ZZ$","ZZ$":"1860lRRLN1860vRRRR1:ZZ$;:GO$GO$ZZ$1860:RR1GO$256E41730L:12:5:"YOUR DISK IS WRITE-PROTECTED.":2060:690[E81770:12:" I/O ERROR - CHECK YOUR DISK DRIVE.":2060:690E2551840:12:"ARE YOU SURE YOU WANT TO QUIT (Y/N)? ";A$:A$"N"A$"Y"1790  I110(95);I+(124);2JB:D$"PR#0"YMMMM1:MM01170b690mF1ı:12:15:"WRITING...",D$"OPEN"F$6D$"WRITE"F$@I17:J116:A$(I,J):J,IhD$"CLOSE"F$:E(222)E1(218)(219)(H)" ";H!K116-" ";8 J17DI110P(95);W(Id2(124);k<JsF:PK7ĺK6;1(K610));ZK6ĺK6;1(K610));dI17nA$(I,K);11(A$(I,K)));xIK" ";J17"1150A$"N"690[:12:"SET THE PAPER, PRESS ANY KEY TO START":A$::D$"PR#1"::25)"W E E K L Y S C H E D U L E"::20:"FOR THE WEEK "DT$" THROUGH "ED$::" ";:I177:"_";:I::" ";H17W$DO NOT SAVE DATA TO THIS DISK."*$O7:55.O20400[8OA$"PLEASE FORMAT A WORK DISK AT"eBO9:6pLO20400VOA$"THE MAIN MENU."`O11:13jO20400tOA$"PRESS ANY KEY TO CONTINUE."~O19:8:20400O19:35:A$OO - SUBROUTINE T%NA$"WE STRONGLY SUGGEST THAT YOU"0N10:6;N20400_NA$"MAKE A BACKUP COPY OF THIS"jN12:7uN20400NA$"DISKETTE"N14:15N20400NA$"PRESS ANY KEY TO CONTINUE."N19:8N20400N19:35OA$O20010 OA$"F THE HOUR YOU WISH"D"OR PRESS TO RETURN TO THE MENU";Z&BE$:BE$""5380g0B(BE$)|:B7BB6:5710DB6BB6NB1B165540XCB6:B6CB6bBB$(A);" AT ";C;:B6ĺ" PM ":5750lv" XXXXXXXXXXXX"A$(5790A05200651033:18::BB$(A):?I116TEI6:I6EI6jEAE:I12EAI6I4:10:EA;18);E;I6ĺ21);"PM";24);A$(A,I);4:3::"TYPE":13:4::"FOR"::21:"TYPE THE NUMBER O"6-SATURDAY"!T:4)"7-SUNDAY"K^:4)"8-DONE ENTERING DATA FOR WEEK"jc:4)"9-QUIT THE PROGRAM"phr"TYPE THE NUMBER OF YOUR CHOICE":"OR HIT TO RETURN TO THE SUMMARY";|AA$:AA$""5200A(AA$)A9İ63000A8:"PRESS FOR MENU":AN$s "MONDAY","TUESDAY","WEDNESDAY","THURSDAY","FRIDAY","SATURDAY","SUNDAY"}6510::4)"1-MONDAY"":4);"2-TUESDAY",:4)"3-WEDNESDAY"6:4)"4-THURSDAY"@:4)"5-FRIDAY" J:4)LL SPACES<:$FD$;"CLOSE";Z$0P:6510<Z:2);GdI17]n(BB$(I),3);2);ex:{I139:"=";::I116I7VI6:5290I6VI6V;:V10ĺ1);J17J1ĺ2);(A$(J,I),3);$1:5380AC$"N"F1:5380b"WHAT WOULD YOU LIKE TO CALL YOUR FILE?":15:13:"";Z$:5380:6510:8:4:"READING ";Z$D$;"OPEN";Z$ D$;"READ";Z$I17J116(A$(I,J): DAY,WEEK 2(A$(I,J))1A$(I,J)" ": FI0:7:"DO YOU WANT TO USE A PREVIOUSLY CREATED SCHEDULE FILE ?":AB$::AB$"Y"Ą"WHAT IS THE NAME OF YOUR SCHEDULE FILE?";Z$:5110AB$"N"AB$"Y"ī5080:"WOULD YOU LIKE TO SAVE THE SCHEDULE?"::AC$:AC$"Y"AC$"N"ī5090:AC$"N"FTHRU SUNDAY ";EDT$B613:13:"(Y)ES OR (N)O";:RP$:RP$""ī310^@RP$"Y"RP$"N"ī310pJRP$"N"ī257 EDITED AND FIXED BY JAKE SCOTTGG$(13)D$(4)A$(8,20)I17BB$(I)IW$"WEEKLY SCHEDULE":651E ENTER THE SLASHES":13:28:"";DT$7(DT$)8ī257w13:"THE FOLLOWING SUNDAYS DATE MM/DD/YY":13:28:"";EDT$(EDT$)8ī257"DT$""DT$" ":EDT$""EDT$" ",:9:4:"ARE THESE THE DATES YOU WISH"::"MONDAY ";DT$;" R YOUR FIRST":"SCHEDULE. INSERT YOUR DATA DISK!":23:7::"PRESS ANY KEY TO CONTINUE";:d 756m :9 " THIS PROGRAM WORKS ON A MONDAY THRU"::" SUNDAY BASIS. PLEASE ENTER"$13:3:"MONDAYS DATE IN THE FORM MM/DD/YY"::" AND PLEASS YOU ENTER THE PROGRAM, PLACE" "YOUR DATA DISK INTO THE DRIVE. THE SAVE":" TO DISK OCCURS WITHIN THE PROGRAM AS ":"SOON AS YOU TELL PROGRAM YOUR FINISHED " " ADDING DATA TO YOUR WEEK!!! ": ::Z " YOU ARE NOW READY TO ENTEY IN THE NEXT COLUMN OF NUMBERS."N 23:7::"PRESS ANY KEY TO CONTINUE";:d RP$:RP$""ī185m :5 "THE PROGRAM ALSO SAVES YOUR SCHEDULE TO":"YOUR DATA DISK, ANY FORMATTED APPLE" "DISK WILL SUFFICE FOR THIS PURPOSE."::::"AS SOON AOF THE DAY START AT 7 O'CLOCK":"IN THE MORNING AND END AT 10 O'CLOCK IN"i " THE EVENING."o "TO ACCESS ONE OF THE HOURS OF THE DAY,":"YOU TYPE THE NUMBER AT THE LEFT OF THE "! "SCREEN WHICH CORRESPONDS TO THE HOUR OF":"THE DAOU HAVE"3 x" INCORPORATED INTO YOUR BUSY WEEK."9 } "IT IS VERY SIMPLE TO USE. ALL YOU DO IS":" GO ALONG DAY BY DAY AND TYPE IN THE " "IMPORTANT TIMES OF THE DAY YOU HAVE TO":" REMEMBER FOR EACH DAY OF THE WEEK." I "THE HOURS  10000> 12:06:"*** ELECTRONIC CALENDAR ***"QWS11500:WSWZd" THIS IS A SCHEDULING PROGRAM WHICH ":" WILL HANDLE A SCHEDULE FOR ONE WEEK."i n"IT WAS DEVISED TO HELP YOU KEEP TRACK":"OF THE IMPORTANT EVENTS THAT Y$NM$((A$)64):IC TO ABORT."\%Ģ24:1:">";:A$:(A$"A"A$(NF64))A$(27)50340%ĭA$(27)ė:12:15:"ABORTED...":3000:%F$NM$((A$)64):10ĉ::"HOLE";:I19:(8(3I)):I;::(38):"T":h&"PAR";:I19:(8(3I)):PA(I);::(38):TP:&I139:"-";:::&P1PL:(N$(P),9);:I19:(8(3I)):SC(P,I);:I:(38):TS(P)::P&:6:"PRESS ANY KEY FOR NEXT HOLE.":3'GH9(Z)1:D(Z):X(Z),Y(Z):2750:1940W%D(Z):X(Z),Y(Z):C(Z):X,Y:D(Z)D:X(Z)X:Y(Z)Y_%:Iz%ST(Z)ST(Z)1:Z:1760%F0:J1PL:FFIH(J)::FPL1760%Z1PL:SC(Z,GH)ST(Z):TS(Z)TS(Z)ST(Z):ST(Z)0:IH(Z)0:OG(Z)0:%GH920504&GH$:HP(HP$)!$HP0HP1001811P$HP(HP$)(40100):KHP23:(HP$)11780w$&D(Z)4:I1HP:XX(Z)XI:YY(Z)YI$01090$:X0X0$DX39X39$N1130$XY0Y0$bY39Y39$l(X)(X(Z))(Y)(Y(Z))1920"%vDX,Y):D0IKIH00:II)#C(Z):X(Z),Y(Z):II1100:II0#IT#"DIRECTION?(0-360 DEGREES)";ANk#AN1AN3601790#AN(AN23.1415928)360:XI(AN):YI(AN)#A1:B1:C%2(1):C%1A1#C%2(9):C%1B1 $"HOW HARD WILL YOU HIT IT?(0-100%)";HPEY TO CONTINUE.";:WB$:::1280~":12:I039:0,39I::0:I2021:20,21I::I1PL:IH(I)1ĠC(I):X(I),Y(I)::1760""Z1PL:IH(Z)1ĂZ:1950"C(Z):X(Z),Y(Z)":N$(Z);"'S PUTT.""I110"15:X(Z),Y(Z)#"";:II11 ROUGH":1700!RO(Z)0k!D(Z)13ĺN$(Z);" IS IN THE ";:"";:I014:X(16336)::"SANDTRAP!":880!F0:G1PL:FFOG(G)::FPLZPL:Z:1740!" ";::"PRESS ANY KEY TO CONTINUE.";:WB$::::Z:1280 "" ";::"PRESS ANY K):D8İ660" TD0RO(Z)RO(Z)1S ^D(Z):X(Z),Y(Z):C(Z):X,Y:X(Z)X:Y(Z)Y:Ia hD2İ980i rO0 |X(Z)X:Y(Z)Y:D(Z)D ST(Z)ST(Z)1:D(Z)4D(Z)15ĺN$(Z);" IS ON THE GREEN IN ";ST(Z);" STROKES":OG(Z)1:2120 !D(Z)0ĺN$(Z);" IS IN THE6:24:7:"PRESS ANY KEY TO CONTINUE.";:A$:936:<:936:12::"BE SURE YOUR MASTER DISK IS IN DRIVE 1!":23:7::"PRESS ANY KEY TO CONTINUE";::TE$:TE$""ī6300063000:936:12:14::"LOADING....":(4);"RUN MENU"IS IMPROPER, TRY AGAIN.":15000:50807(E25510500s(936:12:"ARE YOU SURE YOU WANT TO QUIT (Y/N)? ";:A$(A$"N"A$"Y"10401(A$"Y"63000()E610600)936:12:" THAT FILE IS NOT ON YOUR DATA DISK.":15000:5080h):"YOUR DISK IS WRITE-PROTECTED.":15000::t'E510200~'936:12:"THAT FILE IS NOT A WEEKLY SCHEDULE FILE":15000:5080'E810300'936:12:" I/O ERROR - CHECK YOUR DISK DRIVE.":15000:<(E1110400%F(936:12:"THAT FILE NAME 16<A$(I,J)F:*PD$;"CLOSE";Z$cZ:6510:10:" SCHEDULE NOW WRITTEN TO ";Z$::v_HG11500:HG|dn:L20((W$)2):L::W$::xAB$"N"ī5080'E(222)$'E1(218)(219)256.'E410100*8'936:12:5130::MU1E$;(65);E$;(78);E$;(34)<(13)KD$;"PR#0"U6520[fI18~T$;E$;G$;L$;E$;U$;IF1ıGG$;D$;"OPEN";Z$ D$;"DELETE";Z$D$;"OPEN";Z$D$;"WRITE";Z$(I172J1); JE$;U$63301$K7ĺ12)K6;D.K6ĺ12)K6;O8I18sBT$;E$;G$;L$;E$;U$;1);A$(I,K);zLIV`6330j6330tKuE$;G$;vT$;L$;wJ17xI114y(95);zI{ |(124);}J ~MXˍˍˍ1:"HOW MANY COPIES DO YOU WANT: ";ckV12:HT35:LN1:LA49:HA57:1850:MM(GO$):GO$""ė:1110t:9:" MAKE SURE YOUR PRINTER IS HOOKED INTO"::" SLOT #1 AND READY TO PRINT."~20:5:"DO YOU WISH TO CONTINUE (Y/N)? ";:A$:A$"N"A$"Y1:1:958:W$(A)" AT "C;:B6ĺ" PM ":10707$" AM"D.A$(A,B)823:1:">";:V23:HT3:LN10:HA95:LA32:1850:A$(A,B)GO$B970L1530:V12:3:"DO YOU WANT A PRINTED COPY (Y/N)? ";:A$:A$"N"A$"Y"1110`A$"N"690#j:12::"FOR"::F21:1:958:"TYPE THE NUMBER OF THE HOUR YOU WISH""OR PRESS FOR THE MENU :";:V22:HT35:LN2:LA48:HA57:1850GO$""690B(GO$)B7BB6:1030B6BB6B1B16970CB6:B6CB6,2A(A$)4A91990#>A811000HA0780HR:3:18::W$(A):T\I116ifEI6:I6EI6pEAE:I12EAI6zI4:10:EA;18);E;I6ĺ21);"PM";:920" AM";24);A$(A,I);4:3::"TYPE": 4:13:,3);:::20608:::I17::4:I": "W$(I):c:4:"8: DONE ENTERING DATA FOR WEEK":4:"9: QUIT THE PROGRAM" 22:1"TYPE THE NUMBER OF YOUR CHOICE OR PRESS":" TO PRINT SCHEDULE SO FAR :"; A$:(A$)13520*116:A$(I,J)0A$(I,J)""A$(I,J)" "9J,IJD$"CLOSE"F$U::2v&I17:I5:(W$(I),3);:::I139:"_";:::DI116NI7VI6:610XI6VI6bV;:V10ĺ" ";lJ17vJ1ĺ" "; J5:(A$(J,I)"Y"A$"N"391%A$"N"F1:690X15:1:"ENTER A NAME FOR THE SCHEDULE FILE :"16:1:">>";:V16:HT4:LN20:LA65:HA90:1850GO$""ė:390F$GO$".EC":690:12:15:"READING..."D$"OPEN"F$D$"READ"F$ I17:JUT:11:"DO YOU WANT TO USE A PREVIOUSLY CREATED"::10:"SCHEDULE FILE (Y/N)? ";r^A$:A$"Y"A$"N"350hA$"N"390r:12:13:"READING DISK...":2230:F$""450|340:12:"DO YOU WANT THIS SCHEDULE SAVED (Y/N)?";A$:A$ѝV11:HT1:2080:DT$WR$Q13:1:"ENTER DATE FOR THE FOLLOWING SUNDAY :"x"V14::"MM/DD/YY"::2080:ED$WR$,:7:"MONDAY "DT$" THROUGH SUNDAY "ED$610:3:"ARE THESE THE CORRECT DATES (Y/N) ?";:A$:A$"Y"A$"N"310@A$"N"250 WORK DISK FOR YOU.":"ANY BLANK, APPLE-FORMATTED DISK WILL"i " SUFFICE FOR THIS PURPOSE."s 2060 :4:"YOUR SCHEDULE WILL RUN FROM MONDAY"::" THROUGH THE FOLLOWING SUNDAY."10:"ENTER MONDAY'S DATE :"::"MM/DD/YY": ACCESS ONE OF THE HOURS OF THE DAY,":"YOU TYPE THE NUMBER AT THE LEFT OF THE" "SCREEN WHICH CORRESPONDS TO THE HOUR OF":"THE DAY IN THE NEXT COLUMN OF NUMBERS." 2060A "IF YOU DESIRE, THIS PROGRAM WILL SAVE":"YOUR SCHEDULE ON A DAY BY DAY AND TYPE IN THE"{ "IMPORTANT TIMES OF THE DAY YOU HAVE TO":"REMEMBER FOR EACH DAY OF THE WEEK." 2060 "THE HOURS OF THE DAY START AT 7 O'CLOCK":"IN THE MORNING AND END AT 10 O'CLOCK IN" "THE EVENING.":S "TOGRAM WHICH WILL":"RECORD A SCHEDULE FOR ONE WEEK." x"IT WAS DEVISED TO HELP YOU KEEP TRACK":"OF THE IMPORTANT EVENTS THAT YOU HAVE" "INCORPORATED INTO YOUR BUSY WEEK.": "IT IS VERY SIMPLE TO USE. ALL YOU DO IS":"GO ALONG ***";:J15:X(16336):J,II <A$"*** ELECTRONIC CALENDAR ***":I16 F9:1:J1I:" ";:J:A$"";:J15:X(16336):J,I P13:5:"DO YOU NEED INSTRUCTIONS (Y/N)? ";:A$ ZA$"N"A$"Y"80 dA$"N"250< n:"THIS IS A SCHEDULING PRO  38144 1670+I17:W$(I):MBU38144:FI768:RWFI8:ER78gIFIFI25:V:I,V::12:1:"INSERT YOUR DATA DISK INTO THE DRIVE NOW":2060A$(8,20),NM$(22):D$(4) 2:I29:I1:1:868:I:1:"*** ELECTRONIC CALENDAR      !!! ! ! ! ! !!!!!!IT THE PROGRAM"22:1q"TYPE THE NUMBER OF YOUR CHOICE OR PRESS":" TO PRINT SCHEDULE SO FAR :";AA$:(AA$)13740$A(AA$).A9İ28408A81360BA01030L2270V3:18::BB$(A):`I116jEI6:I6E,"SATURDAY ","SUNDAY ""2270(?::4)"1-MONDAY"V:4);"2-TUESDAY"n:4)"3-WEDNESDAY":4)"4-THURSDAY":4)"5-FRIDAY":4)"6-SATURDAY":4)"7-SUNDAY":4)"8-DONE ENTERING DATA FOR WEEK":4)"9-QU: I116#*I7VI6:83024I6VI6F>V;:V10ĺ1);QHJ17`RJ1ĺ2);x\J5:(A$(J,I),3);~fpz24:7::"PRESS ANY KEY TO CONTINUE.";:AN$ "MONDAY ","TUESDAY ","WEDNESDAY","THURSDAY ","FRIDAY "M DISK..."D$;"OPEN";Z$.D$;"READ";Z$9I17EJ116]A$(I,J): DAY,WEEK(A$(I,J))1A$(I,J)" ": FILL SPACES:D$;"CLOSE";Z$:2270:2);I17I5:(BB$(I),3); :I139:"=";: A NAME FOR THE SCHEDULE FILE :"T16:1:">>";:V16:HT4:LN20:LA65:HA90:2500fGOOD$""641xZ$GOOD$:920:12:" PUT YOUR DATA DISK INTO THE DRIVE NOW":24:" PRESS ANY KEY WHEN READY TO CONTINUE.";:A$ :2270:8:10:"READING FRO4:1:"ENTER A NAME FOR YOUR SCHEDULE FILE :"a\16:1:">>";:V16:HT4:LN20:LA65:HA90:2500s]GOOD$""600^Z$GOOD$_650l12:3:"CARE TO SAVE THIS SCHEDULE (Y/N)? ";:AC$:AC$"Y"AC$"N"620vAC$"N"F1:920 15:1:"ENTER& MARK PETERSONGG$(13))D$(4)7&A$(8,20)B0I17N:BB$(I)UDI[NXW$"ELECTRONIC CALENDAR":2270:7:"DO YOU WANT TO USE A PREVIOUSLY CREATED"::10:"SCHEDULE FILE (Y/N)? ";:A$YA$"Y"A$"N"600ZA$"N"620-[19) :";:V16:2500:YY(GOOD$)1YY1YY994507f:7:" MONDAY ";DT$;" THRU SUNDAY ";EDT$10:3:"ARE THESE THE CORRECT DATES (Y/N) ?";:RP$:RP$"Y"RP$"N"490RP$"Y"RP$"N"ī490RP$"N"ī340 EDITED BY JAKE SCOTT 410:EDT$(MM)"/"(DD)"/"(YY)-48012:1:868:"MONTH (1-12) :";:V12:HT16:LN2:LA48:HA57:2500:MM(GOOD$)MM1MM1241014:1:868:"DATE (1-31) :";:V14:2500:DD(GOOD$)DD1DD3141916:1:868:"YEAR (01-9TO CONTINUE";: J756" T:4z ^"YOUR SCHEDULE WILL RUN FROM MONDAY"::" THROUGH THE FOLLOWING SUNDAY." h10:"ENTER MONDAY'S DATE :" r410:DT$(MM)"/"(DD)"/"(YY) |10:1:"ENTER DATE FOR THE FOLLOWING SUNDAY :":958$ TO CONTINUE";:& RP$:RP$""ī280/ ":8 ,"IF YOU DESIRE, THIS PROGRAM WILL SAVE"::"YOUR SCHEDULE ON A WORK DISK FOR YOU."::"ANY BLANK, APPLE-FORMATTED DISK WILL": 6" SUFFICE FOR THIS PURPOSE." @23:8::"PRESS ANY KEY END AT 10 O'CLOCK IN"* "THE EVENING."0 "TO ACCESS ONE OF THE HOURS OF THE DAY,":"YOU TYPE THE NUMBER AT THE LEFT OF THE" "SCREEN WHICH CORRESPONDS TO THE HOUR OF":"THE DAY IN THE NEXT COLUMN OF NUMBERS." 23:7::"PRESS ANY KEY" a "IT IS VERY SIMPLE TO USE. ALL YOU DO IS":"GO ALONG DAY BY DAY AND TYPE IN THE" "IMPORTANT TIMES OF THE DAY YOU HAVE TO":"REMEMBER FOR EACH DAY OF THE WEEK."  "THE HOURS OF THE DAY START AT 7 O'CLOCK":"IN THE MORNING AND"N"A$"Y"100 xA$"N"340& x "THIS IS A SCHEDULING PROGRAM WHICH WILL":"RECORD A SCHEDULE FOR ONE WEEK."~ "IT WAS DEVISED TO HELP YOU KEEP TRACK":"OF THE IMPORTANT EVENTS THAT YOU HAVE" "INCORPORATED INTO YOUR BUSY WEEK.F 2300U(I29:I1:1:868:I:1:"*** ELECTRONIC CALENDAR ***";:I[2<A$"*** ELECTRONIC CALENDAR ***":I16F9:1:J1I:" ";:J:A$"";PIZWS11500:WSd13:5:"DO YOU NEED INSTRUCTIONS (Y/N)? ";:A$ nA$              23:1:"TYPE A LETTER (A-"(NF64)") OR ESC TO ABORT."q# 24:1:">";:A$:(A$"A"A$(NF64))A$(27)2570# A$(27)ė:12:15:"ABORTED...":2060:# F$NM$((A$)64):V160JI34:2470$" DM$DM$((J))+" JH" (DM$,(PX$))PX$2510T" NFNF1d" NM$(NF)DM$k" I" NT0TRNT:SENS:2300" :F$""" NF0Ģ12:13:"NO FILES FOUND":2060:" I1NF:I:1:(I64)". "(NM$(I),(NM$(I))(PX$)):7# 8,LO(IO9)256'! IO12,CM:IO3,VO/!$ RWC!. 72,0:IO3,255Y!8 (ER)NF0:2530s!V NT(BU1):NS(BU2)!` IBU11BU22135!j (I)2552510!t (I)0NS0:NT0:2510!~ NF22(I2)02510! DM$"":JI3I34" (J)160(J1)0:II1:I(GO$)2110( V:HT:WR$. O V:HT::"MM/DD/YY"::2080 NF0:PX$"":X$".EC":I1(X$):PX$PX$(((X$,I,1))128): FI:IO(78)(79)256 VO0 TR17:SE15 CM1:LOBU  IO4,TR:IO5,SE! IO9,LO256:IO32220RI(GO$)2110%\A$""5fSL%32220cpD2WR$WR$A$:D0:II1:I(GO$)2110zD1SL%1WR$"0"WR$A$:D0:II1:I(GO$)2110D0A$""WR$WR$"00"A$:II1:I(GO$)2110 D1WR$(WR$,(WR$)1)"0"(WR$,1)A$:D169,1,133,78,96,169,64,133,61,169,32,133,67,169,0,133,60,133,66,169,95,133,63,169,255,133,62,32,44,254,96  LN8:LA47:HA57:1850*GO$""(GO$)522204SL%0:D0:I1:WR$"">A$(GO$,I,1):A$"/"SL%SL%1:2150HDD1:WR$WR$A$:II1:D:"LOADING...."!D$"RUN MENU"\ 24:7:"PRESS ANY KEY TO CONTINUE:";:49168,0:A$:: "MONDAY ","TUESDAY ","WEDNESDAY","THURSDAY ","FRIDAY ","SATURDAY ","SUNDAY "j 32,227,3,133,79,132,78,96,32,227,3,32,217,3,176,5,169,0,133,78,96,""RR1GO$(GO$,RR1)(RRRR1@V:HT:GO$" "(8);J1860~:12:"ARE YOU SURE YOU WANT TO QUIT (Y/N)? ";A$:A$"N"A$"Y"2000A$"N"690:12:"INSERT YOUR MASTER DISK INTO THE DRIVE.":20601990:12:15A$"Y"2020:1050"ERROR #"E" AT LINE "E1:L:V:HT:GO$"":RR0UDZZ$iN(ZZ$)131930X(ZZ$)8RR01940b((ZZ$)LA(ZZ$)HA)ZZ$","ZZ$":"1860lRRLN1860vRRRR1:ZZ$;:GO$GO$ZZ$1860:RR1GO$256E41730L:12:5:"YOUR DISK IS WRITE-PROTECTED.":2060:690[E81770:12:" I/O ERROR - CHECK YOUR DISK DRIVE.":2060:690E2551840:12:"ARE YOU SURE YOU WANT TO QUIT (Y/N)? ";A$:A$"N"A$"Y"1790  I110(95);I+(124);2JB:D$"PR#0"YMMMM1:MM01170b690mF1ı:12:15:"WRITING...",D$"OPEN"F$6D$"WRITE"F$@I17:J116:A$(I,J):J,IhD$"CLOSE"F$:E(222)E1(218)(219)(H)" ";H!K116-" ";8 J17DI110P(95);W(Id2(124);k<JsF:PK7ĺK6;1(K610));ZK6ĺK6;1(K610));dI17nA$(I,K);11(A$(I,K)));xIK" ";J17"1150A$"N"690[:12:"SET THE PAPER, PRESS ANY KEY TO START":A$::D$"PR#1"::25)"W E E K L Y S C H E D U L E"::20:"FOR THE WEEK "DT$" THROUGH "ED$::" ";:I177:"_";:I::" ";H17W$HE HOUR YOU WISH"A"OR PRESS TO RETURN TO THE MENU";W&BE$:BE$""5380d0B(BE$)y:B7BB6:5710DB6BB6NB1B165540XCB6:B6CB6bBB$(A);" AT ";C;:B6ĺ" PM ":5750lv" XXXXXXXXXXXX"A$(A,B0A05200651003:18::BB$(A):<I116QEI6:I6EI6gEAE:I12EAI6I4:10:EA;18);E;I6ĺ21);"PM";24);A$(A,I);4:3::"TYPE":13:4::"FOR"::21:"TYPE THE NUMBER OF TSATURDAY"T:4)"7-SUNDAY"H^:4)"8-DONE ENTERING DATA FOR WEEK"gc:4)"9-QUIT THE PROGRAM"mhr"TYPE THE NUMBER OF YOUR CHOICE":"OR HIT TO RETURN TO THE SUMMARY";|AA$:AA$""5200A(AA$)A9İ63000A8579:"PRESS FOR MENU":AN$p "MONDAY","TUESDAY","WEDNESDAY","THURSDAY","FRIDAY","SATURDAY","SUNDAY"z6510::4)"1-MONDAY"":4);"2-TUESDAY",:4)"3-WEDNESDAY"6:4)"4-THURSDAY"@:4)"5-FRIDAY" J:4)"6-SPACES<:!FD$;"CLOSE";Z$-P:65109Z:2);DdI17Zn(BB$(I),3);2);bx:xI139:"=";::I116I7VI6:5290I6VI6V;:V10ĺ1);J17J1ĺ2);(A$(J,I),3);!5380AC$"N"F1:5380_"WHAT WOULD YOU LIKE TO CALL YOUR FILE?":15:13:"";Z$:5380:6510:8:4:"READING ";Z$D$;"OPEN";Z$ D$;"READ";Z$I17J116(A$(I,J): DAY,WEEK2(A$(I,J))1A$(I,J)" ": FILL 7:"DO YOU WANT TO USE A PREVIOUSLY CREATED SCHEDULE FILE ?":AB$::AB$"Y"Ą"WHAT IS THE NAME OF YOUR SCHEDULE FILE?";Z$:5110AB$"N"AB$"Y"ī5080:"WOULD YOU LIKE TO SAVE THE SCHEDULE?"::AC$:AC$"Y"AC$"N"ī5090:AC$"N"F1:U SUNDAY ";EDT$?613:13:"(Y)ES OR (N)O";:RP$:RP$""ī310[@RP$"Y"RP$"N"ī310mJRP$"N"ī257 EDITED AND FIXED BY JAKE SCOTTGG$(13)D$(4)A$(8,20)I17BB$(I)IW$"WEEKLY SCHEDULE":6510:NTER THE SLASHES":13:28:"";DT$4(DT$)8ī257t13:"THE FOLLOWING SUNDAYS DATE MM/DD/YY":13:28:"";EDT$(EDT$)8ī257"DT$""DT$" ":EDT$""EDT$" ",:9:4:"ARE THESE THE DATES YOU WISH"::"MONDAY ";DT$;" THROUR FIRST":"SCHEDULE. INSERT YOUR DATA DISK!":23:7::"PRESS ANY KEY TO CONTINUE";:a 756j :9 " THIS PROGRAM WORKS ON A MONDAY THRU"::" SUNDAY BASIS. PLEASE ENTER"!13:3:"MONDAYS DATE IN THE FORM MM/DD/YY"::" AND PLEASE EOU ENTER THE PROGRAM, PLACE" "YOUR DATA DISK INTO THE DRIVE. THE SAVE":" TO DISK OCCURS WITHIN THE PROGRAM AS ":"SOON AS YOU TELL PROGRAM YOUR FINISHED " " ADDING DATA TO YOUR WEEK!!! ": ::W " YOU ARE NOW READY TO ENTER YN THE NEXT COLUMN OF NUMBERS."K 23:7::"PRESS ANY KEY TO CONTINUE";:a RP$:RP$""ī185j :5 "THE PROGRAM ALSO SAVES YOUR SCHEDULE TO":"YOUR DATA DISK, ANY FORMATTED APPLE" "DISK WILL SUFFICE FOR THIS PURPOSE."::::"AS SOON AS YTHE DAY START AT 7 O'CLOCK":"IN THE MORNING AND END AT 10 O'CLOCK IN"f " THE EVENING."l "TO ACCESS ONE OF THE HOURS OF THE DAY,":"YOU TYPE THE NUMBER AT THE LEFT OF THE " "SCREEN WHICH CORRESPONDS TO THE HOUR OF":"THE DAY IHAVE"0 x" INCORPORATED INTO YOUR BUSY WEEK."6 } "IT IS VERY SIMPLE TO USE. ALL YOU DO IS":" GO ALONG DAY BY DAY AND TYPE IN THE " "IMPORTANT TIMES OF THE DAY YOU HAVE TO":" REMEMBER FOR EACH DAY OF THE WEEK." F "THE HOURS OF "