Content
Image Gallery
Roller Ball
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
People
No people associated with this content.