|Х з Й P├Я╔ ▌ : ╚ : ┐ ,, : а P : └АС "For Most Questions in this program, Type 'Y' or 'N'. Otherwise, read the question. If the Computer displays 'Redo from Start' then type two commas and hit enter. "С "To avoid problems in the Program, press the CAPSLOCK key ": С "and Keep it on throughout the entire program."С%Е "What is Your Name";A$HС "EEEEK! A POWER RANGER! "┬Л A$ ч "" ═ ╣ ■Ф : A ч Е( Иы) : Л A ч ═ A$ ч "Eddie & Billy" :б A$ ч "Computer User"( Л Х( Б(A$,)) ц Z ═ A1$ ч Г(A$,,) : Г(A$,,) ч Ц( Х(A1$)ъ )K П - "CLS" CLEARS THE TV SCREEN\В X ч ╠ -e З R$mГ Xs└┤С"Please enter the number of names to list near the ";:╖ "?"╝Е SэЛ S ц ═ С "Too Much Information" :Й (■В LAMPч ╠ S З R, R$"С R,R$,LAMP%#Г LAMP8(С "RADIUS =";RQ2С "AREA =";├їHВыRэc<В Iч ╠ ▄:ГCCС "Would You, ";A$;", like the program to (1) propmt You to " : С "Continue or Stop on any error, (2) Continue regardless of" : С "any error, or (3) Stop the program and print the error message."gDЕ "Enter 1, 2, 3 - ",ERR.CHOICE╘EЛ ERR.CHOICE ш я ERR.CHOICE ц ═ С "Please, "; A$; ", ";:Й D┌F└ЁPВ TRAPAZOIDч ╠ ZС "Please enter the height then the two"WdС "bases to get the area of the trapazoid. Ex: 1,2,3"cnЕ H,A,BvxС "HEIGHT =";HЙВС "BASE 1 =";AЬМС "BASE 2 =";B║ЦС "AREA ="; АыHы(AщB)└аС╨кГ TRAPAZOIDр┤С "Wheeler"ц╛СЄ╚С LINKA¤╔С "Ok"3╩В KEYS ч ╠ : ╔(KEYS) Х:Х ╔(KEYS) Н ╕ : Г :t╬HITKEY$ ч "Hit any key to continue... " щ ╓(, )и╧В KEYS ч ╠ : ╔(KEYS) Х: Х ╔(KEYS) Н ╕: Г:я╨С A$;:Е ", Would You like to go to the main menu? [Y/n] ",YESORNO$"╥Л YESORNO$ ч "Y" я YESORNO$ ч "y" ═ X :б ╙Z╙╩ ,:С HITKEY$ : ANYKEY$ ч ▐:Л ANYKEY$ ч "" ═ ╙`╘└Е╒Е"Key in a number! ",Dк╓Е"Key in another number! ",E░╫Ст╪С"What do you want to do with these numbers?"E┘Е"(A)dd, (S)ubtract, (M)ultiply, (D)ivide";C$v┌Л C$ ч "A" ═ С D;" + ";E;" = ";DщE:И F ч DщEз█Л C$ ч "a" ═ С D;" + ";E;" = ";DщE:И F ч DщE╪▄Л C$ ч "S" ═ С D;" - ";E;" = ";DъE:И F ч DъE ▌Л C$ ч "s" ═ С D;" - ";E;" = ";DъE:И F ч DъE:▐Л C$ ч "M" ═ С D;" x ";E;" = ";DыE:И F ч DыEk▀Л C$ ч "m" ═ С D;" x ";E;" = ";DыE:И F ч DыEерЛ C$ ч "D" ═ С D;" divided by ";E;" = ";DьE:И F ч DьE▀сЛ C$ ч "d" ═ С D;" divided by ";E;" = ";DьE:И F ч DьEхтС уС"This is called a calculater, ";A$5фС"Do you Wish to continue with ";F;>хЕ B$UцЛ B$ ч "n" ═ Й ■lчЛ B$ ч "N" ═ Й ■~шВ Iч ╠ ╚ :ГДщ└гъС"Previous number: ";┤ыВ Iч ╠ ╚:Г╝ьС F▌эЕ"Key in a number! ",GюС"What do you want to do with these numbers?"rяЕ"(A)dd, (S)ubtract, (M)ultiply, (D)ivide";D$гЁЛ D$ ч "A" ═ С F;" + ";G;" = ";FщG:И F ч FщG╘ёЛ D$ ч "a" ═ С F;" + ";G;" = ";FщG:И F ч FщGЄЛ D$ ч "S" ═ С F;" - ";G;" = ";FъG:И F ч FъG6єЛ D$ ч "s" ═ С F;" - ";G;" = ";FъG:И F ч FъGgЇЛ D$ ч "M" ═ С F;" x ";G;" = ";FыG:И F ч FыGШїЛ D$ ч "m" ═ С F;" x ";G;" = ";FыG:И F ч FыG╥ЎЛ D$ ч "D" ═ С F;" divided by ";G;" = ";FьG:И F ч FьG ўЛ D$ ч "d" ═ С F;" divided by ";G;" = ";FьG:И F ч FьG: °С"Do you Wish to end the calculater, ";A$C ∙Е E$I ·└` √Л E$ ч "n" ═ Й ъw №Л E$ ч "N" ═ Й ъ} ¤└╢ ■С A$ ", would you like to print this program (Y/N)";┐ Е E$ш Л E$ ч "y" я E$ ч "Y" ═ :б Й Z!Е "Make sure the printer is ready. Strike ENTER to Print.",CD~!С "Printing. Please wait....":Ю="С "Let's do a frame. A frame is a story with blanks. You can fill these blanks to make your own story.e"Е "Type a name of a thing. ";H$Х"Е "Type anothter name of a thing. ";I$╛"Е "Type something you get. ";J$я"Е "Type the name of a Cable Company. ";K$ї"С╤#,С H$;"s and ";I$;"s are peaces of equipment that allow you": С"to recieve ";J$;". ";H$;"s can be obtained at the store.": С I$;"s, on the other hand are more complicated peaces of$-С "Equipment, and are only available threw ";K$;". Here's why:"2$.В I ч ╠ ╨:Г:└:И A ч D$/В D ч ╠ (Q$0С A ы ,a$1И A ч A ы i$2Г D|$3В Iч ╠ ▄ :ГО$4└ : Х з Й A╦$5С A$;", do you Wish to see the files on any disk (Y/N)?"╫$6Е DISK$ё$7Л DISK$ ч "Y" ═ Й ;%8Л DISK$ ч "y" ═ Й ;0%9Л DISK$ шц "Y" ═ Х з Й P├:Й ^U%:Л DISK$ шц "y" ═ Х з Й P├:Й ^j%;С "Which Drive";И%<Е N$ : N$ ч N$ щ ":\"╜%=Е "Enter Subdirectory or ENTER for None - ",DIR$2&>Л DIR$ ч "" ═ ■Б N$:Й F :б N$ ч N$ щ DIR$ щ "\":V ч : ■Б N$:Й FЭ&?Л N$ ч "ZORDON" ═ С "Zordon is Evil! Sign out of ";N$;" and press ENTER.":Е "", FF:■Б "b:":Й F'@N$ ч Б(N$, Т(N$)ъV) : П "Rita Repulsa is Evil. ";N$;" and press ENTER.":INPUT "", FF:FILES "b:":GOTO 326Q'AЛ ╒ ч L я ╒ч5 ═ С "Directory ";N$;" not found.":и B}'BС"Please reenter the drive." :Х з Й AЗ'CЙ <н'FС "Directory of "; Б(N$, Т(N$)ъV)╓'GС "Look at another Directory (Y/N)";р'HЕ NN$(IЛ NN$ ч "y" я NN$ ч "Y" ═ V ч : Й ; :б X(JЙ ;'(KЙ G-(L└a(MС "Your Name has"; Т (A$);"Character(s) in it."w(NС "Good Bye, ";A$┴(OС "To Return to DOS, Type SYSTEM. To clear this program, type NEW. "у(PС "Here is another number: ";ь(Q╣ ■Ф)RX ч Е (( Иыd)щ))SС X)TБ#)X└ : Х з Й P├:)YС "Test Program 1"@)ZСF)[СL)\СR)]СВ)^С A$", Please enter three different names."Ц)_Е N1$, N2$, N3$а)`С N1$ж)aС░)bС N2$╢)cС└)dС N3$╩)eС"Ok"т)fВ JAFAR ч ╠ ш:Гш)g└ )hС "Test Program 2"*iС*jС*kС*lС*mС1*nС "Side1 = ";D*oС "Side2 = ";X*pС "Side3 = "; u*qС "Perimeter = ";щщ Н*rВ JAFAR ч ╠ ш:ГУ*s└и*tС"Test Program 3о*uС┤*vС║*wС└*xС╞*y└щ*zС"Who has the Power of Earth?"+{С"(A) Kwame (B) Wheeler"C+|С"(C) Linka (D) Mate (E) Alpha"|+}С"Please enter the letter of your choice near the ";Ж+~╖ "?"Ф+В Iч ╠ в+АЕ ANSWER$└+БС "You entered "; ANSWER$·+ВЛ ANSWER$ ч "a" я ANSWER$ ч "A" ═ С "Correct!" :Й Е(,ГЛ I ч ═ С "Wrong too many times!":Й ЕY,ДЛ ANSWER$ шц "A" ═ С "Wrong, try again!":Г Ir,ЕВ JAFAR ч ╠ ш :Гx,ЖС~,ЗСД,ИСК,ЙСЬ,ОВ Hч ╠ ╕:Гв,П└╟,РС"Cls clears the lousy TV Screen╘,СС H , R$ъ,ТВ X ч ╠ R : Г-УЛ ╒ ч ═ ─ ▓, : и -ХG ч J-▐П Austin St. John will never take My software.P-є└b-ЇВ TIMEч ╠ 2l-ї╩ ,u-ЎС ■ОА-ў╩ ,FЙ-°С ■НФ-∙Г TIME▓-·С "This is the time now!"╓-√С "This is called a Clock, ";A$A.№С A$;:С", do you want to see the clock": С "again for 15 more seconds";K.¤Е MT$c.■Л MT$ ч "N" ═ Й {. Л MT$ ч "n" ═ Й Н.В TIMEч ╠ ╚Ч.╩ ,а.С ■Ол.╩ ,F┤.С ■Н┐.Г TIME╔.╩ ,Ї.С"Do you still want the clock to run";/Е USER$/ Л USER$ ч "N" ═ 0/ Л USER$ ч "n" ═ Q/Е "How many more seconds";SCb/В I ч ╠ SCv/ В H ч ╠ ш:ГА/╩ ,Й/С ■ОС/Г Iв/╩ , : ╣ ■Ф┐/NUMBER ч Е (( Иыш)щ)┼/С¤/С"The Computer has picked a number from 1 to 1000."0С"The number is";NUMBERQ0╩ ,:С HITKEY$ : ANYKEY$ ч ▐:Л ANYKEY$ ч "" ═ W0└`0╣ ■Ф{0PLANETEER ч Е ( Иыe)╕0С "The Computer has picked another Number from 1 to 100"√0С A$", please guess this Number and key it in near the word "; 1╖ "Number"31С "You get only 10 Chances, ";A$;"!"91СN1В GUESS ч ╠ b1 Е "Number - ",CЧ1!Л C ш ═ С"Invalid Number (1-100 Please)":Й ═1"Л C ц d ═ С"Invalid Number (1-100 Please)":Й ¤1#Л C ш PLANETEER ═ С "The Number is Higher!",2$Л C ц PLANETEER ═ С "The Number is Lower!"c2%Л C ч PLANETEER ═ С "You are Right, ";A$;"!":Й +o2&Г GUESSЩ2'С "You have used up all Your Chances"┬2(С "The Correct Number was";PLANETEER·2)╩ ,:С HITKEY$ : ANYKEY$ ч ▐:Л ANYKEY$ ч "" ═ )3*Й X<3+╩ ,:С HITKEY$ : ANYKEY$ ч ▐:Л ANYKEY$ ч "" ═ +B3,└R3X┐ ,, : └]3Y╩ , Й3ZС ╬ );A$", Please choose an activity."д3[С ╬ );"1) Calculater"┼3\С ╬ );"2) Guess the number"ь3]С ╬ );"3) Grade Average Program."4^С ╬ );"4) Math Bee.".4_С ╬ );"5) Print a name backwards."M4`С ╬ );"6) Word Guessing."r4aС ╬ );"7) Advanced Calculater."У4bС ╬ );"8) Number Reverses."о4cС ╬ );"9) Mortgages."╠4dС ╬);"10) Rolling Dice."№4eС ╬);"11) Counting Charaters in a Phrase.",5fС ╬);"12) Bubble Sorts. "[5gС ╬);"13) Search for Name. "}5hС ╬);"14) Christmas Carols."п5iС ╬);"15) Programs using the MOD operator. "─5jС ╬ );"E) End."у5kС ╬ );"R) Return to DOS."6lС ╬ );"T) Set Time and Date."6mС ╬ );)6n░ Е "Choice - ";K$H6oЛ K$ ч "R" я K$ ч "r" ═ ■Гr6pЛ K$ ч "S" я K$ ч "s" ═ Н ╤ : Й YТ6qЛ K$ ч "E" я K$ ч "e" ═ L╝6rЛ K$ ч "T" я K$ ч "t" ═ Н ╒ : Й К╤6vMETROID ч Ф(K$)Б7{Л METROID ш я METROID ц ═ В X ч ╠ 2:Г:─ , В: ╩ , :С ╬ );" ":╩ , : С "Type 1 - 15, R, T, or E":╩ , :Й lы7АХ METROID Н ╘,,╝,,Д,ш,`,м,,р,@, б,,l,Шї7КЙ X8╝П *** Grade Average Program ***8╜└e8╛Е "How many Names would You like to average";NM:Л NM ш ═ NM ч з8┐Ж METROID$(NM),AVERAGE(NM) :С "Enter STOP as a Name to Exit."╕8└В M ч ╠ NMс8┴С "Enter Name";M;:Е "- ",METROID$(M))9┬Л METROID$(M)ч"stop" я METROID$(M)ч"STOP" ═ DE$ ч METROID$(M):Й ╘_9├С "How many Grades do you want for ";METROID$(M);g9─Е NУ9┼С "Please Enter the";N;"one at a time."г9╞В X ч ╠ N└9╟С "GRADE";X;:Е "- ",MARK┘9╚GRADE ч GRADE щ MARKЄ9╔AVERAGE(M) ч GRADEьN°9╩С:╦Г X:╠GRADE ч :═Г MA:╬С "Name";╬);"Average";╬();"Statues"R:╧В G ч ╠ NM╘:╨Л AVERAGE(G) чц Z ═ С METROID$(G);╬);AVERAGE(G);╬();"Honors":Й ╙T;╤Л AVERAGE(G) чц A ю AVERAGE ш Z ═ С METROID$(G);╬);AVERAGE(G);╬();"Pass" :Й ╙Ц;╥Л AVERAGE(G) ш A ═ С METROID$(G);╬);AVERAGE(G);╬();"Fall"Ю;╙Г G╡;╘е METROID$,AVERAGEё;╒Л NM ч ═ ╝ :б Л DE$ ч "STOP" я DE$ ч "stop" ═ О X)<╓╩ ,:С HITKEY$ : ANYKEY$ ч ▐:Л ANYKEY$ ч "" ═ ╓3<╫Й ╝9<╪О?<└l<С A$;", here is some simple Arithmatic."М<П *** Simple Arithmatic ***д< ╩ , : С ╓((," ")н0Л ANSWER ч SUM ═ С "Correct!"щ╓(2, ) : SCORE ч SCORE щ :╩ ,-:С "You have ";SCORE;"points, ";A$;" ": ╩ ,:С ╓(K, ):Й Ъ>1Л Д(SUM) ч ъ ═ 5?2С ╓(, ) : С "Sorry, ";A$;"! The Correct Answer was";SUM(?3SCORE ч SCORE ъ 3?4╩ ,-_?5С "You have ";SCORE;"points, ";A$;" ":Сi?8Й л?9С "Sorry, ";A$;"! The Correct Answer was ";SUM;" "┴?:SCORE ч SCORE ъ ╤?;LOACTE 1,(▌?<С SCOREч??Й ё?@╩ , @AС S;" - ";T;" = ";:@BЕ "",ANSWER1@CDIFFERENCE ч S ъ T┘@DЛ ANSWER ч DIFFERENCE ═ С "Correct!"щ Ш() : SCORE ч SCORE щ :╩ ,-:С "You have ";SCORE;"points, ";A$;" ": ╩ ,:С ╓(K, ) : Й ц@EС Ш()AFЛ Д(DIFFERENCE) ч ъ ═ NJAGС "Sorry, ";A$;"! The Correct Answer was";DIFFERENCE;" "`AHSCORE ч SCORE ъ kAI╩ ,-ХAJС "You have ";SCORE;"points, ";A$;" "ЯAMЙ хANС "Sorry, ";A$;"! The Correct Answer was ";DIFFERENCE;" "√AOSCORE ч SCORE ъ BP╩ ,-+BQС "You have ";SCORE;"points, "A$5BSЙ IBTPRODUCT ч S ы TeBUЛ S ц я T ц ═ oBV╩ ,ЗBWС S;" x ";T;" = ";ЧBXЕ "",ANSWEROR>Л Х(G$) ш [ ю Х(G$) ц @ ═ AДR?Л Х(G$) ш { ю Х(G$) ц ` ═ G$ ч Ц( Х(G$)ъ )╨R@Л G$ ч Ц( ) ═ ╩ , :С ╓((,): ╩ ,:Й :xSAЛ Х(G$) ш A я Х(G$) ц Z ═ ╩ , :С ╓(,) :╩ , : ─ % ,: ┐ : С Ш() : ┐ :╩ ,:Й :БSBС G$ЪSCВ D ч ╠ Т(DUMMY$))TDЛ G$ ч Г(DUMMY$,D,) ═ ╩ , : С ╓(,): ╩ , :─ ▓,:┐ :С G$щ" has already been guessed" : ╩ ,:┐ :Й :1TEГ DJTFDUMMY$ ч DUMMY$ щ G$TTGM ч GlTHЛ G$ ч Ц() ═ ;|TIВ J ч ╠ LрTJЛ Г(WORD$,J,) шц G$ ═ M :б Г(GUESS$,J,) ч G$ыTK╩ , UL┐ ,:С GUESS$:┐ ,:E ч #UM╩ ,( Х(G$)ъAщ)ы-UNС " "5UOГ JяUPG ч G щ :G ч G ъ E:Л G ц M ═ ╩ , :─ 1,: С "Their is no ";G$;щ╓(,) : ╩ , :С MIS$; Gъ;TIM$;Wъ:╩ ,( Х(G$)ъAщ)ы:С G$щ╓(,):╩ ,VQЛ G ч M ═ ╩ ,:С ╓((,): E ч O2VRЛ GUESS$ ч WORD$ ═ G ч W8VS▓DVT╩ , ┬VUЛ GUESS$ ч WORD$ ═ С "Good Guessing, ";A$ :б С "Sorry, ";A$;"! The Word or Name was ";WORD$╥VVDUMMY$ ч ""WW╩ , :С HITKEY$ : ANYKEY$ ч ▐:Л ANYKEY$ ч "" ═ WWXОWYЙ X!W`└@WaЕ"Key in a number ",XFWbСvWcС"What do you want to do with this number?"аWdС"(S)quare Root (E)xponentation"йWeЕ G$пWfС&XgЛ G$ ч "S" я G$ ч "s" ═ Л Д(X) ч ъ ═ С "Imaginary Root":Й ldXhЛ G$ ч "S" ═ С"The Square Root of";X;"is"; З(X):X ч З(X)вXiЛ G$ ч "s" ═ С"The Square Root of";X;"is"; З(X):X ч З(X)YjЛ G$ ч "E" ═ Е "Key in the Exponent ";Y:С: С X;"Raised to the power of";Y;"is"XэY:И X ч XэYФYkЛ G$ ч "e" ═ Е "Key in the Exponent ";Y:С: С X;"Raised to the power of";Y;"is"XэY:И X ч XэYЪYlС╟YmС "This is the Advanced Calculater, ";A$єYnС "Do you want to Continue with ";X;"?"¤YoЕ AN$ZpЛ AN$ ч "N" я AN$ ч "n" ═ X%Zq└CZrС "Previous Number ";KZsС X{ZtС"What do you want to do with this number?"еZuС"(S)quare Root (E)xponentation"оZvЕ G$┤ZwС+[xЛ G$ ч "S" я G$ ч "s" ═ Л Д(X) ч ъ ═ С "Imaginary Root":Й }i[yЛ G$ ч "S" ═ С"The Square Root of";X;"is"; З(X):X ч З(X)з[zЛ G$ ч "s" ═ С"The Square Root of";X;"is"; З(X):X ч З(X) \{Л G$ ч "E" ═ Е "Key in the Exponent ";Y:С: С X;"Raised to the power of";Y;"is"XэY:И X ч XэYЩ\|Л G$ ч "e" ═ Е "Key in the Exponent ";Y:С: С X;"Raised to the power of";Y;"is"XэY:И X ч XэYЯ\}С╨\~С A$;", do you want to end this Calculater?"┌\Е AN$№\АЛ AN$ ч "Y" я AN$ ч "y" ═ X]БЙ q]мY$ ч ""]нG ч "]о└F]пЕ "Please enter a Number - ",X$e]░Л X$ ч "" ═ Z$ ч "00EDDIE"t]▒X ч Ф(X$)О]▓В C ч Т(X$) ╠ ╧ ъ│]│Л Г(X$,,) ч "0" ю C ч ═ ╡═]┤Y$ ч Y$ щ Г (X$,C,)╒]╡Г Cф]╢Y ч Ф(Y$) ^╖С "The Sum of ";X$;" and";Y;"is";XщY^╕Z ч X щ Y*^╣Z$ ч У(Z)H^║Л Т(Z$) ш ═ ╗ :б ╜k^╗Л В (Z$,) ч Г(Z$,,) ═ ├u^╝Й ╛т^╜Л В (Z$,) ч Г(Z$,,) ю Г(Z$,,) ч Г(Z$, Т(Z$)ъ,) ю Г(Z$,,) ч Г(Z$, Т(Z$)ъ,) ═ ├¤^╛X$ ч В(Z$, Т(Z$) ъ ) _┐Y$ ч ""_└G ч G щ *_┴Л G ц ═ ├4_┬Й ▒K_├П Zordon is Evil!Q_┼i_С "Zordon is Evil!"б_╩ ,:С HITKEY$ : ANYKEY$ ч ▐:Л ANYKEY$ ч "" ═ л_Й X╘_П The IBM Personal Computer Mortgage`П Version 1.00 (C)Copyright IBM Corp, Eddie Segoura 1994, 1995a`П Licensed Material - BASIC Programming for the IBM Personal ComputerД`П Mortgage Amorization Program╠`П Built into Program by Eddie Segoura - Tuesday, February 15, 1994.╓`Ч SEGш`SAMPLES$ч"NO"Є`Й aSAMPLES$ч"YES"-a╔ ▌:╚ ,:┐ ,,:└:╩ ,:С "IBM"Pa╩ ,,:С "Personal Computer"}a┐ ,:╩ ,,:С Ц(╒)щ╓(,═)щ Ц(╕)▓a ╩ ,,:С Ц(│)щ" MORTGAGES "щ Ц(│)╪a!╩ ,,:С Ц(│)щ╓(, )щ Ц(│) b"╩ ,,:С Ц(│)щ" Version 1.10 "щ Ц(│)3b#╩ ,,:С Ц(╘)щ╓(,═)щ Ц(╛) c$┐ ,:╩ ,,:С "(C) Copywrite IBM Corp 1981, 1982" : ╩ ,,:С "Due to Memory Conditions, ": CHI$ ч "" : С " Bubble Sort arrays if any were removed.":Л Т(N$()) ═ е N$Ac%┐ ,:╩ ,,:С "Press space bar to continue"Wc&Л ▐ шц "" ═ Й &dc'CMD$ ч ▐}c(Л CMD$ ч " " ═ Й +Шc)Л CMD$ ч Ц() ═ Й 5вc*Й '╞c+┐ ,:└:п P:Ж AMORT(д,):╚ ╥c,Ч SEGч■c-Л ( Ч() ю 0)шц0 ═ COLS ч :Й /d.а P:COLSчd/Ч SEG"d0Й 98d1Л Х(I$)ч ═ 5^d2Л Ф(I$) ш я Ф(I$) ц ═ Й O{d3Л Г(I$,,)ч"2" ═ Й ЗШd4Л Г(I$,,)ч"1" ═ Й R╕d5Л SAMPLES$ шц "YES" ═ Й 7═d6■М "SAMPLES",ш╫d7Н P▌d8ОЎd9П - MAIN OPTION MENU!e:┐ ,:└:┐ ,:С " Mortgage Analysis "Ae;┐ ,:╩ ,:С "Options - "ke<С "1 - Mortgage Payment Comparisons "Нe=С "2 - Mortgage Amorizitions"дe>С "ESC KEY - EXIT"оe?С " "┘e@С "Option Number (1,2, OR ESC) =====>"уeAС " "юeB┐ ,fCС Ц(╔)щ╓(%, Ц(═))щ Ц(╗)KfDС Ц(║)щ" MORTGAGE "щ Ц(║)ЗfEС Ц(║)щ" - Use this option to compare "щ Ц(║)├fFС Ц(║)щ" the monthly payments of "щ Ц(║) fGС Ц(║)щ" mortgages at various rates "щ Ц(║);gHС Ц(║)щ" and principal amounts. "щ Ц(║)wgIС Ц(║)щ" Mortgage Amortizated "щ Ц(║)│gJС Ц(║)щ" - Use this option to calculate "щ Ц(║)яgKС Ц(║)щ" the principle and interest "щ Ц(║)+hLС Ц(║)щ" payed over any 12 month period."щ Ц(║)LhMС Ц(╚)щ╓(%, Ц(═))щ Ц(╝)jhN┐ ,:╩ ,%:С " ":╩ ,%ЧhOI$ч▐:Л I$ч"" ═ O :б С I$; Ц();:Й 1▓hP┐ ,:└:е AMORT:Й XёhQPF ч AFы(RFь(Бъ(Бь((БщRF)эNF)))):ОiRП - mortgage comparisonsKiS┐ ,:└:┐ ,:С " mortgage payment comparison program."]iT╩ ,:┐ ,~iUС Ц(┌)щ╓(%, Ц(─))щ Ц(┐)║iVС Ц(│)щ" MORTGAGE PAYMENT COMPARISONS "щ Ц(│)ЎiWС Ц(│)щ" - USE THIS OPTION TO COMPARE "щ Ц(│)2jXС Ц(│)щ" THE MONTHLY PAYMENTS OF "щ Ц(│)njYС Ц(│)щ" MORTGAGES AT VARIOUS RATES "щ Ц(│)кjZС Ц(│)щ" AND PRINCIPAL AMOUNTS. "щ Ц(│)цj[С Ц(│)щ" "щ Ц(│)"k\С Ц(│)щ" NOTE: TO SELECT A VALUE OR AMOUNT "щ Ц(│)^k]С Ц(│)щ" ENTER THE APPROPRIATE VALUE "щ Ц(│)Ъk^С Ц(│)щ" AND PRESS THE ENTER KEY. "щ Ц(│)╗k_С Ц(└)щ╓(%, Ц(─))щ Ц(┘)яk`╩ ,:░ Е "ENTER BASE MORTGAGE AMOUNT ===> ";B$laA ч Ф(B$):Л A шч ═ Й ]lbAINC ч ╨0lc╩ ,:С ╥&);Qld╩ ,:С "(1 TO 50 PERCENT)";Жle╩ ,:░ Е "ENTER BASE INTEREST RATE =====> ";IR$оlfIR ч Ф(IR$):Л IRц2 я IRш ═ Й c═lgR ч IRь░:RINC ч ╫#xь▀lh╩ ,:С ╥&);■li╩ ,:С "(1 TO 50 YEARS)";2mj╩ ,:░ Е "ENTER NUMBER OF YEARS IN MTG => ";Y$AmkY ч Ф(Y$)PmlN ч Y ы [mmNF ч NwmnЛ NFцX я NFш ═ Й h}mo└▓mp┐ ,:С " MONTHLY MORTGAGE PAYMENT COMPARISONS "шmq┐ ,:╩ , :С Y$щ"-YEAR MORTGAGE LOAN AMOUNTS";nr╩ ,:С "RATES";:┐ ,nsВ I ч ╠ COLS?nt╩ ,щIы:С ╥):╩ ,щIы:С AщIыAINCGnuГ IXnvВ I ч ╠ rnw╩ щI,:С ╥):╩ щI,дnxС ╫ "##.##"; Е(((Rщ(IыRINC))ы`jС)щА)ьdмnyГ I╖nz┐ ,╚n{В I ч ╠ хn|RF ч RщIыRINC:AFч:Н Q°n}В J ч ╠ COLS&o~P ч PFы(AщJыAINC):P ч Е((Pщ╫#y)ыd)ьdqoЛ Pц' ═ ╩ ,:С "PAYMENTS TOO LARGE TO DISPLAY": Й ДТoА╩ щI,щJы:С ╫ "####.##";P;ЪoБГ JвoВГ IмoГС " "╤oДС "PRESS SPACE BAR TO CONTINUE";шoЕЛ ▐ шц " " ═ Й Е№oЖе AMORT : Й +pЗП - mortgage amortization$pИ┐ ,*pЙ└4pК┐ ,>pЛ╩ ,fpМС " MORTGAGE AMORTIZATION PROGRAM "xpН╩ ,:┐ ,ЩpОС Ц(┌)щ╓(%, Ц(─))щ Ц(┐)╒pПС Ц(│)щ" MORTGAGE AMORTIZATION "щ Ц(│)qРС Ц(│)щ" - USE THIS OPTION TO CALCULATE "щ Ц(│)MqСС Ц(│)щ" THE PRINCIPAL AND INTEREST "щ Ц(│)ЙqТС Ц(│)щ" PAID OVER ANY 12 MONTH PERIOD. "щ Ц(│)┼qУС Ц(│)щ" "щ Ц(│)rФС Ц(│)щ" NOTE: TO SELECT A VALUE OR AMOUNT "щ Ц(│)=rХС Ц(│)щ" ENTER THE APPROPRIATE VALUE "щ Ц(│)yrЦС Ц(│)щ" AND PRESS THE ENTER KEY. "щ Ц(│)ЪrЧС Ц(└)щ╓(%, Ц(─))щ Ц(┘)дrШ╩ ,═rЩ░ Е "ENTER MORTGAGE AMOUNT ===> ";C$юrЪAF ч Ф(C$): Л AF шч ═ Х°rЫ╩ ,(sЬС " ";2sЭ╩ ,MsЮС "(1 TO 35 PERCENT)";WsЯ╩ ,Бsа░ Е "ENTER INTEREST RATE =====> ";IR$ТsбIR ч Ф(IR$)жsвЛ IRц# ═ Й Ы╣sгЛ IRш ═ Й Ы╔sдRF ч IRь░╙sе╩ ,tжС " "; tз╩ ,&tиС "(1 TO 35 YEARS)";0tй╩ ,Ytк░ Е "ENTER NUMBER OF YEARS ===> ";Y$htлY ч Ф(Y$)xtмNF ч Y ы НtнЛ NFцд ═ Й еаtоЛ NFш ═ Й екtпН Q╚t░PF ч Е((PFщ╫#y)ыd)ьdюt▒С "MONTHLY PAYMENTS ARE ====>";PF∙t▓┐ ,u│С "CALCULATING AMORTIZATION"%u┤┐ ,9u╡Л NFц$ ═ Й ╖Ou╢В I ч ╠ ш:Г Icu╖AMORT(,) ч AFtu╕В I ч ╠ NFзu╣AMORT(I,) ч Е((AMORT(Iъ,)ыRFщ╫#y)ыd)ьd╙u║AMORT(I,) ч AMORT(Iъ,)ъPFщAMORT(I,)█u╗Г I■u╝В I ч ╠ :╩ I,:С ╥');:Г Iv╜╩ ,v╛С " - 1 TO"щ У(NF)Av┐С " - 0 TO END AMORTIZATION";Kv└╩ ,rv┴С "ENTER BEGINNING PAYMENT NUMBER"аv┬░ Е "OF 12 MONTH PERIOD ======> ";PERIOD$┤v├PDч Ф(PERIOD$)╩v─Л PD шц ═ Й ╞чv┼Л PERIOD$ шц "0" ═ Й └·v╞Л PDч ═ Й 0w╟Л PDцNF ═ Й └!w╚Л PDш ═ Й └+w╔╩ ,6w╩С ╥')Aw╦С ╥')Kw╠╩ ,yw═С "PYMNT PRINCIPAL INTEREST BALANCE"Жw╬TINT ч Ыw╧В I ч PD ╠ PDщпw╨Л Iц NF ═ Й ╘╠w╤TINT ч TINT щ AMORT(I,)▐w╥С ╫ "### ";I;x╙С ╫ " ######.##";PFъAMORT(I,);AMORT(I,);AMORT(I,) x╘Г I*x╒С " "Mx╓С "INTEREST FOR 12 PERIODS =";gx╫С ╫ "######.## ";TINTrx╪╩ ,Чx┘С "PRESS SPACE BAR TO CONTINUE";бx┌╩ ,,╖x█Л ▐ шц "" ═ Й █─x▄CMD$ ч ▐▌x▌Л CMD$ ч " " ═ Й ╝°x▐Л CMD$ ч Ц() ═ Й 5y▀Й ▄yр┐ ,,yс└ yт╩ , \yуС ╬ )"1) Roll the dice and see if Your Numbers match."ЭyфС ╬ );"2) Pick a number and roll a die a number of times to┌yхС ╬ );" to see how many times your number is rolled."ёyцС ╬ )" choice";zч░ Е " - ",C$()УzшЛ Ф(C$()) ш я Ф(C$()) ц ═ ─ ▓,:╩ ,: С ╥):╩ ,:┐ :С ╬ ) "Type 1 or 2!": ┐ :╩ ,:Й цнzщХ Ф(C$()) Н ь,¤╣zъ┐ ,,┐zыО┼zь└фzэЕ "Enter a Number - ",C() {юЕ "Enter another Number - ",C(){яС2{ЁС "You picked";C();"and";C()╘{ёЛ C() ш я C() ц я C() ш я C() ц ═ ╩ ,:─ ▓,: ┐ :С " ";╓(,);"Invalid Number(s)": ┐ :╩ ,:Й э :б С ╥):С▌{Є╣ ■Фє{єD() ч Е( Иы)щ |ЇD() ч Е( Иы)щB|їС "YOU ROLLED A";D();"AND A";D();" "д|ЎЛ C() ч D() ю C() ч D() ═ С A$;" wins!":Й √}ўЛ C() ч D() ю C() ч D() ═ С A$;" wins!":Й √З}°Л C() ч D() я C() ч D() ═ С "On of Your numbers matched. It's a tie!":Й √~∙Л C() ч D() я C() ч D() ═ С "On of Your numbers matched. It's a tie!":Й √(~·С "Sorry, ";A$". You lose!"`~√╩ ,:С HITKEY$ : ANYKEY$ ч ▐:Л ANYKEY$ ч "" ═ √f~№ОВ~¤└:Е "How many rolls";RL▓~■░ Е "Enter a Number from 1-6 please - ",BM$├~ BM ч Ф(BM$)QЛ BM ш я BM ц ═ ─ ▓,:┐ : С ╥);╓(,);"Enter a Number from 1-6.";╓(,): ┐ :Й ■Z╣ ■ФkВ X ч ╠ RLDI ч Е( Иы)щЫЛ BM ч DI ═ T2 ч T2 щ гГ Xх С "Out of";RL;"rolls of a die, a";BM;"was rolled";T2;"times."А ╩ ,:С HITKEY$ : ANYKEY$ ч ▐:Л ANYKEY$ ч "" ═ (АT2 ч .АОfА ╩ ,:С HITKEY$ : ANYKEY$ ч ▐:Л ANYKEY$ ч "" ═ lАОrАОxА@└ЮАAС "Color Test for the Planeteers"пАBВ X ч ╠ ╖АC┐ X╠АDС "Planeteers";X╘АEГ X▄АF┐ √АGС "Please enter a String."БHЕ PH$6БIЕ "What character do you want to count"; CH$LБJВ X ч ╠ Т(PH$)pБKЛ Г(PH$,X,) ч CH$ ═ C ч C щ xБLГ X╕БMЛ C ч ═ С "Their are no ";CH$; "'s in the string:":Й P√БNЛ C ч ═ С "Their is only one ";CH$; " in the string:":Й P(ВOС "Their are"; C; CH$"'s in the string:"2ВPС PH$oВQС Б(HITKEY$, Т(HITKEY$)ъ):ANYKEY$ч▐:Л ANYKEY$ч"" ═ QyВRC ч ВSОЕВбМЛВв└зВгЛ CHI$ ч "ERASE" ═ е N$╥ВдЕ "How many Names do You wanna sort";NюВеП Read Name into array%ГжЛ N ч ═ DA$ ч "45E" : N ч Ф(DA$) : Й з :б н1ГзЖ N$(N)AГиВ I ч ╠ NMГйЗ N$(I){ГкЛ Т(N$(I)) ш ═ N$(I) ч N$(I) щ " "ГГлГ IНГмЙ ┤┤ГнС "Enter the names one at a time."└ГоЖ N$(N)╨ГпВ X ч ╠ N▄Г░Е N$(X) Д▒Л Т(N$(X)) ш ═ N$(X) ч N$(X) щ " "Д▓Г XД│└5Д┤TITLE$ ч "Unsorted Data"HД╡A ч : B ч RД╢Н ─nД╖П Bubble Sort Routine!tД╕ПЬД╣╩ ,< : ┐ : С "Sorting....":┐ оД║В X ч ╠ Nъ┼Д╗В Y ч N ╠ Xщ ╧ ъ Е╝Л N$(Y) ш N$(Yъ) ═ TEMP$ ч N$(Y):д TEMP$,N$(Yъ):N$(Y) ч TEMP$Е╜Г YЕ╛Г X,Е┐A ч : B ч GЕ└TITLE$ ч "Sorted Data"MЕ┴└WЕ┬Н ─aЕ├Й ╤gЕ─П~Е┼П Output the DATAДЕ╞ПОЕ╟╩ A,BЫЕ╚С TITLE$бЕ╔С▒Е╩В Y ч ╠ N╩Е╦Л Т(N$(Y)) ц ═ СхЕ╠С "Name";Y;"- ";N$(Y),эЕ═Г YЖ╬В X ч ╠ · : ╩ ,:С X:ГEЖ╧╩ ,(:С HITKEY$ : ANYKEY$ ч ▐:Л ANYKEY$ ч "" ═ ╧KЖ╨О^Ж╤CHI$ ч "ERASE"dЖ╙МjЖ╘ОpЖ╒└РЖ╓П *** Time Set Routine ***ЮЖ╫Х з Й ъ║Ж╪С "Current Date is ";■НфЖ┘Е "Enter a new Date (mm-dd-yy) - ",D$З┌Л D$ ч "" ═ ▄ :б ■Н ч D$"З▄С "Current Time is ";■О;".AЗ▌Е "Enter a new time - ",T$`З▐Л T$ ч "" ═ р :б ■О ч T$vЗ▀В X ч ╠ ш : ГДЗрХ з Й P├ЫЗсО : PROFESSOR HART╩ЗъЛ ╘ ч ┌ ═ ER$ ч "Date." :б ER$ ч "Time."╨ЗыС№ЗэЛ ╒ ч ═ С "Please enter a valid ";ER$ИюЛ ╘ ч ┌ ═ и ┘ :б и ▌!И└TИ С "This will check for a name "ШИ С "In the Array of names You made in the Bubble Sorts program."┐ИЕ "Hit any Key to Continue",ARRAY$RЙЛ CHI$ шц "ERASE" ═ С "Array Not found. Create an Array using in Bubble Sorts.":Й :БЙ Е "Which name would You like to find"; NA$ЩЙFLAG$ ч "Not Found"гЙL ч нЙH ч N╚Й▒щ FLAG$ ч "Not Found"рЙM ч Е((L щ H) ь )КЛ Г(N$(M),,) ч " " ═ N$(M) ч Б(N$(M),):JКЛ Г(N$(M),,) ч " " ═ N$(M) ч Б(N$(M),):КЛ Г(N$(M),,) ч " " ═ N$(M) ч Б(N$(M),):┤КЛ Г(N$(M),,) ч " " ═ N$(M) ч Б(N$(M),):рКЛ NA$ ч N$(M) ═ FLAG$ ч "Found" : Й ЛЛ NA$ ц N$(M) ═ L ч M щ :б H ч M ъ 5ЛЛ L ц H ═ FLAG$ ч "not in the Array.";Л▓zЛЛ FLAG$ ч "not in the Array." ═ С NA$;" is ";FLAG$ : Й ╣ЛС "I Found ";NA$ ;" as the Name Number";M;"in the Array. "ЇЛС "Would You, ";A$;", like to find another Name";:Е Q$!МЛ Q$ ч "Y" я Q$ ч "y" ═ С : Й :б :7М:В X ч ╠ ш : Г=МkОCМl└┤Мm┐ ,, : ╔() Х : Х ╔() Н : ╩ , : С "Press [F1] to cancel any song."щ╓(,):╩ ,хМnС "WHICH CHRISTMAS CAROL DO YOU WANNA HEAR?"НoС " 1) We wish You a Merry Christmas."/НpС " 2) Oh Christmas Tree!"NНqС " 3) Deck the Halls "xНrС " 4) The Twelve days of Christmas."╗НsС " 5) Jingle Bells." : С " 6) Silent Night." : С " 7) Exit."╟НtС "? ";╙Нu░ Е SE$¤НvЛ Ф(SE$) ш ═ С "?REENTER ": Й t'ОwЛ Ф(SE$) ц ═ С "Enter 1-7.": Й tИОxЛ Ф(SE$) ч ═ ▒щ DAY$() ч "First" : е DAY$, MUSIC$, CH$ : ▓ : Х ╔() Н ╠ : Й X┤ОyХ Ф(SE$) Н {,С,╜,╙,к,╕,%╛ОzЙ lшО{└ : С "We wish You a Merry Christmas"П|■У "T180 O2 L4 E- A- L8 A- B- A- G L4 F F"=П}С "We wish You a Merry Christmas"gП~■У "F b- l8 b- o3 c o2 b- a- l4 g e-"НПС "We wish You a Merry Christmas"╝ПА■У "l4 e- o3 c l8 c d- c o2 b- l4 a- f l8"┘ПБС "And a Happy New Year"№ПВ■У "L8 E- E- L4 F B- G L4 A-."+РГС "Good timings for You wherever You are."zРД■У "t180 l4 e- a- a- a- l2 g l4 g a- g f l2 e-":П┘l4 b- o3 c l8o2b-b-a-a-"▓РЕС "Good timing for CHRISTMAS and a happy New Year."СЖ■У "t180 o2 l4 b- o3 c l8 o2 b- b- a- a- o3 l4 E- O2 E- L8 E- E- L4 F B- G L3 A-."BСЗС "We wish You a Merry Christmas"qСИ■У "T180 O2 L4 E- A- L8 A- B- A- G L4 F F"ЧСЙС "We wish You a Merry Christmas"┴СК■У "F b- l8 b- o3 c o2 b- a- l4 g e-"чСЛС "We wish You a Merry Christmas"ТМ■У "l4 e- o3 c l8 c d- c o2 b- l4 a- f l8"3ТНС "And a Happy New Year"VТО■У "L8 E- E- L4 F B- G L4 A-."`ТПЙ lsТР:П┘VAR A :RealyТС└ХТТС "Oh! Christmas Tree!"▌ТУ■У "o2 t120 l4 c l8 f. l16 f l4 f":П┘ g l8 a. l16al4a.l8agal4b-egf"∙ТФС "Oh! Christmas Tree!"#УХ■У "O2 T120 L4 G L8 A. L16 A L4 A. "IУЦС "How lovely are Your branches."oУЧ■У "O2 T120 L8 A G A L4 B- E G F"ЭУШС "Your shining star and twinkling light"ФЩ■У "O2 T120 L8 N0 O3 C C O2 A O3 L4 D. L8 C C O2 B- L4 B-. L8" :П┘LAY "b-b- "'go3l4c.l8o2b-b-al4ac"CФЪС "They gently glow throughout the night.{ФЫ■У "O2 T120 L8 B- B- G O3 L4 C. L8 O2 B- B- A L4 A"ЧФЬС "Oh! Christmas Tree!"▀ФЭ■У "o2 t120 l4 c l8 f. l16 f l4 f":П┘ g l8 a. l16al4a.l8agal4b-egf"√ФЮС "Oh! Christmas Tree!"%ХЯ■У "O2 T120 L4 G L8 A. L16 A L4 A. "KХаС "How lovely are Your branches."qХб■У "O2 T120 L8 A G A L4 B- E G F"wХвО╢ХгNOTE$() ч "o2t100l4cl8f.l16fl4fgl8a.l16al4a.l8agal4b-egf"эХдNOTE$() ч "cl8f.l16fl4fgl8a.l16al4a.l8agal4b-egf"5Це■У "l8n0o3cco2ao3l4d.l8cco2b-l4b-.l8b-b-go3l4c.l8o2b-b-al4ac"kЦжNOTE$() ч "l8f.l16fl4fgl8a.l16al4a.l8agal4b-egf"СЦзС "We wish You a Merry Christmas"▌Ци■У "t100 l4 e- a- a- a- l2 g l4 g a- g f l2 e- l4 b- o3 c l8o2b-b-a-a-"$Чй■У "o3l4e-o2e-l8e-e-l4fb-gl2a-l4e-a-l8a-b-a-gl4fffb-l8b-o3co2b-a-"lЧк└ ::П┘TE$(2) = "cagfl4cl8n0ccagfl4dl8n0ddb-ago3ccccdco2b-gl4f.l8n0"¤ЧлС "Dashing through the Snow," : ■У "O2 T120 L8 C A G F C" : С "In a one horse open sleigh," : ■У "P10 L16 C C L8 C A G F D" :ОШмС "Over the fields we go," : ■У "P10 D D B- A G O3 L4 C l8" : С "Laughing all the way." : ■У "P10 C C O2 B- G L4 A. L8" :ЩнС "Bells on Bobtales ring," : ■У "O2 C A G F L4 C L8" : С "Making spirits bright." : ■У "P10 C A G F L4 D L8" :йЩоС "What fun it is to ride and sing and sleighing some tonight." : ■У "P10 D D B- A G O3 C C C C D C O2 B- G L4 F. L8 P10"АЪпС "Jingle Bells" : ■У "A A L4 A L8" : С "Jingle Bells" : ■У "A A L4 A L8" : С "Jingle all the way." : ■У "A O3 C O2 F. L16 G L4 A. P10 l8".Ы░С "Oh what fun it is to ride on a one horse open sleigh." : ■У "B- B- B-. L16 B- L8 B- A A L16 A A L8 A G G A L4 G" : ■У "O3 C O2 L8"Ь▒С "Jingle Bells" : ■У "A A L4 A L8" : С "Jingle Bells" : ■У "A A L4 A L8" : С "Jingle all the way." : ■У "A O3 C O2 F. L16 G L4 A. P10 l8"ЬЬ▓С "Oh what fun it is to sing all the way to Professor Hart's Lab!" : ■У "B- B- B-. L16 B- L8 B- A A L16 A A L8 O3 C C O2 B- G L4 F. L8 N0"╘Ь│О : :П┘TE$(5) = "l8aal4al8aal4al8ao3co2f.l16gl4an0"Э┤TE$() ч "l8b-b-b-.l16b-l8b-aal16aal8o3cco2b-gl4f.l8n0" Э╡В G ч ╠ .Э╢■У TE$(G)4Э╖ГпЭ╕└ :С "Silent Night," : ■У "T80 O2 L8 F. L16 G L8 F L4 D.": С "Holy Night," : ■У "L8 F. L16 G l8 F L4 D."4Ю╣С "All is Calm," : ■У "L4 > C L8 C < L4 A." : С "All is Bright." : ■У "L4 B- L8 B- L4 F. " :╝Ю║С "Round Your Version of Mother and Child." : ■У "L4 G L8 G B-. L16 A L8 G F. L16 G L8 F L4 D L8 N0"ЯЯ╗С "Holy Infant so Tender and Mild." : ■У "L4 G L8 G B-. L16 A L8 G F. L16 G L8 F L4 D L8 N0" : С "Sleep in Heavenly Piece.":■У "L4>C L8 C E-.L16CD. L8 N0",а╝С "Sleep in Heavenly Peace.": ■У "O2 B-. L16 F L8 D F. L16 E- L8 C O1 L4 B-. B- L8 N0" : Оaа╜Е "(S)low version or (F)ast version";S.OR.F$ : └Ца╛Е "(S)low version or (F)ast version";S.OR.F$ : └╫а┐Л S.OR.F$ ч "F" я S.OR.F$ ч "f" ═ S.OR.F ч ▄ :б S.OR.F ч а б└С CENTER 1, "DECK THE HALLS WITH BELLS OF HOLLY,";б┴■У "T"щ У(S.OR.F)щ"O3L4D. L8C < L4BAGABG"jб┬С CENTER 2, "FA LA LA LA LA, LA LA LA LA;"Сб├■У "L8AB >C L4D. L8C C L4C L8C L4D C# L4D L8EF# L4G L4F#E L2D"г╠С CENTER 7, "TROLL THE ANCIENT YULE TIDE CAROL"-г═■У "L4D. L8C L8EEEE L4D. L8C ╛j├Л ╒ ч ═ ER$ ч "Out of Keys " :Й С├y╛k├Л ╒ ч ═ ER$ ч "WHILE without WEND " :Й С├┤╛l├Л ╒ ч ═ ER$ ч "WEND without WHILE " :Й С├я╛m├Л ╒ ч 2 ═ ER$ ч "FIELD override " :Й С├*┐n├Л ╒ ч 3 ═ ER$ ч "Internal Error " :Й С├e┐o├Л ╒ ч 4 ═ ER$ ч "Bad file number " :Й С├а┐p├Л ╒ ч 5 ═ ER$ ч "File not found " :Й С├█┐q├Л ╒ ч 6 ═ ER$ ч "Bad file mode " :Й С├└r├Л ╒ ч 7 ═ ER$ ч "File already open " :Й С├Q└s├Л ╒ ч 9 ═ ER$ ч "Device I/O Error " :Й С├М└t├Л ╒ ч : ═ ER$ ч "File already exists " :Й С├╟└u├Л ╒ ч = ═ ER$ ч "Disk Full " :Й С├┴v├Л ╒ ч > ═ ER$ ч "Input past End " :Й С├=┴w├Л ╒ ч ? ═ ER$ ч "Bad record number " :Й С├x┴x├Л ╒ ч @ ═ ER$ ч "Bad file Name " :Й С├│┴y├Л ╒ ч B ═ ER$ ч "Direct statement in file " :Й С├ю┴z├Л ╒ ч C ═ ER$ ч "Too many files " :Й С├)┬{├Л ╒ ч D ═ ER$ ч "Device Unavailable " :Й С├d┬|├Л ╒ ч E ═ ER$ ч"Communication buffer override ":Й С├Я┬}├Л ╒ ч F ═ ER$ ч "Disk Write Protected " :Й С├┌┬~├Л ╒ ч G ═ ER$ ч "Drive not Ready " :Й С├├├Л ╒ ч H ═ ER$ ч "Disk media Error " :Й С├P├А├Л ╒ ч I ═ ER$ ч "Advanced Feature " :Й С├Л├Б├Л ╒ ч J ═ ER$ ч "Rename Across Disks " :Й С├╞├В├Л ╒ ч K ═ ER$ ч "Path/File access Error " :Й С├─Г├Л ╒ ч L ═ ER$ ч "Directory not found " :Й С├<─Д├Л ╒ ч M ═ ER$ ч "Deadlock " :Й С├w─Е├Л ╒ ч N ═ ER$ ч "Wrist communcator Error " :Й С├▓─Ж├Л ╒ ч O ═ ER$ ч "Out of stack space " :Й С├╤─Р├ER$ ч "Unprintable Error "ё─С├Л С(X) ш я С(X) ц ═ С┼Ф├Л ╘ ц ∙ ═ С ER$:Б :б С ER$"in";╘?┼Х├Л ERR.CHOICE ч ═ С "Ok " : Й Ш├Z┼Ц├Л ERR.CHOICE ч ═ и Гx┼Ч├Л ERR.CHOICE ч ═ Б :б Б~┼Ш├С╣┼Щ├Л ╒ ч н ═ ER$ ч "To sign in, type the number [6086]"╧┼Ъ├С "Error Code.";╒э┼Ы├С "(A)bort, (I)gnore - ";·┼Ь├CNT$ ч ▐╞Э├Л CNT$ ч "" ═ Ь├4╞Ю├Л CNT$ ч "I" я CNT$ ч "i" ═ и ГX╞Я├Л CNT$ ч "A" я CNT$ ч "a" ═ Lx╞а├Л CNT$ ч Ц( ) ═ С : Й Ы├Г╞б├С CNT$Н╞в├Й Ы├q╟`ъД KWAME,WHEELER,LINKA,"MATE",ALPHA,"DONKEY KONG","DIDDY KONG", "CANDY KONG","EDDIE SEGOURA","BILLY YOST","BARBARA DOLGINS", "FIOR 6097","HmArOnE PASSWORD","WALTER Z. JONES","RYAN STEEL"╚aъД "ROBERT STEAL","KAITLIN STAR","FUNKY KONG","CAPTAIN GAMEPLAY", "SAMUS ARAN","KIMBERLY JOHNSON","J.B REESE",TRAVIS YOUNGER,BENEATHA▐╚bъД "CRANKY KONG",MARIO,LUIGI,HASHEM,JEB,JAFAR,ZORDON,GRIMLORD, "KING K. ROOL",PROFESSOR HART,"RITA REPULSA",BOWSER,IAGO,LINK, ZELDA,DENNIS,BEAKMAN,PETER,RAY,WINSTON,EGON╡╔cъД 10,KWAME,20,WHEELER,30,LINKA,40,ALPHA,50,MATE,325,JAFAR,3,Aladdin, 4,Rita Repulsa,64564,Zordon,10,Kwame,500,Earth,10,Wheeler,650,Fire, 25,Linka,300,Wind,30,Alpha,150,Water,35,Mate,50,ChessЫ╩dъД ROUTINE,TRAVEL,PLANETEERS,METROIDS,YES,NO,ON,OFF,IMPRESSED,MIRACLE, NETWORK,COOKIE,AQUARIUM,CONSTRUCT,DIRECTORY,SUBDIRECTORY,DOS,HUNTER, BYTES,BINARY SYSTEM,HARD DRIVE,MICROSOFT WINDOWS,DELETE,PRINTERГ╦eъД PAPER,MEMORY,COOK,LOOP,ROLLER COASTER,MERRY GO ROUND,MARINE,BIOLOGY, VOLCANO,LAVA,HEAT,COLD,COOL,CAMOFLAUGE,ADAPTATIONS,BREAD,FOOD,HOT, BARREL,JUNGLE,CAVE,CAVES,MINE,GOLD,INDUSTRY,POND,LAKE,CAVERN,MAZEi╠fъД LOST,FOUND,OBJECT,TREASURE,SIGN OUT,SIGN IN,PUNCH,JUICE,COURT, MYSTERY,FICTION,CREATIVE,COOK BOOK,DOCUMENT,JUSTIFY,HEADER,FOOTER, EXIT,AUTOMATIC,MARGIN,CENTER,JUSTIFICATION,WORD PROCESSING,CAREO═gъД ALLOCATION,FILE,CLOSE,OPEN,OPTIONS,SAVE,WAIST,WASTE,DRIVE IN,SOFT, SHARP,NORMAL,MENU,PRINT SHOP,GOSSIP,DOG,CAT,HORSE,ARMADILLO,GERBIL, HAMSTER,STARFISH,SHARK,BIRD,CAMEL,ZEBRA,DOLPHIN,WHALE,MOBY DICK9╬hъД SNAKE,PET SHOP,REPTILE,CROCODILE,ALLIGATOR,ICE CREAM,WITCH,BITE, ROSE,VALENTINE,ACE,DECK,CARDS,JACK,CLUBS,SPADES,HEARTS,DIAMONDS, SUIT,SNOWBOUND,DRIVE,ROAD,SIGN,KICK,SNOW,RAIN,CALCULATER,ANGLE,LINE!╧iъД TABLE,DESK,WALL,CEILING,BEDROOM,BATHROOM,KITCHEN,GARAGE,CAR, AUTOMOBILE,TRUCK,LIMOSINE,TAXI CAB,TRAILER,WATCH,TIME,CLOCK, COMMUNICATOR,COMMUNITY,"THE UNITED STATES OF AMERICA",COMMUNICATE╨jъД POOR,MISERABLE,CONTEMPLATE,RIBBON,MEDAL,METAL,METALLIC,ATOM,BOMB, THRONE,THROWN,BALL,GOLF,TENNIS,BASEBALL,HOCKEY,HOTEL,ARUBA,CASINO, GAMBLE,FUN,WIN,MONEY,CHANCES,BLACKJACK,ROULETTE,POKER,SLOTS,FISHэ╨kъД BACCARAT,BINGO,NUMBER,CALLER,POT,MOVE,ROOK,BISHOP,SLEEP,KNIGHT, PAWN,CHECKMATE,BALANCE,BANK,FINANCE,MOLECULES,CHEMICALS,INERTIA, MOVEMENT,MATTER,MASS,WEIGHT,WAIT,WEATHER,ATMOSPHERE,LAUGH,DEBT╤╤lъД DOUBT,HEAD,MIND,BRAIN,SPINAL CORD,NERVOUS SYSTEM,FEELINGS,DEAL, BROOKLYN,THEATRE,SHIP,BOAT,SPEED,BUS,TERMINAL,BICYCLE,AIRPLANE, AIRPORT,RUNWAY,CONTROL PANEL,PILOT,BASIC,FORTRAN,FORTRESS,DAY╣╥mъД NEWS,CANDIDATES,ELECTION,POLITICS,PRESIDENT,PRESENT,GIFT,GIVE, GOVERNER,MAYOR,THANKSGIVING,TURKEY,FESTIVAL,PARTY,HOLIDAY,HIGH, LOW,SOLITARE,PUZZLE,PERPLEX,TWIST,CONFUSE,COMPARE,CLASSIC,PAC MANЮ╙nъД HOUSE,TREE,QUEEN,KING,VIRTUALIZER,GAME,WHEEL,TELEVISION,MOVIE, CHRISTMAS,CHANUKAH,HALLOWEEN,YOM KIPPUR,PASSOVER,EASTER,NIGHT, NEW YEARS DAY,POWER MORPHER,PLANETEER RING,KEYBOARD,DISK DRIVEБ╘oъД SUPER,GOOD,PHENOMENAL,EXCELLENT,HAPPY,SAD,SUPERB,TALENTED,SMART, NEW,OLD,FREE,EXPENSIVE,MORE,LESS,STORE,SCHOOL,BUILDING,IMAGINATION, VIVID,WONDERFUL,NICE,MEAN,DANGEROUS,TITLE,AUTHOR,AUDIO,VIDEOg╒pъД ERROR,METROID,VENUS,MIGHTY MORPHIN POWER GENIES,MERCURY,MARS, SATURN,JUPITER,URANUS,NEPTUNE,PLUTO,SUN,MOON,STARS,WHEEL OF FORTUNE, JEOPARDY,DISNEY,MICKEY MOUSE,ORLANDO FLORIDA,THE DISNEY CHANNELK╓qъД MATH,SCIENCE,HISTORY,READING,THE PRICE IS RIGHT,THE MAGIC BOX, BOOKS,BOOK,LOOK,RUN,JUMP,CASSETTE,RECORD,PLAY,STOP,FAST FORWARD, REWIND,RADIO,Z100,MIX 105,WPLJ,CABLE TV,CONVERTER,ELECTRONICSр╓rъД KWAME,WHEELER,LINKA,MATE,EARTH,FIRE,WIND,CHESS,PLANETEER,WISHES, NINTENDO,SAMUS,ALADDIN(╞RED,WILMA,WATER,COMPUTERS,"MAGIC LAMP"h╫0ЄД "A Sony Under the Tree.", "First", "O2 L8 A A+ O3 L4 C L08 D O2 B- A F L04 G F P03 "╙╫1ЄД "Two Turtle Doves,","Second", "L4 G L8 E D C P25 ":╪2ЄД "Three French Hens,","Third", "L4 A+ D F P25 "й╪3ЄД "Four Calling Birds,","Fourth", "L8 O3 C O2 B A G l6 F "!┘4ЄД "Five Magic Rings,","Fifth", "O3 L02 C L04 D O2 B O3 L2 C P10"С┘5ЄД "Six Planeteers,","Sixth", "O3 L04 C O2 L8 G A l4 B-" ┘6ЄД "Seven Metroids,","Seventh", "O3 L08 C C O2 L4 G B-"p┌7ЄД "Eight Nintendo Games,","Eighth", "O3 L08 C C O2 G A B- P15"р┌8ЄД "Nine Bells of Holly,","Ninth", "O3 L04 C O2 L8 G A B- G"P█9ЄД "Ten Power Genies, ", "Tenth", "O3 L04 C O2 L8 G A B- G"╦█:ЄД "Eleven Power Morphers, ","Eleventh", "O3 L07 O2 A+ O3 L8 C C O2 G A B- G":▄;ЄД "Twelve Ladies Dancing,", "O3 L08 C C O2 G A B- G"Ж▄ш¤П Free Software. Bunch of Programs all built into one by Eddie Segoura┼▄щ¤П Programs are: [BASIC Commands and Functions used]Р▌ъ¤П Programs Intro [CLS, PRINT, INPUT, FOR-NEXT, READ-DATA, IF-THEN, LEFT$(A$,X), MID$(A$,X,Y), RIGHT$(A$,x), ASC(A$), CHR$]╦▌ы¤П Calculator [PRINT, INPUT, IF-THEN,+,-,*,/]№▌ь¤П Directory List [PRINT, INPUT, FILES]F▐э¤П Number Guessing [PRINT, RANDOMIZE TIMER, RND, FOR-NEXT, INPUT]╗▐ю¤П Main Menu [CLS, PRINT, LINE INPUT, ON..GOSUB, RETURN, IF-THEN]D▀я¤П Grade Average [CLS, PRINT, INPUT, FOR-NEXT, DIM, {Subscriped Variables},ERASE]М▀Ё¤П Math Problems [CLS, LOCATE, PRINT, INPUT, IF-THEN,+,-,*,/)╬▀ё¤П String Reverse [PRINT, INPUT, FOR-NEXT, MID$(A$,x,y)]╗рЄ¤П Word Guesser [CLS, PRINT, INPUT, LOCATE, LEFT$(A$,x), MID$(A$,x,y), CHR$(x), ON..GOSUB, GOTO, RETURN, ASC(A$), READ-DATA, INKEY$, WHILE..WEND,сє¤П Word Guesser(Con't) FOR-NEXT, LEN(A$), IF-THEN, STRING$(x,y),SOUND]IсЇ¤П Advanced Calculater [SQR(x),{Exponentation with ^},IF-THEN█сї¤П Palendromes [PRINT, INPUT, STR$(x), VAL(A$), IF-THEN, FOR-NEXT, MID$(A$,x,y), RIGHT$(A$,x)]╟тЎ¤П IBM's Mortgage Prg [DIM, {Subscripted Variables}, ERASE, ON..GOSUB, PRINT, PRINT USING, INPUT, LINE INPUT, LOCATE, GOTO, RETURN, CHR$(x), IF-THEN,FOR-NEXT,INKEY$]уў¤П Rolling the Dice [PRINT, INPUT, IF-THEN, RANDOMIZE TIMER, RND]Еу°¤П Character Count [PRINT, INPUT, FOR-NEXT, MID$(A$,x,y), LEN(A$), IF-THEN]eф∙¤П Bubble Sort [DIM ,{Subscripted Variables}, ERASE, READ-DATA, RESTORE, FOR-NEXT, IF-THEN(-ELSE), PRINT, INPUT, GOTO, GOSUB, SWAP, LOCATE, LEN(A$)]яф·¤П Binary Name Search [{Subscripted Variables}, PRINT, INPUT, CLS, MID$(A$,x,y), IF-THEN(-ELSE)]╛х√¤П Christmas Carols [VAL(A$), ON..GOSUB, INPUT, PRINT, PLAY, READ-DATA, DIM, {Supscripted Variables},ERASE, IF-THEN, FOR-NEXT]■х№¤П MOD Programs [PRINT, INPUT, MOD Operator, INT(x)]&ц¤¤П Ending the Program [PRINT, END]йц■¤П Set Timer [System Variable DATE$, System Variable TIME$, IF-THEN, PRINT, INPUT]rч ¤П Error Handler [System Variable ERR, System Varable ERL, IF-THEN, INKEY$, PRINT, ON ERROR GOTO.., RESUME, END, POS(x)]Цч■П Exiting to System [System].ш∙ П Program Published by Eddie Segoura, Please copy and share this program. You need to Have QBASIC or BASICA to run this program.