5) DIE THROWING (440 B)
To use: LOAD 1, RUN 500
"\A" means: press SHIFT and A

510 REM
520 REM DIE THROWING
530 REM
540 LET A$="\A   \A"
550 LET B$="  \A"
560 LET C$="\A"
570 LET D$="    \A"
580 RANDOMISE
590 LET X=RND(6)
600 PRINT "YOUR THREW IS ";X
610 GOTO X*60+560
620 PRINT ""
630 PRINT ""
640 PRINT B$
650 PRINT ""
660 PRINT ""
670 GOTO 970
680 PRINT C$
690 PRINT ""
700 PRINT ""
710 PRINT ""
720 PRINT D$
730 GOTO 970
740 PRINT D$
750 PRINT ""
760 PRINT B$
770 PRINT ""
780 PRINT C$
790 GOTO 970
800 PRINT A$
810 PRINT ""
820 PRINT ""
830 PRINT ""
840 PRINT A$
850 GOTO 970
860 PRINT A$
870 PRINT ""
880 PRINT B$
890 PRINT ""
900 PRINT A$
910 GOTO 970
920 PRINT A$
930 PRINT ""
940 PRINT A$
950 PRINT ""
960 PRINT A$
970 PRINT "HIT NEWLINE TO THROW AGAIN"
980 PRINT "OR ANY CHAR+NEWLINE TO QUIT"
990 INPUT X$
1000 CLS
1010 WAIT(99)
1020 IF X$="" THEN GOTO 590
1030 STOP