Roller Ball

Gallery

Source Code

  10 PRINT TAB 9;"ROLLER-BALL"
  20 LET H=3
  30 LET F=10*(RND*5)+1
  40 FOR G=1 TO 10
  50 PRINT "THIS IS ROLL NUMBER ";G
  60 LET F=F+3*RND
  70 PRINT AT 11,0;"WHERE WILL YOU ROLL(1 TO 100)?"
  80 IF G>1 THEN PRINT AT 18,8;"LAST ROLL WAS TO ";D
  90 LET C=1
 100 INPUT D
 110 IF D<1 OR D>100 THEN GOTO 100
 120 CLS 
 130 FOR E=1 TO 18
 140 PRINT AT 0,0;"%1%1%1%1%1%?%?%9%?%?%1%1%1%1%?%?%?%?%*%*%*%?%?%?%?%1%1%1%1%1%1"
 150 PRINT AT 18-E,C;CHR$ (43+E)
 170 IF E<18 THEN PRINT AT 18-E,C;" "
 180 LET C=C+D/F
 190 IF C>31 THEN PRINT AT 13,12;"% %W%I%L%D% %B%A%L%L% "
 200 IF C>31 THEN LET C=1
 210 NEXT E
 220 IF C<6 OR C>9 AND C<16 OR C>25 THEN LET K=1
 230 IF C>5 AND C<10 OR C>15 AND C<19 OR C>22 AND C<26 THEN LET K=9
 240 IF C>18 AND C<23 THEN LET K=50
 250 PRINT "YOU SCORED ";K
 260 LET H=H+K
 270 IF G>1 THEN PRINT "TOTAL SCORE: ";H;" FROM ";G;" ROLLS"
 280 NEXT G
 290 STOP 
 300 CLEAR 
 310 SAVE "1027%1"
 320 RUN