
One last try to get the correct attached file
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