@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` D  C D     )16CS S)  C)D1 p p  }0 C9DI pCDL~CiCDiD` DD˙` d J)L ! }D L(( LL()  L| L( S LH 0p n   } CY?  q  L L  ` ) } `A! d߰")-݆ "  $G@LLL&0") $G% }H0 3S8`G ȱG ȱG   Gȭ Gȭ GG}GHiH8(()) G$H% `(0 })8` d)L ݆ & LGȘ ݆LL d  ! LL d)N>Q  HH) }  hyhyB q L> Lm JJ  Ln*` dB%' }8  H H` 1 { LL   !L     Hh SY?  q  1L }  !? S   q 1 L   Ll  Lg E`L   !L)  q 1L }) `L0AM݊L݉ ML  N݆LLLNLMLHG!@ }1F GȱGLLEEȩÑEȑEEȑE Ed E7EȩE  q } L !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF } G) *Gȩ GȽG GȌd q q G`  8   0G  `D }CEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?A[ 0 : L`L  `, 0`Y }`piH n0)բY? 08`0  }  0$L GGȽG L `8L`L }8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE` }E8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTE } H8EEȱEEȩEh J E8   . m  i`LI!)E1FR }1LJ舩9GIH`LJJ`HGHh l` } S gL   8 rii `дCDCG W  }C  Lq` X٨`DOS SYS IIIIIIIIIIIIIIIC`0 ߩ0}} } |||DDOS DOSDOS SYS } } }rr }CDOS SYS } 0`BDELV !B }`LVUQ   ]   TU J ]L!T  #      TU  } L ? .  t`GBJ V~DEHI B V0dV !}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh "}DEL8HI   0 HI,0 0  9 .G VLO #},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI $} V0 0`B;DELV䌚 !B y`@ʆ v s? F0Ξ05: [ BDEHI %} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J V (` 9 V⪍ ઍ  - '}LLu DEHILV 9 .l 9 .l  `` s$B VBH (}I|DE V BLV nB,DE J V* \*` B V BLVDEHI BLVL )}1u H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@ Ҡ2e *}1i1232435ޥ<<8 }EiͩkΩ͙kCop j`j {j`Hi͝Νh`$,}L"UNEM:D"NURͩkΩ͙kCop j`j {j`Hi͝Νh`$!"$"DDFIL2FILSYNLWORKYFILEWRTFIL1AENAMEFRSTPAADCIZIPNAEZIPPHGRSEXSANAME25(.}YBANNAD@ (/}@@(0} !"#$%&'()*+,(1}-./0123hh;@%,;@%,;@%,;@,;@,;@(2},;@,;@,;@,11;A ,;@,;@,;@%,ZZ;@%,;@%,;@,(3};@,9@P,9@P<@,;@%,""VERSION 3.0 BY ROLAND FETZER*** RECOVER VARIABLES ***&&;(4}@%,;@%,;@,"7@7@@ D:WRITE.VA2,@6@6.(5}@*** SCREEN COLORS ***J//A@APA`ApAT1AAH'A @1 A(6}^1A@T'A @1 Ah1A@V'A 1 Ar1AA''A (7}@1 A|1A@'A @1 A4D2:AS(>:A%,"-@(8}@K($PLEASE PUT DISK INTO DISK DRIVES6. /(+(IS DISK IN DISK DRIVE(Y/N)/$$7@<@(9},0YA A --*** ENTER NEW FILENAME (SUBROUTINE) ***e(>:A%,"-@@e(>THE NEW FILENAM(:}E FOR MAILMERGE SHOULD HAVE AN EXTENDER OF (($(WHAT IS THE NEW FILENAME(16-6-B:,167@<(;}%@,.367@<@,.36.7@<%@,9@+@@6@9$ (<}A ))*** FILE SELECTION (SUBROUTINE) ***16-6-B:,167@<%@,.667@<@,.3(=}6.7@<%@,6$*** MENU ***k A (>:A%,,-@@?(ŠJ@U@(>}`@k@%(%( 1. FILES ON THE DATA DISK$$( 2. MAILMERGE AN ENTIRE FILE&((( 3. MAILMERGE INDI(?}VIDUAL RECORDS0++(# 4. RETURN TO SPECIAL FUNCTION MENU:( 5. RETURN TO MAIN MENUD( 6. ENDN$( ( SELECT(@} A NUMBER$XU  @)!@)P:,#(K(# ERROR - USE A NUMBER FROM 1 TO 6U Ab77A0A@A(A} A%A'A)l$v A` A + Ap A p! A+ A  *** FILES ON DATA (B}DISK ***; A`4D1:;@@D1:*.*; A`4D2:;@@D2:*.(C}*(>:A%,3@37@<@,4707A`++@:7@<@,,!@GA0(A(D}@( A@:7@<@,, @GA@'(!( FILES ON DISK$('(>(:(.DO(E} YOU WANT TO USE ONE OF THE ABOVE FILES(Y/N)>-(-("PLACE A DECIMAL POINT BETWEEN FILE++(#NAME AND EXTENDER. EXMP(F}L: CLASS.602 $$7@<@,4YA $$7@<@,4NA  $*$$*** NEW FILE FOR MAILMERGE **(G}*4'(#(PLEASE TYPE IN FILENAME'> AH A R$\++*** GET SECTOR & BYTE # LOCATIONS ***fN A 0(H}*@@66-B6-N6-p@ze@C7@<@,4(I} )7@<@,4ENDO6-[6-e A6-%@%68<,-%68<@,- A(J}+F:A,"A6#@+6. 4YESA$*** SELECT FIELDS ***, A 6. (K} ,(>:A%,+(%( THE FIELDS ARE:((+(R( 1. STUDENT$( 2. PARENT5( 3. ADDRESSC(4.(L} CITYR(5. STATEk(6. ZIP(7. PHONE.(8. GRADE;(9. SEXG6-S6-_6-k6-(M}W A-@@S(.SELECT THE AND THE FIELD YOU WANT TO USEWQ  @)!@ )P:,G((N}" ERROR - USE A NUMBER FROM 1 TO 9Q A(6-%@68,-(6-%@H(*(DO YOU WANT ANOTHER FIELD(Y/N(O}).@-@3@H( 9-@@ )(Ӡ5-@!9($@7@<@,4Y.-@ (P}@6( @ A.$8&&*** OPEN FILES FOR MAILMERGE ***B6-@L+@+@@ (Q}V%6-8<,%6-8<@,`+@+@@j4 AP@)@(R}4@t!!*** SAVE FIELDS TO DISK ***~-@6-8,"@A8,"@A(S}P8,"@A8,"@Ap8,"@A08,"@A`8,"@(T}A8,"@AP8,"@ A 6-%@ A*** STUDENT *** 6.(U}7@<@%, -@%@6@7<,0>:@2,A0( 2% @7@<,% A`(V}<*** PARENT ***F6.7@&<@P,P -@%@6@Z7<,0>:@2,Ad n% @(W}7@<,% A`x*** ADDRESS ***6.7@Q<@u, -@%@6@7<,0>:@2(X},AP % @7@<,% A`*** CITY ***6.7@v<@, -@@6(Y}@7<,0>:@2,A % @7@<,% A`*** STATE ***6.7@<@(Z}, @ A`*** ZIP ***6.7@<@," @ A`,*** PHONE ***66.([}7@<A,@ -@ @6@J7<,0>:@2,A0T ^% @7@<,% A`(\}h*** GRADE ***r6.7A<A,| -@@6@7<,0>:@2,A % @(]}7@<,% A`*** SEX ***6.7A<A, @ A`$""*** CLOSE MAILMERG(^}E FILE ***<@@$@/@2'< A!!*** TRAP FOR EMPTY DISK ***_(>:A%,"-@(_}@=(NO FILES ON THIS DISK!Q-@AU _ A $,,*** GET ANOTHER FILE FOR MAILMERGE ***(`}"@A Z(>:A%,"-@@V(.DO YOU WANT TO MAILMERGE ANOTHER FILE (YES/NO)Z4NO(a}A F 4YES(.(WHAT IS THE NEW FILENAME2< AF Ap0$:*** SEARCH A NAME ***;6-(b}6-'6-/6. ;6-d(>:A%,((((("(%(((+(`(/ENTER THE LAST NAME OF THE R(c}ECORD THAT YOU WANTd5 A P@5@@B@@B7@<@(d},4ENDA p337@<@,07@<@,A 0#F:A,"A6#@ ?(>:A%,((e}((9( 7@<@%,<(?(Q( ($7@<@,4ENDQ((END OF FILE! - SELECT ONE OF THE OPTIONS(f},(,(!TO START SEARCH AGAIN PRESS *(*(TO CONTINUE SEARCH PRESS  &(&(TO ACCEPT NAME PRESS /(g},(,(!TO SAVE ALL RECORDS TO DISK PRESS0( AND 4 F:B2y,"@A > F:B2y,"@A"(h}H;F:B2y,"@167@<@%,. ; A 0M F:B2y,"@A#O-@@ R(i} A!=6-%@"68<,-368<@,-= A ! A p A! A ` $ 4D2:(j}A%p D(>:A%,"-@@D(PLEASE PUT DISK INTO ( DISK DRIVE6.  3(/(#IS DI(k}SK IN DISK DRIVE(Y/N)3 $$7@<@,4YA%p $$7@<@,4NA%  6.6- 7(l}@7@@ D:WRITE.VAR  @(  @2  @<  @F @(m}P W(>:A%,"-@@F(ŠĠ٠ɠ͠ǡW% D:INFOBASE.AZ  4D2:A(@ D(>:(n}A%,"-@@D(PLEASE PUT DISK INTO ( DISK DRIVE6.  3(/(#IS DISK IN DISK DRIV(o}E(Y/N)3 $$7@<@,4YA(@ $$7@<@,4NA% U(>:A%,"-@@F((p}ŠĠ٠ɠ͠ǡU% D:INFOBASE" T 5 +-@@2(END OF PROGRAM5 D:INFOBASE.B5({QttDCAEHSRPKTNAMENAFILEFIL1UBEFTYSKMA1B1C1S1NF1D1YNGK1H1M1LRL,r}BLE1CNJZ1PILMB2VWRTYFREETYDDD2J1VV,s} ,t} !"#$%&,u}'()*+,-./0123456,v}789:;<=>?@ABCDE,w}FGHIJ@KLMNOPQRS;@,x}, 6.D1:VERSION 3.0 - RON FETZERQ(>:A%,"-@@E(WHAT SCREEN COLOR DO YOU WANT?Q6-,y}#-@@#( 1: NORMAL"-@@"(2: AMBER*-@@*(3: REVERSE AMBER"-@,z}@"(4: GREEN!-@@!(5: GREY A.-@@*(SELECT A NUMBER." B,{},R  @)!@)P:,H(#ERROR - SELECT A NUMBER FROM 1 TO 5R A6//A A0A@AP,|}A`@1AAH'A @1 AJ1A@T'A @1 AT1A@V,}}'A 1 A^1AA''A @1 Ah1A@'A @1 A,~}rDIM SECTION|;@,;@,;@,;@,;@,;@,;@,;@,;@%,;,}@8,;A$,;@0,;@%,;@%,11;@8,;@8,;@%,;@%,];A0,;@0,},;@0,;@,;@,;@,;@,;@,n67@,. 67A0,. 67@,.6.,}";@0,;@,"6.~;@,;@,;@,;@,;@,;@,;@,;@,},;A,;A,;A,6.>:@',DISK DATAR(>:A%,((((("(%(((R(%PLEASE INSERT ,} DISK IN DISK DRIVE;(%(IS DISK IN DISK DRIVE7-@@; 4Y A 4N AP,}FILES & DIRECTORY; 4D1: A;@@D1:*.*; 4D2: A;@@,}D2:*.*(>:A%,@++@:7@<@,,!@GA`(A@( A,}@:7@<@,, @GA&67@ ,. 0@:*($( FILES ON DISK'(*(D>(:(.D,}O YOU WANT TO USE ONE OF THE ABOVE FILES(Y/N)>N-(-("PLACE A DECIMAL POINT BETWEEN FILEX++(#NAME AND EXTENDER. EXM,}PL: CLASS.602b 4Y A0l 4N Av'(#(PLEASE TYPE IN FILENAME' 6-B:,67@<%,}@,.67@<@,.&6.7@<%@,& A.(*(DO YOU WANT TO OPEN A NEW FILE. ,}4Y A 4N A(($(WHAT IS THE NEW FILENAME(% 6-B:,%67@<%@,.67@,}<@,.6.7@<%@,+ @@+@ A SEARCH h(>:A%,},((((("(%(:(7@<@%,=(h(&TO SEARCH FURTHER PRESS THE KEY**(" TO ACCEPT PRESS THE ,} KEY  F:B2y,"@Ap*F:B2y,"@$4 A>I Ap*@@66-,}B6-I6.HB@@B7@<@,4ENDA`R&&7@<@,0ENDA,}@\H67@<@,. -@: @E@H$f&F:A,"A6#@&$pMAIN,} MENUzF6-(>:A%,.-@@;( պF@a(( 1.ENTER NAME4(2.DISPLAY NAMES SERIAL,}LYL(3.SEARCH FOR A NAMEa(4.CORRECT RECORD_(5.FILES ON DATA DISK-( 6.ԠI(7.̠Π_(,}8.DELETE A RECORD;(9.CONFIGURE DISK DRIVES0( 10.;(11.END/ A(+(PLEASE ENTER A NUMBER/,}(( )!@)P:,A__A pA0A A@AA9A`pA@`AcAg,}AZ(>:A%,"-@@Z(3I AM NOW CHECKING FOR AN RECORD AND DELETING IT A0467@,},. %67A$,. 467@,.](>:A%,(#( 1. STUDENT:2( 2. PARENT:B( 3. ADDRESS:O(4. CITY:]( 5. ,}STATE:<(6. ZIP:( 7. PHONE:+( 8. GRADE:<( 9. SEX(/):G6-@6-@'6-@36-@%= A ,}GSTUDENTF6-@&6-@'6-@36-@%= A FPARENTG6-@Q6-@'6-@36,}-@%= A GADDRESSD6-@v6-@'6-@36-@= A DCITY$E6-@6-@',}6-@36-@= A ESTATE.C6-@6-@'6-@36-@= A CZIP8E6-@6,}-@'6-@36-@ = A EPHONEBE6-A6-@'6-@ 36-@= A EGRADELC,}6-A6-@'6-@36-@= A CSEXVi6-!-@@D(ARE ALL ENTRIES CORRECT (,}Y/N)Hi7@<@,4YA``$$7@<@,0YA0jY A0-@@H(#ENTER THE N,}UMBER OF INCORRECT ENTRYLY6-6@t-@* @- A%@$~ A I67A$,. 1,}@@ > @I@4-@@0( ANOTHER NAME (Y/N)4$$7@<@,4,}YA &7@<@,0Y& A A$ -$(  - S B:,},!-@@ I(PLEASE LIMIT LENGHT TO * * LETTERSS A # 67,.-@@ #("6@,}' A$e(>:A%,"-@@e(> THE LAST RECORD IN EACH FILE MUST BE FOR THE STUDENT NAME @,} 6. (<((DO YOU WANT TO ENTER THE RECORD(Y/N)@4YA 0YA(NAMES SERIALLY2* ,}A*@@<2@27@<@,4 A@F](>:A%,(#( 1. STUDENT:2( ,}2. PARENT:B( 3. ADDRESS:O(4. CITY:]( 5. STATE:P<(6. ZIP:( 7. PHONE:+( 8. GRADE:<( 9. SEX(/):Z=6-@,}6-@'6-@36-@%= Ad=6-@&6-@'6-@36-@%= An=6-@Q,}6-@'6-@36-@%= Ax=6-@v6-@'6-@36-@= A=6-@6,}-@'6-@36-@= A=6-@6-@'6-@36-@= A=6-@6-,}@'6-@36-@ = A=6-A6-@'6-@ 36-@= AD6-A6-@,}'6-@:6-B:,&%@D AH-@@H(.HOLD DOWN 'SELECT' AND PRESS 'RETURN' FOR MENUV-@,}@5(PRESS RETURN FOR NEXT NAME9VF:B2y,"@A A@ -(7<%&@,$ ,} TRAP<6-F:A,@(@<"A6A(ERROR -CORRECT A RECORD* A,}*@@_(>:A%,((U(9ENTER THE LAST NAME OF THE RECORD THAT YOU WANT TO CHANGEX([(_,}"@@,337@<@,07@<@,Ap6 Ap@](>:A%,(#( 1. ST,}UDENT:2( 2. PARENT:B( 3. ADDRESS:O(4. CITY:]( 5. STATE:J<(6. ZIP:( 7. PHONE:+( 8. GRADE:<( 9. SEX(/):,}T=6-@6-@'6-@36-@%= A^=6-@&6-@'6-@36-@%= Ah=,}6-@Q6-@'6-@36-@%= Ar=6-@v6-@'6-@36-@= A|=6,}-@6-@'6-@36-@= A=6-@6-@'6-@36-@= A=6-@,}6-@'6-@36-@ = A=6-A6-@'6-@ 36-@= AD6-A,}6-@'6-@:6-B:,&%@D AL(L(ATO DELETE A SELECT 1 PRESS 2 TIMES AND ANSWER,} 'YES'9 A (9(#LIST THE NUMBER OF INCORRECT ENTRY 1@* @1 A@%@$ A ,}=6-@6-@'6-@36-@%= A =6-@&6-@'6-@36-@%= A ,}=6-@Q6-@'6-@36-@%= A =6-@v6-@'6-@36-@= A =6,}-@6-@'6-@36-@= A =6-@6-@'6-@36-@= A =6-,}@6-@'6-@36-@ = A =6-A6-@'6-@ 36-@= A &=6-A,}6-@'6-@36-@= A 0F6-!-@@F(ARE ALL ENTRIES CORRECT (Y/N) :(,}(7@<@,4YApD A N@ @X8( (4(%DO YOU WANT TO CORRECT ANOTHER RE,}CORD8b@4YAPl4NAv@ AJ -'( 9,}-%&@F67<,. J  - R B:,!-@@ H(PLEASE LIMIT LENGTH TO **LETTERSR A ,}4 67,.-@@ #(467A$,.  A@ END5 +-@@2(END OF PROGRAM,}5^(>:A%,"-@@<(NO FILES ON THIS DISKP-@AT ^ A@NAMES RANDOMELY6,}7@,. 6.  @@H(>:A%,"-@@H(!ENTER THE LAST NAME OF THE RECORD,}Y (THAT YOU WANT TO DISPLAYC((WAIT FOR DISK DRIVE TO STOP!)U-@ @YK@K7@<@,},4 )7@<@,4ENDA P 337@<@,07@<@,A Ph(>:A%,((((("(,}%(:(7@<@%,=(h(&TO SEARCH FURTHER PRESS THE KEY **(" TO ACCEPT PRESS THE KEY* F:B2y,},"@A P4 F:B2y,"@A! > A H](>:A%,(#( 1. STUDENT:2( 2. PARENT:B( 3. ADDR,}ESS:O(4. CITY:]( 5. STATE:R<(6. ZIP:( 7. PHONE:+( 8. GRADE:<( 9. SEX(/):\=6-@6-@'6-@,}36-@%= A"@f=6-@&6-@'6-@36-@%= A"@p=6-@Q6-@'6-@,}36-@%= A"@z=6-@v6-@'6-@36-@= A"@=6-@6-@'6-@,}36-@= A"@=6-@6-@'6-@36-@= A"@=6-@6-@'6-@36,}-@ = A"@=6-A6-@'6-@ 36-@= A"@D6-A6-@'6-@:6-B:,},&%@D A"@ A"P -(7<%&@,$C 6. (?(+DO YOU WANT TO DISPLAY ANOTHER RECORD (Y,}/N)C@4YA @4NAPRINT STUDENT NAMESG(>:A%,"-@@,}C(IS PRINTER TURNED ON (Y/N))G4YA#  4NA" j(>:A%,((((("(%(C( ,} WHAT IS THE TITLEF(I(MY6-j6-B:,'@ //3>:@',D>:@8&P:,,>:,$ 3>:@ ,.,} 3>:@,8  6. 6. B @@L K@K7@<@,4 )7@<@,},4ENDA#V 36-@6-@%)6-%@3 A$ `  A A#j @t 1 @.3 ,}. 7<%&@,1$~ -!@ *3. 7<%&@,-$ %%PRINT COMPLETE RECORD RANDOMELY 3>:@',,}@ N 6. (>:A%,*-@@J(IS PRINTER TUNRED ON (Y/N)N 4YA$ 4NA$P ,}3>:@, 67@,. 6.  @@ H(>:A%,"-@@H(!ENTER THE LAST ,}NAME OF THE RECORD W(THAT YOU WANT TO PRINTA((WAIT FOR DISK DRIVE TO STOP!)S-@@W 3>:@, K,}@K7@<@,4 )7@<@,4ENDA%P 337@<@,07@<@,A%P ,}h(>:A%,((((("(%(:(7@<@%,=(h(&TO SEARCH FURTHER PRESS THE KEY **(" TO ACCEPT PR,}ESS THE KEY F:B2y,"@A%P( F:B2y,"@A& 2 A%< ##@@,}P:F ))(@CLASS: 7@,P $(@STUDENT:$ A'0Z #(@PARENT:# A'Pd $(,}@ADDRESS:$ A'pn !(@CITY:! A'x "(@STATE:" A( (@ZIP: A(0,} "(@PHONE:" A(P "(@GRADE:" A(p (@SEX: A( %6-@6-@%,}% A) A&P %6-@&6-@%% A) A&` %6-@Q6-@%% A) A&p,} %6-@v6-@% A) A& %6-@6-@% A) A& %6-@6-@,}% A) A'" %6-@6-@ % A), A'6 %6-A6-@% A)@ A' ,}J ,6-A"6-B:,&%@, A)T A)0^ 44(@>:@',D>:@,>:,h 9*(@,}>:@ ,7<%&@,66-9$r P 6. -@@L()DO YOU WANT TO PRINT ANOTHER RECORD (Y/N)P|,} )@@)4YA% )@@)4NA A $$PRINT MAILING LABELS RANDO,}MELY 1 @@13>:@',@  6. 6.  H(>:A%,"-@@H(!ENTER THE LAST,} NAME OF THE RECORD ["(FOR WHICH YOU WANT A LABELE((WAIT FOR DISK DRIVE TO STOP!)W-@@[ K@,}K7@<@,4 )7@<@,4ENDA0  337@<@,07@<@,A0  h(>:A%,},((((("(%(:(7@<@%,=(h(&TO SEARCH FURTHER PRESS THE KEY **(" TO ACCEPT PRESS THE ,} KEY F:B2y,"@A0  F:B2y,"@A0 A0` .#@@P:.(@,} =6-@6-@'6-@36-@%= A1& \\(@>:@',D>:@,>:,>:@ ,},7<%@, 7@,0 %6-@&6-@%% A2: %6-@Q6-@%% A2D %6-@v6,}-@% A2N %6-@6-@% A2 X %6-@6-@% A2@b =-@@9(DO YOU,} WANT ANOTHER LABEL (Y/N)=l )@@)4YA)v )@@)4NA "(@,}7<%&@,"$ * (@7<%&@,* A1P 44(@>:@',D>:@,>:, 5+(@,}>:@ ,7<%&@,5 A1` 9/(@>:@ , 7<%&@,9 A1p **PRINT MAILING LABELS,} THE ENTIRE FILE = @@,6-=3>:@',@ 6.  .@.@@,}P: K@K7@<@,4 )7@<@,4ENDA2 6-%@ M(@M* ADD O,}R DELETE A ? #4 FOR CORRECT SPACING OF MAILING LABELS %6-@6-@%% A30 @@(@  ,}7<%@, 7@, %6-@&6-@%% A3 %6-@Q6-@%% A3 %6-@v6-@,}% A4* %6-@6-@% A44 %6-@6-@% A40> "(@7<%&@,"$H,} * (@7<%&@,* A3pR 44(@>:@',D>:@,>:,\ 5+(@>:@ ,7<%,}&@,5 A3f E1(@>:@ , 7<%&@,; AE A2pp &&PRINT STUDENT'S NAMES AND GRAD,}ESz c 6. (>:A%,*-@@N(IS THE PRINTER TURNED ON (Y/N)Rc3>:@',@ ##@@,}P: 4YA4 4NA4P 4 @@(6. 46- O(>:A%,"-@,}@9(WHAT IS THE TITLEK-@@O (@(@ 6- 6-B:,'@ 88(@,}>:@',D>:@8&P:,,>:, (@>:@ , (@ K@K7@<@,4 ,} )7@<@,4ENDA5` 6-%@ %6-@6-@%% A6%6-A6-@% A6 ,}@ @6(@  7<%&@,@ A5<!@ 2(@ 7<%&@,< A5,}$44(@>:@',D>:@&,>:,.>*(@>:@ ,7<%&@,4 A> A5`8&&" ,} "* PRINT PHONE FILE *B_ 6. (>:A%,*-@@J(IS PRINTER TURNED ON (Y/N)N_3>:@',@L#,}#@@P:V4YA6`4NA6Pj4 @@(6. 46-tN,}(>:A%,"-@@8(WHAT IS THE TITLEJ-@@N~ 6- 6-B:,'@(@(,}@88(@>:@',D>:@8&P:,,>:,(@>:@ ,(@>:@,??(@,}>:@',D>:@),>:@T,>:,bW(@ -1STUDENTS>:@ ,PARENTS>:@ ,,}PHONES-0b(@K@K7@<@,4 )7@<@,4ENDA76-%@%6-,}@6-@%% A80%6-@&6-@%% A8P%6-@6-@ % A8p@ @6(@,}  7<%&@,@ A8<!@ 2(@ 7<%&@,< A8 44(@>:@'-},D>:@),>:,5+(@>:@ ,7<%&@,5 A8 44(@>:@',D>:@T,>:-},(>*(@>:@ ,7<%&@,4 A> A72PRINT MENU<K6-(>:A%,.-@-}@@( ԠպK@Fo(((1.PRINT STUDENT NAMES ON FILEO("2.PRINT COMPLETE RECORD - RANDOMLYo(3.MA-}ILLING LABEL - RANDOMLYPP&(4.MAILLING LABEL - ENTIRE FILEP(%5.PRINT STUDENT & GRADE - ENTIRE FILEZX,($6.PRINT STUDEN-}T, PARENT & PHONE FILE<( 7.ΠX(8.̠ΠdB(9.PRINT ATTENDANCE CARD7(10.PRINT GRADE BOOKB(-}11.ENDn/ A9(+(PLEASE ENTER A NUMBER/x(( @)!@)P:,A9__A"A$PA)-}A2`A4PA6PAA`pAA A`pADELETE A RECORD0(>:A%,(0( Š-}^( (^(P TO DELETE A RECORD USE THE Ԡ FUNCTION AND EARSE THE STUDENT'S NAME<( ( ((8(#DO -}YOU WANT TO DELETE A RECORD(Y/N)<4YAP0YASELECT A SORT@6-(>:A%,.-- }@@@( Ԡ"#( (#( 1: REGULAR SORT,( 2: SORT BY SEX6:(:(/YOU MAY NOT HAVE M- }ORE THAN 50 NAMES IN THE FILE@)( (%( SELECT A NUMBER )JAEAAT DATA INPUT FOR SORT BY SEX- }^! 6. 6-! Bh+@+@@r< AB@@<7@<@,4- } AB|S6-%@(6.7A<A ,?6.7@<@%,S67B:,%@,.8.67$@0&@(<$@0- }%@%,.8 ABAF:A,"A6#@16-&@76-A AB`START OF SORT OF A1$-}<(>:A%,((((("(8( WHAT GRADE < (( WHAT CLASS  -()( WHAT SUBJECT(MAX 4 L-}TRS)-$( ( WHAT HOME ROOM $)(%( WHAT MARKING PERIOD )=(.(# TEACHER'S NAME(MAX 15 L-}ETTERS)9( =I(>:A%,((((("(%(I(HOW LONG A MONTH SHALL I PRINT?&(&( 1: TH-}RITY ONE( 2: THIRTY%%( 3: TWENTY EIGHT$$( 4: TWENTY NINE,,($ -} 5: RETURN TO MAIN MENU&( 6: END0)(%( SELECT A NUMBER):U  @)!@-})P:,#(K(# ERROR: SELECT A NUMBER FROM 1 TO 6U ADD=6-P:'@,%@,-@&=-@6NS-}S7$@0&@)<$@0,/7+%,$@0&@)<+%,$@0,ADpXn&6.7$@0&@)<$@0,n67$-}@0&@)<$@0,.7+%,$@0&@)<+%,$@0,b..67+%,$@0&@)<+%,$@0,.l v ( -} !@AD %%: * DISPLAY ALPHABETIZED DATA *"@AF<-@8( 7$@0&@-})<$@0,< : * OPTIONS *+('(DO YOU WANT TO REVERSE SORT+&7@<@,4Y& AV@7-}AR@(7( PRESS TO PRINT2AR2F:B2y,"@AGp AE`77* DATA-} INPUT FOR ATTENDANCE CARD - REGULAR SORT * 6.  B5 AF@@5@@< A-}FP@<7@<@,4 AF 6-%@6-B:,C967$@0&@)<$@0%,.7@-}<@%,C AF * @@* AF*AF:A,"A6#@16-&@76-A AB`-}4,@6-&@"6-, AB`>H: * TO SORT BY SEX *R(>:A%,\6-f<-@-}8( 7$@0&@&<$@0,< p+('(DO YOU WANT TO REVERSE SORT+z&7@<@,4Y& AXP-}7AR@(7( PRESS TO PRINT2AR2F:B2y,"@AIp AGP46-}-6-'6-4(>:A%,<(>:A%,( AG<(PLEASE TURN ON THE PRINTER.@.@- }@P:I6-(((((!($(E(HOW MANY COPIES DO YOU WANTI-@* T-!}O PRINT REGULAR SORT *@(@(@$(@/(@@(@E,,(@  --"} YY(@>:@',-1CLASS >:@',-0 HOME RM  MARK PD (@NN(@=-#} MONTH__________[[(@J NAMES 1, 2, 3, 4,-$} 5, 6, 7, 8, 9, 10,11,12,13-@$P @P(@E  7$@0&@)<$@0, -%}.K @K(@F(|__|__|__|__|__|__|__|__|__|__|__|__|__|8H!@ H(@E 7$@0&-&}@)<$@0,BK!@ K(@F(|__|__|__|__|__|__|__|__|__|__|__|__|__|L V AQP`: *-'} PRINT SORT BY SEX *j<(>:A%,( AIp<(PLEASE TURN ON THE PRINTERt.@.@@P-(}:~=( ( (((((9(HOW MANY COPIES DO YOU WANT='6-6-'6--@(-)}@@(@(@$(@/(@@(@E,,(@  - YY(@-*}>:@',-1CLASS >:@',-0 HOME RM  MARK PD (@NN(@= -+} MONTH__________[[(@J NAMES 1, 2, 3, 4, 5, 6, 7, 8, 9,-,} 10,11,12,13-@S @S(@E  7$@0&@&<$@0, K @--}K(@F(|__|__|__|__|__|__|__|__|__|__|__|__|__|N!@ N(@E 7$@0&@&<$-.}@0,  K!@ K(@F(|__|__|__|__|__|__|__|__|__|__|__|__|__| * TO PRINT EMPTY LINES-/} *(6-2-@P<v @v(@  ______________, _____________ (|__|__|__|__|-0}__|__|__|__|__|__|__|__|__|Fq!@ q(@ ______________, _____________ (|__|__|__|__|__|__|__|__|-1}__|__|__|__|__|P ZMM(@< a = ABSENT l = LATE c = CUTTING E = EXCUSEDd6-n&-@-2}@"(@& x: * TO PRINT 2ND PAGE *@@(@E) PAGE 2-3}(@>:@,33(@" MONTH__________6-77ASASPATATP-4}AAbb(@ 514,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31 COMMENTSF-@-5}@Pr @r(@ 7|__|__|__|__|__|__|__|__|__|__|__|__|__|__|__|__|__|__| ______________-6}_j!@ j(@7|__|__|__|__|__|__|__|__|__|__|__|__|__|__|__|__|__|__|_______________  AU-7}__(@ 214,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30 COMMENTSF#6-#-@@P-8}q @q(@ 4|__|__|__|__|__|__|__|__|__|__|__|__|__|__|__|__|__| _________________i!-9}@ i(@4|__|__|__|__|__|__|__|__|__|__|__|__|__|__|__|__|__|_________________  AUYY(@-:} ,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28 COMMENTSF"#6-#-@@P,m @-;}m(@ .|__|__|__|__|__|__|__|__|__|__|__|__|__|__|__| ___________________6e!@ e(@-<}.|__|__|__|__|__|__|__|__|__|__|__|__|__|__|__|___________________@  AUJ\\(@ /14,15,16,17,-=}18,19,20,21,22,23,24,25,26,27,28,29 COMMENTSFT#6-#-@@P^p @p(@ ->}1|__|__|__|__|__|__|__|__|__|__|__|__|__|__|__|__| ___________________hh!@ h(@1|__|__|__|__|__-?}|__|__|__|__|__|__|__|__|__|__|__|___________________r  AU|(@MM(@< a -@}= ABSENT l = LATE c = CUTTING E = EXCUSED6--@@(@  @-A}H(>:A%,((((("(%(((+(.(1(H* DIFFERENT MONTHS *I 6. E(4DO YOU WANT TO PRINT A MONTH WITH D-B}IFFRENT DAYS(Y/N)I&7@<@,4N& A&7@<@,4Y& AC0 +%%* SUB-C}ROUTINE FOR REVERSE SORT *6-%@36-6-'6-36-&((PRESS RETURN PLEASE-D}0](](RTO STOP SCROLLING HOLD DOWN 'CTRL' AND PRESS 1. TO CONTINUE REPEAT THE SAME ACTION: 6.6-B:,D-"-E}6-&@#6-- AW@N((67$@0&@)<$@0%,.X AV@b* START OF REVERSE SORT *l$6-F}-P:'@,$-@&v-@6SS7$@0&@)<$@0,/7+%,$@0&@)<+%,$@0,-G}AXn&6.7$@0&@)<$@0,n67$@0&@)<$@0,.7+%,$@0&@)<+%,$@0,..6-H}7+%,$@0&@)<+%,$@0,. ( !@AW@E-@6@A( 7$@0-I}&@)<$@0,E $++* SUBROUTINE FOR REVERSE SORT BY SEX"6-%@36-6-'6--J}36-((PRESS RETURN PLEASE](](RTO STOP SCROLLING HOLD DOWN 'CTRL' AND PRESS 1. TO CONTINUE REPEAT-K} THE SAME ACTION  6.6-B:,-"6-&@#6-- AYP ((67$@0&@)<$@0%,.-L}* AXP4&&* START OF REVERSE SORT BY SEX *>$6-P:'@,$-@&H-@6RSS7$@0&-M}@)<$@0,/7+%,$@0&@)<+%,$@0,A`\n&6.7$@0&@)<$@0,n67$@0&@)<-N}$@0,.7+%,$@0&@)<+%,$@0,f..67+%,$@0&@)<+%,$@0,.p z( !@-O}AYPE-@6@A( 7$@0&@&<$@0,E $4D2:Aa0C(>:A-P}%,"-@@C(PLEAE PUT DISK INTO( DISK DRIVE6. 3(/(#IS DISK IN DISK DRIVE(-Q}Y/N)3$$7@<@,4YAa $$7@<@,4NA`p22SAVING OF VARIABLES FOR 'INFOBASE.A' T-R}O DISK 6.6-7@7@@ D:WRITE.VAR @ @ @-S} @$@.W(>:A%,"-@@F(ŠĠ٠ɠ͠ǡW% D:INFOBASE.A8-T}R(>:A%,"-@@R(+PLEASE PUT DISK INTO DISK DRIVE #1@ Ac-@@<(# OF DISK -U}DIRVES 1 OR 2@K @)!@(A( ERROR - SELECT EITHER 1 OR 2K Ac"@ Ad-V}"@ Ae)#@@E:&()( i`(>:AV,A>:@h,>:@h,>:@6,>:@a-W},>:@4,D1:>:@4,i(CONT--F:AB,*AB@-&7AB@"(>:A%,-@-X}7 Afd)#@@E:&()(ni`(>:AV,A>:@h,>:@h,>:@6,>:@a,>-Y}:@4,D2:>:@4,i(CONTs--F:AB,*AB@-&x7AB@"(>:A%,-@-Z}7 Af=-@@=(#NOW SAVING DISK DRIVE CONFIGURATIONJ D:INFOBASE$-@@;(RELOADING INF-[}OBASEJ% D:INFOBASE,64D2:AgP;Q 6.(>:A%,)-@@M(IS DISK IN DRIVE(Y/N)-\}Q@$$7@<@,0YAg^C 6.6-@C@@ D:WRITE.VA2h7(@(-]}@*(@7(@r_@(>:A%,--@@N(ŠĠ٭ɠ͠_% D:INFO-^}BASE.B D:INFOBASE&@)<$@0,n67$@0&@)<$@0,.7+%,$@0&@)<+%,$@0,..6,]C^W^WRTFILEYABCSANFAP1P2EGKHMB1B2LM1VYNDFILEFIL1DCADAFATOUTGINAMENASFYFZXSECT1`}SELLQZTLSBSMSMRAIGAJPRS1K1DDWRT@("1a}@^a d g j m ux~nnn1b}6789n|# & | ! " # $ 1c}%3 (&[ 'o (@)*+,-./012341d}56789:;<=>?@ABC AD1e} 3EFGHIJ K LM NO PQ(RS1f}PVERSION 3.0Z&&;@%,;@%,;@,d7@7@@ D:WRITE.VARn@1g}x@6.//A@APA`ApA1AAH'A @1 A1q}bBaPAUG bDisk 023a b-----------bEducation b Disk 1: b Teacher'sb Toolbox b-----------b'DOS SYSb+AUTORUN SYSbD-INFOBASEB bqINFOBASE b_INFOBASEA b(LETTER bMENU bWRITE VARbWRITE VA21A@T'A @1 A1A@V'A 1 A1AA''A 1r}@1 A1A@'A @1 A];A0,;@0,;@0,;@,1s};@,;@,;@,;@,n67@,. 67A0,. 67@,.6.6.s;@,;1t}@,;@,;@,;@,;@0,;A,;A,;A,;@ ,6.>:@',~~;@1u},;@%,;@%,;@,;@,;@,;A,;A$,;@,;A$,;@%,;@01v},;@0,;@0,;@0,;@@,;@ ,;@ ,;@,9@P,;@,;@,;@,1w};@,4D2:ApE(>:A%,"-@@E(PLEASE PUT DISK INTO DISK (DRIVE6. /1x}(+(IS DISK IN DISK DRIVE(Y/N)/$$7@<@,0YA0"@A8,++" "* SPEC1y}IAL FUNCTION MENU *6T(>:A%,"-@@=(̠ΠպI6-T@@(( 1: FORMAT 1z}A DISKJ( 2: FILES ON DATA DISKO( 3: PRINT GRADE BOOKT((( 4: GLOBAL DELETE OF GRADE ENTRY^++(# 5: SEQUENTIA1{}L INPUT OF GRADE ENTRYh##( 6: RECOVER DELETED RECORDSr( 7: LOCK A FILE|( 8: UNLOCK A FILE( 9: RENAME A1|} FILE(10: DELETE A FILE%%(11: SHOW AVAILABLE DISK SPACE##(12: COMPUTE STUDENT AVERAGE(13: RETURN TO M1}}AIN MENU(14: Š(15: END5 A(1( PLEASE ENTER A NUMBER5(( @)!@1~})P:,AAAA8AAAAApB@BBBAup1}BAu` 6.6-6.$$7@<@,40APW6.7@<@,441)42)1}43)44M67@<@,.5W AP45AP646)47)48)49667@<@,.0>61}-6-A:,&6-%@2!@>6-@ 6.=:,"@ A$-(*( Ġ1}=-$L9(9(.ENTER A ONE CHARACTER CONDUCT GRADE(S,N,U etc)V6(( 367@<@,.6$1}2<))FORCED READ MODE TO CLEAR LINE 6600=5#@@E:5AY>(?(@;;(>:AV1},(6600 REM FORCED READ MODE - IN THIS LINEA (CONTB--F:AB,*AB@-&CAB@D1}(>:A%,EAY@4F@//AEAE AE0AE@AEP1AAH'A 1}@1 AE`1A@T'A @1 AE`1A@V'A 1 AE`11}AA''A @1 AE`1A@'A @1 AE` $$" " * SELECT 1}A SORT *@6-(>:A%,.-@@@( Ԡ#( (#( 1: REGULAR SORT(( 2: S1}ORT BY SEX2;(;(0 YOU MAY NOT HAVE MORE THAN 50 NAMES IN THE FILE<)( (%( SELECT A NUMBER:)FAR1}AVpP>>" " * DATA INPUT FOR GRADE BOOK - RGULAR SORT *Z! 6.  B!6-d+@+@1}@n< ARp@<7@<@,4 AR0x6-%@I?67$@0&@)<1}$@0%@%,.7@<@%,I AR0AF:A,"A6#@16-&@76-A AS0!!: 1}* 'INFOBASE.A' PROGRAM BY: R. FETZER *(>:A%, AV: * START OF SORT OF A$ *<(>:A%,((1}((("(8( WHAT GRADE < (( WHAT CLASS  -()( WHAT SUBJECT(MAX 4 LTRS)-$( ( 1} WHAT HOME ROOM $)(%( WHAT MARKING PERIOD ).(.(# TEACHER'S NAME(MAX 15 LETTERS)( 1}=6-P:'@,%@,-@&=-@6SS7$@0&@)<$@0,/7+%,$@0&@)1}<+%,$@0,AT0n&6.7$@0&@)<$@0,n67$@0&@)<$@0,.7+%,$@0&@)<+%,$1}@0,"..67+%,$@0&@)<+%,$@0,., 6 ( @!@ASE"@AYJ%%: 1}* DISPLAY ALPHABETIZED DATA *T*(>:A%,(( 4YES* AY^<-@8( 7$@0&@)<$@01},< hG( (1("DO YOU WANT TO GO TO PRINT CHOICES5G4YESAUr4NOAV|A(>:A%,"-@1}@A(WHAT DO YOU WANT TO PRINT?--@@-(1: PAGE ONE AND TWO+-@@+(2: PAGE ONE ONLY!1}+-@@+(3: PAGE TWO ONLY!0-@@0(4: RETURN TO MAIN MENU2-@@2(5: SPECI1}AL FUNCTION MENU(-@@((6: END PROGRAM AUp6-.-@@*(SELECT A NUMBER.1}] AUp* @)!@)P:,-(S(!ERROR SELECT A NUMBER FROM 1 TO 5] AUp:"@@:1}@@P:77AVAs0Af0AupAAu`OA@V'A *(1}K(DO YOU WANT TO REVERSE SORTO&7@<@,4Y& Ai;;7@<@,4N*7@<@,41}NA7AR@(7( PRESS TO PRINT2AR2F:B2y,"@Aa0 AV@1}&>>" " * DATA INPUT FOR GRADE BOOK - SORT BY SEX *0! 6. 6-! B:+@+@@1}D< AW0@<7@<@,4 AWNS6-%@(6.7A<A ,?6.7@1}<@%,S67B:,%@,.X8.67$@0&@(<$@0%@%,.8 AWbAF:A,"A6#@1}16-&@76-A AS0l : * DISPLAY SORT BY SEX *(>:A%, 6-*<-@8( 71}$@0&@&<$@0,< 4G( (1("DO YOU WANT TO GO TO PRINT CHOICES5G4YESAY`>4NOA`pH1}A(>:A%,"-@@A(WHAT DO YOU WANT TO PRINT?R--@@-(1: PAGE ONE AND TWO\+-@@1}+(2: PAGE ONE ONLY!f+-@@+(3: PAGE TWO ONLY!p0-@@0(4: RETURN TO MAIN MENUu2-@1}@2(5. SPECIAL FUNCTION MENUz(-@@((6: END PROGRAM A`06-.-@@1}*(SELECT A NUMBER.] A`0* @)!@)P:,-(S(!ERROR SELECT A NUMBER FROM 1 TO 5] A`0:1}"@@:@@P:77A`pAtPAfAupAAu`OA@1}V'A *(K(DO YOU WANT TO REVERSE SORTO&7@<@,4Y& Aq;;7@<@,1}4N*7@<@,4NA7AR@(7( PRESS TO PRINT2AR2F:B2y,"1}@Ac@ Aa46-6-'6-4(>:A%,< Aa@(>:A%,(<(PLEASE TURN1} ON THE PRINTER.@.@@P:I6-(((((!($(E(HOW MANY COPIES DO YOU 1}WANTI-@$* TO PRINT REGULAR SORT *.T(@(@$(@/(@:(@T(@1}>:@',E8,,(@  - B\\(@>:@',-1CLASS >:@',-0 1}HOME RM  MARK PD L(@VHH(@7 TESTS`jj(@1}J NAMES |BK# | 1 , 2 , 3 , 4 , 5 , 6 , 7 ,AVG|>:@',Fj-@tY @1}Y(@>:@',E  7$@0&@)<$@0, ~Y @Y(@>:@',F'|_____1}|___,___,___,___,___,___,___,___| Q!@ Q(@>:@',E 7$@0&@)<$@0,U1}!@ U(@>:@',F'|_____|___,___,___,___,___,___,___,___| @ Ae: * P1}RINT SORT BY SEX *< Ac@(>:A%,(<(PLEASE TURN ON THE PRINTER.@.@@P:1}=( ( (((((9(HOW MANY COPIES DO YOU WANT=6-6--@T(@(@1}$(@/(@:(@T(@>:@',E,,(@  -  \\(@>:1}@',-1CLASS >:@',-0 HOME RM  MARK PD (@HH(@7 1} TESTS(jj(@J NAMES |BK# | 1 , 2 , 3 , 4 , 5 , 6 , 7 ,AVG1}|>:@',F2-@<\ @\(@>:@',E  7$@0&@&<$@0, 1}FY @Y(@>:@',F'|_____|___,___,___,___,___,___,___,___| PW!@ W(@>:@'1},E 7$@0&@&<$@0, ZU!@ U(@>:@',F'|_____|___,___,___,___,___,___1},___,___|d n* TO PRINT EMPTY LINES *x:6-@:@@P:-@P1}v @v(@  ______________, _____________ '|_____|___,___,___,___,___,___,___,___|  1}@ (@ r!@ r(@ ______________, _____________ '|_____|___,___,___,___,___,__1}_,___,___| E(@(@$(@/(@:(@E(@"@)"@  A1}Y`E"@)"@&(>:A%,)(,(A(HOW MANY COPIESE%"@)"@%6-'"@1})"@'-@#"@)"@# AfP6-.@.@@P:&1}-@@"(@& : * TO PRINT 2ND PAGE *"@@(@>:@',l>:@4,>:@',EPage1} 2,(((@>:@',l>:,6(@@JJ(@>:@',l>:@#,Conduct, Classwork and Hom1}eworkJ77(@>:@',l>:,>:@',FT6-^-@@Pht @t(@1} K__|__|__|__|__|__|__|__|__|__|__|__|__|__|__|__|__|__|__|__|__|__|__|__|__| rl!@ l(@K__|__1}|__|__|__|__|__|__|__|__|__|__|__|__|__|__|__|__|__|__|__|__|__|__|__|| (@oo(@ 1} >:@,>:@',ECOMMENT>:@ ,>:@',F6--@@(1}@ @ ++"@)"@)"@AU++"@)"@)"@AY`1}%%* SUBROUTINE FOR REVERSE SORT *6-%@36-6-'6-36-((PRESS RE1}TURN PLEASE](](RTO STOP SCROLLING HOLD DOWN 'CTRL' AND PRESS 1. TO CONTINUE REPEAT THE SAME ACTION& 6.6-B:1},0-"6-&@#6-- Ap:((67$@0&@)<$@0%,.D AiN* START OF REVERSE 1}SORT *X$6-P:'@,$-@&b-@6lSS7$@0&@)<$@0,/7+%,$@0&@)<+1}%,$@0,Ap`vn&6.7$@0&@)<$@0,n67$@0&@)<$@0,.7+%,$@0&@)<+%,$@01},..67+%,$@0&@)<+%,$@0,. ( !@ApE-@6@A(1} 7$@0&@)<$@0,E $++* SUBROUTINE FOR REVERSE SORT BY SEX"6-%@36-6-1}'6-36-((PRESS RETURN PLEASE](](RTO STOP SCROLLING HOLD DOWN 'CTRL' AND PRESS 1. TO CON1}TINUE REPEAT THE SAME ACTION 6.6-B:,-"6-&@#6-- Ar ((67$@0&@)<$1}@0%,. Aq * START OF REVERSE SORT **$6-P:'@,$-@&4-@6>SS7$@01}&@)<$@0,/7+%,$@0&@)<+%,$@0,ArpHn&6.7$@0&@)<$@0,n67$@0&@)1}<$@0,.7+%,$@0&@)<+%,$@0,R..67+%,$@0&@)<+%,$@0,.\ f(p z1}!@ApE-@6@A( 7$@0&@(<$@0,E $T#@@1}E:5AYTPAGE ONE ONLY - REGULAR SORT((!!(>:AV,6600 GOTO 5500 (CONT--F:A1}B,*AB@-&AB@(>:A%,AY@4@ AV1}R#@@E:5AYRPAGE ONE ONLY- SORT BY SEX$(.(8""(>:AV,6600 GOTO 1}5960B (CONTL--F:AB,*AB@-&VAB@`(>:A%,jAY@4t1}@~ A`pI Aue3>:@',@(+5(>:AS,8IEND OF PROGRAM +4D2:1}AuI(>:A%,"-@@I("PLEASE PUT DISK INTO DISK ( DRIVE 6. 3(/(#IS 1} DISK IN DISK DRIVE(Y/N)3$$7@<@,4NAurU(>:A%,"-@@F(ŠĠ1}٠ɠ͠ǡU% D:INFOBASE@!!" "* FORMAT DISK *BQ(>:A%,"-@@I("PLEASE PUT DISK TO B1}E FORMATTED INQ6. C( ˠD"(( IS DISK IN DRIVE"F$$7@<@,4NAJF 1}4D1: A"@F@@D1:*.*OF 4D2: A"@F@@1}D2:*.*T(>:A%,^@h++@:7@<@,,!@GApr(|A@( A@:71}@<@,, @GA0@6. 2(.("IS IT OK TO ERASE THESE FILES(Y/N)2$$7@<@1},4NAK 4D1:6AT@D1:A@K AK 4D2:6AT@1}D2:A@K A(#((" "* FILES ON DATA DISK *2#R(>:A%,((((("(%(((R(%1}PLEASE INSERT DISK IN DISK DRIVE<#;(%(IS DISK IN DISK DRIVE7-@@;F#&7@<@,4Y1}& A`P#&7@<@,4N& A Z#33" "* FILES SELECTION AND DIRECTORY *d#F 4D1: A"1}@F@@D1:*.*i#F 4D2: A"@F@@D2:*.*n#(>:A%1},x#@#++@:7@<@,,!@GA #(#A@( A@:7@<@,, @G1}A#67@ ,. #@#:($( FILES ON DISK'(*(26. :6. #-(-("PLACE A DEC1}IMAL POINT BETWEEN FILE#++(#NAME AND EXTENDER. EXMPL: CLASS.602#>(:(.DO YOU WANT TO USE ONE OF THE ABOVE FILES(Y/N)1}>#$$7@<@,0YA#'(#(PLEASE TYPE IN FILENAME'# 6-B:,$67@<%@,.$61}7@<@,.$&6.7@<%@,& A$22" "* GLOBAL DELETE OF GRADE ENTRY *$I(>:A%,"1}-@@C(נǠӠF(I($J@+@@76-C6-J61}.$~ A`@)@\7@<@,4 )7@<@,4ENDh6-t6-~ A1} $]-@@A(7@<@%, 7A<A,]67A<A,. $A-@@A(71}@<@%, 7A<A,$)@(@) A $-F:A,"A6#@- A1}%66" " * SEQUENTIAL INPUT OF GRADE ENTRY *&%Q@+@@76-C6-J6.1}Q6.0%~ Ap@)@\7@<@,4 )7@<@,4ENDh6-t6-1}~ A 5%G(>:A%,"-@@A(̠ԠƠD(G(7%85(-TO KEEP THE OLD GRADE LEAVE GRADE EN1}TRY EMPTY8(:%X(7@<@%,:( OLD GRADE=7A<A,T(GRADE(MAX-3 DIGITS)=X?%/ 6-B:,"1}/6.7A<A,A%67A<A,.D%0@ @&6.0 A b%-F:A,"A6#1}@- A%--" "* RECOVER DELETED RECORDS *%[ A@5@@A6-1}M6-T6.[6.%v@@T7@<@,0 )7@&<@(,4 `6-l1}6-v A %](>:A%,(#( 1. STUDENT:2( 2. PARENT:B( 3. ADDRESS:O(4. CITY:]( 5. STATE:%<(6. Z1}IP:( 7. PHONE:+( 8. GRADE:<( 9. SEX(¯):%=6-@6-@'6-@36-@%= A`%=6-@&1}6-@'6-@36-@%= A`%=6-@Q6-@'6-@36-@%= A`%=6-@v61}-@'6-@36-@= A`%=6-@6-@'6-@36-@= A`%=6-@6-@1}'6-@36-@= A`%=6-@6-@'6-@36-@ = A`&=6-A6-@1}'6-@ 36-@= A` &D6-A6-@'6-@:6-B:,&%@D A`&6 6. ((2(1} RESTORE THIS RECORD(Y/N)6&$$7@<@,0YA & A` &=6-@6-@'6-@361}-@%= A *&4&1@ @'6. 1 A H&-F:A,"A6#@- A\& -1} f&TB:,!@%$-@@ T(PLEASE LIMIT THE LENGTH TO *  * LETTERSk&LB:,!@%$-@@1}B( L A`p&Y67@<@%,.,-@@ Y(( 1} z& A& -(7<%&@,$& * ROUTINE TO LOCK A FILE *&7(>:A%,6.)-@@7(1} ˠ&)-@@)(ENTER FILE NAME&-@@&% 6. 6.%67B:,%@,.&Q A`2}2@5@=@G BQ A`& B A& * ROUTINE TO UNLOCK FILE *2}&9(>:A%,6.)-@@9( ˠ')-@@)(ENTER FILE NAME'-@@2}'% 6. 6.%67B:,%@,.$'Q B02@6@=@G BQ A`.' B2} Ap8'""* ROUTINE TO RENAME A FILE *B'G(>:A%,6.6.%6.7-@@G( ŠL'--2}@@)(ENTER OLD NAME-V'--@@)(ENTER NEW NAME-`' B6.'67B:,%@,.=2}67B:,%@,.,Q67B:,%@,.v@2@@j' B A`t' B2} B@~'""* ROUTINE TO DELETE A FILE *'9(>:A%,6.)-@@9( Š')-@@)(2}ENTER FILE NAME'-@@'T 6. -@@/( ARE YOU SURE3T7@<@,4NA2}'% 6. 6.%67B:,%@,.'Q B2@3@=@G BQ A`' 2 }B B'++* ROUTINE TO FIND CORRECT FILE NAME *'7(>:A%,(7( YOU HAD THE WRONG FILE NAME'.(.(#2 } DUMMY, THE CORRECT SPELLING IS: '/#6. /6-'3-@@3(FILE IS NOT ON TH2 }IS DISK!(D 4D1:@<@@D1:*.*D6. (D 4D2:@<@@2 }D2:*.*D6.  (<@6-%6-B:,1"@<@(9+7@<@,47@<@,962 }-%@((!@(>:A%,(6-@((j+7@<@,47@<@,=-@@A(U-@2}@%j(7@<@,2("@B<( BPF(4 6. ((0( SHALL I RETURN(Y/N)4P($$2}7@<@,4NB Z(@ B$(//" " *SHOW AVAILABLE DISK SPACE *(I 4D1:(>:A2}%,%@I@@D1:*.*(I 4D2:(>:A%,%@I@@D2:*.2}*(9@6-%6-B:,9"@B@(++@:7@<@,, @GB (B 6.!6.7@2}<@,-6-96-B6-A:,(=6-P:$A%,'A=6-P:$@%?P,'@(J-@@2}?( YOU HAVE  K. BYTES OF SPACE LEFTJ@(7-@@7(PRESS TO RETURN TO MENU( F:B2y,"2}@A( B)//" " * COMPUTE STUDENT AVERAGES *)A(>:A%,"-@@5(Ӡ2}պA6-)((1: NORMAL AVERAGE")0(0(%2: AVERAGE ROUNDED OFF TO THE NEAREST')""( MULTIPLE OF 52},)0(0(%3: AVERAGE ROUNDED OFF TO THE NEAREST-)""( MULTIPLE OF 5.)))(! AND CONDUCT GRADE(S,N,U etc)6)2}*( (&( SELECT A NUMBER*@)2 BP2 @)!@)P:,BPJ)(>:A%,@8@2}@D6-P6-W6.^6.j6-q6.}6-6-6-T)~ BP2}@)@\7@<@,4 )7@<@,4ENDh6-t6-~ BY)L(>:A2}%,6-(6-46-@6-L6-^)*-@@*(7@<@%,c)7-@@2}7( OLD GRADE=7A<A,h))()( PLEASE ENTER THE GRADESr)0-(%PRESS TWICE TO GET THE AVERAGE02}(t)**(" THE AVERAGE WILL BE 10w)6-%@|)& B "( #&) 6-B:, "B2}`) 6-A:,)0 )!A&(>:AS,0 B ) 68,-6-8,%6.) B)2 Be62}-'+&@,(6-P:,2 Bg)6-@ Bg)!@6-@)!(!( =)C 62}.=:,""@)"@, AC67A<A,.)'('(TO SAVE AVERAGE PRESS )W(W(LTO CHANGE AVERA2 }GE PRESS . ENTER THE NEW AVERAGE --> PRESS TWICE) F:B2y,"@B@)^F:B2y,"@$6-2!}06-<6-H6-T6-^ B) B)&"@&67A<A,.))@2"} @) B)-F:A,"A6#@- A*0* " "* MAILMERGE *:*4D2:2#}BD*D(>:A%,"-@@D(PLEASE PUT DISK INTON*( DISK DRIVE6. X*3(/(#IS 2$}DISK IN DISK DRIVE(Y/N)3b*$$7@<@,4YBl*$$7@<@,4NB v*55*** SAVING VARIABLE2%}S FOR INFOBASE.B TO DISK **** 6.*7@7@@ D:WRITE.VA2* @* @2&}* @* @*@*W(>:A%,"-@@F(ŠĠ٠ɠ͠ǡW% D:INF2'}OBASE.B* D:INFOBASE.ANFAP1P2EGKHMB1B2LM1VYNDFILEFIL1DCADAFATOUTGINAMENASFYFZXSECT0"jkKbCrCPEBGFLMSZNHHCHRSRUVATKCHR4LLLICCIXYZEAYYNPHCHR6)} &-AUi} A$A _$@ @ Ac@@g6*}@g@3@@67@A:6+} @!= &"c&#@$%&'()*+,-./6,}01@23456789: ;;@,5#@6-}@E:5AY ( ((>:AV, 460 GOTO 470 (CONT--F:AB,*A6.}B@-&AB@(>:A%,AY@4 @dAR@n APx6/}4-@@4(ŠΠΠŠz,((( IS PRINTER TURNED ON,|$$7@<@,0YA60} }3>:@',l>:@,AR6-;@,;@,;@8,;@ ,;@61} ,;@ ,;@ ,;@,9@5,9@5,;@,;@,;@8,;@8,;@,11;62}@,;@,;@,;@,H#@@P:H(@>:@',l>:@, AP63} A `5#@@E:5AY(( (>:AV, 460 GOTO 780 (CONT64}--F:AB,*AB@-&AB@(>:A%,"AY@4,@6 A`65}@ A `J5#@@E:5AYT(^(h``(>:AV,750 ? CHR$(125):?:?:?>:66}@4,WHAT IS THE SUBJECT DEPARTMENT>:@4,r!!(>:AV,760 INPUT B$|(>:AV, 460 GOTO 750 (CO67}NT--F:AB,*AB@-&AB@(>:A%,AY@4@ 68}AP A A0(&(PLEASE TURN ON THE PRINTER0 A<<:TYPE NEXT LINE IN INVERSE VIDEO'PRINT69}ING INFORMATION'.-@@.(Ǡ ( ( #(#(ALIGN PAPER ON PRINTHEAD&36:}( ( (/(IS PAPER ALIGNED ON PRINTHEAD30&7@<@,4Y& A:&7@<@,4N& A@D6;} APN;;:TYPE NEXT LINE IN INVERSE VIDEO 'REPORT INFORMATION'X,-@@,(Ԡb)( ( 6<}(%(WHAT IS TODYAS DATE)l6( ( (6(%WHAT IS THE SCHOOL NAME(MAX 25 LTTRS)v{JB:,!@%(@(&NAME TOO6=} BIG. MAX. IS 25 LETTERS-REDO!J A *( ( (*(WHAT IS THE TEACHERS NAME.( ( (*(WHAT IS THE PHONE N6>}UMBER. AP7( ( ((7(#THE INFORMATION ON THIS SCREEN WILL%%(MODIFY ALL SUBSEQUENT REPORTS,( (6?},(WHAT IS THE SUBJECT DEPARTMENT1( (1(#ARE ALL REPORTS IN THE SAME SUBJECT (AREA&7@<@6@},4Y& A&7@<@,4N& A (6-  A8; AP(((7(6A}HOW MANY COPIES DO YOU WANT; B (*:!@:(ARE YOU SURE YOU YOU WANT  COPIES4 @6B} A`>!@H$$7@<@,4YA`R$$7@<@,4NAp\)( ( ()(DID YOU6C} MAKE A MISTAKE ?f (DO YOU WANT TO START ALLp( OVER AGAINz&7@<@,4Y& A!P AP6D}<<:TYPE NEXT LINE IN INVERSE VIDEO 'STUDENT INFORMATION'--@@-(Ԡ(( ( (((WHAT 6E}IS STUDENT'S FIRST (NAME$( ($(WHAT IS STUDENT'S LAST (NAME#( (#(WHAT IS MOTHER'S LAST6F} (NAME+( ('(WHAT CLASS IS STUDENT IN+ AP<<:TYPE NEXT LINE IN INVERSE VIDEO 'SUBJECT PERFOR6G}MANCE'--@@-(Ԡ4( ( (4(#HOW MANY TEST GRADES DO YOU WANT TO(ENTER16H}( (1(#ENTER TEST GRADES AND PRESS RETURN.!(USE ONLY NUMBER GRADES!($36-6-'6-36-6I}.-@8%( #("%(B5 68,-6-8@,*6-8@,56-8,%L V6J}-@` 8,!6-8,j 8, 6-8,t ~ 6-' AP6-:::TYPE NEXT LINE IN IN6K}VERSE VIDEO 'CLASS WORK RATING'7-@@+(Ӡˠ.(1(4(7(6-&-@ @&(6L} 1: EXCELLENT&-@ @&( 2: VERY GOOD!-@ @!(3: GOOD/-@ @/(4: SOMETIMES N6M}OT DONE--@ @ -(5: USUALLY NOT DONE'-@ @'( 6: NEVER DONE.-@@*(SELECT A6N} NUMBER.X @)!@+-@@N(ERROR: USE NUMBERS FROM 1 TO 6X Ap  AP99:TYPE 6O}NEXT LINE IN INVERSE VIDEO 'HOME WORK RATING'6-@@*(Šˠ-(0(3(6((6-2&-@ 6P}@&( 1: EXCELLENT<&-@ @&( 2: VERY GOODF!-@ @!(3: GOODP/-@ @/(46Q}: SOMETIMES NOT DONEZ+-@ @ +(5: USUALLY COPIEDd'-@ @'( 6: NEVER DONEn.-@@*6R}(SELECT A NUMBER.xX @)!@+-@@N(ERROR: USE NUMBERS FROM 1 TO 6X A AP6S}77:TYPE NEXT LINE IN INVERSE VIDEO 'CONDUCT RATING'4-@@((Ԡ+(.(1(4(6-'6T}-@ @'( 1: EXCELLENT.'-@ @'( 2: VERY GOOD."-@ @"(3: GOOD.2-@ @6U}2(4: SOMETIMES DISRUPTIVE.0-@ @ 0(5: USUALLY DISRUPTIVE./-@ @/(6: ALWAYS DISRUPTI6V}VE..-@@*(SELECT A NUMBER.W @)!@+-@@M(ERROR:USE NUMBERS FROM 1 TO 6W}6W A AP99:TYPE NEXT LINE IN INVERSE VIDEO'ATTENDANCE RATING'+-@@+(Š6X}6-"&-@ @&( 1: EXCELLENT,!-@ @!(2: GOOD6,-@ @,(3: FREQUENTLY 6Y}LATE@1-@ @1(4: SOMETIMES CUTS CLASSJ5-@ @ 5(5: CUTTING MOST OF THE TIMET2-@ @6Z}2(6: BAD - ABSENT TOO MUCH^/-@@+( SELECT A NUMBER/hX @)!@+-@@N(6[}ERROR: USE NUMBERS FROM 1 TO 6X A0r AP|:( ( ((((((:(DO YOU WISH TO SEE A SHORT"(PREVI6\}EW OF THE REPORT"&7@<@,4Y& A2 6-%@AR@B6-B:,%@%6-B:6]},%@.6-B:,B6-+%%,'@(>:A%,(-@@((I AM PRINTING!*-@@*( 6^}ŠĠ-@ A" 7 AP(((7(DIFFERENT REPORTS PRINTED ON"(INDIVDUAL STUD6_}ENTS = "(FAR(((!($(F(DO YOU WISH TO PRINT ANY MORE(REPORTS&7@<@6`},4Y& A`& AP0u7@<@,4N.-@@A(END OF PROGRAMU-@AY kAR6a}u A2:(>:A%,D%%6-P:@$H:@,%@,NooAAAAA A06b}A@APA`ApAAA X6-@ A b6-@ A l6-@66c} A v6-@R A 6-@f A 6-@ A 6-@ A 6-A6d} A 6-A A 6-A0 A 6-A` A 6-A A 6-A'6e} A !A!A @$(>:A%,(-@@((I AM PRINTING!*-@@6f}*( ŠĠ  AP>( ( ((((>($I HAVE UNDERSTOOD YOUR INSTRUCTIONS! 0( ( ((0(I WILL NO6g}W MODIFY MY PROGRAM*(IN ORDER TO RUN FASTER4AR@>&( (&( ŠĠH-@6h}A RAR\$f5#@@E:5AYp(z((>:AV, 460 6i}GOTO 470(>:AV,750 ? (CONT--F:AB,*AB@-&AB@(>:A%6j},AY@4@' AP$$(@>:@,>:@,6-@&+B:,'@,6k}A DD(@>:@,>:@',G>:@',H>:@ , 6-@'&+B:,'@, A6l}$ --(@>:@',E DEPARTMENT. 6-@%&+B:,'@,8 AB (@ , TEACHERL '6m}@@ 'A@V $$(@>:@,>:@,] TT(@>:@',D>:@,>:@,>:@06n},>:@@,>:,` <<(@>:@ ,>:@ ,>:@ ,>:@ ,j $$(@>:@,>:@,t6o} !!(@ DEAR MRS. :~ //(@>:@,>:@,>:@, KK(@>:@ ,THIS IS A REPORT ON6p}  IN CLASS . WE AT 88(@% ARE INTERESTED IN PROVIDING THE BEST $$(@EDUCATION POSSIBLE. HH6q}(@>:@ ,AS YOU KNOW, MRS.  IT IS VERY IMPORTANT ??(@THAT  RECEIVES GOOD GRADES IN .6r} GOOD BB(@1GRADES ARE IMPORTANT FACTORS IN SCHOOL PLACEMENT. LL(@>:@ ,. RECEIVES WEEKLY TESTS A6s}S WELL AS HOMEWORK AND AA(@)CLASSWORK. LISTED BELOW IS THE RATING OF 'S $$(@SCHOOL PERFORMANCE.6t} II(@>:@ ,IF YOU WANT TO SEE ME, MRS.  , TO DISCUSS ==(@*'S SCHOOL WORK, PLEASE CALL THE SCH6u}OOL FOR --(@AN APPOINTMENT. TELEPHONE: (@>:@, 6-@&+B:,'@, A 6v}^^(@>:@,>:@',G REPORT:>:@ ,>:@',H>:@',E( QQ(@>:@',D>:@6w})&P:,,>:,>:@ ,  - II(@>:@',D>:@,>:@,>:@@,>:,2 6x}(@>:@,< BB(@>:@ ,>:@ ,THE HIGHEST TEST GRADE = F AA(@>:@ ,>:@ ,6y}THE LOWEST TEST GRADE = P UU(@>:@ ,>:@ ,THE AVERAGE TEST GRADE = P:$@,'@Z 77A&`6z}A&pA&A&A'A'd MC(@>:@ ,>:@ ,THE CLASS WORK IS EXCELLENT.M A' n MC(6{}@>:@ ,>:@ ,THE CLASS WORK IS VERY GOOD.M A' x H>(@>:@ ,>:@ ,THE CLASS WORK I6|}S GOOD.H A'  VL(@>:@ ,>:@ ,%THE CLASS WORK IS SOMETIMES NOT DONE.V A'  TJ(@>:@ 6}},>:@ ,#THE CLASS WORK IS USUALLY NOT DONE.T A'  ND(@>:@ ,>:@ ,THE CLASS WORK IS NEVER 6~}DONE.N A'  77A'@A'PA'`A'pA'A' KA(@>:@ ,>:@ ,THE HOMEWORK IS 6}EXCELLENT.K A( KA(@>:@ ,>:@ ,THE HOMEWORK IS VERY GOOD.K A( F<(@>:@ ,>:@6} ,THE HOMEWORK IS GOOD.F A( TJ(@>:@ ,>:@ ,#THE HOMEWORK IS SOMETIMES NOT DONE.T A(6} PF(@>:@ ,>:@ ,THE HOMEWORK IS USUALLY COPIED.P A( LB(@>:@ ,>:@ ,THE HOM6}EWORK IS NEVER DONE.L A( 77A( A(0A(@A(PA(`A(p J@(@>:@ ,>:@ ,T6}HE CONDUCT IS EXCELLENT.J A( J@(@>:@ ,>:@ ,THE CONDUCT IS VERY GOOD.J A( E;(@>:6}@ ,>:@ ,THE CONDUCT IS GOOD.E A(" UK(@>:@ ,>:@ ,$THE CONDUCT IS SOMETIMES DISRUPTIV6}E.U A(, SI(@>:@ ,>:@ ,"THE CONDUCT IS USUALLY DISRUPTIVE.S A(6 RH(@>:@ ,>:@6} ,!THE CONDUCT IS ALWAYS DISRUPTIVE.R A(@ 77A)A)A) A)0A)@A)PT MC(@>:6}@ ,>:@ ,THE ATTENDANCE IS EXCELLENT.M A)`^ H>(@>:@ ,>:@ ,THE ATTENDANCE IS GOOD.H 6}A)`h [Q(@>:@ ,>:@ ,*THE ATTENDANCE - FREQUENTLY LATE TO CLASS.[ A)`r WM(@>:@ ,>:6}@ ,&THE ATTENDANCE - SOMETIMES CUTS CLASS.W A)`| aW(@>:@ ,>:@ ,0THE ATTENDANCE - CUTTING CL6}ASS MOST OF THE TIME.a A)` XN(@>:@ ,>:@ ,'THE ATTENDANCE - BAD - ABSENT TOO MUCH.X A)` (6}@>:@, (@>:@,  @e A0  #@e*@u# A00 #!@u*@6}# A0@ !@ A0P I?(@& IS FAILING BECAUSE OF POOR GRADES IN .I A0` KA(@6}( IS PASSING BUT COULD DO BETTER WORK IN .K A0` KA(@( IS PASSING AND DOING VERY GOOD WORK IN 6}.K A0` KA(@( IS PASSING AND DOING EXCELLENT WORK IN .K A0` A0p 77A0A06}A1A1A1 A10 SI(@6 HAS EXEMPLARY CONDUCT IN CLASS AND IS VERY ATTENTIVE.S A1@ ND(@6}1 IS ATTENTIVE AND HAS VERY GOOD CONDUCT IN CLASS.N A1@ I?(@, IS ATTENTIVE AND HAS GOOD CONDUCT IN CL6}ASS.I A1@& VL(@9 SOMETIMES DISTURBS THE CLASS AND DOES NOT PAY ATTENTION.V A1@0 TJ(@7 USUAL6}LY DISTURBS THE CLASS AND DOES NOT PAY ATTENTION.T A1@: UK(@8 ALWAYS DISTURBS THE CLASS AND NEVER PAYS ANY A6}TTENTION.U A1@D (N //(@>:@,>:@,>:@,X <<(@>:@ ,>:@ ,>:@ , SIN6}CERELY,b $$(@>:@,>:@,l [[(@>:@ ,>:@ ,>:@ ,>:@',4>:@',5 6}, TEACHERv //(@>:@,>:@,>:@,{ (@(@ $ 9AAH'A @6}*(-(0(3(6(9 AP *-@@*(Ԡנ B6-B:,%@%6-B:,%@.6-B:,B6-6}+%%,'@ ,-+@&P:,,@,(   ( 5-@@5(THE HIGHEST TEST GRADE =  4-6}@@4(THE LOWEST TEST GRADE =  H-@@H(THE AVERAGE TEST GRADE = P:$@,'@ 776}A3A3 A30A3@A3PA3` ;-@@ 1(CLASSWORK IS EXCELLENT.; A3p ;-@@ 6}1(CLASSWORK IS VERY GOOD.; A3p 6-@@ ,(CLASSWORK IS GOOD.6 A3p D-@@ :( CLASS6}WORK IS SOMETIMES NOT DONE.D A3p B-@@ 8(CLASSWORK IS USUALLY NOT DONE.B A3p <-@@ 6}2(CLASSWORK IS NEVER DONE.< A3p* 77A3A3A4A4A4 A404 :-@@0(HOMEWO6}RK IS EXCELLENT.: A4@> :-@@0(HOMEWORK IS VERY GOOD.: A4@H 5-@@+(HOMEWORK IS GOO6}D.5 A4@R C-@@9(HOMEWORK IS SOMETIMES NOT DONE.C A4@\ A-@@7(HOMEWORK IS USUALLY 6}NOT DONE.A A4@f ;-@@1(HOMEWORK IS NEVER DONE.; A4@p 77A4PA4`A4pA4A46}A5z 9-@@/(CONDUCT IS EXCELLENT.9 A5 9-@@/(CONDUCT IS VERY GOOD.9 A5 6}4-@@*(CONDUCT IS GOOD.4 A5 D-@@:( CONDUCT IS SOMETIMES DISRUPTIVE.D A5 B-@6}@8(CONDUCT IS USUALLY DISRUPTIVE.B A5 A-@@7(CONDUCT IS ALWAYS DISRUPTIVE.A A56} 77A5 A50A5@A5PA5`A5p <-@@2(ATTENDANCE IS EXCELLENT.< A5 7-@6}@-(ATTENDANCE IS GOOD.7 A5 A-@@7(ATTENDANCE - FREQUENTLY LATE.A A5 E-@@6};(!ATTENDANCE - SOMETIMES CUTS CLASSE A5 J-@@@(&ATTENDANCE - CUTTING MOST OF THE TIME.J A56} E-@@;(!ATTENDANCE - BAD, ABSENT TOO MUCHE A5  @e A60#@e*@u# A6}6@#!@u*@# A6P!@ A6`$(.:(0(# IS FAILING BECAUSE OF POOR GRADES.: A66}p8<(2(% IS PASSING BUT COULD DO BETTER WORK.< A6pB7(-( IS PASSING AND DOING GOOD WORK.7 A6pL;(6}1($ IS PASSING AND DOING EXCELLENT WORK; A6pV77A6A6A7A7A7 A70`A7(- HAS EX6}EMPLARY CONDUCT AND IS VERY ATTENTIVE.A A7@j<2(( IS ATTENTIVE AND HAS VERY GOOD CONDUCT.< A7@t7-(# IS ATT6}ENTIVE AND HAS GOOD CONDUCT.7 A7@~MC(9 SOMETIMES DISTURBS THE CLASS AND DOES NOT PAY ATTENTION.M A7@KA(76} USUALLY DISTURBS THE CLASS AND DOES NOT PAY ATTENTION.K A7@H>(4 ALWAYS DISTURBS THE CLASS AND NEVER PAYS ATTENTIO6}N.H A7@ ( (%%(IS THIS REPORT O.K. TO PRINT???(7IF YOU SAY 'N0' THEN I WILL GO BACK SO YOU CAN RE-DO IT&6}"(SHALL I PRINT THIS REPORT&&7@<@,4N& A$6-F:A,%%6-F:A,$AV%F:6}A,#"@)"@# A8P *(*(>:AS,ERROR - USE A NUMBER-@@`  A86} D:LETTERLMSZNHHCHRSRUVATKCHR4LLLICCIXYZEAYYNPHCHR4JX'A@V'A >(>:A%,"-@@>(ҧӠ:}ؠպ/-@@/(1: Infobase Data Base4-@@4(2. Letter Report to Parent9 A-@:} @5(SELECT A NUMBER92 AP2 @)!@)P:,A@ApA<(>:A%:},"-@ @<(NOW LOADING INFOBASE!% D1:INFOBASE"D(>:A%,"-@@D(NOW LOADING LETTER T:}O PARENT!,% D1:LETTER6C(/($ ERROR - SELECT A NUMBER FROM 1 TO 29 BC A@@D:MENUҧӠ8rD2:CLASS.80230D2:ETTER6C(/($ ERROR - SELECT A NUMBER FROM 1 TO 29 BC A@@D:MENUҧӠ<D1:CLASS.8023D1:0ETTER6C(/($ ERROR - SELECT A NUMBER FROM 1 TO 29 BC A@@D:MENUҧӠ@