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 GOTO 2500
1010 IF W$="men" THEN GOTO 2510
1020 IF W$="bed" THEN GOTO 2520
1030 IF W$="telephone" THEN GOTO 2530
1040 IF W$="elephant" THEN GOTO 2540
1050 IF W$="wind" THEN GOTO 2550
1060 IF W$="window" THEN GOTO 2560
1070 IF W$="Blackfoot" THEN GOTO 2570
1080 IF W$="Blackfeet" THEN GOTO 2570
1090 IF W$="Cree" THEN GOTO 2580
1100 IF W$="Arapaho" THEN GOTO 2590
1110 IF W$="young man" THEN GOTO 2600
1120 IF W$="young woman" THEN GOTO 2610
1130 IF W$="cow" THEN GOTO 2620
1140 IF W$="cowboy" THEN GOTO 2630
1150 IF W$="Indian" THEN GOTO 2640
1160 IF W$="sheep" THEN GOTO 2650
1170 IF W$="goat" THEN GOTO 2650
1180 IF W$="goats" THEN GOTO 2660
1190 IF W$="pemmican" THEN GOTO 2670
1200 IF W$="animals" THEN GOTO 2680
1210 IF W$="mouse" THEN GOTO 2690
1220 IF W$="mice" THEN GOTO 2700
1230 IF W$="squirrel" THEN GOTO 2710
1240 IF W$="chipmunk" THEN GOTO 2720
1250 IF W$="old woman" THEN GOTO 2730
1260 IF W$="hat" THEN GOTO 2740
1270 IF W$="cap" THEN GOTO 2740
1280 IF W$="grass" THEN GOTO 2750
1290 IF W$="songs" THEN GOTO 2760
1300 IF W$="knife" THEN GOTO 2770
1310 IF W$="fish" THEN GOTO 2780
1320 IF W$="fire" THEN GOTO 2790
1330 IF W$="shoe" THEN GOTO 2800
1340 IF W$="frybread" THEN GOTO 2810
1350 IF W$="corn" THEN GOTO 2820
1360 IF W$="dirt" THEN GOTO 2830
1370 IF W$="key" THEN GOTO 2840
1380 IF W$="door" THEN GOTO 2850
1390 IF W$="rug" THEN GOTO 2860
1400 IF W$="shed" THEN GOTO 2870
1410 IF W$="spoon" THEN GOTO 2880
1420 IF W$="flute" THEN GOTO 2890
1430 IF W$="star" THEN GOTO 2900
1440 IF W$="nighthawk" THEN GOTO 2910
1450 IF W$="old man" THEN GOTO 2920
1460 IF W$="cloud" THEN GOTO 2930
1470 IF W$="nose" THEN GOTO 2940
1480 IF W$="eye" THEN GOTO 2950
1490 IF W$="tooth" THEN GOTO 2960
1500 IF W$="teeth" THEN GOTO 2970
1510 IF W$="ear" THEN GOTO 2980
1520 IF W$="head" THEN GOTO 2990
1530 IF W$="spring" THEN GOTO 3000
1540 IF W$="summer" THEN GOTO 3010
1550 IF W$="fall" THEN GOTO 3020
1560 IF W$="winter" THEN GOTO 3030
1570 IF W$="song" THEN GOTO 3040
1580 IF W$="woman" THEN GOTO 3050
1590 IF W$="women" THEN GOTO 3060
1600 IF W$="child" THEN GOTO 3070
1610 IF W$="antelope" THEN GOTO 3080
1620 IF W$="coal" THEN GOTO 3090
1630 IF W$="Cheyenne" THEN GOTO 3100
1640 IF W$="Crow" THEN GOTO 3110
1650 IF W$="animal" THEN GOTO 3120
1660 IF W$="Cheyennes" THEN GOTO 3130
1670 IF W$="Crows" THEN GOTO 3140
1680 IF W$="Sioux" THEN GOTO 3150
1690 IF W$="apple" THEN GOTO 3160
1700 IF W$="arrow" THEN GOTO 3170
1710 IF W$="car" THEN GOTO 3180
1720 IF W$="baby" THEN GOTO 3190
1730 IF W$="badger" THEN GOTO 3200
1740 IF W$="bald eagle" THEN GOTO 3210
1750 IF W$="ball" THEN GOTO 3220
1760 IF W$="bear" THEN GOTO 3230
1770 IF W$="beaver" THEN GOTO 3240
1780 IF W$="chokecherries" THEN GOTO 3290
1790 IF W$="bee" THEN GOTO 3260
1800 IF W$="beetle" THEN GOTO 3270
1810 IF W$="belt" THEN GOTO 3280
1820 IF W$="berries" THEN GOTO 3290   
1830 IF W$="bird" THEN GOTO 3300
1840 IF W$="boat" THEN GOTO 3310
1850 IF W$="book" THEN GOTO 3320
1860 IF W$="boy" THEN GOTO 3330
1870 IF W$="bread" THEN GOTO 3340
1880 IF W$="cat" THEN GOTO 3350
1890 IF W$="chair" THEN GOTO 3360
1900 IF W$="deer" THEN GOTO 3370
1910 IF W$="desk" THEN GOTO 3380
1920 IF W$="dog" THEN GOTO 3390
1930 IF W$="duck" THEN GOTO 3400
1940 IF W$="eagle" THEN GOTO 3410
1950 IF W$="frog" THEN GOTO 3420
1960 IF W$="girl" THEN GOTO 3430
1970 IF W$="hawk" THEN GOTO 3440
1980 IF W$="horse" THEN GOTO 3450
1990 IF W$="meat" THEN GOTO 3460
2000 IF W$="house" THEN GOTO 3470
2010 IF W$="medicine" THEN GOTO 3480
2020 IF W$="milk" THEN GOTO 3490
2030 IF W$="moon" THEN GOTO 3500
2040 IF W$="pencil" THEN GOTO 3510
2050 IF W$="paper" THEN GOTO 3320
2060 IF W$="pig" THEN GOTO 3520
2070 IF W$="pipe" THEN GOTO 3530
2080 IF W$="priest" THEN GOTO 3540
2090 IF W$="preacher" THEN GOTO 3540
2100 IF W$="rabbit" THEN GOTO 3550
2110 IF W$="river" THEN GOTO 3560
2120 IF W$="road" THEN GOTO 3570
2130 IF W$="salt" THEN GOTO 3580
2140 IF W$="pepper" THEN GOTO 3590
2150 IF W$="shirt" THEN GOTO 3600
2160 IF W$="shoes" THEN GOTO 3610
2170 IF W$="skunk" THEN GOTO 3620
2180 IF W$="snake" THEN GOTO 3630
2190 IF W$="snow" THEN GOTO 3640
2200 IF W$="soup" THEN GOTO 3650
2210 IF W$="spider" THEN GOTO 3660
2220 IF W$="whiteman" THEN GOTO 3660
2230 IF W$="sun" THEN GOTO 3670
2240 IF W$="table" THEN GOTO 3680
2250 IF W$="tent" THEN GOTO 3690
2260 IF W$="tepee" THEN GOTO 3700
2270 IF W$="coffee" THEN GOTO 3710
2280 IF W$="tea" THEN GOTO 3720
2290 IF W$="tree" THEN GOTO 3730
2300 IF W$="turtle" THEN GOTO 3740
2310 IF W$="water" THEN GOTO 3750
2320 IF W$="policeman" THEN GOTO 3760
2330 IF W$="teacher" THEN GOTO 3770
2340 IF W$="doctor" THEN GOTO 3780
2350 IF W$="church" THEN GOTO 3790
2360 IF W$="store" THEN GOTO 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
LL LEARN SOME"
4410 PRINT "MORE WORDS BY NEXT TIME!"
4420 P