Radio Shack TRS-80 Operation Manual page 52

Computer Graphics Operation Manual
- - - - - - - - - - - T R S - S O
® - - - - - - - - - -
1.0' DATA "OR", "AND", "PRESET", "PSET", "XOR"
2.0' CLR : SCREEN .0'
3.0' FOR Y= 1.0' TO
21.0'
STEP 5.0'
4.0' FOR X= .0' TO
4.0'.0'
STEP
2.0'.0'
5.0' LINE (X+4g,Y-5)-(X+lgg,Y+25),1,B
6.0' NEXT X
7.0' LINE (5g,Y)-(9g,Y+lg),1,BF
ag FOR X=
2.0'.0'
TO
4.0'.0'
STEP
2.0'.0'
9.0' LINE (x+sg,Y)-(X+7g,Y+2g),1,BF
1.0'.0'
NEXT X
11.0'
NEXT Y
12.0'
DIM vngg)
13.0'
GET
(5g,lg)-(9g,3g),V
14.0'
FOR N= 1 TO 5
15.0'
R= (N-l)*5+1
16.0'
READ A$
165 GLOCATE (136,R*lg),g
17.0'
PRINT #-3, A$;
175 GLOCATE (36g,R*lg),g
lag PRINT #-3, "= ";
19.0'
ON N GOTO
2.0'.0', 21.0', 22.0', 23.0', 24.0'
2.0'.0'
PUT
(45.0',1.0'),
V,OR: GOTO
25.0'
21.0'
PUT
(45~,6g),
V,AND: GOTO
25.0'
22.0'
PUT
(45~,11g),
V,PRESET: GOTO
25.0'
23~
PUT
(45~,16g),
V,PSET: GOTO
25.0'
24.0'
PUT
(45~,21g),
V,XOR
25.0'
NEXT N
26.0'
CMD "I", "GPRINT"
27.0'
SCREENl
~
OR
IJ
[rJ
~
AND
IJ
~
~
PRESET
IJ
[;;]
~
PSET
IJ
~
~
XOR
IJ
~
Figure 17
----------Itadlolhaell----------
-5.0'-