@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 }}}}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}!"$"DDFIL2FILSYNLWORKYFILEWRTFIL1AENAMEFRSTPAADCIZIPNAEZIPPHGRSEXSANAME25,}YBANNAD@ -}@@.} !"#$%&'()*+,/}-./0123hh;@%,;@%,;@%,;@,;@,;@0},;@,;@,;@,11;A ,;@,;@,;@%,ZZ;@%,;@%,;@,1};@,9@P,9@P<@,;@%,""VERSION 3.0 BY ROLAND FETZER*** RECOVER VARIABLES ***&&;2}@%,;@%,;@,"7@7@@ D:WRITE.VA2,@6@6.3}@*** SCREEN COLORS ***J//A@APA`ApAT1AAH'A @1 A4}^1A@T'A @1 Ah1A@V'A 1 Ar1AA''A 5}@1 A|1A@'A @1 A4D2:AS(>:A%,"-@6}@K($PLEASE PUT DISK INTO DISK DRIVES6. /(+(IS DISK IN DISK DRIVE(Y/N)/$$7@<@7},0YA A --*** ENTER NEW FILENAME (SUBROUTINE) ***e(>:A%,"-@@e(>THE NEW FILENAM8}E FOR MAILMERGE SHOULD HAVE AN EXTENDER OF (($(WHAT IS THE NEW FILENAME(16-6-B:,167@<9}%@,.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)l$v A` A + Ap A p! A+ A  *** FILES ON DATA @}DISK ***; A`4D1:;@@D1:*.*; A`4D2:;@@D2:*.A}*(>:A%,3@37@<@,4707A`++@:7@<@,,!@GA0(AB}@( A@:7@<@,, @GA@'(!( FILES ON DISK$('(>(:(.DOC} YOU WANT TO USE ONE OF THE ABOVE FILES(Y/N)>-(-("PLACE A DECIMAL POINT BETWEEN FILE++(#NAME AND EXTENDER. EXMPD}L: CLASS.602 $$7@<@,4YA $$7@<@,4NA  $*$$*** NEW FILE FOR MAILMERGE **E}*4'(#(PLEASE TYPE IN FILENAME'> AH A R$\++*** GET SECTOR & BYTE # LOCATIONS ***fN A 0F}*@@66-B6-N6-p@ze@C7@<@,4G} )7@<@,4ENDO6-[6-e A6-%@%68<,-%68<@,- AH}+F:A,"A6#@+6. 4YESA$*** SELECT FIELDS ***, A 6. I} ,(>:A%,+(%( THE FIELDS ARE:((+(R( 1. STUDENT$( 2. PARENT5( 3. ADDRESSC(4.J} CITYR(5. STATEk(6. ZIP(7. PHONE.(8. GRADE;(9. SEXG6-S6-_6-k6-K}W A-@@S(.SELECT THE AND THE FIELD YOU WANT TO USEWQ  @)!@ )P:,G(L}" ERROR - USE A NUMBER FROM 1 TO 9Q A(6-%@68,-(6-%@H(*(DO YOU WANT ANOTHER FIELD(Y/NM}).@-@3@H( 9-@@ )(Ӡ5-@!9($@7@<@,4Y.-@ N}@6( @ A.$8&&*** OPEN FILES FOR MAILMERGE ***B6-@L+@+@@ O}V%6-8<,%6-8<@,`+@+@@j4 AP@)@P}4@t!!*** SAVE FIELDS TO DISK ***~-@6-8,"@A8,"@AQ}P8,"@A8,"@Ap8,"@A08,"@A`8,"@R}A8,"@AP8,"@ A 6-%@ A*** STUDENT *** 6.S}7@<@%, -@%@6@7<,0>:@2,A0( 2% @7@<,% A`T}<*** PARENT ***F6.7@&<@P,P -@%@6@Z7<,0>:@2,Ad n% @}QttDCAEHSRPKTNAMENAFILEFIL1UBEFTYSKMA1B1C1S1NF1D1YNGK1H1M1LRLV}BLE1CNJZ1PILMB2VWRTYFREETYDDD2J1VVW} X} !"#$%&Y}'()*+,-./0123456Z}789:;<=>?@ABCDE[}FGHIJ@KLMNOPQRS;@\}, 6.D1:VERSION 3.0 - RON FETZERQ(>:A%,"-@@E(WHAT SCREEN COLOR DO YOU WANT?Q6-]}#-@@#( 1: NORMAL"-@@"(2: AMBER*-@@*(3: REVERSE AMBER"-@^}@"(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@Va}'A 1 A^1AA''A @1 Ah1A@'A @1 Ab}rDIM SECTION|;@,;@,;@,;@,;@,;@,;@,;@,;@%,;c}@8,;A$,;@0,;@%,;@%,11;@8,;@8,;@%,;@%,];A0,;@0d},;@0,;@,;@,;@,;@,;@,n67@,. 67A0,. 67@,.6.e}";@0,;@,"6.~;@,;@,;@,;@,;@,;@,;@,;@f},;A,;A,;A,6.>:@',DISK DATAR(>:A%,((((("(%(((R(%PLEASE INSERT g} DISK IN DISK DRIVE;(%(IS DISK IN DISK DRIVE7-@@; 4Y A 4N APh}FILES & DIRECTORY; 4D1: A;@@D1:*.*; 4D2: A;@@i}D2:*.*(>:A%,@++@:7@<@,,!@GA`(A@( Aj}@:7@<@,, @GA&67@ ,. 0@:*($( FILES ON DISK'(*(D>(:(.Dk}O YOU WANT TO USE ONE OF THE ABOVE FILES(Y/N)>N-(-("PLACE A DECIMAL POINT BETWEEN FILEX++(#NAME AND EXTENDER. EXMl}PL: CLASS.602b 4Y A0l 4N Av'(#(PLEASE TYPE IN FILENAME' 6-B:,67@<%m}@,.67@<@,.&6.7@<%@,& A.(*(DO YOU WANT TO OPEN A NEW FILE. n}4Y A 4N A(($(WHAT IS THE NEW FILENAME(% 6-B:,%67@<%@,.67@o}<@,.6.7@<%@,+ @@+@ A SEARCH h(>:A%p},((((("(%(:(7@<@%,=(h(&TO SEARCH FURTHER PRESS THE KEY**(" TO ACCEPT PRESS THE q} KEY  F:B2y,"@Ap*F:B2y,"@$4 A>I Ap*@@66-r}B6-I6.HB@@B7@<@,4ENDA`R&&7@<@,0ENDAs}@\H67@<@,. -@: @E@H$f&F:A,"A6#@&$pMAINt} MENUzF6-(>:A%,.-@@;( պF@f((1.FILES ON DATA DISK1( 2.ENTER NAMESu}N(3.DISPLAY NAMES SERIALLYf(4.SEARCH FOR A NAME](5.CORRECT A RECORD+( 6.ԠG(7.̠Π]v}(8.DELETE A RECORD;(9.CONFIGURE DISK DRIVES0( 10.;(11.END/ A(+(PLEASE ENTER A NUMBER/w}(( )!@)P:,A__AA pA0A A@A9A`pA@`AcAgx}AZ(>:A%,"-@@Z(3I AM NOW CHECKING FOR AN RECORD AND DELETING IT A0467@y},. %67A$,. 467@,.](>:A%,(#( 1. STUDENT:2( 2. PARENT:B( 3. ADDRESS:O(4. CITY:]( z}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 EGRADEL}C6-A6-@'6-@36-@= A CSEXVi6-!-@@D(ARE ALL ENTRIES CORREC}T (Y/N)Hi7@<@,4YA``$$7@<@,0YA0jY A0-@@H(#ENTER TH}E NUMBER OF INCORRECT ENTRYLY6-6@t-@* @- A%@$~ A I67A$,. 1}@@ > @I@4-@@0( ANOTHER NAME (Y/N)4$$7@<@},4YA &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.} STUDENT: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-@%= A}h=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 ANS}WER '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-}A6-@'6-@36-@= A 0F6-!-@@F(ARE ALL ENTRIES CORRECT (Y/N) :}((7@<@,4YApD A N@ @X8( (4(%DO YOU WANT TO CORRECT ANOTHER} RECORD8b@4YAPl4NAv@ AJ -'( }9-%&@F67<,. J  - R B:,!-@@ H(PLEASE LIMIT LENGTH TO **LETTERSR A} 4 67,.-@@ #(467A$,.  A@ END5 +-@@2(END OF PROG}RAM5^(>:A%,"-@@<(NO FILES ON THIS DISKP-@AT ^ A@NAMES RANDOMELY}67@,. 6.  @@H(>:A%,"-@@H(!ENTER THE LAST NAME OF THE REC}ORDY (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:B}2y,"@A P4 F:B2y,"@A! > A H](>:A%,(#( 1. STUDENT:2( 2. PARENT:B( 3. A}DDRESS: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 LA}ST 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} PRESS 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 RA}NDOMELY 1 @@13>:@',@  6. 6.  H(>:A%,"-@@H(!ENTER THE L}AST 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-@v}6-@% 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 LAB}ELS THE ENTIRE FILE = @@,6-=3>:@',@ 6.  .@.@@}P: K@K7@<@,4 )7@<@,4ENDA2 6-%@ M(@M* AD}D OR 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 G}RADESz 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}.MAILLING LABEL - RANDOMLYPP&(4.MAILLING LABEL - ENTIRE FILEP(%5.PRINT STUDENT & GRADE - ENTIRE FILEZX,($6.PRINT STU}DENT, PARENT & PHONE FILE<( 7.ΠX(8.̠ΠdB(9.PRINT ATTENDANCE CARD7(10.PRINT GRADE BOOK}B(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 HAV}E MORE 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 LTRS)-$( ( WHAT HOME ROOM $)(%( WHAT MARKING PERIOD )=(.(# TEACHER'S NAME(MAX 1}5 LETTERS)9( =I(>:A%,((((("(%(I(HOW LONG A MONTH SHALL I PRINT?&(&( 1:} THRITY 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:'@,%@,-@&=-@6}NSS7$@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@}7AR@(7( PRESS TO PRINT2AR2F:B2y,"@AGp AE`77* D}ATA INPUT FOR ATTENDANCE CARD - REGULAR SORT * 6.  B5 AF@@5@@< } AFP@<7@<@,4 AF 6-%@6-B:,C967$@0&@)<$@0%,.7@}<@%,C AF * @@* AF*AF:A,"A6#@16-&@76-A A }B`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 AGP4 }6-6-'6-4(>:A%,<(>:A%,( AG<(PLEASE TURN ON THE PRINTER.@. }@@P:I6-(((((!($(E(HOW MANY COPIES DO YOU WANTI-@ }* TO 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 LI }NES *(6-2-@P<v @v(@  ______________, _____________ (|__|__|__| }__|__|__|__|__|__|__|__|__|__|Fq!@ q(@ ______________, _____________ (|__|__|__|__|__|__|__| }__|__|__|__|__|__|P ZMM(@< a = ABSENT l = LATE c = CUTTING E = EXCUSEDd6-n&- }@@"(@& x: * TO PRINT 2ND PAGE *@@(@E) PAGE 2 }(@>:@,33(@" MONTH__________6-77ASASPATATP }AAbb(@ 514,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31 COMMENTSF- }@@Pr @r(@ 7|__|__|__|__|__|__|__|__|__|__|__|__|__|__|__|__|__|__| ___________ }____j!@ j(@7|__|__|__|__|__|__|__|__|__|__|__|__|__|__|__|__|__|__|_______________  AU }__(@ 214,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30 COMMENTSF#6-#-@ }@Pq @q(@ 4|__|__|__|__|__|__|__|__|__|__|__|__|__|__|__|__|__| _________________i }!@ 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--@@(@  @ %}H(>:A%,((((("(%(((+(.(1(H* DIFFERENT MONTHS *I 6. E(4DO YOU WANT TO PRINT A MONTH WIT &}H DIFFRENT DAYS(Y/N)I&7@<@,4N& A&7@<@,4Y& AC0 +%%* '}SUBROUTINE FOR REVERSE SORT *6-%@36-6-'6-36-&((PRESS RETURN PLEA (}SE0](](RTO STOP SCROLLING HOLD DOWN 'CTRL' AND PRESS 1. TO CONTINUE REPEAT THE SAME ACTION: 6.6-B:,D- )}"6-&@#6-- AW@N((67$@0&@)<$@0%,.X AV@b* START OF REVERSE SORT *l *}$6-P:'@,$-@&v-@6SS7$@0&@)<$@0,/7+%,$@0&@)<+%,$@0 +},AXn&6.7$@0&@)<$@0,n67$@0&@)<$@0,.7+%,$@0&@)<+%,$@0,. ,}.67+%,$@0&@)<+%,$@0,. ( !@AW@E-@6@A( 7$ -}@0&@)<$@0,E $++* SUBROUTINE FOR REVERSE SORT BY SEX"6-%@36-6-'6 .}-36-((PRESS RETURN PLEASE](](RTO STOP SCROLLING HOLD DOWN 'CTRL' AND PRESS 1. TO CONTINUE REP /}EAT THE SAME ACTION  6.6-B:,-"6-&@#6-- AYP ((67$@0&@)<$@0%, 0}.* AXP4&&* START OF REVERSE SORT BY SEX *>$6-P:'@,$-@&H-@6RSS7$@0 1}&@)<$@0,/7+%,$@0&@)<+%,$@0,A`\n&6.7$@0&@)<$@0,n67$@0&@) 2}<$@0,.7+%,$@0&@)<+%,$@0,f..67+%,$@0&@)<+%,$@0,.p z(  3}!@AYPE-@6@A( 7$@0&@&<$@0,E $4D2:Aa0C(> 4}:A%,"-@@C(PLEAE PUT DISK INTO( DISK DRIVE6. 3(/(#IS DISK IN DISK DRI 5}VE(Y/N)3$$7@<@,4YAa $$7@<@,4NA`p22SAVING OF VARIABLES FOR 'INFOBASE.A 6}' TO DISK 6.6-7@7@@ D:WRITE.VAR @ @ @ 7} @$@.W(>:A%,"-@@F(ŠĠ٠ɠ͠ǡW% D:INFOBASE.A8 8}R(>:A%,"-@@R(+PLEASE PUT DISK INTO DISK DRIVE #1@ Ac-@@<(# OF DI 9}SK DIRVES 1 OR 2@K @)!@(A( ERROR - SELECT EITHER 1 OR 2K Ac"@ Ad :}"@ Ae)#@@E:&()( i`(>:AV,A>:@h,>:@h,>:@6,>:@a ;},>:@4,D1:>:@4,i(CONT--F:AB,*AB@-&7AB@"(>:A%,- <}@7 Afd)#@@E:&()(ni`(>:AV,A>:@h,>:@h,>:@6,>:@a =},>:@4,D2:>:@4,i(CONTs--F:AB,*AB@-&x7AB@"(>:A%,-@ >}7 Af=-@@=(#NOW SAVING DISK DRIVE CONFIGURATIONJ D:INFOBASE$-@@;(RELOADING ?}INFOBASEJ% D:INFOBASE,64D2:AgP;Q 6.(>:A%,)-@@M(IS DISK IN DRIVE(Y/N }]^^WRTFILEYABCSANFAP1P2EGKHMB1B2LM1VYNDFILEFIL1DCADAFATOUTGINAMENASFYFZXSECT A}SELLQZTLSBSMSMRAIGAJPRS1K1DDWRT B}  C} !"#$ D}%&'()*+,-./01234 E}56789:;<=>?@ABC@D F}EFGHIJKLMNOPQRS G}PVERSION 3.0Z&&;@%,;@%,;@,d7@7@@ D:WRITE.VARn@ H}x@6.//A@APA`ApA1AAH'A @1 A I}1A@T'A @1 A1A@V'A 1 A1AA''A J}@1 A1A@'A @1 A];A0,;@0,;@0,;@, K};@,;@,;@,;@,n67@,. 67A0,. 67@,.6.6.s;@,; L}@,;@,;@,;@,;@0,;A,;A,;A,;@ ,6.>:@',~~;@ M},;@%,;@%,;@,;@,;@,;A,;A$,;@,;A$,;@%,;@0 N},;@0,;@0,;@0,;@@,;@ ,;@ ,;@,9@P,;@,;@,;@, O};@,4D2:ApE(>:A%,"-@@E(PLEASE PUT DISK INTO DISK (DRIVE6. / P}(+(IS DISK IN DISK DRIVE(Y/N)/$$7@<@,0YA0"@A8,++" "* SPEC Q}IAL FUNCTION MENU *6T(>:A%,"-@@=(̠ΠպI6-T@@!(!( 1: FILES O R}N DATA DISKJ( 2: FORMAT A DISKO( 3: PRINT GRADE BOOKT((( 4: GLOBAL DELETE OF GRADE ENTRY^++(# 5: SEQUENTIA S}L INPUT OF GRADE ENTRYh##( 6: RECOVER DELETED RECORDSr( 7: LOCK A FILE|( 8: UNLOCK A FILE( 9: RENAME A T} FILE(10: DELETE A FILE%%(11: SHOW AVAILABLE DISK SPACE##(12: COMPUTE STUDENT AVERAGE(13: RETURN TO M U}AIN MENU(14: Š(15: END5 A(1( PLEASE ENTER A NUMBER5(( @)!@ V})P:,AAAA8AAAAApB@BBBAup W}BAu` 6.6-6.$$7@<@,40APW6.7@<@,441)42) X}43)44M67@<@,.5W AP45AP646)47)48)49667@<@,.0>6 Y}-6-A:,&6-%@2!@>6-@ 6.=:,"@ A$-(*( Ġ Z}=-$L9(9(.ENTER A ONE CHARACTER CONDUCT GRADE(S,N,U etc)V6(( 367@<@,.6$ [}2<))FORCED READ MODE TO CLEAR LINE 6600=5#@@E:5AY>(?(@;;(>:AV \},(6600 REM FORCED READ MODE - IN THIS LINEA (CONTB--F:AB,*AB@-&CAB@D ]}(>:A%,EAY@4F@//AEAE AE0AE@AEP1AAH'A ^}@1 AE`1A@T'A @1 AE`1A@V'A 1 AE`1 _}AA''A @1 AE`1A@'A @1 AE` $$" " * SELECT `}A SORT *@6-(>:A%,.-@@@( Ԡ#( (#( 1: REGULAR SORT(( 2: S a}ORT BY SEX2;(;(0 YOU MAY NOT HAVE MORE THAN 50 NAMES IN THE FILE<)( (%( SELECT A NUMBER:)FAR b}AVpP>>" " * DATA INPUT FOR GRADE BOOK - RGULAR SORT *Z! 6.  B!6-d+@+@ c}@n< ARp@<7@<@,4 AR0x6-%@I?67$@0&@)< d}$@0%@%,.7@<@%,I AR0AF:A,"A6#@16-&@76-A AS0!!: e}* 'INFOBASE.A' PROGRAM BY: R. FETZER *(>:A%, AV: * START OF SORT OF A$ *<(>:A%,(( f}((("(8( WHAT GRADE < (( WHAT CLASS  -()( WHAT SUBJECT(MAX 4 LTRS)-$( ( g} WHAT HOME ROOM $)(%( WHAT MARKING PERIOD ).(.(# TEACHER'S NAME(MAX 15 LETTERS)(  q}b'DOS SYSBD+INFOBASEB BUINFOBASE B@INFOBASEA bLETTER bMENU bAUTORUN SYSBWRITE VAR3INFOBASEB BWRITE VA2INOFBASEB =6-P:'@,%@,-@&=-@6SS7$@0&@)<$@0,/7+%,$@0&@) r}<+%,$@0,AT0n&6.7$@0&@)<$@0,n67$@0&@)<$@0,.7+%,$@0&@)<+%,$ s}@0,"..67+%,$@0&@)<+%,$@0,., 6 ( @!@ASE"@AYJ%%: t}* DISPLAY ALPHABETIZED DATA *T*(>:A%,(( 4YES* AY^<-@8( 7$@0&@)<$@0 u},< hG( (1("DO YOU WANT TO GO TO PRINT CHOICES5G4YESAUr4NOAV|A(>:A%,"-@ v}@A(WHAT DO YOU WANT TO PRINT?--@@-(1: PAGE ONE AND TWO+-@@+(2: PAGE ONE ONLY! w}+-@@+(3: PAGE TWO ONLY!0-@@0(4: RETURN TO MAIN MENU2-@@2(5: SPECI x}AL FUNCTION MENU(-@@((6: END PROGRAM AUp6-.-@@*(SELECT A NUMBER. y}] AUp* @)!@)P:,-(S(!ERROR SELECT A NUMBER FROM 1 TO 5] AUp:"@@: z}@@P:77AVAs0Af0AupAAu`OA@V'A *( {}K(DO YOU WANT TO REVERSE SORTO&7@<@,4Y& Ai;;7@<@,4N*7@<@,4 |}NA7AR@(7( PRESS TO PRINT2AR2F:B2y,"@Aa0 AV@ }}&>>" " * DATA INPUT FOR GRADE BOOK - SORT BY SEX *0! 6. 6-! B:+@+@@ ~}D< AW0@<7@<@,4 AWNS6-%@(6.7A<A ,?6.7@ }<@%,S67B:,%@,.X8.67$@0&@(<$@0%@%,.8 AWbAF:A,"A6#@ }16-&@76-A AS0l : * DISPLAY SORT BY SEX *(>:A%, 6-*<-@8( 7 }$@0&@&<$@0,< 4G( (1("DO YOU WANT TO GO TO PRINT CHOICES5G4YESAY`>4NOA`pH }A(>:A%,"-@@A(WHAT DO YOU WANT TO PRINT?R--@@-(1: PAGE ONE AND TWO\+-@@ }+(2: PAGE ONE ONLY!f+-@@+(3: PAGE TWO ONLY!p0-@@0(4: RETURN TO MAIN MENUu2-@ }@2(5. SPECIAL FUNCTION MENUz(-@@((6: END PROGRAM A`06-.-@@ }*(SELECT A NUMBER.] A`0* @)!@)P:,-(S(!ERROR SELECT A NUMBER FROM 1 TO 5] A`0: }"@@:@@P:77A`pAtPAfAupAAu`OA@ }V'A *(K(DO YOU WANT TO REVERSE SORTO&7@<@,4Y& Aq;;7@<@, }4N*7@<@,4NA7AR@(7( PRESS TO PRINT2AR2F:B2y," }@Ac@ Aa46-6-'6-4(>:A%,< Aa@(>:A%,(<(PLEASE TURN } ON THE PRINTER.@.@@P:I6-(((((!($(E(HOW MANY COPIES DO YOU }WANTI-@$* TO PRINT REGULAR SORT *.T(@(@$(@/(@:(@T(@ }>:@',E8,,(@  - B\\(@>:@',-1CLASS >:@',-0 }HOME RM  MARK PD L(@VHH(@7 TESTS`jj(@ }J NAMES |BK# | 1 , 2 , 3 , 4 , 5 , 6 , 7 ,AVG|>:@',Fj-@tY @ }Y(@>:@',E  7$@0&@)<$@0, ~Y @Y(@>:@',F'|_____ }|___,___,___,___,___,___,___,___| Q!@ Q(@>:@',E 7$@0&@)<$@0,U }!@ U(@>:@',F'|_____|___,___,___,___,___,___,___,___| @ Ae: * P }RINT SORT BY SEX *< Ac@(>:A%,(<(PLEASE TURN ON THE PRINTER.@.@@P: }=( ( (((((9(HOW MANY COPIES DO YOU WANT=6-6--@T(@(@ }$(@/(@:(@T(@>:@',E,,(@  -  \\(@>: }@',-1CLASS >:@',-0 HOME RM  MARK PD (@HH(@7 } TESTS(jj(@J NAMES |BK# | 1 , 2 , 3 , 4 , 5 , 6 , 7 ,AVG }|>:@',F2-@<\ @\(@>:@',E  7$@0&@&<$@0,  }FY @Y(@>:@',F'|_____|___,___,___,___,___,___,___,___| PW!@ W(@>:@' },E 7$@0&@&<$@0, ZU!@ U(@>:@',F'|_____|___,___,___,___,___,___ },___,___|d n* TO PRINT EMPTY LINES *x:6-@:@@P:-@P }v @v(@  ______________, _____________ '|_____|___,___,___,___,___,___,___,___|   }@ (@ r!@ r(@ ______________, _____________ '|_____|___,___,___,___,___,__ }_,___,___| E(@(@$(@/(@:(@E(@"@)"@ %%FO }RCED READ MODE - IN THIS LINEE"@)"@&(>:A%,)(,(A(HOW MANY COPIESE%"@)"@% }6-'"@)"@'-@#"@)"@# AfP6-.@.@ }@P:&-@@"(@& : * TO PRINT 2ND PAGE *"@@(@>:@',l>:@4 },>:@',EPage 2,(((@>:@',l>:,@(@Jaa(@A TESTS } CONDUCT AND CLASSWORK>:@',FO66(@  8, 9, 10,11,12,13,14,15,16,17,18T6-^ }-@@Pht @t(@ K__|__|__|__|__|__|__|__|__|__|__| |__|__|__|__|__|__|__|__|__|__|__|__ }|__| rl!@ l(@K__|__|__|__|__|__|__|__|__|__|__| |__|__|__|__|__|__|__|__|__|__|__|__|__|| }(@oo(@ >:@,>:@',ECOMMENT>:@ ,>:@',F }6--@@(@ @ ++"@)"@)"@AU }++"@)"@)"@AY`%%* SUBROUTINE FOR REVERSE SORT *6-%@36-6- }'6-36-((PRESS RETURN PLEASE](](RTO STOP SCROLLING HOLD DOWN 'CTRL' AND PRESS 1. TO CONTIN }UE REPEAT THE SAME ACTION& 6.6-B:,0-"6-&@#6-- Ap:((67$@0&@)<$@0 }%,.D AiN* START OF REVERSE SORT *X$6-P:'@,$-@&b-@6lSS7$@0 }&@)<$@0,/7+%,$@0&@)<+%,$@0,Ap`vn&6.7$@0&@)<$@0,n67$@0&@) }<$@0,.7+%,$@0&@)<+%,$@0,..67+%,$@0&@)<+%,$@0,. ( ! }@ApE-@6@A( 7$@0&@)<$@0,E $++* SUBROUTINE FOR REVERSE SORT } BY SEX"6-%@36-6-'6-36-((PRESS RETURN PLEASE](](RTO STOP }SCROLLING HOLD DOWN 'CTRL' AND PRESS 1. TO CONTINUE REPEAT THE SAME ACTION 6.6-B:,-"6-&@ }#6-- Ar ((67$@0&@)<$@0%,. Aq * START OF REVERSE SORT **$6-P:'@,$ }-@&4-@6>SS7$@0&@)<$@0,/7+%,$@0&@)<+%,$@0,ArpHn&6.7 }$@0&@)<$@0,n67$@0&@)<$@0,.7+%,$@0&@)<+%,$@0,R..67+%,$@0&@) }<+%,$@0,.\ f(p z!@ApE-@6@A( 7$@0&@(<$@0 },E $T#@@E:5AYTPAGE ONE ONLY - REGULAR SORT((!!(>: }AV,6600 GOTO 5500 (CONT--F:AB,*AB@-&AB@(>:A%, }AY@4@ AVR#@@E:5AYRPAGE ONE ONLY- SORT BY } SEX$(.(8""(>:AV,6600 GOTO 5960B (CONTL--F:AB,*AB@-&VAB@ }`(>:A%,jAY@4t@~ A`pI Aue3>:@',@(+5(>:AS,8I }END OF PROGRAM +4D2:AuI(>:A%,"-@@I("PLEASE PUT DISK INTO DISK } ( DRIVE 6. 3(/(#IS DISK IN DISK DRIVE(Y/N)3$$7@<@,4NAurU( }>:A%,"-@@F(ŠĠ٠ɠ͠ǡU% D:INFOBASE@!!" "* FORMAT DISK *BQ(>:A% },"-@@I("PLEASE PUT DISK TO BE FORMATTED INQ6. C( ˠD"(( IS DISK IN DRIVE }"F$$7@<@,4NAJF 4D1: A"@F@@D1:*.*OF 4D2: } A"@F@@D2:*.*T(>:A%,^@h++@:7@<@,,!@GA }pr(|A@( A@:7@<@,, @GA0@6. 2(.("IS IT OK TO ER }ASE THESE FILES(Y/N)2$$7@<@,4NAK 4D1:6AT@D1:A@ }K AK 4D2:6AT@D2:A@K A(#((" "* FILES ON DATA DISK }*2#R(>:A%,((((("(%(((R(%PLEASE INSERT DISK IN DISK DRIVE<#;(%(IS DISK IN DISK DRIVE7-@ }@;F#&7@<@,4Y& A`P#&7@<@,4N& A Z#33" "* FILES SELECT }ION AND DIRECTORY *d#F 4D1: A"@F@@D1:*.*i#F 4D2: A"@F }@@D2:*.*n#(>:A%,x#@#++@:7@<@,,!@GA #(#A }@( A@:7@<@,, @GA#67@ ,. #@#:($( FILES ON DI }SK'(*(26. :6. #-(-("PLACE A DECIMAL POINT BETWEEN FILE#++(#NAME AND EXTENDER. EXMPL: CLASS.602#>(:(.DO } YOU WANT TO USE ONE OF THE ABOVE FILES(Y/N)>#$$7@<@,0YA#'(#(PLEASE TYPE IN FILENAME' }# 6-B:,$67@<%@,.$67@<@,.$&6.7@<%@,& A$22" "* GL }OBAL DELETE OF GRADE ENTRY *$I(>:A%,"-@@C(נǠӠF(I($J@+@ }@76-C6-J6.$~ A`@)@\7@<@,4 )7@ }<@,4ENDh6-t6-~ A $]-@@A(7@<@%, 7A<A,]67A }<A,. $A-@@A(7@<@%, 7A<A,$)@(@) A }$-F:A,"A6#@- A%66" " * SEQUENTIAL INPUT OF GRADE ENTRY *&%Q@+@ }@76-C6-J6.Q6.0%~ Ap@)@\7@<@,4 )7 }@<@,4ENDh6-t6-~ A 5%G(>:A%,"-@@A(̠ԠƠD( }G(7%85(-TO KEEP THE OLD GRADE LEAVE GRADE ENTRY EMPTY8(:%k$( 7@<@%,'(I( OLD GRADE=7A<A },g(NEW GRADE(MAX-3 DIGITS)=k?%/ 6-B:,"/6.7A<A,A%67A<A,.D%0@ } @&6.0 A b%-F:A,"A6#@- A%--" "* RECOVER DELETED RECORDS }*%[ A@5@@A6-M6-T6.[6.%v@@T }7@<@,0 )7@&<@(,4 `6-l6-v A %](>:A%,(#( 1. STUDENT:2( }2. PARENT:B( 3. ADDRESS:O(4. CITY:]( 5. STATE:%<(6. ZIP:( 7. PHONE:+( 8. GRADE:<( 9. SEX(¯):%=6-@ }6-@'6-@36-@%= A`%=6-@&6-@'6-@36-@%= A`%=6-@Q }6-@'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` &D6-A6-@ }'6-@:6-B:,&%@D A`&6 6. ((2( RESTORE THIS RECORD(Y/N)6&$$7@<@,0 }YA & A` &=6-@6-@'6-@36-@%= A *&4&1@ @'6. } 1 A H&-F:A,"A6#@- A\& - f&TB:,!@%$-@@ T(PLEASE LIMIT }THE LENGTH TO *  * LETTERSk&LB:,!@%$-@@B( L A`p&Y67@<@% },.,-@@ Y(( z& A& -(7<%&@,$& * ROU }TINE TO LOCK A FILE *&7(>:A%,6.)-@@7( ˠ&)-@@)(ENTER FILE NAME&-@ }@&% 6. 6.%67B:,%@,.&Q A`2@5@=@G B }Q A`& B A& * ROUTINE TO UNLOCK FILE *&9(>:A%,6.)-@@9( ˠ' })-@@)(ENTER FILE NAME'-@@'% 6. 6.%67B:,%@,.$'Q B02@6 }@=@G BQ A`.' B Ap8'""* ROUTINE TO RENAME A FILE *B'G(>:A% },6.6.%6.7-@@G( ŠL'--@@)(ENTER OLD NAME-V'--@@ })(ENTER NEW NAME-`' B6.'67B:,%@,.=67B:,%@,.,Q67B:,%@,.v@2@ }@j' B A`t' B B@~'""* ROUTINE TO DELETE A FILE *'9(>:A%, }6.)-@@9( Š')-@@)(ENTER FILE NAME'-@@'T 6. -@ }@/( ARE YOU SURE3T7@<@,4NA'% 6. 6.%67B:,%@,.'Q B2@3 }@=@G BQ A`' B B'++* ROUTINE TO FIND CORRECT FILE NAME * }'7(>:A%,(7( YOU HAD THE WRONG FILE NAME'.(.(# DUMMY, THE CORRECT SPELLING IS: '/#6. } /6-'3-@@3(FILE IS NOT ON THIS DISK!(D 4D1:@<@@ }D1:*.*D6. (D 4D2:@<@@D2:*.*D6.  (<@6-%6-B:,1 }"@<@(9+7@<@,47@<@,96-%@((!@(>:A%,(6-@((j+7 }@<@,47@<@,=-@@A(U-@@%j(7@<@,2("@B<( } BPF(4 6. ((0( SHALL I RETURN(Y/N)4P($$7@<@,4NB Z(@ B$ }(//" " *SHOW AVAILABLE DISK SPACE *(I 4D1:(>:A%,%@I@@D1:*.*(I  }4D2:(>:A%,%@I@@D2:*.*(9@6-%6-B:,9"@B@ }(++@:7@<@,, @GB (B 6.!6.7@<@,-6-96-B6-A:,(=6-P:$A% },'A=6-P:$@%?P,'@(J-@@?( YOU HAVE  K. BYTES OF SPACE LEFTJ@(7-@ }@7(PRESS TO RETURN TO MENU( F:B2y,"@A( B)//" " * COMPUTE STUD }ENT AVERAGES *)A(>:A%,"-@@5(ӠպA6-)((1: NORMAL AVERAGE")0(0(%2: AVER }AGE ROUNDED OFF TO THE NEAREST')""( MULTIPLE OF 5,)0(0(%3: AVERAGE ROUNDED OFF TO THE NEAREST-)""( } MULTIPLE OF 5.)))(! AND CONDUCT GRADE(S,N,U etc)6)*( (&( SELECT A NUMBER*@)2 BP2 @ })!@)P:,BPJ)(>:A%,@8@@D6-P6-W6.^6.j }6-q6.}6-6-6-T)~ BP@)@\7@<@,4 )7@ }<@,4ENDh6-t6-~ BY)L(>:A%,6-(6-46-@6-L6- }^)*-@@*(7@<@%,c)7-@@7( OLD GRADE=7A<A,h))()( PLEAS }E ENTER THE GRADESr)0-(%PRESS TWICE TO GET THE AVERAGE0(t)**(" THE AVERAGE WILL BE 10w)6-%@ }|)& B "( #&) 6-B:, "B`) 6-A:,)0 )!A&(>:AS,0 B } ) 68,-6-8,%6.) B)2 Be6-'+&@,(6-P:,2 Bg)6-@ Bg})!@6-@)!(!( =)C 6.=:,""@)"@, AC67A<A,.})'('(TO SAVE AVERAGE PRESS )W(W(LTO CHANGE AVERAGE PRESS . ENTER THE NEW AVERAGE --> PRESS TWIC}E) F:B2y,"@B@)^F:B2y,"@$6-06-<6-H6-T6-^ B}) B)&"@&67A<A,.))@ @) B)-F:A,"A6#@}jkKbCrCPEBGFLMSZNHHCHRSRUVATKCHR4LLLICCIXYZEAYYNPHCHR} &-AUi} A$A _$@ @ Ac@@g}@g@3@@67@A:} @!= &"c&#@$%&'()*+,-./}01@23456789: ;;@,5#@ }@E:5AY ( ((>:AV, 460 GOTO 470 (CONT--F:AB,*A }B@-&AB@(>:A%,AY@4 @dAR@n APx }4-@@4(ŠΠΠŠz,((( IS PRINTER TURNED ON,|$$7@<@,0YA } }3>:@',l>:@,AR6-;@,;@,;@8,;@ ,;@ } ,;@ ,;@ ,;@,9@5,9@5,;@,;@,;@8,;@8,;@,11;}@,;@,;@,;@,H#@@P:H(@>:@',l>:@, AP} A `5#@@E:5AY(( (>:AV, 460 GOTO 780 (CONT}--F:AB,*AB@-&AB@(>:A%,"AY@4,@6 A`}@ A `J5#@@E:5AYT(^(h``(>:AV,750 ? CHR$(125):?:?:?>:}@4,WHAT IS THE SUBJECT DEPARTMENT>:@4,r!!(>:AV,760 INPUT B$|(>:AV, 460 GOTO 750 (CO}NT--F:AB,*AB@-&AB@(>:A%,AY@4@ }AP A A0(&(PLEASE TURN ON THE PRINTER0 A<<:TYPE NEXT LINE IN INVERSE VIDEO'PRINT}ING INFORMATION'.-@@.(Ǡ ( ( #(#(ALIGN PAPER ON PRINTHEAD&3}( ( (/(IS PAPER ALIGNED ON PRINTHEAD30&7@<@,4Y& A:&7@<@,4N& A@D} APN;;:TYPE NEXT LINE IN INVERSE VIDEO 'REPORT INFORMATION'X,-@@,(Ԡb)( ( }(%(WHAT IS TODYAS DATE)l6( ( (6(%WHAT IS THE SCHOOL NAME(MAX 25 LTTRS)v{JB:,!@%(@(&NAME TOO} BIG. MAX. IS 25 LETTERS-REDO!J A *( ( (*(WHAT IS THE TEACHERS NAME.( ( (*(WHAT IS THE PHONE N}UMBER. AP7( ( ((7(#THE INFORMATION ON THIS SCREEN WILL%%(MODIFY ALL SUBSEQUENT REPORTS,( (},(WHAT IS THE SUBJECT DEPARTMENT1( (1(#ARE ALL REPORTS IN THE SAME SUBJECT (AREA&7@<@},4Y& A&7@<@,4N& A (6-  A8; AP(((7(}HOW MANY COPIES DO YOU WANT; B (*:!@:(ARE YOU SURE YOU YOU WANT  COPIES4 @} A`>!@H$$7@<@,4YA`R$$7@<@,4NAp\)( ( ()(DID YOU} MAKE A MISTAKE ?f (DO YOU WANT TO START ALLp( OVER AGAINz&7@<@,4Y& A!P AP }<<:TYPE NEXT LINE IN INVERSE VIDEO 'STUDENT INFORMATION'--@@-(Ԡ(( ( (((WHAT !}IS STUDENT'S FIRST (NAME$( ($(WHAT IS STUDENT'S LAST (NAME#( (#(WHAT IS MOTHER'S LAST"} (NAME+( ('(WHAT CLASS IS STUDENT IN+ AP<<:TYPE NEXT LINE IN INVERSE VIDEO 'SUBJECT PERFOR#}MANCE'--@@-(Ԡ4( ( (4(#HOW MANY TEST GRADES DO YOU WANT TO(ENTER1$}( (1(#ENTER TEST GRADES AND PRESS RETURN.!(USE ONLY NUMBER GRADES!($36-6-'6-36-%}.-@8%( #("%(B5 68,-6-8@,*6-8@,56-8,%L V&}-@` 8,!6-8,j 8, 6-8,t ~ 6-' AP6-:::TYPE NEXT LINE IN IN'}VERSE VIDEO 'CLASS WORK RATING'7-@@+(Ӡˠ.(1(4(7(6-&-@ @&((} 1: EXCELLENT&-@ @&( 2: VERY GOOD!-@ @!(3: GOOD/-@ @/(4: SOMETIMES N)}OT DONE--@ @ -(5: USUALLY NOT DONE'-@ @'( 6: NEVER DONE.-@@*(SELECT A*} NUMBER.X @)!@+-@@N(ERROR: USE NUMBERS FROM 1 TO 6X Ap  AP99:TYPE +}NEXT LINE IN INVERSE VIDEO 'HOME WORK RATING'6-@@*(Šˠ-(0(3(6((6-2&-@ ,}@&( 1: EXCELLENT<&-@ @&( 2: VERY GOODF!-@ @!(3: GOODP/-@ @/(4-}: SOMETIMES NOT DONEZ+-@ @ +(5: USUALLY COPIEDd'-@ @'( 6: NEVER DONEn.-@@*.}(SELECT A NUMBER.xX @)!@+-@@N(ERROR: USE NUMBERS FROM 1 TO 6X A AP/}77:TYPE NEXT LINE IN INVERSE VIDEO 'CONDUCT RATING'4-@@((Ԡ+(.(1(4(6-'0}-@ @'( 1: EXCELLENT.'-@ @'( 2: VERY GOOD."-@ @"(3: GOOD.2-@ @1}2(4: SOMETIMES DISRUPTIVE.0-@ @ 0(5: USUALLY DISRUPTIVE./-@ @/(6: ALWAYS DISRUPTI2}VE..-@@*(SELECT A NUMBER.W @)!@+-@@M(ERROR:USE NUMBERS FROM 1 TO 3}6W A AP99:TYPE NEXT LINE IN INVERSE VIDEO'ATTENDANCE RATING'+-@@+(Š4}6-"&-@ @&( 1: EXCELLENT,!-@ @!(2: GOOD6,-@ @,(3: FREQUENTLY 5}LATE@1-@ @1(4: SOMETIMES CUTS CLASSJ5-@ @ 5(5: CUTTING MOST OF THE TIMET2-@ @6}2(6: BAD - ABSENT TOO MUCH^/-@@+( SELECT A NUMBER/hX @)!@+-@@N(7}ERROR: USE NUMBERS FROM 1 TO 6X A0r AP|:( ( ((((((:(DO YOU WISH TO SEE A SHORT"(PREVI8}EW OF THE REPORT"&7@<@,4Y& A2 6-%@AR@B6-B:,%@%6-B:9},%@.6-B:,B6-+%%,'@(>:A%,(-@@((I AM PRINTING!*-@@*( :}ŠĠ-@ A" 7 AP(((7(DIFFERENT REPORTS PRINTED ON"(INDIVDUAL STUD;}ENTS = "(FAR(((!($(F(DO YOU WISH TO PRINT ANY MORE(REPORTS&7@<@<},4Y& A`& AP0u7@<@,4N.-@@A(END OF PROGRAMU-@AY kAR=}u A2:(>:A%,D%%6-P:@$H:@,%@,NooAAAAA A0>}A@APA`ApAAA X6-@ A b6-@ A l6-@6?} A v6-@R A 6-@f A 6-@ A 6-@ A 6-A@} A 6-A A 6-A0 A 6-A` A 6-A A 6-A'A} A !A!A @$(>:A%,(-@@((I AM PRINTING!*-@@B}*( ŠĠ  AP>( ( ((((>($I HAVE UNDERSTOOD YOUR INSTRUCTIONS! 0( ( ((0(I WILL NOC}W MODIFY MY PROGRAM*(IN ORDER TO RUN FASTER4AR@>&( (&( ŠĠH-@D}A RAR\$f5#@@E:5AYp(z((>:AV, 460 E}GOTO 470(>:AV,750 ? (CONT--F:AB,*AB@-&AB@(>:A%F},AY@4@' AP$$(@>:@,>:@,6-@&+B:,'@,G}A DD(@>:@,>:@',G>:@',H>:@ , 6-@'&+B:,'@, AH}$ --(@>:@',E DEPARTMENT. 6-@%&+B:,'@,8 AB (@ , TEACHERL 'I}@@ 'A@V $$(@>:@,>:@,] TT(@>:@',D>:@,>:@,>:@0J},>:@@,>:,` <<(@>:@ ,>:@ ,>:@ ,>:@ ,j $$(@>:@,>:@,tK} !!(@ DEAR MRS. :~ //(@>:@,>:@,>:@, KK(@>:@ ,THIS IS A REPORT ONL}  IN CLASS . WE AT 88(@% ARE INTERESTED IN PROVIDING THE BEST $$(@EDUCATION POSSIBLE. HHM}(@>:@ ,AS YOU KNOW, MRS.  IT IS VERY IMPORTANT ??(@THAT  RECEIVES GOOD GRADES IN .N} GOOD BB(@1GRADES ARE IMPORTANT FACTORS IN SCHOOL PLACEMENT. LL(@>:@ ,. RECEIVES WEEKLY TESTS AO}S WELL AS HOMEWORK AND AA(@)CLASSWORK. LISTED BELOW IS THE RATING OF 'S $$(@SCHOOL PERFORMANCE.P} II(@>:@ ,IF YOU WANT TO SEE ME, MRS.  , TO DISCUSS ==(@*'S SCHOOL WORK, PLEASE CALL THE SCHQ}OOL FOR --(@AN APPOINTMENT. TELEPHONE: (@>:@, 6-@&+B:,'@, A R}^^(@>:@,>:@',G REPORT:>:@ ,>:@',H>:@',E( QQ(@>:@',D>:@S})&P:,,>:,>:@ ,  - II(@>:@',D>:@,>:@,>:@@,>:,2 T}(@>:@,< BB(@>:@ ,>:@ ,THE HIGHEST TEST GRADE = F AA(@>:@ ,>:@ ,U}THE LOWEST TEST GRADE = P UU(@>:@ ,>:@ ,THE AVERAGE TEST GRADE = P:$@,'@Z 77A&`V}A&pA&A&A'A'd MC(@>:@ ,>:@ ,THE CLASS WORK IS EXCELLENT.M A' n MC(W}@>:@ ,>:@ ,THE CLASS WORK IS VERY GOOD.M A' x H>(@>:@ ,>:@ ,THE CLASS WORK IX}S GOOD.H A'  VL(@>:@ ,>:@ ,%THE CLASS WORK IS SOMETIMES NOT DONE.V A'  TJ(@>:@ Y},>:@ ,#THE CLASS WORK IS USUALLY NOT DONE.T A'  ND(@>:@ ,>:@ ,THE CLASS WORK IS NEVER Z}DONE.N A'  77A'@A'PA'`A'pA'A' KA(@>:@ ,>:@ ,THE HOMEWORK IS [}EXCELLENT.K A( KA(@>:@ ,>:@ ,THE HOMEWORK IS VERY GOOD.K A( F<(@>:@ ,>:@\} ,THE HOMEWORK IS GOOD.F A( TJ(@>:@ ,>:@ ,#THE HOMEWORK IS SOMETIMES NOT DONE.T A(]} PF(@>:@ ,>:@ ,THE HOMEWORK IS USUALLY COPIED.P A( LB(@>:@ ,>:@ ,THE HOM^}EWORK IS NEVER DONE.L A( 77A( A(0A(@A(PA(`A(p J@(@>:@ ,>:@ ,T_}HE CONDUCT IS EXCELLENT.J A( J@(@>:@ ,>:@ ,THE CONDUCT IS VERY GOOD.J A( E;(@>:`}@ ,>:@ ,THE CONDUCT IS GOOD.E A(" UK(@>:@ ,>:@ ,$THE CONDUCT IS SOMETIMES DISRUPTIVa}E.U A(, SI(@>:@ ,>:@ ,"THE CONDUCT IS USUALLY DISRUPTIVE.S A(6 RH(@>:@ ,>:@b} ,!THE CONDUCT IS ALWAYS DISRUPTIVE.R A(@ 77A)A)A) A)0A)@A)PT MC(@>:c}@ ,>:@ ,THE ATTENDANCE IS EXCELLENT.M A)`^ H>(@>:@ ,>:@ ,THE ATTENDANCE IS GOOD.H d}A)`h [Q(@>:@ ,>:@ ,*THE ATTENDANCE - FREQUENTLY LATE TO CLASS.[ A)`r WM(@>:@ ,>:e}@ ,&THE ATTENDANCE - SOMETIMES CUTS CLASS.W A)`| aW(@>:@ ,>:@ ,0THE ATTENDANCE - CUTTING CLf}ASS MOST OF THE TIME.a A)` XN(@>:@ ,>:@ ,'THE ATTENDANCE - BAD - ABSENT TOO MUCH.X A)` (g}@>:@, (@>:@,  @e A0  #@e*@u# A00 #!@u*@h}# A0@ !@ A0P I?(@& IS FAILING BECAUSE OF POOR GRADES IN .I A0` KA(@i}( IS PASSING BUT COULD DO BETTER WORK IN .K A0` KA(@( IS PASSING AND DOING VERY GOOD WORK IN j}.K A0` KA(@( IS PASSING AND DOING EXCELLENT WORK IN .K A0` A0p 77A0A0k}A1A1A1 A10 SI(@6 HAS EXEMPLARY CONDUCT IN CLASS AND IS VERY ATTENTIVE.S A1@ ND(@l}1 IS ATTENTIVE AND HAS VERY GOOD CONDUCT IN CLASS.N A1@ I?(@, IS ATTENTIVE AND HAS GOOD CONDUCT IN CLm}ASS.I A1@& VL(@9 SOMETIMES DISTURBS THE CLASS AND DOES NOT PAY ATTENTION.V A1@0 TJ(@7 USUALn}LY DISTURBS THE CLASS AND DOES NOT PAY ATTENTION.T A1@: UK(@8 ALWAYS DISTURBS THE CLASS AND NEVER PAYS ANY Ao}TTENTION.U A1@D (N //(@>:@,>:@,>:@,X <<(@>:@ ,>:@ ,>:@ , SINp}CERELY,b $$(@>:@,>:@,l [[(@>:@ ,>:@ ,>:@ ,>:@',4>:@',5 q}, TEACHERv //(@>:@,>:@,>:@,{ (@(@ $ 9AAH'A @r}*(-(0(3(6(9 AP *-@@*(Ԡנ B6-B:,%@%6-B:,%@.6-B:,B6-s}+%%,'@ ,-+@&P:,,@,(   ( 5-@@5(THE HIGHEST TEST GRADE =  4-t}@@4(THE LOWEST TEST GRADE =  H-@@H(THE AVERAGE TEST GRADE = P:$@,'@ 77u}A3A3 A30A3@A3PA3` ;-@@ 1(CLASSWORK IS EXCELLENT.; A3p ;-@@ v}1(CLASSWORK IS VERY GOOD.; A3p 6-@@ ,(CLASSWORK IS GOOD.6 A3p D-@@ :( CLASSw}WORK IS SOMETIMES NOT DONE.D A3p B-@@ 8(CLASSWORK IS USUALLY NOT DONE.B A3p <-@@ x}2(CLASSWORK IS NEVER DONE.< A3p* 77A3A3A4A4A4 A404 :-@@0(HOMEWOy}RK IS EXCELLENT.: A4@> :-@@0(HOMEWORK IS VERY GOOD.: A4@H 5-@@+(HOMEWORK IS GOOz}D.5 A4@R C-@@9(HOMEWORK IS SOMETIMES NOT DONE.C A4@\ A-@@7(HOMEWORK IS USUALLY {}NOT DONE.A A4@f ;-@@1(HOMEWORK IS NEVER DONE.; A4@p 77A4PA4`A4pA4A4|}A5z 9-@@/(CONDUCT IS EXCELLENT.9 A5 9-@@/(CONDUCT IS VERY GOOD.9 A5 }}4-@@*(CONDUCT IS GOOD.4 A5 D-@@:( CONDUCT IS SOMETIMES DISRUPTIVE.D A5 B-@~}@8(CONDUCT IS USUALLY DISRUPTIVE.B A5 A-@@7(CONDUCT IS ALWAYS DISRUPTIVE.A A5} 77A5 A50A5@A5PA5`A5p <-@@2(ATTENDANCE IS EXCELLENT.< A5 7-@}@-(ATTENDANCE IS GOOD.7 A5 A-@@7(ATTENDANCE - FREQUENTLY LATE.A A5 E-@@};(!ATTENDANCE - SOMETIMES CUTS CLASSE A5 J-@@@(&ATTENDANCE - CUTTING MOST OF THE TIME.J A5} E-@@;(!ATTENDANCE - BAD, ABSENT TOO MUCHE A5  @e A60#@e*@u# A}6@#!@u*@# A6P!@ A6`$(.:(0(# IS FAILING BECAUSE OF POOR GRADES.: A6}p8<(2(% IS PASSING BUT COULD DO BETTER WORK.< A6pB7(-( IS PASSING AND DOING GOOD WORK.7 A6pL;(}1($ IS PASSING AND DOING EXCELLENT WORK; A6pV77A6A6A7A7A7 A70`A7(- HAS EX}EMPLARY CONDUCT AND IS VERY ATTENTIVE.A A7@j<2(( IS ATTENTIVE AND HAS VERY GOOD CONDUCT.< A7@t7-(# IS ATT}ENTIVE AND HAS GOOD CONDUCT.7 A7@~MC(9 SOMETIMES DISTURBS THE CLASS AND DOES NOT PAY ATTENTION.M A7@KA(7} USUALLY DISTURBS THE CLASS AND DOES NOT PAY ATTENTION.K A7@H>(4 ALWAYS DISTURBS THE CLASS AND NEVER PAYS ATTENTIO}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&}"(SHALL I PRINT THIS REPORT&&7@<@,4N& A$6-F:A,%%6-F:A,$AV%F:}A,#"@)"@# A8P *(*(>:AS,ERROR - USE A NUMBER-@@`  A8}EiͩkΩ͙kCop j`j {j`Hi͝Νh`}D1:CLASS.701310D1:D2: JX'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ҧӠr)Q@$$7@<@,0YAg^C 6.6-@C@@ D:WRITE.VA2h7(@ }(@*(@7(@r_@(>:A%,--@@N(ŠĠ٭ɠ͠_% D:I }NFOBASE.B D2:INFOBASEPKTNAMENAFILEFIL1UBEFTYSKMA1B1C1S1NF1D1YNGK1H1M1LRL D:LETTERLMSZNHHCHRSRUVATKCHR4LLLICCIXYZEAYYNPHCHR- A*0* " "* MAILMERGE *:*4D2:BD*D(>:A%,"-@@D(PLEASE PUT } DISK INTON*( DISK DRIVE6. X*3(/(#IS DISK IN DISK DRIVE(Y/N)3b*$$7@<@,4YB}l*$$7@<@,4NB v*55*** SAVING VARIABLES FOR INFOBASE.B TO DISK **** 6.*7@7@}@ D:WRITE.VA2* @* @* @* @*@*W(>:A%},"-@@F(ŠĠ٠ɠ͠ǡW% D:INFOBASE.B* D:INFOBASE.AGINAMENASFYFZXSECT c7@<,% A`x*** ADDRESS ***6.7@Q<@u, -@%@6@7<,0>:@2},AP % @7@<,% A`*** CITY ***6.7@v<@, -@@6}@7<,0>:@2,A % @7@<,% A`*** STATE ***6.7@<@}, @ A`*** ZIP ***6.7@<@," @ A`,*** PHONE ***66.}7@<A,@ -@ @6@J7<,0>:@2,A0T ^% @7@<,% A`}D1:MENU3D1:14:14: 14 $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 F 4YES(.(WHAT IS THE NEW FILENAME2< AF Ap0$:*** SEARCH A NAME ***;6-}6-'6-/6. ;6-d(>:A%,((((("(%(((+(`(/ENTER THE LAST NAME OF THE R}ECORD THAT YOU WANTd5 A P@5@@B@@B7@<@},4ENDA p337@<@,07@<@,A 0#F:A,"A6#@ ?(>:A%,(}((9( 7@<@%,<(?(Q( ($7@<@,4ENDQ((END OF FILE! - SELECT ONE OF THE OPTIONS},(,(!TO START SEARCH AGAIN PRESS *(*(TO CONTINUE SEARCH PRESS  &(&(TO ACCEPT NAME PRESS /},(,(!TO SAVE ALL RECORDS TO DISK PRESS0( AND 4 F:B2y,"@A > F:B2y,"@A"}H;F:B2y,"@167@<@%,. ; A 0M F:B2y,"@A#O-@@ R} A!=6-%@"68<,-368<@,-= A ! A p A! A ` $ 4D2:}A%p D(>:A%,"-@@D(PLEASE PUT DISK INTO ( DISK DRIVE6.  3(/(#IS DI}SK IN DISK DRIVE(Y/N)3 $$7@<@,4YA%p $$7@<@,4NA%  6.6- 7}@7@@ D:WRITE.VAR  @(  @2  @<  @F @}P W(>:A%,"-@@F(ŠĠ٠ɠ͠ǡW% D:INFOBASE.AZ  4D2:A(@ D(>:}A%,"-@@D(PLEASE PUT DISK INTO ( DISK DRIVE6.  3(/(#IS DISK IN DISK DRIV}E(Y/N)3 $$7@<@,4YA(@ $$7@<@,4NA% U(>:A%,"-@@F(}ŠĠ٠ɠ͠ǡU% D:INFOBASE" T 5 +-@@2(END OF PROGRAM5 D:INFOBASE.B5{L"UNEM:D"NURͩkΩ͙kCop j`j {j`Hi͝Νh`