Laser Printing Systems Forms Creation Guide

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