ON ERROR GOTO 50000 KEY OFF : SCREEN 0 : COLOR 7,0,0 : WIDTH 80 : CLS PRINT "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. " 4 PRINT "To avoid problems in the Program, press the CAPSLOCK key ": PRINT "and Keep it on throughout the entire program." PRINT INPUT "What is Your Name";A$ PRINT "EEEEK! A POWER RANGER! " IF A$ = "" THEN RANDOMIZE TIMER : A = INT(RND*2) : IF A = 0 THEN A$ = "Eddie & Billy" ELSE A$ = "Computer User" IF ASC(LEFT$(A$,1)) > 90 THEN A1$ = MID$(A$,1,1) : MID$(A$,1,1) = CHR$(ASC(A1$)-32) REM - "CLS" CLEARS THE TV SCREEN FOR X = 1 TO 45 READ R$ NEXT X CLS PRINT"Please enter the number of names to list near the ";:WRITE "?" INPUT S IF S > 19 THEN PRINT "Too Much Information" :GOTO 40 FOR LAMP=1 TO S READ R, R$ PRINT R,R$,LAMP NEXT LAMP 40 PRINT "RADIUS =";R PRINT "AREA =";3.14*R^2 FOR I=1 TO 1500:NEXT PRINT "Would You, ";A$;", like the program to (1) propmt You to " : PRINT "Continue or Stop on any error, (2) Continue regardless of" : PRINT "any error, or (3) Stop the program and print the error message." 68 INPUT "Enter 1, 2, 3 - ",ERR.CHOICE IF ERR.CHOICE < 1 OR ERR.CHOICE > 3 THEN PRINT "Please, "; A$; ", ";:GOTO 68 CLS FOR TRAPAZOID=1 TO 2 PRINT "Please enter the height then the two" PRINT "bases to get the area of the trapazoid. Ex: 1,2,3" INPUT H,A,B PRINT "HEIGHT =";H PRINT "BASE 1 =";A PRINT "BASE 2 =";B PRINT "AREA ="; .5*H*(A+B) PRINT NEXT TRAPAZOID PRINT "Wheeler" PRINT PRINT LINKA HITKEY$ = "Hit any key to continue... "+STRING$(2,30) FOR KEYS = 1 TO 20 : KEY(KEYS) ON:ON KEY(KEYS) GOSUB 3000 : NEXT : PRINT "Ok 211 LOCATE 24,1:PRINT HITKEY$ : ANYKEY$ = INKEY$:IF ANYKEY$ = "" THEN 211 212 CLS INPUT"Key in a number! ",D INPUT"Key in another number! ",E PRINT PRINT"What do you want to do with these numbers?" INPUT"(A)dd, (S)ubtract, (M)ultiply, (D)ivide";C$ IF C$ = "A" THEN PRINT D;" + ";E;" = ";D+E:LET F = D+E IF C$ = "a" THEN PRINT D;" + ";E;" = ";D+E:LET F = D+E IF C$ = "S" THEN PRINT D;" - ";E;" = ";D-E:LET F = D-E IF C$ = "s" THEN PRINT D;" - ";E;" = ";D-E:LET F = D-E IF C$ = "M" THEN PRINT D;" x ";E;" = ";D*E:LET F = D*E IF C$ = "m" THEN PRINT D;" x ";E;" = ";D*E:LET F = D*E IF C$ = "D" THEN PRINT D;" divided by ";E;" = ";D/E:LET F = D/E IF C$ = "d" THEN PRINT D;" divided by ";E;" = ";D/E:LET F = D/E PRINT PRINT"This is called a calculater, ";A$ PRINT"Do you Wish to continue with ";F; INPUT B$ IF B$ = "n" THEN GOTO 254 IF B$ = "N" THEN GOTO 254 FOR I=1 TO 200 :NEXT CLS 234 PRINT"Previous number: "; FOR I=1 TO 200:NEXT PRINT F INPUT"Key in a number! ",G PRINT"What do you want to do with these numbers?" INPUT"(A)dd, (S)ubtract, (M)ultiply, (D)ivide";D$ IF D$ = "A" THEN PRINT F;" + ";G;" = ";F+G:LET F = F+G IF D$ = "a" THEN PRINT F;" + ";G;" = ";F+G:LET F = F+G IF D$ = "S" THEN PRINT F;" - ";G;" = ";F-G:LET F = F-G IF D$ = "s" THEN PRINT F;" - ";G;" = ";F-G:LET F = F-G IF D$ = "M" THEN PRINT F;" x ";G;" = ";F*G:LET F = F*G IF D$ = "m" THEN PRINT F;" x ";G;" = ";F*G:LET F = F*G IF D$ = "D" THEN PRINT F;" divided by ";G;" = ";F/G:LET F = F/G IF D$ = "d" THEN PRINT F;" divided by ";G;" = ";F/G:LET F = F/G PRINT"Do you Wish to end the calculater, ";A$ INPUT E$ CLS IF E$ = "n" THEN GOTO 234 IF E$ = "N" THEN GOTO 234 CLS 254 PRINT A$ ", would you like to print this program (Y/N)"; INPUT E$ IF E$ = "y" OR E$ = "Y" THEN 257 ELSE GOTO 259 257 INPUT "Make sure the printer is ready. Strike ENTER to Print.",CD PRINT "Printing. Please wait....":LLIST 259 PRINT "Let's do a frame. A frame is a story with blanks. You can fill these blanks to make your own story. INPUT "Type a name of a thing. ";H$ INPUT "Type anothter name of a thing. ";I$ INPUT "Type something you get. ";J$ INPUT "Type the name of a Cable Company. ";K$ PRINT PRINT H$;"s and ";I$;"s are peaces of equipment that allow you": PRINT"to recieve ";J$;". ";H$;"s can be obtained at the store.": PRINT I$;"s, on the other hand are more complicated peaces of PRINT "Equipment, and are only available threw ";K$;". Here's why:" FOR I =1 TO 2000:NEXT:CLS:LET A = 2 FOR D = 1 TO 40 PRINT A * 2, LET A = A * 2 NEXT D FOR I=1 TO 1500 :NEXT CLS : ON ERROR GOTO 321 PRINT A$;", do you Wish to see the files on any disk (Y/N)?" INPUT DISK$ IF DISK$ = "Y" THEN GOTO 315 IF DISK$ = "y" THEN GOTO 315 IF DISK$ <> "Y" THEN ON ERROR GOTO 50000:GOTO 350 IF DISK$ <> "y" THEN ON ERROR GOTO 50000:GOTO 350 315 PRINT "Which Drive"; 316 INPUT N$ : N$ = N$ + ":\" INPUT "Enter Subdirectory or ENTER for None - ",DIR$ IF DIR$ = "" THEN FILES N$:GOTO 326 ELSE N$ = N$ + DIR$ + "\":V = 1: FILES N$:GOTO 326 IF N$ = "ZORDON" THEN PRINT "Zordon is Evil! Sign out of ";N$;" and press ENTER.":INPUT "", FF:FILES "b:":GOTO 326 N$ = LEFT$(N$,LEN(N$)-V) : REM "Rita Repulsa is Evil. ";N$;" and press ENTER.":INPUT "", FF:FILES "b:":GOTO 326 321 IF ERR = 76 OR ERR=53 THEN PRINT "Directory ";N$;" not found.":RESUME 322 322 PRINT"Please reenter the drive." :ON ERROR GOTO 321 GOTO 316 326 PRINT "Directory of ";LEFT$(N$,LEN(N$)-V) 327 PRINT "Look at another Directory (Y/N)"; INPUT NN$ IF NN$ = "y" OR NN$ = "Y" THEN V = 0 : GOTO 315 ELSE 344 GOTO 315 GOTO 327 332 CLS PRINT "Your Name has";LEN (A$);"Character(s) in it." PRINT "Good Bye, ";A$ PRINT "To Return to DOS, Type SYSTEM. To clear this program, type NEW. " PRINT "Here is another number: "; RANDOMIZE TIMER X = INT ((RND*100)+1) PRINT X END 344 CLS : ON ERROR GOTO 50000 PRINT "Test Program 1" PRINT PRINT PRINT PRINT 350 PRINT A$", Please enter three different names." INPUT N1$, N2$, N3$ PRINT N1$ PRINT PRINT N2$ PRINT PRINT N3$ PRINT"Ok" FOR JAFAR = 1 TO 1000:NEXT CLS PRINT "Test Program 2" PRINT PRINT PRINT PRINT PRINT PRINT "Side1 = ";12 PRINT "Side2 = ";8 PRINT "Side3 = ";13 PRINT "Perimeter = ";12+8+13 FOR JAFAR = 1 TO 1000:NEXT CLS PRINT"Test Program 3 PRINT PRINT PRINT PRINT CLS PRINT"Who has the Power of Earth?" PRINT"(A) Kwame (B) Wheeler" PRINT"(C) Linka (D) Mate (E) Alpha" PRINT"Please enter the letter of your choice near the "; WRITE "?" FOR I=1 TO 3 INPUT ANSWER$ PRINT "You entered "; ANSWER$ IF ANSWER$ = "a" OR ANSWER$ = "A" THEN PRINT "Correct!" :GOTO 389 IF I = 3 THEN PRINT "Wrong too many times!":GOTO 389 IF ANSWER$ <> "A" THEN PRINT "Wrong, try again!":NEXT I 389 FOR JAFAR = 1 TO 1000 :NEXT PRINT PRINT PRINT PRINT FOR H=1 TO 3000:NEXT CLS PRINT"Cls clears the lousy TV Screen PRINT H , R$ FOR X = 1 TO 850 : NEXT 403 IF ERR = 5 THEN SOUND 434,2 : RESUME 1053 G = 0 REM Austin St. John will never take My software. CLS FOR TIME=1 TO 50 LOCATE 1,1 PRINT TIME$ LOCATE 1,70 PRINT DATE$ NEXT TIME PRINT "This is the time now!" PRINT "This is called a Clock, ";A$ PRINT A$;:PRINT", do you want to see the clock": PRINT "again for 15 more seconds"; INPUT MT$ IF MT$ = "N" THEN GOTO 529 IF MT$ = "n" THEN GOTO 529 FOR TIME=1 TO 200 LOCATE 1,1 PRINT TIME$ LOCATE 1,70 PRINT DATE$ NEXT TIME LOCATE 6,1 PRINT"Do you still want the clock to run"; INPUT USER$ IF USER$ = "N" THEN 529 IF USER$ = "n" THEN 529 INPUT "How many more seconds";SC FOR I = 1 TO SC FOR H = 1 TO 1000:NEXT LOCATE 1,1 PRINT TIME$ NEXT I 529 LOCATE 9,1 : RANDOMIZE TIMER NUMBER = INT ((RND*1000)+1) PRINT PRINT"The Computer has picked a number from 1 to 1000." PRINT"The number is";NUMBER 534 LOCATE 24,1:PRINT HITKEY$ : ANYKEY$ = INKEY$:IF ANYKEY$ = "" THEN 534 535 CLS RANDOMIZE TIMER PLANETEER = INT (RND*101) PRINT "The Computer has picked another Number from 1 to 100" PRINT A$", please guess this Number and key it in near the word "; WRITE "Number" PRINT "You get only 10 Chances, ";A$;"!" PRINT FOR GUESS = 1 TO 10 544 INPUT "Number - ",C IF C < 1 THEN PRINT"Invalid Number (1-100 Please)":GOTO 544 IF C > 100 THEN PRINT"Invalid Number (1-100 Please)":GOTO 544 IF C < PLANETEER THEN PRINT "The Number is Higher!" IF C > PLANETEER THEN PRINT "The Number is Lower!" IF C = PLANETEER THEN PRINT "You are Right, ";A$;"!":GOTO 555 NEXT GUESS PRINT "You have used up all Your Chances" PRINT "The Correct Number was";PLANETEER 553 LOCATE 24,1:PRINT HITKEY$ : ANYKEY$ = INKEY$:IF ANYKEY$ = "" THEN 553 GOTO 600 555 LOCATE 24,1:PRINT HITKEY$ : ANYKEY$ = INKEY$:IF ANYKEY$ = "" THEN 555 CLS 600 COLOR 7,0,0 : CLS 601 LOCATE 3,10 PRINT TAB(10);A$", Please choose an activity." PRINT TAB(10);"1) Calculater" PRINT TAB(10);"2) Guess the number" PRINT TAB(10);"3) Grade Average Program." PRINT TAB(10);"4) Math Bee." PRINT TAB(10);"5) Print a name backwards." PRINT TAB(10);"6) Word Guessing." PRINT TAB(10);"7) Advanced Calculater." PRINT TAB(10);"8) Number Reverses." PRINT TAB(10);"9) Mortgages." PRINT TAB(9);"10) Rolling Dice." PRINT TAB(9);"11) Counting Charaters in a Phrase." PRINT TAB(9);"12) Bubble Sorts. " PRINT TAB(9);"13) Search for Name. " PRINT TAB(9);"14) Christmas Carols." PRINT TAB(9);"15) Programs using the MOD operator. " PRINT TAB(10);"E) End." PRINT TAB(10);"R) Return to DOS." 620 PRINT TAB(10);"T) Set Time and Date." PRINT TAB(10); LINE INPUT "Choice - ";K$ IF K$ = "R" OR K$ = "r" THEN SYSTEM IF K$ = "S" OR K$ = "s" THEN GOSUB 6097 : GOTO 601 IF K$ = "E" OR K$ = "e" THEN 332 IF K$ = "T" OR K$ = "t" THEN GOSUB 1749 : GOTO 650 METROID = VAL(K$) IF METROID < 1 OR METROID > 15 THEN FOR X = 1 TO 50:NEXT:SOUND 800,2.5: LOCATE 23,10:PRINT TAB(10);" ":LOCATE 23,10: PRINT "Type 1 - 15, R, T, or E":LOCATE 21,10:GOTO 620 ON METROID GOSUB 212,535,700,795,900,1000,1120,1196,1300,1504,1600, 1697,1800,1900,2200 650 GOTO 600 700 REM *** Grade Average Program *** CLS INPUT "How many Names would You like to average";NM:IF NM < 0 THEN NM = 0 DIM METROID$(NM),AVERAGE(NM) :PRINT "Enter STOP as a Name to Exit." FOR M = 1 TO NM PRINT "Enter Name";M;:INPUT "- ",METROID$(M) IF METROID$(M)="stop" OR METROID$(M)="STOP" THEN DE$ = METROID$(M):GOTO 724 PRINT "How many Grades do you want for ";METROID$(M); INPUT N PRINT "Please Enter the";N;"one at a time." FOR X = 1 TO N PRINT "GRADE";X;:INPUT "- ",MARK GRADE = GRADE + MARK AVERAGE(M) = GRADE/N PRINT NEXT X GRADE = 0 NEXT M PRINT "Name";TAB(20);"Average";TAB(40);"Statues" FOR G = 1 TO NM IF AVERAGE(G) => 90 THEN PRINT METROID$(G);TAB(20);AVERAGE(G);TAB(40);"Honors":GOTO 723 IF AVERAGE(G) => 65 AND AVERAGE < 90 THEN PRINT METROID$(G);TAB(20);AVERAGE(G);TAB(40);"Pass" :GOTO 723 IF AVERAGE(G) < 65 THEN PRINT METROID$(G);TAB(20);AVERAGE(G);TAB(40);"Fall" 723 NEXT G 724 ERASE METROID$,AVERAGE IF NM = 0 THEN 700 ELSE IF DE$ = "STOP" OR DE$ = "stop" THEN RETURN 600 726 LOCATE 24,1:PRINT HITKEY$ : ANYKEY$ = INKEY$:IF ANYKEY$ = "" THEN 726 GOTO 700 RETURN 795 CLS PRINT A$;", here is some simple Arithmatic." REM *** Simple Arithmatic *** 800 LOCATE 2,1 : PRINT STRING$(40," ") RANDOMIZE TIMER S = INT (RND*51) IF SCORE < -20 THEN 968 T = INT (RND*51) SUM = S + T IF SCORE > 100 THEN 883, SIGN = INT (RND*4)+1 KEY(1) ON : LOCATE 23,1: PRINT "Press [F1] to Exit the Arithmatic." ON KEY(1) GOSUB 889 : ON SIGN GOTO 813,832,852,867 IF SIGN = 4 THEN 867 813 LOCATE 2,1 PRINT S;" + ";T;" = "; INPUT "",ANSWER IF ANSWER = SUM THEN PRINT "Correct!"+STRING$(50,32) : SCORE = SCORE + 1:LOCATE 1,45:PRINT "You have ";SCORE;"points, ";A$;" ": LOCATE 4,1:PRINT STRING$(75,32):GOTO 800 IF SGN(SUM) = -1 THEN 821 PRINT STRING$(9,32) : PRINT "Sorry, ";A$;"! The Correct Answer was";SUM SCORE = SCORE - 1 LOCATE 1,45 821 PRINT "You have ";SCORE;"points, ";A$;" ":PRINT GOTO 800 PRINT "Sorry, ";A$;"! The Correct Answer was ";SUM;" " SCORE = SCORE - 1 LOACTE 1,40 PRINT SCORE GOTO 800 832 LOCATE 2,1 PRINT S;" - ";T;" = ";: INPUT "",ANSWER DIFFERENCE = S - T IF ANSWER = DIFFERENCE THEN PRINT "Correct!"+SPACE$(23) : SCORE = SCORE + 5:LOCATE 1,45:PRINT "You have ";SCORE;"points, ";A$;" ": LOCATE 4,1:PRINT STRING$(75,32) : GOTO 800 PRINT SPACE$(14) IF SGN(DIFFERENCE) = -1 THEN 846 PRINT "Sorry, ";A$;"! The Correct Answer was";DIFFERENCE;" " SCORE = SCORE - 5 LOCATE 1,45 842 PRINT "You have ";SCORE;"points, ";A$;" " GOTO 800 846 PRINT "Sorry, ";A$;"! The Correct Answer was ";DIFFERENCE;" " SCORE = SCORE - 2 LOCATE 1,45 PRINT "You have ";SCORE;"points, "A$ GOTO 800 852 PRODUCT = S * T IF S > 12 OR T > 12 THEN 800 LOCATE 2,2 PRINT S;" x ";T;" = "; INPUT "",ANSWER IF ANSWER = PRODUCT THEN PRINT "Correct!"+SPACE$(23) SCORE = SCORE + 10:LOCATE 1,45:PRINT "You have ";SCORE;"points, ";A$;" ": LOCATE 4,1:PRINT SPACE$(75) :GOTO 800 PRINT SPACE$(15) IF SGN(PRODUCT) = -1 THEN 842 PRINT "Sorry, ";A$;"! The Correct Answer was";PRODUCT;SPACE$(20) SCORE = SCORE - 8 LOCATE 1,45 PRINT "You have ";SCORE;"points, ";A$;" " GOTO 800 867 IF T = 0 THEN 'THEIR IS A CHANCE TO DEFEAT ZORDON. LOCA = VAL(STR$(10^28)) 869 IF T = 0 THEN T = T + 4 DIV = S / T IF S / T <> INT(S / T) THEN T = INT(RND*51) : GOTO 869 LOCATE 2,1 PRINT S;" ";CHR$(246);" ";T;" = ";:INPUT "",ANSWER IF S < T THEN PRINT S" is is too small -";S;" ";CHR$(246);" ";T;" = ";S/T:GOTO 800 IF ANSWER = DIV THEN PRINT "Correct! ": SCORE = SCORE + 10:LOCATE 1,45:PRINT "You have ";SCORE;"points, ";A$;" ": LOCATE 4,1:PRINT SPACE$(75) : GOTO 800 PRINT SPACE$(15) IF SGN(DIV) = -1 THEN 842 PRINT "Sorry, ";A$;"! The Correct Answer was";DIV SCORE = SCORE - 8 LOCATE 1,45 PRINT "You have ";SCORE;"points, ";A$;" " GOTO 800 883 LOCATE 11,30 PRINT A$;", LOCATE 13,30 PRINT "YOU ARE A MATH MASTER!" FOR X = 1 TO 3000: NEXT : SCORE = 0 PRINT 8;" ";CHR$(246);" ";2;" = ";8/2 : GOTO 900 889 SCORE = 0 : KEY(1) OFF RETURN 909 900 PRINT PRINT "Please enter any Name for the Computer to print backwards." INPUT "Name - ",N$ R = LEN(N$) FOR O = R TO 1 STEP -1 PRINT MID$(N$,O,1); NEXT O 907 PRINT PRINT HITKEY$ : ANYKEY$ = INKEY$:IF ANYKEY$ = "" THEN 907 909 RETURN 968 FOR D = 1 TO 5000 :NEXT : SCORE = 0 CLS LOCATE 11, 30 PRINT A$ "," LOCATE 13, 30 PRINT "The Game is over! FOR I =1 TO 2000: NEXT CLS PRINT "Your Name has";LEN (A$);"Character(s) in it." GOSUB 6097 END 1000 COLOR 3,1,1 : CLS : KEY OFF PRINT PRINT LOCATE 23,1 LOCATE 25,1 PRINT"Planeteers PC."+STRING$(53,0)+CHR$(17)+CHR$(196)+CHR$(217);: PRINT " Continue";STRING$(3,30):LOCATE 1,1 : PRINT PRINT PRINT SPC(26); STRING$(27,205); SPC(25) COLOR 15 PRINT SPC(30);"WORD GUESSER: MAIN MENU";SPC(32) COLOR 3 PRINT SPC(23); STRING$(27,205); SPC(28) LOCATE 22,1:PRINT STRING$(80,196):PRINT"Welcome, "+A$+STRING$(3,30) PRINT LOCATE 9,10 PRINT "1. User to guess Computer's word" PRINT PRINT TAB(10);"2. One player to guess another Player's word" PRINT PRINT TAB(10);"3. Exit" 1020 LOCATE 18,34 COLOR 1,3 : PRINT " Selection:";: COLOR 3,1 : LINE INPUT " ",PICK$ P = VAL(PICK$) IF P < 1 OR P > 3 THEN LOCATE 23,32 : COLOR 12 : PRINT " " : LOCATE 23,32 : SOUND 434,2 : PRINT "Type 1, 2, or 3." : GOTO 1020 ON P GOSUB 1025,1035,1113 1025 REM REM *** Word Input By the Computer *** REM RANDOMIZE TIMER RESTORE FOR X = 1 TO INT(RND*455)+1 READ WORD$ NEXT X GOSUB 1058 RETURN 1035 REM REM **** Word Entered By the Player **** REM CLS PRINT "Type in a Word and Press Enter!" PRINT"You may use Spaces. " PRINT"Any other character besides letters will be revealed." WORD$ = "" T$ = "" ON ERROR GOTO 403 WHILE T$ <> CHR$(13) 1046 T$ = INKEY$ IF T$ = "" THEN 1046 IF LEN(T$) > 1 THEN 1046 IF T$ = CHR$(8) THEN WORD$ = LEFT$(WORD$,LEN(WORD$)-1): PRINT STRING$(1,29);" ";STRING$(1,29);:GOTO 1046 IF ASC(T$) < 123 AND ASC(T$) > 96 THEN T$ = CHR$(ASC(T$)-32) WORD$ = WORD$ + T$ PRINT "*"; 1053 WEND ON ERROR GOTO 50000 WORD$ = LEFT$(WORD$,LEN(WORD$)-1) GOSUB 1058 RETURN 1058 REM **** Guess Routine **** CLS FOR X = 1 TO 26:LOCATE 2,(X*2)+8 :PRINT CHR$(X+64):NEXT LOCATE 5,10 L = LEN(WORD$) G = 1 : MIS$ = "You Missed" : TIM$ = "times out of" PRINT "The Word has";L;"Characters." : IF LEN(WORD$) > 10 THEN W = 16 ELSE W = 11 GUESS$ = STRING$(LEN(WORD$),45) FOR X = 1 TO LEN(WORD$) IF MID$(WORD$,X,1) = "." THEN MID$(GUESS$,X,1) = "." IF MID$(WORD$,X,1) = " " THEN MID$(GUESS$,X,1) = " " IF ASC(MID$(WORD$,X,1)) < 91 AND ASC(MID$(WORD$,X,1)) > 64 THEN 1071 MID$(GUESS$,X,1) = MID$(WORD$,X,1) 1071 NEXT X LOCATE 9,10 COLOR 14,0 : PRINT GUESS$ : COLOR 3,1 IF LEN(G$) > 2 THEN 1085 WHILE G < W AND WORD$ <> GUESS$ LOCATE 17,10 PRINT "You Missed";G-1;"times out of";W-1 LOCATE 19,10 PRINT TAB(10);"Words chosen may have spaces. " PRINT TAB(10);"To get back to Main Menu, press the ESC key." PRINT : IF WORD$ = GUESS$ THEN G = W 1082 PRINT TAB(10);"Guess a letter in the word - "; 1083 G$ = INKEY$ IF G$ = CHR$(27) THEN DUMMY$ = "" : GOTO 1000 1085 IF G$ = "" THEN 1083 ELSE 1086 1086 IF ASC(G$) < 91 AND ASC(G$) > 64 THEN 1089 IF ASC(G$) < 123 AND ASC(G$) > 96 THEN G$ = CHR$(ASC(G$)-32) IF G$ = CHR$(13) THEN LOCATE 15,10:PRINT STRING$(40,0): LOCATE 22,1:GOTO 1082 1089 IF ASC(G$) < 65 OR ASC(G$) > 90 THEN LOCATE 15,10:PRINT STRING$(30,0) :LOCATE 15,10: SOUND 37 ,2: COLOR 12 : PRINT SPACE$(20) : COLOR 3:LOCATE 22,1:GOTO 1082 PRINT G$ FOR D = 1 TO LEN(DUMMY$) IF G$ = MID$(DUMMY$,D,1) THEN LOCATE 15,10 : PRINT STRING$(30,0): LOCATE 15,10 :SOUND 434,2:COLOR 12:PRINT G$+" has already been guessed" : LOCATE 22,1:COLOR 3:GOTO 1082 NEXT D DUMMY$ = DUMMY$ + G$ M = G IF G$ = CHR$(27) THEN 1083 FOR J = 1 TO L IF MID$(WORD$,J,1) <> G$ THEN 1101 ELSE MID$(GUESS$,J,1) = G$ LOCATE 9,10 COLOR 14,0:PRINT GUESS$:COLOR 3,1:E = 1 1101 LOCATE 2,(ASC(G$)-65+5)*2 PRINT " " NEXT J G = G + 1:G = G - E:IF G > M THEN LOCATE 15,10:SOUND 49,4: PRINT "Their is no ";G$;+STRING$(19,0) : LOCATE 17,10:PRINT MIS$; G-1;TIM$;W-1:LOCATE 24,(ASC(G$)-65+5)*2:PRINT G$+STRING$(3,30):LOCATE 22,1 IF G = M THEN LOCATE 15,9:PRINT STRING$(40,0): E = O IF GUESS$ = WORD$ THEN G = W WEND LOCATE 13,10 IF GUESS$ = WORD$ THEN PRINT "Good Guessing, ";A$ ELSE PRINT "Sorry, ";A$;"! The Word or Name was ";WORD$ DUMMY$ = "" 1111 LOCATE 22,10:PRINT HITKEY$ : ANYKEY$ = INKEY$:IF ANYKEY$ = "" THEN 1111 RETURN 1113 GOTO 600 1120 CLS INPUT"Key in a number ",X PRINT PRINT"What do you want to do with this number?" PRINT"(S)quare Root (E)xponentation" INPUT G$ PRINT IF G$ = "S" OR G$ = "s" THEN IF SGN(X) = -1 THEN PRINT "Imaginary Root":GOTO 1132 IF G$ = "S" THEN PRINT"The Square Root of";X;"is";SQR(X):X = SQR(X) IF G$ = "s" THEN PRINT"The Square Root of";X;"is";SQR(X):X = SQR(X) IF G$ = "E" THEN INPUT "Key in the Exponent ";Y:PRINT: PRINT X;"Raised to the power of";Y;"is"X^Y:LET X = X^Y IF G$ = "e" THEN INPUT "Key in the Exponent ";Y:PRINT: PRINT X;"Raised to the power of";Y;"is"X^Y:LET X = X^Y 1132 PRINT PRINT "This is the Advanced Calculater, ";A$ PRINT "Do you want to Continue with ";X;"?" INPUT AN$ IF AN$ = "N" OR AN$ = "n" THEN 600 1137 CLS PRINT "Previous Number "; PRINT X PRINT"What do you want to do with this number?" PRINT"(S)quare Root (E)xponentation" INPUT G$ PRINT IF G$ = "S" OR G$ = "s" THEN IF SGN(X) = -1 THEN PRINT "Imaginary Root":GOTO 1149 IF G$ = "S" THEN PRINT"The Square Root of";X;"is";SQR(X):X = SQR(X) IF G$ = "s" THEN PRINT"The Square Root of";X;"is";SQR(X):X = SQR(X) IF G$ = "E" THEN INPUT "Key in the Exponent ";Y:PRINT: PRINT X;"Raised to the power of";Y;"is"X^Y:LET X = X^Y IF G$ = "e" THEN INPUT "Key in the Exponent ";Y:PRINT: PRINT X;"Raised to the power of";Y;"is"X^Y:LET X = X^Y 1149 PRINT PRINT A$;", do you want to end this Calculater?" INPUT AN$ IF AN$ = "Y" OR AN$ = "y" THEN 600 GOTO 1137 1196 Y$ = "" G = 0 CLS INPUT "Please enter a Number - ",X$ IF X$ = "" THEN Z$ = "00EDDIE" 1201 X = VAL(X$) FOR C = LEN(X$) TO 1 STEP -1 IF MID$(X$,1,1) = "0" AND C = 1 THEN 1205 Y$ = Y$ + MID$ (X$,C,1) 1205 NEXT C Y = VAL(Y$) PRINT "The Sum of ";X$;" and";Y;"is";X+Y Z = X + Y Z$ = STR$(Z) IF LEN(Z$) < 4 THEN 1211 ELSE 1213 1211 IF RIGHT$ (Z$,1) = MID$(Z$,2,1) THEN 1219 GOTO 1214 1213 IF RIGHT$ (Z$,1) = MID$(Z$,2,1) AND MID$(Z$,3,1) = MID$(Z$,LEN(Z$)-1,1) AND MID$(Z$,4,1) = MID$(Z$,LEN(Z$)-2,1) THEN 1219 1214 X$ = RIGHT$(Z$,LEN(Z$) - 1) Y$ = "" G = G + 1 IF G > 15 THEN 1219 GOTO 1201 1219 REM Zordon is Evil! BEEP PRINT "Zordon is Evil!" 1298 LOCATE 24,1:PRINT HITKEY$ : ANYKEY$ = INKEY$:IF ANYKEY$ = "" THEN 1298 GOTO 600 1300 REM The IBM Personal Computer Mortgage REM Version 1.00 (C)Copyright IBM Corp, Eddie Segoura 1994, 1995 REM Licensed Material - BASIC Programming for the IBM Personal Computer REM Mortgage Amorization Program REM Built into Program by Eddie Segoura - Tuesday, February 15, 1994. DEF SEG SAMPLES$="NO" GOTO 1309 SAMPLES$="YES" 1309 KEY OFF:SCREEN 0,1:COLOR 15,0,0:CLS:LOCATE 5,19:PRINT "IBM" LOCATE 7,12,0:PRINT "Personal Computer" COLOR 10,0:LOCATE 10,9,0:PRINT CHR$(213)+STRING$(21,205)+CHR$(184) LOCATE 11,9,0:PRINT CHR$(179)+" MORTGAGES "+CHR$(179) LOCATE 12,9,0:PRINT CHR$(179)+STRING$(21,32)+CHR$(179) LOCATE 13,9,0:PRINT CHR$(179)+" Version 1.10 "+CHR$(179) LOCATE 14,9,0:PRINT CHR$(212)+STRING$(21,205)+CHR$(190) COLOR 15,0:LOCATE 17,4,0:PRINT "(C) Copywrite IBM Corp 1981, 1982" : LOCATE 18,4,0:PRINT "Due to Memory Conditions, ": CHI$ = "" : PRINT " Bubble Sort arrays if any were removed.":IF LEN(N$(1)) THEN ERASE N$ COLOR 14,0:LOCATE 23,7,0:PRINT "Press space bar to continue" 1318 IF INKEY$ <> "" THEN GOTO 1318 1319 CMD$ = INKEY$ IF CMD$ = " " THEN GOTO 1323 IF CMD$ =CHR$(27) THEN GOTO 1333 GOTO 1319 1323 COLOR 15,0:CLS:DEFDBL P:DIM AMORT(420,2):SCREEN 0 DEF SEG=0 IF (PEEK(&H410) AND &H30)<>&H30 THEN COLS = 3:GOTO 1327 WIDTH 80:COLS=8 1327 DEF SEG 1328 GOTO 1337 1329 IF ASC(I$)=27 THEN 1333 IF VAL(I$) < 1 OR VAL(I$) > 2 THEN GOTO 1359 IF MID$(I$,1,1)="2" THEN GOTO 1415 IF MID$(I$,1,1)="1" THEN GOTO 1362 1333 IF SAMPLES$ <> "YES" THEN GOTO 1335 CHAIN "SAMPLES",1000 1335 GOSUB 1360 RETURN 1337 REM - MAIN OPTION MENU COLOR 15,0:CLS:COLOR 0,7:PRINT " Mortgage Analysis " COLOR 15,0:LOCATE 3,1:PRINT "Options - " PRINT "1 - Mortgage Payment Comparisons " PRINT "2 - Mortgage Amorizitions" PRINT "ESC KEY - EXIT" PRINT " " PRINT "Option Number (1,2, OR ESC) =====>" PRINT " " COLOR 15,0 PRINT CHR$(201)+STRING$(37,CHR$(205))+CHR$(187) PRINT CHR$(186)+" MORTGAGE "+CHR$(186) PRINT CHR$(186)+" - Use this option to compare "+CHR$(186) PRINT CHR$(186)+" the monthly payments of "+CHR$(186) PRINT CHR$(186)+" mortgages at various rates "+CHR$(186) PRINT CHR$(186)+" and principal amounts. "+CHR$(186) PRINT CHR$(186)+" Mortgage Amortizated "+CHR$(186) PRINT CHR$(186)+" - Use this option to calculate "+CHR$(186) PRINT CHR$(186)+" the principle and interest "+CHR$(186) PRINT CHR$(186)+" payed over any 12 month period."+CHR$(186) PRINT CHR$(200)+STRING$(37,CHR$(205))+CHR$(188) COLOR 0,7:LOCATE 8,37:PRINT " ":LOCATE 8,37 1359 I$=INKEY$:IF I$="" THEN 1359 ELSE PRINT I$;CHR$(29);:GOTO 1329 1360 COLOR 15,0:CLS:ERASE AMORT:GOTO 600 1361 PF = AF*(RF/(1#-(1#/((1#+RF)^NF)))):RETURN 1362 REM - mortgage comparisons COLOR 15,0:CLS:COLOR 0,7:PRINT " mortgage payment comparison program." LOCATE 10,1:COLOR 15,0 PRINT CHR$(218)+STRING$(37,CHR$(196))+CHR$(191) PRINT CHR$(179)+" MORTGAGE PAYMENT COMPARISONS "+CHR$(179) PRINT CHR$(179)+" - USE THIS OPTION TO COMPARE "+CHR$(179) PRINT CHR$(179)+" THE MONTHLY PAYMENTS OF "+CHR$(179) PRINT CHR$(179)+" MORTGAGES AT VARIOUS RATES "+CHR$(179) PRINT CHR$(179)+" AND PRINCIPAL AMOUNTS. "+CHR$(179) PRINT CHR$(179)+" "+CHR$(179) PRINT CHR$(179)+" NOTE: TO SELECT A VALUE OR AMOUNT "+CHR$(179) 1373 PRINT CHR$(179)+" ENTER THE APPROPRIATE VALUE "+CHR$(179) PRINT CHR$(179)+" AND PRESS THE ENTER KEY. "+CHR$(179) PRINT CHR$(192)+STRING$(37,CHR$(196))+CHR$(217) LOCATE 3,1:LINE INPUT "ENTER BASE MORTGAGE AMOUNT ===> ";B$ A = VAL(B$):IF A <= 0 THEN GOTO 1373 AINC = 2000 1379 LOCATE 4,1:PRINT SPC(38); LOCATE 5,1:PRINT "(1 TO 50 PERCENT)"; LOCATE 4,1:LINE INPUT "ENTER BASE INTEREST RATE =====> ";IR$ IR = VAL(IR$):IF IR>50 OR IR<1 THEN GOTO 1379 R = IR/1200:RINC = .0025/12 1384 LOCATE 5,1:PRINT SPC(38); LOCATE 6,1:PRINT "(1 TO 50 YEARS)"; LOCATE 5,1:LINE INPUT "ENTER NUMBER OF YEARS IN MTG => ";Y$ Y = VAL(Y$) N = Y * 12 NF = N IF NF>600 OR NF<1 THEN GOTO 1384 CLS COLOR 0,7:PRINT " MONTHLY MORTGAGE PAYMENT COMPARISONS " COLOR 15,0:LOCATE 3,10:PRINT Y$+"-YEAR MORTGAGE LOAN AMOUNTS"; LOCATE 5,2:PRINT "RATES";:COLOR 0,7 FOR I = 0 TO COLS LOCATE 4,9+I*8:PRINT SPC(7):LOCATE 4,9+I*8:PRINT A+I*AINC NEXT I FOR I = 0 TO 14 LOCATE 6+I,1:PRINT SPC(7):LOCATE 6+I,2 PRINT USING "##.##";INT(((R+(I*RINC))*120000!)+.5)/100 NEXT I COLOR 15,0 FOR I = 0 TO 14 RF = R+I*RINC:AF=1:GOSUB 1361 FOR J = 0 TO COLS P = PF*(A+J*AINC):P = INT((P+5.000001E-03)*100)/100 IF P>10000 THEN LOCATE 22,1:PRINT "PAYMENTS TOO LARGE TO DISPLAY": GOTO 1412 LOCATE 6+I,9+J*8:PRINT USING "####.##";P; NEXT J NEXT I PRINT " " 1412 PRINT "PRESS SPACE BAR TO CONTINUE"; 1413 IF INKEY$ <> " " THEN GOTO 1413 ERASE AMORT : GOTO 1323 1415 REM - mortgage amortization COLOR 7,0 CLS COLOR 0,7 LOCATE 1,1 PRINT " MORTGAGE AMORTIZATION PROGRAM " LOCATE 10,1:COLOR 15,0 PRINT CHR$(218)+STRING$(37,CHR$(196))+CHR$(191) PRINT CHR$(179)+" MORTGAGE AMORTIZATION "+CHR$(179) PRINT CHR$(179)+" - USE THIS OPTION TO CALCULATE "+CHR$(179) PRINT CHR$(179)+" THE PRINCIPAL AND INTEREST "+CHR$(179) PRINT CHR$(179)+" PAID OVER ANY 12 MONTH PERIOD. "+CHR$(179) PRINT CHR$(179)+" "+CHR$(179) PRINT CHR$(179)+" NOTE: TO SELECT A VALUE OR AMOUNT "+CHR$(179) 1429 PRINT CHR$(179)+" ENTER THE APPROPRIATE VALUE "+CHR$(179) PRINT CHR$(179)+" AND PRESS THE ENTER KEY. "+CHR$(179) PRINT CHR$(192)+STRING$(37,CHR$(196))+CHR$(217) LOCATE 3,1 LINE INPUT "ENTER MORTGAGE AMOUNT ===> ";C$ AF = VAL(C$): IF AF <= 0 THEN 1429 1435 LOCATE 4,1 PRINT " "; LOCATE 5,1 PRINT "(1 TO 35 PERCENT)"; LOCATE 4,1 LINE INPUT "ENTER INTEREST RATE =====> ";IR$ IR = VAL(IR$) IF IR>35 THEN GOTO 1435 IF IR<1 THEN GOTO 1435 RF = IR/1200 1445 LOCATE 5,1 PRINT " "; LOCATE 6,1 PRINT "(1 TO 35 YEARS)"; LOCATE 5,1 LINE INPUT "ENTER NUMBER OF YEARS ===> ";Y$ Y = VAL(Y$) NF = Y * 12 IF NF>420 THEN GOTO 1445 IF NF<1 THEN GOTO 1445 GOSUB 1361 PF = INT((PF+5.000001E-03)*100)/100 PRINT "MONTHLY PAYMENTS ARE ====>";PF COLOR 23,0 PRINT "CALCULATING AMORTIZATION" COLOR 15,0 IF NF>36 THEN GOTO 1463 FOR I = 1 TO 1000:NEXT I 1463 AMORT(0,1) = AF FOR I = 1 TO NF AMORT(I,2) = INT((AMORT(I-1,1)*RF+5.000001E-03)*100)/100 AMORT(I,1) = AMORT(I-1,1)-PF+AMORT(I,2) NEXT I 1468 FOR I = 7 TO 25:LOCATE I,1:PRINT SPC(39);:NEXT I LOCATE 9,1 PRINT " - 1 TO"+STR$(NF) PRINT " - 0 TO END AMORTIZATION"; 1472 LOCATE 7,1 PRINT "ENTER BEGINNING PAYMENT NUMBER" LINE INPUT "OF 12 MONTH PERIOD ======> ";PERIOD$ PD= VAL(PERIOD$) IF PD <> 0 THEN GOTO 1478 IF PERIOD$ <> "0" THEN GOTO 1472 1478 IF PD=0 THEN GOTO 1328 IF PD>NF THEN GOTO 1472 IF PD<0 THEN GOTO 1472 LOCATE 7,1 PRINT SPC(39) PRINT SPC(39) LOCATE 9,1 PRINT "PYMNT PRINCIPAL INTEREST BALANCE" TINT = 0 FOR I = PD TO PD+11 IF I> NF THEN GOTO 1492 TINT = TINT + AMORT(I,2) PRINT USING "### ";I; PRINT USING " ######.##";PF-AMORT(I,2);AMORT(I,2);AMORT(I,1) 1492 NEXT I PRINT " " PRINT "INTEREST FOR 12 PERIODS ="; PRINT USING "######.## ";TINT LOCATE 25,1 PRINT "PRESS SPACE BAR TO CONTINUE"; LOCATE ,,0 1499 IF INKEY$ <> "" THEN GOTO 1499 1500 CMD$ = INKEY$ IF CMD$ = " " THEN GOTO 1468 IF CMD$ =CHR$(27) THEN GOTO 1333 GOTO 1500 1504 COLOR 3,1,1 CLS LOCATE 10,10 PRINT TAB(10)"1) Roll the dice and see if Your Numbers match." PRINT TAB(10);"2) Pick a number and roll a die a number of times to PRINT TAB(10);" to see how many times your number is rolled." 1510 PRINT TAB(10)" choice"; LINE INPUT " - ",C$(1) IF VAL(C$(1)) < 1 OR VAL(C$(1)) > 2 THEN SOUND 434,2:LOCATE 14,1: PRINT SPC(25):LOCATE 14,1:COLOR 12:PRINT TAB(13) "Type 1 or 2!": COLOR 3:LOCATE 13,1:GOTO 1510 ON VAL(C$(1)) GOSUB 1516,1533 COLOR 7,0,0 RETURN 1516 CLS 1517 INPUT "Enter a Number - ",C(2) INPUT "Enter another Number - ",C(3) PRINT PRINT "You picked";C(2);"and";C(3) IF C(2) < 1 OR C(2) > 6 OR C(3) <1 OR C(3) > 6 THEN LOCATE 3,1:SOUND 434,2: COLOR 12:PRINT " ";STRING$(22,29);"Invalid Number(s)": COLOR 3:LOCATE 1,1:GOTO 1517 ELSE PRINT SPC(20):PRINT RANDOMIZE TIMER D(2) = INT(RND*6)+1 D(3) = INT(RND*6)+1 PRINT "YOU ROLLED A";D(2);"AND A";D(3);" " IF C(2) = D(2) AND C(3) = D(3) THEN PRINT A$;" wins!":GOTO 1531 IF C(3) = D(2) AND C(2) = D(3) THEN PRINT A$;" wins!":GOTO 1531 IF C(2) = D(2) OR C(3) = D(3) THEN PRINT "On of Your numbers matched. It's a tie!":GOTO 1531 IF C(2) = D(3) OR C(3) = D(2) THEN PRINT "On of Your numbers matched. It's a tie!":GOTO 1531 PRINT "Sorry, ";A$". You lose!" 1531 LOCATE 24,1:PRINT HITKEY$ : ANYKEY$ = INKEY$:IF ANYKEY$ = "" THEN 1531 RETURN 1533 CLS:INPUT "How many rolls";RL 1534 LINE INPUT "Enter a Number from 1-6 please - ",BM$ BM = VAL(BM$) IF BM < 1 OR BM > 6 THEN SOUND 434,2:COLOR 12: PRINT SPC(26);STRING$(26,29);"Enter a Number from 1-6.";STRING$(2,30): COLOR 3:GOTO 1534 RANDOMIZE TIMER FOR X = 1 TO RL DI = INT(RND*6)+1 IF BM = DI THEN T2 = T2 + 1 NEXT X PRINT "Out of";RL;"rolls of a die, a";BM;"was rolled";T2;"times." 1546 LOCATE 24,1:PRINT HITKEY$ : ANYKEY$ = INKEY$:IF ANYKEY$ = "" THEN 1546 T2 = 0 RETURN 1549 LOCATE 24,1:PRINT HITKEY$ : ANYKEY$ = INKEY$:IF ANYKEY$ = "" THEN 1549 RETURN RETURN 1600 CLS PRINT "Color Test for the Planeteers" FOR X = 1 TO 15 COLOR X PRINT "Planeteers";X NEXT X COLOR 7 PRINT "Please enter a String." INPUT PH$ INPUT "What character do you want to count"; CH$ FOR X = 1 TO LEN(PH$) IF MID$(PH$,X,1) = CH$ THEN C = C + 1 NEXT X IF C = 0 THEN PRINT "Their are no ";CH$; "'s in the string:":GOTO 1616 IF C = 1 THEN PRINT "Their is only one ";CH$; " in the string:":GOTO 1616 PRINT "Their are"; C; CH$"'s in the string:" 1616 PRINT PH$ 1617 PRINT LEFT$(HITKEY$,LEN(HITKEY$)-1):ANYKEY$=INKEY$:IF ANYKEY$="" THEN 1617 C = 0 RETURN 1697 RESTORE CLS IF CHI$ = "ERASE" THEN ERASE N$ INPUT "How many Names do You wanna sort";N REM Read Name into array IF N = 0 THEN DA$ = "45E" : N = VAL(DA$) : GOTO 1703 ELSE 1709 1703 DIM N$(N) FOR I = 1 TO N READ N$(I) IF LEN(N$(I)) < 5 THEN N$(I) = N$(I) + " " NEXT I GOTO 1716 1709 PRINT "Enter the names one at a time." DIM N$(N) FOR X = 1 TO N INPUT N$(X) IF LEN(N$(X)) < 5 THEN N$(X) = N$(X) + " " NEXT X CLS 1716 TITLE$ = "Unsorted Data" A = 3 : B = 10 GOSUB 1732 REM Bubble Sort Routine! REM LOCATE 1,60 : COLOR 23 : PRINT "Sorting....":COLOR 7 FOR X = 1 TO N-1 FOR Y = N TO X+1 STEP -1 IF N$(Y) < N$(Y-1) THEN TEMP$ = N$(Y):SWAP TEMP$,N$(Y-1):N$(Y) = TEMP$ NEXT Y NEXT X A = 1 : B = 10 TITLE$ = "Sorted Data" CLS GOSUB 1732 GOTO 1745 1732 REM REM Output the DATA REM LOCATE A,B PRINT TITLE$ PRINT FOR Y = 1 TO N IF LEN(N$(Y)) > 12 THEN PRINT PRINT "Name";Y;"- ";N$(Y), NEXT Y FOR X = 1 TO 250 : LOCATE 2,1:PRINT X:NEXT 1743 LOCATE 24,40:PRINT HITKEY$ : ANYKEY$ = INKEY$:IF ANYKEY$ = "" THEN 1743 RETURN 1745 CHI$ = "ERASE" RESTORE RETURN 1749 CLS REM *** Time Set Routine *** ON ERROR GOTO 1770 PRINT "Current Date is ";DATE$ 1753 INPUT "Enter a new Date (mm-dd-yy) - ",D$ 1754 IF D$ = "" THEN 1756 ELSE DATE$ = D$ 1756 PRINT "Current Time is ";TIME$;". 1757 INPUT "Enter a new time - ",T$ IF T$ = "" THEN 1760 ELSE TIME$ = T$ FOR X = 1 TO 1000 : NEXT 1760 ON ERROR GOTO 50000 RETURN : PROFESSOR HART 1770 IF ERL = 1754 THEN ER$ = "Date." ELSE ER$ = "Time." PRINT IF ERR = 5 THEN PRINT "Please enter a valid ";ER$ IF ERL = 1754 THEN RESUME 1753 ELSE RESUME 1757 1800 CLS PRINT "This will check for a name " PRINT "In the Array of names You made in the Bubble Sorts program." INPUT "Hit any Key to Continue",ARRAY$ IF CHI$ <> "ERASE" THEN PRINT "Array Not found. Create an Array using in Bubble Sorts.":GOTO 1850 1805 INPUT "Which name would You like to find"; NA$ FLAG$ = "Not Found" L = 1 H = N WHILE FLAG$ = "Not Found" M = INT((L + H) / 2) IF MID$(N$(M),3,5) = " " THEN N$(M) = LEFT$(N$(M),2): IF MID$(N$(M),4,5) = " " THEN N$(M) = LEFT$(N$(M),3): IF MID$(N$(M),5,5) = " " THEN N$(M) = LEFT$(N$(M),4): IF MID$(N$(M),6,5) = " " THEN N$(M) = LEFT$(N$(M),5): IF NA$ = N$(M) THEN FLAG$ = "Found" : GOTO 1817 IF NA$ > N$(M) THEN L = M + 1 ELSE H = M - 1 1817 IF L > H THEN FLAG$ = "not in the Array." WEND IF FLAG$ = "not in the Array." THEN PRINT NA$;" is ";FLAG$ : GOTO 1821 PRINT "I Found ";NA$ ;" as the Name Number";M;"in the Array. " 1821 PRINT "Would You, ";A$;", like to find another Name";:INPUT Q$ IF Q$ = "Y" OR Q$ = "y" THEN PRINT : GOTO 1805 ELSE 1850 1850 FOR X = 1 TO 1000 : NEXT RETURN 1900 CLS COLOR 7,0,0 : KEY(1) ON : ON KEY(1) GOSUB 2078 : LOCATE 25,1 : PRINT "Press [F1] to cancel any song."+STRING$(3,30):LOCATE 1,1 PRINT "WHICH CHRISTMAS CAROL DO YOU WANNA HEAR?" PRINT " 1) We wish You a Merry Christmas." PRINT " 2) Oh Christmas Tree!" PRINT " 3) Deck the Halls " PRINT " 4) The Twelve days of Christmas." PRINT " 5) Jingle Bells." : PRINT " 6) Exit." 1908 PRINT "? "; LINE INPUT SE$ IF VAL(SE$) < 1 THEN PRINT "?REENTER ": GOTO 1908 IF VAL(SE$) > 6 THEN PRINT "Enter 1-6.": GOTO 1908 IF VAL(SE$) = 6 THEN WHILE DAY$(1) = "First" : ERASE DAY$, MUSIC$, CH$ : WEND : ON KEY(1) GOSUB 3020 : GOTO 600 ON VAL(SE$) GOSUB 1915,1937,1981,2003,1962,2085 GOTO 1900 1915 CLS : PRINT "We wish You a Merry Christmas" PLAY "T180 O2 L4 E- A- L8 A- B- A- G L4 F F" PRINT "We wish You a Merry Christmas" PLAY "F b- l8 b- o3 c o2 b- a- l4 g e-" PRINT "We wish You a Merry Christmas" PLAY "l4 e- o3 c l8 c d- c o2 b- l4 a- f l8" PRINT "And a Happy New Year" PLAY "L8 E- E- L4 F B- G L4 A-." PRINT "Good timings for You wherever You are." PLAY "t180 l4 e- a- a- a- l2 g l4 g a- g f l2 e-"'l4 b- o3 c l8o2b-b-a-a-" PRINT "Good timing for CHRISTMAS and a happy New Year." PLAY "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-." PRINT "We wish You a Merry Christmas" PLAY "T180 O2 L4 E- A- L8 A- B- A- G L4 F F" PRINT "We wish You a Merry Christmas" PLAY "F b- l8 b- o3 c o2 b- a- l4 g e-" PRINT "We wish You a Merry Christmas" PLAY "l4 e- o3 c l8 c d- c o2 b- l4 a- f l8" PRINT "And a Happy New Year" PLAY "L8 E- E- L4 F B- G L4 A-." GOTO 1900 'VAR A :Real 1937 CLS PRINT "Oh! Christmas Tree!" PLAY "o2 t120 l4 c l8 f. l16 f l4 f"' g l8 a. l16al4a.l8agal4b-egf" PRINT "Oh! Christmas Tree!" PLAY "O2 T120 L4 G L8 A. L16 A L4 A. " PRINT "How lovely are Your branches." PLAY "O2 T120 L8 A G A L4 B- E G F" PRINT "Your shining star and twinkling light" PLAY "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" PRINT "They gently glow throughout the night. PLAY "O2 T120 L8 B- B- G O3 L4 C. L8 O2 B- B- A L4 A" PRINT "Oh! Christmas Tree!" PLAY "o2 t120 l4 c l8 f. l16 f l4 f"' g l8 a. l16al4a.l8agal4b-egf" PRINT "Oh! Christmas Tree!" PLAY "O2 T120 L4 G L8 A. L16 A L4 A. " PRINT "How lovely are Your branches." PLAY "O2 T120 L8 A G A L4 B- E G F" RETURN NOTE$(1) = "o2t100l4cl8f.l16fl4fgl8a.l16al4a.l8agal4b-egf" NOTE$(2) = "cl8f.l16fl4fgl8a.l16al4a.l8agal4b-egf" PLAY "l8n0o3cco2ao3l4d.l8cco2b-l4b-.l8b-b-go3l4c.l8o2b-b-al4ac" NOTE$(4) = "l8f.l16fl4fgl8a.l16al4a.l8agal4b-egf" PRINT "We wish You a Merry Christmas" PLAY "t100 l4 e- a- a- a- l2 g l4 g a- g f l2 e- l4 b- o3 c l8o2b-b-a-a-" PLAY "o3l4e-o2e-l8e-e-l4fb-gl2a-l4e-a-l8a-b-a-gl4fffb-l8b-o3co2b-a-" 1962 CLS :'TE$(2) = "cagfl4cl8n0ccagfl4dl8n0ddb-ago3ccccdco2b-gl4f.l8n0" PRINT "Dashing through the Snow," : PLAY "O2 T120 L8 C A G F C" : PRINT "In a one horse open sleigh," : PLAY "P10 L16 C C L8 C A G F D" : PRINT "On that firece we go," : PLAY "P10 D D B- A G O3 L4 C l8" : PRINT "Laughing all the way." : PLAY "P10 C C O2 B- G L4 A. L8" : PRINT "Bells on Bobtales ring," : PLAY "O2 C A G F L4 C L8" : PRINT "Making spirits bright." : PLAY "P10 C A G F L4 D L8" : PRINT "What fun it is to ride and sing and sleighing some tonight." : PLAY "P10 D D B- A G O3 C C C C D C O2 B- G L4 F. L8 P10" PRINT "Jingle Bells" : PLAY "A A L4 A L8" : PRINT "Jingle Bells" : PLAY "A A L4 A L8" : PRINT "Jingle all the way." : PLAY "A O3 C O2 F. L16 G L4 A. P10 l8" PRINT "Oh what fun it is to ride on a one horse open sleigh." : PLAY "B- B- B-. L16 B- L8 B- A A L16 A A L8 A G G A L4 G" : PLAY "O3 C O2 L8" PRINT "Jingle Bells" : PLAY "A A L4 A L8" : PRINT "Jingle Bells" : PLAY "A A L4 A L8" : PRINT "Jingle all the way." : PLAY "A O3 C O2 F. L16 G L4 A. P10 l8" PRINT "Oh what fun it is to sing all the way to Professor Hart's Lab!" : PLAY "B- B- B-. L16 B- L8 B- A A L16 A A L8 O3 C C O2 B- G L4 F. L8 N0" RETURN : 'TE$(5) = "l8aal4al8aal4al8ao3co2f.l16gl4an0" TE$(6) = "l8b-b-b-.l16b-l8b-aal16aal8o3cco2b-gl4f.l8n0" FOR G = 1 TO 6 PLAY TE$(G) NEXT TE$(1) = "t80o2l8f.l16gl8fl4d.l8f.l16gl8fl4d." TE$(2) = "o3cl8cl4o2a.b-l8b-l4f.gl8gb-.l16al8gf.l16gl8fl4dl8n0" TE$(3) = "l4gl8gb-.l16al8gf.l16gl8fl4dl8n0l4o3cl8ce-.l16co2l8a" TE$(4) = "l4b-.o3dl8n0o2b-.l16fl8df.l16e-l8co1l4b-.b-l8n0" FOR G = 1 TO 4 : PLAY TE$(G) : NEXT 1981 INPUT "(S)low version or (F)ast version";S.OR.F$ : CLS IF S.OR.F$ = "F" OR S.OR.F$ = "f" THEN S.OR.F = 220 ELSE S.OR.F = 160 CLS PRINT CENTER 1, "DECK THE HALLS WITH BELLS OF HOLLY," PLAY "T"+STR$(S.OR.F)+"O3L4D. L8C < L4BAGABG" PRINT CENTER 2, "FA LA LA LA LA, LA LA LA LA;" PLAY "L8AB >C L4D. L8C C L4C L8C L4D C# L4D L8EF# L4G L4F#E L2D" PRINT CENTER 7, "TROLL THE ANCIENT YULE TIDE CAROL" PLAY "L4D. L8C L8EEEE L4D. L8C 1 AND CH < 5 THEN PRINT CH$(Y): PLAY "O3 L4 C O2 L8 G A l6 A+ ":GOTO 2026 PRINT CH$(Y):PLAY MUSIC$(Y) 2026 NEXT Y FOR W = 1 TO 300 :NEXT CLS NEXT CH COLOR 15 PRINT "On the Twelvth day of Christmas My true love gave to Me -- " PRINT PLAY "o2 T140 l8 CC l4 C l8 f f l4 f l8 e f g a a+ g l3 a. " COLOR 12 PRINT "Twelve Ladies Dancing, " PLAY "o3 l04 C o2 l8 g a a+ G" COLOR 10 PRINT "Eleven Power Moprhers, " PLAY "o3 l09 o2 a+ o3 c C o2 l8 g a a+ G" COLOR 12 PRINT "Ten Power Genies, " PLAY "o3 l04 C o2 l8 g a a+ G" COLOR 10 PRINT "Nine Bells of Holly," PLAY "o3 l04 C o2 l8 g a a+ G" COLOR 12 PRINT "Eight Nintendo Games, " PLAY "o3 l08 C c o2 l8 g a a+ p15 " COLOR 10 PRINT "Seven Metroids, " PLAY "o3 l08 C c o2 l4 g a+ " COLOR 12 PRINT "Six Planeteers, " PLAY "o3 l04 C o2 l8 g a l4 a+ " COLOR 10 PRINT "Five Magic Rings, " PLAY "o3 l02 C l04 d o2 b o3 l2 c P10 COLOR 12 PRINT "Four Calling Birds," PLAY "T150 L8 O3 C O2 B A G l5 F P25 COLOR 10 PRINT "Three French Hens," PLAY "L4 A+ D F P25 COLOR 12 PRINT "Two Turtle Doves, " PLAY "L4 G l8 E D L4 C " COLOR 10 PRINT "And a Sony under My tree." PLAY "t180 o2 l6 a A+ O3 l3 C l06 d o2 b- a f l03 g f " COLOR 14 COLOR 7,0,0 REM Go Back TO 600 2078 RETURN 1900 2085 RETURN 600 2200 CLS 2201 INPUT "How Much energy do You need to defeat Zordon";E IF INT(E/100) > 6 THEN PRINT "You can't take more than 699.": GOTO 2201 PRINT A$;", You will get";INT(E/100);"Energy Tanks and";E MOD 100; : PRINT "Seperate units " PRINT "to defeat Zordon with. Good Luck! Make sure that You blast " PRINT "Zordon's column of green light with Your Super Missles. " PRINT "Once Zordon is beat, a time bomb will be set. Get out fast! Once" PRINT "You are out of the Command Center safely and away from it from a " PRINT "safe distance, watch it blow up to bits." PRINT INPUT "What Year is this";YEAR IF YEAR > 10000 OR YEAR = 0 OR YEAR < -30000 THEN PRINT "Illegal function call in 110": : PRINT "Ok " :PRINT: GOTO 2214 PRINT IF (YEAR MOD 4) THEN PRINT "The Year"; YEAR; "is not a leap year." : PRINT "The next leap year will be";YEAR+(4 - (YEAR MOD 4)) ELSE PRINT "The Year"; YEAR;"is a leap year." 2214 PRINT LEFT$(HITKEY$,LEN(HITKEY$)-1):ANYKEY$=INKEY$:IF ANYKEY$="" THEN 2214 PRINT "Here is an example of Coins - " PRINT PRINT"If You had 69 cents, You would need at least:" PRINT INT(69/25);"Quarters" PRINT INT((69 MOD 25)/10);"Dimes" PRINT INT(INT((69 MOD 25) MOD 10)/5);"Nickels" PRINT 69 MOD 5 ;"Pennies" 2222 INPUT "Enter a value in cents to calculate how much coine You need - ",C IF C > 999 THEN PRINT "999 cents or less please. " : GOTO 2222 G = C/100 PRINT USING "If You had $#.##, You would need at least:";G : PRINT INT(C/100);"DOLLARS." PRINT INT((C MOD 100)/25);"Quarters" PRINT INT(INT((C MOD 100) MOD 25)/10);"Dimes" PRINT INT(INT(INT((C MOD 100) MOD 25) MOD 10)/5);"Nickels" PRINT C MOD 5; "Pennies" PRINT 2231 LOCATE 24,1:PRINT HITKEY$ : ANYKEY$ = INKEY$:IF ANYKEY$ = "" THEN 2231 RETURN REM X = 6 :RESUME 4 - 8 REM ------------------------------------------------------ 3000 REM Power rangers are cruel. REM Power rangers are mean. REM They come in all different colors, REM Like Red, Blue, or Green. REM They Giggle and and laugh. REM They Sing and they dance. REM But when they fight the Planeteers or VR Troopers, REM They don't stand a chance. REM the Planeteers are Kwame(Earth), Wheeler(Fire), Linka(Wind), Alpha(Water), and Mate(Chess) REM Our team members are Eddie Segoura, Billy Yost, Kwame, Kimberly Johnson, Mate, Kaitlin Star, Ryan Steel, and J.B Reese. REM The Ghostwriter Team Members are Jamal Jenkins, Alex Fernandez, Gaby Fernandez, Tina Nguyen, Lenni Frazier, and Hector Correro. 3020 SOUND 37,.05 RETURN 6097 SOUND 455,5 SOUND 445,4 SOUND 435,3 SOUND 425,2 SOUND 415,1 SOUND 405,.1 SOUND 415,1 RETURN YRL = 1.701412E+38 PRINT H$ 50000 IF ERR = 1 THEN ER$ = "NEXT without FOR " :GOTO 50065 IF ERR = 2 THEN ER$ = "Syntax Error " :GOTO 50065 IF ERR = 3 THEN ER$ = "RETURN without GOSUB " :GOTO 50065 IF ERR = 4 THEN ER$ = "Out of DATA " :GOTO 50065 IF ERR = 5 THEN ER$ = "Illegal function call " :GOTO 50065 IF ERR = 6 THEN ER$ = "Override " :GOTO 50065 IF ERR = 7 THEN ER$ = "Out of Memory " :GOTO 50065 IF ERR = 8 THEN ER$ = "Undefined line number " :GOTO 50065 IF ERR = 9 THEN ER$ = "Subscript out of style " :GOTO 50065 IF ERR = 10 THEN ER$ = "Redimensioned Array " :GOTO 50065 IF ERR = 11 THEN ER$ = "Division by zero " :GOTO 50065 IF ERR = 12 THEN ER$ = "Illegal Direct " :GOTO 50065 IF ERR = 13 THEN ER$ = "Type mismatch " :GOTO 50065 IF ERR = 14 THEN ER$ = "Out of String Space " :GOTO 50065 IF ERR = 15 THEN ER$ = "String too long " :GOTO 50065 IF ERR = 16 THEN ER$ = "Stroing Formula too complex " :GOTO 50065 IF ERR = 17 THEN ER$ = "Can't Continue " :GOTO 50065 IF ERR = 18 THEN ER$ = "Undefined user function " :GOTO 50065 IF ERR = 19 THEN ER$ = "No RESUME " :GOTO 50065 IF ERR = 20 THEN ER$ = "RESUME without Error " :GOTO 50065 IF ERR = 21 THEN ER$ = "Unprintable Error " :GOTO 50065 IF ERR = 22 THEN ER$ = "Missing oprehend " :GOTO 50065 IF ERR = 23 THEN ER$ = "Line buffer override " :GOTO 50065 IF ERR = 24 THEN ER$ = "Device Timeout " :GOTO 50065 IF ERR = 25 THEN ER$ = "Device Fault " :GOTO 50065 IF ERR = 26 THEN ER$ = "FOR without NEXT " :GOTO 50065 IF ERR = 27 THEN ER$ = "Out of Keys " :GOTO 50065 IF ERR = 29 THEN ER$ = "WHILE without WEND " :GOTO 50065 IF ERR = 30 THEN ER$ = "WEND without WHILE " :GOTO 50065 IF ERR = 50 THEN ER$ = "FIELD override " :GOTO 50065 IF ERR = 51 THEN ER$ = "Internal Error " :GOTO 50065 IF ERR = 52 THEN ER$ = "Bad file number " :GOTO 50065 IF ERR = 53 THEN ER$ = "File not found " :GOTO 50065 IF ERR = 54 THEN ER$ = "Bad file mode " :GOTO 50065 IF ERR = 55 THEN ER$ = "File already open " :GOTO 50065 IF ERR = 57 THEN ER$ = "Device I/O Error " :GOTO 50065 IF ERR = 58 THEN ER$ = "File already exists " :GOTO 50065 IF ERR = 61 THEN ER$ = "Disk Full " :GOTO 50065 IF ERR = 62 THEN ER$ = "Input past End " :GOTO 50065 IF ERR = 63 THEN ER$ = "Bad record number " :GOTO 50065 IF ERR = 64 THEN ER$ = "Bad file Name " :GOTO 50065 IF ERR = 66 THEN ER$ = "Direct statement in file " :GOTO 50065 IF ERR = 67 THEN ER$ = "Too many files " :GOTO 50065 IF ERR = 68 THEN ER$ = "Device Unavailable " :GOTO 50065 IF ERR = 69 THEN ER$ ="Communication buffer override ":GOTO 50065 IF ERR = 70 THEN ER$ = "Disk Write Protected " :GOTO 50065 IF ERR = 71 THEN ER$ = "Drive not Ready " :GOTO 50065 IF ERR = 72 THEN ER$ = "Disk media Error " :GOTO 50065 IF ERR = 73 THEN ER$ = "Advanced Feature " :GOTO 50065 IF ERR = 74 THEN ER$ = "Rename Across Disks " :GOTO 50065 IF ERR = 75 THEN ER$ = "Path/File access Error " :GOTO 50065 IF ERR = 76 THEN ER$ = "Directory not found " :GOTO 50065 IF ERR = 77 THEN ER$ = "Deadlock " :GOTO 50065 IF ERR = 78 THEN ER$ = "Wrist communcator Error " :GOTO 50065 IF ERR = 79 THEN ER$ = "Out of stack space " :GOTO 50065 ER$ = "Unprintable Error " 50065 IF POS(X) < 0 OR POS(X) > 1 THEN PRINT IF ERL > 65529 THEN PRINT ER$:END ELSE PRINT ER$"in";ERL IF ERR.CHOICE = 1 THEN PRINT "Ok " : GOTO 50072 IF ERR.CHOICE = 2 THEN RESUME NEXT IF ERR.CHOICE = 3 THEN END ELSE END 50072 PRINT IF ERR = 5549 THEN ER$ = "To sign in, type the number [6086]" PRINT "Error Code.";ERR 50075 PRINT "(A)bort, (I)gnore - "; 50076 CNT$ = INKEY$ IF CNT$ = "" THEN 50076 IF CNT$ = "I" OR CNT$ = "i" THEN RESUME NEXT IF CNT$ = "A" OR CNT$ = "a" THEN 332 IF CNT$ = CHR$(13) THEN PRINT : GOTO 50075 PRINT CNT$ GOTO 50075 DATA 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" DATA "ROBERT STEAL","KAITLIN STAR","FUNKY KONG","CAPTAIN GAMEPLAY", "SAMUS ARAN","KIMBERLY JOHNSON","J.B REESE",TRAVIS YOUNGER,BENEATHA DATA "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 DATA 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 DATA 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 DATA 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,MAZE DATA 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,CARE DATA 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 DICK DATA 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 DATA 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 DATA 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 DATA 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 DATA 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 DATA 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 DATA 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 DATA 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,VIDEO DATA 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 CHANNEL DATA 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 DATA KWAME,WHEELER,LINKA,MATE,EARTH,FIRE,WIND,CHESS,PLANETEER,WISHES, NINTENDO,SAMUS,ALADDIN(ÆRED,WILMA,WATER,COMPUTERS,"MAGIC LAMP" DATA "A Sony Under the Tree.", "First", "O2 L8 A A+ O3 L4 C L08 D O2 B- A F L04 G F" DATA "Two Turtle Doves,","Second", "L4 G L8 E D C P25 " DATA "Three French Hens,","Third", "L4 A+ D F P25 " DATA "Four Calling Birds,","Fourth", "L8 O3 C O2 B A G l6 F " DATA "Five Magic Rings,","Fifth", "O3 L02 C L04 D O2 B O3 L2 C P10" DATA "Six Planeteers,","Sixth", "O3 L04 C O2 L8 G A l4 B-" DATA "Seven Metroids,","Seventh", "O3 L08 C C O2 L4 G B-" DATA "Eight Nintendo Games,","Eighth", "O3 L08 C C O2 G A B- P15" DATA "Nine Bells of Holly,","Ninth", "O3 L04 C O2 L8 G A B- G" DATA "Ten Power Genies, ", "Tenth", "O3 L04 C O2 L8 G A B- G" DATA "Eleven Power Morphers, ","Eleventh", "O3 L07 O2 A+ O3 L8 C C O2 G A B- G" DATA "Twelve Ladies Dancing,", "O3 L08 C C O2 G A B- G" REM Free Software. Bunch of Programs all built into one by Eddie Segoura REM Programs are: [BASIC Commands and Functions used] REM Programs Intro [CLS, PRINT, INPUT, FOR-NEXT, READ-DATA, IF-THEN, LEFT$(A$,X), MID$(A$,X,Y), RIGHT$(A$,x), ASC(A$), CHR$] REM Calculator [PRINT, INPUT, IF-THEN,+,-,*,/] REM Directory List [PRINT, INPUT, FILES] REM Number Guessing [PRINT, RANDOMIZE TIMER, RND, FOR-NEXT, INPUT] REM Main Menu [CLS, PRINT, LINE INPUT, ON..GOSUB, RETURN, IF-THEN] REM Grade Average [CLS, PRINT, INPUT, FOR-NEXT, DIM, {Subscriped Variables},ERASE] REM Math Problems [CLS, LOCATE, PRINT, INPUT, IF-THEN,+,-,*,/) REM String Reverse [PRINT, INPUT, FOR-NEXT, MID$(A$,x,y)] REM 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, REM Word Guesser(Con't) FOR-NEXT, LEN(A$), IF-THEN, STRING$(x,y),SOUND] REM Advanced Calculater [SQR(x),{Exponentation with ^},IF-THEN REM Palendromes [PRINT, INPUT, STR$(x), VAL(A$), IF-THEN, FOR-NEXT, MID$(A$,x,y), RIGHT$(A$,x)] REM 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$] REM Rolling the Dice [PRINT, INPUT, IF-THEN, RANDOMIZE TIMER, RND] REM Character Count [PRINT, INPUT, FOR-NEXT, MID$(A$,x,y), LEN(A$), IF-THEN] REM Bubble Sort [DIM ,{Subscripted Variables}, ERASE, READ-DATA, RESTORE, FOR-NEXT, IF-THEN(-ELSE), PRINT, INPUT, GOTO, GOSUB, SWAP, LOCATE, LEN(A$)] REM Binary Name Search [{Subscripted Variables}, PRINT, INPUT, CLS, MID$(A$,x,y), IF-THEN(-ELSE)] REM Christmas Carols [VAL(A$), ON..GOSUB, INPUT, PRINT, PLAY, READ-DATA, DIM, {Supscripted Variables},ERASE, IF-THEN, FOR-NEXT] REM MOD Programs [PRINT, INPUT, MOD Operator, INT(x)] REM Ending the Program [PRINT, END] REM Set Timer [System Variable DATE$, System Variable TIME$, IF-THEN, PRINT, INPUT] REM Error Handler [System Variable ERR, System Varable ERL, IF-THEN, INKEY$, PRINT, ON ERROR GOTO.., RESUME, END, POS(x)] REM Exiting to System [System] 65529 REM Program Published by Eddie Segoura, Please copy and share this program. You need to Have QBASIC or BASICA to run this program.