5 REM DRAGONS DRUIDS N DICE TI-99 1.2.1
7 REM WRITTEN BY MICHAEL GIBSON
10 CALL CHAR(33,"0101010101010101")
15 CALL CHAR(42,"00000708102040FF")
20 CALL CHAR(43,"0000FC0C14244484")
25 CALL CHAR(64,"8585858991A1C181")
30 CALL CHAR(94,"FF")
35 CALL CHAR(36,"0000FF00000000FF") 
40 CALL CHAR(45,"8585858585858585")
45 CALL CHAR(47,"0102040810204080")
50 CALL CHAR(59,"8040201008040201")
55 CALL CHAR(35,"0000000018244281")
60 CALL CHAR(123,"00000000FF244281")
65 CALL CHAR(124,"030C30C080808080")
70 CALL CHAR(125,"00000000030C30C0")
75 CALL CHAR(91,"8080808080808080")
77 CALL CHAR(93,"80808080808080FF")
80 CALL CHAR(126,"FF300C03")
85 CALL CHAR(122,"FF000000C0300C03")
90 CALL CHAR(121,"FF0C30C0")
95 CALL CHAR(120,"FF000000030C30C0")
100 CALL CHAR(119,"C33C18")
105 CALL CHAR(62,"C0300C0301010101")
110 CALL CHAR(95,"00000000000000FF")
115 CALL CHAR(118,"01010101010101FF")
120 CALL CHAR(97,"00000000C0300C03")

125 CALL CHAR(98,"F048242211100808")  
130 CALL CHAR(99,"040402020101")      
135 CALL CHAR(100,"0000000000804020") 
140 CALL CHAR(101,"1008040201008080") 
145 CALL CHAR(102,"4040202010100808") 
150 CALL CHAR(103,"1008040201061860")

180 CALL CLEAR
185 CALL SCREEN(16)

200 PRINT " ____    # #"
201 PRINT "/;__/; DRAGONS"
202 PRINT "]/  ;v  DRUIDS &"
203 PRINT ";>a}|/   DICE"
204 PRINT " ;v / "
205 PRINT "  ^^ "

209 PRINT "A) ROLL D4   B) ROLL D6"
215 PRINT "C) ROLL D8   D) ROLL D10"
225 PRINT "E) ROLL D12  F) ROLL D20"
230 PRINT " "
235 PRINT "G) ROLL FOUR D6"
240 PRINT "H) ROLL TWO D20"
242 PRINT "I) ROLL D4 AND D6"
245 PRINT "Z) QUIT"
250 INPUT A$
255 IF A$="A" THEN 1200
260 IF A$="B" THEN 1300
265 IF A$="C" THEN 1400
270 IF A$="D" THEN 1500
275 IF A$="E" THEN 1600
280 IF A$="F" THEN 1700
285 IF A$="G" THEN 1800
290 IF A$="H" THEN 1900
292 IF A$="I" THEN 2000
295 IF A$="Z" THEN 3000

300 PRINT "====="
305 GOTO 200

1200 D=INT(1+4*RND)
1205 CALL CLEAR
1210 PRINT "YOU ROLLED A "
1212 PRINT "  /bd"
1214 PRINT " / ced"
1220 PRINT "/";D;"fg" 
1225 PRINT "^^^^^"
1230 PRINT "WITH D4"
1240 PRINT "====="
1250 GOTO 200


1300 D=INT(1+6*RND)
1305 CALL CLEAR
1310 PRINT "YOU ROLLED A "
1315 PRINT " *$$+"
1318 PRINT "!   -" 
1320 PRINT "!";D;"-"
1322 PRINT "!   @"
1325 PRINT " ^^^ "
1330 PRINT "WITH D6"
1340 PRINT "====="
1350 GOTO 200


1400 D=INT(1+8*RND)
1405 CALL CLEAR
1410 PRINT "YOU ROLLED A "
1415 PRINT "  }{ "
1420 PRINT " |/ ;>"
1425 PRINT "!/";D;";["
1430 PRINT " ~z^xy"
1432 PRINT "   w"
1435 PRINT "WITH D8"
1440 PRINT "======="
1450 GOTO 200


1500 D=INT(1+10*RND)
1505 CALL CLEAR
1510 PRINT "YOU ROLLED A "
1520 PRINT D
1530 PRINT "WITH D10"
1540 PRINT "====="
1550 GOTO 200


1600 D=INT(1+12*RND)
1605 CALL CLEAR
1610 PRINT "YOU ROLLED A "
1620 PRINT D
1630 PRINT "WITH D12"
1640 PRINT "====="
1650 GOTO 200


1700 D=INT(1+20*RND)
1705 CALL CLEAR
1710 PRINT "YOU ROLLED A "
1720 PRINT D
1730 PRINT "WITH D20"
1740 PRINT "====="
1750 GOTO 200


1800 D1=INT(1+6*RND)
1802 D2=INT(1+6*RND)
1804 D3=INT(1+6*RND)
1806 D4=INT(1+6*RND)
1808 CALL CLEAR
1810 PRINT "YOU ROLLED A "
1815 PRINT " *$$+*$$+*$$+*$$+"
1818 PRINT "!   -   -   -   -" 
1820 PRINT "!";D1;"-";D2;"-";D3;"-";D4;"-"
1822 PRINT "!   @   @   @   @"
1825 PRINT " ^^^ ^^^ ^^^ ^^^"
1830 PRINT "WITH FOUR D6"
1840 PRINT "================"
1850 GOTO 200

1900 D1=INT(1+20*RND)
1905 D2=INT(1+20*RND)
1910 CALL CLEAR
1915 PRINT "YOU ROLLED A "
1930 PRINT D1;"  ";D2
1945 PRINT "WITH TWO D20"
1950 PRINT "============"
1955 GOTO 200

2000 D1=INT(1+4*RND)
2005 D2=INT(1+6*RND)
2010 CALL CLEAR
2015 PRINT "YOU ROLLED A "
2020 PRINT "  /bd      *$$+"
2025 PRINT " / ced    !   -"
2030 PRINT "/";D1;"fg    !";D2;"-" 
2035 PRINT "^^^^^     !   @"
2040 PRINT "           ^^^ "
2045 PRINT "WITH A D4 AND D6"
2050 PRINT "================"
2055 GOTO 200


3000 END