' +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@AЪЀРРՀРтЀРЀЀЀРԪԂЀР"***@(@*@*ШՂЪՂЀՊРՀ*A**A(P P AЀЀРЀЀЀРԪՊ"***@(@*@*РՂЪԀЀՂРՀ*A**A(P P AԠЪРЀЀЀЪРЀЀЀՂԪЀРՀժРՀԀЀՂР@A@ P AՠЪРЀЀЀРЀЀЀՊԪЀРՂժ:" INSERT YOUR DATA DISK INTO THE DRIVE.":24:" PRESS ANY KEY WHEN READY TO CONTINUE.";:A$y^:12:15:"WRITING..."fGG$;D$;"OPEN";Z$pD$;"DELETE";Z$zD$;"OPEN";Z$D$;"WRITE";Z$I17J116A$(I,J):D$;"CL6;1(K610));,:K6ĺK6;1(K610));7DI17UNA$(I,K);11(A$(I,K)));\XIbbiKu" ";J17I110(95);I (124);J :D$;"PR#0" MMMM1:MM01470920\F1ı]]:12E"5::20);"FOR THE WEEK ";DT$;" THROUGH ";EDT$Z"::" ";:I177:"_";:I::`rms" ";xH17BB$(H);2);HK116" ";J17I110(95);I(124);J:0K7ĺKKED INTO"::" SLOT #1 AND READY TO PRINT."|20: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 23:HT3:LN10:HA95:LA32:2500:A$(A,B)GOOD$7F1220AP2140Z: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?";MM0x:9:" MAKE SURE YOUR PRINTER IS HOOOR THE MENU :";:V22:HT35:LN2:LA48:HA57:2500CGOOD$""920RB(GOOD$)gB7BB6:1280vB6BB6B1B161220 CB6:B6CB621:1:958:BB$(A);" AT ";C;:B6ĺ" PM ":1320" AM"(A$(A,B)-223:1:">";:V6EI6tEAE:I12EAI67~I4:10:EA;18);E;RI6ĺ21);"PM";:1170^" AM";q24);A$(A,I);w4:3::"TYPE":4:13::"FOR"::21:1:958:"TYPE THE NUMBER OF THE HOUR YOU WISH"1"OR PRESS F ->??w- -3-M:w -N --66vIMM13M13M1s-N M13M13MN IM13M1n >7MqM1s  3MqJM1s 6vI---.-uJ--;.>.>.-u5rVw-->.>.>*-u7RMJ?)-n) nM13MI??MI-)3 >n-uNI  VI @@C?.- ??N -5?*m?7M13-u J)36Ms-N -3M13M13-u ---n?76--NJ--n?76NII)-6n)-uMM13M1??n n N )66-N I166s-N Mn7 n N 666--NMM17 n n NIM13m1n)n N )3M13M1s-N -3M?76NI )3M13 mN -3M?7 n N )3?RI NIIVI 5)3M5.M-Nm >6-N))sI.-u-->N-N>I> 3--v 5--.-6s-N -޻M:?n -N.--6NI))3M?M1s-N.)3M1?w *uIRR >RNIN---ޛ-- *NI.)s N J M13--n N -3M &7IIIN" 66N inR>i----nN> ? ? ?wqImmw M:N)N-)n mN 6R 6N5 6N --NN n:?w1VIJN7RI:((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPd +2<FWbisz#.9DOUgx&7EWhx $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?``` Q` Q``&` `` .``` 8``0` `L<``aai ``9`H8 h``` ````?aaaa(޽aa(`%ЀРЪԪԪՂԂՂЀ@ԪՂЪ d$H$d$H$d<2D ""IժЪՂЀԪՊЀԪՂԪԪՂԂՂЀԪՂЪ@'C8C'#8C#cRa<4<7xժЪՂЀԪՊЀԪՂՀՊЀ@xЀЪժՂЀЀЂՀՊЀpXD@`abX0KbcxՀANDARD INPUT ROUTINE! 9! VALUES SENT TO ROUTINE :?! i! V = VERTICAL POSITION OF CURSOR ! LN = MAXIMUM LENGTH OF STRING! HT = HORIZONTAL POSITION OF CURSOR! LASCII = LOWEST LEGAL ASCII VALUE RECOGNIZED"" HASCII = HIARE YOU SURE YOU WANT TO QUIT (Y/N)? ";:A$E t A$"N"A$"Y"2410V ~ A$"Y"2840\ k E62470 936:12:" THAT FILE IS NOT ON YOUR DATA DISK.":2480:600 24:7:"PRESS ANY KEY TO CONTINUE.";:A$:936: ! - ST936:12:"THAT FILE IS NOT A WEEKLY SCHEDULE FILE":2480:600M8 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:"OSE";Z$@:2270:10:" SCHEDULE NOW WRITTEN TO ";Z$::SHG11500:HGY|:L20((W$)2):L::W$::E(222) E1(218)(219)256 E42340 936:12:5:"YOUR DISK IS WRITE-PROTECTED.":2480:$ E52360>. ЀЪ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*ԪԪՂԂՂԪՂԪՂЪ ՂՂШЂЀ            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<ԪժժժժժժժժժժժժժժժՀԪժժժժժժժժժժժժժժժՀՂՂШԪԪՂԂՂpx4@`Rax<@GHPaaSyԪՂЪ $$H$$$H$$prD""I8ժЪՂЀԪՊЀԪՂ  A  0 `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  DING....": &6 (4);"RUN MENU"AЀЪ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*ԪԪՂԂՂԪՂԪՂЪ ՂՂШЂЀ                 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* ՂՂШЂЀ             120<:IA:230,32:16300,0:16297,0:16302,0:16304,0iF"BLOAD QUIT TITLE,A$2000"qZA$d::10:10:"INSERT NEW DISK AND"::11:"PRESS CTRL-RESET"n110x60 TARGETAYOUR DISK IS WRITE-PROTECTED.":15000:7t'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 IS <A$(I,J)F:'PD$;"CLOSE";Z$`Z:6510:10:" SCHEDULE NOW WRITTEN TO ";Z$::s_HG11500:HGydn:L20((W$)2):L::W$::xAB$"N"ī5080'E(222)$'E1(218)(219)256.'E410100'8'936:12:5:"30::MU.E$;(65);E$;(78);E$;(34)9(13)HD$;"PR#0"R6520XcI18{T$;E$;G$;L$;E$;U$;IF1ıGG$;D$;"OPEN";Z$ D$;"DELETE";Z$D$;"OPEN";Z$D$;"WRITE";Z$(I172J116840%" 28405%, :936:12:14::"LOADING....":J%6 (4);"RUN MENU"I0b% A$"N"ġ: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::"LOA868$ V:HT:868:GOOD$;'$ 2690_$ :12:"ARE YOU SURE YOU WANT TO QUIT (Y/N)? ";:A$y$ 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$""ī22690# RRLN2690X# 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:GHEST LEGAL ASCII VALUE RECOGNIZED*"( M"2 VALUE RETURNED FROM ROUTINES"< x"F GOOD$ = STRING INPUT BY USER.~"P "Z "d "n V:HT:GOOD$"""x RR0" ZZ$" (ZZ$)132770" (ZZ$)8RR02780# ((ZZ$)LA(ZZ$)HA)ZZ$","z#?????     ՠԠŠ" ӠàȠƠՠ Ӳ) àҠ ծԠѠ ŠΠàING..." JT(A)1ĺ"RUN"A$(A); TT(A)2ĺ"BRUN";A$(A)V ^T(A)3ĺ"EXEC";A$(A)h hER(222):20n r | DATA FOR DESCRIPTION  2  ELECTRONIC CALENDAR  TO KEEP TRACK OF YOUR BUSY WEEK DATA FOR PROGRAM NAMES1-APPLESOF:24:7:"PRESS ANY KEY TO CONTINUE.";:A$:K #:12:13:"FORMATTING..." )(4)"INIT HELLO,D1":(4)"DELETE HELLO,D1"::17:"DONE"::2:"INSERT MASTER DISK"; ,AN1ĺ" AND PRESS RETURN";:A$:A$: @AN2ĺ"RUN MENUQ" A::12:14:"LOAD5:1102 VTV1(X)2:HT15.4:A$"WHICH ONE?":110N A$:KB(A$):A$""240c KB1KBN2240 VTV1(X)2:HT25.5:A$(KB):110::AKB:: AN321 AN1300, ":::(4)"BRUN INITFDOS,A$8000":10:5:"INSERT BLANK DISK IN DRIVE ONE"UBLISHING 1985":110G :N:X1N:A$:VTV(X):HT20((A$)2):110: N:X1N:T(X),A$(X):VTV1(X):HT12.5:A$(X)") "A$(X):110: A$(X)") CREATE WORK DISK":VTV1(X):HT12.5:110:XX1  A$(X)") QUIT":VTV1(X):HT12.(X1)14.0(X1.2):H ZQ7:Q17.7:Q21:Q3100:Q499:Q532:Q632:Q764Q d150 nTQ5:HTHTQ:VTVTQ1:A(A$):Q3HT,VT:X8Q2A xC(X8)Q7T(T)Q5:X8X8Q2 C(X8)Q6ĔQ2:Q4:: C(X8)Q2T:Q4:: VT24:HT5:A$"_ GREEN VALLEY P 1012,020000" 360(B12:14:"LOADING..."["BLOAD MS2,A$4000"u(C(X8)((A$,X8,1))2230,32:3086:16300,0:16297,0:16302,0:16304,0:3:0:1:232,144:233,98:24576<QA0FV(1)10.6:V(2)11.8 PX05:V1     !!ЀР@A@ բЪРЀЀЀРЀЀЀՊԪЀРՂԪЀՂРՀ*ЀР@**@*A@ ЀРՀЀЀРЀЀЊЀРժЀՂЪРՀ*ЀР@**@*A@ ЀРՀЀРЪՂРъՀЊЀРժЀՂЪРՀՊЀР* @A@AЀРՀ@'РՂРтՀ               ЀР@A@ ԠЪРЀЀЀРЀЀЀՂԪЀРՀԪЀՂРՀ*ЀР@**@*A@ ЀРՀЀЀРЀЀЊЀРԪЀՂРՀ*ЀР@**@*A@ ЀРՀЀРՀРтՀЊЀРԪЀՂРՀԂЀР* @A@AЀРՀ::10:10:"INSERT NEW DISK AND"::11:"PRESS CTRL-RESET"D *42K 22X d TARGETEZ 50)POKE 214,255: POKE 2049,1 :::8:8:"THESE AND MANY MORE FINE"::10:"PROGRAMS CAN BE FOUND"::13:"AT YOUR NEARBY":A$::14:A$;" STORE""BLOAD QUIT TITLE,A$2000"230,32:16300,0:16297,0:16302,0:16304,0< (A$: č;::"."3K24:7:"PRESS TO CONTINUE.";fL100:KB13330:936:12:14:"WRITING..."::ER(222):ER:10:15:"COPY ABORTED"::5:"INSERT SOURCE DISK IN DRIVE ONE":100:(4);"PR#6" 4);"RUN MENU" 16368,0::5^@:8:5:"INSERT ";::"SOURCE";::" DISK IN DRIVE ";::"ONE";::"."A24:7:"PRESS TO CONTINUE.";B100:KB13320:936:12:14:"READING...":J:8:5:"INSERT ";::"TARGET";::" DISK IN DRIVE ";::"ONE":4358:(255)0200h :X04:320:DR,1:CMD,1:DH,143:XXTS(X)TE(X):TR,XX:4355:(255)0200: <330:DR,1:CMD,2:DH,143:XXTS(X)TE(X):TR,XX:4355:(255)0200:: F320:(4);"PR#6" c dKB(16384):KB128100 fKBKB128:"p 2320:DR,1:CMD,1:TR,0:DH,143:4355:(255)0200:TR,1:4355:(255)0200:TR,2:4358:(255)0200 4330:49386,0:49385,0:255,0 6INIT:(255)0200 8DR,1:CMD,2:TR,0:DH,143:4355:(255)0200:TR,1:4355:(255)0200:TR,2D,2:TR,0:DH,143:4355:(255)0200:TR,1:4355:(255)0200:TR,2:4358:(255)0200 X04:DR,1:CMD,1:DH,143:XXTS(X)TE(X):TR,XX:4355:(255)0200::DR,2:CMD,2:DH,143:XXTS(X)TE(X):TR,XX:4355:(255)0200:: ":(4)"PR#6";::".":24:7:"PRESS TO CONTINUE.";o 100:24:1:868:16:"COPYING";:49387,0:49385,0:255,0 INIT:(255)0200 DR,1:CMD,1:TR,0:DH,143:4355:(255)0200:TR,1:4355:(255)0200:TR,2:4358:(255)0200\ DR,2:CM347 :10:"ONE OR TWO DRIVES (1,2 OR 3 TO EXIT)? ";S A$:A(A$):A1A312_ A334f Ar A150 :8:5:"INSERT ";::"SOURCE";::" DISK IN DRIVE ";::"ONE";::"."0 :" INSERT ";::"DUPLICATE";::" DISK IN DRIVE ";::"TWO 50043520(4);"BLOAD MENUC,D1"INIT4352:DR47082:VOL47083:TR47084:SC47085:BC47091:CMD47092:ER47093:DL47088:DH47089:BC,0:VOL,254:DL,0 TS(0)3:TE(0)9:TS(1)10:TE(1)16:TS(2)17:TE(2)23:TS(3)24:TE(3)30:TS(4)31:TE(4)     :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)3 `` `@L LLAx>V鷩DP (E>D Z t+0x8x D- ܸDD#HX`8?E Vk *f???0xE   Hh D#-EEE8` D ܸx D - ܸx8`L ΍ЍΠՍժժժժժߪժ?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 תժתժժժժժתժժߪժժժ            OW MANY COPIES DO YOU WANT?";MM0(4);"PR#1"=E$(27)JG$(35)WU$(36)eL$(124)qT$(9)GG$;D$;"PR#1"(14);:E$;(69);:18)"WEEKLY SCHEDULE"" FOR THE WEEK ";DT$;" THRU ";EDT$ (15)(10); E$;65540XCB6:B6CB6DbBB$(A);" AT ";C;:B6ĺ" PM ":5750Jl_v" XXXXXXXXXXXX"lA$(A,B)(A$(A,B))12ĺ"MUST BE LESS THAN 13 CHARACTERS":573055406390" DO YOU WANT A PRINTED COPY?";AD$:AD$"N"6520" H6I4:10:EA;18);E;0I6ĺ21);"PM";C24);A$(A,I);I_4:3::"TYPE":e13:4::"FOR"::21:"PRESS TO RETURN TO THE MENU"&BE$:BE$""53800B(BE$):B7BB6:5710DB6BB6NB1B1h[r"TYPE THE NUMBER OF YOUR CHOICE PRESS TO RETURN TO THE SUMMARY"q|AA$:AA$""5200~A(AA$)A9İ63000A85790A0520065103:18::BB$(A):I116EI6:I6EI6EAE:I12EAI"FRIDAY","SATURDAY","SUNDAY"&6510,C::4)"1-MONDAY"Z":4);"2-TUESDAY"r,:4)"3-WEDNESDAY"6:4)"4-THURSDAY"@:4)"5-FRIDAY"J:4)"6-SATURDAY"T:4)"7-SUNDAY"^:4)"8-FINISH"c:4)"9-QUIT THE PROGRAM");2);x:$I139:"=";::0I116EI7VI6:5290TI6VI6hV;:V10ĺ1);sJ17J1ĺ2);(A$(J,I),3);:"PRESS FOR MENU":AN$ "MONDAY","TUESDAY","WEDNESDAY","THURSDAY",?";Z$:5380,:6510:8:4:"READING ";Z$>D$;"OPEN";Z$P D$;"READ";Z$[I17gJ116(A$(I,J): DAY,WEEK2(A$(I,J))1A$(I,J)" ": FILL SPACES<:FD$;"CLOSE";Z$P:6510Z:2);dI17n(BB$(I),3 SCHEDULE FILE ?":AB$::AB$"Y"Ą"WHAT IS THE NAME OF YOUR SCHEDULE FILE?";Z$:5110rAB$"N"AB$"Y"ī5080:"WOULD YOU LIKE TO SAVE THE SCHEDULE?"::AC$:AC$"Y"AC$"N"ī5090:AC$"N"F1:5380 " WHAT WOULD YOU LIKE TO CALL YOUR FILE8ī280;"DT$""DT$" ":EDT$""EDT$" "a EDITED AND FIXED BY JAKE SCOTToGG$(13){D$(4)A$(8,20)I17BB$(I)IUW$"WEEKLY SCHEDULE":6510:7:"DO YOU WANT TO USE A PREVIOUSLY CREATED " 756 :10l " THIS PROGRAM WORKS ON A MONDAY THRU":"SUNDAY BASIS. PLEASE ENTER MONDAYS DATE" 12:"IN THE FORM MM/DD/YY":12:13:"";DT$ (DT$)8ī270 13:"NOW THE FOLLOWING SUNDAYS DATE MM/DD/YY":13:32:"";EDT$(EDT$):" TO DISK OCCURS WITHIN THE PROGRAM AS ":"SOON AS YOU TELL PROGRAM YOUR FINISHED " " ADDING DATA TO YOUR WEEK!!! ": : " YOU ARE NOW READY TO ENTER YOUR FIRST":"SCHEDULE. INSERT YOUR DATA DISK AND HIT":" ANY KEY.E ": 756! :9w "THE PROGRAM ALSO SAVES YOUR SCHEDULE TO":"YOUR DATA DISK, ANY FORMATTED APPLE" "DISK WILL SUFFICE FOR THIS PURPOSE.":::"AS SOON AS YOU ENTER THE PROGRAM, PLACE"V "YOUR DATA DISK INTO THE DRIVE. THE SAVE" " 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 IN THE NEXT COLUMN OF NUMBERS." :::" HIT ANY KEY TO CONTINU 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 END AT 10 O'CLOCK IN" Zbd" THIS IS A SCHEDULING PROGRAM WHICH ":" WILL HANDLE A SCHEDULE FOR ONE WEEK."hin"IT WAS DEVISED TO HELP YOU KEEP TRACK":"OF THE IMPORTANT EVENTS THAT YOU HAVE"x" INCORPORATED INTO YOUR BUSY WEEK."}H "IT IS VERYī5080a:9:"ARE YOU SURE THAT YOU WANT TO QUIT??":AB$:AB$"N"AB$"Y"ī63000:AB$"N"ıtAB$"N"ī5190:(4);"RUN MENU")GG$;D$;"OPEN";Z$& D$;"DELETE";Z$8D$;"OPEN";Z$KD$;"WRITE";Z$V(I17b2J116o<A$(I,J)wF:PD$;"CLOSE";Z$Z:6510:10:" SCHEDULE NOW WRITTEN TO ";Z$::dn:L20((W$)2):L::W$::xAB$"N"E$;G$;vT$;L$;wJ17*xI1146y(95);=zID{ Q|(124);X}Ji~MX130::qMUE$;(65);E$;(78);E$;(34)(13)D$;"PR#0"6520I18T$;E$;G$;L$;E$;U$;IF1ıESS ANY KEY TO CONTINUE."+~O19:8:20400;O19:35:A$AOoO - SUBROUTINE TO PRINT TEXT WITH CLICKS.uO{OOI1(A$)O(A$,I,1);OX(16336)OIOOI55OASS ANY KEY TO CONTINUE."#N19:8.N20400:N19:35BOA$MO20010vOA$"DO NOT SAVE DATA TO THIS DISK."$O7:5.O204008OA$"PLEASE FORMAT A WORK DISK AT"BO9:6LO20400VOA$"THE MAIN MENU."`O11:13jO20400tOA$"PRF 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          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"(015,030,045,060,075,090,105,120.";J\E$;G$:MV1130:(34);::E$;U$Pf]pMU1MMuz" ";H17T$;4);BB$(H);HK116E$;G$;T$;L$;J17I114(95);I(124(124)T$(9)$GG$;D$;"PR#1"R(14);:E$;(69);:18)"WEEKLY SCHEDULE"" FOR THE WEEK ";DT$;" THRU ";EDT$ (15)(10); E$;(81);E$;(66);E$;(33);*E$;(84)14;4E$;(62);>(9);"134N";H(9);"O"$RE$;A,B)@(A$(A,B))12ĺ"MUST BE LESS THAN 13 CHARACTERS":5730J5540T6390:9:5:" DO YOU WANT A PRINTED COPY?";AD$:AD$"N"5390" HOW MANY COPIES DO YOU WANT?";MM(4);"PR#1"E$(27)G$(35)U$(36)L$40:I3901:SS.33:S17,SI::I010:0,26I::B%(1)6:T%24(1)13:G%1:T1%39:25306 B0:12:I3901:BB1:SB3:S,S15I::I011:13,39I::B%20((1)10):T%2(1)12:G%1:T1%39:2530/7 12:C0:I039:CC.49:C,C20I::VD%(1)39:10,30I::B%4(1)20:T%12(1)16:VD%(1)2:VD%1G%1:T1%39:2530]5d G%32:25305n 12:I019:I,I20I::I2039:19,39I::VD%(1)2:VD%1B%14(1)15:G%32:T%2(1)16:25305x B%(1)16:G%1:T1%39:T%21(1)16:2530]6 12:S:SS.33:S17,SI::I2939:0,26I::B%(1)6:T%24(1)13:G%32:25304F 12:C25:I025:CC.49:C,C14I::I2639:12,26I::VD%(1)2:VD%1B%4(1)21:T%27(1)10:G%32:25304P B%17(1)13:T1%39:T%14(1)10:G%1:2530M5Z 12:I01739:CC.49:C,C14I::VD%(1)2:VD%1B%9(14(1)):T%2(1)12:G%32:25303( B%(1)12:G%1:T1%39:T%12(1)10:253032 B0:12:I039:BB1:SB3:S,S15I::I2839:13,39I::B%20((1)10):T%2(1)12:G%32:2530K4< 12:S40:I039)21:G%32:2530C2 B%10(11(1)):G%1:T%9(1)21:T1%39:25302 12:I1326:0,18I::I1030:19,39I::VD%(1)2:VD%1B%9(17(1)):T%15(1)11:G%32:25302 B%5(1)17:G%1:T%12(1)16:T1%39:2530S3 C0:12:I016:0,14I::I :: 1 GH118:2520:1280q1 :I12(1)1:I2550,2570,2590,2610,2620,2630,2650,2670,2690,2700,2710,27301 1170:60:100:170:230:210:I1PL:X(I)T1%:Y(I)T%::1 300002 12:I732:0,39I::VD%(1)2:VD%1B%10(11(1)):T%9(1UMBER ON THE LIST!":2460"0 :I0 :13:"WHAT SIZE COURSE DO YOU WANT TO PLAY?"::12:"1) PITCH & PUTT":12:"2) SHORT COURSE":12:"3) REGULATION":12:"4) THE MONSTER"0 24:12:"ENTER A NUMBER :";:24:28:HL$:HL(HL$)0 HL4HL1ī25001" "f/ C(I)1C(I)14ĺ"SORRY, TRY A NUMBER ON THE LIST":2460/ GG(C(I))0:21:"SORRY, THAT COLOR IS TAKEN.":2460/ GG(C(I))10 C(I)1C(I)9C(I)3C(I)5C(I)11C(I)6C(I)14:21:" TRY A N(9) ORANGE":" (5) GREY (11) PINK":" (6) BLUE (14) AQUA":" (3) PURPLE"v. ::I1PL. 20:" WHAT COLOR BALL WILL ";N$(I);" USE ";:C$(I):C(I)(C$(I)))/ C(I)1C(I)14ĺ" ":0ĺ" TRY AGAIN PLEASE, 0-30 ONLY."::23906-j I_-t PA(18):SC(PL,18):HL(18),BALL$(14)-~ BALL$(1)"MAGENTA":BALL$(9)"ORANGE":BALL$(3)"PURPLE":BALL$(5)"GREY":BALL$(11)"PINK":BALL$(6)"BLUE":BALL$(14)"AQUA"f. :9::" (1) MAGENTA "NAME? ";N$(I):7:" "},V :9:" YOUR HANDICAP(0-30)? ";HC$(I):HC(I)(HC$(I)),[ HC(I)0HC(I)30ĺ" ":" "/-` HC(I)0HC(I)3251PA(GH)3&+W250W471PA(GH)4:+ W470PA(GH)5M+ TPTPPA(GH):_+ PB$"Y"2040j+$ 30000+. :5:8:"NUMBER OF PLAYERS (1-7)? ":5:33:PL$:+8 PL(PL$):(PL$)1(PL$)72350+B N$(PL):I1PL=,L :7:" PLAYER #";I"'S ";:*(DI)1ININ(DI)R*IX(Z)MV:XIV:YY(Z):CCIN:(C)1YY(Z)C:C0o*D(Z)D:DX,Y):D8İ660*D0RO(Z)RO(Z)1*D(Z):X(Z),Y(Z):C(Z):X,Y:X(Z)X:Y(Z)Y:I*YAPĠD:X,Y:C(Z):YAP:DX,Y):X,Y*D2İ980*O0 +WY(Z)H(2):KK15:FF15:X(Z)20F:Y(Z)20K:X(Z)39X(Z)39U)fX(Z)0X(Z)5(1)j)pY(Z)39Y(Z)39)zY(Z)0Y(Z)5(1)))VE(1)X(Z)DI:VE(2)AP:(VE(2)Y(Z))(VE(1)X(Z)2300)470:C0:C(Z):DD(Z):INAPY(Z):MX(Z)DI:M38M38K3:(8K):SC(P,I);:I:(38):TS(P)::P:K0Z(*:7::"PRESS ANY KEY FOR NEXT HOLE":m(4WB$:T1%0:GHx(>30000(HF1000(1):K(D(Z)15)(4DI):FKĺ"";N$(Z);"'S SHOT DROPPED IN!!":IH(Z)1(RD(Z):X(Z),Y(Z)=)\FX(Z)H(1):KA"9-QUIT THE PROGRAM"22:1v"TYPE THE NUMBER OF YOUR CHOICE OR PRESS":" TO PRINT SCHEDULE SO FAR :";AA$:(AA$)13740$A(AA$).A9İ28408A81360BA01030L2270V3:18::BB$(A):`I116jEI6:IY ","SATURDAY ","SUNDAY "'2270-D::4)"1-MONDAY"[:4);"2-TUESDAY"s:4)"3-WEDNESDAY":4)"4-THURSDAY":4)"5-FRIDAY":4)"6-SATURDAY":4)"7-SUNDAY":4)"8-DONE ENTERING DATA FOR WEEK":4)39:"=";:: I116-*I7VI6:830<4I6VI6P>V;:V10ĺ1);[HJ17jRJ1ĺ2);}\(A$(J,I),3);fpz24:7::"PRESS ANY KEY TO CONTINUE.";:AN$ "MONDAY ","TUESDAY ","WEDNESDAY","THURSDAY ","FRIDAREADING FROM DISK..."'D$;"OPEN";Z$9D$;"READ";Z$DI17PJ116hA$(I,J): DAY,WEEK(A$(I,J))1A$(I,J)" ": FILL SPACES:D$;"CLOSE";Z$:2270:2);I17(BB$(I),3);2); : I1:1:"ENTER A NAME FOR THE SCHEDULE FILE :"_16:1:">>";:V16:HT4:LN20:LA65:HA90:2500qGOOD$""641Z$GOOD$:920:12:" PUT YOUR DATA DISK INTO THE DRIVE NOW":24:" PRESS ANY KEY WHEN READY TO CONTINUE.";:A$:2270:8:10:"6208[14:1:"ENTER A NAME FOR YOUR SCHEDULE FILE :"l\16:1:">>";:V16:HT4:LN20:LA65:HA90:2500~]GOOD$""600^Z$GOOD$_650l12:3:"CARE TO SAVE THIS SCHEDULE (Y/N)? ";:AC$:AC$"Y"AC$"N"620vAC$"N"F1:920+15JAKE SCOTT & MARK PETERSON(GG$(13)4D$(4)B&A$(8,20)M0I17Y:BB$(I)`DIfNXW$"ELECTRONIC CALENDAR":2270:7:"DO YOU WANT TO USE A PREVIOUSLY CREATED"::10:"SCHEDULE FILE (Y/N)? ";:A$YA$"Y"A$"N"600ZA$"N"9) :";: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 AND FIXED BY 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.K 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$              @0ic i[ 0``! I&\NI222:I:1:" ";:39:" ";:IDfN23:1:I139:" ";:I:JpNUzN20010{NA$"WE STRONGLY SUGGEST THAT YOU"N10:6N20400NA$"MAKE A BACKUP COPY OF THIS"N12:7N20400NA$"DISKETTE"N14:15N20400NA$"PRET2-BINARY 3-TEXT FILE* 1L 1,ELECTRONIC CALENDAR_ 1,THE CASINOq1,RUSTY NAIL| N20090*N9364N3:3::I337:" ";:I>NI421:I:3:" ";:37:" ";:IHN21:3:I337:" ";:IRN1:1::I139:" ";: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 @0ic i[ 0``"