360 P.
370
GOTO
630
360
P. TAB(B>
i
"
MUST BACK UP 4
SPACES"
390
GOTO
590
400 P.TAB(B);"
MAY SPLIT THE
7 BETWEEN
"
410
P.TAB<S+3)|" Z
PIECES"
•120
GOTO 590
430
P . TAB C B )
;
"
MA Y
MOVE
BACKWARDS 1 SPACE"
440 GOTO 590
4S0 P. TAB(B)j"CAN
SWAP PIECES
WITH OPPONENT"
460
GOTO
590
470 P.
480
P.
490 IF B=0 GOTO 550
500
P.
"
GOTCHA <« <« <«
<«"
t
510
P.TAB(49>," SORRY
!"
52 P.
530
P.
540
GOTO
590
550
P. "SORRY! >>> >» >» >>>
"
;
560 P.
TAB
(
55
)
[
"
GOTCHA
!
"
570 P.
5S0
P .
590
FOR
X=1T04
600 P.
TAB!
30)
,
"
*
"
610
NEXT X
620 Y=Y*
[
-I
}
630 IF
Y>0
THEN
80
640
GOTO 100
650 D. 1,1, 1,1.
1,2, 2, 2,2, 3,
3, 3, 3, 4,
4, 4.
4,
5. 5. 5.
5. 7,7, 7, 7,
3,
8
660 0,8,8.10,10,10,10,11,11,11,11,12,12,12,12,13.13,13,13
Automatic
Ticket
Number
Drawer
like
to make
a big
splash at
the
next Rotary Club,
Country Fair, or other ticket
drawing
giveaway? This program uses the random number generator to pick the
lucky number(s) and eliminate charges of stuffing the ticket box, besides giving the
whole affair
some
pizzaz. If your own
number comes
up and you are
charged with
rigging
the
computer,
you're
on
your
own.
3 IN. "ENTER A NUMBER FROM 1 TO
100"
|N
4 F.I
=
1 TD N: J=RND ( 32 76
7
) : N . I
.
5 CLS
10 REM
*
PICKS WINNER(S) BY
DRAWING TICKET NUMBER
*
11
REM
*
NO MORE THAN 3Z767 TICKETS
CAN BE
SOLD
*
12
REM
*
BUT
TICKET NUMBERS CAN RANGE TO 999999 £ BEYOND
*
40 IN. "THE LOWEST
TICKET
NUMBER
IS"
|B
50
P.
70 IN. "THE
HIGHEST TICKET
NUMBER
IS
"
;
H
80 P.
90 E=H-B+1
91 IF
E<32768 G. 1 10
100 P.
"
TOO MANY
TICKETS SOLD!" i END
110 IN."
HOW MANY WINNERS DO YOU WANT
"
|W
120 CLS
130 IF W
>
E G.269
140 P .
141 P .
142 P
.
143 P.
1B0 P."
*
AND
THE
WINNING "j
182 IF W > 1 G. 185
183 P."
TICKET
15+
"
211
To Next Page
Loading...
