,... $$$$ $$$$T""P$$$ba, ,gd&P""T&bg. ,gd&P""T&bg. ggggggggggg $$$$ $$$$$b d$$$$ $$$$b d$$$$ $$$$$b ggggggggggg """"""""""" $$$$ $$$$$$ $$$$$ $$$$$ $$$$$bxxP&$$&P """"""""""" $$$$ $$$$$$ T$$$$ $$$$P T$$$$ $$$"""""" " """" $$$$$$ "T&$bxxd$&P" "T&$bxx$$$$$' " """"""$$$ """ """""" """ ggg "The HOE c0de Issue" ggg $$$ by - Various Artists $$$ $$$ $$$ $$$ [ HOE E-Zine #935 -- 12/05/99 -- http://www.hoe.nu ] .,$$$ `"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""' To be cute, I asked various e'zine folks I know to send HOE something for a programming code compilation. Here's what I got. ## AUTHOR LANGUAGE TITLE == ====== ======== ===== 01 Uberfizzgig GW-BASIC 2.02 "Useful Things To Know" 02 Jamesy PERL "caitlin.pl" 03 AltRocks C "Simple Command Line File Copy" 04 Cyn Java "Hangman Fun" 05 gd & zab C "makegore.c" 06 Ior C "Tic-Tac-Toe, One In A Row" 07 Ior HC11 Assembler "dsp.s" 08 AIDS PERL "poe.pl" 09 Trilobyte C++ "Tim's Special World" 10 Trilobyte AREXX "AREXX-based HOE Issue Commenter" 11 Gaurdian Tcl/Eggdrop "Hooker's Babble" 12 Gaurdian Tcl/Eggdrop "Eggdrop Defintions By Question" ########## ## [01] ## ########################################################################### ## FILENAME: "Useful Things To Know" ## LANGUAGE: GW-BASIC 2.02 ## AUTHOR: Uberfizzgig ## COMMENTS: Ten years ago, I wrote a basic program called "Useful Things ## To Know". It was a reference/encyclopedia program. Here it ## is in its entirity. Enjoy. ########################################################################### GW-BASIC 2.02 (C) Copyright Microsoft 1983,1984 TANDY 1000 GWBASIC 2.02 Tandy Version 01.02.01 Licensed to Tandy Corporation 60573 Bytes free Ok LOAD"UTTK.BAS" LIST 50 WIDTH 80 60 COLOR 2,0,0 70 CLS 445 PRINT "Useful Things To Know." 450 PRINT 455 PRINT "Select Catagory." 460 PRINT 465 PRINT "1. Numbers / Letters" 470 PRINT "2. Abbreviations" 475 PRINT "3. Road Abbreviations" 480 PRINT "4. Conversion Table" 485 PRINT "5. Time Measure" 490 PRINT "6. Miscellaneous Measures" 495 PRINT "7. Math Stuff" 500 PRINT "8. Solar System" 505 PRINT "9. Presidents" 510 PRINT "10. United States" 511 PRINT "11. Menu" 512 PRINT "12. End" 515 COLOR 1,0:PRINT "Catagory No.";:INPUT N 516 COLOR 2,0 520 IF N= 1 THEN 580 525 IF N= 2 THEN 600 530 IF N= 3 THEN 680 535 IF N= 4 THEN 725 540 IF N= 5 THEN 900 550 IF N= 6 THEN 975 555 IF N= 7 THEN 1030 560 IF N= 8 THEN 1170 565 IF N= 9 THEN 1700 570 IF N= 10 THEN 3475 571 IF N= 11 THEN 450 572 IF N= 12 THEN 4055 573 GOTO 450 580 CLS 581 PRINT "Numbers / Letters" 585 PRINT "0,1,2,3,4,5,6,7,8,9 A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W," 590 PRINT "X,Y,Z a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z" 595 GOTO 515 600 CLS 601 PRINT "Abbreviations" 605 PRINT "in= inches yd= yards ft= feet mi= miles" 610 PRINT "tsp= teaspoon Tbsp= tablespoon c= cups oz= ounces" 615 PRINT "lb= pound pt= pints fl.oz= fluid ounces qt= quarts gal= gallons" 620 PRINT 625 PRINT "mm= millimeter cm= centimeter dm= decimeter m= meter" 630 PRINT "dkm= dekameter hm= hectometer km= kilometer" 635 PRINT"ml=milliliter cl= centiliter dl= deciliter l= liter dkl= dekaliter" 640 PRINT "hl= hectoliter kl= kiloliter" 645 PRINT "mg= milligram cg= centigram dg= decigram g= gram dkg= dekagram" 650 PRINT "hg= hectogram kg= kilogram" 655 PRINT "ha= hectares t= tonnes (1,000 kg)" 670 GOTO 515 680 CLS 681 PRINT "Road Abbreviations" 685 PRINT "Avenue: Ave Alley: Aly Arcade: Arc Boulevard: Blvd Branch: Br" 690 PRINT "Bypass: Byp Causeway: Cswy Center: Ctr Circle: Cir Court: Ct" 695 PRINT "Crescent: Cres Drive: Dr Expressway: Expy Extention: Ext" 700 PRINT "Freeway: Fwy Gardens: Gdns Grove: Grv Heights: Hts Highway: Hwy" 705 PRINT "Lane: Ln Place: Pl Plaza: Plz Point: Pt Road: Rd Square: Sq" 710 PRINT "Street: St Terrace: Ter Trail: Trl Turnpike: Tpke Viaduct: Via"; 715 PRINT " Vista: Vis" 720 GOTO 515 725 CLS 726 PRINT "Conversion Table" 730 PRINT "LENGTH" 735 PRINT " mm* 0.04= in in* 2.54= cm" 740 PRINT " cm* 0.4 = in ft* 30.48= cm" 745 PRINT " m* 3.3 = ft yd* 0.9 = m" 750 PRINT " m* 1.1 = yd mi* 1.6 = km" 755 PRINT " km* 0.6 = mi" 760 PRINT 765 PRINT "AREA" 770 PRINT " cm* 0.6 = in in* 6.5 = cm" 775 PRINT " m* 1.2 = yd ft* 0.09= m" 780 PRINT " km* 0.4 = mi yd* 0.8 = m" 785 PRINT " ha* 2.5 = acres mi* 2.6 = km" 790 PRINT " acres* 0.4= ha" 795 PRINT 800 PRINT "MASS" 805 PRINT " g* 0.035= oz oz* 28 = g" 810 PRINT " kg* 2.2 = lb lbs* 0.45= kg" 815 PRINT " t* 1.1 = ton tons* 0.9= t" 820 PRINT "MORE";:INPUT J 825 PRINT "VOLUME" 830 PRINT " ml* 0.03= fl oz tsp* 5= ml" 835 PRINT " l* 2.1 = pt Tbsp* 15= ml" 840 PRINT " l* 1.06= qt fl oz* 30= ml" 845 PRINT " l* 0.26= gal c* 0.24 = l" 850 PRINT " m* 35 = ft pt* 0.47 = l" 855 PRINT " m* 1.3 = yd qt* 0.95 = l" 860 PRINT " gal* 3.8 = l" 865 PRINT " ft* 0.03 = m" 870 PRINT " yd* 0.76 = m" 875 PRINT 880 PRINT "TEMPERATURE" 885 PRINT " F to C: C= 5/9 (F- 32)" 890 PRINT " C to F: F= 9/5 (C+ 32)" 895 GOTO 515 900 CLS 901 PRINT "Time Measure" 905 PRINT "60 sec = 1 min 60 min = 1 h 24 h = 1 day 7 days = 1 week" 910 PRINT "28, 30, or 31 days = 1 month 12 months = 1 yr 365 days = 1 yr" 915 PRINT "366 days = 1 leap year 10 yrs = 1 decade 100 yrs = 1 century" 920 PRINT "10 decades = 1 century" 925 PRINT 930 PRINT "Sun.= Sunday Mon.= Monday Tues.= Tuesday Wed.= Wednesday" 935 PRINT "Thurs.= Thursday Fri.= Friday Sat.= Saturday" 940 PRINT 945 PRINT "January= Jan. 31 days Feberuary= Feb. 28 or 29 days" 950 PRINT "March= Mar. 31 days April= Apr. 30 days May= 31 days" 955 PRINT "June= 30 days July= 31 days August= Aug. 31 days" 960 PRINT "September= Sept. 30 days October= Oct. 31 days" 965 PRINT "November= Nov. 30 days December= Dec. 31 days" 970 GOTO 515 975 CLS 976 PRINT "Misc. Measure" 980 PRINT "2 pt = 1 qt 8 qt = 1 peck (pk) 4 pk = 1 bushel (bu)" 985 PRINT "1 cord = 128 ft 4 gills (gi) = 1 pt 4 qt = 1 gal" 990 PRINT "31 1/2 gal = 1 barrel (bbl) 2 bbl = 1 hogshead (hhd)" 995 PRINT "12 in = 1 ft 3 ft = 1 yd 16 1/2 ft (5 1/2 yd) = 1 rod" 1000 PRINT "660 ft = 1 furlong 320 rods (5,280 ft) = 1 mile" 1005 PRINT "12 units = 1 dozen (doz) 12 doz = 1 gross (gr)" 1010 PRINT "12 gr = 1 great gross 20 units = 1 score" 1015 PRINT "4 score and 7 yrs = 87 yrs 1 hand = 4 in 1 fathom = 6 ft" 1020 PRINT "1 knot = 6080 ft 3 knots = 1 league" 1025 GOTO 515 1030 CLS 1031 PRINT "Math Stuff" 1035 PRINT "addition: + plus subtraction: - minus multiplication: * times" 1040 PRINT "division: / divided by equals: = greater than: > less than: <" 1045 PRINT "decimal point: . parenthesis: ( ) brackets: [ ]" 1050 PRINT "solution set: { } pi= 3.14159265358... variables: a, b, c ..." 1055 PRINT 1060 PRINT "Parenthesis First" 1065 PRINT "Exponents Outside" 1070 PRINT "Multiplication Inside" 1075 PRINT "Division Last" 1080 PRINT "Addition" 1085 PRINT "Subtraction Use FOIL when multiplying 2 binomials" 1090 PRINT 1095 PRINT "MORE";:INPUT Z 1100 PRINT 1105 PRINT "PROPERTIES" 1110 PRINT "Communitive: a+b = b+a Associative: (a+b)+c = a+(b+c)" 1115 PRINT "Distributive: a(b+c) = ab+ac Symmetric: a=b & b=a" 1120 PRINT "Reflexive: a=a Transitive: if a=b & b=c then a=c" 1125 PRINT 1130 PRINT "MORE";:INPUT U 1135 PRINT 1140 PRINT "FORMULAS" 1145 PRINT " rate * time = distance diameter * pi = circumference" 1150 PRINT " diameter * 0.7854 = area length * width = area" 1155 PRINT " length * width * height = volume" 1160 PRINT " 2length + 2width = perimiter" 1165 GOTO 515 1170 CLS 1171 PRINT "Solar System" 1175 PRINT "SUN" 1176 PRINT "Diameter: 865,000 miles" 1177 PRINT "Surface Temperature: 10,300 degrees F." 1178 PRINT "Rotation Time: 25.4 days" 1179 PRINT "Atmospheric Gasses: 75% H, 24% He, 1% Other" 1180 PRINT "Sun Spots- cool, dark spots of atmospheric disturbance" 1185 PRINT "Solar Wind- Stream of particles given off by the sun" 1190 PRINT "Solar Flare- giant wave of plasma that emmits X rays" 1195 PRINT "MORE";:INPUT V 1200 PRINT 1205 PRINT "MERCURY" 1210 PRINT "Diameter: 3,032 miles" 1215 PRINT "Surface Temp.: sunlit: 950 F. dark: -340 F." 1220 PRINT "Rotation time: 59 days" 1225 PRINT "Revolution Time: 88 days" 1230 PRINT "Atmospheric Gasses: argon, neon, helium" 1235 PRINT "Explored By: Mariner 10" 1240 PRINT "Distance from sun: 35,980,000 miles" 1245 PRINT "MORE";:INPUT V 1250 PRINT 1255 PRINT "VENUS" 1260 PRINT "Diameter: 7,520 miles" 1265 PRINT "Surface Temperature: 980 F." 1270 PRINT "Rotation Time: 243 days" 1275 PRINT "Revolution Time: 225 days" 1280 PRINT "Atmospheric Gasses: sulfuric acid, carbon monoxide, water vapor" 1285 PRINT "Explored By: Mariner 2, Mariner 5, Mariner 10, Pioneer 1" 1290 PRINT " Pioneer 2, Venera 13, Venera 14" 1295 PRINT "Distance from sun: 67,200,000 miles" 1300 PRINT "MORE";:INPUT V 1305 PRINT 1310 PRINT "EARTH" 1315 PRINT "Diameter: 7,926 miles" 1320 PRINT "Rotation Time: 23.93 hours" 1325 PRINT "Revolution Time: 365 days" 1330 PRINT "Atmospheric Gasses: nitrogen, oxygen, carbon dioxide, other" 1335 PRINT "Distance from sun: 92,960,000 miles" 1340 PRINT "Moons: 1" 1345 PRINT "MORE";:INPUT V 1350 PRINT 1355 PRINT "MARS" 1360 PRINT "Diameter: 4,212 miles" 1365 PRINT "Rotation Time: 24.62 hours" 1370 PRINT "Revolution Time: 1.88 years" 1375 PRINT "Atmospheric Gasses: mostly carbon dioxide " 1380 PRINT "Explored By: Mariner 4, Mariner 9, Mars 2, Mars 3, Viking 1" 1385 PRINT " Viking 2" 1390 PRINT "Distance from sun: 141,680,000 miles" 1395 PRINT "Moons: 2" 1400 PRINT "MORE";:INPUT V 1405 PRINT 1410 PRINT "ASTEROID BELT" 1415 PRINT "Various sizes of rock orbiting the sun between Mars and Jupiter." 1420 PRINT "MORE";:INPUT V 1425 PRINT 1430 PRINT "JUPITER" 1435 PRINT "Diameter: 88,700 miles" 1440 PRINT "Rotation Time: 10 hours" 1445 PRINT "Revolution Time: 11.86 years" 1450 PRINT "Atmospheric Gasses: H, He, Other" 1455 PRINT "Explored By: Pioneer 10, Pioneer 11, Voyager 1, Voyager 2" 1460 PRINT " In Dec. 1995, Galileo" 1465 PRINT "Distance from sun: 483,700,000 miles" 1470 PRINT "Moons: 16 possibly 18" 1475 PRINT "Rings: 1" 1480 PRINT "MORE";:INPUT V 1485 PRINT 1490 PRINT "SATURN" 1495 PRINT "Diameter: 75,100 miles 1500 PRINT "Rotation Time: 11 hours" 1505 PRINT "Revolution Time: 84 years" 1510 PRINT "Atmospheric Gasses: hydrogen, helium, other" 1515 PRINT "Explored By: Pioneer 10, Pioneer 11, Voyager 1, Voyager 2" 1520 PRINT "Distance from sun: 886,740,000 miles" 1525 PRINT "Moons: 21 possibly 23" 1530 PRINT "Rings: about 1,000" 1535 PRINT "MORE";:INPUT V 1540 PRINT 1545 PRINT "URANUS" 1550 PRINT "Diameter: 32,600 miles" 1555 PRINT "Rotation Time: 16 hours" 1560 PRINT "Revolution Time: 84 years" 1565 PRINT "Explored By: Voyager 2" 1570 PRINT "Distance from sun: 1,783,170,000 miles" 1575 PRINT "Moons: 15" 1580 PRINT "Rings: 9" 1585 PRINT "MORE";:INPUT V 1590 PRINT 1595 PRINT "NEPTUNE" 1600 PRINT "Diameter: 27,700 miles" 1605 PRINT "Rotation Time: 18.5 hours" 1610 PRINT "Revolution Time: 164.8 years" 1615 PRINT "Explored By: Voyager 2" 1620 PRINT "Distance from sun: 2,794,190,000 miles" 1625 PRINT "Moons: 8" 1630 PRINT "Rings: 5" 1635 PRINT "MORE";:INPUT V 1640 PRINT 1645 PRINT "PLUTO" 1650 PRINT "Diameter: 1,860" 1655 PRINT "Rotation Time: 6.93 days" 1660 PRINT "Revolution Time: 247 years" 1662 PRINT "Distance from sun: 3,706,780,000 miles" 1665 PRINT "Moons: 1 possibly more" 1670 PRINT "MORE";:INPUT V 1675 PRINT 1680 PRINT "COMETS" 1685 PRINT "Balls of rock and/or ice. Elliptical orbits around sun." 1690 PRINT"Particles break off and are pushed back by solar wind to form a tail" 1695 GOTO 515 1700 CLS 1701 PRINT "Presidents" 1705 PRINT "1. George Washington" 1710 PRINT "Vice President.........John Adams" 1715 PRINT "Party..................None" 1720 PRINT "Term of office.........1789-1797" 1725 PRINT "Wife...................Martha Custis" 1730 PRINT "Senator / Congressman..No" 1735 PRINT "Coinage / Dollar.......Quarter, $1" 1740 PRINT 1745 PRINT "2. John Adams" 1750 PRINT "Vice President.........Thomas Jefferson" 1755 PRINT "Party..................Federalist" 1760 PRINT "Term of office.........1797-1801" 1765 PRINT "Wife...................Abigail Smith" 1770 PRINT "Senator / Congressman..No" 1775 PRINT "Coinage / Dollar.......None" 1785 PRINT 1790 PRINT "3. Thomas Jefferson" 1795 PRINT "Vice President.........Aaron Burr, George Clinton" 1800 PRINT "Party..................Democratic-Republican" 1805 PRINT "Term of office.........1801-1809" 1810 PRINT "Wife...................Martha Skelton" 1815 PRINT "Senator / Congressman..No" 1820 PRINT "Coinage / Dollar.......Nickel, $2" 1825 PRINT "MORE";:INPUT G 1830 PRINT "4. James Madison" 1835 PRINT "Vice President.........George Clinton, Elbridge Gerry" 1840 PRINT "Party..................Democratic-Republican" 1845 PRINT "Term of office.........1809-1817" 1850 PRINT "Wife...................Dorthea Payne Todd" 1855 PRINT "Senator / Congressman..Yes" 1860 PRINT "Coinage / Dollar.......$5,000" 1867 PRINT 1870 PRINT "5. James Monroe" 1875 PRINT "Vice President.........Daniel D. Tompkins" 1880 PRINT "Party..................Democratic-Republican" 1885 PRINT "Term of office.........1817-1825" 1890 PRINT "Wife...................Elizabeth Kortwright" 1895 PRINT "Senator / Congressman..Yes" 1900 PRINT "Coinage / Dollar.......None" 1905 PRINT 1910 PRINT "6. John Quincy Adams" 1915 PRINT "Vice President.........John C. Calhoun" 1920 PRINT "Party..................Democratic-Republican" 1925 PRINT "Term of office.........1825-1829" 1930 PRINT "Wife...................Louisa Johnson" 1935 PRINT "Senator / Congressman..Yes" 1940 PRINT "Coinage / Dollar.......None" 1941 PRINT "MORE";:INPUT G 1945 PRINT 1950 PRINT "7. Andrew Jackson" 1955 PRINT "Vice President.........John C. Calhoun, Martin Van Buren" 1960 PRINT "Party..................Democratic-Republican" 1965 PRINT "Term of office.........1829-1837" 1970 PRINT "Wife...................Rachel Robards" 1975 PRINT "Senator / Congressman..Yes" 1980 PRINT "Coinage / Dollar.......$20" 1985 PRINT 1990 PRINT "8. Martin Van Buren" 1995 PRINT "Vice President.........Richard M. Johnson" 2000 PRINT "Party..................Democrat" 2005 PRINT "Term of office.........1837-1841" 2010 PRINT "Wife...................Hannah Hoes" 2015 PRINT "Senator / Congressman..Yes" 2020 PRINT "Coinage / Dollar.......None" 2030 PRINT 2035 PRINT "9. William Henery Harrison" 2040 PRINT "Vice President.........John Tyler" 2045 PRINT "Party..................Whig" 2047 PRINT "Term of office.........1841" 2050 PRINT "Wife...................Anna Symmes" 2055 PRINT "Senator / Congressman..Yes" 2060 PRINT "Coinage / Dollar.......None" 2065 PRINT "MORE";:INPUT G 2070 PRINT "10. John Tyler" 2075 PRINT "Vice President.........None" 2080 PRINT "Party..................Whig" 2085 PRINT "Term of office.........1841-1845" 2090 PRINT "Wife...................Letitra Christian, Julia Gardner" 2095 PRINT "Senator / Congressman..Yes" 2100 PRINT "Coinage / Dollar.......None" 2110 PRINT 2115 PRINT "11. James K. Polk" 2120 PRINT "Vice President.........George M. Dallas" 2125 PRINT "Party..................Democrat" 2130 PRINT "Term of office.........1845-1849" 2135 PRINT "Wife...................Sarah Childress" 2140 PRINT "Senator / Congressman..Yes" 2145 PRINT "Coinage / Dollar.......None" 2150 PRINT 2155 PRINT "12. Zachary Taylor" 2160 PRINT "Vice President.........Millard Fillmore" 2165 PRINT "Party..................Whig" 2170 PRINT "Term of office.........1849-1850" 2175 PRINT "Wife...................Margaret Smith" 2180 PRINT "Senator / Congressman..No" 2185 PRINT "Coinage / Dollar.......None" 2195 PRINT "MORE";:INPUT G 2200 PRINT "13. Millard Fillmore" 2205 PRINT "Vice President.........None" 2210 PRINT "Party..................Whig" 2215 PRINT "Term of office.........1850-1853" 2220 PRINT "Wife...................Abigail Powers, Caroline McIntosh" 2225 PRINT "Senator / Congressman..Yes" 2230 PRINT "Coinage / Dollar.......None" 2235 PRINT 2240 PRINT "14. Franklin Pierce" 2245 PRINT "Vice President.........William R. King" 2250 PRINT "Party..................Democrat" 2255 PRINT "Term of office.........1853-1857" 2260 PRINT "Wife...................Jane Appleton" 2265 PRINT "Senator / Congressman..Yes" 2270 PRINT "Coinage / Dollar.......None" 2280 PRINT 2285 PRINT "15. James Buchanan" 2290 PRINT "Vice President.........John C. Breckinridge" 2295 PRINT "Party..................Democrat" 2300 PRINT "Term of office.........1857-1861" 2305 PRINT "Wife...................None" 2310 PRINT "Senator / Congressman..Yes" 2315 PRINT "Coinage / Dollar.......None" 2320 PRINT "MORE";:INPUT G 2325 PRINT "16. Abraham Lincoln" 2330 PRINT "Vice President.........Hannibal Hamlin, Andrew Johnson" 2335 PRINT "Party..................Republican" 2340 PRINT "Term of office.........1861-1865" 2345 PRINT "Wife...................Mary Todd" 2350 PRINT "Senator / Congressman..Yes" 2355 PRINT "Coinage / Dollar.......Penny, $5" 2360 PRINT "MORE";:INPUT G 2365 PRINT 2370 PRINT "17. Andrew Johnson" 2375 PRINT "Vice President.........None" 2380 PRINT "Party..................Democrat" 2385 PRINT "Term of office.........1865-1869" 2390 PRINT "Wife...................Eliza McCardle" 2395 PRINT "Senator / Congressman..Yes" 2400 PRINT "Coinage / Dollar.......None" 2405 PRINT 2410 PRINT "18. Ulysses S. Grant" 2415 PRINT "Vice President.........Schuyler Colfax" 2420 PRINT "Party..................Republican" 2425 PRINT "Term of office.........1869-1877" 2430 PRINT "Wife...................Julia Dent" 2435 PRINT "Senator / Congressman..No" 2440 PRINT "Coinage / Dollar.......$50" 2445 PRINT 2450 PRINT "19. Rutherford B. Hayes" 2455 PRINT "Vice President.........William A. Wheeler" 2460 PRINT "Party..................Republican" 2465 PRINT "Term of office.........1877-1881" 2470 PRINT "Wife...................Lucy Webb" 2475 PRINT "Senator / Congressman..Yes" 2480 PRINT "Coinage / Dollar.......None" 2485 PRINT "MORE";:INPUT G 2490 PRINT 2495 PRINT "20. James A. Garfield" 2500 PRINT "Vice President.........Chester A. Arthur" 2505 PRINT "Party..................Republican" 2510 PRINT "Term of office.........1881" 2515 PRINT "Wife ..................Lucietia Rudolph" 2520 PRINT "Senator / Congressman..Yes" 2525 PRINT "Coinage / Dollar.......None" 2530 PRINT 2535 PRINT "21. Chester A. Arthur" 2540 PRINT "Vice President.........None" 2545 PRINT "Party..................Republican" 2550 PRINT "Term of office.........1881-1885" 2555 PRINT "Wife...................Ellen Herndon" 2560 PRINT "Senator / Congressman..No" 2565 PRINT "Coinage / Dollar.......None" 2570 PRINT 2575 PRINT "22. S. Grover Cleveland" 2580 PRINT "Vice President.........Thomas A. Hendricks" 2585 PRINT "Party..................Democrat" 2590 PRINT "Term of office.........1885-1889" 2595 PRINT "Wife...................Frances Folsom" 2600 PRINT "Senator / Congressman..No" 2605 PRINT "Coinage / Dollar.......$1,000" 2610 PRINT "MORE";:INPUT G 2615 PRINT 2620 PRINT "23. Benjamin Harrison" 2625 PRINT "Vice President.........Levi P. Morton" 2630 PRINT "Party..................Republican" 2633 PRINT "Term of office.........1889-1893" 2635 PRINT "Wife...................Caroline Scott, Mary Scott Dimmick" 2640 PRINT "Senator / Congressman..No" 2645 PRINT "Coinage / Dollar.......None" 2650 PRINT 2655 PRINT "24. S. Grover Cleveland" 2660 PRINT "Vice President.........Adlai E. Stevenson" 2665 PRINT "Party..................Democrat" 2670 PRINT "Term of office.........1893-1897" 2675 PRINT "Wife...................Frances Folsom" 2680 PRINT "Senator / Congressman..No" 2685 PRINT "Coinage / Dollar.......$1,000" 2690 PRINT 2695 PRINT "25. William McKinley" 2700 PRINT "Vice President.........Theodore Roosevelt" 2705 PRINT "Party..................Republican" 2710 PRINT "Term of office.........1879-1901" 2715 PRINT "Wife...................Ida Saxton" 2720 PRINT "Senator / Congressman..Yes" 2725 PRINT "Coinage / Dollar.......$500" 2730 PRINT "MORE";:INPUT G 2735 PRINT 2740 PRINT "26. Theodore Roosevelt" 2745 PRINT "Vice President.........None. Charles W. Fairbanks" 2750 PRINT "Party..................Republican" 2755 PRINT "Term of office.........1901-1909" 2760 PRINT "Wife...................Alice Lee, Edith Carow" 2765 PRINT "Senator / Congressman..No" 2770 PRINT "Coinage / Dollar.......None" 2775 PRINT 2780 PRINT "27. William Howard Taft" 2785 PRINT "Vice President.........James S. Sherman" 2790 PRINT "Party..................Republican" 2795 PRINT "Term of office.........1909-1913" 2800 PRINT "Wife...................Helen Harron" 2805 PRINT "Senator / Congressman..No" 2810 PRINT "Coinage / Dollar.......None" 2815 PRINT 2820 PRINT "28. T. Woodrow Wilson" 2825 PRINT "Vice President.........Thomas R. Marshall" 2830 PRINT "Party..................Democrat" 2835 PRINT "Term of office.........1913-1921" 2840 PRINT "Wife...................Edith Galt" 2845 PRINT "Senator / Congressman..No" 2850 PRINT "Coinage / Dollar.......$100,000" 2855 PRINT "MORE";:INPUT G 2860 PRINT 2865 PRINT "29. Warren G. Harding" 2870 PRINT "Vice President.........Calvin Coolidge" 2875 PRINT "Party..................Republican" 2880 PRINT "Term of office.........1921-1923 2885 PRINT "Wife...................Florence DeWolf" 2890 PRINT "Senator / Congressman..Yes" 2895 PRINT "Coinage / Dollar.......None" 2900 PRINT 2905 PRINT "30. Calvin Coolidge" 2910 PRINT "Vice President.........None, Charles G. Dawes" 2915 PRINT "Party..................Republican" 2920 PRINT "Term of office.........1923-1929" 2925 PRINT "Wife...................Grace Goodhue" 2930 PRINT "Senator / Congressman..No 2935 PRINT "Coinage / Dollar.......None" 2940 PRINT 2945 PRINT "31. Herbert C. Hoover" 2950 PRINT "Vice President.........Charles Curtis" 2955 PRINT "Party..................Republican" 2960 PRINT "Term of office.........1929-1933" 2965 PRINT "Wife...................Lou Henry" 2970 PRINT "Senator / Congressman..No" 2975 PRINT "Coinage / Dollar.......None" 2980 PRINT "MORE";:INPUT G 2985 PRINT "32. Franklin Delano Roosevelt" 2990 PRINT "Vice President.........John N. Garner, Henry A. Wallace, Harry S Truman" 2995 PRINT "Party..................Democrat" 3000 PRINT "Term of office.........1933-1945" 3005 PRINT "Wife...................Elenor Roosevelt" 3010 PRINT "Senator / Congressman..No" 3015 PRINT "Coinage / Dollar.......Dime" 3020 PRINT 3025 PRINT "33. Harry S Truman" 3030 PRINT "Vice President.........None, Alben W. Barkley" 3035 PRINT "Party..................Democrat" 3040 PRINT "Term of office.........1945-1953" 3045 PRINT "Wife...................Bess Wallace" 3050 PRINT "Senator / Congressman..Yes" 3055 PRINT "Coinage / Dollar.......None" 3060 PRINT 3065 PRINT "34. Dwight D. Eisenhower" 3070 PRINT "Vice President.........Richard M. Nixon" 3075 PRINT "Party..................Republican" 3080 PRINT "Term of office.........1953-1961" 3085 PRINT "Wife...................Mary Geneva Doud" 3090 PRINT "Senator / Congressman..No" 3095 PRINT "Coinage / Dollar.......Silver Dollar" 3100 PRINT "MORE";:INPUT G 3105 PRINT 3110 PRINT "35. John F. Kennedy" 3115 PRINT "Vice President.........Lyndon B. Johnson" 3120 PRINT "Party..................Democrat" 3125 PRINT "Term of office.........1961-1963" 3130 PRINT "Wife...................Jacqueline Bovier" 3135 PRINT "Senator / Congressman..Yes" 3140 PRINT "Coinage / Dollar.......Half Dollar" 3145 PRINT 3150 PRINT "36.Lyndon B. Johnson" 3155 PRINT "Vice President.........None, Hubert H. Humphery" 3160 PRINT "Party..................Democrat" 3165 PRINT "Term of office.........1963-1969" 3170 PRINT "Wife...................Claudia Taylor" 3175 PRINT "Senator / Congressman..Yes" 3180 PRINT "Coinage / Dollar.......None" 3185 PRINT 3190 PRINT "37. Richard M. Nixon" 3195 PRINT "Vice President.........Spiro T. Agnew, Gerald R. Ford" 3200 PRINT "Party..................Republican" 3205 PRINT "Term of office.........1969-1974" 3210 PRINT "Wife...................Thelma Ryan" 3215 PRINT "Senator / Congressman..Yes" 3220 PRINT "Coinage / Dollar.......None" 3225 PRINT "MORE";:INPUT G 3230 PRINT 3235 PRINT "38. Gerald R. Ford" 3240 PRINT "Vice President.........Nelson A. Rockefeller" 3245 PRINT "Party..................Republican" 3250 PRINT "Term of office.........1974-1977" 3255 PRINT "Wife...................Elizabeth Bloomer" 3260 PRINT "Senator / Congressman..Yes" 3265 PRINT "Coinage / Dollar.......None" 3270 PRINT 3275 PRINT "39. James E. Carter" 3280 PRINT "Vice President.........Walter F. Mondale" 3285 PRINT "Party..................Democrat" 3290 PRINT "Term of office.........1977-1981" 3295 PRINT "Wife...................Rosalynn Smith" 3300 PRINT "Senator / Congressman..No" 3305 PRINT "Coinage / Dollar.......None" 3310 PRINT 3315 PRINT "40. Ronald W. Reagan" 3320 PRINT "Vice President.........George Bush" 3325 PRINT "Party..................Republican" 3330 PRINT "Term of office.........1981-1989" 3335 PRINT "Wife...................Jane Wyman, Nancy Davis" 3340 PRINT "Senator / Congressman..No" 3345 PRINT "Coinage / Dollar.......None" 3350 PRINT "MORE";:INPUT G 3355 PRINT 3360 PRINT "41. George H. W. Bush" 3365 PRINT "Vice President.........Dan Quail" 3370 PRINT "Party..................Republican" 3375 PRINT "Term of office.........1989-" 3380 PRINT "Wife...................Barbara Pierce" 3385 PRINT "Senator / Congressman..No" 3390 PRINT "Coinage / Dollar.......None" 3395 PRINT "MORE";:INPUT G 3400 PRINT 3405 PRINT "Number of presidents per party." 3410 PRINT "Republican: 17/ Democrat:12 / Democratic-Republican:5" 3415 PRINT "Whig:4 / Federalist:1 / No Party:1" 3420 PRINT 3425 PRINT "Longest term of office: F. D. Roosevelt" 3430 PRINT "Shortest term of office: William Henry Harrison" 3435 PRINT "Tallest President: Abraham Lincoln" 3440 PRINT "Shortest President: James Madison" 3445 PRINT "Oldest President: Ronald Reagan" 3450 PRINT "Youngest President to be elected: John F. Kennedy (43)" 3455 PRINT "Youngest President to take office: Theodore Roosevelt (42)" 3460 PRINT "Heaviest President: William Howard Taft" 3465 GOTO 515 3470 PRINT 3475 CLS 3476 PRINT "United States" 3480 PRINT "View States By..." 3485 PRINT "1. Capital / Became A State" 3490 PRINT "2. Entery Into Union" 3495 PRINT "3. State Abbreviations" 3500 PRINT "4. U.S. Territories" 3505 INPUT H 3510 IF H=1 THEN 3530 3515 IF H=2 THEN 3815 3520 IF H=3 THEN 3945 3525 IF H=4 THEN 4040 3530 PRINT 3535 PRINT "NAME CAPITAL BECAME A STATE" 3540 PRINT "Alabama................Montgomery.................Dec. 14, 1819" 3545 PRINT "Alaska.................Juneau.....................Jan. 3, 1959" 3550 PRINT "Arizona................Phoneix....................Feb. 14, 1912" 3555 PRINT "Arkansas...............Little Rock................June 15, 1863" 3560 PRINT "California.............Sacramento.................Sept. 9, 1850" 3565 PRINT "Colorado...............Denver.....................Aug. 1, 1876" 3570 PRINT "Connecticut............Hartford...................Jan. 9, 1788" 3575 PRINT "Delaware...............Dover......................Dec. 7, 1787" 3580 PRINT "Florida................Tallahassee................Mar. 3, 1845" 3585 PRINT "Georgia................Atlanta....................Jan. 2, 1788" 3590 PRINT "Hawaii.................Honolulu...................Aug. 21, 1959" 3595 PRINT "Idaho..................Boise......................July 3, 1890" 3600 PRINT "Illinois...............Springfield................Dec. 3, 1818" 3605 PRINT "Indiana................Indianapolis...............Dec. 11, 1816" 3610 PRINT "Iowa...................Des Moines.................Dec. 28, 1864" 3615 PRINT "Kansas.................Topeka.....................Jan. 29, 1861" 3620 PRINT "Kentucky...............Frankfort..................June 1, 1792" 3625 PRINT "Louisiana..............Baton Rouge................Apr. 30, 1812" 3630 PRINT "Maine..................Augusta....................Mar. 15, 1820" 3635 PRINT "Maryland...............Annapolis..................Apr. 28, 1788" 3640 PRINT "Massachusetts..........Boston.....................Feb. 6, 1788" 3645 PRINT "MORE";:INPUT F 3650 PRINT "NAME CAPITAL BECAME A STATE" 3655 PRINT "Michigan...............Lansing....................Jan. 26, 1837" 3660 PRINT "Minnesota..............St.Paul....................May 11, 1858" 3665 PRINT "Mississippi............Jackson....................Dec. 10, 1817" 3670 PRINT "Missouri...............Jefferson City.............Aug. 10, 1821" 3675 PRINT "Montana................Helena.....................Nov. 8, 1889" 3680 PRINT "Nebraska...............Lincoln....................Mar. 1, 1867" 3685 PRINT "Nevada.................Carson City................Oct. 31, 1864" 3690 PRINT "New Hampshire..........Concord....................June 21, 1788" 3695 PRINT "New Jersey.............Trenton....................Dec. 18, 1887" 3700 PRINT "New Mexico.............Santa Fe...................Jan. 6, 1912" 3705 PRINT "New York...............Albany.....................July 26, 1788" 3710 PRINT "North Carolina.........Raleigh....................Nov. 21, 1789" 3715 PRINT "North Dakota...........Bismark....................Nov. 2, 1889" 3720 PRINT "Ohio...................Columbus...................Mar. 1, 1803" 3725 PRINT "Oklahoma...............Oklahoma City..............Nov. 16, 1907" 3730 PRINT "Oregon.................Salem......................Feb. 14, 1859" 3735 PRINT "Pennsylvania...........Harrisburg.................Dec. 12, 1857" 3740 PRINT "Rhode Island...........Providence.................May 29, 1790" 3745 PRINT "South Carolina.........Columbia...................May 23, 1788" 3750 PRINT "South Dakota...........Pierre.....................Nov. 2, 1889" 3755 PRINT "Tennessee..............Nashville..................June 1, 1796" 3760 PRINT "Texas..................Austin.....................Dec. 29, 1845" 3770 PRINT "MORE";:INPUT F 3775 PRINT "NAME CAPITAL BECAME A STATE" 3777 PRINT "Utah...................Salt Lake City.............Jan. 4, 1896" 3780 PRINT "Vermont................Montpelier.................Mar. 4, 1791" 3785 PRINT "Virginia...............Richmond...................June 25, 1788" 3790 PRINT "Washington.............Olympia....................Nov. 11, 1889" 3795 PRINT "West Virginia..........Charleston.................June 20, 1863" 3800 PRINT "Wisconson..............Madison....................May 29, 1848" 3805 PRINT "Wyoming................Cheynne....................July 10, 1890" 3810 GOTO 515 3815 PRINT 3820 PRINT "1. Delaware 26. Michigan" 3825 PRINT "2. Pennsylvania 27. Florida" 3830 PRINT "3. New Jersey 28. Texas" 3835 PRINT "4. Georgia 29. Iowa" 3840 PRINT "5. Connecticut 30. Wisconson" 3845 PRINT "6. Massachusetts 31. California" 3850 PRINT "7. Maryland 32. Minnesota" 3855 PRINT "8. South Carolina 33. Oregon" 3860 PRINT "9. New Hampshire 34. Kansas" 3865 PRINT "10. Virginia 35. West Virginia" 3870 PRINT "11. New York 36. Nevada" 3875 PRINT "12. North Carolina 37. Nebraska" 3880 PRINT "13. Rhode Island 39. North Dakota" 3885 PRINT "14. Vermont 40. South Dakota" 3890 PRINT "15. Kentucky 41. Montana" 3895 PRINT "16. Tennessee 42. Washington" 3900 PRINT "17. Ohio 43. Idaho" 3905 PRINT "18. Louisiana 44. Wyoming" 3910 PRINT "19. Indiana 45. Utah" 3915 PRINT "20. Mississippi 46. Oklahoma" 3920 PRINT "21. Illinois 47. New Mexico" 3925 PRINT "22. Alabama 48. Arizona" 3930 PRINT "23. Maine 49. Alaska" 3935 PRINT "24. Missouri 25. Arkansas 50. Hawaii "; 3940 GOTO 515 3945 CLS 3950 PRINT "Alabama-------AL Alaska-------AK Arizona-------AZ" 3955 PRINT "Arkansas------AR California---CA Colorado------CO" 3960 PRINT "Connecticut---CT Delaware-----DE Florida-------FL" 3965 PRINT "Georgia-------GA Hawaii-------HI Idaho---------ID" 3970 PRINT "Illinois------IL Indiana------IN Iowa----------IA" 3975 PRINT "Kansas--------KS Kentucky-----KY Louisiana-----LA" 3980 PRINT "Maine---------ME Maryland-----MD Massachusetts-MA" 3985 PRINT "Michigan------MI Minnesota----MN Mississippi---MS" 3990 PRINT "Missouri------MO Montana------MT Nebraska------NE" 3995 PRINT "Nevada--------NV New Hampshire-NH New Jersey----NJ" 4000 PRINT "New Mexico----NM New York-----NY North Carolina-NC" 4005 PRINT "North Dakota--ND Ohio---------OH Oklahoma------OK" 4010 PRINT "Oregon--------OR Pennsylvania-PA Rhode Island--RI" 4015 PRINT "South Carolina-SC South Dakota-SD Tennessee-----TN" 4020 PRINT "Texas---------TX Utah---------UT Vermont-------VT" 4025 PRINT "Virginia------VA Washington---WA West Virginia-WV" 4030 PRINT "Wisconson-----WI Wyoming------WY" 4035 GOTO 515 4040 PRINT "American Samoa, Guam, Midway Island, Northern Marina Island" 4045 PRINT "Panama Canal Zone, Puerto Rico, Virgin Islands, Wake Island" 4050 GOTO 515 4055 CLS 4056 PRINT 4057 PRINT 4058 PRINT 4059 PRINT 4060 PRINT " ***************************************" 4065 PRINT " * *" 4070 PRINT " * PROGRAMMER: Scott Sexton *" 4075 PRINT " * *" 4085 PRINT " * *" 4090 PRINT " * PRESIDENTS: Andy Alderman *" 4095 PRINT " * World Almanac (1982) *" 4100 PRINT " * *" 4105 PRINT " * SOLAR SYSTEM: Funk & Wagnall's *" 4110 PRINT " * encyclopedia (1975) *" 4115 PRINT " * *" 4120 PRINT " * *" 4125 PRINT " * *" 4130 PRINT " * Copyright 1990 Scott Sexton *" 4145 PRINT " * *" 4150 PRINT " ***************************************" 4155 PRINT 4160 PRINT "QUIT / MCP (Q/M)";:INPUT H$ 4165 IF H$= "M" THEN 4170 ELSE SYSTEM 4170 CLS 4175 RUN"MCP" ########## ## [02] ## ########################################################################### ## FILENAME: "caitlin.pl" ## LANGUAGE: PERL ## AUTHOR: Jamesy ########################################################################### #!/usr/bin/perl # caitlin.pl - A script that randomly picks out one of the # many annoying traits of hers and outputs an email of # how annoying it is, and how annoying she is. # Last modified 5/10/99 by James Hetfield # define local variables here $mail_prog = "/usr/lib/sendmail -t"; # Location of mailer $caitlin_email = 'Synikalle@members.xoom.com'; # Caitlin's current # Email Address $program_email = 'IH8CAITLIN@Aol.com'; # Program's Email Address # Here is the Caitlin hash. This associate array contains # keys related to her annoying traits, and values relating to # the output the email will have about her annoying trait. %CAITLIN = ( "too_thin" = "WHO DO YOU THINK YOU ARE, KATE MOSS?"; "dislikes" = "YOU DISLIKE MEAN PEOPLE. YOU SUCK."; "computers" = "ON YOUR WEBPAGE YOU SAY YOU DISLIKE COMPUTERS. YOU'RE AN IDIOT."; "prejuidism" = "ON YOUR WEBPAGE YOU SAY YOU DISLIKE PREJUIDISM. WHAT THE FUCK IS THAT? CAN'T YOU SPELL?"; "internet" = "ON YOUR WEBPAGE YOU SAY YOU DISLIKE THE INTERNET. YOU THINK YOU'RE SO FUNNY, DON'T YOU?"; "tv" = "TV SUCKS, AND SO DO YOU."; "korn" = "KORN SUCKS. YOU SUCK. DIE."; "styx" = "I GUESS YOU DON'T KNOW WHAT A GENERATION GAP IS, DO YOU?"; "worship" = "YOU HAVE WORSHIP WEB PAGES. THEY'RE ON XOOM. YOU'RE DUMB."; "yanno" = "YOU SAY THINGS LIKE 'yanno?'. DIE."; "16" = "YOU'RE SIXTEEN. SHUT UP."; "lol" = "YOU PUT LOL ON YOUR WEBPAGE. YOU SUCK."; "hair" = "YOU'RE ONLY 16 AND YOU'VE ALREADY FUCKED UP YOUR HAIR FOR LIFE WITH ALL THOSE FUCKING DYES. CONGRATS!"; "clothes" = "YOUR MOTHER SURE DRESSES YOU FUNNY."; "dumb" = "UHHH YOU'RE DUMB."; ); # Now that we have the associate array defined, we'll have an array # of keynames so we can easily do a random function on the keys. @caitlin = ("too_thin", "dislikes", "computers", "prejuidism", "internet", "tv", "korn", "styx", "worship", "yanno", "16", "lol", "hair", "clothes", "dumb"); # get a pseudo-random seed srand(time ^ $$); # pick out a random insult $insult_key = $caitlin[rand(@caitlin)]; $insult = $CAITLIN{"$insult_key"}; # Now that we have an insult, send her the email! open(MAIL, "|$mail_prog") || die "Couldn't open mailer: $!\n"; print MAIL < main(int argc, char *argv[]) { FILE *OldFile, *NewFile; int c; if (argc < 3) { fprintf(stderr, "Not Enough Arguments.\n"); fprintf(stderr, "mycopy.e \n"); exit(1); } if (argc > 3) { fprintf(stderr, "Too many arguments.\n"); fprintf(stderr, "mycopy.e \n"); exit(1); } if ((OldFile=fopen(argv[1], "rb"))==NULL) { fcloseall(); fprintf(stderr, "Error Opening Source File.\n"); fprintf(stderr, "Make Sure File Exists, Or Is Not Write Protected.\n"); exit(1); } if ((NewFile=fopen(argv[2], "wb"))==NULL) { fcloseall(); fprintf(stderr, "Error Opening Destination File.\n"); fprintf(stderr, "Make Sure Disk Drive Exists, The Disk Is Inserted Properly, Or Is Not Write Protected."); exit(1); } while(1) { c=fgetc(OldFile); if (!feof(OldFile)) fputc(c, NewFile); else break; } puts("Success !"); fcloseall(); } ########## ## [04] ## ########################################################################### ## FILENAME: "Hangman Fun" ## LANGUAGE: Java ## AUTHOR: Cyn ########################################################################### //This is a game I made for my CS class a while ago. It's actually hard //as hell to beat, but you can look up the words since they're in the code. //Have fun. //Oh, and you should save it as Game.java and compile it using the jdk1.1.x //It uses some deprecated API, but I compiled it under 1.1.6, and it //wasn't a problem. import java.awt.*; import java.awt.event.*; /** Game creates a frame containing a Hangmanpanel, a HangmanTextField, a HangmanCanvas, and a reset button */ class Game extends Frame { HangmanCanvas c;//declares HangManConvas c HangmanTextField t;//declares HangmanTextField t HangmanPanel p;//declares HangmanPanel p Game() { addWindowListener(new WindowAdapter() { public void windowClosing(WindowEvent e) { System.exit(0);//adds WindowListener to Game to close frame } }); //{{INIT_CONTROLS setLayout(new BorderLayout(0,0)); setVisible(false); setSize(insets().left + insets().right + 500,insets().top + insets().bottom + 500); setTitle("Untitled"); //}} //{{INIT_MENUS //}}//visual cafe code to set border layout, and set size to height and width 500 //setSize(500,500); //setLayout(new BorderLayout()); c = new HangmanCanvas();//creates new HangmanCanvas c t = new HangmanTextField(c,p);//creates new HangmanTextField t p = new HangmanPanel(t);//creates new HangmanPanel p add("North",t);//adds HangmanTextField to the North of frame add("Center",c);//adds HangmanCanvas to the Center of frameays Reset add("South",p);//adds HangmanPanel to South of frame Button reset = new Button("Reset");//adds ActionListener to Button Reset reset.addActionListener(new ActionListener() { public void actionPerformed(ActionEvent e) { c.resetWrongGuesses(); t.reset(); p.reset(); }//has Button reset the number of wrong guesses, HangmanTextField, and HangmanPanel }); add("East",reset);//adds reset button to east } public static void main (String[] args) { Game f = new Game();//creates new Game f f.show(); } } class HangmanCanvas extends Canvas {//creates class HangmanCanvas, extends Canvas private int wrongGuesses = 0;//declares private int wrongGuesses, sets it to 0 public void resetWrongGuesses() {//creates resetWrongGuesses() method wrongGuesses = 0;//has resetWrongGuesses method set wrongGuesses to 0 repaint();//has resetWrongGuesses repaint the canvas } public void addWrongGuess() {//creates addWrongGuess method wrongGuesses++;//has addWrongGuess add one to wrongGuesses repaint();//has addWrongGuess repaint the canvas } public int checkWrongGuess(){//creates checkWrongGuess method return wrongGuesses;//returns number of wrongGuesses } public void paint(Graphics g) { g.setColor(Color.black);//makes scaffold black g.fillRect(0,220,200,5); // base of scaffold g.fillRect(0,0,70,5); // top of scaffold g.fillRect(0,0,5,220); // side of scaffold switch (wrongGuesses) { case 7: g.fillRect(45,5,5,15); // rope g.setColor(Color.red);//colors mouth red g.fillArc(35,50,20,20,10,170); // exMouth case 6: g.setColor(Color.blue);//colors leg blue g.drawLine(45,140,70,200);// right leg case 5: g.setColor(Color.blue);//colors leg blue g.drawLine(45,140,20,200);// left leg case 4: g.setColor(Color.orange);//colors arm orange g.drawLine(45,85,80,65); // right arm case 3: g.setColor(Color.orange);//colors arm orange g.drawLine(45,85,10,65); // left arm case 2: g.setColor(Color.orange);//colors body orange g.drawLine(45,70,45,140); // body case 1: g.setColor(Color.black);//colors face black if (wrongGuesses < 7) g.fillArc(35,40,20,20,-10,-170); // mouth g.drawOval(20,20,50,50); // head g.setColor(Color.green);//colors eyes green g.fillOval(30,40,7,7); // left eye g.fillOval(50,40,7,7); // right eye } } } class HangmanPanel extends Panel { Button b[] = new Button[26];//creates an array of 26 buttons int i;//declares int i HangmanTextField textField;//declares HangmanTextField textField String alphabet = "abcdefghijklmnopqrstuvwxyz"; HangmanPanel(HangmanTextField t) { textField = t; setSize(300,100);//gives HangmanPanel height 300 and width 100 setLayout(new GridLayout(2,13));//sets GridLayout of 2 by 13 for (i = 0; i < 26; i++) { b[i] = new Button(alphabet.substring(i,i+1)); b[i].setBackground(Color.red); b[i].addActionListener(new ActionListener() { Button mybutton = b[i]; char mychar = alphabet.charAt(i); // all this creates red buttons labeled with the letters of the alphabet public void actionPerformed(ActionEvent e) { textField.getGuess(mychar);//performs getGuess method mybutton.setBackground(Color.blue);//makes button blue when clicked if (test == true){ mybutton.removeActionListener(this); } } }); add(b[i]); } } public boolean test; public void reset() { for (int i = 0; i<26; i++) { b[i].setBackground(Color.red);//has reset method turn buttons red } } } class HangmanTextField extends java.awt.TextField { String toBeGuessed = "enter your text here";//creates String toBeGuessed StringBuffer displayString=new StringBuffer(toBeGuessed);//creates StringBuffer to display String toBeGuessed HangmanCanvas canvas;//declares HangmanCanvas canvas HangmanPanel panel; HangmanTextField(HangmanCanvas c, HangmanPanel p) { canvas = c; panel = p; toBeGuessed = word(); toBeGuessed.toLowerCase();//makes toBeGuessed lower case displayString = new StringBuffer(toBeGuessed);//creates displayString, a new StringBuffer containing the strong toBeGuessed /* Convert all non-space characters to - */ for (int i=0; i= 6){ setText("Ha ha. You Lost.");//has textField display losing message if there are more than seven wrong guesses } if (toBeGuessed.equals(displayString.toString()) == true) { setText("Congratulations! You Have Won!");//displays win message if there are no - in display string } /* if any replacements occurred, update the display string */ if (hits > 0){ setText(displayString.toString()); } /* otherwise inform the canvas of another wrong guess */ else { if (toBeGuessed.equals(displayString.toString()) != true) //doesn't add wrong guesses if you've already won canvas.addWrongGuess(); } } void reset() { toBeGuessed = word(); displayString = new StringBuffer(toBeGuessed); toBeGuessed.toLowerCase();//makes toBeGuessed lower case displayString = new StringBuffer(toBeGuessed);//creates displayString, a new StringBuffer containing the strong toBeGuessed /* Convert all non-space characters to - */ for (int i=0; i #define _G "_GORE" static char gorestr[]= _G _G _G _G _G _G _G _G _G _G _G _G _G _G _G _G _G _G; int main() { int outfd,left; printf("makegore.\n\n"); printf("how many megs of _gore: "); scanf("%d", &left); left*=(1024*1024); printf("\n"); if((outfd=creat("gore",0644)) <0 ) { printf("can not open file \"gore\". system took you.\n"); exit(1); } while(left>(sizeof(gorestr))-1) { left-=write(outfd,gorestr,(sizeof(gorestr))-1); } write(outfd,gorestr,left); close(outfd); return 0; } ########## ## [06] ## ########################################################################### ## FILENAME: "Tic-Tac-Toe, One In A Row" ## LANGUAGE: C ## AUTHOR: Ior ########################################################################### /* "tic-tac-toe, one in a row" a dc5 ultramedia game by ior */ #include /* prototype */ void tic (); /* rice, noodles, fun */ int main () { char blah; printf("\ni be dc5. irie.\n"); printf("\n"); printf("welcome to tic-tac-toe, one in a row.\n"); printf("i have been programmed with the most eliten advanced ai logics to date.\n"); printf("so i will go first.\n"); do { tic(); printf("\nlet's play again, shall we? "); blah = getchar(); printf("\nwinner goes first.\n"); } while (1 == 1); } void tic () { printf("\nnew game: \n"); printf(" _ \n"); printf("| |\n"); printf(" - \n"); printf("\nmy move: \n"); printf(" _ \n"); printf("|X|\n"); printf(" - \n"); } ########## ## [07] ## ########################################################################### ## FILENAME: "dsp.s" ## LANGUAGE: HC11 Assembler ## AUTHOR: Ior ########################################################################### .processor m68hc11 ;-- dsp.s ;-- ugly assembler code for a motorola hc11 processor ;-- ;-- the very start of it just initializes the segments and sets up regsiters ;-- for rs232 baud rate, etc. ;-- ;-- the rest of it is a little more interesting. it checks all the ram ;-- on the board (well, the board that this was used in) by doing ;-- walking ones (with logical shift left) through each register. ;-- ;-- then it gets fun. the board that this chip was running was a ;-- custom dsp with an adjustable feedback and adjustable delay ;-- (think of it as a guitar pedal). the chip has 4 embedded ;-- adcs, the first is used for the audio input, the second for the ;-- delay, and the third for the feedback. the last is unused. ;-- ;-- the trickiest part involved the sampling. the board only had ;-- 8k of ram, and i wanted to use all of it as a sample buffer ;-- to have the longest possible delays i could. this meant ;-- doing all memory 'pointer' and data manipulations through ;-- registers. the hc11 only has 4 registers. two 16 bit registers ;-- (X and Y) inteded to be used solely for memory addresses ;-- and two 8 bit registers (A and B) inteded as accumulators. ;-- registers A and B can be combined into a double accumulator ;-- D. this means there are only three 16 bit registers on the chip. ;-- to make things even more difficult, the hc11 engineers decided ;-- there would be absolutely no use for a 'mov' opcode. dumb. ;-- startup runtime code ;-- basic test code for board verification ;-- .external _main, __memory, _memerror, _showmem, _curraddr, _MemoryValid, _WR .external _temp, _feedback .public __stext, _dac_init, _adc_init ;-- get segment boundaries found in the *.lnk file and assign them to labels .psect _bss __sbss: ;-- label to base of bss segment (static, uninit. data) .psect _data __sdata: ;-- label base of data segment (init. data) ;get the code segment beginning from the *.lnk file and locate asm code there ; .psect _text __stext: ;-- label to base of text segment (code in rom) clrb ;-- b=0 ldy #0 ;-- y=0 ;setup monitor stack frame at the top of zpage inside the hc11 prog: ldx #0ffh ;-- x <- ffh txs ;-- sp <- x ;-- Initialize SCI ldab #48 ;-- BAUD = 0x30 ldy #4096 stab 43, y ldab #44 ;-- SCCR2 = 0x2c stab 45, y ;-- Initialize Real Time Interrupt bset 3, 38, y ;-- PACTL |= 0x03 bset 64, 36, y ;-- TMSK2 |= RTII; ;-- initialize adc bset 128, 57, y ;-- OPTION |= 0x80 bset 48, 48, y ;-- ADCTL |= 0x30 ;-- Start Checking memory memcheck: ldaa #1 ;-- Set Memory Valid Flag to 1 for Valid staa _MemoryValid ldx #6000h ;-- Start at memory location 6000h ; jmp _main ;-- remove this for memcheck addr_lp: ldaa #1 ;-- Start with ACCA = 1 byte_lp: staa 0, x ;-- Save ACCA at current memory address in X ldab 0, x ;-- Load ACCB from current memory address in X cba ;-- compare ACCA and ACCB bne bad ;-- If Not equal then memory location is bad lsla ;-- Rotate ACCA Left for Next Value bne byte_lp ;-- Loop until ACCA is 0 again stx _curraddr ;-- Show current mem address jsr _showmem next_addr: inx ;-- Move X to next address cpx #8000h ;-- Check if end of memeory otherwise check next address bne addr_lp jmp done ;-- done checking mem, go to main bad: clr _MemoryValid ;-- Set Memory Valid Flag to 0 for Invalid stx _curraddr ;-- Show current bad memory address jsr _memerror jmp next_addr ;-- Test next address _dac_init: ldaa #0 ;-- initialize digital out to 00 ldx #2000h ;-- start at memory location 2000h dac_loop: staa 0, x ;-- write ACCA to memory in REGX cmpa #255 ;-- if digital out is 0xFF beq _dac_init ;-- reset! inca ;-- increment ACCA jmp dac_loop ;-- or keep incrementing ;-- for analog->digital conversion ;-- REGX is always the head (write) pointer for circular queue ;-- REGY is always the tail (read) pointer for circular queue ;-- to avoid possible overwriting problems, use ACCA to read from ADRx ;-- and write to RAM ;-- and use ACCB to read from RAM and write to 0x2000 (memory mapped DAC) ;-- ADC initialization _adc_init: ldx #6000h ;-- head pointer (WR) ldy #6000h ;-- tail pointer (RD) ;-- READ ADC loop adc_loop: ;-- FEEDBACK DELAY feedback_delay: ldab 1033h ;-- ACCB = ADR2 at 0x1032 ldaa 0, y ;-- ACCA = oldoutput negb ;-- offset = -offset feedback_offset: ;-- do { lsra ;-- oldoutput / 2 lsrb ;-- offset / 2 bne feedback_offset ;-- } while (offset != 0) offset_done: tab ;-- ACCB = ACCA ldaa 1031h ;-- ACCA = ADR1 at 0x1031 aba ;-- ACCA = ACCA + ACCB staa 0, x ;-- write to WR pointer ;-- calculate ECHO offset echo_offset: stx _WR ldab 1032h ;-- ACCB = ADR2 at 0x1032 lsrb ;-- ACCB = ACCB / 16 lsrb lsrb lsrb negb ;-- ACCB = -ACCB ldy _WR aby ;-- REGY = REGY + (-ACCB) cpy #6000h ;-- compare to start of RAM sty _WR blt back_wrap ;-- if under start, take care of it! end_wrap: ldy _WR ;-- WRITE DAC loop ldab 0, y ;-- read from RD pointer iny ;-- REGY++ cpy #8000h ;-- RD at end of RAM? beq tail_reset ;-- then restart at start of circular queue return_tail: ldaa 0, x ;-- read from WR pointer (current input) inx cpx #8000h ;-- WR at end of RAM? beq head_reset ;-- then restart at start of circular queue return_head: aba ;-- ACCA = ACCA + ACCB (both samples) staa 2000h ;-- write sample to DAC jmp adc_loop ;-- loop! head_reset: ldx #6000h ;-- reset WR pointer to top of RAM jmp return_head tail_reset: ldy #6000h ;-- reset RD pointer to top of RAM jmp return_tail ;-- when 'echoing' the RD pointer, if it gets moved under the start of RAM ;-- then this will wrap it to the end back_wrap: ldd #6000h ;-- start of RAM subd _WR ;-- ACCD = 0x6000 - REGY std _temp ;-- _temp = ACCD bgt wrap jmp end_wrap wrap: ldd #8000h ;-- ACCD = end of RAM subd _temp ;-- ACCD = ACCD - _WR std _WR jmp end_wrap done: jmp _main ;-- execute main .end ########## ## [08] ## ########################################################################### ## FILENAME: "poe.pl" ## LANGUAGE: PERL ## AUTHOR: AIDS ########################################################################### #!/usr/bin/perl ## poe.pl [by AIDS] ## WOW THIS STUFF DOES SOME FUN STUFF IT MAKES A SOURCE OF WORD RELATIONSHIP ## FILES. YOU CAN USE THIS TO EMULATE NATURAL LANGUAGE PATTERNS. ## THERE WAS ANOTHER FILE WHICH DID THIS AUTOMATICALLY, BUT I LOST THE CODE. ## THIS CODE IS COOL THOUGH. ## BECAUSE IT'S INNEFFICIENT AND STUPID. ## AND IT GOT ME AN A iN CREATIVE WRITING. ## UH BASICALLY ## EVERYTIME A WORD APPEARS AFTER ANOTHER WORD ## IT GOES TO A FILE OF THE SAME NAME AS THE WORD ## AND PUTS THE WORD THAT COMES AFTER IT IN THAT FILE ## ALONG WITH A NUMBER ## THE NUMBER BEING HTE AMOUNT OF TIMES THAT THE WORDS HAVE APPEARED ON ## CONJUNCTION ## THIS METHOD WORKS SURPRISINGLY WELL ## IF I WERE TO REWRITE THIS TODAY ## I WOULD DO IT WITH GIGNATIC HASH TABLES ## UH ## ENJOY open (FUXOR, $ARGV[0]) or die print "A horrible death\n"; while ($line = ){ @line2 = (@line2, split(" ",$line))} open (STARTFILE, ">>words/#STARTUP#"); $hurtmebad=$line2[0]; $hurtmebad=~s/\W//g; print STARTFILE $hurtmebad, "\n"; close(STARTFILE); for ($b=0; $b; close(FUXOFF); $ratiociner=""; open (FUXOFF, ">$testor"); for ($c=0; $c$testor"); $hurtful=$line2[$b+1]; $hurtful=~s/\W//g; print FUXOFF "$hurtful 1\n"; close(FUXOFF);}} } ########## ## [09] ## ########################################################################### ## FILENAME: "Tim's Special World" ## LANGUAGE: C++ ## AUTHOR: Trilobyte ########################################################################### /* trilobyte's -------- TimWorld for BeOS -------- The OS of Now -------- It Opens a Window -------- Try & Figure Out How! [[ originally split up into four files and a resource file (for the icon & version number) .. TimWindow.h, TimWindow.cpp, TimWorld.h, TimWorld.cpp ]] */ // OS-includes #include #include // define the application object class TimApp : public BApplication { public: TimApp(); }; // define the timwindow object class TimWindow : public BWindow { public: TimWindow(BRect frame); // the window's frame (size) // is defined by a BRect object virtual bool QuitRequested(); // we need to make our own // QuitRequested() so we can be // told when we are asked to quit }; // this isn't needed in this program // because i don't need to do anything // with the window's constructor // to setup the window. the window is // very basic and has no added ingredients. // uncommenting the commented portion // would create another view within // the window's view, which would allow // me to put a button or picture or // something there. TimWindow::TimWindow (BRect frame) : BWindow (frame, "TimWorld", B_TITLED_WINDOW, B_NOT_RESIZABLE | B_NOT_ZOOMABLE ) { // TimView *timView; // BRect timRect( Bounds() ); } bool TimWindow::QuitRequested() { be_app->PostMessage(B_QUIT_REQUESTED); // somebody clicked the // close-button! return(true); } // construct the TimApp TimApp::TimApp() : BApplication ("application/x-vnd.Tim-TimWorld") { TimWindow *timWindow; // our window! BRect timRect; // all window or view frames // use a BRect (rectangle) timRect.Set(100, 80, 260, 120); // the BRect has its Set function // to define its size. timWindow = new TimWindow(timRect); // make our window from the TimWindow // object in timRect's size. timWindow->Show(); // show the friggin window! } // the main loop int main(int, char**) { TimApp timApp; timApp.Run(); // tim runs (in a loop). return(0); // tim stops. } ########## ## [10] ## ########################################################################### ## FILENAME: "AREXX-based HOE Issue Commenter V1.00" ## LANGUAGE: AREXX ## AUTHOR: Trilobyte ########################################################################### /* ** HOE.rexx ** ** AREXX-based HOE Issue Commenter V1.00 ** by trilobyte ** ** Creates a filecomment for each hoe issue in a directory ** containing the story's title and author, taken from ** a hoe-index.txt in the same dir. ** ** REXX is a scripting language developed at IBM. It is ** a power-tool on the Amiga and on OS/2 and is very powerful ** at parsing and manipulating strings. AmigaREXX is extensible ** through the Amiga's system of dynamically loaded libraries. ** ** (HOE.REXX Requires rexxdossupport.library) */ IF ARG(1, 'E') then Do PathArg = STRIP(ARG(1)) IF ~EXISTS(PathArg) THEN DO say PathArg || ' does not appear to exist.' Call PrintUsage Exit END END ELSE Do Call PrintUsage Exit End If ~Show('L','rexxdossupport.library') Then Do If ~Addlib('rexxdossupport.library',0,-30,0) Then Do say "Couldn't allocate rexxdossupport.library!" exit end End Indexfile = AddPart(PathArg, 'hoe-index.txt') if ~open(File, Indexfile) then do say 'Cannot open ' || Indexfile exit end say 'HOE.rexx V1.00 -- HOE issue commenter by Trilobyte' do while ~ EOF(File) Line = readln(File) if WORDLENGTH(Line, 1) > 2 then do if (COMPARE('THE', WORD(Line,1)) > 0) then do if (91 < WORD(Line,1)) & (WORD(Line,1) < 1000) then do parse var Line ' ' issue ' -- ' title ' -- ' author fn = 'hoe-' || STRIP(issue) || '.txt' FileName = AddPart(PathArg, fn) Cmnt = title || ' by ' || author if EXISTS(FileName) then do Call SetComment FileName,Cmnt Say 'Issue #' || issue || ': ' || Cmnt end end end end else iterate end close(File) RemLib('rexxdossupport.library') Exit PrintUsage: say 'Usage : rx HOE [path to hoe-files]' say 'Example : rx HOE Sys:Hoe/' exit RETURN ########## ## [12] ## ########################################################################### ## FILENAME: "Hooker's Babble" ## LANGUAGE: Tcl/Eggdrop ## AUTHOR: Gaurdian (Modified by Mogel) ########################################################################### # This is a pretty annoying eggdrop script that we used to run on the # original #dto (doomed to obscurity) bot back in '96. Her name was # Hooker. Hooker would dump a random line from babble.txt every 5 # minutes. Sometimes it was annoying, sometimes it was hilarious--and # something it would quite mysteriously relate completely to the # conversation at hand. set sayfile /home/dto/hooker/scripts/babble.txt set saystuffchannel #dto if {![info exists saystuffactive]} { utimer 450 saystuff set saystuffactive 30 } proc saystuff {} { global sayfile saystuffchannel set fd [open $sayfile r] set found 0 while {![eof $fd]} { set inp [gets $fd] incr found } set numiwant [expr [rand $found] + 1] set found 0 close $fd set fd [open $sayfile r] while {![eof $fd]} { set inp [gets $fd] if {[eof $fd]} {break} incr found if {$found == $numiwant} {break} } close $fd putserv "PRIVMSG $saystuffchannel :$inp" utimer 300 saystuff return 1 } putlog "#babble.tcl v1.0 loaded and active" ########## ## [12] ## ########################################################################### ## FILENAME: "Eggdrop Defintions By Question" ## LANGUAGE: Tcl/Eggdrop ## AUTHOR: Gaurdian (Modified by Mogel) ########################################################################### # This script was written for eggdrop bots to remember and recall # defintions for things based on the "is" association. # If you were to say "mogel is an idiot" it would recall that value, and # later, if it sees "mogel?" within any statement on a channel, it will # respond with "mogel is an idiot". # for some reason the bot needs to initialize with two blank (0k) text # files called "bleh1.txt" and "bleh2.txt". make sure these exist. set lfile1 /home/dto/hooker/scripts/bleh1.txt set lfile2 /home/dto/hooker/scripts/bleh2.txt bind pubm - * learntcl bind msgm - * learntclmsg proc learntclmsg {nick user handle text} { if {[learntcl $nick $user $handle $nick $text] != 2} { # replystuff $nick $user $handle $text } } proc learntcl {nick user handle channel text} { global lfile1 lfile2 quelen set ltext [string trim $text] ### parse the user's text # ignore if statements... unfortunately, ignore words with 'if' in them # if {[string first if [string tolower $ltext]] >= 0} {return 1} # fix up strings like: "dog????" set temp [lsearch [string tolower $ltext] is] if {($temp == -1) && ([llength $ltext] == 1)} { if {[string first ? "$ltext" ] <= 0} {return 1} set ltext "what is $ltext" set temp 1 } if {$temp <= 0} {return 1} # isolate the 'keyword' string that we need to look at set temp [expr $temp - 1] set ltext [lrange $ltext $temp end] ### done with string parsing set lfdin [open $lfile1 r] set lfdout [open $lfile2 w] set temp [string tolower [lindex $ltext 0]] if {($temp == "what") || ($temp == "who")} { set matchword [string toupper [string trimright [lindex [string trimright $ltext ?!@#,.] 2] ?!@#,.]] putlog "<$nick:$channel> ($text) ($ltext) ($matchword)" set returnval 1 while {![eof $lfdin]} { set temp [gets $lfdin] if {([string toupper [lindex $temp 0]] == $matchword) && ([string toupper [lindex $temp 1]] == "IS")} { set typingdelay [expr [expr [string length $temp] / 10] + 5] #utimer $typingdelay "putserv \042PRIVMSG $channel :$temp\042" set queargs "putserv \042PRIVMSG $channel :$temp\042" if {![info exists quelen]} { set quelen 1 } {set quelen [expr $quelen + 1]} dynamicque $typingdelay $queargs putlog "(delayed by $typingdelay secs) -> $channel :($temp)" set returnval 2 } } close $lfdin close $lfdout return $returnval } while {![eof $lfdin]} { set temp [gets $lfdin] if {[string toupper [lindex $temp 0]] == [string toupper [lindex $ltext 0]]} { puts $lfdout "$ltext" set lchange 1 } elseif {$temp != "" } { puts $lfdout "$temp" } } if {![info exists lchange]} { puts $lfdout "$ltext" } putlog "<$nick:$channel> $text ($ltext)" close $lfdin close $lfdout exec cat $lfile2 > $lfile1 return 3 } proc dynamicque {quetime command} { global queinprogress quelen if {[info exist queinprogress]} { utimer 1 "dynamicque $quetime {$command}" return 0 } if {$quelen < 8} { set queinprogress 1 utimer $quetime $command utimer $quetime decque } elseif {$quelen < 9 } {utimer $quetime "putserv \042PRIVMSG [lindex [lindex $command 1] 1] :what are you doing??? stop that.\042" utimer $quetime decque } else { # utimer $quetime decque putlog "Overloaded 'dynamic que'... not replying to $command ... oh well."} } proc decque {} { global quelen queinprogress if {[info exist queinprogress]} {unset queinprogress} putlog "quelen is $quelen" if {$quelen <= 1} {unset quelen} {set quelen [expr $quelen - 1]} } [--------------------------------------------------------------------------] [ (c) !LA HOE REVOLUCION PRESS! HOE #935, WRITTEN BY V/A - 12/05/99 ]