5 REM DRAGONS, DRUIDS, N DICE - ATARI 1.2

200 PRINT "DRAGONS, DRUIDS, AND DICE"
205 PRINT "A) ROLL D4"
210 PRINT "B) ROLL D6"
215 PRINT "C) ROLL D8"
220 PRINT "D) ROLL D10"
225 PRINT "E) ROLL D12"
230 PRINT "F) ROLL D20"
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(1))
1205 PRINT CHR$(125)
1210 PRINT "YOU ROLLED A "
1212 PRINT "  _"
1215 PRINT " ";CHR$(6);" ";CHR$(7)
1220 PRINT CHR$(6);" ";D;" ";CHR$(7)
1225 PRINT CHR$(18);CHR$(18);CHR$(18);CHR$(18);CHR$(18)
1230 PRINT "WITH D4"
1240 PRINT "======="
1250 GOTO 200

1300 D=INT(1+6*RND(1))
1305 PRINT CHR$(125)
1310 PRINT "YOU ROLLED A "
1315 PRINT CHR$(17);CHR$(18);CHR$(5)
1320 PRINT CHR$(124);D;CHR$(124)
1325 PRINT CHR$(26);CHR$(18);CHR$(3)
1330 PRINT "WITH D6"
1340 PRINT "======="
1350 GOTO 200

1400 D=INT(1+8*RND(1))
1405 PRINT CHR$(125)
1410 PRINT "YOU ROLLED A "
1425 PRINT D
1435 PRINT "WITH D8"
1440 PRINT "======="
1450 GOTO 200

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

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

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

1800 D1=INT(1+6*RND(1))
1802 D2=INT(1+6*RND(1))
1804 D3=INT(1+6*RND(1))
1806 D4=INT(1+6*RND(1))
1807 PRINT CHR$(125)
1810 PRINT "YOU ROLLED A "
1815 PRINT CHR$(17);CHR$(18);CHR$(5);CHR$(17);CHR$(18);CHR$(5);CHR$(17);CHR$(18);CHR$(5);CHR$(17);CHR$(18);CHR$(5)
1820 PRINT CHR$(124);D1;CHR$(124);CHR$(124);D2;CHR$(124);CHR$(124);D3;CHR$(124);CHR$(124);D4;CHR$(124)
1825 PRINT CHR$(26);CHR$(18);CHR$(3);CHR$(26);CHR$(18);CHR$(3);CHR$(26);CHR$(18);CHR$(3);CHR$(26);CHR$(18);CHR$(3)
1830 PRINT "WITH FOUR D6"
1840 PRINT "================"
1850 GOTO 200

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

2000 D1=INT(1+4*RND(1))
2005 D2=INT(1+6*RND(1))
2010 PRINT CHR$(125)
2015 PRINT "YOU ROLLED A "
2020 PRINT "  _   ";CHR$(17);CHR$(18);CHR$(5)
2025 PRINT " ";CHR$(6);" ";CHR$(7);"  ";CHR$(124);D2;CHR$(124)
2030 PRINT CHR$(6);" ";D1;" ";CHR$(7);" ";CHR$(26);CHR$(18);CHR$(3)
2035 PRINT CHR$(18);CHR$(18);CHR$(18);CHR$(18);CHR$(18);" "
2045 PRINT "WITH A D4 AND D6"
2050 PRINT "================"
2055 GOTO 200

3000 END