10  FILES = ".D&D"
20  IF  END #1 THEN 510
30  READ #1,25;A
40  READ #1,1
50  FOR T=1 to A
60  IF TYP(-1)#4 THEN 80
70  PRINT "RECORD END HERE"
80  READ #1;A$
90  IF TYP(-1)#4 THEN 110
100  PRINT "RECORD END THERE"
110  READ #1;A
120  PRINT T;A$;a
130  NEXT T
140  DIM A[6],B[6],A$[72]
150  MAT A=CON
160  MAT B=CON
170  FOR X=T TO 1.E+38
180  PRINT X;"NAME(DONE TO END)";
190  INPUT A$
200  IF A$="DONE" THEN 500
210  PRINT "H.P.(1-128)";
220  INPUT A[1]
230  IF A[1]<1 OR A[1]>128 THEN 210
240  PRINT "LEVEL(1-16)";
250  INPUT A[2]
260  IF A[2]<1 OR A[2]>16 THEN 240
270  PRINT "#OF ATTACKS(1-4)";
280  INPUT A[3]
290  IF A[3]<1 OR A[3]>4 THEN 270
300  PRINT "#ENCOUNTERED(1-4)";
310  INPUT A[4]
320  IF A[4]<1 OR A[4]>4 THEN 300
330  PRINT "DEXTERITY(3-18)";
340  INPUT A[5]
350  IF A[5]<3 OR A[5]>18 THEN 330
360  A[5]=A[5]-2
370  PRINT "TREASURE TYPE(1-4)";
380  INPUT A[6]
390  IF A[6]<1 OR A[6]>4 THEN 370
400  MAT A=A-B
410  A[1]=A[1]+A[2]*128+A[3]*2048+A[4]*8192+A[5]*32768.+A[6]*524288.
420  PRINT "ATTACKS FIRST ENTER A ONE";
430  INPUT A
440  IF A#1 THEN 460
450  A[1]=A[1]+2^19
460  PRINT A$;A[1]
470  PRINT #1;A$,A[1]
480  NEXT X
490  GOTO 510
500  PRINT #1,25;T-1
510  PRINT "DONE"
520  END