|
|||||
|---|---|---|---|---|---|
| Home | The Company | Publications | Products | Links | Tips |
|
|
|||||
|---|---|---|---|---|---|
| Home | The Company | Publications | Products | Links | Tips |
Control Variable in NATURAL Programs
> > + Program : P01EXCV Lib:LBZIID9S
All ....+....1....+....2....+....3....+....4....+....5....+...MODE:Struct..
0010 DEFINE DATA
0020 LOCAL
0030 1 #MARK (A01/1:10)
0040 1 #NUMBER (N10/1:10)
0050 1 #CV-MARK (C/1:10)
0060 1 #CV-NUMBER (C/1:10)
0070 1 #I (P10)
0080 END-DEFINE
0090 SET KEY ALL
0100 REPEAT
0110 FOR #I = 1 TO 10
0120 IF #NUMBER (#I) = 0
0130 MOVE (AD=N) TO #CV-MARK (#I)
0140 MOVE (AD=N) TO #CV-NUMBER (#I)
0150 END-IF
0160 END-FOR
0170 INPUT USING MAP 'M01EXCV'
0180 IF *PF-KEY = 'PF3' ESCAPE BOTTOM END-IF
0190 END-REPEAT
0200 END
....+....Current Source Size: 454 Char. Free: 54338 +... S 20 L 1
Control Variable in NATURAL Maps
--------------------------- Extended Field Editing ------------------------
Array #NUMBER
Format= N10 NL= Rules:
ZP= OFF SG= OFF PM= HE=
AD= MYR CD= CV= #CV-NUMBER(*)
EM= Mode: User
001 --010---+----+----+---030---+----+----+---050---+----+----+---070---+---
Test Map
Mark Number
+X .E000000000
+X &0000000000
+X &0000000000
+X &0000000000
+X &0000000000
+X &0000000000
+X &0000000000
+X &0000000000
+X &0000000000
+X &0000000000
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12--
HELP Mset Quit <--- ---> Top - + < > Let
NATURAL Tips, Tricks, Techniques -- Overview