Canon Model 6401 B manual Clsinputloc Lgoto If M=1 then M=2 Else M=1 Goto, Next, If M0 then

Field Test Unit Software

13	CLS:INPUT“LOC	”;L:GOTO	3
14	IF M=1 THEN M=2 ELSE M=1
15	GOTO 2
16	L=L-4:GOTO 3
17	L = L-l:GOTO 3
18	L=L+l:GOTO 3
19	L=L+4:GOTO 3
20	CLS:INPUT“BLOCK”;B:GOTO		3
21	CLS:INPUT“PUT	VALUE ”; V:M =0:C = 1:GOTO 3
22	A$ = RIGHT$(HEX$(256 + B),2)

23A$ = A$ + RIGHT$(HEX$(256+ L),2) 24 A$ =A$ + RIGHT$(HEX$(256+ C),2)

25L$ = “”:IF M0 THEN 31

26FOR I=1 TO 4

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

28L$ = L$ + RIGHT$(HEX$(256+J),2)

29NEXT I

30B$ = A$ + LEFT$(L$,C*2)

31INPUT#l,“COM:”,8000:ON ERROR GOTO 42

32	INPUT #1,L$: IF INSTR(L$,“*”) = 0 THEN 32
33	IF M0 THEN 35

34PRINT#l,“P” + B$;:M = 2:C = 4

35PRINT#l,“G” + A$;:INPUT#l,L$

36 PRINT#1,“KKK”;:ON ERROR GOTO 0:V = 0

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

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

41 RETURN

42 RESUME

Section 6. NFTU COMMANDS 31