' +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-"("  ӠŠӠϰ@跻~!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 ~(`F d ֠Ġz# u`EMENTS FOR THE P,E,&M CYCLES (IN RADIANS).< PRNT$"Y"ĞR 15:16:"(DAYS)"X k PRNT$"Y"İ90y 22:1999 600::THIS GIVES CRITICAL DAYS FOR THE MONTH. PRNT$"Y"ĺ:90 1999 :5m!" I CAN NOW PLOT ANOTHER GRAPH FOR YOYS13.5(AP)8.PHYS:A1:9000:"P"::AbA039:IEA282PI:AEEAIE:EMOT13.5(AE)8EMOT:A1:9000:"E"::AA039:IMA332PI:AMMAIM:MENT13.5(AM)8MENT:A1:9000:"M"::A* : IP,IE, & IM ARE THE DAILY ANGLE INCR33))2PI#180:PRNT$"Y"ĩ255J:1:" BIO-GRAPH FOR ";NAME$;":"P" (GRAPH BEGINS ON ";PM;"/";PD;"/";PY;")"PRNT$"Y"Ğ13:(DAYTE$,PD,39)(DCNT$,PD,39)15:16:"(DAYS)"A039:IPA232PI:APPAIP:PHPO$::PRINTER OFF>w:"BIO-CYCLE GRAPHS COME NEXT.":1999{: NOTE:PA,EA,& MA ARE PHYSICAL,EMOTIONAL, AND MENTAL CYCLE STARTING ANGLES (FRACTIONAL) IN RADIANS.|PA(LIVE23(LIVE23))2PI}EA(LIVE28(LIVE28))2PI ~MA(LIVE33(LIVE;":" d:Ce9100:BD$DA$(DA)", "M$(BM)" "(BD)", "(BY)Zh"BIRTHDATE: ";BD$m:"PREDICTION DATE: ";PM;"/";PD;"/";PYn:"AS OF ";PM;"/";PD;"/";PY;","opLIVE(LIVE.5)r"YOU HAVE BEEN ALIVE FOR ";LIVE;" DAYS !"s:t"END CALCULATING !!".P"": : BEEP !! PQ" (PRETTY FAST, EH WOT ?)"`R10000:200S::" NOW FOR THE RESULTS:"T::10000UY200:PRNT$"Y"ĺPI$:255:: PRINTER "ON".^c:" BIORHYTHM CALCULATIONS FOR "::5:NAME$PUTER PROGRAM LOOKS LIKE THIS:":??6000,6030:PO$:1999@:" THE CALCULATION WILL BE ACCOMPLISHED BETWEEN THE TWO 'BEEP' SOUNDS:":A255B10000C"";: : BEEP!! E"BEGIN CALCULATING.":F5000G: JULIAN CALCULATIONOTWO DATES";"GIVEN, I FIRST CALCULATE THE NUMBER OF DAYS BETWEEN YOUR BIRTH DATE AND THE BE-GINNING DATE FOR YOUR BIO-GRAPH."<1999=7000:PR$"Y"ĺPI$:: THIS GIVES THE MAIN DETAILS OF THE JULIAN CALENDAR CALCULATION.%>:" THE ACTUAL COMUR BIO-GRAPH:"*':"MM,DD,YY:";PM,PD,PYb( : PM,PD,PY ARE THE PREDICTION MONTH, DAY, & YEAR.w,22:22:"GOOD."1:2ANS$"N"AN$""İ50003ANS$"N"ANS$""ī341 6" NOW, IT IS TIME FOR ME TO DO SOME CAL-CULATING. WORKING WITH THE E TYPE IN YOUR BIRTH DATE, SEPARATING MONTH, DAY, AND YEAR WITH COMMAS: (EXAMPLE: 2,22,32)"{:"MM,DD,YY:";BM,BD,BY : BM,BD,BY ARE FOR BIRTH MONTH,DAY, & YEAR.16:22:"THANK YOU."":" NEXT, TYPE IN THE BEGINNING DATE FOR YO T`  `ѥ΅ ΅ҥυө 0ХҠ ӕ "L 4i` F`ٚ .L 4 `$$L$Ն$L,L 8!$`L# ȱ0` 4 `O ɏ5OPLɏ Ι_LfP0Q@PPxA@QPa`qp`HP8εxh`ɅLLHxܥyݥPQLuƵPxLhQεyϱΠ L 4) ؘ ` uHɃLh` L``F`$ ܪȱ Lܤ`Ś25 a0 LJLJKH۰hЅѠȱ0@ȱHШhh0J L赟0LՓ0ܤ } ɑL赟L0ܤ } ɑL ` ` [ S oP YVPL6 ە LkLMNܕ`LΥΥLMLʥMː ʥ˰JυKL  8Mϕڥ۰եڅʥۅ , ` :L΄<Ȅ>=?`ʕ>?>`8M˕   , ` ăL: i@ &N&O ϕLz JKLυML LMJυKLˎ qL ȩ` 6 6P`JLKMLxL L6 L[L JLKMMLILLILLLLy 2L,PQ܅x݅yLÈ آ8ЕNЕKʵ˕{ TL~&&&ڥې څΈ` l 4Ȑ,` 40L 4Ȑ-` 4(L(n ă ărLa ?&0ΰ` ΔL 4΅` ȑ` l΅υLD L4 䎴xPiڄeΕPeϕxPȵxڰL# N ONi)OO"0g:" THE MONTH NUMBER IS TESTED TO SEE IF IT IS LESS THAN 3. IF SO, THEN THE YEARNUMBER IS DECREASED BY 1, AND 13 IS ADDED TO THE MONTH NUMBER."0l:" IF THE MONTH NUMBER IS GREATER THAN 2,THEN THE MONTH NUMBER IS SIMPLY IN-"1q"CREASEDKY, DUE TO THE ALTERNATING 30 & 31 DAYS IN THE MONTHS (ALSO, FEBRUARY IS MESSY, WITH ITS EXTRA DAY ADDED EVERY FOUR YEARS)."/^0b" THE PROGRAM WORKS BY ASSIGNING THE NUMBER 1 TO MARCH 1, 1700 (THIS MAKES MARCH 1 A 'BEGINNING-OF-THE-YEAR'!).M13.RM2MM1.: IN THE NEXT STEP, JD IS THE 'JULIAN DAY NUMBER', MEASURED FROM MARCH 1, 1700.Y AND M ARE YEAR AND MONTH NUMBERS, AND D IS THE DAY NUMBER..JD365.25Y(30.6M)D621049..X:/]" THIS CALCULATION IS A BIT TRICPD:MPM:YPY-6000D-PJD: JULIAN NUMBER FOR PREDICTION DATEj-LIVEPB:: LIVE = NO. DAYS LIVEDp--p: JULIAN CALCULATOR, CONTINUED.-zRMM:: ('RM'=REFER- ENCE MONTH USED IN ADJUSTINGFOR FEBRUARY.)-RM3YY1.RM3M",GPRNT$"Y"ĺPO$!,L1999:*,255],:24:6:"(PRESS 'RETURN' TO CONTINUE)";HOLD$c,,: JUNIAN-CALENDAR CALCULATIONS,BY500BYBY1900,PY500PYPY1900,DBD:MBM:YBY,6000,BJD:: JULIAN NUMBER FOR BIRTHDATE -DN PHYSICALLY-CRITICAL DAYS. DEPRESSION,";+."QUARRELS, AND FRUSTRATION ARE MORE LIKE-LY ON EMOTIONALLY-CRITICAL DAYS. SLOW- ";+8"NESS OF THE MIND, RESISTANCE TO NEW SIT-UATIONS, AND UNCLEAR THINKING ARE MORE",B"LIKELY ON MENTALLY-CRITICAL DAYS.E - BE- COME UNSTABLE - AND THIS RESULTS IN"L*"SO-CALLED CRITICAL DAYS."|*:" THESE 'CRITICAL DAYS' ARE, ACCORDING"*"TO THE THEORY, OUR WEAKEST AND MOST VUL-NERABLE TIMES. ACCIDENTS, CATCHING")+$"COLDS, AND BODILY HARM ARE MORE LIKELY OD EMOTIONAL ENERGIES RISE AND"m)"FALL IN RHYTHMIC CYCLES (23-DAY CYCLE FOR PHYSICAL, 28-DAY CYCLE FOR")"EMOTIONAL, AND 33-DAY CYCLE FOR MENTAL).";)PRNT$"Y"ĺ,*:" WHEN THESE CYCLES CROSS A ZERO 'BASE- LINE', THE FUNCTIONS CHANGE PHAS ***************************** ** GENERAL INFORMATION ** *****************************)" BIORHYTHMS ARE THOUGHT TO AFFECT BE- HAVIOR. IT IS ASSUMED THAT OUR PHYSICAL,MENTAL, ANE%;", ";'XX14:650&'X1:179'M%MSTARTX.5H'M%31697a'M%0Ģ15:M%;", ";s'XX332:675y'''L140:"-";:L:''PRNT$"Y"ĺPI$::" *** BIORHYTHMS *** ----------"( F CURRENT CYCLES EXISTING AS OF THE 1ST OF THE MONTH.f&xPSTARTPCY23:ESTARTECY28:MSTARTMCY33n&y17v&{X1&|P%PSTARTX.5&~P%31647&P%0Ģ11:P%;", ";&XX232:636&17:X1&E%ESTARTX.5&E%31670 'E%0Ģ13:"-";:L>%l"PHYSICAL":700:"EMOTIONAL":700:"MENTAL":700Y%m: PHYSICAL ON LINE 11%q(37)2:"(";NAME$;", THIS IS FOR ";M$(PM);", ";PY;".)"%vPCYCR23(CR23):ECYCR28(CR28):MCYCR33(CR33)5&w: LINE 630 GIVES THE FRACTIONAL PARTS O)" $ ::,$PRNT$"Y"PRNT$"YN"150002$$XCRITICALLIVEPD1:: THIS GIVES # DAYS LIVED AS OF THE BEGINNING OF THE MONTH.$]:4:8:"*** CRITICAL DAYS ***"$^12:"-------- ----"$b8:"CYCLE","APPROX. CRITICAL DATES"$c%gL140::" PLEASE TYPE IN THE NEW PREDICTION DATE"M#:" MM,DD,YY ? ";PM,PD,PYW#5000`#350}#:::" GOOD ENOUGH !"#::" THANK YOU. I ENJOYED IT ! "#::" (TYPE IN 'RUN' AND PRESS 'RETURN' TO"$:"START A NEW BIORHYTHM PROGRAM.":("" WHICH WILL IT BE ?";ANS$1":5C"ANS$"E"500S"ANS$"N"Ĭ"ANS$"R"PRNT$"YN":385:: REPEAT BIOGRAPHS W/O PRINTING."ANS$""ĺ(7);"(SORRY. I DIDN'T GET THAT.)":440"::" VERY WELL.""PRNT$"YN"PRNT$"Y"-#U (FOR A NEW PREDICTION DATE), OR A BRAND NEW PLOT MAY BE MADE FOR A NEW PERSON, OR WE MAY END RIGHT HERE."!::" (E = END)"::" (A = ANOTHER PLOT FOR YOU)"!:" (N = NEW PLOT FOR A NEW PERSON)":!" (R = REPEAT BIOGRAPHS & CRITICALS)"r9()$| F`@*#r9(Π)$ H`@*#r9(ͺ)$M`@*#r9()$ N`@*#r9()$O`@*#r9()$ R`@*#r9(ͺ)$S`;@r$\`@*#r9()$ a`@*#r9()$4`@*#r9()$9`@*#r9()$R;`@*#r9()$ <`@*#r9()$ >`@*#r9()$&@`@*#r9()$ C`@*#r9()$D`@*#r9()$ E`@*#ij k[ijk!i j ki j k ijkijk ij kij k&ijk0ijk:ij kDij kNij kXij kbij klij kvij k@ijk&Ji jkTi jk%^i jkhi jk$ri jk|i jk#ijkijk#i j ki j k"ijkijk"i j ki j k!ijkŮ)s\(tUVWY'x@p()\( M6UVW Y_LfUVWijkijkYf"ijk,ijk'6ijk64$':"YOU HAVE A CODE#";Y;" ERROR IN LINE#";EL:X" INITIALIZING ALL MONTH FILES ":::7:" PLEASE STAND BY "::5000::145'Y8ė:10:"PLEASE CHECK TO SEE THAT THE DISKETTE ISPROPERLY INSERTED IN THE DRIVE AND THE DOOR IS FULLY SHUT.";::"THEN PRESS 'RETURN'";::"";M$:'EL(218)(219)25;",L138":"DELETE ";MM$(R):"OPEN ";MM$(R);",L138":"WRITE ";MM$(R);",R0":YM(R):MFILE$MM$(R):YYM(R):5040II3:MM$(R)VHOLD$:I15150MM$(R)(G$,I,3)"CLOSE":5140DFLAGDFLAG:'ERROR GOT YOU HERE'Y(222)L'Y6ė::HAVE A REMINDER FOR ";MM$(R);".19";YM(R);",":"SHOULD I PURGE FILE CONTENTS AND UPDATE YEAR? (Y OR N)";:M$:M$"Y"Ğ:"REMINDER#";R;" WILL NOT BE ENTERED!":PAUSE12000:PAUSE::FLAGFLAG: PURGE&UPDATEVHOLD$MM$(R)o"OPEN ";MM$(R)5TH PL. *":"* GAINESVILLE, FLA. *":"* NOVEMBER, 1979 *"{6:"* *":"***********************"6:PO$************!5g+ NEW ADDRESS:<5h+ 7823 SW. 55TH PL.V5i+ GAINESVILLE,FLA.e5j+ 32601{5k+ JULY, 1979 +5l+*********************A6:PI$:"***********************":"* *":"* HOWIE MITCHELL *":"* 7823 SW.5U7(JU7))7.5)4#:$4'T0244'Z0750:Z=4'T:C4*^4+*********************e4 + y4+ PROGRAM BY:4 +4*+ HOWIE MITCHELL44+ 6027 RIDGE DRIVE4>+ BROOKMONT, MD.4H+ 200164R+ FEBRUARY, 19794\+ 5f+*********M12)(BY1900)(BY1801M12)(BY1800)3# (LINE #9112) ***************************** ** CORRECTION FOR DATES ** BEFORE 2/28/1900 ** *****************************4#DAYOFWEEK((J**************************** ** BIRTH DAY OF WEEK ! ** *****************************2#YBY:MBM:DBD:BM3YY1:MM132#BM2MM12#JULIAN(365.25Y)(30.6M)BD621049(3#JUJU(BY1901 BY ONE. THE QUANTITY 621049 IS SUBTRACTED FROM THE CALCULATION, SINCE THAT IS THE JULIAN DAY NUMBER FOR THE STARTING DATE (MARCH 1,1700.)"1v200011@1(#(37)12PRNT$"Y"ğ12#2# *(ң)F/?drGM6ccca(ՠŠǠ)_Qo.?%rPa(ɠԠ̠)GM6cca(Ԡ٠)_zca(ԧӠ٠šɠӠȠ͠ŠŠŮ٬ŠҠΠŠϠŠǠϠ)_^o.?%rPa()GM6cca(ĠȠ)a(ĠԠ)_a(̠)_\o.?%rPa(Σ)F/?drGM6ccca(ՠŠǠ)_\o.?%rPa$ q/?rqq8/? rr q?{\tca()F E()a()ca(ԠƠӠ)_ca()_0a(ԠȠΠϠϠĠ)_$a(Ϡנ٠)_%a(ϠȠ٠)_a(a()F/?drF/?(#rGM6cca()_Io.?%rPa()F/?dr(GM6cca(Š)_'&a(ΠԠҠ)_(:a(Ġ )_&la(ԠԠϠ)_6v`UVWYa(٠ĩ)_Ba(Šӧ̠٠Ǡ)a(٠ԩ)_a(ԠŠ٠ԩ)c)a(ϠҠҠŠ) M6#!a(Š٠Χ)_@a(Ԡ)_Po.?%rPƮƮƮԧӠ̠ɠҠҠĠŮΠŠՠǠϠԠš)_"a(ǠӠŠ)_>a(ϠĠΠԠ)a(ՠΧԠРש)_ `7$ 7a(ǠΠҊ)o.?%rà)_=q`7%a(ϠǠҠ)_2`$ a(ԠƠˠΠЧӠ)_A`$ o.?%rPa()ca(ؠ)_9o.?%rPa()ca(ؠ)_ja(!do.?%rPa()c_6no.?%rPa()c`;@r%a@*r_ xa(ˠƠԠ)_Go.?%rPa(٠Š)GM6cca(à)_Qo.?%rPa(ҠŠš)GM6cca(j/?r k/?(r_2`;@r$Hf/?r"4l/? rm/?r n/?(r_7<a(Ǡ)a(ՠĠŠ)_Fa(ԠϠŠ)_'Pa(̠ԠҠ)_/Zo.?%rPa()GM6c_Pa(ŬŠΠŠ)GM6cca(Š)?a(Ԡſ)oM6doM6doM6doM6d/a@Gd8.?)r.?(rre`o_ K_ a(ԠԠŠ)_(`;@r$Hf/?r"*i/? r_-`;@r%a(ˠŠԠĠ).`@9()%a(٠Ġ)_-`;@r%a(ˠŠԠĠ)3`@9()%a(ԠƠΠӠ)_a(Ǡ)_ L_ `7$ No.?%r\p/?ra()6Pb/?/rG\X/?rb/?rE()F/?r@+`Z$Pa(Ϡ)F/? r ]c`%Y[a(ԠĠ)_Rq`$a(ϠĠϠΠ)`%q6_ \ r   q   8rj` $ o\t_tUVWX bG=yq$ 8~r 8r8r8@9()r1~dNedOe]Ġ͠ҠP\/?r cP\/?ra()P)_.qqq6q`;@r$89UVW;@r`<@*rr<@*rr%Y`;@r$8\,$`$.qqq`;@r$.q8`$Bq qd_VB` $V`$`qqq[q/`q8rrY[wa()_4`;@r($ca(ϠȠҠŠ)_a(ؠ)_$@p@q\`$__]ԠҪI`$qo.?%rPa()ca(ؠ)$2 f`@*#r9()$p`@*#r9(Ϡ)$z`@*#r9()$`@*#r9()$\_]Š0qUVW;@r`<@*rr<@*rr$ `  <@*rr$q <@*(ՠԠԠĬՠŠԡ)_e( `7$ o.?%rPa(Ľ)F/?r8GM6cca(ȠҠϠ)_ 2 `7$ a(Šũ)_F `7$ cco.?%r'G a@Gd8.?)r.?(rre`c4K UVW,ɠӠҠŠŠΧԠŠӮ)G `%a(ΠɠӠĠɠĠϠˠؠӠϠ̮)A `%a(ŠħԠĠǠנΠɠӠǮ)! `%a(͠٠) `%q_8 `7$ a٠ĠΠȠ͠)_! `7$ @p()d2e_! `7$ @p()d2e?_6 `7$ @p()d2ea(Š)_1 `7$ a(ҠǠӠ)_ `7$ \ _J `7$ `%a(β$ o.?%rPa(ΠΠάǠ)GM6cca(٠)_# a(ǠŠ)_h `7$ o.?%rPa(Ž)F/?2rE(Ӯ)a(ԠΠΠŠӬŮ)_; `7$ a(a(ؠ) a(ؠ) a(ؠ) a() a(ؠ) a(ؠ) a(ؠ) a(ؠ) a(ؠ) cc_L `7$ o.?%rPa()GM6cca(έ)_g `7)`%a(Ƞ٠ȠǠ)q_H `7$ `7/?r$ a(ǠǠէŠ)q_? a(‡·LJ‡·LJهχՇ҇ŇćŇ)M6M6 `7$  a(ؠ) a(ؠ) $ a()GM6cca(ϠŠŠϠŠӿ)W `$ a(Ҡ)GM6cca(ŠŠĠɠŠԠŠӡ) `$  M6M6 `$ M6cc q_d `7$ `7%a(Ǡ#r9(Ҳ)$t Ik o.?%rPa()GM6cca(ǠϠǠ)_t a(Ҳՠ)_ | `7$ } o.?%rPL~ a(ҽ)G`%a()G`%a()G`%a()G^ `%a(Š)G`ŬԠӮ)c _H]ؠ\. a(Ԡ͠ɿҠſƠՠԠԠĠϠ٬ΠՠҠԡ)_P` `7$ a(ŠĠϠԠԠӠŠŠӠŠ٠ϠԠ)_2j `7$ `;@r$k `@*ȠԠҠҭ)a(ݮΠՠĠŠ)F a(ĠԠ̠ȠŠҿ)a(Ӡ̠Š)< c@p(İ)a()GUVWUVWdYa@*#rGY  c_V o.?%rPa(ΠӠΠ)GM6ca(î)a(ԠĠՠԿ)_9o.?%rPa(Π)F/?rGM6cc-a()a(ź)_; a(ؽٽнӽ)cUVWYu a(ҠŠӠΠΠҠ)a(ʮPa(Πš)GM6cca(ǠŠ)_>o.?%rPa(ĠҠ)G`%a()+`%a()q_1a(ǠĠǠĠî)_Ka(ǠĠǠĠ_N\o.?%rPa(Ӡ)F/?drcca(Ӡˠ)_@p()q_@p()q_sa(̠ԧӠ̠٠٠ҠՠϠ٬ԠէŠԠŠŠԠӠϠŠȠӠӮ)_Po.?%r*a(Š)_c4o.?%rPa(ŠҠ)GM6cca(Ԡ)a(Рǩ)_>>`;@r$Ha(ԠȠǬԠŠǡ)_Ha(ؠ)_)R`;@r$Ha(Ϡ٠)ӡ)odeLMQ+`$ a(ԠƠΠ)_ `;@r$_HUVW;@r`<@*rr%Y`;@r$ UVW;@r`<@*rr%Y3a(ϠԧӠϠĠԠ)E@*#rE()_' a(˺ϠȠŠ)_ٮٮ)Na(ĠƠէ̠٠Ԭɧ̠ŠՠԠ̠ΠӮ)_Sca(ӠŠŠǠĠӠȠ)a(ԠƩ)_)ca(ՠĠŠ)_*M6o P a(ŠŬɧ͠97:832,124:833,240:834,11:835,165:836,8:837,133:838,6:839,165:840,9:841,133:842,7:843,76:844,42:845,3:846,165:847,6:848,56:849,233:850,1:851,133:852,125:853,176:854,2:855,198:856,7:857,165:858,7:859,133:860,126:861,96:802,165:803,103:804,133:805,6:806,165:807,104:808,133:809,7:810,160:811,0:812,177:813,6:814,133:815,8:816,200:817,177:818,6:819,133:820,9:821,200:822,177:823,6:824,197:825,123:826,208:827,7\:828,200:829,177:830,6:831,12:773,201:774,222:775,32:776,177:777,0:778,201:779,197:780,240:781,3:782,32:783,201:784,222:785,32:786,177:787,0:788,32:789,103:790,221:791,32:792,82:793,231:794,165:795,80:796,133:797,123]:798,165:799,81:800,133:801,124ka()G[Xa]ŠӠ٠ԠƠӠ͠ŠՠŠΠӠͮΠՠĠԿa] ww]ŠҠê}] }]ΠԠ٪(}]Šɪk[\a(Π)G[!]a(àԠ)G[^a(Š)G[_a(Ԡ)G[`a(Ġ)G[ aa(ޠ)G[ba(Ҡ)G[ca(Ԡ)G[ da()G[ ea()G[fa()G[ga(Ġ)G[ha(įҠ)G[ia(Ҡ)G[ja(ԠԠ)G[F/?rG[|a(ң)F/?rG[}a(Σ)F/?rG[=~q/?ra@*#rE(Ψ)F/?rE()F/?rG[$a(ӠӠӠԠԠ )G[a( )G[&a(įҠĠĨΩ)F/?& rG[ Xa()G[ Ya()G[ Za()G[ [a()G[ra(ҽ¦)G[&sa(ŠƠ͠Ŭ)G[ ta(ԺԺź)G[ua(̠Π̠)G[.va(ԠŠ Ĩ)F/?drE()G[wa(ԠԠԠԠ)G[xa()G[ya( )F/?2rG[ za()G[{a(Π))G[ a()[5a(Π)F/? rE()F/?r E(Ԡ)F/?(rG[a()G[a()G[a( )F/?rG[a( )F/?rG[a(ԠӠ)G[ a()G[ a()G[pa(Š̬)G[qa(ԠҬ)G)G[#a(ΠԠŠҠ)G[%a(נРŠϭ)G[a(ȠŠ)G[a(Р)G[a(ͺ)G[a(ͺ)G[a(Π)G[a(Š)G[a(̠)G[ a()G[a(Π)F/?rE()F/?drE(Ԡ)F/?r[a()G[a()G[a(š)G[a(Ԡ)G[ a()G[a()G_/?r(a(Šͮ)G[a(͠Ҡ)G[a()G[a(٠Š͠)F/?rE(Π)G[Ta(Ơ)Gq/?ra@*#rE()Gq/?ra@*#rGa(Π)G[Va(Ҡ)Gq/?ra@*#rE()F/?rE(Ϡ)F/?rE(Р)F/? rG['a(̠)Gq/?ra@*#rG[a(Š)G[.a(a(ƠƠ)G[a(ΠΠ)G[a(͠)G[Oa(Ơ)Gq/?ra@*#rE()Gq/?ra@*#rE()G[a(ΠҠ)G[a(ƠŠӠŠ)G[!a(ƠԠԠԠΠ)G[@a(Ơ)Gq/?ra@*#rE()- UVW/?r a(ɠ)F/?rdE()GV UVW/?rd2e@ /?rq/?ra@*#rG`7/?r%a()GY c d2eY1 d6?ed6?ed6(?e]έƠ_"a(Ơ٠Π )G[W/? r a()F/?r GYa()c+& a(ĠȠ)a(ĠԠ) [ ]* d6?ed6?e]έΠӠ8 dNedOe]Ġ͠ҠΠ a(ˠ̠)c a(ɠ) a(ɠ Kd6?e M6o @p()! Pa(ҭӠӠ)& oP a(٠Š)c% @p() q/?r  ~4 d6ed7ed8ed9e]ԭƠ cD `7$& cUVYa(ɧ͠ǩ)o.?%r_.P `7$ a(ǠŠǠ)_'Z `7$ a(ԠԠơ)_^d o.?%rPa()GM6cca(ĠȠ)a(ĠԠ)_ N@"rC@"rC@"r deADING "f_p:"WHEN YOU ARRIVE HOME ENTER THIS DATA INTO THE PROGRAM VIA CHOICE #1."z:"AFTER YOU HAVE ENTERED ALL FOUR ENTRIES THE PROGRAM WILL CALCULATE MILES PER GALLON AND OTHER STATISTICS."y:"THEN YOU WILL BE ASKED IF THE DATAS OF GASOLINE FOR BOTH OF YOUR AUTOS."t*:"WHEN YOU GET GAS JUST KEEP TRACK OF THE FOLLOWING INFORMATION."4::10>" DATE OF PURCHASE "H10:" COST OF PURCHASE "R10:" NUMBER OF GALLONS "\10:" SPEEDOMETER RETCTG228036:C$;%:K24:"PRESS ANY KEY TO CONTINUE";SQ$Yc34,0l100 =================== INSTRUCTIONS  ===================:100:( " THIS PROGRAM WILL KEEP TRACK OF THE MILAGE AND COSTC) C::+NTG:2310:TG(C$)C NTT:2310:TT(C$)["NTC:2310:TC(C$)a&u0" TOTALS ";:16:TG;D28:TT;N35:TCX::b" AVERAGES ";lX0X1vNAM1X228023:C$;TG0TG1NĠ)Q. a(ϠȠƠǠĠŠٮ)G7 a(ӠĠĠǠ̠ϠǠ)G4 a(Ӡ٠ĠϠŠԠĠŠӮ) ] ] \p#pccS(Ҡөϩ)'z`%_`%\pcca(ˠլ)GDF a(ƠӠŠӠҠŠӮŠȠԠ)GP a(ՠԠ̮)Z \pd ]͠Π i a()-n a(ՠŠΠ)Ix a(ՠŠŠĠĠƠǠˮՠΧԠ)Ga(ӮԠϠŠŠĮ) \p ]  a(). a(ՠŠӠ)( ]@2 a(ՠŠàĠîՠŠӠ)GD< a(٠Ϡ٠ΠˠŠՠˠԮŠ٠@*Š)_*M6o P a(ŠŬɧ͠ӡ)odeLMQ+`$ a(ԠƠΠ)_ `;@r$_HUVW;@r`<@*rr%Y`;@r$ UVW;@r`<@*rr%Y3a(ϠԧӠϠĠԠ)ETUESDAY":16120'>"WEDNESDAY":16120>>"THURSDAY":16120S>"FRIDAY":16120j>"SATURDAY":16120w>10305:Z9>NNE2G((3(G1))5)F(F4)(F100)(F400)2`>VV((NN7(NN7))7.05)(NN7)f>v>"BORN ON ">VV0ĺ"SATURDAY">10305>VV16101,16102,16103,16104,16105,16106,16107>>"SUNDAY":16120>"MONDAY":16120>" IS THE DATE? (SUCH AS 25)";E1>E1E3016034<>16042f>"WHAT IS THE DATE? (SUCH AS 25) ";E>"WHAT IS THE YEAR? EXAMPLE--(1941)";F> GREGORIAN TO JULIAN> CALENDAR CHANGE,1582 A.D.>F1583F999916042>G13G14FF1:16048:16028$>DZ$"AUGUST"G8:16028D>DZ$"SEPTEMBER"G9:16034c>DZ$"OCTOBER"G10:16028>DZ$"NOVEMBER"G11:16034>DZ$"DECEMBER"G12:16028>16000>"WHAT IS THE DATE? (SUCH AS 25)";E>E1E3116028>16042>"WHATAT IS THE MONTH OF YOUR BIRTH ? EXAMPLE -- (DECEMBER)";DZ$_>DZ$"JANUARY"G13:16028>DZ$"FEBRUARY"G14:16040>DZ$"MARCH"G3:16028>DZ$"APRIL"G4:16034>DZ$"MAY"G5:16028>DZ$"JUNE"G6:16034>DZ$"JULY"G7:1013,76:1014,0:1015,3":/:150707:Z$L::::Z$:10305Z:2049,1:`:z: "THE DUMB COMPUTER": "DON'T GIVE UP,BOZO":v> SUBROUTINE BY R.POLKAw> MONDAY'S CHILDx> IS FULL OF GRACEy> NOV 1980@>:5:"WH)c/a(ӠĠΠάŠ)c/a(ĠӠΠ٠͠) `%c-a(ŠŠԠƠӮӠ)c0a(٠ӠĠϠŠǠƠ)c.a(ĠӬŠŭ)c/a*N@"'rNѲ@"'rN@"'rN@"'r"P a(Πՠ͠ŠҠϠ̠ϠǠ٠)c`%a() q/a()1Pa(٠ӠȠ٧Ӡ) `%c/a(ƠŠ٠ҠƠӮ)$5P a(٠ϠՠҠʠϠ)c`$`@9()$;a(Ҡ Ҡ)I`%a()`$\+M6oP a(٠ϠՠҠʠϠ)ccc0a(ӠԠ٠ŠŠҠՠŠ)c\>88r(r`$d_ȠŠŠ)ca(ŠǠӠ)ch\:8ij(r`$di_4lM6P a(٠ϠՠҠʠϠ)qc`${ vo_'{a(Ҡ٠)FE()FE()FcS(ԠٯΩ)&@c`@9()%M6`@:(Sa(ҠŠ)cXa()E@c(]a(ŠŠҠ)Fвc1ba()cDda(Š٠Ҡ)Fij`%a()`$f\6eM6oPa(Š٠)cccBfa(ՠŠҠΧӠŠ)&@0_)5qв³q óq ijq³ó-:M6Pa(àϠ͠РԠ ɠ̠ɠԠ)c?a(ҠŠ)cDa()E@c(Ia(ŠŠҠ)Fc1Na()c)ccc\688r(r`$d_7M6Pa(àϠ͠РԠ ɠ̠ɠԠ)`%[c q `@:()%Էq`@9()%_`Է$5a(ҠŠ)c !a@c(&S(ԠٯΩ)&@`@9()$c3+S(ԠӠqdq q Cqq q qq q 7`%a(٧ӠŠ)FE()FE()F`%a()Fa(Ҡ٠ŠҠ)I`%a()`%_\/M6oPa(٠ŠO` $^T\Y_@"^oPa(Ҡ٠)coP"Th` $wm\r_^%woPa(ҠҠ)|oP"T`'$\_wccq=qqqdɠƠŠà٠à̠)o*a(ҠŠŠҠӠ)Ia()\288r(r`$d _B@M6P a(Ġɠ̠٠à٠à̠Š)`%a()`%_ BqCo,Ea(٧ӠźҠȠ)JoP"TALLON *! P * *; Z * WRITTEN BY *U d * *o n * RICHARD LUNDEEN * x * * * 5/21/80 * * * ******************** TG=TOTAL GALS PURCHASED6 TT=TOTAL MILES DRIVENQ TC=TOTAL COST OF GASf AM=AVERAGE MPG AC=AVERAGE COST PER GAL X=RECORD NUMBER( TX=TOTAL RECORDS IN FILE2 ********************< * * F * MILES PER G=NEW MILAGE READING. GP=GALLONS PURCHASEDI CST=COST OF PURCHASEd MPG=MILES PER GALLONz TM=TOTAL MILAGE M=MILAGE THIS PERIOD GAL=GALLONS PURCHASED FN$=FILE NAME (TMPG OR CMPG) N$=NAME OF VEHICLE (CAR OR TRUCK)------------ C%N( R((NC%).05)5 R1%R10G$ R1%10ī2370_. C$(C%)"."(R1%)e8 wB C%C%1:R1%0L 2350V --------------` PUT NUMBER IN Nj ---------------t ~ D$=DATE OM=OLD MILAGE READINGS NMPRESS ANY KEY TO RETURN TO MENU...";:Q$1255:100N ERR IN MILAGEV:"THE OLD SPEEDOMETER READING IS GREATER THAN THE NEW ONE.":"PRESS RETURN TO START OVER ...";Q$90 ---------------- ROUNDOFF  ---- IS TO BE PLACED ON THE FILE. IF YOU DESIRE YOU MAY USE THIS OPTION JUST TO CHECK MILAGES WITHOUT UPDATING THE FILE.":"ONCE DATA HAS BEEN PLACED ON THE FILE YOU WILL BE RETURNED TO THE MENU AND YOU MAY REVIEW THE TOTAL RECORD."(:::"c//a(ĠŠĠƠŠĠٮ)[./a(ҠΠƠŠӠ)c+/a(ȠĠŠӠծ)c-/a(ĠӠϠՠҠ)c//a(Ơ٠ĠٮҠΠ)c./a(ϠנӠŠҠٮҠ̠ӠϠ)c%/a(ŠƠŠҠٮ)[./a(Ҡ٠Ġ٠)c0/a(ծŠĠӠϠՠҠ)c-/a(Ġ̠ΠǠ)c+/a(ŠӮҠŠӠ)c0a/a(ΠӠϠ̠Š٠Ơ)c/d/a(ĠӠĠӠŠҠͮ)[./a(ҠŠϠ٠)c//a(ծŠĠӠϠՠҠ)c//a(٠Ġ٠ϠŠŠƠ) /`%c,/a(٠ĠήՠŠ)c-9/a(̠ԠĠננϠ)c''a(ӠƠԬ٠Ġ)[0L'a(ՠȠϠĠŠĠŠƠŮ)c-O'a(ՠ٠Ġ(ŠҠŠ٠ƠŠŭ)c&a(ԠĠΠƠŠӮ)c`$d _%'M6P a(ĠƠ)Q'a(ϠǠҠϠ)[,$'a(ՠȠϠĠĠԠӮ)c,''a(ՠ٠ŠӠƠ)c0<4a(ԠϠĠ͠ȠŠ)c/?4a(ԠӮΠŠ٠) @4`%c)B4a(ՠŬԠ٠Ϡ)c(E4a(ԬԠϠϠ)c.H4a(ҠӠ̠Šٮ)[/6a(٠ՠРĠՠˠϠŠԠΠ) 4`%c4a(ĠՠҮ)[-04a(ȠӠĠŠӠ)c.34a(ҠŮŠӠŠҭ)c-64a(ŠƠҠҮҠӠ)c*94a(٠ĠΠĠ)٠)c/ 4a(ӠϠŠȠҠӬ)c/4a(ӠĠŠӮ)c/4a(ŠӠՠĠՠ)c04a(ϠŠŠ٠ҠΠ)c,4a(Ơή٠ӠΠ)c/4a(ĠĠ̠)c03a(ҠΠӠŠΠ̠)c+3a(̠ӮҠ)c,3a(Ġ̠ĠԠӠ)c-3a(ԠĠՠϠŠ٠)c3a(٠Ӯ)[.4a(ՠŠŠӠƠ)c)3a(ՠӠՠ̠Ҭ)c)3a(ҬҠĠƠӮ)[*3a(٠ŬՠŠ̠)c-3a(̮ŠĠΠĠ)c/3a(٠ΠϠՠҠԠĠ) 3`%c.3a(ՠŠ٠Ġ٬)c/3a(٠ΠŠàŬ)c/3a(Ӡ̮ՠŠР)c/3a(ҠŠӠĠàȠՠ) 3`%c,3a(٠ǠŠҠҮ)c.3a(ŠӠȠҠƠӮ)c03a(ՠĠ̠Π٠Π)c.3a(Ġ̠ӠŠĬȠ)c&3a(ǬǠҠΠ)c3a(ԠĮ)[03a(ՠŠŠҠƠŠӠ)c.3a(ȠӮ%z3a(ϠŠĠŠ®)[03a(ՠŠˠĠŠ٠Ŭ)c/3a(̠ƠԬ͠Ġٮ) 3`%c+3a(ӠĠŠĠ͠)c)3a(ҠȭԮՠŠ)c03a(̠ĠΠŮ)c/k3a(ՠŠĠҠҠŠƠ)c.n3a(٠ǠԬ̠Ġ̮)c-q3a(ՠΠŠŠĠ)c-t3a(͠٠ΠԠĠ)c/w3a(ĠŠήՠŠŠ) x3`%c*L3a(ŠŠٮՠ)c*O3a(ŠĠǬ)c.R3a(ӠٮՠԠӠ)c/U3a(٠ŠĠϠԠ٠ϠȮ) V3`%cX3a(Ӡ٠Ϡծ)[0h3ca(ՠŠŠҠƠҠ*3a(٠ϠŠƭԠƠ)c-3a(ĠӮ)[/@3a(ՠŠŠԬŠŠƠƭ) A3`%c-C3a(ήՠŠŠ٠)c,F3a(ٮ٠ӠŠƠ)c*I3a(ǠӠĠՠŠŠ)cŠŠҮŠӠƠ)c+3a(ŠӠΠӠՠ)c,3a(٠٠ǠԠŠӠ)c-!3a(ӮՠŠŬǬ)c-$3a(ĠŠƠӮՠŠ)c+'3a(̠ŠԠϠŠ)c-̠ĠŠĠӠ)c02a(ŠӠϠŠҠ)c.2a(ͮՠŠӠĠ)c,2a(ŠٮՠŠ٠)c+2a(ŠŠŠՠŠ)c3a(Ǡٮ)[.3a(ՠa(ĠӠϠՠҠŬŬ)c-N0a(ĠŠϠӮ٬)c.Q0a(Ŭ̠ŠĠ)c.T0a(ĠԠРŠҠӮ)[12ca(ՠŠŠҬŠҮՠ) 2`%c.2a(Ӡ)c0#0a(ծŠĠӠϠՠҠ)c/&0a(ĠήӠ̠ˠ)c-)0a(ԠĠΠŠ٠Ԯ)c.,0a(̠ӠϠŠҠĠٮ)[/H0a(ҠΠӠծ)c0K0Ԡ٠ϠŮ)[0/a(ҠǠĠ٠)c./a(ծӠˠϠՠҠά)c(/a(ҬΠĠ)c+0a(ͮҠŠӠϠŠ)c$0a(ҠƠӠĠӮ)[+ 0a(ҠҠĠ!?a(ӠȠŠ)c?a()c?a()[!Ӡ)[p?a(Ԡ)cs?a(Π)cv?a()[?a(̠)c?a(Š)c?a()c?a()[?a(٠)c?a(Ҡ)c?a(٠)[?a(̠)cc>a()c>a(̠Š)[>a()c>a()c>a()c?a()[ ?a()c#?a(Ǡ)c&?a(Ǡ)[H?a()cK?a()cN?a()cQ?a(ǠȠԠŬ)c/a()c>a(ĠƠ)c>a(Ҡ)c!>a(ΠŠ)[>a()c >a(Ġ٠)ǠӮ)[+;a(̠ӬàӬ)c*;a(̠ŬӬӬ)c!;a(ĠǠŠŮ)[+;a(נӬ٠ǬǬ)c.;a(ŠӬΠ̬)c;a(٠ˮ)[,;a(Ǯ)[/`;a(Ŭ̬ά)c-c;a(ˬȬǬ)cf;a(ĠӮ)[/;a(ŠŬ٬Ӭ)c/;a(Ӭ̠ӬĠ٭);a(ɬǠԠӠӬ)c!:a(ĠǠΠŠŮ)[0;a(ӠǠȠŬӬ)c.;a(ԬԬάĠ)c;a(٠ǠŮ)[.8;a(ĠˠӬΠˬ)c-;;a(Ǡ٬Ӡ̠Š)c.$8a(ӮՠĠ٠ŠԮ)[0:a(̠ӬԠˬ)c/:a( ˬנӠҠӬ)c$:a(ǬĠŠˮ)[0:a(ŬǠŬά)c,:a(a(ƠӬӬĠŮΧ)c7a(ԠϠРӮ)[/8a(٠ĠŠŠԠƠӠҠ)c08a(ԠƠӮҠԠӠ̭)c/8a(ĬŠĠŮ) 8`%c,!8a(ǠǠ(ҠӠĠӠĠ)c07a(ŮҠŠ̠Πծ)[/7a(٠ՠӠҠ̠Ӯ) 7`%c07a(ՠŠŠĠ٠ĠӠ)c/7a(נծՠĠĠϠ) 7`%c07ŠĠ)c.7a(ȠӮ̠ӠƠҠ)c17a(ĠΠĠŠĠ)[/7a(٠̠Š̬͠Ġ)c.7a(ΠŮҠӠ̠)c-7a(ŠǠŠӮҠ)c)7aa(ϠՠŠՠĠƠ)c.7a(ӠĮӠŠ)c17a(ƠӠ٠ȠԠĠ)[.7a(٠ӠӠĠ)c+7a(ŠΠƠӮ٠Ġ)c07a(٠ĠϠҠ)c/V7a(ĠĠӮӠҠҠ) W7`%c,Y7a(Ġ٠ŠΠҠĠϠ)c%\7a(ŠƠҠٮ)[/x7a(٠ӠŠĠԠӠԠ)c/{7a(ŠϠӮ٠ĠĠ) |7`%c.~7ϠŠԠ) ,7`%c-.7a(ŠРĠŠӠ٠)c*17a(ˠȠӮ)c147a(ӠĠŠŠǠӠŮ)[/P7a(٠Ӡ٠ƠǠĠҠ)/S7a(̠ŠҠŠŮ̠٠ӠŠҠƠŠ٠)c.7a(Ӡ̠Ӡٮ٠)c. 7a(̠ƠҠΠӮŠ)c1 7a(ΠĠӠՠŠΠ)[/(7a(٠ՠ̠Š̠Π)c/+7a(Š̠ծՠԠĠŠȠנ)c,6a(ĠŠӮҠŠӠ)c.6a(ǠƠנӠĠӮ)c06a(ӠӠĠŠϠˠ)c)6a(Π̠ĠӠӮ)[*7a(٠ӠŠ٠Ҡή)c.7a(E","CACKLE","SCRATCH HIS BUTT","SOB","GRUMBLE","DANCE WILDLY","POP PIMPLES","SQUEEZE TOOTHPASTE" "SLOBBER","BURY A BONE","SHARPEN HIS CLAWS","BURN INNERTUBES","PRESS RATS","DIE","SHRIEK","SHOVEL TURDS","SCRATCH HIMSELF","FALL"m "MASTURBATE","UNDER","YELL","BRUSH HIS TEETH","SADDLE UP AND RIDE","WHINE","GIGGLE" "SNEEZE","BREED EARTHWORMS","SUCK HIS THUMB","STOMP","GRIND HIS HEELS","EMPTY HIS BLADDER","WIPE HIS FEET","FORNICATE","WRIGGLE SENSUOUSLY","SMIRK"` "FEAST","COWER","PICK HIS NOSE","TAKE A LEAK","FRY AN EGG","PASTE GREENSTAMPS","PACE UP AND DOWN" "BLOW HIS NOSE","JUMP UP AND DOWN","DRIBBLE","HOLD HIS BREATH","CHEW HIS CUD","CASTRATE HIMSELF","SULK","LICK HIS LIPS","OOZE","DROOL"B "GARGLE","SPLUTTER","FART","CRAP","WHIMP "LIGHT HIS BLOWTORCH","SPIT","SHUFFLE A DECK","HAVE A FIT","FIDDLE WITH HIMSELF","CRACK HIS KNUCKLES","WEEP BITTERLY","WET HIMSELF","SWEAT","CHEW GARLIC"D "WALLOW","SPILL BOILING WATER","GIVE BIRTH TO TWINS","DROP A WATERMELON","GO WEE-WEE","PUKLIFE","INDEPENDENCE","SIMPLICITY","HIGH FINANCE","MOTHERHOOD","PSYCHOLOGY","PUSTULENCE","OSTEOPATHY","LEWDNESS"  "DESIRE","DESTRUCTION","SOCIOLOGY","FILTHINESS","CATALEPSY","CANCER","HELLFIRE","CORRUPTION","THE AMAZON","BLUBBER" -----VERBS-----COMPLACEMCY","DEGENERACY","CARNALITY","TORPITUDE","BASE DESIRES","TRAGEDY","CRIME","OBESITY"   "BRUTALITY","EVIL","REDUNDANCY","HARMONY","PREGNANCY","CELIBACY","DEATH AND TAXES","IMBECILITY","THE WILDERNESS","PARTS UNKNOWN"o "NO MEAN SIZE","LONG NYMPHOMANIA","PESSIMISM","SYPHILIS","DEEDS UNSUNG","SWEETNESS AND LIGHT","GLORY","DARKEST AFRICA","GOOD WILL" "DELIGHT","MASOCHISM","BOREDOM","WAR","DESPAIR","HAPPINESS","DISEASE","SQUALOR","APATHY","CHRISTMAS PAST"] "SUFFERING","PERSPICASITY","N","LETHARGY","FEAR AND TREMBLING","DESPERATION","SOCIAL CONSCIENCE","DIARRHEA","SONG AND STORY" "PERVERSION","PERDITION","MOTHER LOVE","FICKLENESS","NAUSEA","VALOR","ILLEGITIMACY","LUST","RELEVANCE","PUNISHMENT"m "JUSTICE","THE DEEP BLUE SEA","AROO","OTTER","YAK","PENGUIN"8 "ANACONDA","HEFFIBLE HORRALUMP","SKUNK","GREASY GOPHER","STINGING WASP","RATTLESNAKE","IGUANA","STINK BUG","VAMPIRE","ALLIGATOR" -----QUALIFIERS-----` "SCHOLARSHIP","THE SUNNY SOUTH","NECROPHILIA","CONSTIPATIO","MAD DOG","ANTEATER" $ "PATRON SAINT","HIGH PRIEST","BABOON","GHOST","PLATYPUS","SPIDER","MEXICAN SHEEP FROG","JELLYFISH","PORCUPINE","CRAWLING CRAB". "HAMMERHEAD SHARK","VULTURE","BLACK STALLION","FRIENDLY WORM","GARTER SNAKE","DOORMOUSE","KANGRSONIFICATION"  "FLYING SQUIRREL","CARRION CROW","DRAGON","GORILLA","HOWLING WOLF","ZEBRA","HUMPTY CAMEL","SEA SERPENT","WOODPECKER","HORSEFLY"  "SEA HORSE","TARANTULA","WALRUS","POUNCING PUMA","TURTLE","LEAPING LIZARD","QUESTING BEAST","LUNGFISHH OWL","AARDVARK","GALLOPING GOOSE","OPOSSUM","STUBBORN MULE","GROUNDHOG","WEREWOLF","GOOD FAIRY","HIPPOTAMUS"  "COCKROACH","SABRE TOOTH CHICKEN","TERRIBLE TOAD","GOD","CRAFTY FOX","PINK PANTHER","PHILOSOPHER","FEROCIOUS FLEA","HORRIBLE HEFFALUMP","PE;Q$(R2);" ";V$(R3);" IN YOUR ";O$(R4);"."/ H PAUSE12000:PAUSEQ 100j  -----SUBJECTS-----  "TURTLE","BUZZARD","SPIDER","SCREAMING HYENA","GRUMPY GREMLIN","WOMBAT","GILA MONSTER","ARMADILLO","GOBLIN","OCTOPUS"n  "HOBGOBLIN","SCREECI1N2:Q$(I):I( FI1N3:V$(I):I> PI1N4:O$(I):Iq U:(7):::N1N2N3N4;" POSSIBLE INSULTS": Z GENERATE RANDOM SUBSCRIPTS dR1((1)N1)1 nR2((1)N2)1 xR3((1)N3)1 R4((1)N4)1) "MAY THE ";S$(R1);" OF "c RANDOM INSULTS PROGRAM~ N1=NUMBER OF SUBJECTS; N2=NUMBER OF QUALIFIERS; N3=NUMBER OF VERBS; N4=NUMBER OF OBJECTS.N180:N280:N380:N480(S$(N1),Q$(N2),V$(N3),O$(N4)- LOAD THE ARRAYS FROM DATA STATEMENTS2I1N1:S$(I):I <     ","DRAWER","SPINNACH","LUNCH","SHOES","WASTEBASKET","EARS","SPARE TIRE"aBRUCE W. CHRISTOPHERNESENCE","CLOSET","HOT CHOCOLATE","JELLO","EASTER BONNET","PANTS","HIP POCKET","SLIPPERS","SOUP","BIG BLUE EYES"  "SHAVING CREAM","TENNIS SHOES","BEHALF","HONOR","COIN PURSE","EYE","BEER","WALLET","SPOON ","GRAPEFRUIT"G "BEDROOM","SANDWICH","HAIRNG EAR" "KITCHEN SINK","GRAVE","POT PIE","BRIEFCASE","PIE PAN","TEA CUP","DEFENSE","CUPPED HANDS","GLOVE COMPARTMENT","LAUNDRY" "NOTEBOOK","CROTCH","POP BOTTLE","PIPE","CLEAVAGE","MUSKMELON","LEMONADE","LEFT NOSTRIL","GARDEN","COFFIN"p "PRPIT"k "MOUTH","LAP","REFRIGERATOR","CORNER","MAILBOX","TAMBOURINE","NAME","DREAMS","PAJAMAS","STOMACH" "MOUSTACHE","WAFFLE IRON","UNMADE BED","OWN BEST INTERESTS","HANDKERCHIEF","GREASY UNDIES","CREAM OF WHEAT","MITTENS","FAVORITE CHAIR","FLAPPIRESS","CRY","RECLINE","ROLL DICE","BURN GARBAGE","FEEL HIS OATS","SLICE PICKLES","PEEL ONIONS","SMEAR GREASE" -----OBJECTS----- "JOCKSTRAP","BATHTUB","ASHTRAY","VOLKSWAGEN","OVERCOAT","TEACUP","SOAPDISH","BEST PAIR OF SOCKS","BELLY BUTTON","ARM# DONATED TO"<# APPLE PI.F# BYCP# R.A.JUSTICEIU#fZ#***********************d*"%h(12):"HAVE ";:C$:" CHOICES"gr(14):"THE PROBABILITY OF HAVING AT LEAST ONE DUPLICATE IS"z|(16):(20):Q(23):"TO CONTINUE PUSH RETURN";G$2105 W$"*** THE END ***":11(#***********************2# *PROBABILITY*7GOOD YOUR TOTAL NUMBER OF CHANCES IS ";:(B$){(10):"ENTER THE NUMBER OF PERSONS IN THE GROUPOR THE NUMBER OF TRIALS""C$,A1:E(B$):F(B$)6B1(C$)@AA(EF):EE1JB:B(C$)ī340TQ1A^:(10):"IF ";:B$;:" PEOPLEETURN";A$ ::(8) "ENTER THE TOTAL NUMBER OF CHANCES. AS ANEXAMPLE: SAME BIRTHDAYS-365, CARDS-52, DAYS OF THE WEEK-7" (14):"ENTER NUMBER ";B$ (B$)1ī270 :(14):"PLEASE FOLLOW INSTRUCTIONS!" I11000:I:210.:(6):"L NAME THE SAME CARD OUT OF A"; "DECK OF 52 CARDS. REMEMBER 1 MEANS IT WILL HAPPEN ALL THE TIME, 0 MEANS IT WILL NOT HAPPEN, .5 MEANS IT WILL HAPPEN1/2 OF THE TIME AND .71 MEANS IT WILL HAPPEN 71 TIMES OUT OF 100." " ":"TO CONTINUE PUSH RIES. HE FOUND OUT, AS UNPROBLBLE ASIT SEEMS, IF THERE ARE 30 OR MORE PEOPLE"; "AT A GATHERING IT IS VERY LIKELY THAT ATLEAST TWO OF THEM WILL HAVE THE SAME BIRTHDAY. IF THERE IS A GROUP OF12 PEOPLE IT IS VERY LIKELY THAT AT LEAST 2OF THEM WIL01102 (6):A$"PROBABILITY OF LIKE HAPPENINGS"P X(40(A$))21:X):A$e (8):"*";:MM1s M40150} (10)N "HISTORY TELLS US THAT CHRISTOPHER COLUMBUS USED TO USE THE PROBABILITY OF LIKE HAPPENINGS TO WIN MONEY AT DINNER PARTROGRAM THAT TELLS THE PROBABILITY":11F 2W$"OF LIKE HAPENINGS)":11N 321} 4W$"":11 5W$"PRESS 'ESC' TO END":11 :(16384)1558245 <(16384)16058 P16368,0 d::(4) n"*";:NN1 xN4hA$(25),W$(40). 16298,0::936:20I PRINT CENTER ROUTINEc X(40(W$))21:(X)k W$" ": CONTROL G5:W$"*** PROBABILITY ***":11W$"BY"#W$"R.A.'DICK' JUSTICE":11%(W$"MAY,1980":11& -W$"(A P        R NEXT PAGE. N X  󩠍3 j X  ) m m y     8} 8    ( Щ     XL'L ABCDEFGHIJKLMNOPRSTUVWXY WHAT IS YOUR PHONE NUMBER?PRESS "RETURN" FO z#  Ҡ   Πؠ ҠРǠΠ  Ҡ ӠҠΠĠ!٠J"ŠàŠàؠ٠ ͠Ӡ͠Ӡ ҠҠӠΠҠɠ ٠ӠŠ?٠Ӡɠ٠ӮؠŠӠŠӠϰíҠíҮؠԠӠ0ҠŠȠ Ҡ̠ΠíҍΠŠ2N@"rC@"r 7N@" rP@p()Z@p() dq]ˠUVWXq/?r@Brp@*#rq/?r@Brp@*#r$Y.a@8_BQ0001:" 80N":0,63998:0XX10511:NAME$(X)B$:/ 6NAME$(0)(B$,19); @D$(4)f E12:12::"READING CATALOG"::12:29r Y63075 ^2054:D$"CATALOG" c216,0:D$"PR#0":D$"IN#0": h(NA$(0),1)" "Ģ12:868:"!!! ERROR - UNABLE TO READ DIRECTORY !!!":|:1T(A)732075" 23:D$T$A$(A):m D$;"OPEN ^TEMP":D$;"DELETE ^TEMP":D$;"OPEN ^TEMP":D$;"WRITE ^TEMP" "RUN ^BASIC->INTEGER":T$A$(A) D$;"CLOSE ^TEMP" !:D$;"EXEC ^TEMP"  NAME$(105),A$(105),T(105) "X138:B$B$"=": ,0 L40  MAXX( 85:34,226 23:958r "SELECT A FILE BY NUMBER (X TO END->";A$:A$"X"ĉ:: A(A$):AMAX2010 A1Ĭ T(A)66T$"BRUN " T(A)84T$"EXEC " T(A)65T(A)73T$"RUN "  23:T$A$(A) ((NA$(N),8,1))6520005 ((NA$(N),8,1))942000? XX1X A$(X)(NA$(N),8,30)r T(X)((NA$(N),2,1)) X20İ30:2000 X20X58X96İ80 X39İ40:2000 $X39X77İ90 .X58İ30:2000 8X77İ40:2000 BX96İ30:20021:32,19:2:1::/ U33,40:32,0:23:1::u Z85:23:"IS YOUR PROGRAM LISTED HERE? Y/";::"N";::" ";:A$: dA$"Y"MAXN1:N105::2000 n23:958:34,2:35,21::35,24: 60:X0 N1105 (NA$(N),8,1)"="N105:2000 8(ST6UVk,ȱk-`)!,-`b ::12:12:"ALIGNING MEMORY":63000xY140:"=";:::X;::5:A$(X):(" ";::X;::" ";:6:(A$(X),15):<1:10:"PUBLIC DOMAIN SOFTWARE":20:22:20:34,2:3: P33,     ؍$yb8 rqa()Y(N@"rD4rC@"r @p()UVW(cY UV WXo q.?r(UVWX62-rq3-rq-r <qFYG-rq P@p()YUVWZ@B;@rrp@*-r#-rr[Yda@ nqx`  RD OR APPLE LANGUAGE CARD."$ Q "NOW, WHEN THE INTEGER BASIC CURSOR >" "COMES UP, TYPE CATALOG, THEN HAVE FUN." (4);"BRUN^BASIC-INTEGER.X" .PTHER NOTE THIS BASIC IS LOST WHEN YOU BOOT (PR#6) AND WHEN YOU TURN OFF YOUR APPLE, JUST AS IS ANY PROGRAM LOADED IN RAM."  "LOADING THIS LANGUAGE IS A TEMPORARY ALTERNATIVE BEFORE BUYING AN INTEGER ROM CARD OR BETTER A 16K RAM CA n:xH"STANDBY WHILE I LOAD INTEGER BASIC INTO RAM."N"NOTE THIS BASIC OCCUPIES MEMORY SPACE SOMETIMES USED BY INTEGER PROGRAMS; HENCE NOT ALL INTEGER BASIC (I) PROGRAMS WILL RUN WITH THIS BASIC." "FUR  줰䮲륥Q9O/Q) WjB`O~5'Q 䯭䮡ޜݜݞGg` ` `嶡䡯z~" `` Oڵw۴Nv L`xw8OPL# (` 40!(L 4LdF`  %L"wLh X{gggggg'(dgxkg~9g'7(*䮥G 0 #gMghghPcQ)Wqqqqhhq`uuuQĠ 5EMҠL Šō?FِLÈϚΠ ăκ f ٢  ٦Τ ȹɀI ȄȹH h3 oLP O䯭䮡𥴳\@`` ~3`Gg壡yi壡yi` @G>W']5Kgvq7ϠGX͠LϠ٠SGϠDĠHSĠNSĠTܙݙᙯ` ??<<<<<<<0UUUUUUUUWB oTMɅ"3J[NSJIfmzq# [$NYP;#o6#"#!0 9@0Ӷ:Pyإ<[(N܄iȢٚ . y$IqܤݐLM͠1FLJܹ/ݾLuc ăܪȱ L[ĨP?xO_ڹo  ʤ  Y YoܹݾЇ`TP@xL` Ιϙ_o$0 8 P# o ΅ڥυ e epݕ` 4LˎL$ `  rPՆϦ ` ΅υȩ ` Τ PڵxۥΑȥL`hh$ F`` ͏%ֈ`ʤZA^ܙ ݙ0  m7; xx ԅբ H 0  $ ( x$0  xx 0$FԨֹ)U h)װ H 듥֐ι L؆l`w0P`fLPεϵxϱHȱ΅hΈ` J  P` Y $0`  'ʅ˅LM&ȱϰqȥȥ`FLʥM˥J̥Kͩ`Lkȱ0@hJHȱШhЄӠȱ0I@iHeШiH˰hhЈЈ͑Ј̑ЈЈ0JKЬ@iHe eѕxh$0X~")XȔ) F*Ȇ0LJɢ  Ȉ ϴX)HЄ ȹ)eHe0hޤȄ h󰩠ɩch cɰ$0 $` dq  u  mʥ` ȹ0 L uߙ`` ӎ$0LL*iS 00)ȆȘHJI@hL`ȩ)?Jжi?oiO iȱ) zȵх 8 05  o ` l3 ΃3` 4J G 4&(JJJJ) ` ӏ F٩ $  ΃Ȣ ii)ɰL ̥͐Eʑ˥ʥ˰ਈ$ u~`ꠀЕ x ت3 Q3ؕxQεy NvNδPPPL#Q8yڅ`Sε{ϵQڵyxȔPMuHOwh(VP`΅h(OM ׁL6 T&ϐ eڅeۅ &L~ 畠(LoU [΅ڥυ džة * * *     % 0LH΢QPHΪ0h$0 )?i h](Њ Px+L 4P 䏕xL# 48` PxL PeHxeH˰iکeۅȱhڙ=i?BC , LʩM˩I6bVcWdXeYfZg[h\i]j^k_L L3L`) #L $  `  v mL;ʅ˅LM  m         Š٠ΠŠQVWX6q\f/? r\6 UV WX6q\f/? r \6 UVWY Y *Y4a()`$Xa(ԇɇ͇ņɇӇՇЇ)Q9]źϠԠǠΠϠԠ)&@ :cccXq]Ӡ(bq q\f\6 Ilqd q \`8dr$vf\6 7vqdq\`$f\6 ]]ӠUlmn[]Ҡ]Šq\6q\6ghghq q\6 ?qd q `8dr$&\6 -&qd`$0q\6  0S(Ƞlmn[Lhijklmnijklmnijk[rlmn_h|ijklmn[lmn_r"lmnijk_|Pflmnlmnlmn_ ,]96lmnijklmnijk[@lmn[LJijklmnijklmnijk[;Tijklmnghijk[.^lmnijk Z]ŧӠǠҠ []٠ \]ԠҠ ]]^](dLfqq iM61noS(ҠӠϠŠĠΠ)'x`$n    6 dKM6@p()]̠Ģ,a@E()Q6EKS BEYOND THE STARTING DATE."@PRNT$"Y"ANS$"Y"ĺPO$:255J1999S:4\170" PLEASE TYPE IN YOUR NAME (REMEMBER TO ENTER IT BY PRESSING THE RETURN KEY):": " ";NAME$:" THANK YOU, ";NAME$;"."_:" NOW, PLEASR STAGE OF EACH"V"CYCLE AT ANY GIVEN DATE MAY BE CALCU- LATED.":PR$"Y"ĺ:240d::2000:10:" THIS PROGRAM WILL DISPLAY GRAPHS OF EACH OF THE THREE BIO-CYCLES, BEGINNING""AT ANY DESIRED DATE, AND EXTENDING TO A POINT 5 OR SO WEM:"M"23X-PRNT$"Y"İ90:21672000@200]PRNT$"Y"ANS$"Y"ĺPI$f:9" THE THREE BIO-CYCLES ARE THOUGHT TO BEGIN TOGETHER, AT THE MOMENT OF BIRTH.""THUS, IF AN INDIVIDUAL'S BIRTHDATE IS KNOWN, THE PARTICULATIVE:"=18:"(M=MENTAL)":"(P=PHYSICAL)":"(E=EMOTIONAL)"F255RX039fAX3623.1416uAPA3623AEA3628AMA3633YP15(AP)7.5X1:YP:"P"YE15.5(AE)7X1:YE:"E"YM15.5(AM)7X1:YCYCLES BELOW THE 'BASELINE' ARE THE REGENERATIVE PERIODS;THE PORTIONS ABOVE THE 'BASELINE' ARE THE ACTIVE PERIODS (ENERGY STORED IS ""AVAILABLE FOR USE)."178:"ACTIVE:":15:"----------------------------------------"22:"REGENERA)"$:" (TYPE 'N' FOR NO.)"c:"(ENTER YOUR ANSWER BY PRESSING THE 'RE- TURN' KEY.)":w:" ANS?";ANS$120:PRNT$"Y"ĩ255:ANS$"Y"İ998ANS$"Y"ī165:200:240125:PRNT$"Y"ĩ255:" THE PORTIONS OF THE ** END OF PRINT ROUTINE ** *****************************qi200n6:" THIS IS A PROGRAM TO PLOT YOUR "::"BIORHYTHMS. WOULD YOU LIKE FURTHER"x:"INFORMATION ?":" (TYPE 'Y' FOR YEST0:(37):: BY INSER- TING A "PRINT" BEFORE 255 CHARACTERS ARE PRINTED OUT, AN ODD "SKIP" IN PRINTING ISAVOIDED.`:::aPO$:: PRINTER "OFF".bhc ***************************** ** OUT THE SCREEN (TEXT) ** MEMORY. ** *****************************[PI$:1::PRINTER "ON".\SECT02:LEVEL07]LOC039^((102440SECTLEVEL128LOC));t_COUNTCOUNT1:COUNT200ĺ:COUN"DECEMBER" WDA$(0)"SUNDAY":DA$(1)"MONDAY":DA$(2)"TUESDAY":DA$(3)"WEDNESDAY":DA$(4)"THURSDAY":DA$(5)"FRIDAY":DA$(6)"SATURDAY" X105rZ************************** ** "GRAPHICS" ROUTINE FOR ** SCANNING AND PRINTING LINE 600.0 MDAY OF WEEK ROUTINE ON 9100-9120A PPI3.1415927 UM$(12):M$(1)"JANUARY":M$(2)"FEBRUARY":M$(3)"MARCH":M$(4)"APRIL":M$(5)"MAY":M$(6)"JUNE" VM$(7)"JULY":M$(8)"AUGUST":M$(9)"SEPTEMBER":M$(10)"OCTOBER":M$(11)"NOVEMBER":M$(12)EZ <: INSTRUCTION & INFORMATION ON BIORHYTHM IS ON LINES 1000-2000,165-235,AND 310-340. A: JULIAN-CALENDAR CALCULATIONS ARE ON LINES 5000-6030. F: INFORMATION ON JULIAN CALCULATIONS BEGINS ON LINE 7000. K: CRITICAL DAYS CALCULATIONS BEGIN ON ::::::::::::::::::::::k 2: GOSUB 1999 GIVES A HOLD, WITH INSTRUCTION: (PRESS 'RETURN' TO CONTINUE). 3: GOSUB 1999 RESETS SPEED TO 255;GOSUB 2000 DOES SAME AS 1999, WITHOUT CHANGING SPEED. 7: GOSUB 10000 GIVES A 3-SECOND DELAY BEFORE CONTINU*------*------*------*"t DCNT$" 0 2 4 6 8 0 2 4 6 8 0 " :2:8:"*** BIORHYTHMS ***":8:" ----------" :::::::::::::::::::::: :BY: HOWIE MITCHELL   FEBRUARY, 1979.Q:10:"*** DO YOU WANT TO PRINT OUT RESULTS ? (TRENDCOM 100)";PRNT$~PI$(4)"PR#1"(13):: PRINTER "INIT".PO$(4)"PR#0"(13):: PRINTER "OFF". NAME$(20) DAYTE$"-2-4-6-8-1-1-1-1-1-2-2-2-2-2-3------*-------*------*------               "::"IF THE REMAINDER IS 0, THE DAY IS SUN.":"IF THE REMAINDER IS 1, THE DAY IS MON."#"IF THE REMAINDER IS 2, THE DAY IS TUE.":"ETC...."#9990::'::::B$"PUSH ANY KEY TO CONTINUE":LE(B$):TA((40LE)2):TA::B$::A$:/4)"'x#5)" - INT((Y-1)/100)"J#5)" + INT((Y-1)/400)"n#5)" - INT((Y-1)/4000)"W#:"THEN SUBTRACT 1 (UNLESS THE YEAR IS":"NEGATIVE [BC]) AND DEVIDE BY 7, THE":"REMAINDER IS IV2. NEXT CALCULATE"::5)"W = (IV2 + D) / 7ING VARIABLES:":5)"Y = THE NUMBER OF THE YEAR":10)"(I.E. 1981)":5)"D = THE JULIAN NUMBER FOR THE DAY"Z#10)"IN QUESTION (I.E. FEB. 1 IS 32)":9990:d#"THERE ARE THEN TWO INTERMEDIATE VARI-":"ABLES TO BE DERIVED:"n#5)"IV1 = Y + INT((Y-1) WHEN ASKED FOR THE MONTH OF"<#"THE CALENDER DESIRED, RESPOND WITH 1":"THROUGH 12, CORRESPONDING TO THE MONTH":"OF THE YEAR."F#9990:kP#"THE CALCULATION OF THE DAY OF THE WEEK":"ON WHICH THE FIRST OF THE MONTH FALLS":"IS BASED ON THE FOLLOWESIRED. THE CALENDER WILL BE PRINTED":"ON THE DEVICE IN SLOT ONE, UNLESS YOU":"CHANGE THE CONSTANT IN LINE 30."2#:::"WHEN ASKED FOR THE YEAR FOR WHICH THE":"CALENDER IS TO BE PRODUCED, REPLY WITH":"THE FULL 4 DIGIT NUMBER, I.E. 1981,":"NOT 81. D$(D) (D$)1D$" "D$, H D$;B$;> DM1(M)3900D N t2800c <N7ĺ:A$:4400p XN17~ " ";B$; h :A$ 0:::"PR#0" r (#:"THIS PROGRAM WILL PRODUCE A ONE MONTH":"CALENDER, GIVEN THE MONTH AND YEAR":"D6)2));MN$(M);", ";Y:C " SUN. MON. TUE. WED. THU. FRI. SAT."O 4A$" "g N136:A$A$"-":x A$:B$" : " ` D0:X102900 " ";B$; ( N0X11:" ";B$;: NX16:DD1:" ";D;B$;: :A$ T " ";B$; N17  DD1 2(N) : L0,31,59,90,120,151,181,212,243,273,304,334R Y((Y4))41500_ M1(2)29{ xN312:M2(N)M2(N)1: X1(((Y13)5)4) @X1X1((X17)7) X1X1M2(M)1 X1X1((X17)7) l(4);"PR#";PS::: ((40(MN$(M))L","MAY","JUNE","JULY","AUGUST","SEPTEMBER","OCTOBER","NOVEMBER","DECEMBER"p d:"WHAT IS THE YEAR DESIRED?";Y "WHAT IS THE MONTH DESIRED?";M ,M1(12),M2(12) N112 M1(N) X 31,28,31,30,31,30,31,31,30,31,30,31 N112 M S THIS PROGRAM WILL PRODUCE A ONE MONTH CALENDER FOR ANY GIVEN MONTH AND YEARwPS1: PS IS THE PRINTER SLOT #(MN$(12)2:"DO YOU NEED INSTRUCTIONS?";A$<(A$,1)"Y"İ9000FN112:MN$(N):K P "JANUARY","FEBRUARY","MARCH","APRI     ""؍Y ,**** JUNE7  ***** JULY,**** AUGUST,* SEPTEMBERa  *** OCTOBER,** NOVEMBER,** DECEMBERA290 " "( MM1:M12.5M1:YY1; NN1:N.590i "DO YOU WANT ANOTHER CALENDAR ? Y/N ";A$~ A$"Y"ė:5:40 A$"Y"ė   31,28,31,30,31,30,31,31,30,31,30,31  *** JANUARY,** FEBRUARY,**** MARCH  **** APRIL,***** MAYC.5A(2)28. YC.5C4(C4.1)A(2)297 EN0A "L$""L ,I17n 6DTDT1:DTA(M).5EN1:380 @D1(DT10.05):D2DT10D1 JD1.5L$L$" " TD1.5L$L$(48D1) ^L$L$(48D2) hI6.5L$L$" " rI |L$ EN.5:" ";:Y;:" ***"0 " S M T W T F S "C L$"":D1DW.5N I17\ DTIDW1q ID1L$L$" " ID1L$L$" "(48DT) I6.5L$L$" " I L$ C(Y100.005):YCY100C A(2)28 YC4(YC4.1)A(2)29  ";M! <N1Ą"FIRST MONTH # ";M0 F"YEAR ";Y@ ZMZM2:YZYV dM1MZ11:YZY1l nM2MZ12:YZY1 xCZ(YZ100.005):YZYZ100CZ:DM1 D1(2.6MZ.1)DMYZ D1D1(YZ4.1)(CZ4.1)2CZ DWD17(D17.1)1 : R$(M);c:9:" THIS PROG. PRINTS A CALENDAR "::" FOR ANY NO. OF MONTHS"::" FOR ANY YEAR !!"::::" TOUCH ANY KEY TO START":A$::9 A(12),R$(12)I112:A(I):II112:R$(I):I("HOW MANY MONTHS ";N 2N1Ą"MONTH #     "*":"*":"*":"*":"*"?J:"WRITE ";MFILE$;",R";X1:"X"NDFLAG1ı\"CLOSE"eI:DELETE LAST YRS MO FILE REOPEN FOR NEW YEAR"CLOSE":FLAG0:DFLAG1m:"EXISTING '";MM$(R);"' FILE IS FOR 19";(A$);"....":"SINCE YOU "WRITE ";MFILE$;",R0":YMFILE$"JAN"MFILE$"MAR"MFILE$"MAY"MFILE$"JUL"MFILE$"AUG"MFILE$"OCT"MFILE$"DEC"X31:5080MFILE$"FEB"X30:5080Y4(Y4)X28:5080X29:LEAP YEARJ1X:"WRITE ";MFILE$;",R";J:"0":".";DM(L);",19";YM(L);"-*-";FM$(L).L:PC0[L10Ģ22:10::" THAT'S ALL OF THEM! "23::" PRESS 'RETURN' TO CONTINUE.... ";Q$: 958:INITIALIZING FILESYYRI1343MFILE$(G$,I,3):"OPEN ";MFILE$;",L138""540550HPCPC1:MM$(PC)M$:DM(PC)J:YM(PC)YR:FM$(PC)(F$,2)x!PC10ĺ"CLOSE":1000:"OPEN ";M$;",L138"&K:472SUBR. 4 PRINTING/PAGINGPC0L0Ģ10:14::" NO REMINDERS "::1030PC0L0:1025L1PC"MM$(L);GOTO NEXT MOS. FILE,II3:I34I1eJ1:M$(G$,I,3):"CLOSE":"OPEN ";M$;",L138":475JDAYM$MO$ĺ"CLOSE":(R$)0472K1(R$):F$:F1$(F$,1)F1$"M"540F1$"2"C15540 F1$"1"C8540C1F1$"NREMINDERS FOR ";MO$;".";DAY;",19";YR:::442:"CLOSE":1000::145OM$MO$]I1343s(G$,I,3)M$470zI:"??ERROR---LINE#460":"OPEN ";M$;",L138"JDAY1:C0:PCCJJ1:CC1"READ ";M$;",R";J:R$:R$"X"500;(MI$(R),25)::PAUSE12500:PAUSE:370oT"OPEN ";MM$(R);",L138":"WRITE ";MM$(R);",R";DM(R):((A$)1)^"POSITION ";MM$(R);",R";(A$)h"WRITE ";MM$(R):MI$(R)r"CLOSE":RR1:R0ı|310RETRIEVING REMINDERSD::2:9:"ESSAGES IN FILEg6"OPEN ";MM$(R);",L138":"READ ";MM$(R);",R0":A$:(A$)YM(R)İ5100:FLAG1370@"READ ";MM$(R);",R";DM(R):A$:(A$)5340)J"DUE TO A FULL FILE, THE FOLLOWING CANNOTBE PLACED IN FILE:"::MM$(R);" ";DM(R);",19";YM(R);"..."A$:"";A$7 A$"M"A$"2"A$"1"A$"N"ė:255oMI$(R)A$MI$(R):LENGTH OF MI$(R) IS NOW 26 CHARS.:10:"ANY MORE REMINDERS TO INPUT (Y OR N)?";:A$:"":A$"Y"İ300::145R10220300:215,ROUTINE TO PUT NEW M5) :"WHICH OF THE FOLLOWING IS APPLICABLE FORTHIS REMINDER:"::4::"M";::"ONTH ADVANCE NOTICE DESIRED"::4::"2";::" WEEK ADVANCE NOTICE DESIRED": 4::"1";::" WEEK ADVANCE NOTICE DESIRED"::4::"N";::"O ADVANCE NOTICE DESIRED"::M$,3):DM(R)((M$,2)):DM(R)0YM(R)((Y$,2)):YM(R)79245Q :RR1::220j INPUT DATE ACCEPTED 4:"MESSAGE(25 CHARACTERS MAX.)?":12:"";MI$(R) (MI$(R))25MI$(R)MI$(R)"........................." (MI$(R))25MI$(R)(MI$(R),2EXIT PROGRAME :10:"NOW REMEMBER YOUR REMINDERS! GOOD-BYE.":X INPUT ROUTINEb :R0 RR1::" REMINDER INPUT#";R;" "::4:"DATE(I.E. MAY 12,1980)?";M$,Y$:M$""Y$""RR1::220 I1343 (G$,I,3)(M$,3)240> MM$(R)(XISTENCE OF MONTH FILEJ 9:10::"R";::"ETRIEVE REMINDERS":20:"OR"| 10::"I";::"NPUT NEW REMINDERS":20:"OR" 10::"X";::"...EXIT PROGRAM":: "WHICH? ";:Z$:"";Z$ Z$"I"210 Z$"R"400 Z$"X"Ģ9:958:145 :! s"";M$,Y$:M$""Y$""110/ xI1343K }(G$,I,3)(M$,3)135 MO$(M$,3):DAY((M$,2)):DAY0YR((Y$,2)):YR79140 :110:BAD INPUT NOW HAVE MO$,DAY & YR 10000:USED IN INITIALIZATION "VERIFY ";MO$:CHECK FOR E6  :H8:18:"TWELVE"::19:"MONTH"::17:"REMINDER":""~22::27:" BY J.G.LOBUE":27:" MAY 12,1980":(PAUSE12000:dBEGIN PROGRAMiG$"JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC" n:4:"TODAY'S DATE IS?(I.E MAY 1,1980)"      ͬɠ̠ŠŠ̠ή)Z\([UVWY)d@p(ɠ̠Š̠Ӯ)i\(jUVWY'n@p()]o@p(̠ӧӠŠϠԠԠŠԠϠѠΠΠӠĠ̠̠ĠƠŠĠӠĠŠΠƠŠàӠ̠ŠĮ)F\(KUVWY2P@p(̠Ӡ̠ŠĠϠͮ)Q\(RUVWYXU@p(Ơ٠̠ϠĠΠϠұY')@p(ҠӠή) *q}J-@p(٠ŠΠԠӠΠŠȠƠ٠ҠŠ)2\('3@p(Ӡ̠ŠĠӠҮ)4\(5UVWY'7@p()z<@p(\(UVWY q'@p()\(UVW P!`8r$$&"a()G#_&&$a(ҠӠή)G %a()G&UVW2Y'Y(UVWŠӠӮ)\(UVWY"@p(٠ŠĠŮ)\(UVWY%@p(Ҡ٠ŠĠŮ)\(UVWY'@p() q}'@p(٠ԠŠӠӭ)ŠƠĠ̮)\(UVWY%@p(ɠǠՠŮ)\(UVWYT@p(Ԡ٠ŠŠŠƠ٠ĠԠҠŠŠƠĠȮ)\(UVWY q'@p(ŠŠԩŠԠǯǠҠҠӮ)\(1@p()\(\'@p() q q q d2e? q q}+@p(ɠ͠ŠŠ̠٠ĮƮӮ)j\(@t@p(ŠźӠӠԠŠŠӠΠŠŮ)~\(t@p(ȠŠˠӧĠŠŠӧӬŠΠԧҠŠΠԧ)\(O@p(ǠΠȶ)G\(LL@p(̠ɠˠӠԠ٠ŠŠĠȠŠŮˠա)V\(1W@p()[\(`@p(٠ȠŠΠŠԮҠźŠӠӧŠϠŠĠ͠2`.?6@r<()r$113@p()\8@p(ұ٠ӠӬ٠)B\(]C@p(ӠŠΠŠĠΠ٠͠ŠӠΠŠӠȠؠĠҠN]X]b]l] M6o UVW(a()GYo UVW(a()GY q( q q  $q .q?/@p(ϠՠԠŠΠĩҠԠӠé)0\(1`.?6@r<()r$ĠĻ]ƠĠ]Į]]]ҠӺ]]ԠӠΠ]נŮ]]ŠΠ]&]ɱؠҠŠ 0]ɠ͠נĮ:] D]ɠ@]ӠϠҮJ]T]Ԡ͠ϠԠ^]͠Ϡh]r]ΠȠƠ|]׮]]ĽĠϠԠԮ ]Š͠Ϡ]׬Ԯ]]ĽƠ#;@rr[]]]ŠǠŠ ]ҠŠԠŬŠ ]ǠƠӠԠ]ӠǠӠŠ׮]]ΠӠϠ]ǠӠ"]Į,] 6]ҠŠΠȠKd2e N@"rC@"r1@p()_(q-@B;@rrp@2UɱVW;@rFo PP_a@*ɱ#ɱrGUVWY `%d6?e.?6?r.?6?rYɱ@p@*;@r     " " " " " """""""JI1NS:L$(I);" - ";DC(I):DC(I)MXMXDC(I):CHI>OI:arL$(CH);" IS THE BEST CHOICE."g N60 PRINT RESULTS"J1NS4DC(J)999999.?I1MqS(I,J)S(I,J)D(I):S(I,J)DC(J)DC(J)S(I,J){I:J" WEIGHTED SCALE SETS: ""I1M,J1NS:S(I,J),:J:" "6I@:"DECISION VALUES ...":EMX9999.5HE VALUES DEFINED ABOVE."% 0xI2M=J1I1d:"----(1)----";15)"----(2)----"C$(J);14)" VS ";C$(I):X,Y(X2)A(I,J)Y:A(J,I)1Y(X1)A(J,I)Y:A(I,J)1YJ:I:::"FDM PROGRAM OUTPUT"1"1 - EQUAL IMPORTANCE"G"3 - WEAK IMPORTANCE ONE OVER OTHER"o"5 - STRONG IMPORTANCE OVER OTHER""7 - DEMONSTRTATED IMPORTANCE""9 - ABSOLUTE IMPORTANCE ONE OVER OTHER":"USE 2,4,5,8 WHEN DEGREES OF IMPORTANCE FALLS BETWEEN T "RATINGS OF THE CRITERIA"< "-----------------------" " FOR EACH PAIR OF THE CRITERIA ENTER 1 OR 2 TO INDICATE WHICH IS MORE" " IMPORTANT, FOLLOWED BY A COMMA, BY A NUMBER BETWEEN" " 1 & 9 TO INDICATE HOW MUCH MORE IMPORTANT. ""--------------------------":R "IN EACH CASE ENTER A VALUE BETWEEN 0 AND 1"w "A HIGHER VALUE MEANS BETTER. "}  I1M:J1NS :"ENTER ";C$(I);" RATING FOR ";L$(J) S(I,J):J:I S(I,J)1ĺ"MUST BE BETWEN 0 & 1 " ::. OF ALTERNATIVES: ";NSD V::"ENTER LABELS FOR ALTERNATIVES ..."Z `I1NS:L$(I):I j:" NO. OF CRITERIA FOR THE DECISION: ";M t:"ENTER LABELS FOR CRITIERIA ..." ~I1M:A(I,I)1.0:C$(I):I  :"RATINGS OF THE ALTERNATIVES" E(I)M:I" ":"EIGENVECTOR... "6 ,I1M:E(I):IU 6::"ALPHA-VECTOR ... ":i @I1M:D(I):I} JMU(LMM)(M1) NQ(MU2) O T:" CONSISTENCY OF THE PAIRED-COMPARED MATRIX = ";Q ^  MAIN I/O ROUTINE   L"NO7 I1M:TS0:J1M:TSTSB(J)A(I,J):J:R(I)TS:IU SM0:I1M:SMSMR(I):Ip I1M:E(I)R(I)SM:I I1M:C(I)(B(I)E(I)):(C(I).001)0240:I 260 I1M:B(I)E(I):I 190 LMSM "EIGENVALUE = ";LM J1M:D(I)i d JOE CARRON,n REF: BY C.P. WHALEYJo INTERFACE AGE, NOV 1979[p PAGE 89-91aq:gr:mxA(10,10),B(10),C(10),D(10),E(10),R(10)L$(10),S(10,10),DC(10)1000 EIGEN ANALYSIS SUBROUTINE I1M:E(I)1M:B(I)E(I):I     @*#r9()$ `@*#r9()$@`@*#r9()$ `@*#r9()$ `@*#r9()$@`@*#r9()$ `@*#r9()$:`@*#r9(Ϡ)$d  `;@r$*`@*#r9(`@*#r9()$ `@*#r9()$`@*#r9()$`@*#r9()$P `@*#r9()$`@*#r9()$`@*#r9()$`@*#r9()$*`@*#r9()$( `#r9()$`@*#r9()$v`@*#r9()$`@*#r9()$`;@r$`@*#r9()$} `@*#r9()$ `@*#r9()$ `@*#r9()$n`@*#r9()$ b`@*#r9()$l`@*#r9()$(v`@*#r9()$`@*#r9()$2`@*#r9()$>`@*#r9()$`@*#r9()$<`@*#r9()$`@*#r9()$l`@*#r9()$0`@*#r9()$:`@*#r9()$<`@*#r9()$ ?`@*#r9()$4D`@*#r9()$@I`@*#r9()$` N`@*#r9()$S`@*#r9()$ X`@*#r9()$r9()$`@*#r9()$`;@r$`@*#r9()$`@*#r9()$`@*#r9()$`@*#r9()$F `@*#r9()$`@*#r9()$!`@*#r9()$&`@*()$`@*#r9()$Z `@*#r9()$Z`@*#r9()$`@*#r9()$d`@*#r9()$`@*#r9()$x`@*#r9()$`@*#r9()$`@*#r9()$`@*#)$`@*#r9(ң)$`@*#r9(Σ)$`@*#r9()$`@*#r9()$j `@*#r9()$. `@*#r9()$ `@*#r9()$F`@*#r9()$`@*#r9()$P`@*#r9rp()@p@/UVW;@r`<@r$@p@*rY`;@r&%o.?%r)`;@r$`@*#r9()$],`;@r$6`@*#r9()$ @`@*#r9()$J`@*#r9()$`;@r$`@*#r9(r$ q]na@G_ xqGq`$ ]L]-`;@r$`;@r%@B]#__]qd]Ye@Brp@`<@r$x`<@)2dMe]TZ]P[`6$_q6\ `.?r .?r$]j\de dede.?Mr_-a()Ga()Ga()Ga()G`.?6@r$_]dMe_Z]'ca@G] dMe.?r_%#_Z]m]z]=E`.?r .?r%dMe.?r_Z]6S()&@dMe.?r_Z]m]b]                    2"]";E$2E$"WALK"11000R2E$"RUN"ĺ"FI NUR T'NOD KROW YRT >TSIL<":13020h2E$"LIST"ļ10,152E$"NUR"İ10225:"NOT NUR BOZO, TYPE "213020: & READ AT ROUTINE: BY SCOTT KNASTERU:768,201:769,135:770,240:771,3:772,3:A(104)256(103)L34]/ 32,32,32,32,32,69,83,79,76,32,85,79,89,32,32,32,32 j /12062u"/I1L$/T:A,T:AA1&/(/22:I15:B$:XX(B$)212:242T1(B$):(B$,XX,1);2XXXX122" "2,169:912,32:913,56:914,233:915,64\+916,145:917,40:918,104:919,76:920,33:921,253b./Z$" YOU LOSE "Z$"DON'T GIVE UP,BOZO"Z$" HOCUS POCUS "9500/15050:12060/15072/Z$/9600/L((106)256(105)2) NO RUNNING BOZO":10305:10200:10:5:"TYPE "h*VZ$"LIST"ė:12:"HOCUS POCUS":26+VZ$"LIST 20"Z$" HOCUS POCUS ":9600+11005% +901,169:902,142:903,162:904,3:905,133:906,56:907,134:908,57:909,96:910,72:911 COMPUTER WILL RESULT IN DISASTER":10305?):12:15990E*`*:12:"READ THE SIGN"*32,14:33,7:34,7:35,18:" PLEASE DON'T RUN IN THE PARK"*32,0:33,39:34,0:35,23*100:"]";VZ$:VZ$"WALK"12050?*VZ$"RUN"ĺ" "DO NOT ATTEMPT TO CONTROL THE HORIZONTAL":10305S)1010,102:1011,213:1012,112Y)z )D1600:"------ ";:):12:"DO NOT ATTEMPT TO CONTROL THE VERTICAL":10305))D1600:"---- ";:.):12:"ANY ATTEMPT TO CONTROL YOUR12:5'("DO YOU HAVE A TICKET ?";TZ$;(TZ$"NO"10400e(TZ$"YES"ĺ"DON'T LIE":10305:10170p(10385(24:"THEN TO GET MONEY--DON'T WALK":"]";MZ$(MZ$"RUN"13000(MZ$"WALK"9500(MZ$"LIST"ļ10,15(103851):12:BER MEMBER, THIS IS DECEMBER":103053P(I770790:U(JCZ(I,JI_(d( 173,48,192,136,208,5,206,1,3,240,9,202,208,245,174,0,3,76,2,3,96i(X15n(TNs(768,TN: TONEx(769,230: DURATION}(770(( 40,35,45,90,60((:15D("B";(1)255);"O";(1)255);"Z";(1)255);"O";(1)255)O#(10305V((Gb-(E1202(10:E:"BO":10:40E:"ZO"6(T150:7(936:E<(A(T12000:T:F(:12:5:"WELCOME TO THE MAGIC PROGRAM":10305$K(:12:5:"REMEM"BOZO" 'A 'T '+ 'T2020080E 'H121:H:H:"BOZO"\ 'D1T:D:936:Hy 'Y2111:Y:Y:"BOZO" 'J1T:J:936:Y:T ' 'A06.2 'YA2 'Y);"BOZO" (A (A60.2 (YA2 (Y);"BOZO" (A(GO"  ~'10090 '10305> '936:10:12:"BOZO IS MY NAME"c '10:14:"AND BOY AM I CONFUSED"n '10305y 'B15 'A06.3.2 'Y(A) '18Y19);"BOZO" 'A 'B '10310 'T13 'A09.5.2 'Y(2A)(A) '13Y30);R 'S16336:SD(S) $'Y' )'R)/ .'Z$6 3'IA 8'10305[ B'A$"BY RAYMOND POLKA"g G'P116s L'10P) Q'(A$,P,1) V'1054 ['P `'10305 e'"TYPE YOUR NAME ": j'64780 o'X$:X$ t'X$"BOZO"10115 y' "MY","NAME","IS","BOZ2:25,15950,15950,13474,13474,109100,109100,84125,84c &%126,84126,59150,59150,34175,34s (%24:"WALK"~ *%10305 ,%::"TO THE NEXT SUBROUTINE, THEN " .%10305 % % %15050 %10105 'I150 'R20(1)1 'Y1 /G1100:G:I 0' 1R1500:R3 2"]";C$M 7C$"LIST"ļ10,15:50| <C$"RUN"ĺ"IF RUN DON'T WORK, TRY " =C$"WALK"9499 >50 d1063,155:1062,96:2039,155:2038,96:1024,157:1025,96:2000,157:2001,96: %A$(16); %::xZ$" YOU WIN "7Z$"THE MAGIC PROGRAM"B10500J44Ph -- NOT RUNn~20:20:2010305960015050:12060:15060* "TO","RUN","PROGRAM,","TYPE","",:-I15:12:24.B$:B$        ŠŮ٬ŠҠΠŠϠŠǠٮٮ)Na(ĠƠէ̠٠Ԭɧ͠ŠՠԠ̠ΠӮ)_Sca(ӠŠŠǠĠӠȠ)a(ԠƩ)_)ca(ՠĠϪՠŠǠ)_\o.?%rPa(ң)F/?drGM6ccca(ՠŠǠ)_Qo.?%rPa(ɠԠ̠)GM6cca(Ԡ٠)_zca(ԧӠ٠šɠӠȠ͠٠)_%a(ϠȠ٠)_a(Ϡ)_^o.?%rPa()GM6cca(ĠȠ)a(ĠԠ)_a(̠)_\o.?%rPa(Σ)F/?drGM6ccca( )_&la(ԠԠϠ)_6v`$ q/?rqq8/? rr q?{\tca()F E()a()ca(ԠƠӠ)_ca()_0a(ԠȠΠϠϠĠ)_$a(ϠנΧ)_@a(Ԡ)_Po.?%rPa()F/?drF/?(#rGM6cca()_Io.?%rPa()F/?dr(GM6cca(Š)_'&a(ΠԠҠ)_(:a(Ġӳ `7$ 7a(ǠΠҊ)o.?%rUVWYa(٠ĩ)_Ba(Šӧ̠٠Ǡ)a(٠ԩ)_a(ԠŠ٠ԩ)c)a(ϠҠҠŠ) M6#!a(Š٠%rPa()ca(ؠ)_ja(ƮƮƮԧӠ̠ɠҠҠĠŮΠŠՠǠϠԠš)_"a(ǠӠŠ)_>a(ϠĠΠԠ)a(ՠΧԠРש)_rPa(ҠŠš)GM6cca(à)_=q`7%a(ϠǠҠ)_2`$ a(ԠƠˠΠЧӠ)_A`$ o.?%rPa()ca(ؠ)_9o.?)_/Zo.?%rPa()GM6c_!do.?%rPa()c_6no.?%rPa()c`;@r%a@*r_ xa(ˠƠԠ)_Go.?%rPa(٠Š)GM6cca(à)_Qo.?%ԠŠ)_(`;@r$Hf/?r"*i/? rj/?r k/?(r_2`;@r$Hf/?r"4l/? rm/?r n/?(r_7<a(Ǡ)a(ՠĠŠ)_Fa(ԠϠŠ)_'Pa(̠ԠҪǠ)_ L_ `7$ No.?%rPa(ŬŠΠŠ)GM6cca(Š)?a(Ԡſ)oM6doM6doM6doM6d/a@Gd8.?)r.?(rre`o_ K_ a(Ԡa(ϠĠϠΠ)`%q6_ \ _-`;@r%a(ˠŠԠĠ).`@9()%a(٠Ġ)_-`;@r%a(ˠŠԠĠ)3`@9()%a(ԠƠΠӠ)_a(\/?r cP\/?ra()P\p/?ra()6Pb/?/rG\X/?rb/?rE()F/?r@+`Z$Pa(Ϡ)F/? r ]c`%Y[a(ԠĠ)_Rq`$B` $V`$`qqq[q/`q8r   q   8rj` $ o\t_tUVWX bG=yq$ 8~r 8r8r8@9()r1~dNedOe]Ġ͠ҠPkqo.?%rPa()ca(ؠ)_.qqq6q`;@r$89UVW;@r`<@*rr<@*rr%Y`;@r$8\,$`$.qqq`;@r$.q8`$Bq qd_V      ӠŠƠ̠Ů) ] \p ] a()* a(ՠŠϠ) ]D a(ՠŠĠΠӠĠԠŠĮՠ̠)GG a(ŠŠŠƠӠŠƠҠ̠ˠƠ)G5 ]M a(ՠŠŠàŠĠŠԠŠȠٮ)GG a(ƠՠŠΠՠŠΠ٠ŠҮӠҠ)GI a(ԠĠ٠ӠŠԮԠΠ)GC a(ŠĠӮ̠ҮӠǠӠ)GLL a(ǠϠҠӮՠŠĠĠ̠Ġ)G3V a(Ӡ̠РŠǠŮ)G#` a(ӠŠĠӠ)j \pt ] y a()+~ a(ՠŠ)ŠӬՠŠΠĠŠԠ)GQ a(ͬҠŠӠǮϠŠŠΠӮ) \p$ ] ) a()+. a(ՠŠϠ)8 ]LB a(ՠŠŠ̠ŠĠŠ̠ҠŠǠƠƮ)6a(ԠŠӠŠҠŮ)\p] a()*a(ՠŠϠ)]Ia(ՠҠƠΠҮӠˠҠٮ)GFa(ԠϠa(ΠҠǠԮ)p]z\p] a()*a(ՠŠҠ)]2a(ՠŠàƠŧӠӮ)GKa(٠ˠՠŠҮՠŠӠǠӠƮ)G9a(ԧӠ٠է̇))9a(ՠŠɠ)>]@Ha(ՠŠˠĠԠҠŠŠՠ)GERa(ŠՠŠ̮ҠՠŠĠϠԠ)GF\a(ϠȠҠϠŠӠӠՠŠЮӠŠ)G#f()*a(ՠŠӠ)]Ja(ՠŠ̠ĠԮՠŠĠ͠)GB a(ĠˠŠ̮ԠŠˠՠŠΠĠ)G'a(ĮՠŠԮ) ]*\p 4a(a())8a(ՠŠӠ)EBa(ՠŠŠҠŠĠĠԠŠΠԮ)GKa(ՠŠˠĬԠĠ̠ƠŮ)Ga(ՠŠԠ٠Ů)\p]Ӡ] aŠ)Ka(ҠӠĠŠԠՠҠҠǠƠҠ)GEa(ҮՠˠŠĠŠ٠Į)G8a(ӠŠϠŠӠϠ̠)\pQ$].]Ӡ 3a(ҠĠҠήŠˠҠĠ):\p]]a()0a(ՠŠӠ)]Da(ՠŠĠΠĠΠˠՠŠǠ)G@a(Ġ٠ŠҠɠՠŠҠΪՠŠӠ)]Da(ՠŠΠŠĠŠĠϠŠŠ)GGa(ՠŠԠ̮ΠŠҠĠՠŠĠϠŠ)GGa(ӠĠ̠ǠՠϠŠŠŠӠ)G6(ĠŠٮ٠ή)_`x$d `$`A$`$.` $`m$4`$`7$`$$ `$t `b$ "`$ ,_d ]Ӡ a()0a(W(a()GYcEa(̠ŠҠ٠Ġɠ̠ԠҠ).a()cBS(ҠҠȠȠĠ٠ӠӠĩ)'M6d%ec`e$_%a M6d%ec, a(ŠˠŠӠ)/a(ΠϠ) (q<]F]P]Z]d]n]xUVW'a()GYcc%Pa(ŠϠŠŧ)P a(ŠƠŠ)cUV          "34,42TG0:TT0:TC0:AM10=C1XbD$(C)"6/14/80"D$(C)"JUN 14 "nD$(C);}8:OM(C);16:GP(C);22:MPG(C);28:TM(C);35:CST(C)TGTGGP(C)TTTTTM(C)TCTCCST(C)AM1AM1MPG(========================+,216,0:XX1;6SS1ī1020A@GJMT|^" "h"DATE MILAGE GALS MPG MILES COST"r" READING GAS DRIVEN $ " |" =============& REVIEW ROUTINEB =====================K330SX0^1550sD1$;"OPEN ";FI$D1$;"READ ";FI$XX1D$(X),OM(X),GP(X),MPG(X),TM(X),CST(X)1520 ===================== REPORT ROUTINE"======= OMNM:GPGAL":10H"NOW WRITING THIS DATA TO DISC."X(D1700:Dn2D1$;"APPEND";FI$<D1$;"WRITE ";FI$FD$POMZGPdMPGnTMxCSTD1$;"CLOSE ";FI$100 ====================  ========ING VS NEWtN(NMOM(X))GAL)~22809" ";C$;" "GMPG(C$)Q::r"THE NUMBER OF MILES ARE ";NNMOM(X):2280" ";C$;" "TM(C$)800 ==================== APPEND ROUTINE =============RAM INSERT TEMP.*0 INSTRUCTION HERE TOC2 SET EXISTING (OLD)]4 SPEEDOMETER READINGc68 EXAMPLE OM(X)=55725.9BL THEN REMOVE IT AFTERO THE FIRST RUNNINGQV *****************`OM(X)NMī2240 j CHECK OLD READBE WRONG. TRY AGAIN.":CV2N570,620,670H================\ MPG ROUTINEr================{SS11490SS0::"THE MILES PER GALLON ARE";:26 *****************$ TO INITIALIZE THIS. PROGQ$4Q$"YES"Q$"Y"ī1260'>:10IH:" LETS START OVER....":ZRD11500:Db\90}f ====================p ERRROR MESSAGESz ================N1:930N2:930N3:930CV(37):23:" THE ";E$(N);" MUST DING IS ";NM1"THE NUMBER OF GALLONS IS ";GALP"THE TOTAL COST IS $";CSTY970v  ---ERASE ERROR MESSAGEPV(37):23:" ":PV: 22:"IF THIS DATA IS OK ENTER YES IF NOT THEN ENTER NO.";*R GALLONS PURCHASED ";GAL1 vGAL30GAL1ī910: 780Z  MAXIMUM GALLONS SET AT 30` } "ENTER THE COST $ ";CST CST1CST100ī920 780 :3 "THE DATA YOU ENTERED IS ..." :: "THE DATE IS ";D$ "THE MILAGE REA53 " O.K....LETS UPDATE YOUR ";N$;" RECORD."X :" --------------- "a :: &"ENTER THE DATE (MAY 15). ";D$ 0 :"ENTER THE CURRENT MILAGE ";NM DNM1NM99999ī900 N780 X CHECK FOR VALID MILAGE b l"ENTE"OR" | 10:"2..CAR #2 "P 21:"PRESS THE NUMBER YOU WANT==> ";:Q$:a Q$"1"ī440r Q$"2"ī460{ 400 FI$"CMPG":N$"CAR #1" 470 FI$"TMPG":N$"CAR #2"   ==================  ENTRY ROUTINE 330 :YOUR CHOICE ===> "; Q$! - Q(Q$)? Q1Q4ī220L Q1500Z Q21440i "Q4ī2040 ,:10:10:"BYE BYE": 6 ================= @ VEHICLE ROUTINE J:05 T"WHICH VEHICLE ?" ^: h10:"1..CAR #1 " r:16:LES PER GALLON RECORD "% < C140:"-";:C:f 10:"WHAT DO YOU WANT TO DO TODAY?."o :5 "1..ADD A PURCHASE" 5:"2..REVIEW THE RECORDS" 5:"3..QUIT THIS PROGRAM" 5:"4..INSTRUCTIONS" 20:"PRESS THE NUMBER OF   ::BD$(100),OM(100),GP(100),MPG(100),TM(100),CST(100)Z FILE INPUT FIELDSg(D1$(4)z2E$(1)"MILAGE"<E$(2)"GALLONS"FE$(3)"COST"P ------------------Z TITLEd:::2nC140:"-";:Cx " MI               \_%oPa(ҠҠ)oP"T`'$\_cccq=qqqdqdq q q)q q qq q `˹<()r$$M6P a(̿)&@`@9()$`@9()$_&M6P a(̠ɠƠŠà٠à̠Š)1oa(ҠٺҠȠ)oP"T` $\_"oPa(Ҡ٠)oP"T` $ȠӺ)c`%a()K\.8в(rN`$dP_d~a()q_ xM6 zq}`$/P a(̠ɠƠŠà٠à̠Š)c`%a()Coa(Ҡ٠)IE()FE()Fc`%a()`$S(ԠٯΩ%a()#\'8òr(`%a()A)o a(ҠԠŠƠ)FұE(Ӻ)c`%a()-\*8ұr"0`$F]Ҡ2\"<M6P a(٠ϠՠҠΠ͠)F`%a()AGoa(Ҡ̠ŠŠƠ)FвE(@cc.a(̠Ů)Fòcc.a(ԠŮ)Fұcc.a(̠ŠŮ)Fвcc\#M6P a(٠ϠՠҠΠ͠)`%a()=oa(Ҡ̠ŠƠ)FòE(Ӻ)c`رٱqڱ ²qڱ òq²IJqűdŲqűd@ ȲqIJ ɲqIJ ʲqɲȲŲ˲qʲ ̲qʲ Ͳq˲̲ βqͲ ϲqͲ вqβϲ `Է$ @p@qв `˹<()r$'M6P a(٠ϠՠҠΠ͠)ccoa(ź)Eڳ,`@9()%\1`@9()%\6`@9()%\;Yñ@űqƱDZȱqƱdɱqƱdʱqȱ ˱qȱ ̱qɱʱ˱=ͱq̱ αq̱ ϱqαͱбqϱ ѱqϱ ұqбѱKӱqDZdԱqDZdձqӱ ֱqӱ ױqԱձֱرqױ ٱqױ =ڱqqñ@p@*ı#ırF`@9()@9()%\`@9()@9()@9()%\`@9()@9()%\F`@9()@9()@9()%\ `@9()@9()%\`@9()@9()%\F`@9()@9()@9()%\`@9()@9()@9()%\`@9()%\"D`@9()%\'`@9()%\<()r$'L\V_ M6 qP a(٠ϠՠҠΠ͠)c3S(ԠӠҠ̠̠Š)&@Էq`@9()$ q;@r`˹<()r%Էq ±q±`˹<()r%ԷqԷƱqDZqUñVW()\ a()!a@E(Ƞ)E@ "a()_d&a()(_ \_\A1oa(ȠŠϠՠȠϠԠ)˹q.?6@r`˹$ d6?e-`˹<()r$`˹<()r$x`˹<()r$@-`˹<()r$`˹<()r$l`ƱqƲƱ[ƲqƱqƲƱ[ƲqƱqƲƱ["Ʋq ƱqƲƱ['DzqDZqDzDZ[,DzqDZqDzDZ[1Dzq DZqDzDZ[6DzqDZqDzDZ[;DzqDZqDzDZ[ a()_a() a@a()_a() _a()_@aҠ®)cP a(Ġٮ)c[oa(ԠĠ)UVWY(oa()[ƲqƱqƲƱ[ƲqƱqƲƱ[ƲqƱqƲƱ[ ƲqƱqƲƱ[ƲqƱqƲƱ[Ʋq r <d6?e AM6FPa(͠ŠΠ)c/Pa(ϠŠҠ٠Ӡƺ)cZP a(ҠŮ)cdP a(ŠŮ)cnP a(٠Ů)cxP a()P a(ƠӮ)cP a(oP'a()M6|UVWdYoP'a()`$d6?e[ q.?6@r0-oa(ϠՠԠӠĠԠٯΩ)/`$0`$<1d6?eq*2~a()]ҠΠĠ 4q6_8DH M6 o P a(Πՠ͠ŠҠϠ̠ϠǠ)UVWY?cPa()cP a(ĠĠ٠)cPa()UVW Y~]ҠƧ a()]Ҡ M6 _#q.?6@rM6UVWdY(!! ! ! ! ! !!!!!!!!!                                       ؍% da(ΠŠà)xQ%&"