Canon Model 6401 B Manual Do Utilizador

13

14

15

16
17
18
19

20
21
22

23
24
25
26
27
28
29
30
31
32
33

34
35

36
37
38
39

40
41
42

CLS:INPUT“LOC  ”;L:GOTO  3
IF M=1 THEN M=2 ELSE M=1
GOTO  2
L=L-4:GOTO  3
L = L-l:GOTO  3
L=L+l:GOTO 3
L=L+4:GOTO 3
CLS:INPUT“BLOCK”;B:GOTO  3
CLS:INPUT“PUT  VALUE  ”; V:M =0:C = 1:GOTO  3
A$ = RIGHT$(HEX$(256  + B),2)
A$ = A$ + RIGHT$(HEX$(256+ L),2)
A$ =A$ + RIGHT$(HEX$(256+ C),2)

L$ = “”:IF  M0 THEN 31
FOR I=1 TO 4

J=V AND &HFF:V=V/256

L$ = L$ + RIGHT$(HEX$(256+J),2)
NEXT I
B$ = A$ + LEFT$(L$,C*2)

INPUT #l,“COM:”,8000:ON  ERROR  GOTO  42
INPUT #1,L$:  IF INSTR(L$,“*”)  = 0 THEN 32
IF M0 THEN 35
PRINT#l,“P”  + B$;:M = 2:C = 4
PRINT#l,“G”  + A$;:INPUT#l,L$

PRINT#1,“KKK”;:ON  ERROR 

GOTO 0:V = 0

IF M  =2  THEN  RETURN
FOR I=0 TO C-1

J = (I*2)  + l:V = V + (VAL(“&H”+ MID$(L$,J,2))*256^ I)

NEXT I
RETURN
RESUME