I corrected the errors using a online cloud basic compiler http://www.tutorialspoint.com/execute_basic_online.php?fbclid=IwAR0qpAiqI2Sxo2FkYdFh7QMf8BjENl8JTQA6Frk8DbEkg385XtbvdpTcxpA plan on loading to my m100 tomorrow to edit more there. Bruce
On Tue, Jan 7, 2020 at 10:00 PM Russell Flowers <rflow...@gmail.com> wrote: > Is this from the issue with the big breasted lady reading a crystal globe > on the front? I think I may even have that issue around here.... Kudos for > sharing this! > > On Tue, Jan 7, 2020 at 8:13 PM Jason Paul <havel...@gmail.com> wrote: > >> There is an Errata a couple issues later I believe. >> >> On Tue, Jan 7, 2020, 9:11 PM Peter Vollan <dprogra...@gmail.com> wrote: >> >>> 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 >>> >> -- Here is a list of my current Facebook groups Retro portable pcs and Palm tops wince https://www.facebook.com/groups/858125747631200/ classiccomputerprojects https://www.facebook.com/groups/classiccomputerprojects/ classiccomputerprojects Classic Windows and Msdos software and computers https://www.facebook.com/groups/1106158452790514/
