Dice

Date: 198x
Type: Program
Platform(s): TS 1000

Appears on

Assembled by Tim Ward from many sources. Contains programs 10051 – 10121.

Gallery

Dice

Source Code

   5 PRINT "   DICE"
  10 LET M=0
  11 LET Y=0
  20 PRINT AT 0,2;"HIGHEST SCORE IN 10 ROLLS WINS";AT 2,5;" YOU         ME "
  25 FOR I=1 TO 10
  30 PRINT AT 3,6;M;AT 3,19;Y;AT 16,11;"YOUR ROLL."
  35 GOSUB 180
  40 LET M=M+D
  45 PRINT AT 3,6;M;AT 16,10;" MY ROLL.     "
  50 GOSUB (200+10*INT (RND*6))
  55 LET Y=Y+D
  60 NEXT I
 100 STOP 
 180 PRINT AT 18,0;"PRESS ENTER TO STOP THE DICE."
 185 PRINT AT 9,12;" DICE ";AT 10,12;"      ";AT 11,12;"      ";AT 12,12;"        "
 190 GOSUB (200+10*INT (RND*6))
 192 IF INKEY$="" THEN GOTO 190
 199 RETURN 
 200 PRINT AT 10,13;" . ";AT 11,13;"   "
 202 LET D=1
 205 RETURN 
 210 PRINT AT 10,13;" . ";AT 11,13;" . "
 212 LET D=2
 215 RETURN 
 220 PRINT AT 10,13;".. ";AT 11,13;" . "
 222 LET D=3
 225 RETURN 
 230 PRINT AT 10,13;".. ";AT 11,13;".. "
 232 LET D=4
 235 RETURN 
 240 PRINT AT 10,13;"...";AT 11,13;".. "
 242 LET D=5
 245 RETURN 
 250 PRINT AT 10,13;"...";AT 11,13;"..."
 252 LET D=6
 255 RETURN 
 300 SAVE "1007%1"
 310 RUN 

People

No people associated with this content.

Scroll to Top