1 ON ERROR GOTO 50000
2 KEY OFF : SCREEN 0 : COLOR 7,0,0 : WIDTH 80 : CLS
3 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."
5 PRINT
6 INPUT "What is Your Name";A$
7 PRINT "EEEEK! A POWER RANGER!   
"
8 IF A$ = "" THEN RANDOMIZE TIMER : A = INT(RND*2) :                              IF A = 0 THEN A$ = "Eddie & Billy" ELSE A$ = "Computer User"
9 IF ASC(LEFT$(A$,1)) > 90 THEN A1$ = MID$(A$,1,1) :                              MID$(A$,1,1) = CHR$(ASC(A1$)-32)
10 REM - "CLS" CLEARS THE TV SCREEN
12 FOR X = 1 TO 45
13 READ R$
14 NEXT X
15 CLS
17 PRINT"Please enter the number of names to list near the ";:WRITE "?"
18 INPUT S
19 IF S  >  19 THEN PRINT "Too Much Information" :GOTO 40
20 FOR LAMP=1 TO S
25 READ R, R$
34 PRINT R,R$,LAMP
35 NEXT LAMP
40 PRINT "RADIUS =";R
50 PRINT "AREA =";3.14*R^2
60 FOR I=1 TO 1500:NEXT
67 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
69 IF ERR.CHOICE < 1 OR ERR.CHOICE > 3 THEN                                        PRINT "Please, "; A$; ", ";:GOTO 68
70 CLS
80 FOR TRAPAZOID=1 TO 2
90 PRINT "Please enter the height then the two"
100 PRINT "bases to get the area of the trapazoid. Ex: 1,2,3"
110 INPUT H,A,B
120 PRINT "HEIGHT =";H
130 PRINT "BASE 1 =";A
140 PRINT "BASE 2 =";B
150 PRINT "AREA ="; .5*H*(A+B)
160 PRINT
170 NEXT TRAPAZOID
180 PRINT "Wheeler"
190 PRINT
200 PRINT LINKA
201 HITKEY$ = "Hit any key to continue...           "+STRING$(2,30)
202 FOR KEYS = 1 TO 20 : KEY(KEYS) ON:ON KEY(KEYS) GOSUB 3000 : NEXT :
210 PRINT "Ok
211 LOCATE 24,1:PRINT HITKEY$ : ANYKEY$ = INKEY$:IF ANYKEY$ = "" THEN 211
212 CLS
213 INPUT"Key in a number!           ",D
214 INPUT"Key in another number!     ",E
215 PRINT
216 PRINT"What do you want to do with these numbers?"
217 INPUT"(A)dd, (S)ubtract, (M)ultiply,                                                  (D)ivide";C$
218 IF C$ = "A" THEN PRINT D;" + ";E;" = ";D+E:LET F = D+E
219 IF C$ = "a" THEN PRINT D;" + ";E;" = ";D+E:LET F = D+E
220 IF C$ = "S" THEN PRINT D;" - ";E;" = ";D-E:LET F = D-E
221 IF C$ = "s" THEN PRINT D;" - ";E;" = ";D-E:LET F = D-E
222 IF C$ = "M" THEN PRINT D;" x ";E;" = ";D*E:LET F = D*E
223 IF C$ = "m" THEN PRINT D;" x ";E;" = ";D*E:LET F = D*E
224 IF C$ = "D" THEN PRINT D;" divided by ";E;" = ";D/E:LET F = D/E
225 IF C$ = "d" THEN PRINT D;" divided by ";E;" = ";D/E:LET F = D/E
226 PRINT
227 PRINT"This is called a calculater, ";A$
228 PRINT"Do you Wish to continue with ";F;
229 INPUT B$
230 IF B$ = "n" THEN GOTO 254
231 IF B$ = "N" THEN GOTO 254
232 FOR I=1 TO 200 :NEXT
233 CLS
234 PRINT"Previous number:      ";
235 FOR I=1 TO 200:NEXT
236 PRINT F
237 INPUT"Key in a number!       ",G
238 PRINT"What do you want to do with these numbers?"
239 INPUT"(A)dd, (S)ubtract, (M)ultiply,                                                  (D)ivide";D$
240 IF D$ = "A" THEN PRINT F;" + ";G;" = ";F+G:LET F = F+G
241 IF D$ = "a" THEN PRINT F;" + ";G;" = ";F+G:LET F = F+G
242 IF D$ = "S" THEN PRINT F;" - ";G;" = ";F-G:LET F = F-G
243 IF D$ = "s" THEN PRINT F;" - ";G;" = ";F-G:LET F = F-G
244 IF D$ = "M" THEN PRINT F;" x ";G;" = ";F*G:LET F = F*G
245 IF D$ = "m" THEN PRINT F;" x ";G;" = ";F*G:LET F = F*G
246 IF D$ = "D" THEN PRINT F;" divided by ";G;" = ";F/G:LET F = F/G
247 IF D$ = "d" THEN PRINT F;" divided by ";G;" = ";F/G:LET F = F/G
248 PRINT"Do you Wish to end the calculater, ";A$
249 INPUT E$
250 CLS
251 IF E$ = "n" THEN GOTO 234
252 IF E$ = "N" THEN GOTO 234
253 CLS
254 PRINT A$ ", would you like to print this program (Y/N)";
255 INPUT E$
256 IF E$ = "y" OR E$ = "Y" THEN 257 ELSE GOTO 259
257 INPUT "Make sure the printer is ready.                                                 Strike ENTER to Print.",CD
258 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.
260 INPUT "Type a name of a thing.     ";H$
261 INPUT "Type anothter name of a thing.      ";I$
262 INPUT "Type something you get.      ";J$
263 INPUT "Type the name of a Cable Company.    ";K$
264 PRINT
300 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
301 PRINT "Equipment, and are only available threw ";K$;". Here's why:"
302 FOR I =1 TO 2000:NEXT:CLS:LET A = 2
303 FOR D  = 1 TO 40
304 PRINT A * 2,
305 LET A = A * 2
306 NEXT D
307 FOR I=1 TO 1500 :NEXT
308 CLS : ON ERROR GOTO 321
309 PRINT A$;", do you Wish to see the files on any disk (Y/N)?"
310 INPUT DISK$
311 IF DISK$ = "Y" THEN GOTO 315
312 IF DISK$ = "y" THEN GOTO 315
313 IF DISK$ <> "Y" THEN ON ERROR GOTO 50000:GOTO 350
314 IF DISK$ <> "y" THEN ON ERROR GOTO 50000:GOTO 350
315 PRINT "Which Drive";
316 INPUT N$     : N$ = N$ + ":\"
317 INPUT "Enter Subdirectory or ENTER for None - ",DIR$
318 IF DIR$ = ""  THEN FILES N$:GOTO 326                                            ELSE N$ = N$ + DIR$ + "\":V = 1: FILES N$:GOTO 326
319 IF N$     =  "ZORDON" THEN PRINT "Zordon is Evil!  Sign out of ";N$;" and press ENTER.":INPUT "", FF:FILES "b:":GOTO 326
320 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
323 GOTO 316
326 PRINT "Directory of ";LEFT$(N$,LEN(N$)-V)
327 PRINT "Look at another Directory (Y/N)";
328 INPUT NN$
329 IF NN$ = "y" OR NN$ = "Y" THEN V = 0 : GOTO 315 ELSE 344
330 GOTO 315
331 GOTO 327
332 CLS
333 PRINT "Your Name has";LEN (A$);"Character(s) in it."
334 PRINT "Good Bye, ";A$
335 PRINT "To Return to DOS, Type SYSTEM.  To clear this program, type NEW. "
336 PRINT "Here is another number: ";
337 RANDOMIZE TIMER
338 X = INT ((RND*100)+1)
339 PRINT X
340 END
344 CLS : ON ERROR GOTO 50000
345 PRINT "Test Program 1"
346 PRINT
347 PRINT
348 PRINT
349 PRINT
350 PRINT A$", Please enter three different names."
351 INPUT N1$, N2$, N3$
352 PRINT N1$
353 PRINT
354 PRINT N2$
355 PRINT
356 PRINT N3$
357 PRINT"Ok"
358 FOR JAFAR = 1 TO 1000:NEXT
359 CLS
360 PRINT "Test Program 2"
361 PRINT
362 PRINT
363 PRINT
364 PRINT
365 PRINT
366 PRINT "Side1 = ";12
367 PRINT "Side2 = ";8
368 PRINT "Side3 = ";13
369 PRINT "Perimeter = ";12+8+13
370 FOR JAFAR = 1 TO 1000:NEXT
371 CLS
372 PRINT"Test Program 3
373 PRINT
374 PRINT
375 PRINT
376 PRINT
377 CLS
378 PRINT"Who has the Power of Earth?"
379 PRINT"(A) Kwame         (B) Wheeler"
380 PRINT"(C) Linka         (D) Mate          (E) Alpha"
381 PRINT"Please enter the letter of your choice near the ";
382 WRITE "?"
383 FOR I=1 TO 3
384 INPUT ANSWER$
385 PRINT "You entered "; ANSWER$
386 IF ANSWER$ = "a" OR ANSWER$ = "A" THEN PRINT "Correct!" :GOTO 389
387 IF I = 3 THEN PRINT "Wrong too many times!":GOTO 389
388 IF ANSWER$ <> "A" THEN PRINT "Wrong, try again!":NEXT I
389 FOR JAFAR = 1 TO 1000 :NEXT
390 PRINT
391 PRINT
392 PRINT
393 PRINT
398 FOR H=1 TO 3000:NEXT
399 CLS
400 PRINT"Cls clears the lousy TV Screen
401 PRINT H , R$
402 FOR X = 1 TO 850 : NEXT
403 IF ERR = 5 THEN SOUND 434,2 : RESUME 1053
405 G = 0
478 REM      Austin St. John will never take My software.
499 CLS
500 FOR TIME=1 TO 50
501 LOCATE 1,1
502 PRINT TIME$
503 LOCATE 1,70
504 PRINT DATE$
505 NEXT TIME
506 PRINT "This is the time now!"
507 PRINT "This is called a Clock, ";A$
508 PRINT A$;:PRINT", do you want to see the clock":                                PRINT "again for 15 more seconds";
509 INPUT MT$
510 IF MT$ = "N" THEN GOTO 529
511 IF MT$ = "n" THEN GOTO 529
512 FOR TIME=1 TO 200
513 LOCATE 1,1
514 PRINT TIME$
515 LOCATE 1,70
516 PRINT DATE$
517 NEXT TIME
518 LOCATE 6,1
519 PRINT"Do you still want the clock to run";
520 INPUT USER$
521 IF USER$ = "N" THEN 529
522 IF USER$ = "n" THEN 529
523 INPUT "How many more seconds";SC
524 FOR I = 1 TO SC
525 FOR H = 1 TO 1000:NEXT
526 LOCATE 1,1
527 PRINT TIME$
528 NEXT I
529 LOCATE 9,1 : RANDOMIZE TIMER
530 NUMBER = INT ((RND*1000)+1)
531 PRINT
532 PRINT"The Computer has picked a number from 1 to 1000."
533 PRINT"The number is";NUMBER
534 LOCATE 24,1:PRINT HITKEY$ : ANYKEY$ = INKEY$:IF ANYKEY$ = "" THEN 534
535 CLS
536 RANDOMIZE TIMER
537 PLANETEER = INT (RND*101)
538 PRINT "The Computer has picked another Number from 1 to 100"
539 PRINT A$", please guess this Number and key it in near the word ";
540 WRITE "Number"
541 PRINT "You get only 10 Chances, ";A$;"!"
542 PRINT
543 FOR GUESS = 1 TO 10
544 INPUT "Number - ",C
545 IF C < 1 THEN PRINT"Invalid Number (1-100 Please)":GOTO 544
546 IF C > 100 THEN PRINT"Invalid Number (1-100 Please)":GOTO 544
547 IF C < PLANETEER THEN PRINT "The Number is Higher!"
548 IF C > PLANETEER THEN PRINT "The Number is Lower!"
549 IF C = PLANETEER THEN PRINT "You are Right, ";A$;"!":GOTO 555
550 NEXT GUESS
551 PRINT "You have used up all Your Chances"
552 PRINT "The Correct Number was";PLANETEER
553 LOCATE 24,1:PRINT HITKEY$ : ANYKEY$ = INKEY$:IF ANYKEY$ = "" THEN 553
554 GOTO 600
555 LOCATE 24,1:PRINT HITKEY$ : ANYKEY$ = INKEY$:IF ANYKEY$ = "" THEN 555
556 CLS
600 COLOR 7,0,0 : CLS
601 LOCATE 3,10
602 PRINT TAB(10);A$", Please choose an activity."
603 PRINT TAB(10);"1) Calculater"
604 PRINT TAB(10);"2) Guess the number"
605 PRINT TAB(10);"3) Grade Average Program."
606 PRINT TAB(10);"4) Math Bee."
607 PRINT TAB(10);"5) Print a name backwards."
608 PRINT TAB(10);"6) Word Guessing."
609 PRINT TAB(10);"7) Advanced Calculater."
610 PRINT TAB(10);"8) Number Reverses."
611 PRINT TAB(10);"9) Mortgages."
612 PRINT TAB(9);"10) Rolling Dice."
613 PRINT TAB(9);"11) Counting Charaters in a Phrase."
614 PRINT TAB(9);"12) Bubble Sorts.                  "
615 PRINT TAB(9);"13) Search for Name.              "
616 PRINT TAB(9);"14) Christmas Carols."
617 PRINT TAB(9);"15) Programs using the MOD operator. "
618 PRINT TAB(10);"E) End."
619 PRINT TAB(10);"R) Return to DOS."
620 PRINT TAB(10);"T) Set Time and Date."
621 PRINT TAB(10);
622 LINE INPUT "Choice - ";K$
623 IF K$ = "R" OR K$ = "r" THEN SYSTEM
624 IF K$ = "S" OR K$ = "s" THEN GOSUB 6097 : GOTO 601
625 IF K$ = "E" OR K$ = "e" THEN 332
626 IF K$ = "T" OR K$ = "t" THEN GOSUB 1749 : GOTO 650
630 METROID = VAL(K$)
635 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
640 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 ***
701 CLS
702 INPUT "How many Names would You like to average";NM:IF NM < 0 THEN NM = 0
703 DIM METROID$(NM),AVERAGE(NM) :PRINT "Enter STOP as a Name to Exit."
704 FOR M = 1 TO NM
705 PRINT "Enter Name";M;:INPUT "- ",METROID$(M)
706 IF METROID$(M)="stop" OR METROID$(M)="STOP" THEN DE$ = METROID$(M):GOTO 724
707 PRINT "How many Grades do you want for ";METROID$(M);
708 INPUT N
709 PRINT "Please Enter the";N;"one at a time."
710 FOR X = 1 TO N
711 PRINT "GRADE";X;:INPUT "- ",MARK
712 GRADE = GRADE + MARK
713 AVERAGE(M) = GRADE/N
714 PRINT
715 NEXT X
716 GRADE = 0
717 NEXT M
718 PRINT "Name";TAB(20);"Average";TAB(40);"Statues"
719 FOR G = 1 TO NM
720 IF AVERAGE(G) => 90 THEN                                                        PRINT METROID$(G);TAB(20);AVERAGE(G);TAB(40);"Honors":GOTO 723
721 IF AVERAGE(G) => 65 AND AVERAGE < 90 THEN                                       PRINT METROID$(G);TAB(20);AVERAGE(G);TAB(40);"Pass"  :GOTO 723
722 IF AVERAGE(G) < 65 THEN PRINT METROID$(G);TAB(20);AVERAGE(G);TAB(40);"Fall"
723 NEXT G
724 ERASE METROID$,AVERAGE
725 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
727 GOTO 700
728 RETURN
795 CLS
796 PRINT A$;", here is some simple Arithmatic."
799 REM *** Simple Arithmatic ***
800 LOCATE 2,1 : PRINT STRING$(40," ")
801 RANDOMIZE TIMER
802 S = INT (RND*51)
803 IF SCORE < -20 THEN 968
804 T = INT (RND*51)
805 SUM = S + T
806 IF SCORE > 100 THEN 883,
807 SIGN = INT (RND*4)+1
809 KEY(1) ON : LOCATE 23,1: PRINT "Press [F1] to Exit the Arithmatic."
810 ON KEY(1) GOSUB 889 :
811 ON SIGN GOTO 813,832,852,867
812 IF SIGN = 4 THEN 867
813 LOCATE 2,1
814 PRINT S;" + ";T;" =  ";
815 INPUT "",ANSWER
816 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
817 IF SGN(SUM) = -1 THEN 821
818 PRINT STRING$(9,32) :                                                           PRINT "Sorry, ";A$;"! The Correct Answer was";SUM
819 SCORE = SCORE - 1
820 LOCATE 1,45
821 PRINT "You have ";SCORE;"points, ";A$;" ":PRINT
824 GOTO 800
825 PRINT "Sorry, ";A$;"! The Correct Answer was ";SUM;"            "
826 SCORE = SCORE - 1
827 LOACTE 1,40
828 PRINT SCORE
831 GOTO 800
832 LOCATE 2,1
833 PRINT S;" - ";T;" =  ";:
834 INPUT "",ANSWER
835 DIFFERENCE = S - T
836 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
837 PRINT SPACE$(14)
838 IF SGN(DIFFERENCE) = -1 THEN 846
839 PRINT "Sorry, ";A$;"! The Correct Answer was";DIFFERENCE;"        "
840 SCORE = SCORE - 5
841 LOCATE 1,45
842 PRINT "You have ";SCORE;"points, ";A$;" "
845 GOTO 800
846 PRINT "Sorry, ";A$;"! The Correct Answer was ";DIFFERENCE;"         "
847 SCORE = SCORE - 2
848 LOCATE 1,45
849 PRINT "You have ";SCORE;"points, "A$
851 GOTO 800
852 PRODUCT = S * T
853 IF S > 12 OR T > 12 THEN 800
854 LOCATE 2,2
855 PRINT S;" x ";T;" =  ";
856 INPUT "",ANSWER
857 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
858 PRINT SPACE$(15)
859 IF SGN(PRODUCT) = -1 THEN 842
860 PRINT "Sorry, ";A$;"! The Correct Answer was";PRODUCT;SPACE$(20)
861 SCORE = SCORE - 8
862 LOCATE 1,45
863 PRINT "You have ";SCORE;"points, ";A$;" "
866 GOTO 800
867 IF T = 0 THEN 'THEIR IS A CHANCE TO DEFEAT ZORDON.
868 LOCA = VAL(STR$(10^28))
869 IF T = 0 THEN T = T + 4
870 DIV = S / T
871 IF S / T <> INT(S / T) THEN T = INT(RND*51) : GOTO 869
872 LOCATE 2,1
873 PRINT S;" ";CHR$(246);" ";T;" =  ";:INPUT "",ANSWER
874 IF S < T THEN                                                                   PRINT S" is is too small -";S;" ";CHR$(246);" ";T;" = ";S/T:GOTO 800
875 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
876 PRINT SPACE$(15)
877 IF SGN(DIV) = -1 THEN 842
878 PRINT "Sorry, ";A$;"! The Correct Answer was";DIV
879 SCORE = SCORE - 8
880 LOCATE 1,45
881 PRINT "You have ";SCORE;"points, ";A$;"  "
882 GOTO 800
883 LOCATE 11,30
884 PRINT A$;",
885 LOCATE 13,30
886 PRINT "YOU ARE A MATH MASTER!"
887 FOR X = 1 TO 3000: NEXT : SCORE = 0
888 PRINT 8;" ";CHR$(246);" ";2;" = ";8/2 : GOTO 900
889 SCORE = 0 : KEY(1) OFF
890 RETURN 909
900 PRINT
901 PRINT "Please enter any Name for the Computer to print backwards."
902 INPUT "Name - ",N$
903 R = LEN(N$)
904 FOR O = R TO 1 STEP -1
905 PRINT MID$(N$,O,1);
906 NEXT O
907 PRINT
908 PRINT HITKEY$ : ANYKEY$ = INKEY$:IF ANYKEY$ = "" THEN 907
909 RETURN
968 FOR D = 1 TO 5000 :NEXT : SCORE = 0
969 CLS
970 LOCATE 11, 30
971 PRINT A$ ","
972 LOCATE 13, 30
973 PRINT "The Game is over!
974 FOR I =1 TO 2000: NEXT
975 CLS
976 PRINT "Your Name has";LEN (A$);"Character(s) in it."
977 GOSUB 6097
978 END
1000 COLOR 3,1,1 : CLS : KEY OFF
1001 PRINT
1002 PRINT
1003 LOCATE 23,1
1004 LOCATE 25,1
1005 PRINT"Planeteers PC."+STRING$(53,0)+CHR$(17)+CHR$(196)+CHR$(217);:              PRINT " Continue";STRING$(3,30):LOCATE 1,1 : PRINT
1006 PRINT
1007 PRINT SPC(26); STRING$(27,205); SPC(25)
1008 COLOR 15
1009 PRINT SPC(30);"WORD GUESSER: MAIN MENU";SPC(32)
1010 COLOR 3
1011 PRINT SPC(23); STRING$(27,205); SPC(28)
1012 LOCATE 22,1:PRINT STRING$(80,196):PRINT"Welcome, "+A$+STRING$(3,30)
1013 PRINT
1014 LOCATE 9,10
1015 PRINT "1.  User to guess Computer's word"
1016 PRINT
1017 PRINT TAB(10);"2.  One player to guess another Player's word"
1018 PRINT
1019 PRINT TAB(10);"3.  Exit"
1020 LOCATE 18,34
1021 COLOR 1,3 : PRINT " Selection:";: COLOR 3,1 : LINE INPUT " ",PICK$
1022 P = VAL(PICK$)
1023 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
1024 ON P GOSUB 1025,1035,1113
1025 REM
1026 REM  *** Word Input By the Computer ***
1027 REM
1028 RANDOMIZE TIMER
1029 RESTORE
1030 FOR X = 1 TO INT(RND*455)+1
1031 READ WORD$
1032 NEXT X
1033 GOSUB 1058
1034 RETURN
1035 REM
1036 REM  **** Word Entered By the Player  ****
1037 REM
1038 CLS
1039 PRINT "Type in a Word and Press Enter!"
1040 PRINT"You may use Spaces. "
1041 PRINT"Any other character besides letters will be revealed."
1042 WORD$ = ""
1043 T$ = ""
1044 ON ERROR GOTO 403
1045 WHILE T$ <> CHR$(13)
1046 T$ = INKEY$
1047 IF T$ = "" THEN 1046
1048 IF LEN(T$) > 1 THEN 1046
1049 IF T$ = CHR$(8) THEN WORD$ = LEFT$(WORD$,LEN(WORD$)-1):                         PRINT STRING$(1,29);" ";STRING$(1,29);:GOTO 1046
1050 IF ASC(T$) < 123 AND ASC(T$) > 96 THEN T$ = CHR$(ASC(T$)-32)
1051 WORD$ = WORD$ + T$
1052 PRINT "*";
1053 WEND
1054 ON ERROR GOTO 50000
1055 WORD$ = LEFT$(WORD$,LEN(WORD$)-1)
1056 GOSUB 1058
1057 RETURN
1058 REM  **** Guess Routine ****
1059 CLS
1060 FOR X = 1 TO 26:LOCATE 2,(X*2)+8 :PRINT CHR$(X+64):NEXT
1061 LOCATE 5,10
1062 L = LEN(WORD$)
1063 G = 1 : MIS$ = "You Missed" : TIM$ = "times out of"
1064 PRINT "The Word has";L;"Characters." :                                          IF LEN(WORD$) > 10 THEN W = 16 ELSE W = 11
1065 GUESS$ = STRING$(LEN(WORD$),45)
1066 FOR X = 1 TO LEN(WORD$)
1067 IF MID$(WORD$,X,1) = "." THEN MID$(GUESS$,X,1) = "."
1068 IF MID$(WORD$,X,1) = " " THEN MID$(GUESS$,X,1) = " "
1069 IF ASC(MID$(WORD$,X,1)) < 91 AND ASC(MID$(WORD$,X,1)) > 64 THEN 1071
1070 MID$(GUESS$,X,1) = MID$(WORD$,X,1)
1071 NEXT X
1072 LOCATE 9,10
1073 COLOR 14,0 : PRINT GUESS$ : COLOR 3,1
1074 IF LEN(G$) > 2 THEN 1085
1075 WHILE G < W AND WORD$ <> GUESS$
1076 LOCATE 17,10
1077 PRINT "You Missed";G-1;"times out of";W-1
1078 LOCATE 19,10
1079 PRINT TAB(10);"Words chosen may have spaces.                  "
1080 PRINT TAB(10);"To get back to Main Menu, press the ESC key."
1081 PRINT : IF WORD$ = GUESS$ THEN G = W
1082 PRINT TAB(10);"Guess a letter in the word - ";
1083 G$ = INKEY$
1084 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
1087 IF ASC(G$) < 123 AND ASC(G$) > 96 THEN G$ = CHR$(ASC(G$)-32)
1088 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
1090 PRINT G$
1091 FOR D = 1 TO LEN(DUMMY$)
1092 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
1093 NEXT D
1094 DUMMY$ = DUMMY$ + G$
1095 M = G
1096 IF G$ = CHR$(27) THEN 1083
1097 FOR J = 1 TO L
1098 IF MID$(WORD$,J,1) <> G$ THEN 1101                                              ELSE MID$(GUESS$,J,1) = G$
1099 LOCATE 9,10
1100 COLOR 14,0:PRINT GUESS$:COLOR 3,1:E = 1
1101 LOCATE 2,(ASC(G$)-65+5)*2
1102 PRINT " "
1103 NEXT J
1104 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
1105 IF G = M THEN LOCATE 15,9:PRINT STRING$(40,0): E = O
1106 IF GUESS$ = WORD$ THEN G = W
1107 WEND
1108 LOCATE 13,10
1109 IF GUESS$ = WORD$ THEN PRINT "Good Guessing, ";A$                               ELSE PRINT "Sorry, ";A$;"! The Word or Name was ";WORD$
1110 DUMMY$ = ""
1111 LOCATE 22,10:PRINT HITKEY$ : ANYKEY$ = INKEY$:IF ANYKEY$ = "" THEN 1111
1112 RETURN
1113 GOTO 600
1120 CLS
1121 INPUT"Key in a number      ",X
1122 PRINT
1123 PRINT"What do you want to do with this number?"
1124 PRINT"(S)quare Root      (E)xponentation"
1125 INPUT G$
1126 PRINT
1127 IF G$ = "S" OR G$ = "s" THEN                                                    IF SGN(X) = -1 THEN PRINT "Imaginary Root":GOTO 1132
1128 IF G$ = "S" THEN PRINT"The Square Root of";X;"is";SQR(X):X = SQR(X)
1129 IF G$ = "s" THEN PRINT"The Square Root of";X;"is";SQR(X):X = SQR(X)
1130 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
1131 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
1133 PRINT "This is the Advanced Calculater, ";A$
1134 PRINT "Do you want to Continue with ";X;"?"
1135 INPUT AN$
1136 IF AN$ = "N" OR AN$ = "n" THEN 600
1137 CLS
1138 PRINT "Previous Number     ";
1139 PRINT X
1140 PRINT"What do you want to do with this number?"
1141 PRINT"(S)quare Root      (E)xponentation"
1142 INPUT G$
1143 PRINT
1144 IF G$ = "S" OR G$ = "s" THEN                                                    IF SGN(X) = -1 THEN PRINT "Imaginary Root":GOTO 1149
1145 IF G$ = "S" THEN PRINT"The Square Root of";X;"is";SQR(X):X = SQR(X)
1146 IF G$ = "s" THEN PRINT"The Square Root of";X;"is";SQR(X):X = SQR(X)
1147 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
1148 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
1150 PRINT A$;", do you want to end this Calculater?"
1151 INPUT AN$
1152 IF AN$ = "Y" OR AN$ = "y" THEN 600
1153 GOTO 1137
1196 Y$ = ""
1197 G = 0
1198 CLS
1199 INPUT "Please enter a Number - ",X$
1200 IF X$ = "" THEN Z$ = "00EDDIE"
1201 X = VAL(X$)
1202 FOR C = LEN(X$) TO 1 STEP -1
1203 IF MID$(X$,1,1) = "0" AND C = 1 THEN 1205
1204 Y$ = Y$ + MID$ (X$,C,1)
1205 NEXT C
1206 Y = VAL(Y$)
1207 PRINT "The Sum of ";X$;" and";Y;"is";X+Y
1208 Z = X + Y
1209 Z$ = STR$(Z)
1210 IF LEN(Z$) < 4 THEN 1211 ELSE 1213
1211 IF RIGHT$ (Z$,1) = MID$(Z$,2,1) THEN 1219
1212 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)
1215 Y$ = ""
1216 G = G + 1
1217 IF G > 15 THEN 1219
1218 GOTO 1201
1219 REM  Zordon is Evil!
1296 BEEP
1297 PRINT "Zordon is Evil!"
1298 LOCATE 24,1:PRINT HITKEY$ : ANYKEY$ = INKEY$:IF ANYKEY$ = "" THEN 1298
1299 GOTO 600
1300 REM The IBM Personal Computer Mortgage
1301 REM Version 1.00 (C)Copyright IBM Corp, Eddie Segoura 1994, 1995
1302 REM Licensed Material - BASIC Programming for the IBM Personal Computer
1303 REM Mortgage Amorization Program
1304 REM Built into Program by Eddie Segoura - Tuesday, February 15, 1994.
1305 DEF SEG
1306 SAMPLES$="NO"
1307 GOTO 1309
1308 SAMPLES$="YES"
1309 KEY OFF:SCREEN 0,1:COLOR 15,0,0:CLS:LOCATE 5,19:PRINT "IBM"
1310 LOCATE 7,12,0:PRINT "Personal Computer"
1311 COLOR 10,0:LOCATE 10,9,0:PRINT CHR$(213)+STRING$(21,205)+CHR$(184)
1312 LOCATE 11,9,0:PRINT CHR$(179)+"      MORTGAGES      "+CHR$(179)
1313 LOCATE 12,9,0:PRINT CHR$(179)+STRING$(21,32)+CHR$(179)
1314 LOCATE 13,9,0:PRINT CHR$(179)+"    Version 1.10     "+CHR$(179)
1315 LOCATE 14,9,0:PRINT CHR$(212)+STRING$(21,205)+CHR$(190)
1316 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$
1317 COLOR 14,0:LOCATE 23,7,0:PRINT "Press space bar to continue"
1318 IF INKEY$ <> "" THEN GOTO 1318
1319 CMD$ = INKEY$
1320 IF CMD$ = " " THEN GOTO 1323
1321 IF CMD$ =CHR$(27) THEN GOTO 1333
1322 GOTO 1319
1323 COLOR 15,0:CLS:DEFDBL P:DIM AMORT(420,2):SCREEN 0
1324 DEF SEG=0
1325 IF (PEEK(&H410) AND &H30)<>&H30 THEN COLS = 3:GOTO 1327
1326 WIDTH 80:COLS=8
1327 DEF SEG
1328 GOTO 1337
1329 IF ASC(I$)=27 THEN 1333
1330 IF VAL(I$) < 1 OR VAL(I$) > 2 THEN GOTO 1359
1331 IF MID$(I$,1,1)="2" THEN GOTO 1415
1332 IF MID$(I$,1,1)="1" THEN GOTO 1362
1333 IF SAMPLES$ <> "YES" THEN GOTO 1335
1334 CHAIN "SAMPLES",1000
1335 GOSUB 1360
1336 RETURN
1337 REM - MAIN OPTION MENU
1338 COLOR 15,0:CLS:COLOR 0,7:PRINT " Mortgage Analysis "
1339 COLOR 15,0:LOCATE 3,1:PRINT "Options - "
1340 PRINT "1 - Mortgage Payment Comparisons "
1341 PRINT "2 - Mortgage Amorizitions"
1342 PRINT "ESC KEY - EXIT"
1343 PRINT " "
1344 PRINT "Option Number (1,2, OR ESC) =====>"
1345 PRINT " "
1346 COLOR 15,0
1347 PRINT CHR$(201)+STRING$(37,CHR$(205))+CHR$(187)
1348 PRINT CHR$(186)+"  MORTGAGE                           "+CHR$(186)
1349 PRINT CHR$(186)+"    - Use this option to compare     "+CHR$(186)
1350 PRINT CHR$(186)+"      the monthly payments of        "+CHR$(186)
1351 PRINT CHR$(186)+"      mortgages at various rates     "+CHR$(186)
1352 PRINT CHR$(186)+"      and principal amounts.         "+CHR$(186)
1353 PRINT CHR$(186)+"  Mortgage Amortizated               "+CHR$(186)
1354 PRINT CHR$(186)+"    - Use this option to calculate   "+CHR$(186)
1355 PRINT CHR$(186)+"      the principle and interest     "+CHR$(186)
1356 PRINT CHR$(186)+"      payed over any 12 month period."+CHR$(186)
1357 PRINT CHR$(200)+STRING$(37,CHR$(205))+CHR$(188)
1358 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
1363 COLOR 15,0:CLS:COLOR 0,7:PRINT " mortgage payment comparison program."
1364 LOCATE 10,1:COLOR 15,0
1365 PRINT CHR$(218)+STRING$(37,CHR$(196))+CHR$(191)
1366 PRINT CHR$(179)+"  MORTGAGE PAYMENT COMPARISONS       "+CHR$(179)
1367 PRINT CHR$(179)+"    - USE THIS OPTION TO COMPARE     "+CHR$(179)
1368 PRINT CHR$(179)+"      THE MONTHLY PAYMENTS OF        "+CHR$(179)
1369 PRINT CHR$(179)+"      MORTGAGES AT VARIOUS RATES     "+CHR$(179)
1370 PRINT CHR$(179)+"      AND PRINCIPAL AMOUNTS.         "+CHR$(179)
1371 PRINT CHR$(179)+"                                     "+CHR$(179)
1372 PRINT CHR$(179)+"  NOTE: TO SELECT A VALUE OR AMOUNT  "+CHR$(179)
1373 PRINT CHR$(179)+"      ENTER THE APPROPRIATE VALUE    "+CHR$(179)
1374 PRINT CHR$(179)+"      AND PRESS THE ENTER KEY.       "+CHR$(179)
1375 PRINT CHR$(192)+STRING$(37,CHR$(196))+CHR$(217)
1376 LOCATE 3,1:LINE INPUT "ENTER BASE MORTGAGE AMOUNT ===> ";B$
1377 A = VAL(B$):IF A <= 0 THEN GOTO 1373
1378 AINC = 2000
1379 LOCATE 4,1:PRINT SPC(38);
1380 LOCATE 5,1:PRINT "(1 TO 50 PERCENT)";
1381 LOCATE 4,1:LINE INPUT "ENTER BASE INTEREST RATE =====> ";IR$
1382 IR = VAL(IR$):IF IR>50 OR IR<1 THEN GOTO 1379
1383 R = IR/1200:RINC = .0025/12
1384 LOCATE 5,1:PRINT SPC(38);
1385 LOCATE 6,1:PRINT "(1 TO 50 YEARS)";
1386 LOCATE 5,1:LINE INPUT "ENTER NUMBER OF YEARS IN MTG => ";Y$
1387 Y = VAL(Y$)
1388 N = Y * 12
1389 NF = N
1390 IF NF>600 OR NF<1 THEN GOTO 1384
1391 CLS
1392 COLOR 0,7:PRINT " MONTHLY MORTGAGE PAYMENT COMPARISONS "
1393 COLOR 15,0:LOCATE 3,10:PRINT Y$+"-YEAR MORTGAGE LOAN AMOUNTS";
1394 LOCATE 5,2:PRINT "RATES";:COLOR 0,7
1395 FOR I = 0 TO COLS
1396 LOCATE 4,9+I*8:PRINT SPC(7):LOCATE 4,9+I*8:PRINT A+I*AINC
1397 NEXT I
1398 FOR I = 0 TO 14
1399 LOCATE 6+I,1:PRINT SPC(7):LOCATE 6+I,2
1400 PRINT USING "##.##";INT(((R+(I*RINC))*120000!)+.5)/100
1401 NEXT I
1402 COLOR 15,0
1403 FOR I = 0 TO 14
1404 RF = R+I*RINC:AF=1:GOSUB 1361
1405 FOR J = 0 TO COLS
1406 P = PF*(A+J*AINC):P = INT((P+5.000001E-03)*100)/100
1407 IF P>10000 THEN LOCATE 22,1:PRINT "PAYMENTS TOO LARGE TO DISPLAY":              GOTO 1412
1408 LOCATE 6+I,9+J*8:PRINT USING "####.##";P;
1409 NEXT J
1410 NEXT I
1411 PRINT " "
1412 PRINT "PRESS SPACE BAR TO CONTINUE";
1413 IF INKEY$ <> " " THEN GOTO 1413
1414 ERASE AMORT : GOTO 1323
1415 REM - mortgage amortization
1416 COLOR 7,0
1417 CLS
1418 COLOR 0,7
1419 LOCATE 1,1
1420 PRINT " MORTGAGE AMORTIZATION PROGRAM "
1421 LOCATE 10,1:COLOR 15,0
1422 PRINT CHR$(218)+STRING$(37,CHR$(196))+CHR$(191)
1423 PRINT CHR$(179)+"  MORTGAGE AMORTIZATION              "+CHR$(179)
1424 PRINT CHR$(179)+"    - USE THIS OPTION TO CALCULATE   "+CHR$(179)
1425 PRINT CHR$(179)+"      THE PRINCIPAL AND INTEREST     "+CHR$(179)
1426 PRINT CHR$(179)+"      PAID OVER ANY 12 MONTH PERIOD. "+CHR$(179)
1427 PRINT CHR$(179)+"                                     "+CHR$(179)
1428 PRINT CHR$(179)+"  NOTE: TO SELECT A VALUE OR AMOUNT  "+CHR$(179)
1429 PRINT CHR$(179)+"      ENTER THE APPROPRIATE VALUE    "+CHR$(179)
1430 PRINT CHR$(179)+"      AND PRESS THE ENTER KEY.       "+CHR$(179)
1431 PRINT CHR$(192)+STRING$(37,CHR$(196))+CHR$(217)
1432 LOCATE 3,1
1433 LINE INPUT "ENTER MORTGAGE AMOUNT ===> ";C$
1434 AF = VAL(C$): IF AF <= 0 THEN 1429
1435 LOCATE 4,1
1436 PRINT "                                      ";
1437 LOCATE 5,1
1438 PRINT "(1 TO 35 PERCENT)";
1439 LOCATE 4,1
1440 LINE INPUT "ENTER INTEREST RATE =====> ";IR$
1441 IR = VAL(IR$)
1442 IF IR>35 THEN GOTO 1435
1443 IF IR<1 THEN GOTO 1435
1444 RF = IR/1200
1445 LOCATE 5,1
1446 PRINT "                                      ";
1447 LOCATE 6,1
1448 PRINT "(1 TO 35 YEARS)";
1449 LOCATE 5,1
1450 LINE INPUT "ENTER NUMBER OF YEARS ===> ";Y$
1451 Y = VAL(Y$)
1452 NF = Y * 12
1453 IF NF>420 THEN GOTO 1445
1454 IF NF<1 THEN GOTO 1445
1455 GOSUB 1361
1456 PF = INT((PF+5.000001E-03)*100)/100
1457 PRINT "MONTHLY PAYMENTS ARE ====>";PF
1458 COLOR 23,0
1459 PRINT "CALCULATING AMORTIZATION"
1460 COLOR 15,0
1461 IF NF>36 THEN GOTO 1463
1462 FOR I = 1 TO 1000:NEXT I
1463 AMORT(0,1) = AF
1464 FOR I = 1 TO NF
1465 AMORT(I,2) = INT((AMORT(I-1,1)*RF+5.000001E-03)*100)/100
1466 AMORT(I,1) = AMORT(I-1,1)-PF+AMORT(I,2)
1467 NEXT I
1468 FOR I = 7 TO 25:LOCATE I,1:PRINT SPC(39);:NEXT I
1469 LOCATE 9,1
1470 PRINT " - 1 TO"+STR$(NF)
1471 PRINT " - 0 TO END AMORTIZATION";
1472 LOCATE 7,1
1473 PRINT "ENTER BEGINNING PAYMENT NUMBER"
1474 LINE INPUT "OF 12 MONTH PERIOD ======> ";PERIOD$
1475 PD= VAL(PERIOD$)
1476 IF PD <> 0 THEN GOTO 1478
1477 IF PERIOD$ <> "0" THEN GOTO 1472
1478 IF PD=0 THEN GOTO 1328
1479 IF PD>NF THEN GOTO 1472
1480 IF PD<0 THEN GOTO 1472
1481 LOCATE 7,1
1482 PRINT SPC(39)
1483 PRINT SPC(39)
1484 LOCATE 9,1
1485 PRINT "PYMNT PRINCIPAL   INTEREST    BALANCE"
1486 TINT = 0
1487 FOR I = PD TO PD+11
1488 IF I> NF THEN GOTO 1492
1489 TINT = TINT + AMORT(I,2)
1490 PRINT USING "### ";I;
1491 PRINT USING "  ######.##";PF-AMORT(I,2);AMORT(I,2);AMORT(I,1)
1492 NEXT I
1493 PRINT " "
1494 PRINT "INTEREST FOR 12 PERIODS =";
1495 PRINT USING "######.## ";TINT
1496 LOCATE 25,1
1497 PRINT "PRESS SPACE BAR TO CONTINUE";
1498 LOCATE ,,0
1499 IF INKEY$ <> "" THEN GOTO 1499
1500 CMD$ = INKEY$
1501 IF CMD$ = " " THEN GOTO 1468
1502 IF CMD$ =CHR$(27) THEN GOTO 1333
1503 GOTO 1500
1504 COLOR 3,1,1
1505 CLS
1506 LOCATE 10,10
1507 PRINT TAB(10)"1) Roll the dice and see if Your Numbers match."
1508 PRINT TAB(10);"2) Pick a number and roll a die a number of times to
1509 PRINT TAB(10);"   to see how many times your number is rolled."
1510 PRINT TAB(10)"   choice";
1511 LINE INPUT " - ",C$(1)
1512 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
1513 ON VAL(C$(1)) GOSUB 1516,1533
1514 COLOR 7,0,0
1515 RETURN
1516 CLS
1517 INPUT "Enter a Number - ",C(2)
1518 INPUT "Enter another Number - ",C(3)
1519 PRINT
1520 PRINT "You picked";C(2);"and";C(3)
1521 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
1522 RANDOMIZE TIMER
1523 D(2) = INT(RND*6)+1
1524 D(3) = INT(RND*6)+1
1525 PRINT "YOU ROLLED A";D(2);"AND A";D(3);"               "
1526 IF C(2) = D(2) AND C(3) = D(3) THEN                                             PRINT A$;" wins!":GOTO 1531
1527 IF C(3) = D(2) AND C(2) = D(3) THEN                                             PRINT A$;" wins!":GOTO 1531
1528 IF C(2) = D(2) OR C(3) = D(3) THEN                                              PRINT "On of Your numbers matched. It's a tie!":GOTO 1531
1529 IF C(2) = D(3) OR C(3) = D(2) THEN                                              PRINT "On of Your numbers matched. It's a tie!":GOTO 1531
1530 PRINT "Sorry, ";A$". You lose!"
1531 LOCATE 24,1:PRINT HITKEY$ : ANYKEY$ = INKEY$:IF ANYKEY$ = "" THEN 1531
1532 RETURN
1533 CLS:INPUT "How many rolls";RL
1534 LINE INPUT "Enter a Number from 1-6 please - ",BM$
1535 BM = VAL(BM$)
1536 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
1540 RANDOMIZE TIMER
1541 FOR X = 1 TO RL
1542 DI = INT(RND*6)+1
1543 IF BM = DI THEN T2 = T2 + 1
1544 NEXT X
1545 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
1547 T2 = 0
1548 RETURN
1549 LOCATE 24,1:PRINT HITKEY$ : ANYKEY$ = INKEY$:IF ANYKEY$ = "" THEN 1549
1550 RETURN
1551 RETURN
1600 CLS
1601 PRINT "Color Test for the Planeteers"
1602 FOR X = 1 TO 15
1603 COLOR X
1604 PRINT "Planeteers";X
1605 NEXT X
1606 COLOR 7
1607 PRINT "Please enter a String."
1608 INPUT PH$
1609 INPUT "What character do you want to count"; CH$
1610 FOR X = 1 TO LEN(PH$)
1611 IF MID$(PH$,X,1) = CH$ THEN C = C + 1
1612 NEXT X
1613 IF C = 0 THEN PRINT "Their are no ";CH$; "'s in the string:":GOTO  1616
1614 IF C = 1 THEN PRINT "Their is only one ";CH$; " in the string:":GOTO  1616
1615 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
1618 C = 0
1619 RETURN
1697 RESTORE
1698 CLS
1699 IF CHI$ = "ERASE" THEN ERASE N$
1700 INPUT "How many Names do You wanna sort";N
1701 REM  Read Name into array
1702 IF N = 0 THEN DA$ = "45E" : N = VAL(DA$) : GOTO 1703 ELSE 1709
1703 DIM N$(N)
1704 FOR I = 1 TO N
1705 READ N$(I)
1706 IF LEN(N$(I)) < 5 THEN N$(I) = N$(I) + "     "
1707 NEXT I
1708 GOTO 1716
1709 PRINT "Enter the names one at a time."
1710 DIM N$(N)
1711 FOR X = 1 TO N
1712 INPUT N$(X)
1713 IF LEN(N$(X)) < 5 THEN N$(X) = N$(X) + "     "
1714 NEXT X
1715 CLS
1716 TITLE$ = "Unsorted Data"
1717 A = 3 : B = 10
1718 GOSUB 1732
1719 REM  Bubble Sort Routine!
1720 REM
1721 LOCATE 1,60 : COLOR 23 : PRINT "Sorting....":COLOR 7
1722 FOR X = 1 TO N-1
1723 FOR Y = N TO X+1 STEP -1
1724 IF N$(Y) < N$(Y-1) THEN TEMP$ = N$(Y):SWAP TEMP$,N$(Y-1):N$(Y) = TEMP$
1725 NEXT Y
1726 NEXT X
1727 A = 1 : B = 10
1728 TITLE$ = "Sorted Data"
1729 CLS
1730 GOSUB 1732
1731 GOTO 1745
1732 REM
1733 REM  Output the DATA
1734 REM
1735 LOCATE A,B
1736 PRINT TITLE$
1737 PRINT
1738 FOR Y = 1 TO N
1739 IF LEN(N$(Y)) > 12 THEN PRINT
1740 PRINT "Name";Y;"- ";N$(Y),
1741 NEXT Y
1742 FOR X = 1 TO 250 : LOCATE 2,1:PRINT X:NEXT
1743 LOCATE 24,40:PRINT HITKEY$ : ANYKEY$ = INKEY$:IF ANYKEY$ = "" THEN 1743
1744 RETURN
1745 CHI$ = "ERASE"
1747 RESTORE
1748 RETURN
1749 CLS
1750 REM  *** Time Set Routine ***
1751 ON ERROR GOTO 1770
1752 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$
1758 IF T$ = "" THEN 1760 ELSE TIME$ = T$
1759 FOR X = 1 TO 1000 : NEXT
1760 ON ERROR GOTO 50000
1761 RETURN : PROFESSOR HART
1770 IF ERL = 1754 THEN ER$ = "Date." ELSE ER$ = "Time."
1771 PRINT
1773 IF ERR = 5 THEN PRINT "Please enter a valid ";ER$
1774 IF ERL = 1754 THEN RESUME 1753 ELSE RESUME 1757
1800 CLS
1801 PRINT "This will check for a name                "
1802 PRINT "In the Array of names You made in the Bubble Sorts program."
1803 INPUT "Hit any Key to Continue",ARRAY$
1804 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$
1806 FLAG$ = "Not Found"
1807 L = 1
1808 H = N
1809 WHILE FLAG$ = "Not Found"
1810 M = INT((L + H) / 2)
1811 IF MID$(N$(M),3,5) = "     " THEN N$(M) = LEFT$(N$(M),2):
1812 IF MID$(N$(M),4,5) = "     " THEN N$(M) = LEFT$(N$(M),3):
1813 IF MID$(N$(M),5,5) = "     " THEN N$(M) = LEFT$(N$(M),4):
1814 IF MID$(N$(M),6,5) = "     " THEN N$(M) = LEFT$(N$(M),5):
1815 IF NA$ = N$(M) THEN FLAG$ = "Found" : GOTO 1817
1816 IF NA$ > N$(M) THEN L = M + 1 ELSE H = M - 1
1817 IF L > H THEN FLAG$ = "not in the Array."
1818 WEND
1819 IF FLAG$ = "not in the Array." THEN PRINT NA$;" is ";FLAG$ : GOTO 1821
1820 PRINT "I Found ";NA$ ;" as the Name Number";M;"in the Array. "
1821 PRINT "Would You, ";A$;", like to find another Name";:INPUT Q$
1822 IF Q$ = "Y" OR Q$ = "y" THEN PRINT : GOTO 1805 ELSE 1850
1850 FOR X = 1 TO 1000 : NEXT
1899 RETURN
1900 CLS
1901 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
1902 PRINT "WHICH CHRISTMAS CAROL DO YOU WANNA HEAR?"
1903 PRINT " 1) We wish You a Merry Christmas."
1904 PRINT " 2) Oh Christmas Tree!"
1905 PRINT " 3) Deck the Halls    "
1906 PRINT " 4) The Twelve days of Christmas."
1907 PRINT " 5) Jingle Bells."  : PRINT " 6) Exit."
1908 PRINT "? ";
1909 LINE INPUT SE$
1910 IF VAL(SE$) < 1 THEN PRINT "?REENTER  ": GOTO 1908
1911 IF VAL(SE$) > 6 THEN PRINT "Enter 1-6.": GOTO 1908
1912 IF VAL(SE$) = 6 THEN WHILE DAY$(1) = "First" : ERASE DAY$, MUSIC$, CH$ :        WEND : ON KEY(1) GOSUB 3020 : GOTO 600
1913 ON VAL(SE$) GOSUB 1915,1937,1981,2003,1962,2085
1914 GOTO 1900
1915 CLS : PRINT "We wish You a Merry Christmas"
1916 PLAY "T180 O2 L4 E- A- L8 A- B- A- G L4 F F"
1917 PRINT "We wish You a Merry Christmas"
1918 PLAY "F b- l8 b- o3 c o2 b- a- l4 g e-"
1919 PRINT "We wish You a Merry Christmas"
1920 PLAY "l4 e- o3 c l8 c d- c o2 b- l4 a- f l8"
1921 PRINT "And a Happy New Year"
1922 PLAY "L8 E- E- L4 F B- G L4 A-."
1923 PRINT "Good timings for You wherever You are."
1924 PLAY "t180 l4 e- a- a- a- l2 g l4 g a- g f l2 e-"'l4 b- o3 c l8o2b-b-a-a-"
1925 PRINT "Good timing for CHRISTMAS and a happy New Year."
1926 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-."
1927 PRINT "We wish You a Merry Christmas"
1928 PLAY "T180 O2 L4 E- A- L8 A- B- A- G L4 F F"
1929 PRINT "We wish You a Merry Christmas"
1930 PLAY "F b- l8 b- o3 c o2 b- a- l4 g e-"
1931 PRINT "We wish You a Merry Christmas"
1932 PLAY "l4 e- o3 c l8 c d- c o2 b- l4 a- f l8"
1933 PRINT "And a Happy New Year"
1934 PLAY "L8 E- E- L4 F B- G L4 A-."
1935 GOTO 1900
1936 'VAR A :Real
1937 CLS
1938 PRINT "Oh! Christmas Tree!"
1939 PLAY "o2 t120 l4 c l8 f. l16 f l4 f"' g l8 a. l16al4a.l8agal4b-egf"
1940 PRINT "Oh! Christmas Tree!"
1941 PLAY "O2 T120 L4 G L8 A.  L16 A L4 A. "
1942 PRINT "How lovely are Your branches."
1943 PLAY "O2 T120 L8 A G A L4 B- E G F"
1944 PRINT "Your shining star and twinkling light"
1945 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"
1946 PRINT "They gently glow throughout the night.
1947 PLAY "O2 T120 L8 B- B- G O3 L4 C. L8 O2 B- B- A L4 A"
1948 PRINT "Oh! Christmas Tree!"
1949 PLAY "o2 t120 l4 c l8 f. l16 f l4 f"' g l8 a. l16al4a.l8agal4b-egf"
1950 PRINT "Oh! Christmas Tree!"
1951 PLAY "O2 T120 L4 G L8 A.  L16 A L4 A. "
1952 PRINT "How lovely are Your branches."
1953 PLAY "O2 T120 L8 A G A L4 B- E G F"
1954 RETURN
1955 NOTE$(1) = "o2t100l4cl8f.l16fl4fgl8a.l16al4a.l8agal4b-egf"
1956 NOTE$(2) = "cl8f.l16fl4fgl8a.l16al4a.l8agal4b-egf"
1957 PLAY       "l8n0o3cco2ao3l4d.l8cco2b-l4b-.l8b-b-go3l4c.l8o2b-b-al4ac"
1958 NOTE$(4) = "l8f.l16fl4fgl8a.l16al4a.l8agal4b-egf"
1959 PRINT "We wish You a Merry Christmas"
1960 PLAY "t100 l4 e- a- a- a- l2 g l4 g a- g f l2 e- l4 b- o3 c l8o2b-b-a-a-"
1961 PLAY "o3l4e-o2e-l8e-e-l4fb-gl2a-l4e-a-l8a-b-a-gl4fffb-l8b-o3co2b-a-"
1962 CLS :'TE$(2) = "cagfl4cl8n0ccagfl4dl8n0ddb-ago3ccccdco2b-gl4f.l8n0"
1963 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"  :
1964 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"  :
1965 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"       :
1966 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"
1967 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"
1968 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"
1969 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"
1970 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"
1971 RETURN : 'TE$(5) = "l8aal4al8aal4al8ao3co2f.l16gl4an0"
1972 TE$(6) = "l8b-b-b-.l16b-l8b-aal16aal8o3cco2b-gl4f.l8n0"
1973 FOR G = 1 TO 6
1974 PLAY TE$(G)
1975 NEXT
1976 TE$(1) = "t80o2l8f.l16gl8fl4d.l8f.l16gl8fl4d."
1977 TE$(2) = "o3cl8cl4o2a.b-l8b-l4f.gl8gb-.l16al8gf.l16gl8fl4dl8n0"
1978 TE$(3) = "l4gl8gb-.l16al8gf.l16gl8fl4dl8n0l4o3cl8ce-.l16co2l8a"
1979 TE$(4) = "l4b-.o3dl8n0o2b-.l16fl8df.l16e-l8co1l4b-.b-l8n0"
1980 FOR G = 1 TO 4 : PLAY TE$(G) : NEXT
1981 INPUT "(S)low version or (F)ast version";S.OR.F$ : CLS
1982 IF S.OR.F$ = "F" OR S.OR.F$ = "f" THEN S.OR.F = 220 ELSE S.OR.F = 160
1983 CLS
1984 PRINT CENTER 1, "DECK THE HALLS WITH BELLS OF HOLLY,"
1985 PLAY "T"+STR$(S.OR.F)+"O3L4D. L8C < L4BAGABG"
1986 PRINT CENTER 2, "FA LA LA LA LA, LA LA LA LA;"
1987 PLAY "L8AB >C <A L4B. L8A L4GF# L2G"
1988 PRINT CENTER 3, "TIS' THE SEASON TO BE JOLLY"
1989 PLAY ">L4D. L8C <L4BAGABG"
1990 PRINT CENTER 4, "FA LA LA LA LA, LA LA LA LA;"
1991 PLAY "L8AB >C <A L4B. L8A L4GF# L2G"
1992 PRINT CENTER 5, "DON WE NOW ARE GAY APPARREL"
1993 PLAY "L4A. L8B >L4C <AB. >L8C L4D <A"
1994 PRINT TER 6, "FA LA LA LA LA, LA LA LA LA;"
1995 PLAY "L8B >C# L4D L8EF# L4G L4F#E L2D"
1996 PRINT CENTER 7, "TROLL THE ANCIENT YULE TIDE CAROL"
1997 PLAY "L4D. L8C <L4BAGABG"
1998 PRINT CENTER 8, "FA LA LA LA LA, LA LA LA LA."
1999 PLAY ">L8EEEE L4D. L8C <L4BA L8G."
2000 RETURN
2001 END'SUB
2003 PLAY "T150"
2004 IF DAY$(1) = "First" THEN CLS : GOTO 2012 ELSE ERASE DAY$ : GOTO 2006
2005 CENTER 1, " *"
2006 RESTORE : FOR X = 1 TO 455 : READ XDF$ : NEXT X
2007 CLS
2008 DIM CH$(12),MUSIC$(12),DAY$(12)
2009 FOR ARR = 1 TO 11
2010 READ CH$(ARR),DAY$(ARR),MUSIC$(ARR)
2011 NEXT ARR
2012 FOR CH = 1 TO 11
2013 IF CH = 8 OR CH = 1 OR CH = 9 THEN COLOR CH + 3 ELSE COLOR CH
2014 PRINT "On the ";DAY$(CH);" day of Christmas My true love gave to Me -- "
2015 IF CH = 2 OR CH = 7 OR CH = 11 THEN                                             PLAY "O2 L8 C C C L8 F F F l4 F l8 E F G A A+ G l3 A.   " :GOTO 2017
2016 PLAY "o2 L8 C C l4 C l8 f f l4 f l8 e f g a a+ g l3 a p37  "
2017 PRINT
2018 FOR Y = CH TO 1 STEP -1
2019 IF Y = 10 AND CH = 11 THEN PRINT "Ten power rangers (captured.)" :              PLAY MUSIC$(10) : GOTO 2026
2020 IF Y = 7 AND CH = 11 THEN PRINT "Seven Games on Game-Boy." :                    PLAY "O3 L08 C C O2 L8 G A B- G" : GOTO 2026
2021 IF Y = 1 AND CH = 11 THEN PRINT "And Professor Hart under My Tree.":            PLAY "O2 A A+ O3 C C L04 D L8 O2 A F L04 G F":GOTO 2026
2022 IF CH = 1 THEN PRINT "A Sony Under the Tree.":                                  PLAY "L8"+RIGHT$(MUSIC$(1),LEN(MUSIC$(1))-8):GOTO 2026
2023 IF Y = 1 AND CH$(Y) = "A Sony Under the Tree." THEN                             PRINT "And A Sony Under My Tree.":                                              PLAY MUSIC$(1):GOTO 2026
2024 IF CH > 1 AND CH < 5 THEN PRINT CH$(Y):                                         PLAY "O3 L4 C O2 L8 G A l6 A+ ":GOTO 2026
2025 PRINT CH$(Y):PLAY MUSIC$(Y)
2026 NEXT Y
2027 FOR W = 1 TO 300 :NEXT
2028 CLS
2029 NEXT CH
2030 COLOR 15
2031 PRINT "On the Twelvth day of Christmas My true love gave to Me -- "
2032 PRINT
2033 PLAY "o2 T140 l8 CC l4 C l8 f f l4 f l8 e f g a a+ g l3 a. "
2034 COLOR 12
2035 PRINT "Twelve Ladies Dancing, "
2036 PLAY "o3 l04 C o2 l8 g a a+ G"
2037 COLOR 10
2038 PRINT "Eleven Power Moprhers, "
2039 PLAY "o3 l09 o2 a+ o3 c C o2 l8 g a a+ G"
2040 COLOR 12
2041 PRINT "Ten Power Genies, "
2042 PLAY "o3 l04 C o2 l8 g a a+ G"
2043 COLOR 10
2044 PRINT "Nine Bells of Holly,"
2045 PLAY "o3 l04 C o2 l8 g a a+ G"
2046 COLOR 12
2047 PRINT "Eight Nintendo Games, "
2048 PLAY "o3 l08 C c o2 l8 g a a+ p15 "
2049 COLOR 10
2050 PRINT "Seven Metroids,   "
2051 PLAY "o3 l08 C c o2 l4 g a+ "
2052 COLOR 12
2053 PRINT "Six Planeteers,    "
2054 PLAY "o3 l04 C o2 l8 g a l4 a+ "
2055 COLOR 10
2056 PRINT "Five Magic Rings, "
2057 PLAY "o3 l02 C l04 d o2 b o3 l2 c P10
2058 COLOR 12
2059 PRINT "Four Calling Birds,"
2060 PLAY "T150 L8 O3 C O2 B A G l5 F P25
2061 COLOR 10
2062 PRINT "Three French Hens,"
2063 PLAY "L4 A+ D F P25
2064 COLOR 12
2065 PRINT "Two Turtle Doves, "
2066 PLAY "L4 G l8 E D L4 C "
2067 COLOR 10
2068 PRINT "And a Sony under My tree."
2069 PLAY "t180 o2 l6 a A+ O3 l3 C l06 d o2 b- a f l03 g f    "
2070 COLOR 14
2071 COLOR 7,0,0
2072 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
2202 IF INT(E/100) > 6 THEN PRINT "You can't take more than 699.": GOTO 2201
2203 PRINT A$;", You will get";INT(E/100);"Energy Tanks and";E MOD 100; :            PRINT "Seperate units "
2204 PRINT "to defeat Zordon with.  Good Luck!  Make sure that You blast "
2205 PRINT "Zordon's column of green light with Your Super Missles. "
2206 PRINT "Once Zordon is beat, a time bomb will be set.  Get out fast!  Once"
2207 PRINT "You are out of the Command Center safely and away from it from a "
2208 PRINT "safe distance, watch it blow up to bits."
2209 PRINT
2210 INPUT "What Year is this";YEAR
2211 IF YEAR > 10000 OR YEAR = 0 OR YEAR < -30000 THEN                               PRINT "Illegal function call in 110":          :                                PRINT "Ok " :PRINT: GOTO 2214
2212 PRINT
2213 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
2215 PRINT "Here is an example of Coins - "
2216 PRINT
2217 PRINT"If You had 69 cents, You would need at least:"
2218 PRINT INT(69/25);"Quarters"
2219 PRINT INT((69 MOD 25)/10);"Dimes"
2220 PRINT INT(INT((69 MOD 25) MOD 10)/5);"Nickels"
2221 PRINT 69 MOD 5 ;"Pennies"
2222 INPUT "Enter a value in cents to calculate how much coine You need - ",C
2223 IF C > 999 THEN                                                                 PRINT "999 cents or less please.                  " : GOTO 2222
2224 G = C/100
2225 PRINT USING "If You had $#.##, You would need at least:";G               :      PRINT INT(C/100);"DOLLARS."
2226 PRINT INT((C MOD 100)/25);"Quarters"
2227 PRINT INT(INT((C MOD 100) MOD 25)/10);"Dimes"
2228 PRINT INT(INT(INT((C MOD 100) MOD 25) MOD 10)/5);"Nickels"
2229 PRINT C MOD 5; "Pennies"
2230 PRINT
2231 LOCATE 24,1:PRINT HITKEY$ : ANYKEY$ = INKEY$:IF ANYKEY$ = "" THEN 2231
2232 RETURN
2345 REM X = 6 :RESUME 4 - 8
2378 REM ------------------------------------------------------
3000 REM  Power rangers are cruel.
3001 REM  Power rangers are mean.
3002 REM  They come in all different colors,
3003 REM  Like Red, Blue, or Green.
3004 REM  They Giggle and and laugh.
3005 REM  They Sing and they dance.
3006 REM  But when they fight the Planeteers or VR Troopers,
3007 REM  They don't stand a chance.
3008 REM  the Planeteers are Kwame(Earth), Wheeler(Fire), Linka(Wind),                    Alpha(Water), and Mate(Chess)
3009 REM  Our team members are Eddie Segoura, Billy Yost, Kwame,                          Kimberly Johnson, Mate, Kaitlin Star, Ryan Steel, and J.B Reese.
3010 REM  The Ghostwriter Team Members are Jamal Jenkins, Alex Fernandez,                 Gaby Fernandez, Tina Nguyen, Lenni Frazier, and Hector Correro.
3020 SOUND 37,.05
3022 RETURN
6097 SOUND 455,5
6394 SOUND 445,4
6833 SOUND 435,3
7057 SOUND 425,2
7058 SOUND 415,1
7059 SOUND 405,.1
7099 SOUND 415,1
7100 RETURN
8989 YRL = 1.701412E+38
8990 PRINT H$
50000 IF ERR = 1 THEN ER$ = "NEXT without FOR "             :GOTO 50065
50001 IF ERR = 2 THEN ER$ = "Syntax Error "                 :GOTO 50065
50002 IF ERR = 3 THEN ER$ = "RETURN without GOSUB "         :GOTO 50065
50003 IF ERR = 4 THEN ER$ = "Out of DATA "                  :GOTO 50065
50004 IF ERR = 5 THEN ER$ = "Illegal function call "        :GOTO 50065
50005 IF ERR = 6 THEN ER$ = "Override "                     :GOTO 50065
50006 IF ERR = 7 THEN ER$ = "Out of Memory "                :GOTO 50065
50007 IF ERR = 8 THEN ER$ = "Undefined line number "        :GOTO 50065
50008 IF ERR = 9 THEN ER$ = "Subscript out of style "       :GOTO 50065
50009 IF ERR = 10 THEN ER$ = "Redimensioned Array "         :GOTO 50065
50010 IF ERR = 11 THEN ER$ = "Division by zero "            :GOTO 50065
50011 IF ERR = 12 THEN ER$ = "Illegal Direct "              :GOTO 50065
50012 IF ERR = 13 THEN ER$ = "Type mismatch "               :GOTO 50065
50013 IF ERR = 14 THEN ER$ = "Out of String Space "         :GOTO 50065
50014 IF ERR = 15 THEN ER$ = "String too long "             :GOTO 50065
50015 IF ERR = 16 THEN ER$ = "Stroing Formula too complex " :GOTO 50065
50016 IF ERR = 17 THEN ER$ = "Can't Continue "              :GOTO 50065
50017 IF ERR = 18 THEN ER$ = "Undefined user function "     :GOTO 50065
50018 IF ERR = 19 THEN ER$ = "No RESUME "                   :GOTO 50065
50019 IF ERR = 20 THEN ER$ = "RESUME without Error "        :GOTO 50065
50020 IF ERR = 21 THEN ER$ = "Unprintable Error "           :GOTO 50065
50021 IF ERR = 22 THEN ER$ = "Missing oprehend "            :GOTO 50065
50022 IF ERR = 23 THEN ER$ = "Line buffer override "        :GOTO 50065
50023 IF ERR = 24 THEN ER$ = "Device Timeout "              :GOTO 50065
50024 IF ERR = 25 THEN ER$ = "Device Fault "                :GOTO 50065
50025 IF ERR = 26 THEN ER$ = "FOR without NEXT "            :GOTO 50065
50026 IF ERR = 27 THEN ER$ = "Out of Keys "                 :GOTO 50065
50027 IF ERR = 29 THEN ER$ = "WHILE without WEND "          :GOTO 50065
50028 IF ERR = 30 THEN ER$ = "WEND without WHILE "          :GOTO 50065
50029 IF ERR = 50 THEN ER$ = "FIELD override "              :GOTO 50065
50030 IF ERR = 51 THEN ER$ = "Internal Error "              :GOTO 50065
50031 IF ERR = 52 THEN ER$ = "Bad file number "             :GOTO 50065
50032 IF ERR = 53 THEN ER$ = "File not found "              :GOTO 50065
50033 IF ERR = 54 THEN ER$ = "Bad file mode "               :GOTO 50065
50034 IF ERR = 55 THEN ER$ = "File already open "           :GOTO 50065
50035 IF ERR = 57 THEN ER$ = "Device I/O Error "            :GOTO 50065
50036 IF ERR = 58 THEN ER$ = "File already exists "         :GOTO 50065
50037 IF ERR = 61 THEN ER$ = "Disk Full "                   :GOTO 50065
50038 IF ERR = 62 THEN ER$ = "Input past End "              :GOTO 50065
50039 IF ERR = 63 THEN ER$ = "Bad record number "           :GOTO 50065
50040 IF ERR = 64 THEN ER$ = "Bad file Name "               :GOTO 50065
50041 IF ERR = 66 THEN ER$ = "Direct statement in file "    :GOTO 50065
50042 IF ERR = 67 THEN ER$ = "Too many files "              :GOTO 50065
50043 IF ERR = 68 THEN ER$ = "Device Unavailable "          :GOTO 50065
50044 IF ERR = 69 THEN ER$ ="Communication buffer override ":GOTO 50065
50045 IF ERR = 70 THEN ER$ = "Disk Write Protected "        :GOTO 50065
50046 IF ERR = 71 THEN ER$ = "Drive not Ready "             :GOTO 50065
50047 IF ERR = 72 THEN ER$ = "Disk media Error "            :GOTO 50065
50048 IF ERR = 73 THEN ER$ = "Advanced Feature "            :GOTO 50065
50049 IF ERR = 74 THEN ER$ = "Rename Across Disks "         :GOTO 50065
50050 IF ERR = 75 THEN ER$ = "Path/File access Error "      :GOTO 50065
50051 IF ERR = 76 THEN ER$ = "Directory not found "         :GOTO 50065
50052 IF ERR = 77 THEN ER$ = "Deadlock "                    :GOTO 50065
50053 IF ERR = 78 THEN ER$ = "Wrist communcator Error "     :GOTO 50065
50054 IF ERR = 79 THEN ER$ = "Out of stack space "          :GOTO 50065
50064 ER$ = "Unprintable Error "
50065 IF POS(X) < 0 OR POS(X) > 1 THEN PRINT
50068 IF ERL > 65529 THEN PRINT ER$:END ELSE PRINT ER$"in";ERL
50069 IF ERR.CHOICE = 1 THEN PRINT "Ok " : GOTO 50072
50070 IF ERR.CHOICE = 2 THEN RESUME NEXT
50071 IF ERR.CHOICE = 3 THEN END ELSE END
50072 PRINT
50073 IF ERR = 5549 THEN ER$ = "To sign in, type the number [6086]"
50074 PRINT "Error Code.";ERR
50075 PRINT "(A)bort, (I)gnore - ";
50076 CNT$ = INKEY$
50077 IF CNT$ = "" THEN 50076
50078 IF CNT$ = "I" OR CNT$ = "i" THEN RESUME NEXT
50079 IF CNT$ = "A" OR CNT$ = "a" THEN 332
50080 IF CNT$ = CHR$(13) THEN PRINT : GOTO 50075
50081 PRINT CNT$
50082 GOTO 50075
60000 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"
60001 DATA "ROBERT STEAL","KAITLIN STAR","FUNKY KONG","CAPTAIN GAMEPLAY",                  "SAMUS ARAN","KIMBERLY JOHNSON","J.B REESE",TRAVIS YOUNGER,BENEATHA
60002 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
60003 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
60004 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
60005 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
60006 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
60007 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
60008 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
60009 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
60010 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
60011 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
60012 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
60013 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
60014 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
60015 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
60016 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
60017 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
60018 DATA KWAME,WHEELER,LINKA,MATE,EARTH,FIRE,WIND,CHESS,PLANETEER,WISHES,                NINTENDO,SAMUS,ALADDIN(ÆRED,WILMA,WATER,COMPUTERS,"MAGIC LAMP"
62000 DATA "A Sony Under the Tree.", "First",                                              "O2 L8 A A+ O3 L4 C L08 D O2 B- A F L04 G F"
62001 DATA "Two Turtle Doves,","Second",                                                   "L4 G L8 E D C P25 "
62002 DATA "Three French Hens,","Third",                                                   "L4 A+ D F P25 "
62003 DATA "Four Calling Birds,","Fourth",                                                 "L8 O3 C O2 B A G l6 F "
62004 DATA "Five Magic Rings,","Fifth",                                                    "O3 L02 C L04 D O2 B O3 L2 C P10"
62005 DATA "Six Planeteers,","Sixth",                                                     "O3 L04 C O2 L8 G A l4 B-"
62006 DATA "Seven Metroids,","Seventh",                                                    "O3 L08 C C O2 L4 G B-"
62007 DATA "Eight Nintendo Games,","Eighth",                                               "O3 L08 C C O2 G A B- P15"
62008 DATA "Nine Bells of Holly,","Ninth",                                                 "O3 L04 C O2 L8 G A B- G"
62009 DATA "Ten Power Genies,   ", "Tenth",                                                "O3 L04 C O2 L8 G A B- G"
62010 DATA "Eleven Power Morphers, ","Eleventh",                                           "O3 L07 O2 A+ O3 L8 C C O2 G A B- G"
62011 DATA "Twelve Ladies Dancing,",                                                       "O3 L08 C C O2 G A B- G"
65000 REM  Free Software. Bunch of Programs all built into one by Eddie Segoura
65001 REM  Programs are:       [BASIC Commands and Functions used]
65002 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$]
65003 REM  Calculator          [PRINT, INPUT, IF-THEN,+,-,*,/]
65004 REM  Directory List      [PRINT, INPUT, FILES]
65005 REM  Number Guessing     [PRINT, RANDOMIZE TIMER, RND, FOR-NEXT, INPUT]
65006 REM  Main Menu           [CLS, PRINT, LINE INPUT, ON..GOSUB, RETURN,                                      IF-THEN]
65007 REM  Grade Average       [CLS, PRINT, INPUT, FOR-NEXT, DIM,                                              {Subscriped Variables},ERASE]
65008 REM  Math Problems       [CLS, LOCATE, PRINT, INPUT, IF-THEN,+,-,*,/)
65009 REM  String Reverse      [PRINT, INPUT, FOR-NEXT, MID$(A$,x,y)]
65010 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,
65011 REM  Word Guesser(Con't)  FOR-NEXT, LEN(A$), IF-THEN, STRING$(x,y),SOUND]
65012 REM  Advanced Calculater [SQR(x),{Exponentation with ^},IF-THEN
65013 REM  Palendromes         [PRINT, INPUT, STR$(x), VAL(A$), IF-THEN,                                        FOR-NEXT, MID$(A$,x,y), RIGHT$(A$,x)]
65014 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$]
65015 REM  Rolling the Dice    [PRINT, INPUT, IF-THEN, RANDOMIZE TIMER, RND]
65016 REM  Character Count     [PRINT, INPUT, FOR-NEXT, MID$(A$,x,y), LEN(A$),                                  IF-THEN]
65017 REM  Bubble Sort         [DIM ,{Subscripted Variables},  ERASE, READ-DATA,                                RESTORE, FOR-NEXT, IF-THEN(-ELSE), PRINT, INPUT,                                GOTO, GOSUB, SWAP, LOCATE, LEN(A$)]
65018 REM  Binary Name Search  [{Subscripted Variables}, PRINT, INPUT, CLS,                                     MID$(A$,x,y), IF-THEN(-ELSE)]
65019 REM  Christmas Carols    [VAL(A$), ON..GOSUB, INPUT, PRINT, PLAY,                                         READ-DATA, DIM, {Supscripted Variables},ERASE,                                  IF-THEN, FOR-NEXT]
65020 REM  MOD Programs        [PRINT, INPUT, MOD Operator, INT(x)]
65021 REM  Ending the Program  [PRINT, END]
65022 REM  Set Timer           [System Variable DATE$, System Variable TIME$,                                   IF-THEN, PRINT, INPUT]
65023 REM  Error Handler       [System Variable ERR, System Varable ERL,                                        IF-THEN, INKEY$, PRINT, ON ERROR GOTO.., RESUME,                                END, POS(x)]
65024 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.