SAMPLE FORM CREATION
Figure C-12. Source statement (1STFRM.FSL)
FDL VERSION B03 | 13:13 | PAGE 1 |
| ||||
ARIEL | VX.7 | R9.7 REL #5 | XX/XX/XX |
| |||
1 | FORM 1STFRM; |
|
|
| 000010 | ||
2 | GRID FMT1; |
|
|
|
| 000020 | |
3 | FONTS UN114A,UN106A,UN104C; COMMENT ***DRAW HOR LINES***; | 000030 | |||||
4 | AT 7 DRAW 18 LINES FROM 0 TO 132 USING HAI AND REPEAT EVE 3; | 000040 | |||||
5 | AT 8 DRAW 18 LINES FROM 0 TO 24 USING HAI AND REPEAT EVE 3; | 000050 | |||||
6 | AT 9 DRAW 18 LINES FROM 0 TO 24 USING HAI AND REPEAT EVE 3; | 000060 | |||||
8 | COMMENT *** DRAW VERTICAL LINES *** | 000080 | |||||
9 | AT 24 DRAW | VER LINE FROM 5 TO 61 USING HAI | 000090 | ||||
10 | AT 32 DRAW | 11 VER LINE FROM 5 TO 61 USING HAI AND REPEAT EVE 10; | 000100 | ||||
11 | AT 29 DRAW | VER LINE FROM 10 TO 61 USING BRO HAI; | 000110 | ||||
12 | AT 38 DRAW | 10 VER LINE FROM 10 TO 61 USI BRO HAI AND REPEAT EVE 10; | 000120 | ||||
13 | AT 8 DRAW 18 VER LINE FROM 8 TO 9 USI HAI AND REPEAT VER EVE 3; | 000130 | |||||
14 | AT 19 DRAW | 18 VER LINE FROM 8 TO 9 USI HAI AND REPEAT VER EVE 3; | 000140 | ||||
15 | COMMENT ***DRAW BOXES ***; |
| 000150 | ||||
16 | AT 2,2 DRAW BOX | 35 WIDE BY 2 HIGH USI HAIRLINE; | 000160 | ||||
17 | AT 2,82 DRAW BOX 50 WIDE BY 2 HIGH USI HAI; | 000170 | |||||
18 | AT 5,0 DRAW BOX | 132 WIDE BY 56 HIGH USI HAI; | 000180 | ||||
19 | AT 5.1,0 BOX 132 WIDE BY 1.8 HIGH USI SHADING; | 000190 | |||||
20 | AT 10.1,0 DRAW 9 BOXES 132 WIDE BY 2.8 HIGH USI SOL HAI | 000200 | |||||
21 | INK ©BLUE© | AND FILL USING INK ©XEROX.PICTORIAL.PALE BLUE© | 000210 | ||||
22 | AND REPEAT | VER EVE 6; |
| 000220 | |||
23 | COMMENT *** TEXT AT COMMAND ***; | 000230 | |||||
24 | TEXT USING | FONT | 2 | AT 2,2.5 ©COMP.©; | 000240 | ||
25 | TEXT USING | FONT | 2 | AT 2,11 ©BR.©; | 000250 | ||
26 | TEXT USING | FONT | 2 | AT 2,14 ©DEPT.©; | 000260 | ||
27 | TEXT USING | FONT | 2 | AT 2,22 ©DATE©; | 000270 | ||
28 | TEXT USING | FONT | 2 | AT 2,30 ©PP©; | 000280 | ||
29 | TEXT USING | FONT | 2 | AT 2,34 ©PAGE©; | 000290 | ||
30 | TEXT USING | FONT | 1 | INK ©BLUE© AT 3,47 ©EARNINGS REGISTER©; | 000300 | ||
31 | TEXT USING | FONT | 2 | AT 61,0 | 000310 | ||
32 | VER TEXT USING FONT 3 AT | 000320 | |||||
33 | COMMENT *** TEXT IN BOX COMMANDS ***; | 000330 | |||||
34 | TEXT USI FONT 2 | IN BOX 5.1,24 ©THIS PAY© BOX ©REGULAR© BOX ©OVERTIME©; | 000340 | ||||
35 | TEXT USI FONT 2 | IN BOX 7,0 ©NAME© | 000350 | ||||
36 |
| BOX ©GROSS© ©ADJ. NET© ©NET PAY© | 000360 | ||||
37 |
| BOX | 000370 | ||||
38 |
| BOX | 000380 | ||||
39 |
| BOX | 000390 | ||||
40 |
| BOX | 000400 | ||||
41 |
| BOX | 000410 | ||||
42 |
| BOX | 000420 | ||||
43 |
| BOX | 000430 | ||||
44 |
| BOX | 000440 | ||||
45 |
| BOX | 000450 | ||||
46 |
| BOX | 000460 | ||||
47 | TEXT USING | FONT | 2 | IN BOX 8,19 ©EMP.##©; | 000470 | ||
48 | TEXT USING | FONT | 2 | IN LEFT CENTER BOX 9,0 ©SAL/RATE©; | 000480 | ||
49 | TEXT USING | FONT | 2 | IN BOX 9,0 ©GROSS YTD©; | 000490 | ||
50 | END; |
|
|
|
|
| 000500 |
XEROX 4050/4090/4450/4650 LPS FORMS CREATION GUIDE |
