@L|}6CD l0C)HCC WhL/h `CmCDiD`  R@W1  Y0@R !L` D  C D     )16CS S)  C)D1 p p 0 C9DI pCDL~CiCDiD`&q@=7qJ&&K&L&ʩ * d5I&&&© 1 -L*I&˜ ' 4&0& 1&& *L}*& & 1 -& & 1 - - *`RUNTIME ERROR AT LINE &&Lr*+ +L&` '}& &L&PROGRAM STOPPED&&Ńł ȱ`iL'HH 1*L/ r* . 1 + '. . . }1 . ' 1 + . 'hhL.ʥ`HHhh`8L'u}`Huh` Lr*L' Lr*L' ) . ( . ' r* .Lo* ) } . ' , ( . ' + ' r* ' + 1 , . o*Lr* ) ' ' , ( . ' + ' r* ' + }1 , . (( . o*Lo* ' 1* '.L/` ) r* .L. ) . . + ' . ' ,L' ) ' , } ' . + 'L'J&K&L& ) 1 1,L&eJ&iK&`L&8LM& . '. }L&`ʔȱȱȱ 1*Șe惠 惨6,*6-* L*HHhh`` }`Lo*ʱ` ** &JL&J *HHl JLw TO BOOT FOR DOS} TO RERUNp B V8+` +ȱLr*&&8558凅刐SJj)ee`ф}фiiL#+8L#+ LM&uuuLr*8` +Lr*iLr*豂Hȱ}h`p +Lr*+H+ BHI+ 4 -h`8` ,L, ,#` ,0 ,0L, ,0}` ,0L,L,`޵` `Ȕ`ʔ惥u`}+ BHI DEH 4 -HyhLo* + -`+JJJJ`d-+e- +- c-0 c-Lr* J-Lr*}` f-H J-h 0 c-`L+8 0ƅ`66&Ln-HH` B VhH)Kh)0 IJD-EB 4hLr*S:+Lr*}TUVLo* -`++L+ -8ɰɅ +`ʱȱȱ`ȵȵLr*Lr* '. . .ʥ} . . '. .L3 '. . . . 1*uȱuȱu W* 1* .0 @,L3 ȱLr* T,L.ʵ}`eeLM&HHhh`ؐHH 1*L/ r*HH . .6 +i i} .i i .hh . . 'hh .`HH 1*% r*HH 1L'/ 1* '. LM& .6 + }. +` 1* '.ޠ . 1 +L/  o*Lr*H+ B Vh` ҵ  o*Lo*H+BHI 4+h+L1 g}0+KJBD0EH 4h o*Lr* r* '.0Ɔ򩛙0` -H`B 4h`00}L1Lr*Lr* +`H o*hL11HH eHHƆeiH '.lꦆ 1Օ`0  }L,`8`|1rd-1e- (- 10|1L1|10|1`1 r* '.1 1`+6-1L180}1LM& + 1 . 1 1 ++ 1 +Ɔʭ1 +`ʕ`66`HHH66666u}uuhhhLr* +愵 ' + 'I 1 280/66&&&`}uuu` 2 2Ј 2 o* +`@32@2 .22222 LM&ȥ2i}223`L*32 3`LM&2@82ƅ3 ȱ222` w3L?33L?3H3 2h` }1+ %  88L3 o* o*` o* o*`  o* o*` 3$' 3"0 !}30 !4L, 4L, 4L,L1L14 1 '. .4444`H+? ++HI4D44E4B 4H"}4h` VLM&4` D44 14α44 1L4 D44LM&44, α44ﭯ4 148e44α4 #}11L1  'Lr*hh iLr* (5L2 (5L*42&&ȱ0 5Lw5 555&$}& L5&&`i`J&&K&L&` +ȱ&&%8e慱HȱhױL&%}iJ&iK&Lr*+ BH Vh 1LW*+&BH 4hN 1 W*L 1MLW*+%BNLMH 4hLo*)}*1*N&}*W*v*11+,J2+,a,s,@,/,T,9,H,),**++++,,-------6.c./x///2:3}10000)///0090.444(4!4440&D'@('}f(()))V)4440T5\5A1+1d5355&(6@6j6S1@ @ "A@AYAAAAAAB(/B+3B-7B0;B2;B7MB9]B<rBABF(}B B B B B B C 'C 4C ?C sC C C C C D D 'D D D D E -E VE nE |E E E E! E& E0 )} F5 F: *F= .F? DFD ZFI pFN FS FX F] F_ Fb Gc Ge Gf 2Gg LG PG cG cG vG G G G G H H )H ]H H H *}H H H H I I .I NI YI I I I J J3J3JHJ^JkJ$J)J.J3J8K;&K=3KBSK[KtKyK~KK+}KL8LRLLLLLLL!M:M<BMABMFUMKpMPMRMUMWNXTNZXN_NaNdNiNkNnNpOsOx&O},};O?OkOoO oOOOO P5P"jP'P,P-P.P1P6P;P@QE=QJQOQTRY)R^RRcwRhRmRrR|ShS-}xSSSSST7TXT\TTTT!T&T+T0 U:$U?EUDIUNMUSUXUbUgU\UaUfUpVz;VdVV.}VVW%WNW~WWWX0X@XZXjXXXX$X.X8Y=YBj>j>1j>=j>Zj>jj>uj>j>j>j>j>j>6}j>j?j ?k?k ?+k*?7k4?[k>?kH?kR?k\?kf?kp?kz?k?k?l?l?Gl?\l?jl Nnl%Nnl*Nl/Nl4Nl9Nl>NlCNlHNlMNlRNm7}WN,m\NAmaNimfNmkNmpNmuNmQmQmQmQmQ nQnQ;nQCnQWnQnnQn RnRnDRnNRnSRnURnXR?o]RKobRTogR]olRfoqRoorRos8}RouRovRowRoxRoRpR'pR0pRPpRTpRXpRfpRxpRpRpRpRpRpRpRpRpRpRpRqUqU qUqU%qV}7y*+@64+@rB+@+@ +@Y+@y B.@++@N+@n B.@+21@4@}"!Reco?}rds across the page (1-16) 7@#:@=@ N*?D= C  ??D,?D, 'C @?@@?D,C@P@@  "@}Each record is C@ characters wide."Lines for each record (1-56) 7@!:@=@ N*?D=C  ?A}?D,?D,8 C @?F@?D, "Is this correct ٯ ? 2*.@D R}"S The purpose B}of the format report screen is to allow you to specify the format of one C@ by F@ record.@@D C}"? When the report is printed, the record will be duplicated @@ timesacross the page."D} for help, to exity*nE |E '*-#*%@"@i""@ "%@E} "' Press nter, elete, ist, ove,  for help or to exit.4K:7y*I@64I@EF}I@e DF I@DI@d ZF<I@MI@m pFI@LI@l F>*-#** I@I@F\I@+IG}@* F\I@-I@= F\I@\I@^ F\I@_I@| G\I@~G\I@G\I@XI@x 2GH}|I@?LG'*-#** & O@L@(cG R@%@ P"@U@C@"@ (@G GX@(@I}G$X@ @(R@G X@ @(R@GP"X@ @(R@U@HU@X@ @(R@ G%""@ "%@ J}" Enter field number (1-[@ ), for " text or to list fields7@:@=@ N*"K}?D=H ?DL=?Dl= H>*-#** ?DT=?Dt= H ?O@?D,@?U@O@^@(I`"O@O@L}[@ .I O@L@(O@L@( NI (@(@O@L@(I?R@R@O@^@( ../../..C ?R@R@O@M}^@( ?O@^@(FCa@O@W/a@O@^@(J?R@R@FC?R@R@a@O@WCO@W/O@^@(J?N}R@R@O@W/ O@WCd@O@L@(@O@d@d@^Jt"" Do you want numeric O} formatting (Y/N) 2*.@J(@g@( B"" How many decimal places (0-5) 7@#:@=@ N*P}.?O@?D,@?(@g@(O@(@g@((@g@( SK.(@ @(%@ P"@(@ @(@^@((@ @( (@@(Q}@* (@g@( (@@(O@(@ @(%@ P"@(@ @(O@^@((@ @( * ? A?(B??DBR}:@%@4@ 7@"@1@ =@U@=@7@'RL=@'7@ " Enter a maximum of =@ characters. N*S}R@%@ P"@?D=L?R@R@?D/ ?DCj@R@?D/ (@(@(@ @(%@ P"@(@ @(?D/(T}@ @( (@@(?.A?(B??DB* R@%@ P"@dMO@(@XM$R@O@ @(R@O@U} @(MPUXM% :@O@ @( P 7@O@ @(:@P 7@7@1@ :@:@4@ O@ @(O@ @( V}G$=@?X@O@ @(E57@X@'7@X@TN7@X@:@"=@-G%"% Are you sure you want to W}delete" this field ? (Y/N) 2*.@N* O@ @(O@ @(G$?X@X@ CG%*O@(@OX}O@(@G$X@ @(X@ @(X@ @(X@ @(G%(@ @((@ @((@g@((@(@  R@%@ PY}"@(@XM$R@O@ @(R@O@ @(OPXM% @?O@ @(O@ @(FAO@ @(O@ @(G$7@Z}X@O@ @( @7@7@@7@E5-C?X@X@ CG%") Move field using cursor controls.%@O@ @([} P "@O@ @(P%@  4K:7I@64m@"@p@%@I@-P%@%@ %@P%@I@\}=Q%@%@%@F@Q%@F@I@+=Q"@"@ "@=Q"@I@*Q"@"@"@C@O@ @(O@ @( ]}Q"@C@O@ @(O@ @( I@Q"@"@ "@Q"@I@R"@"@ "@C@O@ @(O@ @( R"@^}C@O@ @(O@ @( I@)R%@%@ %@)R%@I@RR%@%@ %@F@RR%@F@I@\wR"@"@& "_}@wR"@I@^R"@"@&"@C@O@ @(O@ @( R"@C@O@ @(O@ @( I@_R%@%@ %@`}R%@I@Rm@"@p@%@S-m@1@ p@4@ "?Pp@m@P Pp@m@P O@ @(O@ @a}( FR@P4@1@"@1@ %O@ @(O@ @( S1@"@%O@ @(O@ @( "@1@S1@"@%@4@ S4@b}%@ %@4@S4@%@""@ "%@ R@1@4@P7T*"@1@ %@4@ "@D-c}s@P%@"@P v@s@O@ @(O@ @( (@G$X@O@T!v@X@ @(s@X@ @(TPNG%@D/d}G$@X@X@@X@E5 -CG%?s@v@@DCO@ @(s@O@ @(v@"@1@ %@4@ "@D* "e} Field O@ overlaps field X@y@xy@Uy@y@ y@UX") Move field usinf}g cursor controls.-R@P4@1@m@"@1@ p@%@4@ I@-;V%@%@ %@;V%@I@=dV%@%@g}%@F@dV%@F@I@+V"@"@ "@V"@I@*V"@"@"@C@V"@C@I@V"@"@ "@h}V"@I@W"@"@ "@C@W"@C@I@%W%@%@ %@%W%@I@NW%@%@ %@F@NW%@Fi}@I@\~W"@"@& 1@1@& "@~W"@I@^W"@"@&1@1@&"@C@W"@C@I@_W%@%@ j}4@4@ %@W%@I@|X%@%@4@4@%@F@X%@F@1@C@% 0X1@C@% 1@@X1@4@k}F@ ZX4@F@ 4@jX4@I@X"@%@F@X%@%@y@i(p@m@y@Xy@y@ "@l}1@ %X1@"@% "@1@X1@"@%@4@ Y4@%@ %@4@Y4@%@""@ "%@ R@m}1@4@PTY**0 y@i(%@4@ "@1@ y@Yy@y@+=@C@1@ =@%Y=@%:@F@:@n}Y:@:@G$|@X@ P1@4@ PX@"?|@|@=@FG%*+"& Is your report formao}t correct ٯ 2*.@YZ (@gZ"$ You must have at least one field$ on your report. top} continue.Z(@Z R}"úұ", Now that you have formatted a req}port,*p* *+?D=d*+E+" Field O@ too long.@ @d@@}dt" " This space already in use.@ @Ee@@Te"  R33}"&"& COL: ROW: C@%e@&Z#@C}@@F@@ f@5!@#@@>@@#@F@@If+5!@#@@>@&~f@}@" +   33"PLACE" REPORT SYSTEM"PART-B  "IN "DRIVE #}@"PRESS " WHEN READYy*:g#y*Lg#+   33"}REMOVE" REPORT SYSTEM"PART-B "FROM "DRIVE #@"PRESS "} WHEN READY# 3  3"PLACE" PROGRAM DISK "IN "DRIVE #@ "P}RESS " WHEN READY#J$?@4@D7@?@T@@4+G$@X@X}@-BG%+@ D:HELP.SCRA6$*@ ix#*''?4 D:HELP.SCR7G'?@GAI}G$X@"}@D@GAIG%"" to continue, to exit.y*"@"@"@i8'"@it''4"}Hit to exit.jQ'%*6$*@j#*y'+}:@7@@+@@Keyboard entered fie}ldsA@s@>*@uj>@Program calculated fieldsA@s@>*@j>" to exity*}j>+7@jp?*:@kp?*:@kp?* ?:@"@Dp?*p?*[@G$X@L@(@X@L@(s}@ [k\?7@X@@(X@@( 'kp?*7@:@"FX@7@:@"@X@@(X@@( F7@U}  G%+:@:@7@:@k+?*:@}@@+"! to continue, to exity}*\l+jlPPP+??A@=@ l>N7@:@"?=@F7@:@"}K:7CN?y*O@6O@l?AO@O@ m4@?+O@~@,mkNO@AmO@O@ O@} O@z O@" =@@ imCN@@?@O@-BO@-CN?@B@@ ?F}CN@@@mQ@ D:BASIC.RA6$*@  n#*#*Q@@XM$@@D/O@-BXM%?}@DA??D/ dWB??D/ ?D/ FC@@DA6$*@n#*QU* 3 3 "& Loading} screen file information.4@D7[@[@HI[@@^@&[@@L@&[@@@&[@@&[@g@&@}@[@G$@HI@HI@HI@HIX@^@(@X@L@(@X@@(@X@@(@@@@}X@^@( @ @@X@^@(G%X@@(@X@@(@@@@@@@@ B[@G$@GAI}@X@@(X@@( @DCG%4@fpR4@D7=@H:@HI[@[@@G$@GAI@X@@}(@DBX@@(@D/@HIX@^@(@X@L@(G%4[@[@@+@@DC@@D/@WB@@D}/ :TEMP.FLEB@@DA6$*@\q@@+4@D7@H@HI@@4+@ @q+@P}&E4B=7FJ&&K&L&ʩ * d5I&&&© 1 -L*I&˜ ' 4&0& 1&& *L}*& & 1 -& & 1 - - *`RUNTIME ERROR AT LINE &&Lr*+ +L&` '}& &L&PROGRAM STOPPED&&Ńł ȱ`iL'HH 1*L/ r* . 1 + '. . . }1 . ' 1 + . 'hhL.ʥ`HHhh`8L'u}`Huh` Lr*L' Lr*L' ) . ( . ' r* .Lo* )} . ' , ( . ' + ' r* ' + 1 , . o*Lr* ) ' ' , ( . ' + ' r* ' + }1 , . (( . o*Lo* ' 1* '.L/` ) r* .L. ) . . + ' . ' ,L' ) ' ,} ' . + 'L'J&K&L& ) 1 1,L&eJ&iK&`L&8LM& . '.}L&`ʔȱȱȱ 1*Șe惠 惨6,*6-* L*HHhh``}`Lo*ʱ` ** &JL&J *HHl JLw TO BOOT FOR DOS} TO RERUNp B V8+` +ȱLr*&&8558凅刐SJj)ee`ф}фiiL#+8L#+ LM&uuuLr*8` +Lr*iLr*豂Hȱ}h`p +Lr*+H+ BHI+ 4 -h`8` ,L, ,#` ,0 ,0L, ,0}` ,0L,L,`޵` `Ȕ`ʔ惥u`}+ BHI DEH 4 -HyhLo* + -`+JJJJ`d-+e- +- c-0 c-Lr* J-Lr*}` f-H J-h 0 c-`L+8 0ƅ`66&Ln-HH` B VhH)Kh)0 IJD-EB 4hLr*S:+Lr*}TUVLo* -`++L+ -8ɰɅ +`ʱȱȱ`ȵȵLr*Lr* '. . .ʥ} . . '. .L3 '. . . . 1*uȱuȱu W* 1* .0 @,L3 ȱLr* T,L.ʵ}`eeLM&HHhh`ؐHH 1*L/ r*HH . .6 +i i} .i i .hh . . 'hh .`HH 1*% r*HH 1L'/ 1* '. LM& .6 + }. +` 1* '.ޠ . 1 +L/  o*Lr*H+ B Vh` ҵ  o*Lo*H+BHI 4+h+L1 g}0+KJBD0EH 4h o*Lr* r* '.0Ɔ򩛙0` -H`B 4h`00}L1Lr*Lr* +`H o*hL11HH eHHƆeiH '.lꦆ 1Օ`0  }L,`8`|1rd-1e- (- 10|1L1|10|1`1 r* '.1 1`+6-1L180}1LM& + 1 . 1 1 ++ 1 +Ɔʭ1 +`ʕ`66`HHH66666u}uuhhhLr* +愵 ' + 'I 1 280/66&&&`}uuu` 2 2Ј 2 o* +`@32@2 .22222 LM&ȥ2i}223`L*32 3`LM&2@82ƅ3 ȱ222` w3L?33L?3H3 2h`}1+ %  88L3 o* o*` o* o*`  o* o*` 3$' 3"0 }30 !4L, 4L, 4L,L1L14 1 '. .4444`H+? ++HI4D44E4B 4H}4h` VLM&4` D44 14α44 1L4 D44LM&44, α44ﭯ4 148e44α4 }11L1  'Lr*hh iLr* (5L2 (5L*42&&ȱ0 5Lw5 555&}& L5&&`i`J&&K&L&` +ȱ&&%8e慱HȱhױL&}iJ&iK&Lr*+ BH Vh 1LW*+&BH 4hN 1 W*L 1MLW*+%BNLMH 4hLo*)}*1*N}*W*v*11+,J2+,a,s,@,/,T,9,H,),**++++,,-------6.c./x///2:3}10000)///0090.444(4!4440&D'@(}f(()))V)4440T5\5A1+1d5355&(6@6j6S14B9B 9BuBBBBC-(C0,C2,C7>C9NC<cCA|CFC,CCCC}CCC dD}DDDD!D&E+0E0>EXNE]REhVErVE|hElE{EEEEEEEEEEFF7F}BF0MF5MF:RF?FDFIFNFXG]BGboGgGlGG HH1HEHmHHHHHHHH I IKIII}II J^JJJJK/KZKKKKL1L\LLLLL MM M*VM4hM>~M\MfMpMzMMM}*N9NMNaNsNNNNN O>O\OrOOOOO$O.#P89PBiPLPVP[P`PePPPPPQ}(QCQ^QyQQQQQQQRRR.R=RJRVRdR"RJRORT S^#S|'S>SQSgS{SSSS}SSSDSISN TS6TXATMTdTmTTTTTpTrTuTUU=UIUWUUUUUU VV"V?}VVV8WBWs#Wx#W}#*W#;W#TW#bW#tW#W#W#W#W#W#W#W#W#W# X##X#5X#EX#]X#wX#X#X#X#X#X}#X#X#X# Y$!Y $%Y$%Y$6Y$MY$dY"$|Y'$Y,$Y1$Y6$Y;$Y@$YE$YJ$YO$YT$YY$Z' Z'Z';Z'Z$'Z)'F[.'[0'[1'[3}'[5'"\8'O\='r\B'\G'\L'\Q']V'"]['R]`'u]c']e']g']j'^t'7^y'e^~'^'^'^'^'^'^'^'^'2_'6_'K_'r_'_'_'}_'_'_'_'`'%`'g`'k`'` (`(`(`*`*a + a+0a+Ha+Xa +ha*+wa/+a4+a6+a9+a>+bC+DbH+lbJ+bK+bL+bM+bR+}b\+ba+cc+cd+Kcf+Ych+kci+ck+cm+du+/dw+Sdz+~d|+d+d+e+"e+0e+Le+]e+ue+e+e+e+e+e+e+e+f+f+Pf+|f}+f+f+f+f+Cg+g+g+g+h+Kh+Oh+h,h,h,i$,i.,i8,2i,6i,ai,i,i,i,i,i,i,i,j,j,6j,Nj},Rj,ZjP-^jU-ljZ-j_-jd-ji-jn-js-k-!k-2k-6k-=k-Nk-}k-k-k-k-l-'l-[l-l-l-m.Wm .m.m.!n.fn.n".}n'.n,.o1.o6.p;.qp@.upB.pE.pG.pJ.pL.pO."qQ..qT.KqV.xqY.q^.qc.qh.qm.qr.qt.rw.,r|.4r.?r.Kr.or.{r.r.r.}s.s.4s.Gs.cs.s.s.s/s/s/5t/ht/{t/t!/t&/z>z}> {>{>4{>D{>O{>n{>~{>{>{>{>{>{>{>{?{ ?|?| ?-|*?9|4?]|>?|H?|R?|\?|f?|p?|z?|?|?}?}?I}?}^}?l} Np}%Np}*N}/N}4N}9N}>N}CN}HN}MN}RN~WN.~\NC~aNk~fN~kN~pN~uN~Q~Q~Q~Q~QQQHQ\QlQ{Q R}RDRNRSRURXRY]RebRngRwlRqRrRsRÀuRvRwRxRR5RARJRjRnRrRvRRRRRƁRځR}RRRRR(R:RKULUTVr VzVVVVVHq‚Rq‚\q͂fqڂpqy y5E}}R(5A@8A@;A@}2>A@AA@DA@GA@dJA@xMA@PA@dSA&VA&YA&\A&_A&2bA@5A.A5A(B5A5ADBPA"-ABeA}B$eAVA(hAeAYA(eA_A(eASA(eA\A(B%dB$eASA(B%,4K:7y*}kA64kAcCkAkA kAYkAy |CnA+kANkAn CnA+2Q* 33"úұ}"3 You may design up to 15 sections for your report.` A section is a portion of your report which contains record}s that meet certain specifications you have defined. " How many sections do you want (1-15) ? }qA tAwA N*>AD=D?zA>AD,zAzA E" Is this correct ٯ ? 2*nA>E}zA}A&zAA&'*e'AAA0*>A>AD/-B*AE+AEAEAAA}A EA0*+*AE+AEAA FA0*+AFAA AA7FA0}*+ABF+A0*+"AF +AF Syntax ErrorAFMis}matched ParenthesesAFBad character or functionAGNon numeric field in formulaABGEr}ror - Global FieldAoGError - Undefined P.C. FieldAGMismatched qoutesA GError - Bad} Date ConstantA GVariable Number Over 30" Hit to continue.@(A\}1H@(A" " @?"}+AAeAA?>AeAeAF =H>AeAeAF-=HA@?+>AeAeAFF= I\>AeAeAFV= I>}AeAeAF+=>AeAeAF-= KIA+>AeAeAF*=>AeAeAF/= >AeAeAF^= IA+>AeAeAF0:>AeA}eAF98>AeAeAF.= I>AeAeAF)=IA+>AeAeAF@=I>AeAeAF(= JA+>AeAeAF}<==>AeAeAF>== >AeAeAF<>= ^JAAA+>AeAeAF<=>AeAeAF>= >AeAeAF== JA}+>AeAeAFAND=JAAA+>AeAeAFOR=JAAA+>AeAeAFINT(=KAAA}+>AeAeAF'=/KV>AeAeAFSQR(=ZKAAA+>AeAeAFABS(=KAAA+>AeAeA}FEXP(=KAAA+>AeAeAFLOG(=KAAA+>AeAeAFSIN(=LAAA+>AeAeA}FCOS(=1LAAA+>AeAeAFATN(=\LAAA+>AeAeAFSGN(=LAAA+>AeA}eAFCLOG(=LAAA+A0eAeA>AeAeAF0:>AeAeAF98>AeAeAF.= M>?>Ae}AeAFE9M4eAeA>AeAeAF+=>AeAeAF-= VMeAeA$*tAahM>@?AeA A+A0}eAeA$*tAAtA MA0tAA(MA0AeA A+eAeA>AeAeAFA9>AeAe}AFN9>AeAeAFD9*NA0eAeA$*tAMNA0tAaNA 0AeA A+?>AA }A F@9N>AAAF/9>AAAF/9 NA>AAAF,A>AAAF,A>A}AAF,A>OAAAAAA AAA AA A \OA A rOA}AAA OAAOAAA A  A  OAAA +A 0}>AeAeAF0;>AeAeAF9< #PtA+tA>AeAeAF505 eAeA>AeAeAF0;>AeAeAF9< iP+tAtA >}AeAeAF505 eAeA+AAeAA>AeAeAF5PA0>AeAeAF'9PVA+eAAA}JAAAAeAAAJAD/>AeAE5(Q+>AeAeAFVA=CQ>AeAeAFVD=^Q>AeAeAF}VN=yQ|>AeAeAFF=Q>AeAeAF'=QD>AeAeAF@=QJAAA>AeAeAFCeAeA$*A}tAAYA(Rp*AYA(eAeA JAA>AAeAFBJAJAD/$BA\A(BAeAAEdRJA>}AeAeAF,A>AeAeAF,A>AeAeAF,OA>AeAeAF,A>AeAeAF,A>AeA}eAF,tA'AdAAAeA JAAtAWBeAeA$*AtAA_A(QSp*A_A(eAeA} JAA>AAeAFBAeAeAeA$*eAeA tASA(JAA>AAeAFBtAA(SJAJAD/$B}AeAJAA"-BeAeAAA>AeAeAF'96TJAA>AeAeAFBIJAA"-BAeAeAeA$*}AtAVA(AVA(Tp*AVA(eAeA JAA>AAeAFBAeAbA>ADAeAeA " En}ter prompt for variable bAAeAF :qAtAwA# N*" Are you sure ? 2*"nAWUu}A T$=PAD>ADPADAAbAAAFD=U"& What is the max length? (1-35) ..qA}tA"wA N*?A>AD,@?AA#  V"BAbAAAFA9?VA IL=B} :GOSUB 21000:bAAeAF$=R$AA8A IL=B :GOSUB 21100:bAAeAF=P1AA8}A GOSUB 21500:bAAeAF=ICAA>AbADAeAeA+   33"PLACE" REPORT} SYSTEM  "IN"PART-B "DRIVE #A"PRESS " WHEN READYy*}W#y*W#+   33"REMOVE" REPORT SYSTEM"PART-B "FROM} "DRIVE #A"PRESS " WHEN READY# 3  3"PLACE" PROGR}AM DISK "IN "DRIVE #A "PRESS " WHEN READY#   33"} SCREEN FILE >AD/ ">AD" NOT FOUND ON "DRIVE #A "PRESS " TO C }ONTINUE#J$?A4;AD7O$@?ATAA4+}" ԠƧ }"> Accept-if's are used to select records for the various Zsections of your report. You are allowed on }e Accept-if expression for each section.\New program calculated fields and variables can be used in addition to } existing fields.: Some examples of Accept-if expressions will follow. & See the manual for more informatio }n." to continue[1'}"" ԠƧ úұ" F}3 - Field 3 from record @12/12/83@ - Date constant VN1 - Variable numeric% VA1 }- Variable alpha-numeric VD2 - Variable date 'text' - String constants. Examples:}% Accept if: ALL (accepts all records) Accept if: L (lists fields)A Accept if: F1>3 AND F4ADL=>ADl= ^>*'*j'"$ Sure this is }a valid expression ? 2*"nA^j'>ADALL=^JA1A'h*A^j'*A_AA}_$AA(2_A_%AK_>ARA'" Do you want ecords, ummary, or oth ? qAt}AwA N*Hq*>ADR9>ADS9>ADB9_'>ADR=_A}A(>ADS=_AA(>ADB=`A}A(AA(}"A IF SECTION=A THEN ERR=NOT(JAD)AA ]%AA&AA&AA&AA&A}B$eAA(eAA(eAA(eAA(B%AzAB$eAA(`AB%A`+AaA}a$:*A0atAAA HatAAXatAqAwA N*>AD=wa +>AD=aM+>ADL}=>ADl= a>*:* + +?tA>AD,@?tAtAA a +tAA(tAA( a +AAtAA(}btAA(AAtAA(DbtAA(AAtAA(lbtAA(AAtAA(btA}A(AAb<*+*AbPR+ +a%\+" Summary full"Is your summary correct ٯ 2*n}Ac'}"& Would you like an overall summary? 2*nAYc+AAAA_$AA(}AA(cA_%Ac+}"G You have the option to include grand totals from your data }entry"program in the overall summary.AA" Grand totals:bdtAAVd$tAA(~d}<*Vd%"Number of items defined: AA" to skip, to list."Grand totals to includ }e? ..tAqAwA N*>AD="e+>AD=0e+>ADL=>ADl= Le>*k++?tA>AD,@?tAtAA ue+!}tAA(e+tAA(<*AAe|++AA"A+ "Please Wait. Working"}8A8AD/ 8AD/ FC4 8AD7AHAHAHAHAHAHIzAA4AAB$eAA(#}|fAAB%Af6320 FOR I=1 TO AAf6350 INPUT #3;X:GT(I)=XAf 6370 NEXT I1035 $}DIM VD$(8),TYPE(A),SP(A),PO(A),GT(A),SUM(A)1035 DIM VD$(8),TYPE(A),S%}P(A),PO(A),GT(A),SUM(A),PC(A),PC(A),LOF(A)AMA&}AB$eAYA(h+>AVAA>AeAWB>A>AD/$( B>A>AD/eA\A(WB>A>AD/)B,* eAPRT$='}VAeA$:GOSUB 22800:VAeA$=PRT$B%AB$eAA(eASA( h$,>AFA>AeAWB>A>AD/$( B(}>A>AD/eAA(eAA( WB>A>AD/)B,*B%MAD92iMADMAD,MAD=aiMAAWAMAMAD/ DIM )}B,MAD/>AD/xiMADMADMAAAA,MAMAD/, BMAMAD/>ADB+AbAA7010 P*}RINT #2;VD$2040 INPUT #2,VD$B$eAYA(j>AVAAP-*eA_A(6j>AVNAP-*eAVA(Nj>AVDAP-*B%+}-A ljd-AAA AAA AAj::>A>AD/eAWB>A,}FVA=j>A>AD/$B PRINT #2;>AD INPUT #2,>ADAA+ GOTO 320004AAA B$e-}AA(eAA( eAA( eAA( }k-A TRAP A:FeA=0:FeA =VAL(INFILE$(eAA(,eA.}A( ))AAB%A IF NRS=0 THEN 4400AhAAB$eAAA [l>APC( )A>A/}eAAA WCeAAA l>AF A>AeAWCeAA(lAAA SUM(A)=SUM(A)+>AD0}eAA(mA SUM(A)=>ADAAeAA(WmAAA IF SUM(A)<>AD THEN SU1}M(A)=>ADeAA(mA SUM(A)=>ADAAeAA(mAAA IF SUM(A2})>>AD THEN SUM(A)=>ADeAA(!nA SUM(A)=>ADAAeAA(fnAAA3} SUM(A)=SUM(A)+>ADeAA(nA SUM(A)=>ADAAB%AAA4}B$eAA(oAAA SUM(AA)=SUM(AA)+SUM(A)AAeAA(oAA5}A IF SUM(AA)SUM(A ) THEN SUM(AA)=SUM(A)AAeAA(qpAAA S7}UM(AA)=SUM(AA)+SUM(A)AAB%ApAAp$ASUM(AA8})=SUM(A)AAp%BAB$wAeAA(pwAeAA(eAA( eAA( "qwA wA .q^9}.AeAB(eAB(  BeAB(AE =AxqAA T.wAwAABwAqBwAB%AA:}AVd$tAA(qMATOTAL A|.*tAA(qMAMAXIMUM A|.*tAA(rMAMINIMUM A|.*tAA(,rMAAVERAGE;} A|.*Vd%.AAAMAD/MAABtAB(tAB( FBAMAD/ABrMAA BABrMA<}BBMAAMAAEB>AMADAHq*MA>ADAA R$=PADMADPAD:IC=SUM(A+X):GOSUB 5900AA+A=}AAVd$tAA(Gs.AAtAA( cs.MABtAB(tAB( FA>AMADAHq*MA>ADAA>} R$=PADMADPAD:IC=GT(A ):GOSUB 5900AAVd% 6700 DATA AzAB$,eA}A(?},eAA(B%AcAAB$eAA(htAAeASA({tD/eAAA tA @}FeA=PC(eAAA )AAD/eAA(t+/A PRT$=INFILE$(eAA(,eAA( A}):GOSUB 22400:IF ULFLAG$=PADYPAD THEN GOSUB 22800AAA FeA$=PRT$AAD/eAAB}(u5/A PRT$=INFILE$(eAA(,eAA( ):GOSUB 22500:FeA=ICAAD/eAA(C}v?/A TRAP A:FeA=0:FeA =VAL(INFILE$(eAA(,eAA( ))AAD/D}A FeA=GT(A)AAB%A TRAP 40000 GOTO 320004b/?!GAD74;A D:BASIC.RE}A6$*Aws#*0 222"LOADING PROGRAM " PLEASE WAITRUN PAD D:BF}ASIC.R AJR}"úұ"I A summary is a page of totals, maximums, minimG}ums, and averages of"8fields in a report section. Up to 30 items are allowed. "Totals:A A AH}Vd$tAA(x<*Vd%Ax.;AAA" Maximums:A AVd$tAA(x<*Vd%Ax.;I}AAA" Minimums:A AVd$tAA(@y<*Vd%ARy.;AAA" Averages:A J}AVd$tAA(y<*Vd%"Number of items defined: A" to skip, to list"EnteK}r a field number for whichA:za total is required. ..Adza maximum is required. ..AzL}a minimum is required. ..Azan average is required. ..+AA"tAAAA%zAAAM}+}qAtA BkAAAKeyboard entered fieldsAAA>* BO{>AAProgram calculated fieldsN}AAA>*AAGrand total fieldsAAA>* B{>" to exity*{>+tAO}{p?*qA|p?*qA|p?* ?qA"AADp?*p?*AB$eAA(AeAA(A ]|\?tAeAa}@+&J&&K&L&ʩ * d5I&&&© 1 -L*I&˜ ' 4&0& 1&& *Ld allows you to place a field on the report at your cursor position. To see a list of fields, type R}. To enter a field, type it's number. If a field will not fit in the desired location, a mesS}sage will appear. If you choose to enter text, the maximum length will be shown and you will be aT}ble to type on the format screen. elete - This command allows you to delete any field from theU} screen. To do this place the cursor over a character in the field and press . You then V}must confirm the delete before it occurs to avoid accidental deletion. ove - This command allW}ows you to move any field on the screen. To do this place the cursor over any part of the field X} and press . The field then becomes highlighted and you can move the field using the cursor movemY}ents. If you run into another field your field will overlap the old field, but it may not remain Z} there. You must move it to a clear position. When you have the field positioned where you want i[}t, press .ist - This command allows you to list all fields.(help)- This command will give you \} these pages of explanation.eit - When your format is complete press to leave the format screen]}. Ҡӛ KEY FUNCTION [-] Scroll up one line [=] Scroll down one line [+] Sc^}roll left one character [*] Scroll right one character [] Scroll up ten lines [] Scroll down ten lines _} [] Scroll left ten characters [] Scroll right ten characters [_] Page up [|] Page down [\] Page l`}eft [^] Page rightԛ While creating your report format you have several commands available. nter - This commanB(eAB( '|p?*tAqA"FeAtAqA"BeAB(eAB( FtAU  B%+qb}AqAtAqA|+?*qA} B B+"! to continue, to exity*^}+c}l}PPP+?>AABwA }>NtAqA"5AwAFtAqA"K:7CN?y*d}A6A}>AAAA ~4@?+A~B.~kNAC~AA A Az A" e}wAB k~CNBB>ABA-BA-CN>ABBBB 5AFCNAAf}A~Q;A D:BASIC.RA6$*A #*#*QB&AB$DAAA-B%8ADADAwA8g}AD/ 8AwAdWB8AwAwARC;ADADA6$*A#*QU* 3 3 "& Loading screen fiq}BSC2 EXEBSC3 EXEBaxBASIC R BjBASIC P PHELP BAKDHELP BAKBXHELP SCRle information.4DAD7AAHIAAB&AAA&AAB&AA&AB&AAA&r}BBAB$"BHI%BHI(BHI+BHIeAB((BeAA(+BeAB(BeAA(BBB%s}BeAB( "B BBeAB(B%eAB(BeAA(BB.BB@BB.B BAB$AAGAt}IBeAB(eAB( AADCB%4R?4GAD7wAHqAHIAAAB$AAGAIBeAB(AADBu}eAB(BD/(BHIeAB((BeAA(B%4 8AD78A8AD/ 8AD/ PC4 8AD7@?Av}AA+AGA D :TEMP.FLEAGAAWC;AGADA6$*AA.B+4GAD7AH.BHI.BAw}4+>AD=͂+>AD/B$>AeAeAFa:>AeAeAFz8>AeAeA>AeAeAF5 -CB%+1B 1B5+1B:}//MSKPRTRSCRSPFLAGINDEXINFILEDATGLBULFLAGLABELTLEHEDTIIDDINPOSPBETYPERRCRNUMFLDNU y}MTXNUMSESUMITEMFLDBPDFFEPSVDVDSECFLGFSFLTYPPAGSECTIOROCOPDIFKENOPPMBLANKOER z} @6@ {}@2@@@ |}!"@#@$@%&'@()*+@,-@q./0 }}123456789:;<=>? ~}@ABCSAVE "D:BASIC.RZAR@ }x-@A . STEP }ONEjj;@@,;@@,;@@,;@f$@,;@,;@$A,;@"$@9, ?-@ }F:AS,167,.>:F:AS%,,5 ? BZZ;@,;@,;@,;@"$@9,;@,; }@,;A,.A +'0@@A0@@ @84-@@4 Which drive will } hold yourB*-@@* data disk? (1/2)L16-@"6-@'6-@1 B V%01*02 B }% A` 6-A:,Apo 6.67,.IDXt 6.67,.GLB A0 A APD B }@/68@,-@D68@,-@-@@@@ }@" 68,-"68%@,-8,%%%68%@,-8,%@%&& -@@ }$$678,<8%@,&@,. @@@6-A:, 9,9% },9, @@ 2 6. #67@f$@,.267@,.Z67@,.!67@,.267A }a,.-B67A@,.Z67Ab,.7Aa,-@@( 68,-68,-68,-2  }7"A < 9,F-@P@Z67%A@,.d68%,-i68,-%B:,&@ }n x A @+@/-@@/ @ PLEASE PLACE/-@@/ @ } PROGRAM DISK.-@@. @ IN DRIVE #10-@@0 @ PRESS --@@ }- @ WHEN READY6-@ B$. STEP TWO4 6.What is today's date? H B }R 6.W 6-  . STEP THREE  A +'0@@ @A0@@ @ 9- }@@9 Do you want this report sent to --@@- creen or rinter?  16-@%6-@' }6-@21 B  0S*0PA0` 6. ! 4P B!A0` OPTIONAL SECTIONING 19@ },-@-68,-1   }-@@ Do you want all sections /-@@/ of t }his report? (y/n) 16-@'6-@'6-@21 B 0 4Y-@"68,-& 0 A5  } }6- 3-@@3 Enter a section number to 4-@@4 include in this report, or (-@ }@(  to exit .-@@. SECTIONS IN REPORT: 16-@ 6-@'6-@1 B }  4 B A5  A36-A:,  @)!)8,A3 46-P:'@@,4-%@&@@$ }%@  * 6-%@4 68,-> A3 UPPER LOWER CASE  }-@@ !! Do you wa }nt to ignore the 2-@@2 difference between upper /-@@/ and lower case? (y/n) 16-@' }6-@'6-@21 B  6.N4NA9 6.Y< A`TEST PAGE. STEP FOUR }A +'0@@ @A0@@ @0-@@0 Do you wish to sort? 16 }-@6-@&'6-@21 B4NAP_ A@c@@@@ D:SORT.BAS }K@U B_ A@p }-@@BB  Can't find >:@4, D:SORT.BAS>:@4, on disk. }-@@&9-@@9 Enter field to sort records by.6-@@6 (1 - , or to } list)? 16-@)6-@'6-@1 B+4L)4l B0! }+ A@p A@6-A:, }A-!**8,!*8, @7 BA AAP";-@@; Field  invalid. Enter for, }@-@@6 a list of fields to sort on.@ A@6M 6-6-#-@?8,!*8, @ }M6-%@8 ;ASC, OR DSC SORT@Q-@@ .-@@Q scending or escending sort?J }'6-@56-@'6-@2T# B #0A*0DAA^ 4D6-6h//@@D: }SORTPARS.DAT @8%@,&8,$ 6-8,!@$6-@! @! @4Y Ap }@% D:SORT.BASTO RUN CUCAS.P017@7@@ D:DVARS.TMP @ }! @! @4Y Ap@pzTEST PAGE }-@@$$ At } this point, you may print5-@@5 a test form to help line up5-@@5 your report on the p }rinter.:-@@:  Do you wish a test page? (y/n) 16-@66-@'6-@21 B4N }Ae BAc%6-6-2 6..#67@"$@8,.267@,.- }&@-&@ B`  <-@@< "Line up your printer and hit   }#6-@ B# B }-@@ Do you want another test(U-@@'  page? (y }/n) 36-@?6-@K6-@2U B24YAdd$XPRINT VARIABLESL @V-@ }` @8,j   $'PRINTER CHECK'6-@$'8 B`@8@@P: }.'6-8' B@B'$L'5-@@"+ 5 B@*+%%PRINT PAGE OF RE }PORT TO PRINTER ++3B:, @f$@367@f$@,. +''-@@f$@@ +37<%@ }y,*+ 4+$RSTRING INPUT R46-@6-@4B:,% @6B R1%B:, @9'6-@@&&B }:,1 BR)6-@!@5)6-@@&R }-@R# "@#6-F:@,&R B0 }R B$$lRNUMBER INPUTmR }nR46-@6-@4B:,% @6BqR1%B:, @9'6-@@ }&&B:,1 BrR)6-@!@5)6-@@&vR-@R# "@#6-F:@,R BR } B`6-A:,R B$RE-@@; !Invalid Number. Please Try Again.E BSDATE INPUTS }}S86-@6-@$6-B:,8 @(BS' @16-@2&' BT6-@T-@ } T,6-F:@,"@,6-&@T6-@ B$T% BP-@@% 8T 6-P:A }:7@<@,,,BT88"@)*"@*"@$P:'@,BLT++ @)) @1*@BVT?? }!@1)"@)"@)"@ )"@BPjT6-B$%A$%~T B$TK-@@ }9 Invalid date. Please try again.K-@@T BWFORMAT STRINGW B$@6-B:,6.W-@:7 },,"@2#6-&@- B$ W6.7@<,W B$YFORCE UPPER CASEYB:,"$$Y-@ }B:,.Y6-@:7,,8Y/!@* A#/67<,.>:&@2,BY   $YLIST FIELDSY4 }AR@ }(6-46-@Y6-@6-Y!!6.Keyboard entered fieldsZ%6-@6-@% B3Z }B1Z##6.Program calculated fields(Z%6-@6-@% B3:, >:,w }"Bpw&6-%@&7<,0/Bpw"6-%@ " Bpw) 6-6-&@)AR@ }w -% 7<,w"7<,4/"6-&@w867%@,.'AR. 8 BpwCONSOL C }ONTROLSw!!CONSOLE KEY START ,CN = 1,6w!!CONSOLE KEY SELECT,CN = 2,5w!!CONSOLE KEY OPTION,CN = 3,3x!!CONSOLE KEY O }PTION,CN = 4,?x LOOP x6-F:B2y,x"@*"@$x"@*"@$x"@*"@ }$x"@*"@$#x"@*"@$(x"@*"@$-x B%Px B Zx0Y*0 }N*0Bdx$x.@.@@K:xAR@x -x)!@1* @ }) >:%A(,x' @2)!@' >:A`,x)@x"AUB x"@'6.$x }!@1* @6-y'!@* A#'6-&@2y B y -6.>:, $y]@)0@ }@C0@@]0@@@"y$|y--@@"- 7@<@5,y }$|T&67@<@,.=:F:Ap,,76-B:,&@T67,.=:A%F:As,,|67<,.R|5 B0@ }5@@|K +AR@1-@@K Working. Please wait.||@ }+@|/-@@/ @ PLEASE PLACE|2-@@2 @PROGRAM DISK IN|5-@@ }5 @DRIVE #F:Ap,|0-@@0 @ PRESS |--@@- @ WHEN }READY|#6-@ B# B} }6. D:BASIC.P}5 B @@5@@} }B!(} B" B n}%}@+@}/-@@/ @ PLEASE PLACE}0-@@ =}L4]4MSKPRTRSCRSPFLAGINDEXINFILEDATGLBPNTULFLAGTLEHEDTDIIDINPOBETYPERRCRNUMFLDNUMTXN }UMSESUMITEMFLDBPDFFTSTEXTLOFSSECFLGNRNRSPSECTIOPENVDOVSUPAGPRTREPRTSUREERROFPCCOOOFA }LDIKEMBLANKIDX } @@ } !@"@#@$%&@'(@)*+@ },-./0123456789:; }<=>?@@ABCDEFGHIJK }LMNOSAVE "D:BASIC.P. STEP ONEjj;@@,;@@,;@@, };@f$@,;@,;@$A,;@"$@9, ?-@F:AS,167,.>:F:AS%,,5 ? B }(]];@,;@,;@,;@,;@,;@,;A,;@,)&6-F:Ap,&! }A0.A +'0@@A0@@ @84-@@4 Which drive will hold y }ourB*-@@* data disk? (1/2)L16-@"6-@'6-@1 B V%01*02 B %  }A` 6-A:,Apo 6.67,.IDXt 6.67,.GLB{67@<@,.1 A0 A } AP/ B@/68@,-@-@@@@ }@ 68,-68%@,-8,% @@@6-A: }, 9,9%,9, @@-@@( 68,-68,-68,-2 } <%%9%@,;@$@V,F%68@,-@%(AK-@P@Z678,,. }d68%@,-8,%B:,i68%,-n x A  68,- @ A @+@ }/-@@/ @ PLEASE PLACE/-@@/ @ PROGRAM DISK.-@@. @ } IN DRIVE #10-@@0 @ PRESS --@@- @ WHEN READY6-@ } B$READ IN TEMP VARS7@7@@ D:DVARS.TMP! B!READ IN VARIABLES }@ 6.N6.Y @ 9, -@ @68,-  } @ 44@3@ D:DVARS.TMP A`  CLEAR OUT SUMMARY  6- }6-ADJUST SEC. SUMMARY"$&$$OVERALL SUMMARY ADJUST  }"6-%$"$"AH 6-%$~ 6- $PRINT SUMMARIES } B6-A?(-67A0,.SUMMARY FOR SECTION #?67AQ,.=:,b&67A0,.OVERALL SUM }MARYG67@e<@r,. b67@x<@,.1 77*")"*")"AR }(AU6-w6-@|M#6.NUMBER OF RECORDS INPUT: C6-$+",%$+!,M AY B }$ 6-%A`6-@ (67%,.OVERALL(6-%@*67%,.6-%B:,467%,.=:, }>$pz. STEP SIXA +'0@@ @A0@@6 A`6- }6@@@6-%@67&@,.=:B%,)67&@,.7&@,)  }A`P Aa@ @@ Aa  Ai A` Aap6-@ }@67,.6-B:,%@ AaP226-A:7P:'@,$@%@,,&@$ Ab@ }3REORDER INDEX$ AS PER I018 B-@B3 6- 36-A:7$@&@<$@,,L/6-$@ }&@/6-@$&@VQQ67<%@,.=:A%@:7%@,,%@'$+@:7,,&@d,&@d,`W!67< }%@,.7%@,=6-@:7%@,,&@2I!@W6-&@dj!!67%@<%@,.>:,t  Ad }+@+@@@ B 8 6. #67@f$@,.267@,.86 }.Q 6.67@,.)67Aa,.-967A@,.Q67Ab,.7Aa,<FSTART PRINTING REPORTPZ }A +'0@@A0@@ @d?AR@? %Your report is now being produced ... }i #Ag"n56-@ A05CLEAR OVERALL SUMMARYs6-x-@{*67@x<@ },. *6-} "(8,Af`/ )6- A0/CLEAR SEC SUM6--@ }116-A:7@$&@<@$&@,,6-@:7@$,, BREAD IN RECORD ApCALC PC'S} AACCEPT/REJECT?Af0$ ) A@$ADJUST SEC SUM! A!PRINT RECORDS6-%}@ * * B*PRINT LEFTOVER REC'S-6- AP-PRINT SEC SUM& AF&ADJUS}T OVERALL SUM 16-@ AP1PRINT OVERALL SUM" +,1,1,1,1,1 +@/-@}@/ @ PLEASE PLACE/-@@/ @ DATA DISK IN,-@@, @DRIVE #} 0-@@0 @ PRESS --@@- @ WHEN READY6-@ B$&} +@+/-@@/ @ PLEASE PLACE02-@@2 @PROGRAM DISK IN5,-@@}, @DRIVE #:0-@@0 @ PRESS ?--@@- @ WHEN READYD6}-@ B$XbNEW PROG. CALC.'Sl$@JACCEPT/REJECTT"$(#2#PRINT RECORD}<#># BA#( BCLEAR PAGEF#4 " B B4PRINT AND CLEAR PAGEP#-@Z# 6 }-8,! 6.=:8&,,d#* *6.78,<8%@,&@,i#8,"6@An#( 6-8,(6-8%@ },&8,p# !6-8&,s#" Aw6-"6-A:,u# B B x#''678,%$$@%$%A@,. }# #"A0#-@#DD678%,%$$@%$%A@,.78,<8%@,&@,# # }16-%@"#6-16-%@#$'PRINT PAGE''67@f$@,. $' 4P B }$.'76-6-% B7PRINT TO SCREEN8'-@@ B'A"6-@0%H:,$AA6-@}%@$H:,L'2@ V';2@'6-'@;!? Bp`'.@.}@@K:j')@t',"@:?, B@" B, Bw'"@:P, Bz'"AU}$~' 6-6-'"@E6-&@'"@a6-%@'"@C6-&@'"@B6}-%@'"@(6-&@'"@)6-%@'"@06-&@'"@16-%@}'"@6-&@"'"A$6-%@"'"@6-&@@'"@6-%@@(} 6- (!@@6-@@( 6-(!@D6-@D(("*"B2(} BPRINT SCREEN<( B)PRINT WINDOW ON SCREEN)) }AR@")+-@!+6}-%@$+%,,))-) 7%@<%@@,6)J -@"J   ROWS %@ TO %@"} @)A-@ @"A COLS %@ TO %@@ J) -@5@" T)>-@@#}> #ۿ for help, to continue.^)$*+%%PRINT PAGE OF REPORT TO PRINTER ++3B:, @f$@36}7@f$@,. + BP$+''-@@f$@@ +37<%@y,*+ 4+$,,}CLEAR PAGE- -)6-6-)6-%@-67@p,.=:,-67@x,.=:,(-D67AA,. ,67}@f$@,.D67AB,.7AA,2-$ N*NINPUT RECORD4N>N+@+@@HN}2 6. #67@"$@9,.267@,.RN@\N-@fN''8, @)8,!@BpN}@zN$$678,<8%@,&@,.N 678,,.N@$UNUMERIC FORMATTINGU6-P:@}#%?P,U6-P:$%?P,'V""6E)EB  V"6-6@V# 6.=:,6-B:,#6-}%@V$-@7<,4.$6-"V 'V6. ,V%!B 6V67&,..000000@V7}67%@&&,.*67%@,.4 B7$JV. 6.*67&@,.+67@,..$WFORMAT STRINGW# B$ }@6.6-B:,#6.W-@:7,,"@2#6-&@- B$ W6.7@<,W B$WFORMAT DATE Y!}YMMDDW6- B%@W""6-A$A:7@,,%A:,X6-B$A:7@,,% X B$YFORCE UP"}PER CASEYB:,"$$Y-@B:,.Y6-@:7,,8Y/!@* A#/67<,.>:&@2,BY   $]:#} }@:  KEY FUNCTION ])()( [-] Scroll up one line.]((( [=] Scroll down$} one line.]--(% [+] Scroll left one character.]..(& [*] Scroll right one character.](]((( [] %} Scroll up ten lines.]**(" [] Scroll down ten lines.]//(' [] Scroll left ten characters.^00(( [&}] Scroll right ten characters. ^(^( [_] Page up.^( [|] Page down.$^( [\] Page left.'}.^( [^] Page right.8^(B^((( [P] Send page to printer.L^-(-(" [RETURN] Continue with reportV^.(}-@@".  to continue.`^ F:B2y,@BA`j^$aPRINTER CHECKa6-@a8 BP`)}@8@@P:a6-a B@a$aO-@@# .-@*}@#E O BP@0uFOOLPROOF INPUT ROUTINE:u4AR@6.(6-@46-+}Du!!"*"B`Nu -Bw(6..67,.(67@,.Lw ARVw-%@,} `w##@@K:jw)@ow'"AU** @'6-tw"@'6.~wL-}"AU)"@'+AR@2 =@I6-L$w"A&*Bpw%% @2)!A")".}Bpw'!67%@,.7%@<,'6-w67,.>:, >:,w"Bpw&6-%@&7<,0/Bp/}w"6-%@ " Bpw) 6-6-&@)AR@w -% 7<,w"7<,4/"6-&@0}w867%@,.'AR. 8 BpwCONSOL CONTROLSw!!CONSOLE KEY START ,CN = 1,6w!!CONS1}OLE KEY SELECT,CN = 2,5w!!CONSOLE KEY OPTION,CN = 3,3x!!CONSOLE KEY OPTION,CN = 4,?x LOOP x6-F:B2y,x"2}@*"@$x"@*"@$x"@*"@$x"@*"@$#x"@*"@3}$(x"@*"@$-x B%Px B Zx0Y*0N*0Bdx$x.@.@4}@K:xAR@x -x)!@1* @) >:%A(,x' @2)!@' >:A`5},x)@x"AUB x"@'6.$x!@1* @6-y'!@* A#6}'6-&@2y B y -6.>:, $y]@)0@@C0@@]0@7}@@"y$|y--@@"- 7@<@5,y$|T&67@<@,.=:F:Ap,,76-B:,8}&@T67,.=:A%F:As,,|67<,.P|5 B0@5@@|K +A9}R@1-@@K Working. Please Wait.||&6-F:Ap, AiP& B} }'6-B:,&@;}1B+&J&&K&L&ʩ * d5I&&&© 1 -L*I&˜ ' 4&0& 1&& *L6.'67<,.R} +@}B-B ((};-<}@@; ! Your report generation program2}f-@@f Lhas now been completed. It is saved on you@}0 @ REPORT SYSTEM},-@@, @ PART B IN}+-@@+ @DRIVE #1}0- >}@@0 @ PRESS ~--@@- @ WHEN READY~6-@ B$ D:B ?}ASIC.R//MSKPRTRSCRSPFLAGINDEXINFILEDATGLBULFLAGLABELTLEHEDTIIDDINPOSPBETYPERRCRNUMFLDNUr disk in two segments, called<}9-@@9 7@, and 7@,.F}b-@@ b H To run yoA}ur report program, take your data disk, now your programP}V-@@V :@4,D:7@,d}=-@@= #We wish you luck withC} your program.i} D:BASIC.PEXINFILEDATGLBPNTULFLAGTLEHEDTDIIDINPOBETYPERRCRNUMFLDNUMTXN & ԠŠΛ You will be given the opportunity to specify the number of records that will appeaE}r across the page and how many lines long each record will be. Remember to allow one space at the top or bottom F}of the format if you want a space between records above other records. When the report program runs, the format G}will be duplicated as many times vertically and horizontally as will fit on a pageo screen. ǠԠH}ԛ While creating your report format you have several commands available. nter - This command allows you to plaI}ce a field on the report at your cursor position. To see a list of fields, type . To enter a field,J} type it's number. If a field will not fit in the desired location, a message will appear. If you K} choose to enter text, the maximum length will be shown and you will be able to type on theL} format screen. elete - This command allows you to delete any field from the screen. To do thisM} place the cursor over a character in the field and press . You then must confirm the delete N} before it occurs to avoid accidental deletion. ove - This command allows you to move anyO} field on the screen. To do this place the cursor over any part of the field and press . The field P}then becomes highlighted and you can move the field using the cursor movements. If you run inQ}to another field your field will overlap the old field, but it may not remain there. You must move itR} to a clear position. When you have the field positioned where you want it, press .isS}t - This command allows you to list all fields.(help)- This command will give you these pages of explaT}nation.eit - When your format is complete press to leave the format screen. ҠU}ӛ KEY FUNCTION [-] Scroll up one line [=] Scroll down one line [+] Scroll left one character V}[*] Scroll right one character [] Scroll up ten lines [] Scroll down ten lines [] Scroll left ten chaW}racters [] Scroll right ten characters [_] Page up [|] Page down [\] Page left [^] Page rightha{ ԠŠΛ You will be given the opportunity to specify the number of records that will appeaY}r across the page and how many lines long each record will be. Remember to allow one space at the top or bottom Z}of the format if you want a space between records above other records. When the report program runs, the format [}will be duplicated as many times vertically and horizontally as will fit on a page or screen. ǠԠ\}ԛ While creating your report format you have several commands available. nter - This command allows you to p]}lace a field on the report at your cursor position. To see a list of fields, type . To enter a fiel^}d, type it's number. If a field will not fit in the desired location, a message will appear. If you_} choose to enter text, the maximum length will be shown and you will be able to type on t`}he format screen. elete - This command allows you to delete any field from the screen. To do tha}is place the cursor over a character in the field and press . You then must confirm the delete b} before it occurs to avoid accidental deletion. ove - This command allows you to move ac}ny field on the screen. To do this place the cursor over any part of the field and press . The field}d then becomes highlighted and you can move the field using the cursor movements. If you run e}into another field your field will overlap the old field, but it may not remain there. You must move f}it to a clear position. When you have the field positioned where you want it, press .g}ist - This command allows you to list all fields.(help)- This command will give you these pages of exph}lanation.eit - When your format is complete press to leave the format screen. Ҡi}ӛ KEY FUNCTION [-] Scroll up one line [=] Scroll down one line [+] Scroll left one character j} [*] Scroll right one character [] Scroll up ten lines [] Scroll down ten lines [] Scroll left ten ck}haracters [] Scroll right ten characters [_] Page up [|] Page down [\] Page left [^] Page right}AD,bAbAD" Is this correct ٯ ? 2*VAEbAeA&bAhA&'*e'kAnAqAm}0*&A&AD/-B*qAYE+tAgEtAEnAnAtAtA EqA0*+*qAE+tAEn}tAnA EqA0*+tAEnAnA tAnA FqA0*+tAF+qA0*+"qATF o} +qAqF Syntax ErrorqAFMismatched ParenthesesqAFBad characp}ter or functionqAFNon numeric field in formulaqAGError - Global FieldqAAGError - Undq}efined P.C. FieldqAcGMismatched qoutesqA GError - Bad Date ConstantqA GVariable Numberr} Over 30" Hit to continue.@(kA\H@(kA" s} " @?"+kAkAMAkA?&AMAMAF =Ht}&AMAMAF-=HtA@?+&AMAMAFF=H\&AMAMAFV=H&AMAMAF+=&AMAMAF-= ItA+&AMu}AMAF*=&AMAMAF/= &AMAMAF^= YItA+&AMAMAF0:&AMAMAF98&AMAMAF.= I&AMAMAFv})=ItA+&AMAMAF@=I&AMAMAF(=ItA+&AMAMAF<==&AMAMAF>== &AMAMAF<>= w}0JkAkAtA+&AMAMAF<=&AMAMAF>= &AMAMAF== lJtA+&AMAMAFAND=JkAkAtA+&Ax}MAMAFOR=JkAkAtA+&AMAMAFINT(=JkAkAtA+&AMAMAF'=KV&AMAMAFSQR(y}=,KkAkAtA+&AMAMAFABS(=WKkAkAtA+&AMAMAFEXP(=KkAkAtA+&AMAMAFz}LOG(=KkAkAtA+&AMAMAFSIN(=KkAkAtA+&AMAMAFCOS(=LkAkAtA+&AMAMA{}FATN(=.LkAkAtA+&AMAMAFSGN(=YLkAkAtA+&AMAMAFCLOG(=LkAkAtA+qA0|}MAMA&AMAMAF0:&AMAMAF98&AMAMAF.= L>?&AMAMAFE9L4MAMA&AMAMAF+=}}&AMAMAF-= (MMAMA$*\Aa:M>@?kAMA tA+qA0MAMA$*\AwA\A MqA0~}\AzA(MqA0kAMA tA+MAMA&AMAMAFA9&AMAMAFN9&AMAMAFD9MqA0MAMA}$*\ANqA0\A3NqA 0kAMA tA+?&AkA kA F@9fN&AkAkAF/9&Ak}AkAF/9 N}A&AkAkAF,A&AkAkAF,A&AkAkAF,AO}A}AAA}A}A }A}AA }AA A .OA }A DOA}AAA jOA}A}O}AAA A  A  OtAkAkA +qA 0&AMAMAF0;&AMAMAF9< O\A+\A}&AMAMAF505 MAMA&AMAMAF0;&AMAMAF9< ;P+\A\A &AMAMAF505 MAMA+kAkAMAk}A&AMAMAF5PqA0&AMAMAF'9PVtA+MAkAA2AAkAkAMAkAA2AD/&AMAE}5P+&AMAMAFVA=Q&AMAMAFVD=0Q&AMAMAFVN=KQ|&AMAMAFF=bQ&AMAMAF}'=yQD&AMAMAF@=Q2AAA&AMAMAFCMAMA$*A\AAAA(Qp*AAA(MAMA }2AA&AkAMAFB2A2AD/$BADA(AkAMAAE6RJA&AMAMAF,A&AMAMAF,A&}AMAMAF,OA&AMAMAF,A&AMAMAF,A&AMAMAF,\A'AdAAkAMA }2AA\AWBMAMA$*A\AAGA(#Sp*AGA(MAMA 2AA&AkAMAFBkAMAMAMA}$*MAMA \A;A(2AA&AkAMAFB\AzA(S2A2AD/$BkAMA2AA"-BMAMAAA&A}MAMAF'9T2AA&AMAMAFB2AA"-BkAMAMAMA$*A\A>A(A>A(NTp*A>A(MA}MA 2AA&AkAMAFBkAMAJA&ADAMAMA " Enter prompt for variable JAkAMAF :YA}\A_A# N*" Are you sure ? 2*"VA%UuA T$=8AD&AD8ADAAJAkA}kAFD=lU"& What is the max length? (1-35) ..YA\A"_A N*?A&AD,@?AA# }UAAJAkAkAFA9UA IL=A :GOSUB 21000:JAkAMAF$=R$AA8A} IL=A :GOSUB 21100:JAkAMAF=P1AA8A GOSUB 21500:JAkAMAF=ICAA&AJADA}MAMA+   33"PLACE" REPORT SYATEM  "IN"PART-B "DRIVE #A}"PRESS " WHEN READYy*W#y*W#+   33"REMOVE}" REPORT SYSTEM"PART-B "FROM "DRIVE #A"PRESS " WHEN} READY# 3  3"PLACE" DATA DISK "IN "DRIVE #A "PRESS }" WHEN READY#   33" SCREEN FILE &AD/ "&AD" NOT FOUND ON "}DRIVE #A "PRESS " TO CONTINUE#J$?A4#AD7O$@?ATAA}4+}" ԠƧ"> Accept-if's are used to select records for the v}arious Zsections of your report. You are allowed one Accept-if expression for each section.\New program calc}ulated fields and variables can be used in addition to existing fields.: Some examples of Accept-if expressions} will follow. & See the manual for more information." to continue[1'}}"" ԠƧ úұ" F3 - Field 3 from record @12/12/83@ - Date constant} VN1 - Variable numeric% VA1 - Variable alpha-numeric VD2 - Variable date }'text' - String constants. Examples:% Accept if: ALL (accepts all records) Accept if: L (list}s fields)A Accept if: F1>3 AND F4*'*j'"$ Sure this is a valid expression ? 2*"VA^j'&ADALL=^2A}1A'h*qA^j'*A^AwA^$AzA(^A^%A_&ARA'" Do} you want ecords, ummary, or oth ? YA\A_A N*Hq*&ADR9&ADS9&ADB9_'&ADR=_A}eA(&ADS=_AhA(&ADB=_AeA(AhA("A IF SECTION=A THEN ERR=NOT(2AD})AA ]%wAA&wAA&wAA&wAA&wAB$MAA(MAA(MAA(MAA(B%AbA}B$MAhA(`AB%A`+A`A`$:*A`\AAA a\AAa}\AYA_A N*&AD=4a +&AD=BaM+&ADL=&ADl= ba>*:* + +?\A&AD,@?\A\AwA a +}\AzA(\AzA( a +AA\AA(a\AA(AA\AA(b\AA(AA}\AA()b\AA(AA\AA(Qb\AA(AA`b<*+*AobPR+ +`%\+" }Summary full"Is your summary correct ٯ 2*VAb'}"& Would you like an overall summary?} 2*VAc+AAAwA^$AA(AzA(TcA^%Afc+}"G You h}ave the option to include grand totals from your data entry"program in the overall summary.AA"} Grand totals:d\AwAd$\AA(;d<*d%"Number of items defined: AA"} to skip, to list."Grand totals to include? ..\AYA_A N*&AD=d+&AD=d+&ADL=&}ADl=  e>*k++?\A&AD,@?\A\AwA 2e+\AzA(Ee+\AA(<*AAge|++AA}"A+ A AD/ AD/ FC4  AD7AHAHAHAHAHAHIbAA4AwA}B$MAzA(fAAB%1035 DIM VD$(8),TYPE(wA),SP(wA),PO(wA),GT(A),SUM(}A)1035 DIM VD$(8),TYPE(wA),SP(wA),PO(wA),GT(A),SUM(A),PC(A)},PC(A),LOF(A)A5AAB$MAAA(8g+&AVAA&AMAWB&A&AD/$( B&A&AD/MA}DA(WB&A&AD/)B,* MAPRT$=VAMA$:GOSUB 22800:VAMA$=PRT$B%wAB$MAzA(MA;A(} g$,&AFA&AMAWB&A&AD/$( B&A&AD/MAA(MAA( WB&A&AD/)B,*B%5AD9eh5AD5A}D,5AD=h5AAWA5A5AD/ DIM B,5AD/&AD/xh5AD5AD5AAAA,5A5AD/, B}5A5AD/&ADB+AbAA7010 PRINT #2;VD$2040 INPUT #2,VD$B$MAAA(Qi&AVAAP-*MAGA(i}i&AVNAP-*MA>A(i&AVDAP-*B%-A id-AAA AAA A}Ai::&A&AD/MAWB&AFVA= j&A&AD/$B PRINT #2;&AD INPUT #2,&ADAA+} GOTO 320004AwAA B$MAA(MAA( MAA( MAA( j-A TRAP A:FMA}=0:FMA =VAL(INFILE$(MAA(,MAA( ))AAB%A IF NRS=0 THEN 4400AhA}wAB$MAwAA k&APC( )A&AMAAwA WCMAwAA k&AF A&AMAWCMAA(kAA}A SUM(A)=SUM(A)+&ADMAA(4lA SUM(A)=&ADAAMAA(lAA}A IF SUM(A)<&AD THEN SUM(A)=&ADMAA(lA SUM(A)=&ADAAMA}A(mAAA IF SUM(A)>&AD THEN SUM(A)=&ADMAA(TmA SUM(A)=}&ADAAMAA(mAAA SUM(A)=SUM(A)+&ADMAA(mA SUM(A)=}&ADAAB%AAwAB$MAA(RnAAA SUM(AA)=SUM(AA)+SUM(}A)AAMAA(nAAA IF SUM(AA)SUM(A ) THEN SUM(AA)=SUM(A)}AAMAA(oAAA SUM(AA)=SUM(AA)+SUM(A)AAB%AoA}Ao$ASUM(AA)=SUM(A)AAo%AwAB$_AMAA(/p_AMA}A(MAA( MAA( Up_A _A ap^.AMAA(MAA(  AMAA(AE =ApAA T._A}_AAA_ApA_AB%AAwAd$\AA(q5ATOTAL A|.*\AA(#q5AMAXIMUM A|.*\AA(}Aq5AMINIMUM A|.*\AA(_q5AAVERAGE A|.*d%.AAkA5AD/5AkAA\AA(\AA( FBkA5AD}/kAAq5AkA BkAAq5AAB5AkA5AkAEB&A5ADAHq*5A&ADAA R$=8AD5AD8AD:IC=}SUM(A+X):GOSUB 5900AA+AAwAd$\AzA(zr.AA\AA( r.5AA\AA}(\AA( FA&A5ADAHq*5A&ADAA R$=8AD5AD8AD:IC=GT(A ):GOSUB 5900d% 6700 DATA A}bAB$,MAeA(,MAhA(B%AcAwAB$MAzA(sAAMA;A(}sD/MAwAA sA FMA=PC(MAAwA )AAD/MAzA(t+/A PRT$=INFILE$}(MAA(,MAA( ):GOSUB 22400:IF ULFLAG$=8ADY8AD THEN GOSUB 22800AAA FMA}$=PRT$AAD/MAzA(t5/A PRT$=INFILE$(MAA(,MAA( ):GOSUB 22500:FMA}&mB=7nJ&&K&L&ʩ * d5I&&&© 1 -L*I&˜ ' 4&0& 1&& *L}