SAMPLE FORM CREATION
Figure C-12.
Source statement (1STFRM.FSL)
FDL VERSION B03 13:13 30-APR-XX PAGE 1
DISK-ID: 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 '7860-143-1';
000310
32
VER TEXT USING FONT 3 AT 66,-5 'F8662';
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 'UNITS-UNITS YTD' 'CURRENT AMT.' 'YTD AMOUNT'
000370
38
BOX 'UNITS-UNITS YTD' 'CURRENT AMT.' 'YTD AMOUNT'
000380
39
BOX 'UNITS-UNITS YTD' 'CURRENT AMT.' 'YTD AMOUNT'
000390
40
BOX 'UNITS-UNITS YTD' 'CURRENT AMT.' 'YTD AMOUNT'
000400
41
BOX 'UNITS-UNITS YTD' 'CURRENT AMT.' 'YTD AMOUNT'
000410
42
BOX 'UNITS-UNITS YTD' 'CURRENT AMT.' 'YTD AMOUNT'
000420
43
BOX 'UNITS-UNITS YTD' 'CURRENT AMT.' 'YTD AMOUNT'
000430
44
BOX 'UNITS-UNITS YTD' 'CURRENT AMT.' 'YTD AMOUNT'
000440
45
BOX 'UNITS-UNITS YTD' 'CURRENT AMT.' 'YTD AMOUNT'
000450
46
BOX 'UNITS-UNITS YTD' 'CURRENT AMT.' 'YTD AMOUNT';
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
C-7