100 PRINT "Character Generation for Advanced Dungeons & Dragons"
110 PRINT "This program generates standard humans by method four."
120 PRINT "Method four generates seven scores for twelve characters."
125 PRINT "Select the character which best suits your needs from the list."
126 RANDOMIZE
130 DIM a(1 TO 12, 1 TO 7)
140 FOR c1 = 1 TO 12
150 FOR c2 = 1 TO 7
160 x = (INT(RND * 6)) + 1
170 y = (INT(RND * 6)) + 1
180 z = (INT(RND * 6)) + 1
190 a(c1, c2) = x + y + z
200 NEXT c2
210 NEXT c1
220 PRINT "St"; a(1, 1); "In"; a(1, 2); "Ws"; a(1, 3); "Dx"; a(1, 4); "Cn"; a(1, 5); "Ch"; a(1, 6); "Cm"; a(1, 7)
230 PRINT "St"; a(2, 1); "In"; a(2, 2); "Ws"; a(2, 3); "Dx"; a(2, 4); "Cn"; a(2, 5); "Ch"; a(2, 6); "Cm"; a(2, 7)
240 PRINT "St"; a(3, 1); "In"; a(3, 2); "Ws"; a(3, 3); "Dx"; a(3, 4); "Cn"; a(3, 5); "Ch"; a(3, 6); "Cm"; a(3, 7)
250 PRINT "St"; a(4, 1); "In"; a(4, 2); "Ws"; a(4, 3); "Dx"; a(4, 4); "Cn"; a(4, 5); "Ch"; a(4, 6); "Cm"; a(4, 7)
260 PRINT "St"; a(5, 1); "In"; a(5, 2); "Ws"; a(5, 3); "Dx"; a(5, 4); "Cn"; a(5, 5); "Ch"; a(5, 6); "Cm"; a(5, 7)
270 PRINT "St"; a(6, 1); "In"; a(6, 2); "Ws"; a(6, 3); "Dx"; a(6, 4); "Cn"; a(6, 5); "Ch"; a(6, 6); "Cm"; a(6, 7)
280 PRINT "St"; a(7, 1); "In"; a(7, 2); "Ws"; a(7, 3); "Dx"; a(7, 4); "Cn"; a(7, 5); "Ch"; a(7, 6); "Cm"; a(7, 7)
290 PRINT "St"; a(8, 1); "In"; a(8, 2); "Ws"; a(8, 3); "Dx"; a(8, 4); "Cn"; a(8, 5); "Ch"; a(8, 6); "Cm"; a(8, 7)
300 PRINT "St"; a(9, 1); "In"; a(9, 2); "Ws"; a(9, 3); "Dx"; a(9, 4); "Cn"; a(9, 5); "Ch"; a(9, 6); "Cm"; a(9, 7)
310 PRINT "St"; a(10, 1); "In"; a(10, 2); "Ws"; a(10, 3); "Dx"; a(10, 4); "Cn"; a(10, 5); "Ch"; a(10, 6); "Cm"; a(10, 7)
320 PRINT "St"; a(11, 1); "In"; a(11, 2); "Ws"; a(11, 3); "Dx"; a(11, 4); "Cn"; a(11, 5); "Ch"; a(11, 6); "Cm"; a(11, 7)
330 PRINT "St"; a(12, 1); "In"; a(12, 2); "Ws"; a(12, 3); "Dx"; a(12, 4); "Cn"; a(12, 5); "Ch"; a(12, 6); "Cm"; a(12, 7)
340 PRINT "To print these scores, press [PRINT SCREEN]."
350 PRINT "Any other key will return you to the program."
360 END