Running instructions for the program are REM'med in at the top. 10 REM *********ROMULAN.PRT************* 11 REM How to run this program: Load the file into your BASIC 12 REM program. It will ask you for a carriage return: this provides a 13 REM value to the random number generator. It will ask you for a number seed. 14 REM Give it a number within the specified range, and hit again. 15 REM A screenful of Romulan will spill out. (In the print version, especially 16 REM if you're using a laser printer, you may have to give it several seeds 17 REM one after another before a page will print.) Continue until you've 18 REM got enough output to make you happy. Control-C should break out of the 19 REM program (though if I remember right, the program will break [down...] 20 REM itself after a while, either because of a divide-by error, or 21 REM because of some other more picturesque error committed by the programmer.) 22 REM 23 REM This program is copyright 1996 by Diane Duane 24 REM 25 REM ** This program begins with the "TrueRand" 26 REM ** "random-number seed" routine. ********* 30 REM 40 REM 50 INPUT "Do a carriage return or something."; SEED% 60 SEED%=SEED%-32767*(INT(SEED%/32767)) 70 SEED%=SEED%+1 80 RANDOMIZE 90 REM 100 REM ********* begin data statements ************** 110 REM 120 REM 130 DATA H',Ae,D',W,U,N',R',O,V,Ll 140 DATA ae,A,i',a," Eh",e,T',I,u',s 150 DATA s,ll,R,m,k,t,h,r,rr,... 160 DATA " ",ae,ea,ei,e,a,iu,o,ie,i 170 DATA " ",v,mn,kh,d,hv,fv," ",r,t 180 DATA eo,"i ",ae,ie,ai," ",au,a,ei,ah 190 DATA -,th,k,lh,d,bh," ",d',dr,ht 200 DATA ao,"a ",aeu,u," ",ae,oa,i," ",s 210 DATA " ",ll,lh,dt',ht,th,kh,l',nn,n 220 DATA i,", ",ea,ia," E",ei,ta',ra-,ei," " 230 DATA " ",'rh,rh,jh,kj,lh,nv,tr,hw,fv 240 DATA " ",'h,ae,oi,iy,u,ei,eh,s'h,i 250 DATA nn,hw,d,nv,"! ",mn,dh,rh,ll',sw 260 DATA e',ia," ",ie,iy,ih,ae,io,ai,ui 270 DATA lmn,l,mn,-,h'n,t,ss,hv,hs,hr 280 DATA ae,y," ",ei,ie,a'e,u,iu,ou,aa 290 DATA hj," ",hf,wh,rrh,bh,j,y," ","; " 300 DATA a,i,ih,i'h,"e ",ea,aa,ae,u,aeih 310 DATA llu,dh,kh,rh," ",", ","; ",wh," ",mn 320 DATA ae,ei," -- ",iu,oa,ei,o,oi,ue," " 330 DATA e,ii,a,ee,eu,i,o,iu,uu," " 340 DATA 'ss,l',k'h,hw,rr,r,rr',mm,t'd,'hh 350 DATA uy,ae,e," i",'i,'u,'u,iae,eu,a 360 DATA qh,vh,fv,nh,d,e,hh,k,a,t 370 DATA ae,hl,iu,-a,ss,-t,"r-",nn," 'nh",ai 380 DATA dl,dl,rh,nnh,rai,th,dh-,yrh,aith,qh 390 DATA iu,iu,hu,ha,la,se,mo,tha,kha,dha 400 DATA m,t,r,q,s,f,v,h,z,y 410 DATA a," i",t,e,e,ae,ai,ia,ia,ou 420 REM 430 REM ********* end data statements ************ 440 REM 450 RESTORE 460 REM 470 REM ******** begin read statements ************** 480 REM 490 READ R20$,R21$,R22$,R23$,R24$,R25$,R26$,R27$,R28$,R29$ 500 READ V10$,V11$,V12$,V13$,V14$,V15$,V16$,V17$,V18$,V19$ 510 READ C10$,C11$,C12$,C13$,C14$,C15$,C16$,C17$,C18$,C19$ 520 READ V20$,V21$,V22$,V23$,V24$,V25$,V26$,V27$,V28$,V29$ 530 READ C20$,C21$,C22$,C23$,C24$,C25$,C26$,C27$,C28$,C29$ 540 READ V30$,V31$,V32$,V33$,V34$,V35$,V36$,V37$,V38$,V39$ 550 READ C30$,C31$,C32$,C33$,C34$,C35$,C36$,C37$,C38$,C39$ 560 READ V40$,V41$,V42$,V43$,V44$,V45$,V46$,V47$,V48$,V49$ 570 READ C40$,C41$,C42$,C43$,C44$,C45$,C46$,C47$,C48$,C49$ 580 READ V50$,V51$,V52$,V53$,V54$,V55$,V56$,V57$,V58$,V59$ 590 READ C50$,C51$,C52$,C53$,C54$,C55$,C56$,C57$,C58$,C59$ 600 READ V60$,V61$,V63$,V63$,V64$,V65$,V66$,V67$,V68$,V69$ 610 READ C60$,C61$,C62$,C63$,C64$,C65$,C66$,C67$,C68$,C69$ 620 READ V70$,V71$,V72$,V73$,V74$,V75$,V76$,V77$,V78$,V79$ 630 READ C70$,C71$,C72$,C73$,C74$,C75$,C76$,C77$,C78$,C79$ 640 READ V80$,V81$,V82$,V83$,V84$,V85$,V86$,V87$,V88$,V89$ 650 READ C80$,C81$,C82$,C83$,C84$,C85$,C86$,C87$,C88$,C89$ 660 READ V90$,V91$,V92$,V93$,V94$,V95$,V96$,V97$,V98$,V99$ 670 READ C90$,C91$,C92$,C93$,C94$,C95$,C96$,C97$,C98$,C99$ 680 READ V100$,V101$,V102$,V103$,V104$,V105$,V106$,V107$,V108$,V109$ 690 READ C100$,C101$,C102$,C103$,C104$,C105$,C106$,C107$,C108$,C109$ 700 READ V110$,V111$,V112$,V113$,V114$,V115$,V116$,V117$,V118$,V119$ 710 READ C110$,C111$,C112$,C113$,C114$,C115$,C116$,C117$,C118$,C119$ 720 READ V120$,V121$,V122$,V123$,V124$,V125$,V126$,V127$,V128$,V129$ 730 READ C120$,C121$,C122$,C123$,C124$,C125$,C126$,C127$,C128$,C129$ 740 READ V130$,V131$,V132$,V133$,V134$,V135$,V136$,V137$,V138$,V139$ 750 READ C130$,C131$,C132$,C133$,C134$,C135$,C136$,C137$,C138$,C139$ 760 READ V140$,V141$,V142$,V143$,V144$,V145$,V146$,V147$,V148$,V149$ 770 READ C140$,C141$,C142$,C143$,C144$,C145$,C146$,C147$,C148$,C149$ 780 SEED2%=SEED%+RND: GOTO 830 790 REM 800 REM ************ end 'read' statements *************** 810 REM 820 REM 830 SEED2%=SEED2%-32767*(INT(SEED2%/32767)) 840 FOR T=1 TO 20 850 IF G=1 THEN GOTO 980 860 ARGH%=INT(RND*10) 870 G=1 880 IF ARGH%=1 THEN PRINT R20$; 890 IF ARGH%=2 THEN PRINT R21$; 900 IF ARGH%=3 THEN PRINT R22$; 910 IF ARGH%=4 THEN PRINT R23$; 920 IF ARGH%=5 THEN PRINT R24$; 930 IF ARGH%=6 THEN PRINT R25$; 940 IF ARGH%=7 THEN PRINT R26$; 950 IF ARGH%=8 THEN PRINT R27$; 960 IF ARGH%=9 THEN PRINT R28$; 970 IF ARGH%=0 THEN PRINT R29$; 980 REM ********** vowel 1 randomization *************** 990 IF INKEY$="" THEN SEED%=SEED%+2: GOTO 1000 1000 REM 1010 ARGH2%=INT(RND*10) 1020 IF ARGH2%=1 THEN PRINT V10$; 1030 IF ARGH2%=2 THEN PRINT V11$; 1040 IF ARGH2%=3 THEN PRINT V12$; 1050 IF ARGH2%=4 THEN PRINT V13$; 1060 IF ARGH2%=5 THEN PRINT V14$; 1070 IF ARGH2%=6 THEN PRINT V15$; 1080 IF ARGH2%=7 THEN PRINT V16$; 1090 IF ARGH2%=8 THEN PRINT V17$; 1100 IF ARGH2%=9 THEN PRINT V18$; 1110 IF ARGH2%=0 THEN PRINT V19$; 1120 REM 1130 REM 1140 REM This is where the conditional track 1/track 2 branch went. 1150 REM 1160 REM 1170 REM ********** consonant 1 randomization ************* 1180 REM 1190 ARGH3%=INT(RND*10) 1200 IF ARGH3%=0 THEN PRINT C10$; 1210 IF ARGH3%=1 THEN PRINT C11$; 1220 IF ARGH3%=2 THEN PRINT C12$; 1230 IF ARGH3%=3 THEN PRINT C13$; 1240 IF ARGH3%=4 THEN PRINT C14$; 1250 IF ARGH3%=5 THEN PRINT C15$; 1260 IF ARGH3%=6 THEN PRINT C16$; 1270 IF ARGH3%=7 THEN PRINT C17$; 1280 IF ARGH3%=8 THEN PRINT C18$; 1290 IF ARGH3%=9 THEN PRINT C19$; 1300 REM 1310 REM **************** vowel 2 randomization **************** 1320 SEED%=SEED%+3 1330 REM 1340 ARGH4%=INT(RND*10) 1350 REM 1360 REM 1370 REM 1380 REM 1390 REM 1400 REM 1410 IF ARGH4%=0 THEN PRINT V20$; 1420 IF ARGH4%=1 THEN PRINT V21$; 1430 IF ARGH4%=2 THEN PRINT V22$; 1440 IF ARGH4%=3 THEN PRINT V23$; 1450 IF ARGH4%=4 THEN PRINT V24$; 1460 IF ARGH4%=5 THEN PRINT V25$; 1470 IF ARGH4%=6 THEN PRINT V26$; 1480 IF ARGH4%=7 THEN PRINT V27$; 1490 IF ARGH4%=8 THEN PRINT V28$; 1500 IF ARGH4%=9 THEN PRINT V29$; 1510 REM 1520 REM 1530 REM *********** word break adjustment ************** 1540 ARGH22%=INT(RND*10) 1550 IF ARGH22%<4 THEN PRINT " "; 1560 REM 1570 REM ******************* consanant 2 randomization ************ 1580 REM 1590 ARGH5%=INT(RND*10) 1600 IF ARGH5%=0 THEN PRINT C20$; 1610 IF ARGH5%=1 THEN PRINT C21$; 1620 IF ARGH5%=2 THEN PRINT C22$; 1630 IF ARGH5%=3 THEN PRINT C23$; 1640 IF ARGH5%=4 THEN PRINT C24$; 1650 IF ARGH5%=5 THEN PRINT C25$; 1660 IF ARGH5%=6 THEN PRINT C26$; 1670 IF ARGH5%=7 THEN PRINT C27$; 1680 IF ARGH5%=8 THEN PRINT C28$; 1690 IF ARGH5%=9 THEN PRINT C29$; 1700 REM 1710 REM ************** vowel 3 randomization *************** 1720 REM 1730 ARGH6%=INT(RND*10) 1740 REM 1750 IF ARGH6%=0 THEN PRINT V30$; 1760 IF ARGH6%=1 THEN PRINT V31$; 1770 IF ARGH6%=2 THEN PRINT V32$; 1780 IF ARGH6%=3 THEN PRINT V33$; 1790 IF ARGH6%=4 THEN PRINT V34$; 1800 IF ARGH6%=5 THEN PRINT V35$; 1810 IF ARGH6%=6 THEN PRINT V36$; 1820 IF ARGH6%=7 THEN PRINT V37$; 1830 IF ARGH6%=8 THEN PRINT V38$; 1840 IF ARGH6%=9 THEN PRINT V39$; 1850 REM 1860 REM ******** consonant 3 randomization ********** 1870 REM 1880 ARGH7%=INT(RND*10) 1890 REM 1900 IF ARGH7%=0 THEN PRINT C30$; 1910 IF ARGH7%=1 THEN PRINT C31$; 1920 IF ARGH7%=2 THEN PRINT C32$; 1930 IF ARGH7%=3 THEN PRINT C33$; 1940 IF ARGH7%=4 THEN PRINT C34$; 1950 IF ARGH7%=5 THEN PRINT C35$; 1960 IF ARGH7%=6 THEN PRINT C36$; 1970 IF ARGH7%=7 THEN PRINT C37$; 1980 IF ARGH7%=8 THEN PRINT C38$; 1990 IF ARGH7%=9 THEN PRINT C39$; 2000 REM 2010 REM **************** vowel 4 randomization ************** 2020 REM 2030 ARGH8%=INT(RND*10) 2040 REM 2050 REM 2060 REM 2070 REM 2080 REM 2090 IF ARGH8%=0 THEN PRINT V40$; 2100 IF ARGH8%=1 THEN PRINT V41$; 2110 IF ARGH8%=2 THEN PRINT V42$; 2120 IF ARGH8%=3 THEN PRINT V43$; 2130 IF ARGH8%=4 THEN PRINT V44$; 2140 IF ARGH8%=5 THEN PRINT V45$; 2150 IF ARGH8%=6 THEN PRINT V46$; 2160 IF ARGH8%=7 THEN PRINT V47$; 2170 IF ARGH8%=8 THEN PRINT V48$; 2180 IF ARGH9%=9 THEN PRINT V49$; 2190 REM 2200 REM ************* consonant 4 randomization ***************** 2210 REM 2220 ARGH9%=INT(RND*10) 2230 REM 2240 IF ARGH9%=0 THEN PRINT C40$; 2250 IF ARGH9%=1 THEN PRINT C41$; 2260 IF ARGH9%=2 THEN PRINT C42$; 2270 IF ARGH9%=3 THEN PRINT C43$; 2280 IF ARGH9%=4 THEN PRINT C44$; 2290 IF ARGH9%=5 THEN PRINT C45$; 2300 IF ARGH9%=6 THEN PRINT C46$; 2310 IF ARGH9%=7 THEN PRINT C47$; 2320 IF ARGH9%=8 THEN PRINT C48$; 2330 IF ARGH9%=9 THEN PRINT C49$; 2340 REM 2350 REM ************* vowel 5 randomization ************ 2360 REM 2370 ARGH10%=INT(RND*10) 2380 REM 2390 IF ARGH10%=0 THEN PRINT V50$; 2400 IF ARGH10%=1 THEN PRINT V51$; 2410 IF ARGH10%=2 THEN PRINT V52$; 2420 IF ARGH10%=3 THEN PRINT V53$; 2430 IF ARGH10%=4 THEN PRINT V54$; 2440 IF ARGH10%=5 THEN PRINT V55$; 2450 IF ARGH10%=6 THEN PRINT V56$; 2460 IF ARGH10%=7 THEN PRINT V56$; 2470 IF ARGH10%=8 THEN PRINT V57$; 2480 IF ARGH10%=9 THEN PRINT V59$; 2490 REM 2500 REM **************** consonant 5 randomization ************* 2510 REM 2520 ARGH11%=INT(RND*10) 2530 REM 2540 IF ARGH11%=0 THEN PRINT C50$; 2550 IF ARGH11%=1 THEN PRINT C51$; 2560 IF ARGH11%=2 THEN PRINT C52$; 2570 IF ARGH11%=3 THEN PRINT C53$; 2580 IF ARGH11%=4 THEN PRINT C54$; 2590 IF ARGH11%=5 THEN PRINT C55$; 2600 IF ARGH11%=6 THEN PRINT C56$; 2610 IF ARGH11%=7 THEN PRINT C57$; 2620 IF ARGH11%=8 THEN PRINT C58$; 2630 IF ARGH11%=9 THEN PRINT C59$; 2640 REM 2650 REM ************ vowel 6 randomization ************ 2660 REM 2670 ARGH12%=INT(RND*10) 2680 REM 2690 REM 2700 REM 2710 REM 2720 REM 2730 IF ARGH12%=0 THEN PRINT V60$; 2740 IF ARGH12%=1 THEN PRINT V61$; 2750 IF ARGH12%=2 THEN PRINT V62$; 2760 IF ARGH12%=3 THEN PRINT V63$; 2770 IF ARGH12%=4 THEN PRINT V64$; 2780 IF ARGH12%=5 THEN PRINT V65$; 2790 IF ARGH12%=6 THEN PRINT V66$; 2800 IF ARGH12%=7 THEN PRINT V67$; 2810 IF ARGH12%=8 THEN PRINT V68$; 2820 IF ARGH12%=9 THEN PRINT V69$; 2830 REM 2840 REM ************ consonant 6 randomization *************** 2850 REM 2860 ARGH13%=INT(RND*10) 2870 REM 2880 IF ARGH13%=0 THEN PRINT C60$; 2890 IF ARGH13%=1 THEN PRINT C61$; 2900 IF ARGH13%=2 THEN PRINT C62$; 2910 IF ARGH13%=3 THEN PRINT C63$; 2920 IF ARGH13%=4 THEN PRINT C64$; 2930 IF ARGH13%=5 THEN PRINT C65$; 2940 IF ARGH13%=6 THEN PRINT C66$; 2950 IF ARGH13%=7 THEN PRINT C67$; 2960 IF ARGH13%=8 THEN PRINT C68$; 2970 IF ARGH13%=9 THEN PRINT C69$; 2980 REM 2990 REM **************** vowel 7 randomization ****************** 3000 REM 3010 ARGH14%=INT(RND*10) 3020 REM 3030 IF ARGH14%=0 THEN PRINT V70$; 3040 IF ARGH14%=1 THEN PRINT V71$; 3050 IF ARGH14%=2 THEN PRINT V72$; 3060 IF ARGH14%=3 THEN PRINT V73$; 3070 IF ARGH14%=4 THEN PRINT V74$; 3080 IF ARGH14%=5 THEN PRINT V75$; 3090 IF ARGH14%=6 THEN PRINT V76$; 3100 IF ARGH14%=7 THEN PRINT V77$; 3110 IF ARGH14%=8 THEN PRINT V78$; 3120 IF ARGH14%=9 THEN PRINT V79$; 3130 REM 3140 REM *************** consonant 7 randomization **************** 3150 REM 3160 ARGH15%=INT(RND*10) 3170 REM 3180 IF ARGH15%=0 THEN PRINT C70$; 3190 IF ARGH15%=1 THEN PRINT C71$; 3200 IF ARGH15%=2 THEN PRINT C72$; 3210 IF ARGH15%=3 THEN PRINT C73$; 3220 IF ARGH15%=4 THEN PRINT C74$; 3230 IF ARGH15%=5 THEN PRINT C75$; 3240 IF ARGH15%=6 THEN PRINT C76$; 3250 IF ARGH15%=7 THEN PRINT C77$; 3260 IF ARGH15%=8 THEN PRINT C78$; 3270 IF ARGH15%=9 THEN PRINT C79$; 3280 REM 3290 REM 3300 REM ************* word break adjustment ******************* 3310 REM 3320 IF ARGH12%>=6 THEN PRINT " "; 3330 REM 3340 REM ************** vowel 9 randomization *************** 3350 REM 3360 ARGH16%=INT(RND*10) 3370 REM 3380 IF ARGH16%=0 THEN PRINT V80$; 3390 IF ARGH16%=1 THEN PRINT V81$; 3400 IF ARGH16%=2 THEN PRINT V82$; 3410 IF ARGH16%=3 THEN PRINT V83$; 3420 IF ARGH16%=4 THEN PRINT V84$; 3430 IF ARGH16%=5 THEN PRINT V85$; 3440 IF ARGH16%=6 THEN PRINT V86$; 3450 IF ARGH16%=7 THEN PRINT V87$; 3460 IF ARGH16%=8 THEN PRINT V88$; 3470 IF ARGH16%=9 THEN PRINT V89$; 3480 REM 3490 REM 3500 REM *********** consonant 8 randomization ************** 3510 ARGH17%=INT(RND*10) 3520 REM 3530 IF ARGH17%=0 THEN PRINT C80$; 3540 IF ARGH17%=1 THEN PRINT C81$; 3550 IF ARGH17%=2 THEN PRINT C82$; 3560 IF ARGH17%=3 THEN PRINT C83$; 3570 IF ARGH17%=4 THEN PRINT C84$; 3580 IF ARGH17%=5 THEN PRINT C85$; 3590 IF ARGH17%=6 THEN PRINT C86$; 3600 IF ARGH17%=7 THEN PRINT C87$; 3610 IF ARGH17%=8 THEN PRINT C88$; 3620 IF ARGH17%=9 THEN PRINT C89$; 3630 REM 3640 REM *************** vow 9 randomization ************** 3650 REM 3660 ARGH18%=INT(RND*10) 3670 REM 3680 IF ARGH18%=0 THEN PRINT V90$; 3690 IF ARGH18%=1 THEN PRINT V91$; 3700 IF ARGH18%=2 THEN PRINT V92$; 3710 IF ARGH18%=3 THEN PRINT V93$; 3720 IF ARGH18%=4 THEN PRINT V94$; 3730 IF ARGH18%=5 THEN PRINT V95$; 3740 IF ARGH18%=6 THEN PRINT V96$; 3750 IF ARGH18%=7 THEN PRINT V97$; 3760 IF ARGH18%=8 THEN PRINT V98$; 3770 IF ARGH18%=9 THEN PRINT V99$; 3780 REM 3790 REM ********** consonant 9 randomization ************* 3800 REM 3810 ARGH19%=INT(RND*10) 3820 REM 3830 IF ARGH19%=0 THEN PRINT C90$; 3840 IF ARGH19%=1 THEN PRINT C91$; 3850 IF ARGH19%=2 THEN PRINT C92$; 3860 IF ARGH19%=3 THEN PRINT C93$; 3870 IF ARGH19%=4 THEN PRINT C94$; 3880 IF ARGH19%=5 THEN PRINT C95$; 3890 IF ARGH19%=6 THEN PRINT C96$; 3900 IF ARGH19%=7 THEN PRINT C97$; 3910 IF ARGH19%=8 THEN PRINT C98$; 3920 IF ARGH19%=9 THEN PRINT C99$; 3930 REM 3940 REM ********* vowel 10 adjustment **************** 3950 REM 3960 ARGH20%=INT(RND*10) 3970 REM 3980 IF ARGH20%=0 THEN PRINT V100$; 3990 IF ARGH20%=1 THEN PRINT V101$; 4000 IF ARGH20%=2 THEN PRINT V102$; 4010 IF ARGH20%=3 THEN PRINT V103$; 4020 IF ARGH20%=4 THEN PRINT V104$; 4030 IF ARGH20%=5 THEN PRINT V105$; 4040 IF ARGH20%=6 THEN PRINT V106$; 4050 IF ARGH20%=7 THEN PRINT V107$; 4060 IF ARGH20%=8 THEN PRINT V108$; 4070 IF ARGH20%=9 THEN PRINT V109$; 4080 REM 4090 ARGH21%=INT(RND*10) 4100 REM 4110 IF ARGH21%=0 THEN PRINT C100$; 4120 IF ARGH21%=1 THEN PRINT C101$; 4130 IF ARGH21%=2 THEN PRINT C102$; 4140 IF ARGH21%=3 THEN PRINT C103$; 4150 IF ARGH21%=4 THEN PRINT C104$; 4160 IF ARGH21%=5 THEN PRINT C105$; 4170 IF ARGH21%=6 THEN PRINT C106$; 4180 IF ARGH21%=7 THEN PRINT C107$; 4190 IF ARGH21%=8 THEN PRINT C108$; 4200 IF ARGH21%=9 THEN PRINT C109$; 4210 REM 4220 REM 4230 REM 4240 REM ********** vowel 11 randomization ************ 4250 REM 4260 ARGH22%=INT(RND*10) 4270 REM 4280 IF ARGH22%=0 THEN PRINT V110$; 4290 IF ARGH22%=1 THEN PRINT V111$; 4300 IF ARGH22%=2 THEN PRINT V112$; 4310 IF ARGH23%=3 THEN PRINT V113$; 4320 IF ARGH23%=4 THEN PRINT V114$; 4330 IF ARGH23%=5 THEN PRINT V115$; 4340 IF ARGH23%=5 THEN PRINT V116$; 4350 IF ARGH23%=7 THEN PRINT V117$; 4360 IF ARGH23%=8 THEN PRINT V118$; 4370 IF ARGH23%=9 THEN PRINT V119$; 4380 REM 4390 REM ************ consonant 11 randomization **************** 4400 REM 4410 ARGH23%=INT(RND*10) 4420 REM 4430 IF ARGH23%=0 THEN PRINT C110$; 4440 IF ARGH23%=1 THEN PRINT C111$; 4450 IF ARGH23%=2 THEN PRINT C112$; 4460 IF ARGH23%=3 THEN PRINT C113$; 4470 IF ARGH23%=4 THEN PRINT C114$; 4480 IF ARGH23%=5 THEN PRINT C115$; 4490 IF ARGH23%=6 THEN PRINT C116$; 4500 IF ARGH23%=7 THEN PRINT C117$; 4510 IF ARGH23%=8 THEN PRINT C118$; 4520 IF ARGH23%=9 THEN PRINT C119$; 4530 REM 4540 REM **************vowel 12 randomization ************* 4550 REM 4560 ARGH24%=INT(RND*10) 4570 REM 4580 IF ARGH24%=0 THEN PRINT V120$; 4590 IF ARGH24%=1 THEN PRINT V121$; 4600 IF ARGH24%=2 THEN PRINT V122$; 4610 IF ARGH24%=3 THEN PRINT V123$; 4620 IF ARGH24%=4 THEN PRINT V124$; 4630 IF ARGH24%=5 THEN PRINT V125$; 4640 IF ARGH24%=6 THEN PRINT V126$; 4650 IF ARGH24%=7 THEN PRINT V127$; 4660 IF ARGH24%=8 THEN PRINT V128%; 4670 IF ARGH24%=9 THEN PRINT V129$; 4680 REM 4690 REM ************** consonant 12 randomization *************** 4700 REM 4710 ARGH25%=INT(RND*10) 4720 REM 4730 IF ARGH25%=0 THEN PRINT C120$; 4740 IF ARGH25%=1 THEN PRINT C121$; 4750 IF ARGH25%=2 THEN PRINT C122$; 4760 IF ARGH25%=3 THEN PRINT C123$; 4770 IF ARGH25%=4 THEN PRINT C124$; 4780 IF ARGH25%=5 THEN PRINT C125$; 4790 IF ARGH25%=6 THEN PRINT C126$; 4800 IF ARGH25%=7 THEN PRINT C127$; 4810 IF ARGH25%=8 THEN PRINT C128$; 4820 IF ARGH25%=9 THEN PRINT C129$; 4830 REM 4840 REM ********* MORE ADJUSTMENT ************************* 4850 REM 4860 ARGH26%=INT(RND*10) 4870 REM 4880 IF ARGH26%=0 THEN PRINT V130$; 4890 IF ARGH26%=1 THEN PRINT V131$; 4900 IF ARGH26%=2 THEN PRINT V132$; 4910 IF ARGH26%=3 THEN PRINT V133$; 4920 IF ARGH26%=4 THEN PRINT V134$; 4930 IF ARGH26%=5 THEN PRINT V135$; 4940 IF ARGH26%=6 THEN PRINT V136$; 4950 IF ARGH26%=7 THEN PRINT V137$; 4960 IF ARGH26%=8 THEN PRINT V138$; 4970 IF ARGH26%=9 THEN PRINT V139$; 4980 REM **************** terminal adjustment ***************** 4990 REM 5000 IF ARGH5%<=4 THEN PRINT " "; ELSE GOTO 5010 5010 IF ARGH5%=5 THEN PRINT "? "; ELSE GOTO 5020 5020 IF ARGH5%=6 THEN PRINT "...." ELSE GOTO 5030 5030 IF ARGH5%=7 THEN PRINT ", "; ELSE GOTO 5040 5040 IF ARGH5%>=8 THEN PRINT " "; 5050 REM 5060 REM 5070 PRINT " " 5080 NEXT T 5090 PRINT " " 5100 GOTO 80