ZX Computings - OpenLibra

—
32) limiting the firing to ten shots,
037ADHK0 one on each key to keep it fair.
The shots information is held
2 0E$(1) by S$. We must now fire in
2J2; theorder 0,1,2,3 - 9. Add to
" AND C = 0; ma'" program:-
IDC>0; "=]
DDE C$(A +1 20 LETSS = "0"
" 160 IFA$S$ THEN
GOTO 120
300 LET SS = STR$(VAL
S$ + 1)
e program we3 IF S$ = "10" THEN
„ subtleties B GOTO 330
UMMER 1983 z x COMPUTING SUMMER 1982
We also wish to display the
overall "hit points" = H and
each time the target moves
we clock up "TIME" « T.
Add to main prograrn:-
40 LET H = 0
50 LET T = 0
140 LET T = T + 1
270 LETH = H + C* 10
280 PRINT AT 15,22;
"TIME = "; T; AT
1 7,22;"SH0T = ";S$;
AT 1 9,18;"HIT PTS. = "
;H
POKElng
330 PRINT AT 0,0;E$(1)
340 PRINT AT 0,6;"HIT
POINTS (-} TIME"
350 PRINT AT 2,6;
"OVERALL SCORE OF"
360 PRINT AT 4,1 3;H-T
370 IF H-T>300 THEN
PRINT AT 8,10;"WELL
DONE"
380 IF H-T>400 THEN
PRINT AT 8,10;"VERY
GOOD"
400 IF INKEY$ < > ""THEN
GOTO 400
410 IF INKEY$ =""THEN
GOTO 410
420 CLS
430 RUN
The object is now to try and
beat the 500 score using the
keys in order 0 - 9. To
complete the programme a
title and instructions should be
written in, at lines 440
upwards and end with a
GOTO 400 instruction.
Rather than fill a string full
of blanks why not DIM (1,32),
this makes the machine do the
work for us. Then use String
(1).
To extend on this idea why
not DIM a string (1.3 52) if we
now print this at 0,0; we will
clear the top half of the
screen. Also if we print this
String (1) at 11,0; we will
clear the bottom half of the
screen.
A simple way to print a
picture quickly is to print it via
a String. The easiest way is to
draw this picture on squared
paper. Then type in a direct
command FAST. Then line
number for example:-
10 LET A$ = "
this is now followed by the
rest of line being blanks.
So the first line is filled with
blanks then the picture can be
drawn in the normal manner as
seen on the screen. When the
picture is complete end the
quotes then new line. We can
now edit this line, rub out the
unwanted blanks at the
beginning and new line to
have our required picture in
the correct positioning.
Try this simple program:-
10 FAST
20 LET A$ = " "
30 LET B$ =" "
40 LET C$ =" "
50 FOR X = 1 TO 666
60 LET A$ = A$ + CHR$
((RND< 0.11 # 24)
70 LET 8$ =B$ +CHR$
{(RND