Here is the code just as I copied it from The Dragon. If you run it you will find that there are few mistakes and typos, so this program could not have worked as is. I wonder how this is possible.... Did some poor slob have to type this from looking at a printout? Anyway before you run it you will need to remove this first part you are reading. Later I may post the fixed version I made with VT.
1000 REM************************************************************* 1010 REM** 1020 REM*DUNGEON MASTER'S PERSONNEL SERVICE* 1030 REM*( 40 COLUMN BY 16 LINE CRT DISPLAY ONLY )* 1040 REM*SAVE AS "D&DCRT.BAS" - VERSION 1.2* 1050 REM** 1060 REM*********************************************************** 1070 REM GENERATES PLAYER CHARACTERISTIC FOR FANTASY* 1080 REM *ROLE - PLAYING GAME "DUNGEONS & DRAGONS" Tm* 1090 REM *********************************************************** 1100 REM *WRITTEN BY: JOSEPH C. SPANN - MONROE, LA.* 1110 REM *"DUNGEON MASTER'S PERSONNEL SERVICE"-ver 1.2(C)LAIRTECH* 1120 REM *"DUNGEONS & DRAGONS" Tm BY TSR HOBBIES INC.* 1130 REM*********************************************************** 1140 DIM PS(7) 1150 RANDOMIZE 1160 PRINT CHR$(12) 1170 PRINT 1180 PRINT "DM'S PERSONNEL SERVICE" 1190 PRINT"-----------------------------------------" 1200 PRINT 1210 PRINT"PRODUCES CHAR. ABILITY SCORES" 1220 PRINT 1230 PRINT"FOR" 1240 PRINT 1250 PRINT"DUNGEONS & DRAGONS Tm 1260 PRINT 1280 PRINT"IF YOU ARE READY FOR THE 1ST" 1290 PRINT"CHARACTER, ENTER A ONE (1)." 1300 INPUT C 1310 ON C GOTO 1320 1320 PRINT CHR$(12) 1330 REM*************************** 1340 REM BEGIN 3D6 ROLLS FOR ABILITIES 1350 REM*************************** 1360 L=L+1 1370 Z=INT((RND(1)*6)+1) 1380 Z2=INT((RND(1)*6)+1) 1390 Z3=INT((RND(1)*6)+1) 1400 ZZ=Z+Z2+Z3 1410 IF L=1 THEN 1530 1420 IF L=2 THEN 1680 1430 IF L=3 THEN 1760 1440 IF L=4 THEN 2120 1450 IF L=5 THEN 2340 1460 IF L=6 THEN 2510 1500 REM*************************** 1510 REMCALCULATIONS FOR STRENGTH 1520 REM*************************** 1530 PRINT"CHARACTER'S STRENGTH IS ";ZZ 1540 ST=ZZ 1550 IF ST=3 THEN SF=-3 1560 IF ST > 3 AND ST < 6 THEN SF=-2 1570 IF ST > 5 AND ST < 9 THEN SF=-1 1580 IF ST > 8 AND ST < 13 THEN SF=0 1590 IF ST > 12 AND ST < 16 THEN SF=1 1600 IF ST > 15 AND ST < 18 THEN SF=2 1610 IF ST=18 THEN SF=3 1620 IF SF=0 THEN 1360 1630 PRINT"*ADDî;SF;"TO ROLLS TO HIT,DAMAGE,OPEN DOORS" 1640 GOTO 1360 1650 REM*************************** 1660 REM CALCULATIONS FOR CONSTITUTION 1670 REM*************************** 1680 CO=ZZ 1690 A=ST/CO 1700 IF A < .67 OR A > 1.5 THEN 1370 1710 PRINT"CONSTITUTION SCORE IS";ZZ 1720 GOTO 1360 1730 REM*************************** 1740 REM CALCULATIONS FOR INTELLIGENCE 1750 REM*************************** 1760 PRINT"CHARACTER'S INTELLIGENCE";ZZ 1770 IN=ZZ 1780 IF IN < 9 THEN IZ%="*INTELLIGENCE TOO LOW FOR MAGIC USER." 1790 IF IN=9 THEN IZ$="*35% TO KNOW SPELL-MIN/MAX PER LVL:4/6" 1800 IF IN > 9 AND IN < 13 THEN IZ$="*45% TO KNOW SPELL-MIN/MAX PER LVL:5/7" 1810 IF IN > 12 AND IN < 15 THEN IZ$="*55% TO KNOW SPELL-MIN/MAX PER LVL:6/9" 1820 IF IN > 14 AND IN < 17 THEN IZ$="*65% TO KNOW SPELL-MIN/MAX PER LVL:7/11" 1830 IF IN=17 THEN IZ$="*75% TO KNOW SPELL-MIN/MAX PER LVL:8/14" 1840 IF IN=18 THEN IZ$="*85% TO KNOW SPELL - MIN/MAX PER LVL:9/18" 1850 IF IN=3 THEN 1870 1860 GOTO 1880 1870 I$="* DIFFICULT SPEECH-ILLITERATE" 1880 IF IN>3 AND IN<6 THEN 1900 1890 GOTO 1910 1900 I$="* EASY SPEECH BUT ILLITERATE" 1910 IF IN>5 AND IN<9 THEN 1930 1920 GOTO 1940 1930 I$="* BARELY LITERATE." 1940 IF IN>8 AND IN<13 THEN 1960 1950 GOTO 1970 1960 I$="* LITERATE IN NATIVE TONGUE." 1970 IF IN>12 AND IN<16 THEN 1990 1980 GOTO 2000 1990 I$="* LITERATE AND FLUENT 2 LANGUAGES" 2000 IF IN>15 AND IN<18 THEN 2020 2010 GOTO 2030 2020 I$="* LITERATE AND FLUENT 3 LANGUAGES" 2030 IF IN=18 THEN 2050 2040 GOTO 2060 2050 I$="* LITERATE AND FLUENT 4 LANGUAGES" 2060 PRINT I$ 2070 PRINT IZ$ 2080 GOTO 1360 2090 REM*************************** 2100 REM CALCULATIONS FOR DEXTERITY 2110 REM*************************** 2120 PRINT"CHARACTER'S DEXTERITY IS ";ZZ 2130 DX=ZZ 2140 IF DX=3 THEN DF=-3 2150IF DX > 3 AND DX < 6 THEN DF=-2 2160IF DX > 5 AND DX < 9 THEN DF=-1 2170IF DX > 8 AND DX < 13 THEN DF=0 2180IF DX > 12 AND DX < 16 THEN DF=1 2190IF DX > 15 AND DX < 18 THEN DF=2 2200IF Dx=18 THEN DF=3 2210IF DF=-3 THEN GOSUB 5320 2220IF DF=-2 THEN GOSUB 5340 2230IF DF=-1 THEN GOSUB 5360 2240IF DF=1 THEN GOSUB 5380 2250IF DF=2 THEN GOSUB 5400 2260IF DF=3 THEN GOSUB 5420 2270IF DF=0 THEN GOTO 1360 2280PRINT "*ADD";DF;"TO MISSILE FIRE ROLLS 'TO HIT'" 2290PRINT "* " ;X1$;X2$;X3$;" ARMOR CLASS." 2300GOTO 1360 2310REM *************************** 2320REM CALCULATIONS FOR WISDOM 2330REM *************************** 2340WI=ZZ 2350 B=IN/WI 2360IF B < .67 OR B > 1.5 THEN 1370 2370PRINT"CHARACTER'S WISDOM IS " ;WI 2380IF WI=3 THEN WF=-3 2390IF WI > 3 AND WI < 6 THEN WF=-2 2480IF WI > 5 AND WI < 9 THEN WF=-1 2410IF WI > 8 AND WI < 13 THEN WF=0 2420IF WI > 12 AND WI < 16 THEN WF=1 2430IF WI > 15 AND WI < 18 THEN WF=2 2440IF WI=18 THEN WF=3 2450IF WF=0 THEN 1360 2460PRINT"*ADD";WF;"TO ROLL-MAGIC BASED SAVING THROW" 2470GOTO 1360 2480REM *************************** 2490REM CALCULATIONS FOR CHARISMA 2500REM *************************** 2510PRINT"CHARACTER'S CHARISMA IS ";ZZ 2520LET CH=ZZ 2530IF CH=3 THEN XF=1 2540IF CH > 3 AND CH < 6 THEN XF=2 2550IF CH > 5 AND CH < 9 THEN XF=3 2560IF CH > 8 AND CH < 13 THEN XF=4 2570IF CH > 12 ND CH < 16 THEN XF=5 2580IF CH > 15 AND CH < 18 THEN XF=6 2590IF CH=18 THEN XF=7 2600PRINT"*CAN HAVE ";XF;" RETAINERS WITH MORALE OF" ;XF" 2610L=0 2620REM *************************** 2630REM RACE/CLASS SELECTION & CHECKING 2640REM *************************** 2650PRINT" IF YOU HAVE THIS DATA AND ARE READY TO" 2660PRINT" PROCEED, ENTER A ONE (1)." 2670INPUT VG 2680 ON VG GOTO 2690 2690PRINT CHR$(12);PRINT 2700PRINT "CLASS/RACE LIST" 2710PRINT "-----------------------------------------" 2720PRINT " (1) FIGHTER (4) HALFLING" 2730PRINT " (2) MAGIC USER (5) ELF" 2740PRINT " (3) CLERIC (6) DWARF" 2750 PRINT "(7) THIEF" 2760 PRINT 2770 PRINT"SELECT THE RACE/CLASS THAT YOU WISH" 2780 PRINT"YOUR CHARACTER TO HAVE AND ENTER THE" 2790 INPUT"NUMBER FROM THE TABLE ABOVE";CN 2800IF CN=4 THEN 2820 2810GOTO 2870 2820IF DX < 9 OR CD < 9 THEN 2840 2830GOTO 2870 2840PRINT" DEXTERITY AND/OR CONSTITUTION" 2850PRINT"TOO LOW FOR HALFLING" 2860GOTO 2770 2870IF CN=5 AND IN < 9 THEN 2890 2880GOTO 2900 2890PRINT"INTELLIGENCE TOO LOW FOR ELF.":GOTO 2770 2900IF CN=6 AND CO < 9 THEN 2920 2910GOTO 2960 2920PRINT"CONSTITUTION TOO LOW FOR DWARF.":GOTO 2770 2930REM*************************** 2940 REM HIT DICE ASSIGNED BY RACE/CLASS 2950REM*************************** 2960 IF CN=1 THEN HF=8 2970IF CN=2 THEN HF=4 2980 IF CN=3 THEN HF=6 2990 IF CN=4 THEN HF=6 3000 IF CN=5 THEN HF=6 3010 IF CN=6 THEN HF=8 3020IF CN=7 THEN HF=4 3030IF CN=0 THEN 1160 3040PRINT 3050 REM*************************** 3060 REM CHARACTER LEVEL ASSIGNED AND 3070 REM HIT POINTS CALCULATED 3080 REM*************************** 3090 PRINT "CHARACTER LEVEL RANGE..ONE(1) TO FIVE(5)" 3100 PRINT 3110 INPUT"AT WHICH LEVEL WILL CHARACTER START";LL 3120 IF LL > 5 THEN PRINT "NUMBER TOO LARGE: RE-ENTER":GOTO 3110 3130 PRINT CHR$(12) 3140 PRINT 3150 PRINT"YOUR CHARACTER HAS ";LL;" HIT DICE" 3160 PRINT 3170 IF CO=3 THEN PF=(-3 * LL) 3180 IF CO > 3 AND CO < 6 THEN PF=(-2 * LL) 3190 IF CO > 5 MD CO < 9 THEN PF-(-1 * LL) 3200 IF CO > 8 AND CO < 13 THEN PF=0 3210 IF CO > 12 AND CO < 16 THEN PF=LL 3220 IF CO > 15 AND CO < 18 THEN PF=(2 * LL) 3230 IF CO=18 THEN PF=(3 * LL) 3240 GOSUB 4330 3250 REM*************************** 3260 REM CLERIC SKILLS ASSIGNED BY LEVEL 3270 REM*************************** 3280 IF CN=3 THEN 3300 3290 GOTO 3500 3300IF CN=3 THEN 3320 3310 GOTO 3500 3320 CZ$=" 3330 CLERIC VS. UNDEAD TABLE (1D20)" 3340CU$="SKEL ZOMB GHOU WIGT WRAI MUMM SPEC VAMP" 3350 PRINT CZ$ 3360 PRINT 3370 PRINT CU$ 3380 Z1$=" 7 9 11 -- -- -- -- --" 3390 Z2$" T 7 9 11 -- -- -- --" 3400 Z3$=" T T 7 9 11 -- -- --" 3410 Z4$=" D T T 7 9 11 -- --" 3420 Z5$=" D D T T 7 9 11 --" 3430 IF CN=3 AND LL=1 THEN PRINT Z1$ 3440 IF CN=3 AND LL=2 THEN PRINT Z2$ 3450 IF CN=3 AND LL=3 THEN PRINT Z3$ 3460 IF CN=3 AND LL=4 THEN PRINT Z4$ 3470 IF CN=3 AND LL=5 THEN PRINT Z5$ 3480 REM*************************** 3490 REM THIEF'S SKILLS ASSIGNED BY LEVEL 3500 REM*************************** 3510 IF CN=7 THEN 3520 3520 GOTO 3720 3530 TY$=" 3540 THIEVES' ABILITIES" 3550 TA$="PICK REMV PICK MOVE CLIM HIDE HEAR" 3560 TB$="LOCK TRAP PCKT SILT SURF SHDW NOIS" 3570 PRINT TY$ 3580 PRINT TA$ 3590 PRINT TB$ 3600 K1$=" 15% 10% 20% 20% 87% 10% 1-2" 3610 K2$=" 20% 15% 25% 25% 88% 15% 1-2" 3620 K3$=" 25% 20% 30% 30% 89% 20% 1-3" 3630 K4$=" 30% 25% 35% 35% 90% 25% 1-3" 3640 K5$=" 35% 30% 40% 40% 91% 30% 1-3" 3645 REM BEGINNING 3650 IF LL=1 THEN PRINT K1$ 3660 IF LL=2 THEN PRINT K2$ 3670 IF LL=3 THEN PRINT K3$ 3680 IF LL=4 THEN PRINT K4$ 3690 IF LL=5 THEN PRINT K5$ 3700 REM*************************** 3710 REM CHARACTER COUNT DISPLAYED AND 3720 REM DECISION TO USE IS MADE. 3730 REM*************************** 3740 CC=CC+1 3750 PRINT 3760 PRINT"THIS IS CHARACTER #[";CC;"]" 3770 PRINT 3780 INPUT"DO YOU WANT THIS CHARACTER(Y/N)";D$ 3790 IF D$="N"THEN 1320 3800 IF D$="Y"THEN 3790 3810 CC=0 3820 REM*************************** 3830 REM OTHER CHARACTER DATA IS INPUT 3840 REM*************************** 3850 PRINT CHR$(12) 3860 PRINT:PRINT:PRINT 3870 INPUT"WHAT IS CHARACTER'S NAME";NA$ 3880 PRINT 3890 INPUT"WHAT IS CHARACTER'S RACE";RA$ 3900 PRINT 3910INPUT"WHAT IS CHARACTER'S GENDER";SE$ 3920 PRINT 3930 INPUT"WHAT IS CHARACTER'S CLASS";CL$ 3940 PRINT CHR$(12) 3950 REM*************************** 3960 REM CHARACTER'S GOLD CALCULATED 3970 REM*************************** 3980 PRINT:PRINT 3990 LET M1=INT((RND(1)*6)+1) 4000 LET M2=INT((RND(1)*d)+1) 4010 LET M3=INT((RND(1)*6)+1) 4020 LET MT=M1+M2+M3 4030 LET GC=(10 * MT) 4035 REM 4040 REM*************************** 4050 REM SEPARATION BY RACE/CLASS FOR 4060 REM FINAL DATA CALCULATIONS. 4070 REM*************************** 4075 REM 4080 IF CN=1 THEN GOSUB 5470 4090 IF CN=2 THEN GOSUB 6130 4095 IF CN=3 THEN GOSUB 5580 4096 IF CN=4 THEN GOSUB 5690 4100 IF CN=5 THEN GOSUB 5800 4110 IF CN=6 THEN GOSUB 5910 4128 IF CN=7 THEN GOSUB 6020 4130GOSUB 4510 4140PRINT 4150REM******************************** 4160 REM 'END' OR 'CONTINUE' AND CLOSE 4170REM*************************** 4180INPUT"ANOTHER CHARACTER (Y/N)";GB$ 4190IF GB$="Y" THEN 1320 4200PRINT CHR$(12) 4210PRINT:PRINT:PRINT:PRINT:PRINT 4228PRINT " THANKS FOR USING ME!" 4230PRINT 4240PRINT"IF YOU CHANGE YOUR MIND AND" 4250PRINT"WANT ANOTHER CHARACTER,JUST" 4260PRINT"ENTER THE WORD 'RUN' - BYE." 4270 CLEAR 4280END 4290PRINT 4300REM*************************** 4310REM SUBROUTINE TO CALCULATE HIT PTS 4320REM*************************** 4330Y=Y+1 4340 PS=INT((RND(1) * HF)+1) 4350PS(Y)=PS 4360IF Y <> LL THEN 4330 4370 FOR Y=0 TO LL-1 4380 PS=PS+PS(Y) 4390NEXT Y 4400PT=PS + PF 4410IF PT=<0 THEN 4430 4420GOTO 4440 4430PT=LL 4440PRINT "YOUR CHARACTER WOULD HAVE";PT;"HIT POINTS!" 4450PRINT 4460Y=0 4470RETURN 4480REM*************************** 4490 REM RECAP DISPLAY BEGINS 4500REM*************************** 4510PRINT CHR$(12) 4520PRINT 4530 PRINT"RECAP OF CHARACTER ABILITIES" 4540PRINT 4550PRINT "NAME....";NA$ 4560PRINT "RACE....";RA$;TAB(22)" HIT DICE: " ;LL 4570PRINT "GENDER..";SE$ 4580PRINT "CLASS...";CL$;TAB(22)" HIT POINTS: *;PT 4590PRINT "LEVEL...";LL 4600PRINT 4610PRINT "N O T E !! COPY THIS AND THE INFORMATION" 4620 PRINT "THAT FOLLOWS TO THE CHARACTER" 4630 PRINT "RECORD SHEET. IT WILL NOT BE" 4640PRINT "AVAILABLE AGAIN!" 4650PRINT 4660INPUT"TO CONTINUE,ENTER A ONE(1)";KK 4670 ON KK GOTO 4680 4680 PRINT CHR$(12) 4690 PRINT NA$;"'S STRENGTH IS.. . . . .";ST 4700 IF SF=0 THEN 4720 4710 PRINT "*ADD";SF;"TO ROLL TO:'HIT,DAMAGE,OPEN DOORS" 4720PRINT NA$;"'S CONSTITUTION IS..";CO 4730 PRINT NA$;"'S INTELLIGENCE IS..";IN 4740 IF CN=2 THEN PRINT IZ$ 4750 PRINT I$ 4760PRINT NA$;"'S DEXTERITY IS....";DX 4770 IF DF=0 THEN 4800 4780PRINT "*ADD";DF;"TO MISSILE FIRE ROLLS 'TO HIT'" 4790 PRINT "*";X1$;X2$;X3$;" ARMOR CLASS." 4800PRINT NA$;"'S WISDOM IS.......";WI 4810 IF WF=0 THEN 4830 4820PRINT "*ADD*";WF;"TO ROLL-MAGIC BASED SAVING THROWS" 4830PRINT NA$;"'S CHARISMA IS......";CH 4840PRINT "*CHAR MAY HAVE";XF;"RETAINERS - MORALE OF";XF 4850 IF CN=3 THEN 4900 4860GOTO 4960 4870REM*************************** 4880REM DISPLAYS CLERIC'S SKILLS 4890REM*************************** 4900 PRINT CZ$:PRINT CU$ 4910 IF CN=3 AND LL=1 THEN PRINT Z1$ 4920 IF CN=3 AND LL=2 THEN PRINT Z2$ 4930 If CN=3 AND LL=3 THEN PRINT Z3$ 4940IF CN=3 AND LL=4 THEN PRINT Z4$ 4950IF CN=3 AND LL=5 THEN PRINT Z5$ 4960 IF CN=7 THEN 5010 4970GOTO 5070 4980REM*************************** 4990REM DISPLAYS THIEF'S SKILLS 5000REM*************************** 5010PRINT TY$:PRINT TA$:PRINT TB$ 5020IF CN=7 AND LL=1 THEN PRINT K1$ 5030 IF CN=7 AND LL=2 THEN PRINT K2$ 5040 IF CN=7 AND LL=3 THEN PRINT K3$ 5050 IF CN=7 AND LL=4 THEN PRINT K4$ 5060 IF CN=7 AND LL=5 THEN PRINT K5$ 5070INPUT"TO CONTINUE,ENTER A ONE(1)";PK 5080 ON PK GOTO 5120 5090REM*************************** 5100REM DISPLAYS SAVING THROW TABLE 5110REM*************************** 5120PRINT CHR$(12):PRINT 5130PRINT "SAVING THROW TABLE" 5140 PRINT"DEATH ::PARALYSIS:: RODS" 5150PRINT"RAY OR:MAGIC: OR TURN :DRAGON:STAVES" 5160PRINT"POISON:WANDS:TO STONE :BREATH:OR SPELLS" 5170PRINT"------:-----:---------:--------:---------" 5180PRINT ST$ 5190PRINT P1$ 5200PRINT P2$ 5210PRINT P3$ 5220PRINT P4$ 5230PRINT P5$ 5240REM*************************** 5250 REM DISPLAYS PLAYER'S GOLD SUPPLY 5260REM*************************** 5270PRINT "THIS CHARACTER HAS[";GC;"] GOLD PIECES." 5280RETURN 5290REM*************************** 5300REM DISPLAYS WISDOM ADJUSTMENTS 5310REM*************************** 5320X1$="ADD " :X2$="3":X3$=" TO" 5330RETURN 5340X1$="ADD " :X2$="2" :X3$=" TO" 5350RETURN 5360X1$="ADD * :X2$=" 1 " :X3$=" TO" 5370RETURN 5380X1$="SUBTRACT " :X2$="1":X3$=" FROM" 5390RETURN 5400 X1$="SUBTRACT " :X2$="2":X3$=" FROM" 5410RETURN 5420X1$="SUBTRACT " :X2$="3":X3$=" FROM" 5430RETURN 5440REM*************************** 5450REM SAVING THROW & MISC.-FIGHTER 5460REM*************************** 5470IF LL < 4 THEN ST$="..12....13......14.......15......16 5480IF LL > 3 AND LL < 6 THEN ST$=...10....11......12.......13......14. 5490P1$="MAY WEAR ANY ARMOR AND USE SHIELD." 5500P2$="MAY USE ANY WEAPON." 5510P3$=" " 5520P4$="NO SPELLS, BUT MAY USE MAGIC ARTICLE." 5530P5$=" " 5540RETURN 5550REM*************************** 5560REM SAVING THROW & MISC.-CLERIC 5570REM******************************** 5580IF LL < 5 THEN ST$="..11....12......14.......16......15" 5590IF LL=5 THEN ST$="...9....10......12.......14......12" 5600P1$="MAY NOT USE EDGED WEAPONS." 5610P2$="MAY WEAR ANY ARMOR AND USE SHIELD. " 5620P3$="MAY USE SLING " 5630P4$="HAS ABILITY TO 'TURN' UNDEAD.' 5640P5$="USES CLERICAL SPELLS ONLY. " 5650RETURN 5660REM*************************** 5670 REM SAVING THROW & MISC.- HALFLING 5680REM*************************** 5690 IF LL < 4 THEN ST$="...8.....9......10.......13......12" 5700IF LL > 3 AND LL < 6 THEN ST$="...6.....7.......8.......10......10" 5710P1$="CANNOT USE LONGBOW OR 2 HANDED SWORD." 5720P2$="ADJUST MISSILE ATTACK 'TO HIT' BY +1." 5730P3$="ADJ AC BY -1 VS. MORE THAN MAN-SIZE OPP." 5740P4$="ONLY 10% CHANCE OF DETECTION IN WOODS." 5750P5$="REMAINS UNSEEN IN DUNGEON ON 1-2 (1D6)" 5760RETURN 5770REM*************************** 5780REM SAVING THROW & MISC. - ELF 5790REM*************************** 5800IF LL < 4 THEN ST$="..12....13......13.......15......15" 5810IF LL > 3 AND LL < 6 THEN ST$="..18....11......11.......13......12" 5820P1$="HAS 60' INFRA-VISION." 5830 P2$="DETECTS OR SECRET DOORS ON 1-2(1D6)." 5840 P3$="IMMUNE TO PARALYSIS FROM GHOUL ATTACK." 5850 P4$="SPEAKS ELVISH,ORC,HOB-GOBLIN,AND GNOLL." 5860 P5$="MAY USE SPELLS AND MAGIC ARTICLES." 5870RETURN 5880REM*************************** 5890 REM SAVING THROW & MISC. - DWARF 5900REM*************************** 5910IF LL < 4 THEN ST$="...8.....9......10.......13......12" 5920IF LL > 3 AND LL < 6 THEN ST$="...6.....7.......8.......10. . . ...10" 5930P1$="HAS 60' INFRA-VISION." 5940 P2$="DET'S TRAPS,DUNGEON ANOMALIES,@ 1-2(1D6)" 5950P3$="SPEAKS DWARVISH,GNOME,KOBOLD,AND GOBLIN." 5960P4$="MAY NOT USE A LONGBOW OR 2-HANDED SWORD." 5970P5$=" " 5980RETURN 5990REM*************************** 6000REM SAVING THROW & MISC. - THIEF 6010REM*************************** 6020IF LL < 5 THEN ST$=...13....14......13.......16......15" 6030IF LL=5 THEN ST$="..12....13......11.......14......13 6040P1$="LEATHER ARMOUR ONLY-NO SHIELD" 6050P2$="BACKSTABBING ADDS +4 TO 'TO HIT' ROLL" 6060P3$="BACKSTABBING DOES TWICE NORMAL DAMAGE" 6070 P4$="SEE TABLE FOR OTHER SKILLS." 6080P5$=" " 6090RETURN 6100REM*************************** 6110REM SAVING THROW & MISC.-MAGIC USER 6120REM*************************** 6130ST$=" 13 14 13 16 15" 6140 P1$="MAY NOT USE A SHIELD OR WEAR ARMOR." 6150 P2$="MAY USE ONLY A DAGGER AS A WEAPON." 6160 P3$="CHECK INTELLIGENCE FOR ABILITY TO" 6170 P4$="LEARN SPELLS AND # OF SPELLS/LEVEL" 6180P5$=" " 6190RETURN
