10 REM English noun entries start on line 1000
20 REM
30 REM THE FOLLOWING ENGLISH NOUNS ARE IN FILE:
40 REM man, woman, animal, apple, arrow, car,
50 REM baby, badger, bald eagle, ball, bear,
60 REM beaver, bed, bee, beetle, belt, berries,
70 REM bird, boat, book, boy, bread, cat, chair,
80 REM deer, desk, dog, duck, eagle, frog, girl,
90 REM hawk, horse, house, meat, medicine, milk,
100 REM moon, pencil, paper, pig, pipe, priest,
110 REM preacher, rabbit, river, road, salt, pepper,
120 REM shirt, shoes, skunk, snake, snow, soup,
130 REM spider, whiteman, sun, table, tent, tepee,
140 REM coffee, tea, tree, turtle, water, policeman,
150 REM teacher, doctor, church, store, winter,
160 REM chokecherries, men, women, child, child,
170 REM antelope, coal, Cheyenne, Cheyennes,
171 REM summer, song, fall, flute, star, 
172 REM nighthawk, old man, old woman, fire,
173 REM dirt, key, door, rug, shed, spoon,
174 REM Crow, Crows, Sioux, cloud, spring, hat,
175 REM cap, grass, songs, knife, fish, fire,
176 REM shoe, frybread, corn, cloud, nose, eye,
177 REM tooth, teeth, ear, head, pemmican, animals,
178 REM mouse, mice, squirrel, chipmunk, cow, cowboy,
179 REM Indian, sheep, goat, goats
250 REM
255 REM NOUN ENTRIES BEGIN AT 1000
256 REM
259 REM NOUN ENTRIES BEGIN AT 1000
260 REM SYNONYMS: priest/preacher, berries/chokecherries,
270 REM book/paper, spider/whiteman, spoon/beetle
280 PRINT
330 PRINT
340 PRINT
350 PRINT
360 PRINT
370 PRINT
380 PRINT
390 PRINT
400 PRINT 
410 PRINT "**** CHEYENNE TRANSLATION PROGRAM ****"
440 PRINT
450 PRINT "----------------------------------------"
460 PRINT
470 PRINT "THIS COMPUTER KNOWS SOME CHEYENNE WORDS."
480 PRINT "IF YOU GIVE IT AN ENGLISH WORD, IT MAY"
490 PRINT "BE ABLE TO TRANSLATE IT INTO CHEYENNE."
500 PRINT
510 PRINT "----------------------------------------"
520 PRINT
620 PRINT
630 PRINT "*****************************************"
640 PRINT "THINK OF AN ENGLISH NOUN (A WORD SUCH AS"
650 PRINT "boy, dog, boat, etc.).  TYPE YOUR WORD"
660 PRINT "WITH lower case (small) letters (BUT BE
670 PRINT "SURE TO BEGIN A WORD WITH A CAPITAL"
680 PRINT "LETTER IF IT NORMALLY STARTS WITH A"
690 PRINT "CAPITAL LETTER)--THEN PRESS RETURN."
700 PRINT "*****************************************"
710 PRINT
750 PRINT
760 PRINT "WHAT IS YOUR WORD?"
770 PRINT 
780 INPUT W$
790 PRINT
800 PRINT
990 REM REMARK LISTING ENDS APPROX. 170
1000 IF W$="man" THEN 2500
1010 IF W$="men" THEN 2510
1020 IF W$="bed" THEN 2520
1030 IF W$="telephone" THEN 2530
1040 IF W$="elephant" THEN 2540
1050 IF W$="wind" THEN 2550
1060 IF W$="window" THEN 2560
1070 IF W$="Blackfoot" THEN 2570
1080 IF W$="Blackfeet" THEN 2570
1090 IF W$="Cree" THEN 2580
1100 IF W$="Arapaho" THEN 2590
1110 IF W$="young man" THEN 2600
1120 IF W$="young woman" THEN 2610
1130 IF W$="cow" THEN 2620
1140 IF W$="cowboy" THEN 2630
1150 IF W$="Indian" THEN 2640
1160 IF W$="sheep" THEN 2650
1170 IF W$="goat" THEN 2650
1180 IF W$="goats" THEN 2660
1190 IF W$="pemmican" THEN 2670
1200 IF W$="animals" THEN 2680
1210 IF W$="mouse" THEN 2690
1220 IF W$="mice" THEN 2700
1230 IF W$="squirrel" THEN 2710
1240 IF W$="chipmunk" THEN 2720
1250 IF W$="old woman" THEN 2730
1260 IF W$="hat" THEN 2740
1270 IF W$="cap" THEN 2740
1280 IF W$="grass" THEN 2750
1290 IF W$="songs" THEN 2760
1300 IF W$="knife" THEN 2770
1310 IF W$="fish" THEN 2780
1320 IF W$="fire" THEN 2790
1330 IF W$="shoe" THEN 2800
1340 IF W$="frybread" THEN 2810
1350 IF W$="corn" THEN 2820
1360 IF W$="dirt" THEN 2830
1370 IF W$="key" THEN 2840
1380 IF W$="door" THEN 2850
1390 IF W$="rug" THEN 2860
1400 IF W$="shed" THEN 2870
1410 IF W$="spoon" THEN 2880
1420 IF W$="flute" THEN 2890
1430 IF W$="star" THEN 2900
1440 IF W$="nighthawk" THEN 2910
1450 IF W$="old man" THEN 2920
1460 IF W$="cloud" THEN 2930
1470 IF W$="nose" THEN 2940
1480 IF W$="eye" THEN 2950
1490 IF W$="tooth" THEN 2960
1500 IF W$="teeth" THEN 2970
1510 IF W$="ear" THEN 2980
1520 IF W$="head" THEN 2990
1530 IF W$="spring" THEN 3000
1540 IF W$="summer" THEN 3010
1550 IF W$="fall" THEN 3020
1560 IF W$="winter" THEN 3030
1570 IF W$="song" THEN 3040
1580 IF W$="woman" THEN 3050
1590 IF W$="women" THEN 3060
1600 IF W$="child" THEN 3070
1610 IF W$="antelope" THEN 3080
1620 IF W$="coal" THEN 3090
1630 IF W$="Cheyenne" THEN 3100
1640 IF W$="Crow" THEN 3110
1650 IF W$="animal" THEN 3120
1660 IF W$="Cheyennes" THEN 3130
1670 IF W$="Crows" THEN 3140
1680 IF W$="Sioux" THEN 3150
1690 IF W$="apple" THEN 3160
1700 IF W$="arrow" THEN 3170
1710 IF W$="car" THEN 3180
1720 IF W$="baby" THEN 3190
1730 IF W$="badger" THEN 3200
1740 IF W$="bald eagle" THEN 3210
1750 IF W$="ball" THEN 3220
1760 IF W$="bear" THEN 3230
1770 IF W$="beaver" THEN 3240
1780 IF W$="chokecherries" THEN 3290
1790 IF W$="bee" THEN 3260
1800 IF W$="beetle" THEN 3270
1810 IF W$="belt" THEN 3280
1820 IF W$="berries" THEN 3290   
1830 IF W$="bird" THEN 3300
1840 IF W$="boat" THEN 3310
1850 IF W$="book" THEN 3320
1860 IF W$="boy" THEN 3330
1870 IF W$="bread" THEN 3340
1880 IF W$="cat" THEN 3350
1890 IF W$="chair" THEN 3360
1900 IF W$="deer" THEN 3370
1910 IF W$="desk" THEN 3380
1920 IF W$="dog" THEN 3390
1930 IF W$="duck" THEN 3400
1940 IF W$="eagle" THEN 3410
1950 IF W$="frog" THEN 3420
1960 IF W$="girl" THEN 3430
1970 IF W$="hawk" THEN 3440
1980 IF W$="horse" THEN 3450
1990 IF W$="meat" THEN 3460
2000 IF W$="house" THEN 3470
2010 IF W$="medicine" THEN 3480
2020 IF W$="milk" THEN 3490
2030 IF W$="moon" THEN 3500
2040 IF W$="pencil" THEN 3510
2050 IF W$="paper" THEN 3320
2060 IF W$="pig" THEN 3520
2070 IF W$="pipe" THEN 3530
2080 IF W$="priest" THEN 3540
2090 IF W$="preacher" THEN 3540
2100 IF W$="rabbit" THEN 3550
2110 IF W$="river" THEN 3560
2120 IF W$="road" THEN 3570
2130 IF W$="salt" THEN 3580
2140 IF W$="pepper" THEN 3590
2150 IF W$="shirt" THEN 3600
2160 IF W$="shoes" THEN 3610
2170 IF W$="skunk" THEN 3620
2180 IF W$="snake" THEN 3630
2190 IF W$="snow" THEN 3640
2200 IF W$="soup" THEN 3650
2210 IF W$="spider" THEN 3660
2220 IF W$="whiteman" THEN 3660
2230 IF W$="sun" THEN 3670
2240 IF W$="table" THEN 3680
2250 IF W$="tent" THEN 3690
2260 IF W$="tepee" THEN 3700
2270 IF W$="coffee" THEN 3710
2280 IF W$="tea" THEN 3720
2290 IF W$="tree" THEN 3730
2300 IF W$="turtle" THEN 3740
2310 IF W$="water" THEN 3750
2320 IF W$="policeman" THEN 3760
2330 IF W$="teacher" THEN 3770
2340 IF W$="doctor" THEN 3780
2350 IF W$="church" THEN 3790
2360 IF W$="store" THEN 3800
2370 PRINT
2380 PRINT
2390 PRINT
2400 PRINT
2410 PRINT
2420 PRINT
2430 PRINT
2440 PRINT "++++++++++++++++++++++++++++++++++"
2450 PRINT "I'M SORRY, I HAVEN'T LEARNED THAT"
2460 PRINT "CHEYENNE WORD YET.  BE PATIENT."
2470 PRINT "++++++++++++++++++++++++++++++++++" 
2480 PRINT
2490 GOTO 4040
2500 C$="hetane":GOTO 3810
2510 C$="hetaneo'o":GOTO 3810
2520 C$="$ee$esto.tse":GOTO 3810
2530 C$="aseeestsesto.tse":GOTO 3810
2540 C$="tse'e.seesehe":GOTO 3810
2550 C$="haa'hae$e":GOTO 3810
2560 C$="vo'na.hanesto.tse":GOTO 3810
2570 C$="Mo'o.htave.hahtatane":GOTO 3810
2580 C$="Vohkoohetane":GOTO 3810
2590 C$="Hetanevo'e":GOTO 3810
2600 C$="ka.sovaahe":GOTO 3810
2610 C$="ka.se'eehe":GOTO 3810
2620 C$="ve'ho'eotoa'a":GOTO 3810
2630 C$="to.he'ke.sae-ve'ho'e":GOTO 3810
2640 C$="xamaa-vo'e.stane":GOTO 3810
2650 C$="kosa":GOTO 3810
2660 C$="ko.sane":GOTO 3810
2670 C$="ame":GOTO 3810
2680 C$="hovahne":GOTO 3810
2690 C$="hohkeeheso":GOTO 3810
2700 C$="hohkeehesono":GOTO 3810
2710 C$="no'kee'e":GOTO 3810
2720 C$="ne$ke'esta":GOTO 3810
2730 C$="ma.htama.haahe":GOTO 3810
2740 C$="hohke.ha'e":GOTO 3810
2750 C$="mo'e'e.stse":GOTO 3810
2760 C$="nemeoto.tse":GOTO 3810
2770 C$="mot$e.$ke":GOTO 3810
2780 C$="noma'ne":GOTO 3810
2790 C$="ho'esta":GOTO 3810
2800 C$="mo'keha":GOTO 3810
2810 C$="vet$e.$keva.honoo'o":GOTO 3810
2820 C$="ma.haemeno.tse":GOTO 3810
2830 C$="he$e'ke":GOTO 3810
2840 C$="ta'ta'o.heo'o":GOTO 3810
2850 C$="he'netoo'o":GOTO 3810
2860 C$="seohaseo'o":GOTO 3810
2870 C$="ma.he$ko":GOTO 3810
2880 C$="hame$ko":GOTO 3810
2890 C$="ta.hpeno":GOTO 3810
2900 C$="hotohke":GOTO 3810
2910 C$="pe'e":GOTO 3810
2920 C$="ma'hahkeso":GOTO 3810
2930 C$="vo'e":GOTO 3810
2940 C$="ma'evo":GOTO 3810
2950 C$="ma'exa":GOTO 3810
2960 C$="vee'e.se":GOTO 3810
2970 C$="veeso.tse":GOTO 3810
2980 C$="ma.htovoo'o.tse":GOTO 3810
2990 C$="me'ko":GOTO 3810
3000 C$="matse'omeva":GOTO 3810
3010 C$="meaneva":GOTO 3810
3020 C$="tonoeva":GOTO 3810
3030 C$="aeneva":GOTO 3810
3040 C$="nemeo'o.tse":GOTO 3810
3050 C$="he'e":GOTO 3810
3060 C$="he'eo'o":GOTO 3810
3070 C$="ka'e.$kone":GOTO 3810
3080 C$="vo'kaa'e":GOTO 3810
3090 C$="ho'ose":GOTO 3810
3100 C$="Tsetse.hestaestse":GOTO 3810
3110 C$="Ooetane":GOTO 3810
3120 C$="hova":GOTO 3810
3130 C$="Tsetse.hesta.hese":GOTO 3810
3140 C$="Ooetaneo'o":GOTO 3810
3150 C$="Ho'ohomo'e":GOTO 3810
3160 C$="ma'xeme":GOTO 3810
3170 C$="maahe":GOTO 3810
3180 C$="ama.ho'hesto.tse":GOTO 3810
3190 C$="me'e.$evo.tse":GOTO 3810
3200 C$="ma'hahko'e":GOTO 3810
3210 C$="voaxaa'e": GOTO 3810
3220 C$="hohtseme":GOTO 3810
3230 C$="nahkohe":GOTO 3810
3240 C$="homa'e":GOTO 3810
3250 C$="$ee$esto.tse":GOTO 3810
3260 C$="hahnoma":GOTO 3810
3270 C$="hame$ko":GOTO 3810
3280 C$="hoestato":GOTO 3810
3290 C$="meno.tse":GOTO 3810
3300 C$="ve'keso":GOTO 3810
3310 C$="semo":GOTO 3810
3320 C$="mo.xe'e.stoo'o":GOTO 3810
3330 C$="hetane-ka'e.$kone":GOTO 3810
3340 C$="kohkno.heo'o":GOTO 3810
3350 C$="poeso":GOTO 3810
3360 C$="taxe'seesto.tse":GOTO 3810
3370 C$="vaotseva":GOTO 3810
3380 C$="tahoxe'e.stonesto.tse":GOTO 3810
3390 C$="oe$keso":GOTO 3810
3400 C$="$e'$e":GOTO 3810
3410 C$="netse":GOTO 3810
3420 C$="oona.ha'e":GOTO 3810
3430 C$="he'e-ka'e.$kone":GOTO 3810
3440 C$="aenohe":GOTO 3810
3450 C$="mo'ehno'ha":GOTO 3810
3460 C$="ho'evohko.tse":GOTO 3810
3470 C$="ma.heo'o":GOTO 3810
3480 C$="heseeo'o.tse":GOTO 3810
3490 C$="matana":GOTO 3810
3500 C$="taa'e-e$e'he":GOTO 3810
3510 C$="mo.xe'e.stonesto.tse":GOTO 3810
3520 C$="e$ko.seese-hotame":GOTO 3810
3530 C$="he'ohko":GOTO 3810
3540 C$="ma'heone-ve'ho'e":GOTO 3810
3550 C$="vohkoohe":GOTO 3810
3560 C$="o'he'e":GOTO 3810
3570 C$="meo'o":GOTO 3810
3580 C$="vohpoma'o.htse":GOTO 3810
3590 C$="mehmemeno.tse":GOTO 3810
3600 C$="estse'he":GOTO 3810
3610 C$="mo'ke.hano.tse":GOTO 3810
3620 C$="xao'o":GOTO 3810
3630 C$="$e'$enovo.tse":GOTO 3810
3640 C$="hesta'se":GOTO 3810
3650 C$="hohpe":GOTO 3810
3660 C$="ve'ho'e":GOTO 3810
3670 C$="e$e'he":GOTO 3810
3680 C$="taxemese.hesto.tse":GOTO 3810
3690 C$="ve'ho'eome":GOTO 3810
3700 C$="xamaa-vee'e":GOTO 3810
3710 C$="mo'o.htave.-hohpe":GOTO 3810
3720 C$="vehpotse-hohpe":GOTO 3810
3730 C$="hoohtse.stse":GOTO 3810
3740 C$="ma'eno":GOTO 3810
3750 C$="mahpe":GOTO 3810
3760 C$="matanae-ve'ho'e":GOTO 3810
3770 C$="vovestomosanehe":GOTO 3810
3780 C$="naa'e-ve'ho'e":GOTO 3810
3790 C$="ma'heone-eestse-ma.heo'o":GOTO 3810
3800 C$="hohtova-ma.heo'o":GOTO 3810
3810 PRINT
3820 PRINT
3830 PRINT
3840 PRINT
3850 PRINT
3860 PRINT
3870 PRINT
3880 PRINT
3890 PRINT
3900 PRINT
3910 PRINT
3920 PRINT
3930 PRINT
3940 PRINT
3950 PRINT
3960 PRINT
3970 PRINT
3980 PRINT
3990 PRINT
4000 PRINT
4010 PRINT 
4020 PRINT
4030 PRINT "ENGLISH ";W$;" IS CHEYENNE ";C$;"."
4040 PRINT
4050 PRINT
4060 PRINT
4070 PRINT 
4080 PRINT
4090 PRINT
4100 PRINT
4110 PRINT
4120 PRINT "WOULD YOU LIKE TO TRY AGAIN?"
4130 PRINT
4140 PRINT "TYPE y OR n THEN PRESS RETURN."
4150 PRINT: INPUT MORE$
4160 PRINT
4170 IF MORE$="y" GOTO 520
4180 PRINT
4190 PRINT
4200 PRINT
4210 PRINT
4220 PRINT
4230 PRINT
4240 PRINT
4250 PRINT
4260 PRINT
4270 PRINT
4280 PRINT
4290 PRINT
4300 PRINT
4310 PRINT
4320 PRINT
4330 PRINT
4340 PRINT
4350 PRINT 
4360 PRINT
4370 PRINT
4380 PRINT "#################################"
4390 PRINT "THIS IS THE END.  COME BACK AGAIN"
4400 PRINT "SOMETIME.  MAYBE I'LL LEARN SOME"
4410 PRINT "MORE WORDS BY NEXT TIME!"
4420 PRINT "#################################"
4430 PRINT
4440 PRINT
