### Appears on

Assembled by Tim Ward from many sources. Contains programs 10252 – 10293.

### 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