Here's my simple treasure generator.
Once it's loaded, just type the letter of the treasure code.
You can type letters multiple times, and you can press a digit first, like
5g will generate 5 'g' type treasures and add them to the hoard.
ESC exits, SPACE clears the hoard. I have plans for more sophistication,
but this is what I have now.
I also tried putting the data into a separate file and reading it, but the
DATA statements were about the same speed (and format), and cluttering up
the file view wasn't worth it.
The first version used RESTORE/READ for each treasure type, but that was
too slow. Now it loads arrays at boot time, which puts all the slowness up
front.
You'll see my "busy spinner" if you use the digit+letter feature. :)
1 REM Treasure Table
2 CLS:GOSUB 2000:CLS:GOTO 1000
10 PRINT@7,"AD&D 2e Treasure Generator":RETURN
100 REM ROLL
110 J=ASC(TT$)-64:REM Key to treasure type index
120 FOR I=1 TO NT
130 R=0:N=TC%(J,I):IFN=0ORINT(1+RND(1)*20)>NTHEN 190
140 IFI<NTTHENS=TS%(J,I)ELSES=1
150 D%=TD%(J,I):IF D%=0 THEN R=N*S:GOTO180
160 N=TN%(J,I)
170 FORK=1TON:R=R+S*FIX(1+RND(1)*D%):NEXT
180 IFI=NTTHENTM%(J)=TM%(J)+R ELSE TV(I)=TV(I)+R
190 NEXT:RETURN
200 REM Reset
210 TC$=""
220 FORI=1TO NT-1:TV(I)=0:NEXT
230 FORI=1TO NR:TM%(I)=0:NEXT
240 CLS:GOTO 1000
300 REM EXIT
310 CLS:CLEAR:MENU:END
400 REM SHOW
410 FOR I=1 TO NT-1:PRINT TY$(I);"=";TV(I),:NEXT
420 PRINT TY$(NT);"=";
430 FOR J=1 TO NR
440 K=TM%(J)
450 IF K>0 THEN PRINT STR$(K);"x";MI$(J);
460 NEXT
470 RETURN
1000 REM MAIN
1010 GOSUB 10:PRINT:GOSUB400
1020 PRINT@40,"Type: ";
1025 NN=1
1030 R=RND(1):TT$=INKEY$:IFTT$=""THEN1030
1031 IFTT$=CHR$(27)THEN 300
1032 IFTT$=" "THEN 200
1033 REM ADD OPTIONS
1034 IFTT$>="0"ANDTT$<="9"THEN NN=ASC(TT$)-ASC("0"):GOTO 1030
1039 IFTT$>="a"ANDTT$<="z"THEN TT$=CHR$(ASC(TT$)-32):REM UCASE
1040 IFTT$<"A"ORTT$>"Z"THEN BEEP:GOTO1030
1045 IFNN>1THENTC$=TC$+STR$(NN)+"x"
1050 TC$=TC$+TT$:PRINT TC$;
1060 PRINT"-";:FOR M=1 TO NN
1070 GOSUB 100:PRINTBS$;MID$("/-\|",1+(MMOD4),1);
1080 NEXT:PRINTBS$
1090 GOSUB 400
1100 GOTO 1000
2000 GOSUB 10:PRINT"Loading: ";
2010 DEFINT I-N:I=0:J=0:K=0:TT$="":BS$=CHR$(127):NT=7:NR=26
2020 DIM TY$(NT),TV(NT),TM%(NR),MI$(NR)
2030 DIM TC%(NR,NT),TN%(NR,NT),TD%(NR,NT),TS%(NR,NT-1)
2040 RESTORE 3000
2050 FOR I=1 TO NT:READ TY$(I):NEXT
2060 FOR J=1 TO NR
2070 READ T$:PRINTT$;:REM PROGRESS
2080 FOR I=1 TO NT
2090 READ TC%(J,I),TD$,TS$
2100 K=INSTR(TD$,"d")
2110 IFK=0THEN TN%(J,I)=VAL(TD$):TD%(J,I)=0:GOTO 2130
2120 TN%(J,I)=VAL(LEFT$(TD$,K-1)):TD%(J,I)=VAL(MID$(TD$,K+1))
2130 IF I=NT THEN MI$(J)=TS$ ELSE TS%(J,I)=VAL(TS$)
2140 NEXT:NEXT:RETURN
3000 REM Data
3005 DATA CP,SP,GP,PP,Gems,Art,Magic
3010 DATA
A,5,1d3,1000,6,1d10,200,8,1d6,1000,7,3d6,100,12,1d4,10,10,2d6,1,6,3,Any
3020 DATA
B,10,1d6,1000,5,1d3,1000,5,1d10,200,5,1d10,100,6,1d8,1,4,1d4,1,2,1,Armor+Weapon
3030 DATA C,4,1d10,1000,6,1d6,1000,,,,2,1d6,100,5,1d6,1,4,1d3,1,2,2,Any
3040 DATA
D,2,1d6,1000,3,1d10,1000,10,1d3,1000,3,1d6,100,6,1d10,1,5,1d6,1,3,2,Any&Potion
3050 DATA
E,1,1d6,1000,5,1d10,1000,5,1d4,1000,5,3d6,100,3,1d12,1,2,1d6,1,5,3,Any&Scroll
3060 DATA
F,,,,2,3d6,1000,8,1d6,1000,3,1d4,1000,4,2d10,1,2,1d8,1,6,5,Any-Weapon
3070 DATA G,,,,,,,10,1d10,2000,10,1d10,1000,6,3d6,1,5,1d6,1,7,5,Any
3080 DATA
H,5,3d6,1000,8,1d10,2000,11,1d10,2000,8,1d8,1000,10,1d10,3,10,1d10,2,3,6,Any
3090 DATA I,,,,,,,,,,6,1d6,100,11,2d6,1,10,2d4,1,3,1,Any
3100 DATA J,20,3d8,1,,,,,,,,,,,,,,,,,,
3110 DATA K,,,,20,3d6,1,,,,,,,,,,,,,,,
3120 DATA L,,,,,,,,,,20,2d6,1,,,,,,,,,
3130 DATA M,,,,,,,20,2d4,1,,,,,,,,,,,,
3140 DATA N,,,,,,,,,,20,1d6,1,,,,,,,,,
3150 DATA O,20,1d4,10,20,1d3,10,,,,,,,,,,,,,,,
3160 DATA P,,,,20,1d6,10,,,,20,1d20,1,,,,,,,,,
3170 DATA Q,,,,,,,,,,,,,20,1d4,1,,,,,,
3180 DATA R,,,,,,,20,2d10,1,20,1d6,10,20,2d4,1,20,1d3,1,,,
3190 DATA S,,,,,,,,,,,,,,,,,,,20,1d8,Potion
3200 DATA T,,,,,,,,,,,,,,,,,,,20,1d4,Scroll
3210 DATA U,,,,,,,,,,,,,18,2d8,1,16,1d6,1,14,1,Any
3220 DATA V,,,,,,,,,,,,,,,,,,,20,2,Any
3230 DATA W,,,,,,,20,1d6,5,20,1d8,1,12,2d8,1,10,1d8,1,12,2,Any
3240 DATA X,,,,,,,,,,,,,,,,,,,20,2,Potion
3250 DATA Y,,,,,,,20,2d6,100,,,,,,,,,,,,
3260 DATA
Z,20,1d3,100,20,1d4,100,20,1d6,100,20,1d4,100,11,1d6,1,10,2d6,1,10,3,Any
On Tue, Jan 7, 2020 at 9:13 PM Bruce James <[email protected]> wrote:
> 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 <[email protected]>
> 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 <[email protected]> wrote:
>>
>>> There is an Errata a couple issues later I believe.
>>>
>>> On Tue, Jan 7, 2020, 9:11 PM Peter Vollan <[email protected]> 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/
>
