5 REM DRAGONS, DRUIDS, N DICE - ATARI 1.2

200 PRINT "DRAGONS, DRUIDS, AND DICE"
205 PRINT "A) ROLL 4D"
210 PRINT "B) ROLL 6D"
215 PRINT "C) ROLL 8D"
220 PRINT "D) ROLL 10D"
225 PRINT "E) ROLL 12D"
230 PRINT "F) ROLL 20D"
235 PRINT "G) ROLL FOUR 6D"
240 PRINT "H) ROLL TWO 20D"
242 PRINT "I) ROLL 4D AND 6D"
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 4D"
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 6D"
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 8D"
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 10D"
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 12D"
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 20D"
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 6D"
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 20D"
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 4D AND 6D"
2050 PRINT "================"
2055 GOTO 200

3000 END