Radio Shack TRS-80 User Manual page 196

SAMPLE ANSWER FOR EXERCISE
20-1
10
INPUT " STARTING HORIZONTAL BLOCK
(0
TO 127)
" ;H
20
INPUT
*'
ENDING HORIZONTAL BLOCK
(0
TO
127)"
;I
30
INPUT " STARTING VERTICAL BLOCK
(0 TO
47)"
;V
40 INPUT
" ENDING VERTICAL BLOCK
C0
TO 47)*'
;W
50 CLS
60 FOR X = H
TO
I
70 FOR
Y
=
V
TO
W
80
SET(X.Y)
90 NEXT
Y
100 NEXT
X
999
GOTO 999
SAMPLE
ANSWER FOR
EXERCISE
20-2:
The
following
lines
are changed.
The
rest are the
same.
50 FOR
L =
X
TO X+K*2+l
70 SETtL, Y+K+l
90
FOR
M =
Y
TO Y+K+l
110 SET(X+K*2+1
,M)
wmmmmmmmmmemmmmgmmsmmammmsamgsn
SAMPLE
ANSWER
FOR EXERCISE
20-3:
A.
MOVE
THE
DOT
UP
10
INPUT
"HORIZONTAL
STARTING POINT
(0
TO
127)'* ;X
194