Test; Testr; Then - AMSTRAD cpc 6128 User Instruction

TEST
T EST ( <x co-ordinate> , <y co-ordinate> )
10 CLS
20 PRINT "You are using pen number";
30 PRINT TEST<10,386)
40 PRINT "Try changing PENs and MODEs";
50 PRINT " •..• then RUN again."
run
FUNCTION: Moves the graphics cursor to the absolute position specified by the <x
and y co-ordinate>s, and reports the value of the ink at the new location.
Associated keywords: MOV E, MOV E R, T ES T R, X POS, Y POS
TESTR
T EST R ( <x offset> , <y offset> )
10 MODE 0:FOR x=1 TO 15:LOCATE 1,x
20 PEN x:PRINT STRING$(10,143);:NEXT
30 MOVE 200,400:PEN 1
40 FOR n=1 TO 23:LOCATE 12,n
50 PRINT "pen";TESTR(0,-16):NEXT
run
FUNCTION: Moves the graphics cursor by the amount specified in the <x and y
offset>s relative to its current position, and reports the value of the ink at the new
location.
Associated keywords: MOV E, MOV E R, T EST, X POS, Y PO S
THEN
(See I
F)
Chapter 3 Page 84 Complete List of Keywords