Another program from The Dragon magazine, issue #63. Cut and pasted from a pdf file. Unfortunately I then put it through a program to eliminate the spaces, making the code hard to read, but it should run the same. My own updated version is on my member's page at club 100. Oh and, I found Joe Ulowetz on Linkedin.
29REMAGENTKNOWLEDGEDATA 30DATA"AGRICULTURE","ANIMAL SCIENCE","ARCHITECTURE","ART & CRAFT","ASTRONOMY/SPACE SCIENCE","BIOLOGY/BIOCHEMISTRY","BOTANY","CHEMISTRY","COMPUTER SCIENCE","ECOLOGY/EARTH SCIENCE","ECONOMICS/FINANCE","EDUCATION/INDOCTRINATION","ENG, AERONAUTICAL" 31DATA"ENG, CONSTRUCTION/CIVIL","ENG, ELECTRICAL","ENG, HYDRAULIC","ENG, INDUSTRIAL","ENG, MECHANICAL","ENG, TRANSPORTATION" 32DATA"FINE ARTS","GEOGRAPHY","GEOLOGY","HOME ECONOMICS","LAW","LITERATURE","MATHEMATICS/ACCOUNTING","MEDICINE/PHYSIOLOGY","METALLURGY","MILITARY SCIENCE/WEAPONRY" 33DATA"PHOTOGRAPHY","PHYSICAL EDUCATION","PHYSICS","POLITICAL SCIENCE/IDEOLOGY","PSYCHOLOGY","RELIGION","SOCIAL SCIENCES","WORLD HISTORY/CURRENT AFFAIRS","","CHOICE" 34DIMAK$(39):FORI=1TO39:READAK$(I):NEXTI 39REMHEIGHTANDWEIGHTPARAMETERS 40DIMHM(10),H$(10),HT(10):DATA0,-1,-1,0,0,1,1,2,2,0,-8,-7,-6,-5,-4,-4,-3,-3,-2,-2,3,3,3,4,4,4,5,5,6,7 45FORI=1TO10:READHM(I):NEXTI:FORI=1TO10:READH$(I):NEXTI:FORI=1TO10:READHT(I):NEXTI 46DIMLF(5),AO(10),AR(10) 47DATA0,-10,-5,-5,0,0,5,10,15,0,-35,-30,-25,-20,-15,-15,-10,-10,-10,-10,15,20,25,30,40,50,75,100,125,150:DIMWM(10),WL(10),WH(10):FORI=1TO10:READWM(I):NEXTI:FORI=1TO10:READWL(I):NEXTI:FORI=1TO10:READWH(I):NEXTI 50PRINT"ADMINISTRATOR":PRINT" FILE 080" 60PRINT:PRINT:PRINT" TOP SECRET" 70PRINT:PRINT:PRINT" OPERATION:DOSSIER":PRINT" CODE NAME:PAPERWEIGHT" 80PRINT:PRINT" DO NOT ACCEPT TAPE FROM COURIER":PRINT" IF SEAL IS BROKEN" 83PRINT:PRINT" (TOUCH ANY KEY)"; 90IFLEN(INKEY$)=0THEN90 95M$="BEGIN: AGENT GENERATION":GOSUB100:GOTO110 100PRINT"** TOP SECRET **":PRINT:PRINTM$ 105PRINT:PRINT:RETURN 110CT=0:INPUT" 0=NPC AGENT, 1=PLAYER AGENT";CT 112IFCT=0THENPRINT" AGENT IS NPC"ELSEPRINT" AGENT IS PLAYER CHARACTER" 120PRINT:HD=0:INPUT" HANDEDNESS (0=RANDOM,1=RIGHT, 2=LEFT)";HD 130IFHD>OTHEN140ELSEHD=1:IFRND(100)>90THENHD=2 140IFHD=1THENPRINT" AGENT IS RIGHT HANDED"ELSEPRINT" AGENT IS LEFT HANDED" 150PRINT:SX=0:INPUT" SEX (0=RANDOM,1=MALE, 2=FEMALE";SX 160IFSX>0THEN170ELSESX=1:IFRND(10)>8THENSX=2 170IFSX=1THENPRINT" AGENT IS MALE"ELSEPRINT" AGENT IS FEMALE" 180PRINT:INPUT" AGENT RACE:";RC$:IFLEN(RC$)=0THENRC$="CAUCASIAN" 190REMGENERATEPRIMARYCHARACTERISTICS 200X=RND(100):IFCT=1THENGOSUB270 210P1=X:X=RND(100):IFCT=1THENGOSUB270 220P2=X:X=RND(100):IFCT=1THENGOSUB270 230P3=X:X=RND(100):IFCT=1THENGOSUB270 240P4=X:X=RND(100):IFCT=1THENGOSUB270 250P5=X:X=RND(100):IFCT=1THENGOSUB270 260P6=X:GOTO280 265REMINCREASEVALUESFORPC 270IFX>90THENRETURNELSEX=X+5:IFX>70THENRETURNELSEX=X+5:IFX>50THENRETURNELSEX=X+5:IFX>25THENRETURNELSEX=X+10:RETURN 280M$="AGENT'S PRIMARY TRAITS":GOSUB100 290PRINT"1. STRENGTH";P1,"4. COURAGE";P4:PRINT:PRINT"2. CHARM";P2,"5. KNOWLEDGE";P5:PRINT:PRINT"3. WILLPOWER";P3,"6. COORDINATION";P6 300PRINT:I=0:INPUT"ENTER 0 TO CONTINUE, 1-6 TO CHANGE TRAIT (BY NUMBER), 7 TO RE-ROLL PRIMARY TRAITS, 8 TO START ALL OVER";I 305IFI=0THEN332ELSEIFI=7THEN200ELSEIFI=8THEN95ELSEPRINT:PRINT:PRINT:PRINT"NEW VALUE DESIRED FOR TRAIT #";I;:INPUTX 320IFI=1THENP1=XELSEIFI=2THENP2=XELSEIFI=3THENP3=XELSEIFI=4THENP4=XELSEIFI=5THENP5=XELSEIFI=6THENP6=X 330GOTO280 332PRINT"ONE MOMENT PLEASE..." 335REMSECONDARYTRAITS 340S1=INT(.5+(P6+P4)/2):S2=INT(.5+(P4+P2)/2):S3=INT(.5+(P2+P6)/2):S4=INT(.5+(P5+P6)/2):S5=P1+P3+P6:S6=INT(.5+(P1+P3)/10) 345REMTERTIARYTRAITS 350T1=S3+P1:T2=S1+P1:T3=S2+S3 355REMHEIGHT 360H=70:IFSX=2THENH=65 370X=RND(10):H=H+HM(X):IFX=1THENH=H+H$(RND(10))ELSEIFX=10THENH=H+HT(RND(10)) 375REMAGE 380AG=RND(10)+RND(10)+RND(10)+12:IFCT=0THENAG=AG+RND(20) 385REMGLASSES? 390GL=0:CG=P6:IFRND(10)<4THENGL=1:CG=P6-INT(P6*RND(100)/100):IFRND(10)=1THENCL=2 395REMWEIGHT 400WT=170:X=(H-70)*5:IFSX=2THENWT=145:X=(H-65)*5 410WT=WT+X+RND(10)-5:X=RND(10):WT=WT+X:IFX=1THENWT=WT-WL(RND(10))ELSEIFX=10THENWT=WT+WH(RND(10)) 415IFSX=2THENWT=INT(WT*.8) 420NL=INT(P5/25)+1 421LF(1)=70+RND(10)+RND(10)+RND(10) 425FORI=2TO5:LF(I)=0:NEXTI:IFNL=1THENGOTO440ELSEFORI=2TONL:LF(I)=RND(100):IFLF(I)<40THENLF(I)=40ELSEIFLF(I)>LF(1)THENLF(I)=LF(1) 430NEXTI 440NA=INT((P5-1)/10)+1:FORI=1TONA:X=RND(100):IFX<75THENAO(I)=INT((X+1)/2)ELSEAO(I)=39 442IFI=1ORX>=75THEN450ELSEFORI1=1TOI-1:IFAO(I)=AO(I1)THEN444ELSENEXTI1:GOTO450 444X=RND(100):IFX<75THENAO(I)=INT((X+1)/2):GOTO442ELSEAO(I)=39 450AR(I)=RND(100):IFAR(I)<21THENAR(I)=AR(I)+20 460AR(I)=AR(I)+30:NEXTI:IFNA=10THEN470ELSEFORI=NA+1TO10:AO(I)=38:AR(I)=0:NEXTI 470CLS:PRINT@24,"** TOP SECRET **":PRINT@128,"STRENGTH";P1,"OFFENSE";S1,"HTH COMBAT";T1:IFSX=1THENM$="MALE"ELSE$="FEMALE" 480PRINT" SEX";M$:PRINT"CHARM";P2,"DECEPTION";S2,"WRESTLING";T2,"HEIGHT";INT(H/12);CHR$(39);H-INT(H/12)*12;CHR$(34) 490PRINT"WILLPOWER";P3,"EVASION";S3,"SURPRISE";T3,"WEIGHT";WT;"LBS","COURAGE";P4,"DEACTIVATION";S4;TAB(48)"AGE:";AG;"YRS" 500PRINT"KNOWLEDGE";P5,"MOVEMENT";S5;:IFHD=1THENM$="RIGHT HANDED"ELSEM$="LEFT HANDED" 510PRINTM$:PRINT"COORDINATION";P6;"/";CG;" **LIFE LEVEL";S6,:IFGL=1THENM$="CONTACTS/GLASSES":GOTO520:ELSEIFGL=2THENM$="GLASSES ONLY":GOTO520:ELSEM$="VISION 20/20" 520PRINTM$ 530PRINT"RACE: ";RC$ 540PRINT:PRINT"LANGUAGES:";:PRINT"NATIVE";LF(1);" ";:IFNL>1THENFORI=2TONL:PRINT"OTHER";LF(I);" ";:NEXTI 550PRINT:PRINT:PRINT"AREAS OF KNOWLEDGE:":FORI=1TONA:PRINTAK$(AO(I));AR(I):NEXTI:PRINT"ALL OTHERS";INT(P5/2+.5) 560PRINT:X=0:INPUT"ENTER 0 TO START OVER,1 TO CHANGE PRIMARY TRAITS";X 570IFX=0THEN95ELSE280 580REMVER.1JOEULOWETZ9/16/80
