PAGE 1 15 Feb 01 12:31:35 Offset Data Source Line Microsoft (R) BASIC Compiler Version 7.10 0030 0006 1 ON ERROR GOTO 50000 ^ ON ERROR without /E on command line 0030 0006 2 KEY OFF : SCREEN 0 : COLOR 7,0,0 : WIDTH 80 : CLS 0030 0006 3 PRINT "For Most Questions in this program, Type 'Y' or 'N'. Otherwise, read the question. If the Computer displays 'Redo from Start' th en type two commas and hit enter. " 007D 0006 4 PRINT "To avoid problems in the Program, press the CAPSLOCK k ey ": PRINT "and Keep it on throughout the entire program." 0086 0006 5 PRINT 0098 0006 6 INPUT "What is Your Name";A$ 00C6 000A 7 PRINT "EEEEK! A POWER RANGER! " 00CB 000A 8 IF A$ = "" THEN RANDOMIZE TIMER : A = INT(RND*2) : IF A = 0 THEN A$ = "Eddie & Billy" ELSE A$ = "Computer User" 014C 000E 9 IF ASC(LEFT$(A$,1)) > 90 THEN A1$ = MID$(A$,1,1) : MID$(A$,1,1) = CHR$(ASC(A1$)-32) 01A1 0012 10 REM - "CLS" CLEARS THE TV SCREEN 01A1 0012 12 FOR X = 1 TO 45 01AA 0012 13 READ R$ 01AA 0012 14 NEXT X 01DB 001A 15 CLS 01DB 001A 17 PRINT"Please enter the number of names to list near the ";:W RITE "?" 01E4 001A 18 INPUT S 021F 001E 19 IF S > 19 THEN PRINT "Too Much Information" :GOTO 40 0243 001E 20 FOR LAMP=1 TO S 0258 0022 25 READ R, R$ 0258 0022 34 PRINT R,R$,LAMP 0271 0026 35 NEXT LAMP 02B8 002A 40 PRINT "RADIUS =";R 02B8 002A 50 PRINT "AREA =";3.14*R^2 02CE 002A 60 FOR I=1 TO 1500:NEXT 0328 002E 67 PRINT "Would You, ";A$;", like the program to (1) propmt You to " : PRINT "Continue or Stop on any error, (2) C ontinue regardless of" : PRINT "any error, or (3) S top the program and print the error message." 0328 002E 68 INPUT "Enter 1, 2, 3 - ",ERR.CHOICE 0379 0032 69 IF ERR.CHOICE < 1 OR ERR.CHOICE > 3 THEN PRINT "Please, "; A$; ", ";:GOTO 68 03C1 0032 70 CLS 03C1 0032 80 FOR TRAPAZOID=1 TO 2 03D2 0032 90 PRINT "Please enter the height then the two" 03D2 0032 100 PRINT "bases to get the area of the trapazoid. Ex: 1,2,3" 03DB 0032 110 INPUT H,A,B 0422 003A 120 PRINT "HEIGHT =";H 0427 003A 130 PRINT "BASE 1 =";A 043D 003A 140 PRINT "BASE 2 =";B 0453 003A 150 PRINT "AREA ="; .5*H*(A+B) 0469 003A 160 PRINT 0495 003A 170 NEXT TRAPAZOID 04C5 003E 180 PRINT "Wheeler" 04C5 003E 190 PRINT PAGE 2 15 Feb 01 12:31:35 Offset Data Source Line Microsoft (R) BASIC Compiler Version 7.10 04CE 003E 200 PRINT LINKA 04D7 003E 201 HITKEY$ = "Hit any key to continue... "+STRING$(2 ,30) 04E4 0042 202 FOR KEYS = 1 TO 20 : KEY(KEYS) ON:ON KEY(KEYS) GOSUB 3000 : NEXT : ^ ON event without /V or /W on com mand line ^ ON event wi thout /V or /W on command line 0532 004A 210 PRINT "Ok 0532 004A 211 LOCATE 24,1:PRINT HITKEY$ : ANYKEY$ = INKEY$:IF ANYKEY$ = " " THEN 211 0578 004E 212 CLS 0578 004E 213 INPUT"Key in a number! ",D 05A5 0052 214 INPUT"Key in another number! ",E 05CE 0056 215 PRINT 05D3 0056 216 PRINT"What do you want to do with these numbers?" 05DC 0056 217 INPUT"(A)dd, (S)ubtract, (M)ultiply, (D)ivide";C$ 060A 005A 218 IF C$ = "A" THEN PRINT D;" + ";E;" = ";D+E:LET F = D+E 0674 005E 219 IF C$ = "a" THEN PRINT D;" + ";E;" = ";D+E:LET F = D+E 06D9 005E 220 IF C$ = "S" THEN PRINT D;" - ";E;" = ";D-E:LET F = D-E 073E 005E 221 IF C$ = "s" THEN PRINT D;" - ";E;" = ";D-E:LET F = D-E 07A3 005E 222 IF C$ = "M" THEN PRINT D;" x ";E;" = ";D*E:LET F = D*E 0808 005E 223 IF C$ = "m" THEN PRINT D;" x ";E;" = ";D*E:LET F = D*E 086D 005E 224 IF C$ = "D" THEN PRINT D;" divided by ";E;" = ";D/E:LET F = D/E 08D2 005E 225 IF C$ = "d" THEN PRINT D;" divided by ";E;" = ";D/E:LET F = D/E 0937 005E 226 PRINT 0937 005E 227 PRINT"This is called a calculater, ";A$ 0940 005E 228 PRINT"Do you Wish to continue with ";F; 0952 005E 229 INPUT B$ 098D 0062 230 IF B$ = "n" THEN GOTO 254 09A4 0062 231 IF B$ = "N" THEN GOTO 254 09B6 0062 232 FOR I=1 TO 200 :NEXT 09E2 0062 233 CLS 09E2 0062 234 PRINT"Previous number: "; 09EB 0062 235 FOR I=1 TO 200:NEXT 0A20 0062 236 PRINT F 0A20 0062 237 INPUT"Key in a number! ",G 0A51 0066 238 PRINT"What do you want to do with these numbers?" 0A56 0066 239 INPUT"(A)dd, (S)ubtract, (M)ultiply, (D)ivide";D$ 0A84 006A 240 IF D$ = "A" THEN PRINT F;" + ";G;" = ";F+G:LET F = F+G 0AEE 006A 241 IF D$ = "a" THEN PRINT F;" + ";G;" = ";F+G:LET F = F+G 0B53 006A 242 IF D$ = "S" THEN PRINT F;" - ";G;" = ";F-G:LET F = F-G 0BB8 006A 243 IF D$ = "s" THEN PRINT F;" - ";G;" = ";F-G:LET F = F-G 0C1D 006A 244 IF D$ = "M" THEN PRINT F;" x ";G;" = ";F*G:LET F = F*G 0C82 006A 245 IF D$ = "m" THEN PRINT F;" x ";G;" = ";F*G:LET F = F*G 0CE7 006A 246 IF D$ = "D" THEN PRINT F;" divided by ";G;" = ";F/G:LET F = F/G 0D4C 006A 247 IF D$ = "d" THEN PRINT F;" divided by ";G;" = ";F/G:LET F = F/G PAGE 3 15 Feb 01 12:31:35 Offset Data Source Line Microsoft (R) BASIC Compiler Version 7.10 0DB1 006A 248 PRINT"Do you Wish to end the calculater, ";A$ 0DB1 006A 249 INPUT E$ 0DE8 006E 250 CLS 0DED 006E 251 IF E$ = "n" THEN GOTO 234 0E08 006E 252 IF E$ = "N" THEN GOTO 234 0E1A 006E 253 CLS 0E1A 006E 254 PRINT A$ ", would you like to print this program (Y/N)"; 0E23 006E 255 INPUT E$ 0E5A 006E 256 IF E$ = "y" OR E$ = "Y" THEN 257 ELSE GOTO 259 0E86 006E 257 INPUT "Make sure the printer is ready. Strike ENTER to Print.",CD 0EAA 0072 258 PRINT "Printing. Please wait....":LLIST ^ Equal sign missin g 0EAF 0072 259 PRINT "Let's do a frame. A frame is a story with blanks. You can fill these bla nks to make your own s tory. 0EB8 0072 260 INPUT "Type a name of a thing. ";H$ 0EE6 0076 261 INPUT "Type anothter name of a thing. ";I$ 0F10 007A 262 INPUT "Type something you get. ";J$ 0F3A 007E 263 INPUT "Type the name of a Cable Company. ";K$ 0F64 0082 264 PRINT 0F69 0082 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 0F72 0082 301 PRINT "Equipment, and are only available threw ";K$;". Here 's why:" 0FD5 0082 302 FOR I =1 TO 2000:NEXT:CLS:LET A = 2 101C 0082 303 FOR D = 1 TO 40 103A 0082 304 PRINT A * 2, 103A 0082 305 LET A = A * 2 1053 0082 306 NEXT D 1088 0082 307 FOR I=1 TO 1500 :NEXT 10B4 0082 308 CLS : ON ERROR GOTO 321 ^ ON ERROR without /E on command line 10BD 0082 309 PRINT A$;", do you Wish to see the files on any disk (Y/N)? " 10BD 0082 310 INPUT DISK$ 10F4 0086 311 IF DISK$ = "Y" THEN GOTO 315 110B 0086 312 IF DISK$ = "y" THEN GOTO 315 111D 0086 313 IF DISK$ <> "Y" THEN ON ERROR GOTO 50000:GOTO 350 ^ ON ERROR without /E on com mand line 112F 0086 314 IF DISK$ <> "y" THEN ON ERROR GOTO 50000:GOTO 350 ^ ON ERROR without /E on com mand line 1141 0086 315 PRINT "Which Drive"; 1141 0086 316 INPUT N$ : N$ = N$ + ":\" 116F 008A 317 INPUT "Enter Subdirectory or ENTER for None - ",DIR$ PAGE 4 15 Feb 01 12:31:35 Offset Data Source Line Microsoft (R) BASIC Compiler Version 7.10 ^ Variable required 1182 008A 318 IF DIR$ = "" THEN FILES N$:GOTO 326 ELSE N$ = N$ + DIR$ + "\":V = 1: FILES N$: GOTO 326 11DA 008E 319 IF N$ = "ZORDON" THEN PRINT "Zordon is Evil! Sign out of ";N$;" and press ENTER.":INPUT "", FF:FILES "b:":GOTO 326 123C 0092 320 N$ = LEFT$(N$,LEN(N$)-V) : REM "Rita Repulsa is Evi l. ";N$;" and press ENTER.":INPUT "", FF:FILES "b:":GOTO 326 123C 0092 321 IF ERR = 76 OR ERR=53 THEN PRINT "Directory ";N$;" not fou nd.":RESUME 322 129F 0092 322 PRINT"Please reenter the drive." :ON ERROR GOTO 321 ^ ON ERROR with out /E on command line 12A8 0092 323 GOTO 316 12A8 0092 326 PRINT "Directory of ";LEFT$(N$,LEN(N$)-V) 12AB 0092 327 PRINT "Look at another Directory (Y/N)"; 12D9 0092 328 INPUT NN$ 1307 0096 329 IF NN$ = "y" OR NN$ = "Y" THEN V = 0 : GOTO 315 ELSE 344 133C 0096 330 GOTO 315 133C 0096 331 GOTO 327 133F 0096 332 CLS 1341 0096 333 PRINT "Your Name has";LEN (A$);"Character(s) in it." 134A 0096 334 PRINT "Good Bye, ";A$ 1365 0096 335 PRINT "To Return to DOS, Type SYSTEM. To clear this progra m, type NEW. " 1377 0096 336 PRINT "Here is another number: "; 1380 0096 337 RANDOMIZE TIMER 1389 0096 338 X = INT ((RND*100)+1) 13A2 0096 339 PRINT X 13C4 0096 340 END 13D1 0096 344 CLS : ON ERROR GOTO 50000 ^ ON ERROR without /E on command line 13DF 0096 345 PRINT "Test Program 1" 13DF 0096 346 PRINT 13E8 0096 347 PRINT 13F1 0096 348 PRINT 13FA 0096 349 PRINT 1403 0096 350 PRINT A$", Please enter three different names." 140C 0096 351 INPUT N1$, N2$, N3$ 145F 00A2 352 PRINT N1$ 1464 00A2 353 PRINT 146D 00A2 354 PRINT N2$ 1476 00A2 355 PRINT 147F 00A2 356 PRINT N3$ 1488 00A2 357 PRINT"Ok" 1491 00A2 358 FOR JAFAR = 1 TO 1000:NEXT 14C6 00A6 359 CLS 14C6 00A6 360 PRINT "Test Program 2" 14CF 00A6 361 PRINT 14D8 00A6 362 PRINT 14E1 00A6 363 PRINT 14EA 00A6 364 PRINT 14F3 00A6 365 PRINT PAGE 5 15 Feb 01 12:31:35 Offset Data Source Line Microsoft (R) BASIC Compiler Version 7.10 14FC 00A6 366 PRINT "Side1 = ";12 1505 00A6 367 PRINT "Side2 = ";8 1517 00A6 368 PRINT "Side3 = ";13 1529 00A6 369 PRINT "Perimeter = ";12+8+13 153B 00A6 370 FOR JAFAR = 1 TO 1000:NEXT 157A 00A6 371 CLS 157A 00A6 372 PRINT"Test Program 3 1583 00A6 373 PRINT 158C 00A6 374 PRINT 1595 00A6 375 PRINT 159E 00A6 376 PRINT 15A7 00A6 377 CLS 15B0 00A6 378 PRINT"Who has the Power of Earth?" 15B9 00A6 379 PRINT"(A) Kwame (B) Wheeler" 15C2 00A6 380 PRINT"(C) Linka (D) Mate (E) Alpha" 15CB 00A6 381 PRINT"Please enter the letter of your choice near the "; 15D4 00A6 382 WRITE "?" 15DD 00A6 383 FOR I=1 TO 3 15F4 00A6 384 INPUT ANSWER$ 1619 00AA 385 PRINT "You entered "; ANSWER$ 161E 00AA 386 IF ANSWER$ = "a" OR ANSWER$ = "A" THEN PRINT "Correct!" :GO TO 389 165A 00AA 387 IF I = 3 THEN PRINT "Wrong too many times!":GOTO 389 1679 00AA 388 IF ANSWER$ <> "A" THEN PRINT "Wrong, try again!":NEXT I ^ Co ntrol structure in IF..THEN..ELSE incomplete ^ Syntax error 16B1 00AA 389 FOR JAFAR = 1 TO 1000 :NEXT 16DE 00AA 390 PRINT 16DE 00AA 391 PRINT 16E7 00AA 392 PRINT 16F0 00AA 393 PRINT 16F9 00AA 398 FOR H=1 TO 3000:NEXT 172E 00AA 399 CLS 172E 00AA 400 PRINT"Cls clears the lousy TV Screen 1737 00AA 401 PRINT H , R$ 1740 00AA 402 FOR X = 1 TO 850 : NEXT 1782 00AA 403 IF ERR = 5 THEN SOUND 434,2 : RESUME 1053 17A8 00AA 405 G = 0 17A8 00AA 478 REM Austin St. John will never take My software. 17B4 00AA 499 CLS 17B4 00AA 500 FOR TIME=1 TO 50 17C6 00AA 501 LOCATE 1,1 17C6 00AA 502 PRINT TIME$ 17D6 00AA 503 LOCATE 1,70 17E1 00AA 504 PRINT DATE$ 17F4 00AA 505 NEXT TIME 1823 00AE 506 PRINT "This is the time now!" 1823 00AE 507 PRINT "This is called a Clock, ";A$ 182C 00AE 508 PRINT A$;:PRINT", do you want to see the clock": PRINT "again for 15 more seconds"; 183E 00AE 509 INPUT MT$ 187E 00B2 510 IF MT$ = "N" THEN GOTO 529 PAGE 6 15 Feb 01 12:31:35 Offset Data Source Line Microsoft (R) BASIC Compiler Version 7.10 1895 00B2 511 IF MT$ = "n" THEN GOTO 529 18A7 00B2 512 FOR TIME=1 TO 200 18B0 00B2 513 LOCATE 1,1 18B0 00B2 514 PRINT TIME$ 18C0 00B2 515 LOCATE 1,70 18CB 00B2 516 PRINT DATE$ 18DE 00B2 517 NEXT TIME 190D 00B2 518 LOCATE 6,1 190D 00B2 519 PRINT"Do you still want the clock to run"; 1923 00B2 520 INPUT USER$ 1951 00B6 521 IF USER$ = "N" THEN 529 1968 00B6 522 IF USER$ = "n" THEN 529 197A 00B6 523 INPUT "How many more seconds";SC 199E 00BA 524 FOR I = 1 TO SC 19B8 00BE 525 FOR H = 1 TO 1000:NEXT 19E4 00BE 526 LOCATE 1,1 19E4 00BE 527 PRINT TIME$ 19F4 00BE 528 NEXT I 1A23 00BE 529 LOCATE 9,1 : RANDOMIZE TIMER 1A23 00BE 530 NUMBER = INT ((RND*1000)+1) 1A52 00BE 531 PRINT 1A74 00C2 532 PRINT"The Computer has picked a number from 1 to 1000." 1A7D 00C2 533 PRINT"The number is";NUMBER 1A86 00C2 534 LOCATE 24,1:PRINT HITKEY$ : ANYKEY$ = INKEY$:IF ANYKEY$ = " " THEN 534 1AD9 00C2 535 CLS 1AD9 00C2 536 RANDOMIZE TIMER 1AE2 00C2 537 PLANETEER = INT (RND*101) 1AFB 00C2 538 PRINT "The Computer has picked another Number from 1 to 100 " 1B18 00C6 539 PRINT A$", please guess this Number and key it in near the word "; 1B21 00C6 540 WRITE "Number" 1B33 00C6 541 PRINT "You get only 10 Chances, ";A$;"!" 1B41 00C6 542 PRINT 1B5C 00C6 543 FOR GUESS = 1 TO 10 1B6E 00C6 544 INPUT "Number - ",C 1B92 00CA 545 IF C < 1 THEN PRINT"Invalid Number (1-100 Please)":GOTO 544 1BB5 00CA 546 IF C > 100 THEN PRINT"Invalid Number (1-100 Please)":GOTO 5 44 1BD3 00CA 547 IF C < PLANETEER THEN PRINT "The Number is Higher!" 1BEF 00CA 548 IF C > PLANETEER THEN PRINT "The Number is Lower!" 1C0B 00CA 549 IF C = PLANETEER THEN PRINT "You are Right, ";A$;"!":GOTO 5 55 1C3C 00CA 550 NEXT GUESS 1C63 00CE 551 PRINT "You have used up all Your Chances" 1C63 00CE 552 PRINT "The Correct Number was";PLANETEER 1C6C 00CE 553 LOCATE 24,1:PRINT HITKEY$ : ANYKEY$ = INKEY$:IF ANYKEY$ = " " THEN 553 1CBF 00CE 554 GOTO 600 1CBF 00CE 555 LOCATE 24,1:PRINT HITKEY$ : ANYKEY$ = INKEY$:IF ANYKEY$ = " " THEN 555 1CFF 00CE 556 CLS 1CFF 00CE 600 COLOR 7,0,0 : CLS PAGE 7 15 Feb 01 12:31:35 Offset Data Source Line Microsoft (R) BASIC Compiler Version 7.10 1D08 00CE 601 LOCATE 3,10 1D30 00CE 602 PRINT TAB(10);A$", Please choose an activity." 1D49 00CE 603 PRINT TAB(10);"1) Calculater" 1D6D 00CE 604 PRINT TAB(10);"2) Guess the number" 1D88 00CE 605 PRINT TAB(10);"3) Grade Average Program." 1DA3 00CE 606 PRINT TAB(10);"4) Math Bee." 1DBE 00CE 607 PRINT TAB(10);"5) Print a name backwards." 1DD9 00CE 608 PRINT TAB(10);"6) Word Guessing." 1DF4 00CE 609 PRINT TAB(10);"7) Advanced Calculater." 1E0F 00CE 610 PRINT TAB(10);"8) Number Reverses." 1E2A 00CE 611 PRINT TAB(10);"9) Mortgages." 1E45 00CE 612 PRINT TAB(9);"10) Rolling Dice." 1E60 00CE 613 PRINT TAB(9);"11) Counting Charaters in a Phrase." 1E7B 00CE 614 PRINT TAB(9);"12) Bubble Sorts. " 1E96 00CE 615 PRINT TAB(9);"13) Search for Name. " 1EB1 00CE 616 PRINT TAB(9);"14) Christmas Carols." 1ECC 00CE 617 PRINT TAB(9);"15) Programs using the MOD operator. " 1EE7 00CE 618 PRINT TAB(10);"E) End." 1F02 00CE 619 PRINT TAB(10);"R) Return to DOS." 1F1D 00CE 620 PRINT TAB(10);"T) Set Time and Date." 1F38 00CE 621 PRINT TAB(10); 1F53 00CE 622 LINE INPUT "Choice - ";K$ 1F7A 00CE 623 IF K$ = "R" OR K$ = "r" THEN SYSTEM 1F9D 00CE 624 IF K$ = "S" OR K$ = "s" THEN GOSUB 6097 : GOTO 601 1FC4 00CE 625 IF K$ = "E" OR K$ = "e" THEN 332 1FE8 00CE 626 IF K$ = "T" OR K$ = "t" THEN GOSUB 1749 : GOTO 650 200F 00CE 630 METROID = VAL(K$) 200F 00CE 635 IF METROID < 1 OR METROID > 15 THEN FOR X = 1 TO 50:NEXT:SO UND 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 20FD 00D2 640 ON METROID GOSUB 212,535,700,795,900,1000,1120,1196,1300,15 04,1600, 1697,1800,1900,2200 212D 00D2 650 GOTO 600 212D 00D2 700 REM *** Grade Average Program *** 2130 00D2 701 CLS 2130 00D2 702 INPUT "How many Names would You like to average";NM:IF NM < 0 THEN NM = 0 2181 00D6 703 DIM METROID$(NM),AVERAGE(NM) :PRINT "Enter STOP as a Name t o Exit." 21BF 00FA 704 FOR M = 1 TO NM 21DC 00FE 705 PRINT "Enter Name";M;:INPUT "- ",METROID$(M) 222A 0102 706 IF METROID$(M)="stop" OR METROID$(M)="STOP" THEN DE$ = METR OID$(M):GOTO 724 2293 0106 707 PRINT "How many Grades do you want for ";METROID$(M); 2293 0106 708 INPUT N 22DC 010A 709 PRINT "Please Enter the";N;"one at a time." 22E1 010A 710 FOR X = 1 TO N 2314 010E 711 PRINT "GRADE";X;:INPUT "- ",MARK 234E 0112 712 GRADE = GRADE + MARK 2353 0112 713 AVERAGE(M) = GRADE/N 2364 0116 714 PRINT 238D 0116 715 NEXT X 23BD 0116 716 GRADE = 0 PAGE 8 15 Feb 01 12:31:35 Offset Data Source Line Microsoft (R) BASIC Compiler Version 7.10 23BD 0116 717 NEXT M 23F0 0116 718 PRINT "Name";TAB(20);"Average";TAB(40);"Statues" 23F0 0116 719 FOR G = 1 TO NM 2444 011A 720 IF AVERAGE(G) => 90 THEN PRINT METROID$(G);TAB(20);AVERAGE(G);TAB(4 0);"Honors":GOTO 723 24E0 011A 721 IF AVERAGE(G) => 65 AND AVERAGE < 90 THEN PRINT METROID$(G);TAB(20);AVERAGE(G);TAB(4 0);"Pass" :GOTO 723 2592 011E 722 IF AVERAGE(G) < 65 THEN PRINT METROID$(G);TAB(20);AVERAGE(G );TAB(40);"Fall" 262B 011E 723 NEXT G 2652 011E 724 ERASE METROID$,AVERAGE 2664 011E 725 IF NM = 0 THEN 700 ELSE IF DE$ = "STOP" OR DE$ = "stop" THE N RETURN 600 269C 011E 726 LOCATE 24,1:PRINT HITKEY$ : ANYKEY$ = INKEY$:IF ANYKEY$ = " " THEN 726 26D9 011E 727 GOTO 700 26D9 011E 728 RETURN 26DC 011E 795 CLS 26DD 011E 796 PRINT A$;", here is some simple Arithmatic." 26E6 011E 799 REM *** Simple Arithmatic *** 26F8 011E 800 LOCATE 2,1 : PRINT STRING$(40," ") 26F8 011E 801 RANDOMIZE TIMER 2721 011E 802 S = INT (RND*51) 273A 011E 803 IF SCORE < -20 THEN 968 276D 0122 804 T = INT (RND*51) 276D 0122 805 SUM = S + T 278A 0126 806 IF SCORE > 100 THEN 883, ^ Syntax error ^ Statement unrecognizable 27B1 012A 807 SIGN = INT (RND*4)+1 27B1 012A 809 KEY(1) ON : LOCATE 23,1: PRINT "Press [F1] to Exit the Arit hmatic." ^ ON event without /V or /W on command line 27D3 012E 810 ON KEY(1) GOSUB 889 : ^ ON event without /V or /W on command line 27F2 012E 811 ON SIGN GOTO 813,832,852,867 280C 012E 812 IF SIGN = 4 THEN 867 2822 012E 813 LOCATE 2,1 2822 012E 814 PRINT S;" + ";T;" = "; 2838 012E 815 INPUT "",ANSWER 2888 0132 816 IF ANSWER = SUM THEN PRINT "Correct!"+STRING$(50,32) : SCORE = SCORE + 1:LOCATE 1,45:PRINT "You h ave ";SCORE;"points, ";A$;" ": LOCATE 4,1:PRINT STRING$( 75,32):GOTO 800 2941 0132 817 IF SGN(SUM) = -1 THEN 821 295E 0132 818 PRINT STRING$(9,32) : PRINT "Sorry, ";A$;"! The Correct Answer w as";SUM 295E 0132 819 SCORE = SCORE - 1 2999 0132 820 LOCATE 1,45 29AA 0132 821 PRINT "You have ";SCORE;"points, ";A$;" ":PRINT 29BD 0132 824 GOTO 800 PAGE 9 15 Feb 01 12:31:35 Offset Data Source Line Microsoft (R) BASIC Compiler Version 7.10 29F7 0132 825 PRINT "Sorry, ";A$;"! The Correct Answer was ";SUM;" " 29FA 0132 826 SCORE = SCORE - 1 2A2B 0132 827 LOACTE 1,40 ^ Equal sign missing ^ Syntax error 2A3C 0132 828 PRINT SCORE 2A3C 0132 831 GOTO 800 2A49 0132 832 LOCATE 2,1 2A4C 0132 833 PRINT S;" - ";T;" = ";: 2A62 0132 834 INPUT "",ANSWER 2AB2 0132 835 DIFFERENCE = S - T 2AB7 0132 836 IF ANSWER = DIFFERENCE THEN PRINT "Correct!"+SPACE$(23) : SCORE = SCORE + 5:LOCATE 1,45:PRINT "You h ave ";SCORE;"points, ";A$;" ": LOCATE 4,1:PRINT STRING$( 75,32) : GOTO 800 2B78 0136 837 PRINT SPACE$(14) 2B78 0136 838 IF SGN(DIFFERENCE) = -1 THEN 846 2BA4 0136 839 PRINT "Sorry, ";A$;"! The Correct Answer was";DIFFERENCE;" " 2BA4 0136 840 SCORE = SCORE - 5 2BD5 0136 841 LOCATE 1,45 2BE6 0136 842 PRINT "You have ";SCORE;"points, ";A$;" " 2BF9 0136 845 GOTO 800 2C2A 0136 846 PRINT "Sorry, ";A$;"! The Correct Answer was ";DIFFERENCE;" " 2C2D 0136 847 SCORE = SCORE - 2 2C5E 0136 848 LOCATE 1,45 2C6F 0136 849 PRINT "You have ";SCORE;"points, "A$ 2C82 0136 851 GOTO 800 2CAA 0136 852 PRODUCT = S * T 2CAD 0136 853 IF S > 12 OR T > 12 THEN 800 2CEA 013A 854 LOCATE 2,2 2CEA 013A 855 PRINT S;" x ";T;" = "; 2D03 013A 856 INPUT "",ANSWER 2D53 013A 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$(7 5) :GOTO 800 2E15 013A 858 PRINT SPACE$(15) 2E15 013A 859 IF SGN(PRODUCT) = -1 THEN 842 2E41 013A 860 PRINT "Sorry, ";A$;"! The Correct Answer was";PRODUCT;SPACE $(20) 2E41 013A 861 SCORE = SCORE - 8 2E78 013A 862 LOCATE 1,45 2E89 013A 863 PRINT "You have ";SCORE;"points, ";A$;" " 2E9C 013A 866 GOTO 800 2ECD 013A 867 IF T = 0 THEN 'THEIR IS A CHANCE TO DEFEAT ZORDON. 2ED0 013A 868 LOCA = VAL(STR$(10^28)) 2EE6 013A 869 IF T = 0 THEN T = T + 4 2F3C 013E 870 DIV = S / T 2F3C 013E 871 IF S / T <> INT(S / T) THEN T = INT(RND*51) : GOTO 869 2F90 0142 872 LOCATE 2,1 2F90 0142 873 PRINT S;" ";CHR$(246);" ";T;" = ";:INPUT "",ANSWER PAGE 10 15 Feb 01 12:31:35 Offset Data Source Line Microsoft (R) BASIC Compiler Version 7.10 300E 0142 874 IF S < T THEN PRINT S" is is too small -";S;" ";CHR$(246 );" ";T;" = ";S/T:GOTO 800 309C 0142 875 IF ANSWER = DIV THEN PRINT "Correct! ": SCORE = SCORE + 10:LOCATE 1,45:PRINT "You have ";SCORE;"points, ";A$;" ": LOCATE 4,1:PRINT SPACE$(7 5) : GOTO 800 3138 0142 876 PRINT SPACE$(15) 3138 0142 877 IF SGN(DIV) = -1 THEN 842 3164 0142 878 PRINT "Sorry, ";A$;"! The Correct Answer was";DIV 3164 0142 879 SCORE = SCORE - 8 318C 0142 880 LOCATE 1,45 319D 0142 881 PRINT "You have ";SCORE;"points, ";A$;" " 31B0 0142 882 GOTO 800 31E1 0142 883 LOCATE 11,30 31E4 0142 884 PRINT A$;", 31FD 0142 885 LOCATE 13,30 320F 0142 886 PRINT "YOU ARE A MATH MASTER!" 3228 0142 887 FOR X = 1 TO 3000: NEXT : SCORE = 0 325E 0142 888 PRINT 8;" ";CHR$(246);" ";2;" = ";8/2 : GOTO 900 326A 0142 889 SCORE = 0 : KEY(1) OFF ^ ON event without /V or /W on command line 32C2 0142 890 RETURN 909 32C2 0142 900 PRINT 32C6 0142 901 PRINT "Please enter any Name for the Computer to print back wards." 32CF 0142 902 INPUT "Name - ",N$ 32FD 0142 903 R = LEN(N$) 3302 0142 904 FOR O = R TO 1 STEP -1 3316 0142 905 PRINT MID$(N$,O,1); 3316 0142 906 NEXT O 3358 0146 907 PRINT 3358 0146 908 PRINT HITKEY$ : ANYKEY$ = INKEY$:IF ANYKEY$ = "" THEN 907 3388 0146 909 RETURN 3388 0146 968 FOR D = 1 TO 5000 :NEXT : SCORE = 0 33B6 0146 969 CLS 33C2 0146 970 LOCATE 11, 30 33CB 0146 971 PRINT A$ "," 33E4 0146 972 LOCATE 13, 30 33F6 0146 973 PRINT "The Game is over! 340F 0146 974 FOR I =1 TO 2000: NEXT 3444 0146 975 CLS 3444 0146 976 PRINT "Your Name has";LEN (A$);"Character(s) in it." 344D 0146 977 GOSUB 6097 346B 0146 978 END 346B 0146 1000 COLOR 3,1,1 : CLS : KEY OFF 3491 0146 1001 PRINT 3499 0146 1002 PRINT 34A2 0146 1003 LOCATE 23,1 34AB 0146 1004 LOCATE 25,1 34C1 0146 1005 PRINT"Planeteers PC."+STRING$(53,0)+CHR$(17)+CHR$(196)+CHR $(217);: PRINT " Continue";STRING$(3,30):LOCATE 1, 1 : PRINT 34D7 0146 1006 PRINT PAGE 11 15 Feb 01 12:31:35 Offset Data Source Line Microsoft (R) BASIC Compiler Version 7.10 3558 0146 1007 PRINT SPC(26); STRING$(27,205); SPC(25) 3561 0146 1008 COLOR 15 358F 0146 1009 PRINT SPC(30);"WORD GUESSER: MAIN MENU";SPC(32) 35A0 0146 1010 COLOR 3 35C4 0146 1011 PRINT SPC(23); STRING$(27,205); SPC(28) 35D5 0146 1012 LOCATE 22,1:PRINT STRING$(80,196):PRINT"Welcome, "+A$+STRI NG$(3,30) 3603 0146 1013 PRINT 3653 0146 1014 LOCATE 9,10 365C 0146 1015 PRINT "1. User to guess Computer's word" 3675 0146 1016 PRINT 367E 0146 1017 PRINT TAB(10);"2. One player to guess another Player's wo rd" 3687 0146 1018 PRINT 36A2 0146 1019 PRINT TAB(10);"3. Exit" 36AB 0146 1020 LOCATE 18,34 36C6 0146 1021 COLOR 1,3 : PRINT " Selection:";: COLOR 3,1 : LINE INPUT " ",PICK$ 3726 014A 1022 P = VAL(PICK$) 3726 014A 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 37CD 014E 1024 ON P GOSUB 1025,1035,1113 37E5 014E 1025 REM 37E5 014E 1026 REM *** Word Input By the Computer *** 37E5 014E 1027 REM 37E5 014E 1028 RANDOMIZE TIMER 37E5 014E 1029 RESTORE 37FE 014E 1030 FOR X = 1 TO INT(RND*455)+1 382E 0152 1031 READ WORD$ 382E 0152 1032 NEXT X 385F 0156 1033 GOSUB 1058 3862 0156 1034 RETURN 3862 0156 1035 REM 3863 0156 1036 REM **** Word Entered By the Player **** 3863 0156 1037 REM 3863 0156 1038 CLS 3863 0156 1039 PRINT "Type in a Word and Press Enter!" 386C 0156 1040 PRINT"You may use Spaces. " 3875 0156 1041 PRINT"Any other character besides letters will be revealed ." 387E 0156 1042 WORD$ = "" 3887 0156 1043 T$ = "" 3894 0156 1044 ON ERROR GOTO 403 ^ ON ERROR without /E on command line 38A1 015A 1045 WHILE T$ <> CHR$(13) 38A2 015A 1046 T$ = INKEY$ 38BA 015A 1047 IF T$ = "" THEN 1046 38D8 015A 1048 IF LEN(T$) > 1 THEN 1046 38DF 015A 1049 IF T$ = CHR$(8) THEN WORD$ = LEFT$(WORD$,LEN(WORD$)-1): PRINT STRING$(1,29);" ";STRING$(1,29);:GO TO 1046 3941 015A 1050 IF ASC(T$) < 123 AND ASC(T$) > 96 THEN T$ = CHR$(ASC(T$)-3 PAGE 12 15 Feb 01 12:31:35 Offset Data Source Line Microsoft (R) BASIC Compiler Version 7.10 2) 3979 015A 1051 WORD$ = WORD$ + T$ 3979 015A 1052 PRINT "*"; 3987 015A 1053 WEND 3994 015A 1054 ON ERROR GOTO 50000 ^ ON ERROR without /E on command line 3994 015A 1055 WORD$ = LEFT$(WORD$,LEN(WORD$)-1) 3994 015A 1056 GOSUB 1058 39B2 015A 1057 RETURN 39B2 015A 1058 REM **** Guess Routine **** 39B3 015A 1059 CLS 39B3 015A 1060 FOR X = 1 TO 26:LOCATE 2,(X*2)+8 :PRINT CHR$(X+64):NEXT 3A2D 015A 1061 LOCATE 5,10 3A2D 015A 1062 L = LEN(WORD$) 3A46 015A 1063 G = 1 : MIS$ = "You Missed" : TIM$ = "times out of" 3A52 015E 1064 PRINT "The Word has";L;"Characters." : IF LEN(WORD$) > 10 THEN W = 16 ELSE W = 1 1 3AB9 016A 1065 GUESS$ = STRING$(LEN(WORD$),45) 3AB9 016A 1066 FOR X = 1 TO LEN(WORD$) 3AEA 0172 1067 IF MID$(WORD$,X,1) = "." THEN MID$(GUESS$,X,1) = "." 3B2E 0172 1068 IF MID$(WORD$,X,1) = " " THEN MID$(GUESS$,X,1) = " " 3B72 0172 1069 IF ASC(MID$(WORD$,X,1)) < 91 AND ASC(MID$(WORD$,X,1)) > 64 THEN 1071 3BBB 0172 1070 MID$(GUESS$,X,1) = MID$(WORD$,X,1) 3BBB 0172 1071 NEXT X 3C17 0172 1072 LOCATE 9,10 3C17 0172 1073 COLOR 14,0 : PRINT GUESS$ : COLOR 3,1 3C30 0172 1074 IF LEN(G$) > 2 THEN 1085 3C71 0176 1075 WHILE G < W AND WORD$ <> GUESS$ 3C72 0176 1076 LOCATE 17,10 3C9A 0176 1077 PRINT "You Missed";G-1;"times out of";W-1 3CB3 0176 1078 LOCATE 19,10 3CF7 0176 1079 PRINT TAB(10);"Words chosen may have spaces. " 3D10 0176 1080 PRINT TAB(10);"To get back to Main Menu, press the ESC key ." 3D2B 0176 1081 PRINT : IF WORD$ = GUESS$ THEN G = W 3D6C 0176 1082 PRINT TAB(10);"Guess a letter in the word - "; 3D6C 0176 1083 G$ = INKEY$ 3D87 0176 1084 IF G$ = CHR$(27) THEN DUMMY$ = "" : GOTO 1000 3DBB 017A 1085 IF G$ = "" THEN 1083 ELSE 1086 3DCD 017A 1086 IF ASC(G$) < 91 AND ASC(G$) > 64 THEN 1089 3DEC 017A 1087 IF ASC(G$) < 123 AND ASC(G$) > 96 THEN G$ = CHR$(ASC(G$)-3 2) 3E24 017A 1088 IF G$ = CHR$(13) THEN LOCATE 15,10:PRINT STRING$(40,0): LOCATE 22,1:GOTO 1082 3E7D 017A 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 3F3B 017A 1090 PRINT G$ 3F3B 017A 1091 FOR D = 1 TO LEN(DUMMY$) 3F58 017E 1092 IF G$ = MID$(DUMMY$,D,1) THEN LOCATE 15,10 : PRINT STRING$ PAGE 13 15 Feb 01 12:31:35 Offset Data Source Line Microsoft (R) BASIC Compiler Version 7.10 (30,0): LOCATE 15,10 :SOUND 434,2:COLOR 12:PRINT G$+" has already been guessed" : LOCATE 22,1:COLOR 3:GOTO 1082 4022 017E 1093 NEXT D 4049 017E 1094 DUMMY$ = DUMMY$ + G$ 4049 017E 1095 M = G 4057 017E 1096 IF G$ = CHR$(27) THEN 1083 407D 017E 1097 FOR J = 1 TO L 4092 0182 1098 IF MID$(WORD$,J,1) <> G$ THEN 1101 ELSE MID$(GUESS$,J,1) = G$ 40D9 0186 1099 LOCATE 9,10 40D9 0186 1100 COLOR 14,0:PRINT GUESS$:COLOR 3,1:E = 1 40F2 0186 1101 LOCATE 2,(ASC(G$)-65+5)*2 4135 0186 1102 PRINT " " 415C 0186 1103 NEXT J 418C 0186 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 42C9 0186 1105 IF G = M THEN LOCATE 15,9:PRINT STRING$(40,0): E = O 4315 0186 1106 IF GUESS$ = WORD$ THEN G = W 4332 0186 1107 WEND 4336 0186 1108 LOCATE 13,10 4336 0186 1109 IF GUESS$ = WORD$ THEN PRINT "Good Guessing, ";A$ ELSE PRINT "Sorry, ";A$;"! The Word or Na me was ";WORD$ 4397 0186 1110 DUMMY$ = "" 4397 0186 1111 LOCATE 22,10:PRINT HITKEY$ : ANYKEY$ = INKEY$:IF ANYKEY$ = "" THEN 1111 43E4 0186 1112 RETURN 43E4 0186 1113 GOTO 600 43E5 0186 1120 CLS 43E8 0186 1121 INPUT"Key in a number ",X 4415 0186 1122 PRINT 441A 0186 1123 PRINT"What do you want to do with this number?" 4423 0186 1124 PRINT"(S)quare Root (E)xponentation" 442C 0186 1125 INPUT G$ 445A 0186 1126 PRINT 445F 0186 1127 IF G$ = "S" OR G$ = "s" THEN IF SGN(X) = -1 THEN PRINT "Imaginary Root ":GOTO 1132 44AF 0186 1128 IF G$ = "S" THEN PRINT"The Square Root of";X;"is";SQR(X):X = SQR(X) 4503 0186 1129 IF G$ = "s" THEN PRINT"The Square Root of";X;"is";SQR(X):X = SQR(X) 4557 0186 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 45FF 018A 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 46A7 018A 1132 PRINT 46A7 018A 1133 PRINT "This is the Advanced Calculater, ";A$ 46B0 018A 1134 PRINT "Do you want to Continue with ";X;"?" PAGE 14 15 Feb 01 12:31:35 Offset Data Source Line Microsoft (R) BASIC Compiler Version 7.10 46C2 018A 1135 INPUT AN$ 4706 018E 1136 IF AN$ = "N" OR AN$ = "n" THEN 600 472F 018E 1137 CLS 472F 018E 1138 PRINT "Previous Number "; 4738 018E 1139 PRINT X 4741 018E 1140 PRINT"What do you want to do with this number?" 474E 018E 1141 PRINT"(S)quare Root (E)xponentation" 4757 018E 1142 INPUT G$ 4785 018E 1143 PRINT 478A 018E 1144 IF G$ = "S" OR G$ = "s" THEN IF SGN(X) = -1 THEN PRINT "Imaginary Root ":GOTO 1149 47DA 018E 1145 IF G$ = "S" THEN PRINT"The Square Root of";X;"is";SQR(X):X = SQR(X) 482E 018E 1146 IF G$ = "s" THEN PRINT"The Square Root of";X;"is";SQR(X):X = SQR(X) 4882 018E 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 492A 018E 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 49D2 018E 1149 PRINT 49D2 018E 1150 PRINT A$;", do you want to end this Calculater?" 49DB 018E 1151 INPUT AN$ 4A12 018E 1152 IF AN$ = "Y" OR AN$ = "y" THEN 600 4A3B 018E 1153 GOTO 1137 4A3B 018E 1196 Y$ = "" 4A3E 018E 1197 G = 0 4A4B 0192 1198 CLS 4A57 0192 1199 INPUT "Please enter a Number - ",X$ 4A85 0196 1200 IF X$ = "" THEN Z$ = "00EDDIE" 4AA6 019A 1201 X = VAL(X$) 4AA6 019A 1202 FOR C = LEN(X$) TO 1 STEP -1 4AC4 019A 1203 IF MID$(X$,1,1) = "0" AND C = 1 THEN 1205 4AF4 019A 1204 Y$ = Y$ + MID$ (X$,C,1) 4AF4 019A 1205 NEXT C 4B44 019A 1206 Y = VAL(Y$) 4B44 019A 1207 PRINT "The Sum of ";X$;" and";Y;"is";X+Y 4B59 019A 1208 Z = X + Y 4BA3 019A 1209 Z$ = STR$(Z) 4BB4 019E 1210 IF LEN(Z$) < 4 THEN 1211 ELSE 1213 4BD8 019E 1211 IF RIGHT$ (Z$,1) = MID$(Z$,2,1) THEN 1219 4C02 019E 1212 GOTO 1214 4C02 019E 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) T HEN 1219 4C8F 019E 1214 X$ = RIGHT$(Z$,LEN(Z$) - 1) 4C8F 019E 1215 Y$ = "" 4CAA 019E 1216 G = G + 1 4CB7 019E 1217 IF G > 15 THEN 1219 4CDE 019E 1218 GOTO 1201 4CDE 019E 1219 REM Zordon is Evil! 4CE1 019E 1296 BEEP PAGE 15 15 Feb 01 12:31:35 Offset Data Source Line Microsoft (R) BASIC Compiler Version 7.10 4CE1 019E 1297 PRINT "Zordon is Evil!" 4CE6 019E 1298 LOCATE 24,1:PRINT HITKEY$ : ANYKEY$ = INKEY$:IF ANYKEY$ = "" THEN 1298 4D2C 019E 1299 GOTO 600 4D2C 019E 1300 REM The IBM Personal Computer Mortgage 4D2F 019E 1301 REM Version 1.00 (C)Copyright IBM Corp, Eddie Segoura 1994 , 1995 4D2F 019E 1302 REM Licensed Material - BASIC Programming for the IBM Pers onal Computer 4D2F 019E 1303 REM Mortgage Amorization Program 4D2F 019E 1304 REM Built into Program by Eddie Segoura - Tuesday, Februar y 15, 1994. 4D2F 019E 1305 DEF SEG 4D2F 019E 1306 SAMPLES$="NO" 4D34 019E 1307 GOTO 1309 4D41 01A2 1308 SAMPLES$="YES" 4D44 01A2 1309 KEY OFF:SCREEN 0,1:COLOR 15,0,0:CLS:LOCATE 5,19:PRINT "IBM " 4D51 01A2 1310 LOCATE 7,12,0:PRINT "Personal Computer" 4DB8 01A2 1311 COLOR 10,0:LOCATE 10,9,0:PRINT CHR$(213)+STRING$(21,205)+C HR$(184) 4DE1 01A2 1312 LOCATE 11,9,0:PRINT CHR$(179)+" MORTGAGES "+CHR$ (179) 4E4C 01A2 1313 LOCATE 12,9,0:PRINT CHR$(179)+STRING$(21,32)+CHR$(179) 4E95 01A2 1314 LOCATE 13,9,0:PRINT CHR$(179)+" Version 1.10 "+CHR$ (179) 4EE8 01A2 1315 LOCATE 14,9,0:PRINT CHR$(212)+STRING$(21,205)+CHR$(190) 4F31 01A2 1316 COLOR 15,0:LOCATE 17,4,0:PRINT "(C) Copywrite IBM Corp 198 1, 1982" : LOCATE 18,4,0:PRINT "Due to Memory Condit ions, ": CHI$ = "" : PRINT " Bubb le Sort arrays if any were removed.":IF LEN(N$(1)) THEN ERASE N $ ^ Array not di mensioned 501A 01D2 1317 COLOR 14,0:LOCATE 23,7,0:PRINT "Press space bar to continu e" 501A 01D2 1318 IF INKEY$ <> "" THEN GOTO 1318 506C 01D2 1319 CMD$ = INKEY$ 506C 01D2 1320 IF CMD$ = " " THEN GOTO 1323 508D 01D6 1321 IF CMD$ =CHR$(27) THEN GOTO 1333 50A5 01D6 1322 GOTO 1319 50A5 01D6 1323 COLOR 15,0:CLS:DEFDBL P:DIM AMORT(420,2):SCREEN 0 50A7 1592 1324 DEF SEG=0 50D8 1592 1325 IF (PEEK(&H410) AND &H30)<>&H30 THEN COLS = 3:GOTO 1327 5103 1596 1326 WIDTH 80:COLS=8 5103 1596 1327 DEF SEG 511C 1596 1328 GOTO 1337 5121 1596 1329 IF ASC(I$)=27 THEN 1333 5135 1596 1330 IF VAL(I$) < 1 OR VAL(I$) > 2 THEN GOTO 1359 5173 1596 1331 IF MID$(I$,1,1)="2" THEN GOTO 1415 5190 1596 1332 IF MID$(I$,1,1)="1" THEN GOTO 1362 PAGE 16 15 Feb 01 12:31:35 Offset Data Source Line Microsoft (R) BASIC Compiler Version 7.10 51AD 1596 1333 IF SAMPLES$ <> "YES" THEN GOTO 1335 51BF 1596 1334 CHAIN "SAMPLES",1000 ^ Syntax error 51BF 1596 1335 GOSUB 1360 51CB 1596 1336 RETURN 51CB 1596 1337 REM - MAIN OPTION MENU 51CC 1596 1338 COLOR 15,0:CLS:COLOR 0,7:PRINT " Mortgage Analysis " 51CC 1596 1339 COLOR 15,0:LOCATE 3,1:PRINT "Options - " 520E 1596 1340 PRINT "1 - Mortgage Payment Comparisons " 5245 1596 1341 PRINT "2 - Mortgage Amorizitions" 524E 1596 1342 PRINT "ESC KEY - EXIT" 5257 1596 1343 PRINT " " 5260 1596 1344 PRINT "Option Number (1,2, OR ESC) =====>" 5269 1596 1345 PRINT " " 5272 1596 1346 COLOR 15,0 527B 1596 1347 PRINT CHR$(201)+STRING$(37,CHR$(205))+CHR$(187) 5293 1596 1348 PRINT CHR$(186)+" MORTGAGE "+CH R$(186) 52CC 1596 1349 PRINT CHR$(186)+" - Use this option to compare "+CH R$(186) 52F5 1596 1350 PRINT CHR$(186)+" the monthly payments of "+CH R$(186) 531E 1596 1351 PRINT CHR$(186)+" mortgages at various rates "+CH R$(186) 5347 1596 1352 PRINT CHR$(186)+" and principal amounts. "+CH R$(186) 5370 1596 1353 PRINT CHR$(186)+" Mortgage Amortizated "+CH R$(186) 5399 1596 1354 PRINT CHR$(186)+" - Use this option to calculate "+CH R$(186) 53C2 1596 1355 PRINT CHR$(186)+" the principle and interest "+CH R$(186) 53EB 1596 1356 PRINT CHR$(186)+" payed over any 12 month period."+CH R$(186) 5414 1596 1357 PRINT CHR$(200)+STRING$(37,CHR$(205))+CHR$(188) 543D 1596 1358 COLOR 0,7:LOCATE 8,37:PRINT " ":LOCATE 8,37 5476 1596 1359 I$=INKEY$:IF I$="" THEN 1359 ELSE PRINT I$;CHR$(29);:GOTO 1329 5502 1596 1360 COLOR 15,0:CLS:ERASE AMORT:GOTO 600 552F 1596 1361 PF = AF*(RF/(1#-(1#/((1#+RF)^NF)))):RETURN 5532 1596 1362 REM - mortgage comparisons 556D 15AA 1363 COLOR 15,0:CLS:COLOR 0,7:PRINT " mortgage payment comparis on program." 556D 15AA 1364 LOCATE 10,1:COLOR 15,0 55AF 15AA 1365 PRINT CHR$(218)+STRING$(37,CHR$(196))+CHR$(191) 55DD 15AA 1366 PRINT CHR$(179)+" MORTGAGE PAYMENT COMPARISONS "+CH R$(179) 5616 15AA 1367 PRINT CHR$(179)+" - USE THIS OPTION TO COMPARE "+CH R$(179) 563F 15AA 1368 PRINT CHR$(179)+" THE MONTHLY PAYMENTS OF "+CH R$(179) 5668 15AA 1369 PRINT CHR$(179)+" MORTGAGES AT VARIOUS RATES "+CH R$(179) 5691 15AA 1370 PRINT CHR$(179)+" AND PRINCIPAL AMOUNTS. "+CH PAGE 17 15 Feb 01 12:31:35 Offset Data Source Line Microsoft (R) BASIC Compiler Version 7.10 R$(179) 56BA 15AA 1371 PRINT CHR$(179)+" "+CH R$(179) 56E3 15AA 1372 PRINT CHR$(179)+" NOTE: TO SELECT A VALUE OR AMOUNT "+CH R$(179) 570C 15AA 1373 PRINT CHR$(179)+" ENTER THE APPROPRIATE VALUE "+CH R$(179) 5735 15AA 1374 PRINT CHR$(179)+" AND PRESS THE ENTER KEY. "+CH R$(179) 575E 15AA 1375 PRINT CHR$(192)+STRING$(37,CHR$(196))+CHR$(217) 5787 15AA 1376 LOCATE 3,1:LINE INPUT "ENTER BASE MORTGAGE AMOUNT ===> ";B $ 57EB 15AA 1377 A = VAL(B$):IF A <= 0 THEN GOTO 1373 5816 15AA 1378 AINC = 2000 5816 15AA 1379 LOCATE 4,1:PRINT SPC(38); 5822 15AE 1380 LOCATE 5,1:PRINT "(1 TO 50 PERCENT)"; 584A 15AE 1381 LOCATE 4,1:LINE INPUT "ENTER BASE INTEREST RATE =====> ";I R$ 5894 15B2 1382 IR = VAL(IR$):IF IR>50 OR IR<1 THEN GOTO 1379 58D5 15B6 1383 R = IR/1200:RINC = .0025/12 58D5 15B6 1384 LOCATE 5,1:PRINT SPC(38); 58F2 15BA 1385 LOCATE 6,1:PRINT "(1 TO 50 YEARS)"; 591A 15BA 1386 LOCATE 5,1:LINE INPUT "ENTER NUMBER OF YEARS IN MTG => ";Y $ 5964 15BA 1387 Y = VAL(Y$) 5964 15BA 1388 N = Y * 12 5979 15BA 1389 NF = N 598A 15BA 1390 IF NF>600 OR NF<1 THEN GOTO 1384 59C4 15BA 1391 CLS 59C4 15BA 1392 COLOR 0,7:PRINT " MONTHLY MORTGAGE PAYMENT COMPARISONS " 59CD 15BA 1393 COLOR 15,0:LOCATE 3,10:PRINT Y$+"-YEAR MORTGAGE LOAN AMOUN TS"; 59EE 15BA 1394 LOCATE 5,2:PRINT "RATES";:COLOR 0,7 5A32 15BA 1395 FOR I = 0 TO COLS 5A80 15BE 1396 LOCATE 4,9+I*8:PRINT SPC(7):LOCATE 4,9+I*8:PRINT A+I*AINC 5A80 15BE 1397 NEXT I 5B22 15BE 1398 FOR I = 0 TO 14 5B2A 15BE 1399 LOCATE 6+I,1:PRINT SPC(7):LOCATE 6+I,2 5B2A 15BE 1400 PRINT USING "##.##";INT(((R+(I*RINC))*120000!)+.5)/100 5B7A 15BE 1401 NEXT I 5BDE 15BE 1402 COLOR 15,0 5BDE 15BE 1403 FOR I = 0 TO 14 5BFE 15BE 1404 RF = R+I*RINC:AF=1:GOSUB 1361 5C23 15BE 1405 FOR J = 0 TO COLS 5C38 15C2 1406 P = PF*(A+J*AINC):P = INT((P+5.000001E-03)*100)/100 5C38 15C2 1407 IF P>10000 THEN LOCATE 22,1:PRINT "PAYMENTS TOO LARGE TO D ISPLAY": GOTO 1412 5CAA 15CA 1408 LOCATE 6+I,9+J*8:PRINT USING "####.##";P; 5CAA 15CA 1409 NEXT J 5D28 15CA 1410 NEXT I 5D4F 15CA 1411 PRINT " " 5D4F 15CA 1412 PRINT "PRESS SPACE BAR TO CONTINUE"; 5D58 15CA 1413 IF INKEY$ <> " " THEN GOTO 1413 5D72 15CA 1414 ERASE AMORT : GOTO 1323 PAGE 18 15 Feb 01 12:31:35 Offset Data Source Line Microsoft (R) BASIC Compiler Version 7.10 5D7E 15CA 1415 REM - mortgage amortization 5D81 15CA 1416 COLOR 7,0 5D81 15CA 1417 CLS 5D99 15CA 1418 COLOR 0,7 5DA2 15CA 1419 LOCATE 1,1 5DBA 15CA 1420 PRINT " MORTGAGE AMORTIZATION PROGRAM " 5DCA 15CA 1421 LOCATE 10,1:COLOR 15,0 5DD3 15CA 1422 PRINT CHR$(218)+STRING$(37,CHR$(196))+CHR$(191) 5E01 15CA 1423 PRINT CHR$(179)+" MORTGAGE AMORTIZATION "+CH R$(179) 5E3A 15CA 1424 PRINT CHR$(179)+" - USE THIS OPTION TO CALCULATE "+CH R$(179) 5E63 15CA 1425 PRINT CHR$(179)+" THE PRINCIPAL AND INTEREST "+CH R$(179) 5E8C 15CA 1426 PRINT CHR$(179)+" PAID OVER ANY 12 MONTH PERIOD. "+CH R$(179) 5EB5 15CA 1427 PRINT CHR$(179)+" "+CH R$(179) 5EDE 15CA 1428 PRINT CHR$(179)+" NOTE: TO SELECT A VALUE OR AMOUNT "+CH R$(179) 5F07 15CA 1429 PRINT CHR$(179)+" ENTER THE APPROPRIATE VALUE "+CH R$(179) 5F30 15CA 1430 PRINT CHR$(179)+" AND PRESS THE ENTER KEY. "+CH R$(179) 5F59 15CA 1431 PRINT CHR$(192)+STRING$(37,CHR$(196))+CHR$(217) 5F82 15CA 1432 LOCATE 3,1 5FBB 15CA 1433 LINE INPUT "ENTER MORTGAGE AMOUNT ===> ";C$ 5FE6 15CA 1434 AF = VAL(C$): IF AF <= 0 THEN 1429 6011 15CA 1435 LOCATE 4,1 6011 15CA 1436 PRINT " "; 6027 15CA 1437 LOCATE 5,1 6030 15CA 1438 PRINT "(1 TO 35 PERCENT)"; 6046 15CA 1439 LOCATE 4,1 604F 15CA 1440 LINE INPUT "ENTER INTEREST RATE =====> ";IR$ 607A 15CA 1441 IR = VAL(IR$) 607A 15CA 1442 IF IR>35 THEN GOTO 1435 60A5 15CA 1443 IF IR<1 THEN GOTO 1435 60BB 15CA 1444 RF = IR/1200 60BB 15CA 1445 LOCATE 5,1 60CC 15CA 1446 PRINT " "; 60E2 15CA 1447 LOCATE 6,1 60EB 15CA 1448 PRINT "(1 TO 35 YEARS)"; 6101 15CA 1449 LOCATE 5,1 610A 15CA 1450 LINE INPUT "ENTER NUMBER OF YEARS ===> ";Y$ 6135 15CA 1451 Y = VAL(Y$) 6135 15CA 1452 NF = Y * 12 614A 15CA 1453 IF NF>420 THEN GOTO 1445 6171 15CA 1454 IF NF<1 THEN GOTO 1445 6187 15CA 1455 GOSUB 1361 618A 15CA 1456 PF = INT((PF+5.000001E-03)*100)/100 618A 15CA 1457 PRINT "MONTHLY PAYMENTS ARE ====>";PF 61AC 15CA 1458 COLOR 23,0 61C8 15CA 1459 PRINT "CALCULATING AMORTIZATION" 61E0 15CA 1460 COLOR 15,0 PAGE 19 15 Feb 01 12:31:35 Offset Data Source Line Microsoft (R) BASIC Compiler Version 7.10 61E9 15CA 1461 IF NF>36 THEN GOTO 1463 6217 15CA 1462 FOR I = 1 TO 1000:NEXT I 6244 15CA 1463 AMORT(0,1) = AF 6244 15CA 1464 FOR I = 1 TO NF 6266 15CE 1465 AMORT(I,2) = INT((AMORT(I-1,1)*RF+5.000001E-03)*100)/100 6266 15CE 1466 AMORT(I,1) = AMORT(I-1,1)-PF+AMORT(I,2) 62B8 15CE 1467 NEXT I 6335 15CE 1468 FOR I = 7 TO 25:LOCATE I,1:PRINT SPC(39);:NEXT I 6391 15CE 1469 LOCATE 9,1 6391 15CE 1470 PRINT " - 1 TO"+STR$(NF) 63A7 15CE 1471 PRINT " - 0 TO END AMORTIZATION"; 63C4 15CE 1472 LOCATE 7,1 63CD 15CE 1473 PRINT "ENTER BEGINNING PAYMENT NUMBER" 63E3 15CE 1474 LINE INPUT "OF 12 MONTH PERIOD ======> ";PERIOD$ 6401 15D2 1475 PD= VAL(PERIOD$) 6401 15D2 1476 IF PD <> 0 THEN GOTO 1478 642B 15DA 1477 IF PERIOD$ <> "0" THEN GOTO 1472 643A 15DA 1478 IF PD=0 THEN GOTO 1328 6450 15DA 1479 IF PD>NF THEN GOTO 1472 6466 15DA 1480 IF PD<0 THEN GOTO 1472 647C 15DA 1481 LOCATE 7,1 647C 15DA 1482 PRINT SPC(39) 6492 15DA 1483 PRINT SPC(39) 649B 15DA 1484 LOCATE 9,1 64A4 15DA 1485 PRINT "PYMNT PRINCIPAL INTEREST BALANCE" 64BA 15DA 1486 TINT = 0 64C3 15DA 1487 FOR I = PD TO PD+11 64E8 15E2 1488 IF I> NF THEN GOTO 1492 64FE 15E2 1489 TINT = TINT + AMORT(I,2) 64FE 15E2 1490 PRINT USING "### ";I; 6522 15E2 1491 PRINT USING " ######.##";PF-AMORT(I,2);AMORT(I,2);AMORT(I ,1) 653D 15E2 1492 NEXT I 65DB 15E2 1493 PRINT " " 65DB 15E2 1494 PRINT "INTEREST FOR 12 PERIODS ="; 65E4 15E2 1495 PRINT USING "######.## ";TINT 65ED 15E2 1496 LOCATE 25,1 6603 15E2 1497 PRINT "PRESS SPACE BAR TO CONTINUE"; 6619 15E2 1498 LOCATE ,,0 6622 15E2 1499 IF INKEY$ <> "" THEN GOTO 1499 6647 15E2 1500 CMD$ = INKEY$ 6647 15E2 1501 IF CMD$ = " " THEN GOTO 1468 6668 15E2 1502 IF CMD$ =CHR$(27) THEN GOTO 1333 6680 15E2 1503 GOTO 1500 6680 15E2 1504 COLOR 3,1,1 6682 15E2 1505 CLS 669A 15E2 1506 LOCATE 10,10 66A3 15E2 1507 PRINT TAB(10)"1) Roll the dice and see if Your Numbers mat ch." 66BC 15E2 1508 PRINT TAB(10);"2) Pick a number and roll a die a number of times to 66CE 15E2 1509 PRINT TAB(10);" to see how many times your number is rol led." 66E9 15E2 1510 PRINT TAB(10)" choice"; PAGE 20 15 Feb 01 12:31:35 Offset Data Source Line Microsoft (R) BASIC Compiler Version 7.10 6704 15E2 1511 LINE INPUT " - ",C$(1) ^ Array not dimensioned 672B 160E 1512 IF VAL(C$(1)) < 1 OR VAL(C$(1)) > 2 THEN SOUND 434,2:LOCAT E 14,1: PRINT SPC(25):LOCATE 14,1:COLOR 12:PRINT TAB(13) "Type 1 or 2!": COLOR 3:LOCATE 13,1:GOTO 1510 67F9 160E 1513 ON VAL(C$(1)) GOSUB 1516,1533 6818 160E 1514 COLOR 7,0,0 6818 160E 1515 RETURN 6837 160E 1516 CLS 6838 160E 1517 INPUT "Enter a Number - ",C(2) ^ Array not dimensioned 6865 163A 1518 INPUT "Enter another Number - ",C(3) 688E 163A 1519 PRINT 6893 163A 1520 PRINT "You picked";C(2);"and";C(3) 689C 163A 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 " ";S TRING$(22,29);"Invalid Number(s)": COLOR 3:LOCATE 1,1:GOTO 1517 ELSE PRINT SPC(20):PRINT 69AA 163A 1522 RANDOMIZE TIMER 69AA 163A 1523 D(2) = INT(RND*6)+1 ^ Array not dimensioned 69C3 1666 1524 D(3) = INT(RND*6)+1 69E5 1666 1525 PRINT "YOU ROLLED A";D(2);"AND A";D(3);" " 6A07 1666 1526 IF C(2) = D(2) AND C(3) = D(3) THEN PRINT A$;" wins!":GOTO 1531 6A77 1666 1527 IF C(3) = D(2) AND C(2) = D(3) THEN PRINT A$;" wins!":GOTO 1531 6AB2 1666 1528 IF C(2) = D(2) OR C(3) = D(3) THEN PRINT "On of Your numbers matched. It's a tie!":GOTO 1531 6AE4 1666 1529 IF C(2) = D(3) OR C(3) = D(2) THEN PRINT "On of Your numbers matched. It's a tie!":GOTO 1531 6B16 1666 1530 PRINT "Sorry, ";A$". You lose!" 6B16 1666 1531 LOCATE 24,1:PRINT HITKEY$ : ANYKEY$ = INKEY$:IF ANYKEY$ = "" THEN 1531 6B6E 1666 1532 RETURN 6B6E 1666 1533 CLS:INPUT "How many rolls";RL 6B9C 166A 1534 LINE INPUT "Enter a Number from 1-6 please - ",BM$ 6BB6 166E 1535 BM = VAL(BM$) 6BB6 166E 1536 IF BM < 1 OR BM > 6 THEN SOUND 434,2:COLOR 12: PRINT SPC(26);STRING$(26,29);"Enter a Num ber from 1-6.";STRING$(2,30): COLOR 3:GOTO 1534 6C6B 1672 1540 RANDOMIZE TIMER 6C6B 1672 1541 FOR X = 1 TO RL 6C98 1676 1542 DI = INT(RND*6)+1 6C98 1676 1543 IF BM = DI THEN T2 = T2 + 1 6CDE 167E 1544 NEXT X 6D02 167E 1545 PRINT "Out of";RL;"rolls of a die, a";BM;"was rolled";T2;" times." 6D02 167E 1546 LOCATE 24,1:PRINT HITKEY$ : ANYKEY$ = INKEY$:IF ANYKEY$ = "" THEN 1546 6D8A 167E 1547 T2 = 0 PAGE 21 15 Feb 01 12:31:35 Offset Data Source Line Microsoft (R) BASIC Compiler Version 7.10 6D8A 167E 1548 RETURN 6D96 167E 1549 LOCATE 24,1:PRINT HITKEY$ : ANYKEY$ = INKEY$:IF ANYKEY$ = "" THEN 1549 6DD4 167E 1550 RETURN 6DD4 167E 1551 RETURN 6DD5 167E 1600 CLS 6DD6 167E 1601 PRINT "Color Test for the Planeteers" 6DDF 167E 1602 FOR X = 1 TO 15 6DF0 167E 1603 COLOR X 6DF0 167E 1604 PRINT "Planeteers";X 6E08 167E 1605 NEXT X 6E42 167E 1606 COLOR 7 6E42 167E 1607 PRINT "Please enter a String." 6E53 167E 1608 INPUT PH$ 6E81 1682 1609 INPUT "What character do you want to count"; CH$ 6EAB 1686 1610 FOR X = 1 TO LEN(PH$) 6EC4 168A 1611 IF MID$(PH$,X,1) = CH$ THEN C = C + 1 6EF9 168A 1612 NEXT X 6F1D 168A 1613 IF C = 0 THEN PRINT "Their are no ";CH$; "'s in the string :":GOTO 1616 6F4E 168A 1614 IF C = 1 THEN PRINT "Their is only one ";CH$; " in the str ing:":GOTO 1616 6F7F 168A 1615 PRINT "Their are"; C; CH$"'s in the string:" 6F7F 168A 1616 PRINT PH$ 6FA7 168A 1617 PRINT LEFT$(HITKEY$,LEN(HITKEY$)-1):ANYKEY$=INKEY$:IF ANYK EY$="" THEN 1617 6FE5 168A 1618 C = 0 6FE5 168A 1619 RETURN 6FF1 168A 1697 RESTORE 6FF2 168A 1698 CLS 6FF7 168A 1699 IF CHI$ = "ERASE" THEN ERASE N$ 701E 168A 1700 INPUT "How many Names do You wanna sort";N 7042 168A 1701 REM Read Name into array 7047 168A 1702 IF N = 0 THEN DA$ = "45E" : N = VAL(DA$) : GOTO 1703 ELSE 1709 7082 168E 1703 DIM N$(N) ^ Array already dimensioned 7082 168E 1704 FOR I = 1 TO N 7096 1692 1705 READ N$(I) 7096 1692 1706 IF LEN(N$(I)) < 5 THEN N$(I) = N$(I) + " " 70F8 1692 1707 NEXT I 711F 1692 1708 GOTO 1716 711F 1692 1709 PRINT "Enter the names one at a time." 7122 1692 1710 DIM N$(N) ^ Array already dimensioned 712B 1692 1711 FOR X = 1 TO N 7140 1696 1712 INPUT N$(X) 7174 1696 1713 IF LEN(N$(X)) < 5 THEN N$(X) = N$(X) + " " 71BF 1696 1714 NEXT X 71E6 1696 1715 CLS 71E6 1696 1716 TITLE$ = "Unsorted Data" 71EF 1696 1717 A = 3 : B = 10 71FC 169A 1718 GOSUB 1732 7217 169A 1719 REM Bubble Sort Routine! PAGE 22 15 Feb 01 12:31:35 Offset Data Source Line Microsoft (R) BASIC Compiler Version 7.10 7217 169A 1720 REM 7217 169A 1721 LOCATE 1,60 : COLOR 23 : PRINT "Sorting....":COLOR 7 7217 169A 1722 FOR X = 1 TO N-1 726E 169E 1723 FOR Y = N TO X+1 STEP -1 7288 16A2 1724 IF N$(Y) < N$(Y-1) THEN TEMP$ = N$(Y):SWAP TEMP$,N$(Y-1):N $(Y) = TEMP$ 7310 16A6 1725 NEXT Y 7337 16A6 1726 NEXT X 735E 16A6 1727 A = 1 : B = 10 735E 16A6 1728 TITLE$ = "Sorted Data" 7376 16A6 1729 CLS 7383 16A6 1730 GOSUB 1732 738F 16A6 1731 GOTO 1745 738F 16A6 1732 REM 7392 16A6 1733 REM Output the DATA 7392 16A6 1734 REM 7392 16A6 1735 LOCATE A,B 7392 16A6 1736 PRINT TITLE$ 73B9 16A6 1737 PRINT 73C2 16A6 1738 FOR Y = 1 TO N 73E0 16AA 1739 IF LEN(N$(Y)) > 12 THEN PRINT 7400 16AA 1740 PRINT "Name";Y;"- ";N$(Y), 7400 16AA 1741 NEXT Y 745B 16AA 1742 FOR X = 1 TO 250 : LOCATE 2,1:PRINT X:NEXT 74AB 16AA 1743 LOCATE 24,40:PRINT HITKEY$ : ANYKEY$ = INKEY$:IF ANYKEY$ = "" THEN 1743 74EB 16AA 1744 RETURN 74EB 16AA 1745 CHI$ = "ERASE" 74EC 16AA 1747 RESTORE 74F9 16AA 1748 RETURN 74FE 16AA 1749 CLS 74FF 16AA 1750 REM *** Time Set Routine *** 7508 16AA 1751 ON ERROR GOTO 1770 ^ ON ERROR without /E on command line 7508 16AA 1752 PRINT "Current Date is ";DATE$ 7508 16AA 1753 INPUT "Enter a new Date (mm-dd-yy) - ",D$ 7541 16AA 1754 IF D$ = "" THEN 1756 ELSE DATE$ = D$ 7561 16AA 1756 PRINT "Current Time is ";TIME$;". 7561 16AA 1757 INPUT "Enter a new time - ",T$ 75A3 16AA 1758 IF T$ = "" THEN 1760 ELSE TIME$ = T$ 75C3 16AA 1759 FOR X = 1 TO 1000 : NEXT 75F0 16AA 1760 ON ERROR GOTO 50000 ^ ON ERROR without /E on command line 75F0 16AA 1761 RETURN : PROFESSOR HART ^ Equal sign missing 75F0 16AA 1770 IF ERL = 1754 THEN ER$ = "Date." ELSE ER$ = "Time." 7622 16AE 1771 PRINT 7622 16AE 1773 IF ERR = 5 THEN PRINT "Please enter a valid ";ER$ 7647 16AE 1774 IF ERL = 1754 THEN RESUME 1753 ELSE RESUME 1757 7671 16AE 1800 CLS 7671 16AE 1801 PRINT "This will check for a name " 767A 16AE 1802 PRINT "In the Array of names You made in the Bubble Sorts program." 7683 16AE 1803 INPUT "Hit any Key to Continue",ARRAY$ PAGE 23 15 Feb 01 12:31:35 Offset Data Source Line Microsoft (R) BASIC Compiler Version 7.10 76B1 16B2 1804 IF CHI$ <> "ERASE" THEN PRINT "Array Not found. Create an Array using in Bubble Sorts.":GOTO 1850 76D1 16B2 1805 INPUT "Which name would You like to find"; NA$ 76F6 16B6 1806 FLAG$ = "Not Found" 76FB 16B6 1807 L = 1 7708 16BA 1808 H = N 7714 16BA 1809 WHILE FLAG$ = "Not Found" 7722 16BA 1810 M = INT((L + H) / 2) 7734 16BA 1811 IF MID$(N$(M),3,5) = " " THEN N$(M) = LEFT$(N$(M),2): 77B2 16BA 1812 IF MID$(N$(M),4,5) = " " THEN N$(M) = LEFT$(N$(M),3): 7813 16BA 1813 IF MID$(N$(M),5,5) = " " THEN N$(M) = LEFT$(N$(M),4): 7871 16BA 1814 IF MID$(N$(M),6,5) = " " THEN N$(M) = LEFT$(N$(M),5): 78D2 16BA 1815 IF NA$ = N$(M) THEN FLAG$ = "Found" : GOTO 1817 7900 16BA 1816 IF NA$ > N$(M) THEN L = M + 1 ELSE H = M - 1 7943 16BA 1817 IF L > H THEN FLAG$ = "not in the Array." 7963 16BA 1818 WEND 7966 16BA 1819 IF FLAG$ = "not in the Array." THEN PRINT NA$;" is ";FLAG$ : GOTO 1821 7993 16BA 1820 PRINT "I Found ";NA$ ;" as the Name Number";M;"in the Arra y. " 7993 16BA 1821 PRINT "Would You, ";A$;", like to find another Name";:INPU T Q$ 7A04 16BE 1822 IF Q$ = "Y" OR Q$ = "y" THEN PRINT : GOTO 1805 ELSE 1850 7A36 16BE 1850 FOR X = 1 TO 1000 : NEXT 7A62 16BE 1899 RETURN 7A62 16BE 1900 CLS 7A63 16BE 1901 COLOR 7,0,0 : KEY(1) ON : ON KEY(1) GOSUB 2078 : LOCATE 25 ,1 : PRINT "Press [F1] to cancel any song."+ST RING$(3,30):LOCATE 1,1 ^ ON event without /V or /W on command l ine ^ ON event without /V o r /W on command line 7A8B 16BE 1902 PRINT "WHICH CHRISTMAS CAROL DO YOU WANNA HEAR?" 7ACE 16BE 1903 PRINT " 1) We wish You a Merry Christmas." 7AD7 16BE 1904 PRINT " 2) Oh Christmas Tree!" 7AE0 16BE 1905 PRINT " 3) Deck the Halls " 7AE9 16BE 1906 PRINT " 4) The Twelve days of Christmas." 7AF2 16BE 1907 PRINT " 5) Jingle Bells." : PRINT " 6) Exit." 7AFB 16BE 1908 PRINT "? "; 7B0D 16BE 1909 LINE INPUT SE$ 7B2B 16C2 1910 IF VAL(SE$) < 1 THEN PRINT "?REENTER ": GOTO 1908 7B52 16C2 1911 IF VAL(SE$) > 6 THEN PRINT "Enter 1-6.": GOTO 1908 7B79 16C2 1912 IF VAL(SE$) = 6 THEN WHILE DAY$(1) = "First" : ERASE DAY$, MUSIC$, CH$ : WEND : ON KEY(1) GOSUB 3020 : GOTO 600 ^ Array not dimensioned ^ Array not defined ^ ON event without /V or /W on command line 7BB6 16EE 1913 ON VAL(SE$) GOSUB 1915,1937,1981,2003,1962,2085 7BDD 16EE 1914 GOTO 1900 PAGE 24 15 Feb 01 12:31:35 Offset Data Source Line Microsoft (R) BASIC Compiler Version 7.10 7BDD 16EE 1915 CLS : PRINT "We wish You a Merry Christmas" 7BE0 16EE 1916 PLAY "T180 O2 L4 E- A- L8 A- B- A- G L4 F F" 7BFB 16EE 1917 PRINT "We wish You a Merry Christmas" 7BFB 16EE 1918 PLAY "F b- l8 b- o3 c o2 b- a- l4 g e-" 7C0D 16EE 1919 PRINT "We wish You a Merry Christmas" 7C0D 16EE 1920 PLAY "l4 e- o3 c l8 c d- c o2 b- l4 a- f l8" 7C1F 16EE 1921 PRINT "And a Happy New Year" 7C1F 16EE 1922 PLAY "L8 E- E- L4 F B- G L4 A-." 7C31 16EE 1923 PRINT "Good timings for You wherever You are." 7C31 16EE 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-" 7C43 16EE 1925 PRINT "Good timing for CHRISTMAS and a happy New Year." 7C43 16EE 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-." 7C55 16EE 1927 PRINT "We wish You a Merry Christmas" 7C55 16EE 1928 PLAY "T180 O2 L4 E- A- L8 A- B- A- G L4 F F" 7C67 16EE 1929 PRINT "We wish You a Merry Christmas" 7C67 16EE 1930 PLAY "F b- l8 b- o3 c o2 b- a- l4 g e-" 7C79 16EE 1931 PRINT "We wish You a Merry Christmas" 7C79 16EE 1932 PLAY "l4 e- o3 c l8 c d- c o2 b- l4 a- f l8" 7C8B 16EE 1933 PRINT "And a Happy New Year" 7C8B 16EE 1934 PLAY "L8 E- E- L4 F B- G L4 A-." 7C9D 16EE 1935 GOTO 1900 7C9D 16EE 1936 'VAR A :Real 7CA0 16EE 1937 CLS 7CA0 16EE 1938 PRINT "Oh! Christmas Tree!" 7CA9 16EE 1939 PLAY "o2 t120 l4 c l8 f. l16 f l4 f"' g l8 a. l16al4a.l8ag al4b-egf" 7CBB 16EE 1940 PRINT "Oh! Christmas Tree!" 7CBB 16EE 1941 PLAY "O2 T120 L4 G L8 A. L16 A L4 A. " 7CCD 16EE 1942 PRINT "How lovely are Your branches." 7CCD 16EE 1943 PLAY "O2 T120 L8 A G A L4 B- E G F" 7CDF 16EE 1944 PRINT "Your shining star and twinkling light" 7CDF 16EE 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" 7CF1 16EE 1946 PRINT "They gently glow throughout the night. 7CF1 16EE 1947 PLAY "O2 T120 L8 B- B- G O3 L4 C. L8 O2 B- B- A L4 A" 7D03 16EE 1948 PRINT "Oh! Christmas Tree!" 7D03 16EE 1949 PLAY "o2 t120 l4 c l8 f. l16 f l4 f"' g l8 a. l16al4a.l8ag al4b-egf" 7D15 16EE 1950 PRINT "Oh! Christmas Tree!" 7D15 16EE 1951 PLAY "O2 T120 L4 G L8 A. L16 A L4 A. " 7D27 16EE 1952 PRINT "How lovely are Your branches." 7D27 16EE 1953 PLAY "O2 T120 L8 A G A L4 B- E G F" 7D39 16EE 1954 RETURN 7D39 16EE 1955 NOTE$(1) = "o2t100l4cl8f.l16fl4fgl8a.l16al4a.l8agal4b-egf" ^ Array not dimensioned 7D3A 171A 1956 NOTE$(2) = "cl8f.l16fl4fgl8a.l16al4a.l8agal4b-egf" 7D47 171A 1957 PLAY "l8n0o3cco2ao3l4d.l8cco2b-l4b-.l8b-b-go3l4c.l8o 2b-b-al4ac" 7D5D 171A 1958 NOTE$(4) = "l8f.l16fl4fgl8a.l16al4a.l8agal4b-egf" 7D5D 171A 1959 PRINT "We wish You a Merry Christmas" 7D6A 171A 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-" PAGE 25 15 Feb 01 12:31:35 Offset Data Source Line Microsoft (R) BASIC Compiler Version 7.10 7D7C 171A 1961 PLAY "o3l4e-o2e-l8e-e-l4fb-gl2a-l4e-a-l8a-b-a-gl4fffb-l8b- o3co2b-a-" 7D85 171A 1962 CLS :'TE$(2) = "cagfl4cl8n0ccagfl4dl8n0ddb-ago3ccccdco2b-g l4f.l8n0" 7D85 171A 1963 PRINT "Dashing through the Snow," : PLAY "O2 T120 L8 C A G F C" : PRINT "In a one horse open sleigh," : PLA Y "P10 L16 C C L8 C A G F D" : 7DB2 171A 1964 PRINT "On that firece we go," : PLAY "P10 D D B- A G O3 L4 C l8" : PRINT "Laughing all the way." : PLA Y "P10 C C O2 B- G L4 A. L8" : 7DD6 171A 1965 PRINT "Bells on Bobtales ring," : PLAY "O2 C A G F L4 C L8" : PRINT "Making spirits bright." : PLA Y "P10 C A G F L4 D L8" : 7DFA 171A 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" 7E0C 171A 1967 PRINT "Jingle Bells" : PLAY "A A L4 A L8" : PRINT "Jingle Bells" : PLAY "A A L 4 A L8" : PRINT "Jingle all the wa y." : PLAY "A O3 C O2 F. L16 G L4 A. P10 l8" 7E42 171A 1968 PRINT "Oh what fun it is to ride on a one horse open sleig h." : 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" 7E5D 171A 1969 PRINT "Jingle Bells" : PLAY "A A L4 A L8" : PRINT "Jingle Bells" : PLAY "A A L 4 A L8" : PRINT "Jingle all the wa y." : PLAY "A O3 C O2 F. L16 G L4 A. P10 l8" 7E93 171A 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" 7EA5 171A 1971 RETURN : 'TE$(5) = "l8aal4al8aal4al8ao3co2f.l16gl4an0" 7EA5 171A 1972 TE$(6) = "l8b-b-b-.l16b-l8b-aal16aal8o3cco2b-gl4f.l8n0" ^ Array not dimensioned 7EA6 1746 1973 FOR G = 1 TO 6 7EBC 1746 1974 PLAY TE$(G) 7ED4 1746 1975 NEXT 7EF8 1746 1976 TE$(1) = "t80o2l8f.l16gl8fl4d.l8f.l16gl8fl4d." 7EF8 1746 1977 TE$(2) = "o3cl8cl4o2a.b-l8b-l4f.gl8gb-.l16al8gf.l16gl8fl4d l8n0" 7F05 1746 1978 TE$(3) = "l4gl8gb-.l16al8gf.l16gl8fl4dl8n0l4o3cl8ce-.l16co 2l8a" 7F12 1746 1979 TE$(4) = "l4b-.o3dl8n0o2b-.l16fl8df.l16e-l8co1l4b-.b-l8n0" 7F1F 1746 1980 FOR G = 1 TO 4 : PLAY TE$(G) : NEXT 7F70 1746 1981 INPUT "(S)low version or (F)ast version";S.OR.F$ : CLS 7F95 174A 1982 IF S.OR.F$ = "F" OR S.OR.F$ = "f" THEN S.OR.F = 220 ELSE S .OR.F = 160 7FDC 174E 1983 CLS 7FDC 174E 1984 PRINT CENTER 1, "DECK THE HALLS WITH BELLS OF HOLLY," 7FE5 174E 1985 PLAY "T"+STR$(S.OR.F)+"O3L4D. L8C < L4BAGABG" 802B 1752 1986 PRINT CENTER 2, "FA LA LA LA LA, LA LA LA LA;" 802B 1752 1987 PLAY "L8AB >C L4D. L8C C L4C L8C L4D C# L4D L8EF# L4G L4F#E L2D" 80F3 1756 1996 PRINT CENTER 7, "TROLL THE ANCIENT YULE TIDE CAROL" 80F3 1756 1997 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 84EE 17CA 2025 PRINT CH$(Y):PLAY MUSIC$(Y) 851E 17CA 2026 NEXT Y PAGE 27 15 Feb 01 12:31:35 Offset Data Source Line Microsoft (R) BASIC Compiler Version 7.10 8545 17CA 2027 FOR W = 1 TO 300 :NEXT 8572 17CA 2028 CLS 8572 17CA 2029 NEXT CH 85A2 17CA 2030 COLOR 15 85A2 17CA 2031 PRINT "On the Twelvth day of Christmas My true love gave t o Me -- " 85B3 17CA 2032 PRINT 85BC 17CA 2033 PLAY "o2 T140 l8 CC l4 C l8 f f l4 f l8 e f g a a+ g l3 a. " 85CE 17CA 2034 COLOR 12 85CE 17CA 2035 PRINT "Twelve Ladies Dancing, " 85DF 17CA 2036 PLAY "o3 l04 C o2 l8 g a a+ G" 85F1 17CA 2037 COLOR 10 85F1 17CA 2038 PRINT "Eleven Power Moprhers, " 8602 17CA 2039 PLAY "o3 l09 o2 a+ o3 c C o2 l8 g a a+ G" 8614 17CA 2040 COLOR 12 8614 17CA 2041 PRINT "Ten Power Genies, " 8625 17CA 2042 PLAY "o3 l04 C o2 l8 g a a+ G" 8637 17CA 2043 COLOR 10 8637 17CA 2044 PRINT "Nine Bells of Holly," 8648 17CA 2045 PLAY "o3 l04 C o2 l8 g a a+ G" 865A 17CA 2046 COLOR 12 865A 17CA 2047 PRINT "Eight Nintendo Games, " 866B 17CA 2048 PLAY "o3 l08 C c o2 l8 g a a+ p15 " 867D 17CA 2049 COLOR 10 867D 17CA 2050 PRINT "Seven Metroids, " 868E 17CA 2051 PLAY "o3 l08 C c o2 l4 g a+ " 86A0 17CA 2052 COLOR 12 86A0 17CA 2053 PRINT "Six Planeteers, " 86B1 17CA 2054 PLAY "o3 l04 C o2 l8 g a l4 a+ " 86C3 17CA 2055 COLOR 10 86C3 17CA 2056 PRINT "Five Magic Rings, " 86D4 17CA 2057 PLAY "o3 l02 C l04 d o2 b o3 l2 c P10 86E6 17CA 2058 COLOR 12 86E6 17CA 2059 PRINT "Four Calling Birds," 86F7 17CA 2060 PLAY "T150 L8 O3 C O2 B A G l5 F P25 8709 17CA 2061 COLOR 10 8709 17CA 2062 PRINT "Three French Hens," 871A 17CA 2063 PLAY "L4 A+ D F P25 872C 17CA 2064 COLOR 12 872C 17CA 2065 PRINT "Two Turtle Doves, " 873D 17CA 2066 PLAY "L4 G l8 E D L4 C " 874F 17CA 2067 COLOR 10 874F 17CA 2068 PRINT "And a Sony under My tree." 8760 17CA 2069 PLAY "t180 o2 l6 a A+ O3 l3 C l06 d o2 b- a f l03 g f " 8772 17CA 2070 COLOR 14 8772 17CA 2071 COLOR 7,0,0 8783 17CA 2072 REM Go Back TO 600 87A2 17CA 2078 RETURN 1900 87A2 17CA 2085 RETURN 600 87A6 17CA 2200 CLS 87AA 17CA 2201 INPUT "How Much energy do You need to defeat Zordon";E 87D7 17CA 2202 IF INT(E/100) > 6 THEN PRINT "You can't take more than 699 .": GOTO 2201 PAGE 28 15 Feb 01 12:31:35 Offset Data Source Line Microsoft (R) BASIC Compiler Version 7.10 8806 17CA 2203 PRINT A$;", You will get";INT(E/100);"Energy Tanks and";E MOD 100; : PRINT "Seperate units " 8806 17CA 2204 PRINT "to defeat Zordon with. Good Luck! Make sure that You blast " 8868 17CA 2205 PRINT "Zordon's column of green light with Your Super Miss les. " 8871 17CA 2206 PRINT "Once Zordon is beat, a time bomb will be set. Get out fast! Once" 887A 17CA 2207 PRINT "You are out of the Command Center safely and away f rom it from a " 8883 17CA 2208 PRINT "safe distance, watch it blow up to bits." 888C 17CA 2209 PRINT 8895 17CA 2210 INPUT "What Year is this";YEAR 88C2 17CE 2211 IF YEAR > 10000 OR YEAR = 0 OR YEAR < -30000 THEN PRINT "Illegal function call in 110": : PRINT "Ok " :PRINT: GOTO 2214 891E 17CE 2212 PRINT 891E 17CE 2213 IF (YEAR MOD 4) THEN PRINT "The Year"; YEAR; "is not a lea p year." : PRINT "The next leap year will be";YEAR+( 4 - (YEAR MOD 4)) ELSE PRINT "The Year"; Y EAR;"is a leap year." 89CC 17CE 2214 PRINT LEFT$(HITKEY$,LEN(HITKEY$)-1):ANYKEY$=INKEY$:IF ANYK EY$="" THEN 2214 8A01 17CE 2215 PRINT "Here is an example of Coins - " 8A01 17CE 2216 PRINT 8A0A 17CE 2217 PRINT"If You had 69 cents, You would need at least:" 8A13 17CE 2218 PRINT INT(69/25);"Quarters" 8A1C 17CE 2219 PRINT INT((69 MOD 25)/10);"Dimes" 8A40 17CE 2220 PRINT INT(INT((69 MOD 25) MOD 10)/5);"Nickels" 8A64 17CE 2221 PRINT 69 MOD 5 ;"Pennies" 8A94 17CE 2222 INPUT "Enter a value in cents to calculate how much coine You need - ",C 8ACA 17CE 2223 IF C > 999 THEN PRINT "999 cents or less please. " : GOTO 2222 8AED 17CE 2224 G = C/100 8AED 17CE 2225 PRINT USING "If You had $#.##, You would need at least:";G : PRINT INT(C/100);"DOLLARS." 8AFE 17CE 2226 PRINT INT((C MOD 100)/25);"Quarters" 8B3D 17CE 2227 PRINT INT(INT((C MOD 100) MOD 25)/10);"Dimes" 8B7D 17CE 2228 PRINT INT(INT(INT((C MOD 100) MOD 25) MOD 10)/5);"Nickels" 8BD1 17CE 2229 PRINT C MOD 5; "Pennies" 8C43 17CE 2230 PRINT 8C6A 17CE 2231 LOCATE 24,1:PRINT HITKEY$ : ANYKEY$ = INKEY$:IF ANYKEY$ = "" THEN 2231 8CB0 17CE 2232 RETURN 8CB0 17CE 2345 REM X = 6 :RESUME 4 - 8 8CB1 17CE 2378 REM ------------------------------------------------------ 8CB1 17CE 3000 REM Power rangers are cruel. 8CB1 17CE 3001 REM Power rangers are mean. 8CB1 17CE 3002 REM They come in all different colors, 8CB1 17CE 3003 REM Like Red, Blue, or Green. 8CB1 17CE 3004 REM They Giggle and and laugh. PAGE 29 15 Feb 01 12:31:35 Offset Data Source Line Microsoft (R) BASIC Compiler Version 7.10 8CB1 17CE 3005 REM They Sing and they dance. 8CB1 17CE 3006 REM But when they fight the Planeteers or VR Troopers, 8CB1 17CE 3007 REM They don't stand a chance. 8CB1 17CE 3008 REM the Planeteers are Kwame(Earth), Wheeler(Fire), Linka (Wind), Alpha(Water), and Mate(Chess) 8CB1 17CE 3009 REM Our team members are Eddie Segoura, Billy Yost, Kwame , Kimberly Johnson, Mate, Kaitlin Star , Ryan Steel, and J.B Reese. 8CB1 17CE 3010 REM The Ghostwriter Team Members are Jamal Jenkins, Alex Fernandez, Gaby Fernandez, Tina Nguyen, Lenni F razier, and Hector Correro. 8CB1 17CE 3020 SOUND 37,.05 8CC2 17CE 3022 RETURN 8CC2 17CE 6097 SOUND 455,5 8CD4 17CE 6394 SOUND 445,4 8CE5 17CE 6833 SOUND 435,3 8CF6 17CE 7057 SOUND 425,2 8D07 17CE 7058 SOUND 415,1 8D18 17CE 7059 SOUND 405,.1 8D29 17CE 7099 SOUND 415,1 8D3A 17CE 7100 RETURN 8D3A 17CE 8989 YRL = 1.701412E+38 8D3B 17CE 8990 PRINT H$ 8D47 17D2 50000 IF ERR = 1 THEN ER$ = "NEXT without FOR " :GO TO 50065 8D6A 17D2 50001 IF ERR = 2 THEN ER$ = "Syntax Error " :GO TO 50065 8D84 17D2 50002 IF ERR = 3 THEN ER$ = "RETURN without GOSUB " :GO TO 50065 8D9E 17D2 50003 IF ERR = 4 THEN ER$ = "Out of DATA " :GO TO 50065 8DB8 17D2 50004 IF ERR = 5 THEN ER$ = "Illegal function call " :GO TO 50065 8DD2 17D2 50005 IF ERR = 6 THEN ER$ = "Override " :GO TO 50065 8DEC 17D2 50006 IF ERR = 7 THEN ER$ = "Out of Memory " :GO TO 50065 8E06 17D2 50007 IF ERR = 8 THEN ER$ = "Undefined line number " :GO TO 50065 8E20 17D2 50008 IF ERR = 9 THEN ER$ = "Subscript out of style " :GO TO 50065 8E3A 17D2 50009 IF ERR = 10 THEN ER$ = "Redimensioned Array " :GO TO 50065 8E54 17D2 50010 IF ERR = 11 THEN ER$ = "Division by zero " :GO TO 50065 8E6E 17D2 50011 IF ERR = 12 THEN ER$ = "Illegal Direct " :GO TO 50065 8E88 17D2 50012 IF ERR = 13 THEN ER$ = "Type mismatch " :GO TO 50065 8EA2 17D2 50013 IF ERR = 14 THEN ER$ = "Out of String Space " :GO TO 50065 8EBC 17D2 50014 IF ERR = 15 THEN ER$ = "String too long " :GO TO 50065 8ED6 17D2 50015 IF ERR = 16 THEN ER$ = "Stroing Formula too complex " :GO PAGE 30 15 Feb 01 12:31:35 Offset Data Source Line Microsoft (R) BASIC Compiler Version 7.10 TO 50065 8EF0 17D2 50016 IF ERR = 17 THEN ER$ = "Can't Continue " :GO TO 50065 8F0A 17D2 50017 IF ERR = 18 THEN ER$ = "Undefined user function " :GO TO 50065 8F24 17D2 50018 IF ERR = 19 THEN ER$ = "No RESUME " :GO TO 50065 8F3E 17D2 50019 IF ERR = 20 THEN ER$ = "RESUME without Error " :GO TO 50065 8F58 17D2 50020 IF ERR = 21 THEN ER$ = "Unprintable Error " :GO TO 50065 8F72 17D2 50021 IF ERR = 22 THEN ER$ = "Missing oprehend " :GO TO 50065 8F8C 17D2 50022 IF ERR = 23 THEN ER$ = "Line buffer override " :GO TO 50065 8FA6 17D2 50023 IF ERR = 24 THEN ER$ = "Device Timeout " :GO TO 50065 8FC0 17D2 50024 IF ERR = 25 THEN ER$ = "Device Fault " :GO TO 50065 8FDA 17D2 50025 IF ERR = 26 THEN ER$ = "FOR without NEXT " :GO TO 50065 8FF4 17D2 50026 IF ERR = 27 THEN ER$ = "Out of Keys " :GO TO 50065 900E 17D2 50027 IF ERR = 29 THEN ER$ = "WHILE without WEND " :GO TO 50065 9028 17D2 50028 IF ERR = 30 THEN ER$ = "WEND without WHILE " :GO TO 50065 9042 17D2 50029 IF ERR = 50 THEN ER$ = "FIELD override " :GO TO 50065 905C 17D2 50030 IF ERR = 51 THEN ER$ = "Internal Error " :GO TO 50065 9076 17D2 50031 IF ERR = 52 THEN ER$ = "Bad file number " :GO TO 50065 9090 17D2 50032 IF ERR = 53 THEN ER$ = "File not found " :GO TO 50065 90AA 17D2 50033 IF ERR = 54 THEN ER$ = "Bad file mode " :GO TO 50065 90C4 17D2 50034 IF ERR = 55 THEN ER$ = "File already open " :GO TO 50065 90DE 17D2 50035 IF ERR = 57 THEN ER$ = "Device I/O Error " :GO TO 50065 90F8 17D2 50036 IF ERR = 58 THEN ER$ = "File already exists " :GO TO 50065 9112 17D2 50037 IF ERR = 61 THEN ER$ = "Disk Full " :GO TO 50065 912C 17D2 50038 IF ERR = 62 THEN ER$ = "Input past End " :GO TO 50065 9146 17D2 50039 IF ERR = 63 THEN ER$ = "Bad record number " :GO TO 50065 9160 17D2 50040 IF ERR = 64 THEN ER$ = "Bad file Name " :GO TO 50065 917A 17D2 50041 IF ERR = 66 THEN ER$ = "Direct statement in file " :GO TO 50065 9194 17D2 50042 IF ERR = 67 THEN ER$ = "Too many files " :GO PAGE 31 15 Feb 01 12:31:35 Offset Data Source Line Microsoft (R) BASIC Compiler Version 7.10 TO 50065 91AE 17D2 50043 IF ERR = 68 THEN ER$ = "Device Unavailable " :GO TO 50065 91C8 17D2 50044 IF ERR = 69 THEN ER$ ="Communication buffer override ":GO TO 50065 91E2 17D2 50045 IF ERR = 70 THEN ER$ = "Disk Write Protected " :GO TO 50065 91FC 17D2 50046 IF ERR = 71 THEN ER$ = "Drive not Ready " :GO TO 50065 9216 17D2 50047 IF ERR = 72 THEN ER$ = "Disk media Error " :GO TO 50065 9230 17D2 50048 IF ERR = 73 THEN ER$ = "Advanced Feature " :GO TO 50065 924A 17D2 50049 IF ERR = 74 THEN ER$ = "Rename Across Disks " :GO TO 50065 9264 17D2 50050 IF ERR = 75 THEN ER$ = "Path/File access Error " :GO TO 50065 927E 17D2 50051 IF ERR = 76 THEN ER$ = "Directory not found " :GO TO 50065 9298 17D2 50052 IF ERR = 77 THEN ER$ = "Deadlock " :GO TO 50065 92B2 17D2 50053 IF ERR = 78 THEN ER$ = "Wrist communcator Error " :GO TO 50065 92CC 17D2 50054 IF ERR = 79 THEN ER$ = "Out of stack space " :GO TO 50065 92E6 17D2 50064 ER$ = "Unprintable Error " 92E6 17D2 50065 IF POS(X) < 0 OR POS(X) > 1 THEN PRINT 9325 17D2 50068 IF ERL > 65529 THEN PRINT ER$:END ELSE PRINT ER$"in";ERL 9369 17D2 50069 IF ERR.CHOICE = 1 THEN PRINT "Ok " : GOTO 50072 9388 17D2 50070 IF ERR.CHOICE = 2 THEN RESUME NEXT ^ RESUME without /X on com mand line 9399 17D2 50071 IF ERR.CHOICE = 3 THEN END ELSE END 93B9 17D2 50072 PRINT 93B9 17D2 50073 IF ERR = 5549 THEN ER$ = "To sign in, type the number [60 86]" 93D9 17D2 50074 PRINT "Error Code.";ERR 93D9 17D2 50075 PRINT "(A)bort, (I)gnore - "; 93ED 17D2 50076 CNT$ = INKEY$ 93F6 17D2 50077 IF CNT$ = "" THEN 50076 9414 17D6 50078 IF CNT$ = "I" OR CNT$ = "i" THEN RESUME NEXT ^ RESUME without /X on command line 9430 17D6 50079 IF CNT$ = "A" OR CNT$ = "a" THEN 332 9454 17D6 50080 IF CNT$ = CHR$(13) THEN PRINT : GOTO 50075 9475 17D6 50081 PRINT CNT$ 9475 17D6 50082 GOTO 50075 947E 17D6 60000 DATA KWAME,WHEELER,LINKA,"MATE",ALPHA,"DONKEY KONG","DIDD Y KONG", "CANDY KONG","EDDIE SEGOURA","BILLY YOST","BARBARA DOLGINS", "FIOR 6097","HmArO nE PASSWORD","WALTER Z. JONES","RYAN STEEL" 9482 17D6 60001 DATA "ROBERT STEAL","KAITLIN STAR","FUNKY KONG","CAPTAIN GAMEPLAY", "SAMUS ARAN","KIMBERLY JOHNSON","J. B REESE",TRAVIS YOUNGER,BENEATHA PAGE 32 15 Feb 01 12:31:35 Offset Data Source Line Microsoft (R) BASIC Compiler Version 7.10 9483 17D6 60002 DATA "CRANKY KONG",MARIO,LUIGI,HASHEM,JEB,JAFAR,ZORDON,GR IMLORD, "KING K. ROOL",PROFESSOR HART,"RITA REPULSA",BOWSER,IAGO,LINK, ZELDA,DENNIS,BEAK MAN,PETER,RAY,WINSTON,EGON 9484 17D6 60003 DATA 10,KWAME,20,WHEELER,30,LINKA,40,ALPHA,50,MATE,325,JA FAR,3,Aladdin, 4,Rita Repulsa,64564,Zordon,10,Kwame,500 ,Earth,10,Wheeler,650,Fire, 25,Linka,300,Wind,30,Al pha,150,Water,35,Mate,50,Chess 9485 17D6 60004 DATA ROUTINE,TRAVEL,PLANETEERS,METROIDS,YES,NO,ON,OFF,IMP RESSED,MIRACLE, NETWORK,COOKIE,AQUARIUM,CONSTRUCT,D IRECTORY,SUBDIRECTORY,DOS,HUNTER, BYTES,BINARY SYSTE M,HARD DRIVE,MICROSOFT WINDOWS,DELETE,PRINTER 9486 17D6 60005 DATA PAPER,MEMORY,COOK,LOOP,ROLLER COASTER,MERRY GO ROUND ,MARINE,BIOLOGY, VOLCANO,LAVA,HEAT,COLD,COOL,CAMOFLA UGE,ADAPTATIONS,BREAD,FOOD,HOT, BARREL,JUNGLE,CAVE ,CAVES,MINE,GOLD,INDUSTRY,POND,LAKE,CAVERN,MAZE 9487 17D6 60006 DATA LOST,FOUND,OBJECT,TREASURE,SIGN OUT,SIGN IN,PUNCH,JU ICE,COURT, MYSTERY,FICTION,CREATIVE,COOK BOOK, DOCUMENT,JUSTIFY,HEADER,FOOTER, EXIT,AUTOMATIC,MAR GIN,CENTER,JUSTIFICATION,WORD PROCESSING,CARE 9488 17D6 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,S HARK,BIRD,CAMEL,ZEBRA,DOLPHIN,WHALE,MOBY DICK 9489 17D6 60008 DATA SNAKE,PET SHOP,REPTILE,CROCODILE,ALLIGATOR,ICE CREAM ,WITCH,BITE, ROSE,VALENTINE,ACE,DECK,CARDS,JACK, CLUBS,SPADES,HEARTS,DIAMONDS, SUIT,SNOWBOUND,DRI VE,ROAD,SIGN,KICK,SNOW,RAIN,CALCULATER,ANGLE,LINE 948A 17D6 60009 DATA TABLE,DESK,WALL,CEILING,BEDROOM,BATHROOM,KITCHEN,GAR AGE,CAR, AUTOMOBILE,TRUCK,LIMOSINE,TAXI CAB, TRAILER,WATCH,TIME,CLOCK, COMMUNICATOR,COMMU NITY,"THE UNITED STATES OF AMERICA",COMMUNICATE 948B 17D6 60010 DATA POOR,MISERABLE,CONTEMPLATE,RIBBON,MEDAL,METAL,METALL IC,ATOM,BOMB, THRONE,THROWN,BALL,GOLF,TENNIS,BASE BALL,HOCKEY,HOTEL,ARUBA,CASINO, GAMBLE,FUN,WIN,MON EY,CHANCES,BLACKJACK,ROULETTE,POKER,SLOTS,FISH 948C 17D6 60011 DATA BACCARAT,BINGO,NUMBER,CALLER,POT,MOVE,ROOK,BISHOP,SL EEP,KNIGHT, PAWN,CHECKMATE,BALANCE,BANK,FINANCE ,MOLECULES,CHEMICALS,INERTIA, MOVEMENT,MATTER,MA SS,WEIGHT,WAIT,WEATHER,ATMOSPHERE,LAUGH,DEBT 948D 17D6 60012 DATA DOUBT,HEAD,MIND,BRAIN,SPINAL CORD,NERVOUS SYSTEM,FEE LINGS,DEAL, BROOKLYN,THEATRE,SHIP,BOAT,SPEED,BU S,TERMINAL,BICYCLE,AIRPLANE, AIRPORT,RUNWAY,CON TROL PANEL,PILOT,BASIC,FORTRAN,FORTRESS,DAY 948E 17D6 60013 DATA NEWS,CANDIDATES,ELECTION,POLITICS,PRESIDENT,PRESENT, GIFT,GIVE, GOVERNER,MAYOR,THANKSGIVING,TURKEY, FESTIVAL,PARTY,HOLIDAY,HIGH, LOW,SOLITARE,PUZZL E,PERPLEX,TWIST,CONFUSE,COMPARE,CLASSIC,PAC MAN 948F 17D6 60014 DATA HOUSE,TREE,QUEEN,KING,VIRTUALIZER,GAME,WHEEL,TELEVIS ION,MOVIE, CHRISTMAS,CHANUKAH,HALLOWEEN,YOM KI PPUR,PASSOVER,EASTER,NIGHT, NEW YEARS DAY,POWE R MORPHER,PLANETEER RING,KEYBOARD,DISK DRIVE 9490 17D6 60015 DATA SUPER,GOOD,PHENOMENAL,EXCELLENT,HAPPY,SAD,SUPERB,TAL ENTED,SMART, NEW,OLD,FREE,EXPENSIVE,MORE,LESS,ST PAGE 33 15 Feb 01 12:31:35 Offset Data Source Line Microsoft (R) BASIC Compiler Version 7.10 ORE,SCHOOL,BUILDING,IMAGINATION, VIVID,WONDERFUL,NI CE,MEAN,DANGEROUS,TITLE,AUTHOR,AUDIO,VIDEO 9491 17D6 60016 DATA ERROR,METROID,VENUS,MIGHTY MORPHIN POWER GENIES,MERC URY,MARS, SATURN,JUPITER,URANUS,NEPTUNE,PLUTO ,SUN,MOON,STARS,WHEEL OF FORTUNE, JEOPARDY,DISNEY,MI CKEY MOUSE,ORLANDO FLORIDA,THE DISNEY CHANNEL 9492 17D6 60017 DATA MATH,SCIENCE,HISTORY,READING,THE PRICE IS RIGHT,THE MAGIC BOX, BOOKS,BOOK,LOOK,RUN,JUMP,CASSETTE,R ECORD,PLAY,STOP,FAST FORWARD, REWIND,RADIO,Z100, MIX 105,WPLJ,CABLE TV,CONVERTER,ELECTRONICS 9493 17D6 60018 DATA KWAME,WHEELER,LINKA,MATE,EARTH,FIRE,WIND,CHESS,PLANE TEER,WISHES, NINTENDO,SAMUS,ALADDIN(ÆRED,WILMA,W ATER,COMPUTERS,"MAGIC LAMP" 9494 17D6 62000 DATA "A Sony Under the Tree.", "First", "O2 L8 A A+ O3 L4 C L08 D O2 B- A F L04 G F" 9495 17D6 62001 DATA "Two Turtle Doves,","Second", "L4 G L8 E D C P25 " 9496 17D6 62002 DATA "Three French Hens,","Third", "L4 A+ D F P25 " 9497 17D6 62003 DATA "Four Calling Birds,","Fourth", "L8 O3 C O2 B A G l6 F " 9498 17D6 62004 DATA "Five Magic Rings,","Fifth", "O3 L02 C L04 D O2 B O3 L2 C P10" 9499 17D6 62005 DATA "Six Planeteers,","Sixth", "O3 L04 C O2 L8 G A l4 B-" 949A 17D6 62006 DATA "Seven Metroids,","Seventh", "O3 L08 C C O2 L4 G B-" 949B 17D6 62007 DATA "Eight Nintendo Games,","Eighth", "O3 L08 C C O2 G A B- P15" 949C 17D6 62008 DATA "Nine Bells of Holly,","Ninth", "O3 L04 C O2 L8 G A B- G" 949D 17D6 62009 DATA "Ten Power Genies, ", "Tenth", "O3 L04 C O2 L8 G A B- G" 949E 17D6 62010 DATA "Eleven Power Morphers, ","Eleventh", "O3 L07 O2 A+ O3 L8 C C O2 G A B- G " 949F 17D6 62011 DATA "Twelve Ladies Dancing,", "O3 L08 C C O2 G A B- G" 94A0 17D6 65000 REM Free Software. Bunch of Programs all built into one by Eddie Segoura 94A0 17D6 65001 REM Programs are: [BASIC Commands and Functions us ed] 94A0 17D6 65002 REM Programs Intro [CLS, PRINT, INPUT, FOR-NEXT, RE AD-DATA, IF-THEN, LEFT$(A$,X), M ID$(A$,X,Y), RIGHT$(A$,x), ASC(A$), CHR$] 94A0 17D6 65003 REM Calculator [PRINT, INPUT, IF-THEN,+,-,*,/] 94A0 17D6 65004 REM Directory List [PRINT, INPUT, FILES] 94A0 17D6 65005 REM Number Guessing [PRINT, RANDOMIZE TIMER, RND, FO R-NEXT, INPUT] 94A0 17D6 65006 REM Main Menu [CLS, PRINT, LINE INPUT, ON..GOS UB, RETURN, IF-THEN] 94A0 17D6 65007 REM Grade Average [CLS, PRINT, INPUT, FOR-NEXT, DI PAGE 34 15 Feb 01 12:31:35 Offset Data Source Line Microsoft (R) BASIC Compiler Version 7.10 M, {Subscriped Var iables},ERASE] 94A0 17D6 65008 REM Math Problems [CLS, LOCATE, PRINT, INPUT, IF-T HEN,+,-,*,/) 94A0 17D6 65009 REM String Reverse [PRINT, INPUT, FOR-NEXT, MID$(A$ ,x,y)] 94A0 17D6 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, 94A0 17D6 65011 REM Word Guesser(Con't) FOR-NEXT, LEN(A$), IF-THEN, STR ING$(x,y),SOUND] 94A0 17D6 65012 REM Advanced Calculater [SQR(x),{Exponentation with ^},I F-THEN 94A0 17D6 65013 REM Palendromes [PRINT, INPUT, STR$(x), VAL(A$), IF-THEN, FOR-NEXT, MID$ (A$,x,y), RIGHT$(A$,x)] 94A0 17D6 65014 REM IBM's Mortgage Prg [DIM, {Subscripted Variables}, E RASE, ON..GOSUB, PRINT, PRINT U SING, INPUT, LINE INPUT, LOCATE, GOTO, RETURN, CHR$(x), IF-THEN,FOR-NEXT,INKEY$] 94A0 17D6 65015 REM Rolling the Dice [PRINT, INPUT, IF-THEN, RANDOMIZ E TIMER, RND] 94A0 17D6 65016 REM Character Count [PRINT, INPUT, FOR-NEXT, MID$(A$ ,x,y), LEN(A$), IF-THEN] 94A0 17D6 65017 REM Bubble Sort [DIM ,{Subscripted Variables}, ERASE, READ-DATA, RESTORE, FOR-N EXT, IF-THEN(-ELSE), PRINT, INPUT, GOTO, GOSUB, SWAP, LOCATE, LEN(A$)] 94A0 17D6 65018 REM Binary Name Search [{Subscripted Variables}, PRINT, INPUT, CLS, MID$(A$,x,y), IF-THEN(-ELSE)] 94A0 17D6 65019 REM Christmas Carols [VAL(A$), ON..GOSUB, INPUT, PRIN T, PLAY, READ-DATA, DIM , {Supscripted Variables},ERASE, IF-THEN, FOR-NEXT] 94A0 17D6 65020 REM MOD Programs [PRINT, INPUT, MOD Operator, INT (x)] 94A0 17D6 65021 REM Ending the Program [PRINT, END] 94A0 17D6 65022 REM Set Timer [System Variable DATE$, System V ariable TIME$, IF-THEN, PRINT , INPUT] 94A0 17D6 65023 REM Error Handler [System Variable ERR, System Var able ERL, IF-THEN, INKEY $, PRINT, ON ERROR GOTO.., RESUME, END, POS(x)] 94A0 17D6 65024 REM Exiting to System [System] 94A0 17D6 65529 REM Program Published by Eddie Segoura, Please copy and share this program. You need to Have QBASIC o r BASICA to run this program. 94A0 17D6 PAGE 35 15 Feb 01 12:31:35 Offset Data Source Line Microsoft (R) BASIC Compiler Version 7.10 ^ Block IF without END IF BC : Label not defined: 389 BC : Label not defined: 389 94A5 17D6 45372 Bytes Available 12895 Bytes Free 7 Warning Error(s) 39 Severe Error(s)