184
G . 200
IBS
P.
"TICKETS
ARE
*"
200
P.
205
A(0)
=
210
FOR N
=
1 TO W
222 Z
=
RND(E)
260 P.
£62 P.TAB(12)|"
>
»> "
:
2
+
B
- 1
264 NEXT N
266 END
269 CL5iP.rP.iP. rP.rP,
:P.sP.
270 P.TAB{8)
I
"
YOU CAN'T
HAVE MORE WINNERS THAN"
272
P. "ENTRIES
-
DUMMY
!"
Craps
The game
is as old as history. A
testimonial to the intelligence
and ingenuity of our
ancient
ancestors.
An excellent way
to
demonstrate the running
of
twin Random
NumberGenerators.'
You don't need to know how
to
play the game the
computer will quickly teach
you.
(.
. . There's one
born
every minute .
,
.)
1 IN.
"ENTER A NUMBER FROM 1 TO
100"
lN
2 F. I=1TDN: J=RND(
32767) iN.I
10 REM
*
CRAPS GAME
*
20 CLS
30
CIDSUB
300;P=N
40 P. :P. "YOU ROLLED
****")
A
|
"
AND
",B|"****"
50
ON
P
GOTO
60.
120,120,
100,100,100.110.100,100,100.110,120
60
REM
*
USED
FOR THE ON
STATEMENT
IF
P=l
[WHICH
IT
CAN'T)*
100
P." YOUR
POINT IS" ;NtGOTO
130
110
PRINT
"
YOU WIN!"
:P,:END
120
PRINT
"
YOU
LD5E." 1P.1END
130 GOSUB 300:M=N
135
p.
t
p.
"you
Rolled
****"
i
a
1
"
and "iB,"****"
140 IF P=M THEN
1 10
150
IF
M=7 THEN 120
160
G. 130
300 A=RND( 6 ) ;B
=
RND( 6
)
: N=A+B
1
RET
.
310
RETURN
Fire
When
Ready,
Gridley
You have probably seen this popular graphics display
at
your Radio Shack
Store.
It is very well done, and due to
popular demand
is printed here. Little
boys
of all
ages are fascinated by it, and
it's great for showing off your
computer.
You will
want to
keep
this one on tape for fast loading.
CASTLE
SHOT
5 REM
*
CASTLE
SHOT
*
10
INPUT
"ENTER
YOUR
INITIALS"
;A*
20 CLS
30
2=7*
40
FOR
Y=17 TO
47
50 FOR X=Z TO
127
60
SET
{X.Y1
70 NEXT X
80 IF Y<23
THEN
Z=Z
+
2
200 NEXT Y
210
FOR
X
=
75 TO 123
STEP
4
220
SET (X, 16
)
230
SET
(
X+l
,
16 )
240 NEXT
X
250
Q=0
300
FOR X=95
TD 125 STEP
5
212
To Next Page
Loading...
