Help

Thanks,
Don Judy Software

[ Bc7lines.txt 3K ]
LINE1A$ = "School Name: \                       \  School Code: \     \  School Dist: \                  \    Month:   \              \    "
line01$ = "School Food Service Programs           (X) LUNCH PROGRAM               NUMBER OF DAYS SERVED: ##                                 "
line02$ = "Record of Participation and Income     ( ) BREAKFAST PROGRAM                    Completed By:                                    "
line03$ = "????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????"
line04$ = "3      3             MEALS SERVED          3                                                3                                   3"
line05$ = "3      ????????????????????????????????????                  INCOME                        3          CASH RECONCILIATION      3"
line06$ = "3      3       CHILDREN        3  {*filter*}S   3                                                3                                   3"
line07$ = "3      ?????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????"
line08$ = "3      3      3     3     3    3    3      3     MEALS      3 SPECIAL SALES  3OTHER INCOME  3 TOTAL  3 TOTAL  3        3        3"
line09$ = "3      3      3     3     3    3    3      ????????????????????????????????????????????????? INCOME 3 INCOME 3 OVER/  3        3"
line10$ = "3      3      3     3     3    3    3      3        3       3        3       3      3       3 BKFST  3 LUNCH  3 SHORT  3 BANK   3"
line11$ = "3 DATE 3TOTAL 3PAID 3FREE 3RED 3PAID3INKIND3CHILDREN3{*filter*}S 3CHILDREN3{*filter*}S 3SOURCE3AMOUNT 3        3        3        3DEPOSIT 3"
line12$ = "3  (1) 3 (2)  3 (3) 3 (4) 3(5) 3 (6)3 (7)  3  (8)   3  (9)  3  (10)  3 (11)  3 (12) 3 (13)  3  (14B) 3  (14)  3  (15)  3 (16)   3"
line13$ = "?????????????????"
line14$ = "3      3      3     3     3    3    3      3        3       3        3       3      3       3        3        3        3        3"
line15$ = "????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????"
line16$ = "???????????????????????????????????????????????????????????????????????????????????????????????????????????????"

LPRINT USING LINE1A$; UCASE$(reportsch.school); reportsch.schoolcode; UCASE$(reportsch.SCHOOLDIST); reportmonth$
LPRINT USING line01$; ldaysserved
LPRINT line02$
LPRINT
LPRINT line03$
LPRINT line04$
LPRINT line05$
LPRINT line06$
LPRINT line07$
LPRINT line08$
LPRINT line09$
LPRINT line10$
LPRINT line11$
LPRINT line12$
LPRINT line13$

   OPEN "lunch.tot" FOR RANDOM AS #2 LEN = LEN(ReportsL)
      Lf = LOF(2) / LEN(ReportsL)
      FOR I = 1 TO Lf
         GET #2, I, ReportsL

            IF ReportsL.lnUM2 > 0 THEN
               REM           1       2     3    4      5     6     7       8        9       10     11     12     13      14B       14        15      16
               line14$ = "3      3      3     3     3    3    3      3        3       3        3       3      3       3        3        3        3        3"
               line14$ = "3  ##  3 #####3 ####3#####3####3####3 #####3#####.##3####.##3 ####.##3####.##3 \  \ 3####.##3#####.##3#####.##3+####.##3#####.##3"
               LPRINT USING line14$; ReportsL.lnum1; ReportsL.lnUM2; ReportsL.lnUM3; ReportsL.lnUM4; ReportsL.lnUM5; ReportsL.lnUM6; ReportsL.lnum7; ReportsL.lnUM8; ReportsL.lnUM9; ReportsL.lnUM10; ReportsL.lnUM11; ""; ReportsL.lnum13;  _
ReportsL.lnUM14b; ReportsL.lnum14; ReportsL.lnum15; ReportsL.lnum16
           END IF

      NEXT I
   CLOSE #2