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 |
|
| |
17 | L = |
|
|
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
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 |