@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@P!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr d M * @  $ % CC$$)%1 Udߥ$9%: !0 S$%} DD˙`  }J)Lr J  ((  p L ()   J}L= ( L 0q A    IB JC;? D W } LL  ` W )LA!  ߰")-݆ p" } $G@LL 08`Q")<2Q0 -G$Ș݆ UL# ; p8(()(0ʥ)NQ` }$GȘ݆LU )L ݆ L GȘ ݆LL )W>Z   HH)H }p h  hyhy D L> L JJ    ! LA*` BF }7'8  M HN H` 8 Z  \LdJJ!"! GFE@F (!L }EE !E^ ^ E E7EȩEdE/EȩE  D } .L }  ;F d  ;?F7F? ( .   Z D LL d } . D  L    p  E` , d)  D L) 0BM݊L݉} ML  N݆ L NLML [ TEqEHȱEqEh 0Gȹ G} HLL GɛL  LFREE SECTORS G) *Gȩ GȽG GȌ*jj >G} C8jJ3j2CD( C202C ԠBX` N 1? l LlD:RAMDISK}.COMLu L1 L ;LHL  T`  `8  ɐ     `TU  } L ? .  t`GBJ ~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI4 0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D8:MEM.SAV J y08 B|DEHI$} V0 0`B;DEL`?<0LV`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D8:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J  (` 9 V⪍ ઍ  -'}LLu ÝDEHILV 9 .l 9 .l  `` s$B BH(}I|DE V BLV nB,DE JLV B V BLVDEIʩ BꭝLu } 3E:}DISK OPERATING SYSTEM II VERSION COPYRIGHT 1984 ATARI CORP.A. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDG*}E J. DUPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRES+}SF. LOCK FILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES P. FORMAT SINGLEL !N',}#"&))9(&*)/h)''-&؆莟R'S  vL/ˢ L }Insert DOS 2.0s, type Y Λx -}DEfHI 1莏#q! @ y0ɛ8A0,' ȅ 1 1ild! 1L!NO SUCH ITEMSELECT.} ITEM OR FOR MENU! 0 .z:*{}.|{ 1 0 0JB 18L%|DL/}%DIRECTORY--SEARCH SPEC,LIST FILE?[# 0 0 &|D3" 1L!NOT A DISK FILEN !B 1L!E# 1 !BD0}ED:}:1BJ|DE 1DEBHI 1 h0ߢ 0.1}  0?詛 1 y0YЛ 1 ;#L" ;#L! BL1TYPE "Y" TO DELETE...DELETE FILE SPEC2}COPY--FROM, TO?OPTION NOT ALLOWED697 FREE SECTORS COPYING---D8:COPY32.COMl# 0|D .L/%#3}##JB|DE 1BHID#E 1#0: B 1L!#͑### B 1#c$0SY4}S1}:## # # .#Ƚ# # 𩛙## 1,#PD#ELJ- <.BJD#E 5}1 1HH 0hh|DL%1}:̳# L% #D#EL% 1 0 . .0O% 1L!WILD CARDS NOT A6}LLOWED IN DESTINATION 0 <.|K}N 2 FORMAT. t* 5) 1L!`) 0NΞ 0 L1) 1 L!BAD LOAD FILELOAD FROM WHAT FILE?) 0 ?}0#B 1L!WHAT FILE TO LOCK?) 0 0$B 1L!WHAT FILE TO UNLOCK?DUP DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO US@}E PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV.FE! +L1   `*  70 2 2A} 0.* 1 y0 0)INSERT BOTH DISKS, TYPE RETURN^, 1 y038逍 N, 1L! ,B}C, t*  Lx+, 0 ^, 1 y0 , ,0,0 ,L+ ,I0 ,Vǭ0C}Ξ, 0 }, 1 y0C,ШC, 0K'!" H H 'h h Lx+!EF 5L1L!D,I,HhD}` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNINSERT DESTINATION DISK,TYPE RETURNE}`  `8 rL1`-* 1P* 1 y0Y`hhL!NAME OF FILE TO MOVE?- 0 0|DL% <.F},^ 1 70 0 .@L# .BJ 1  DEHIB V L1 ,} 1 70,L.  G}JB|,#P#DE 1 HI BDEHHII 1 B 1 ,^ 1 70,0La- B V,#PH},^ 1 70 0L#L!-* 1P* 1 y0Yj383}mm ݭI}}`8}``|* ? ɛ,`|:-)| / 1L!`DESTINATION CANT BE DOJ}S.SYS0 0H{ 24Δ 28/L!/) 2 Π 2 0 ξK}hAΞB,0 J 1 BDEHI,HÝDE 1HIHIDELSAVE-GIVE L}FILE,START,END(,INIT,RUN)O S0 1`BDEPHI V` S0H 1 L!M}0 0 1L~0`PLEASE TYPE 1 LETTER,0`hhL! 70 1L0L<1 ,;ɛ7,"ɛ:ݦ1ݥN}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{NAMEO} TOO LONG B VL!` L1I H1EΝDL1|mDiE` V0`8d/8 i:222 1 LP}!ERROR- 144ɛ+,' 20*.. өr2 1``2TOO MANY DIGITSINVALID HEXAQ}DECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8uR} ECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8u,-}RAMDRIVENUINITDATJUNDRIVEBYTFILER2T} dPROGRAM BY RON FETZERn;@%,x= A@=@3@ D8:MEM.SAV4(>:U}A%,"A@V4A (-@@((ˠӠĸ ( (LI(A1) To '' RAMDISK useV} DOS OPTION C 'D1:*.*,D8:*.*'L(KE(=2) Insert INFOBASE disk and use DOS OPTION L - ϮH(K($$(W} WHEN YOU ARE FINISHED:&#( =====================&(IF(>To '' on a FLOPPY Disk use DOS OPTION C 'DX}8:*.*,D1:*.*'I( A0D:MENU===============&(IF(>To '' on a FLOPPY Disk use DOS OPTION C 'D2\x2xDCAEHSRPKTNAMENAFILEFIL1UBEFTYSKMA1B1C1S1NF1D1YNGK1H1M1LRL}8<<  B JKIHiDiELV`L8 8 BLV`Lx [}8t8l Lu8hihiHHȱȱL8c !#3`Lu8JJJJ`H 8h`H \}ȩh Q8L8 Z8L8 8L8 8L8 8L8S:@9E:E9H '9 H9I9 8 '9h)0IC ]}9D9L8 L :::: :Lr:::IEL[::i:iIIL[:`:i::i _}::L:`L{:w:w: C`L:L: D8:MEM.SAV: 8| 9 '9`L:L: D:DUP.SYS:̩ 8 `} x:ɀL: '9`88 |9Y:X: '9L); D8:DUP.SYS; 8::88 9 '98? :`;WL`; 9 a}Ln; ` :Y;Y;L;L;)} Setting Up ATARI 130XE Ram Disk; 9L; ; -9   b} L;D8:; :9 :Y;Ls3>00x|73>00x`c6<9c` 33c366fffg~33>00xgfffff<d}11111{!!\]_\ED!EOHI B V`}   e} TURBO-BASIC XL 1.5 (c) 1985 Frank Ostrowski!  ӥL]""$$ (pf}%J[WܠjeC /D%Zub2gTSt$8®݊Ò2% 5Rg}Ţtd.’$3@X7t5w5$?## $#L+D:*.*S:C:P:$#.#) `:#(6ENeU\l؏&/ؕ؄sأ$h}LENeU\lأ$8آǔƐƉƐƇ4cY%٦rULۉCۄړp^gyض%iwܸJڅ*ܣ$ڭڞجئأأi}$ ,(""(222000000..222222222222222222222222222222**22*22(222(2222222222 ,(""(j}0000000--**2*(22(2222222 V`hh@,lHH$HHHHHHӍl"k}H$HHl $`GHFH\` ` 4ӭ l 4Lq ӠԪӅԆL} Ӡ L( l}) ` b% +L:#HH 0 HHLj%ӥHlL{ee 8eeem}eӦee褢%ƚƜ`88夅奅8n}夕奕Ӡȱȱȱ㦢`L+`8` .E)))8@8e0 o}*څۅ܅݅ޅ߄ԠF0y"ޥy"ݥy"ܥy"ۥy"ڥy"و0ǠF0y"ݥy"ܥy"ۥy"ڥy"٥y"؈p}0ǠF0y"ܥy"ۥy"ڥy"٥y"إy"׈0ǠF0y"ۥy"ڥy"٥y"إy"ץy"ֈ0q}ǠF0y"ڥy"٥y"إy"ץy"֥y"Ո0L-`8`E)))8i@0 *ڄԠr}"("!""" "L**""""""&О"("!""s}" "L**""""""&О"("!""" "L**t}""""""&О"("!""" "L**""""u}""&О"("!""" "L**""""""&Оdv}"("!""" "L**""""""&ОL-6"e"w}"e""e""e""e""i""}"""}"""}"""}"""}"""}""ǭ"m"""m"x}""m"""m"""m"""m"""}"""}"""}"""}"""}"""}""ǥՅօׅ؅مԅՅօy}ׅ؅`` ` ` `80 `ԥՅ +.JJJJ)iFiFi1FicFi'ȐȦoFiUz}ȐFiiFi#iFiGi Fii@F iiFiiciՊFigi'iՊօשBL-`I{}))83Ԥԥդե֤֥פץؤإ٤L,K6"ХL--L--L-|}-E0:e٥eإeץe֥eՐ؅٥ׅإօץՅ֩L-8٥إץ֥հ'I8}}م٘؅ؘׅטօ֘ՅL-ؤm\G0Q@Ն֩م؅2եمֆשم"ե؅֥م׆ةեׅ֥~}؅ץم؆لԘ)q +` . |. &7i |. ,%!L?.`刱䈱㈱∱}ሱ`ԅՅօׅ؅م`ԍՍ֍׍؍ٍ`ԍՍ֍׍؍ٍ`L.L. Խսֽ}׽ؽ` L%/`ӽޕ &ԅ)@إ)JJJe)e - M} 1. &Je0F 2 . /L(8`@ԠՈքׄ؄` . |. , . . |. , #/L(8`0 I@ԥ)} 2f / . & r 1. #/ &?P , .Iiԩ +)ԅ ,ӽޕL(`8`$})Ԧ61718191:1;1 (ť)8@0$Յ)e)e -F . / , . &1 1.} #/ &F I`U9>`D'RFuCU?b9dYdg@W2@?tS)%)@0)%ԅԢ / . &G } 1.Ӱ6 #/ &.ӽߕ ,ԅԥ B1 (`8``0?i? . . / , #/ &ԍՍ}֍׍؍ٍ . . ( / , O2 / ,0 .JeF 2`L+) .e٥eإeץe֥e}Պi؊؅٥ׅإօץՅֆե1ԥ'JffffJffffJffffJffffم`ԩ&&&&*&&&&*&&&&*&}&&&*`Pi`)JJJeԅԘ)Peԅ`եԆ8@EB)JJJeԅԥ)PeԅԘ)3eԅԽ3eՅ՘)JJJ}3}}3`)JJJeԅԥ)PeԅԹ3eԅԹ3eՅդЧ` 0@P`'Nu pX@(#d,X L(  兢}0襙 bɥ⥋㩀 50ɥ0DȱȱȄ   ik#ZMkVgğe拰ㅋ}⅊0 eee拰 L f5дƨħ 4LY4 f5К,樥ŧH 4h h5L4樤ܱ.* O %30}  5Ԅ +(fԤԈ`ř嚰Ԥ`ڥۥड़0-԰eڅڐۈ0eeL+58` }O#`,#5  6`]5 6DE 68DHEIHI V0$ 6Sл B} V,# 6` $#LllBHI V0HH V0Ԩh``{a$%Ȏ$$xө$Ѝ$ `} `@X a Ӆʢ ʎD  _ɠ %` ɩHH `өL: g% D}:AUTORUN.BASөjJHH`ՠԢӱԙ!ӹ!`֝DEIHB V0Y|ڝDa۝E}օܥׅݥܝHݝI V0+Ӡڑڑ0`l `  䅠 _ɠԐ}e拢 &L &Lħ © ¥4 䥝ň剰' k ɀ8@4= LY ĩ`OJ ]J?L} KԪȱLRHHצ R, hhLRHHHHHH /0ȑȑޠhhhhh}h`HHHHHHHHHH $H bɐhȥLHhhhhLň剰)}i桰` )``L(兢ħ #$ x Hҩ h$襚ҥ ԝ`} UV #T` ` `,H ¥ȍ` JKhLŢ  #)I L ¤Ȣ`L¦ ¦ Lĩ} ½J*K+ $LąLĩ …L~ …`H Ġh é`,H hH Ġ  ĭ 8}}} L n [h`LkL © 8倝偝 Ġ  ĥ󥃅  Lĩ LH} éLH#h ĩ`H hKJ L+ , H hHHħ s hKhJ  Lĩ# qL } ŘL ũ& QŽLM " ĽNL  ĥԝL՝M  ĥԝN%LV  ¤ħ` Ťħ` ƪ Ċ }Ťħ` ¢`届 x݅ L ĽCӠɀ L]Ɉ L] Ln LŠI}HEDBL$HH hh +L `ħ LĢl ¦`YDAER ԅՅ֦}󅗄`L+ ¢p 0 Hp hɈL` ,#,$,!Lé ,H ĥDEԝH՝Ih L}©L $`L© , k ĩԅ  + ĥ 夨ħ`2ƪƪ ! A!Ƚa!Ƚ!Ƚ!Ƚ!Ƚ!}``氤hhL1@$ƪư 0 0 n$P`L+FҐ֥װ綾إٰو LǠFf}ؐ ee&ee* &eeeԪeըee$.ƪ@!Ƚ`!Ƚ!Ƚ!Ƚ!Ƚ!`檦}!!!!`!@!^!` Ȅ 8 n奱 ٥Lǥ֤צưĘ=ŗ78֪א& } eԥe$`L: L ԅՅօׄ 1פ& ٤ţĢԅeՅe8包卅 ]&} 8Ԩժ%אְ`ֆL夨ħ` FҰg8&0ei֥i0Tׅiإi0BJe؅eم0&f}fff&0 &0 eeL+օפإ颎 %8包ԥ卅 L ɥ }ȱъŠe拰8``,ªȱȱI ѝ3ȥLɥHHO]}  ȥe暰Х ȥL+ʅȱhh`Lħ OԪȱԨ``L :0^}BLE1CNJZ1PILMB2VWRTYFREETYDDD2J1VVED} } !"#$%&}'()*+,-./012345}6789:;<=>?@ABCDE}FGHIJ@KLMNOPQRST}FFThis program will only work with TURBO BASIC XL and a Ramdisk D8";@,"AR 6.D2: F:A}S,"@AT 4D2:(>:A%,,-@@J( ONE DRIVE - WITH RAMDISKTM@`R 4D1:(>:}A%,,-@@H( ONE DRIVE - NO RAMDISKRM@`VERSION 3.5B - RON FETZERQ(>:A%,"-@@}E(WHAT SCREEN COLOR DO YOU WANT?Q6-#-@@#( 1: NORMAL"-@@"(2: AMBER"-}@@"(3: GREEN!-@@!(4: GREY A.-@@*(SELECT A NUMBER." } B,R  @)!@)P:,H(#ERROR - SELECT A NUMBER FROM 1 TO 4R A1'F:AS,"@'6-F:AU},6''A A0APA`@1AAH'A @1 AJ1A@X'A }1 A^1A@D'A 1 Ah1A@'A 1 ArDIM S}ECTION|;@,;@,;@,;@,;@,;@,;@,;@,;@%,;@8,;}A$,;@0,;@%,;@%,11;@8,;@8,;@%,;@%,];A0,;@0,;@0},;@,;@,;@,;@,;@,n67@,. 67A0,. 67@,.6.";@0},;@,"6.;@,;@,;@,;@,;@,;@,;@,;@,;A},;A,;A,;@,6.>:@', F:AS,"@AuDISK DATAR(>:A%,((((}("(%(((R(%PLEASE INSERT DISK IN DISK DRIVE;(%(IS DISK IN DISK DRIVE7-@@; 4Y} A 4N APFILES & DIRECTORY; 4D1: A;@@D1:*.*> 4D2:} A>@@D8:*.*"(>:A%,"B7tA@++@:7@<@,,}!@GA`(A@( A@:7@<@,, @GA&67@ ,. 0@:}*($( FILES ON DISK'(*(D>(:(.DO YOU WANT TO USE ONE OF THE ABOVE FILES(Y/N)>N-(-("PLACE A DECI}MAL POINT BETWEEN FILEX++(#NAME AND EXTENDER. EXMPL: CLASS.602b 4Y A0l 4N Av'(#(PLEASE }TYPE IN FILENAME' 6-B:,67@<%@,.( 4D1:(67@<@,.D1:( 4D2:(67@}<@,.D8:&6.7@<%@,& A.(*(DO YOU WANT TO OPEN A NEW FILE. 4Y A} 4N A(($(WHAT IS THE NEW FILENAME(% 6-B:,%67@<%@,.( 4D1:(67@<@},.D1:( 4D2:(67@<@,.D8: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#@&$k7@7@@ D:WRITE.VR2l@m'AS'AU}pMAIN MENUzF6-(>:A%,.-@@;( պF@f((1.FILES ON DATA DIS}K1( 2.ENTER NAMESN(3.DISPLAY NAMES SERIALLYf(4.SEARCH FOR A NAME](5.CORRECT A RECORD+( 6.ԠG(7.}̠Π](8.DELETE A RECORD*(9.CONFIGURE DISK DRIVES*(10.END/ A(+(PLEASE ENTER A NUMBER}/(( @)!@)P:,AWWAA pA0A A@A9A`pA@`Ac}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. ST}ATE:<(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 EGRADELC6}-A6-@'6-@36-@= A CSEXVi6-!-@@D(ARE ALL ENTRIES CORRECT (Y/}N)Hi7@<@,4YA``$$7@<@,0YA0jY A0-@@H(#ENTER THE NUM}BER OF INCORRECT ENTRYLY6-6@t-@* @- A%@$~ A I67A$,. 1@}@ > @I@4-@@0( ANOTHER NAME (Y/N)4$$7@<@,4}YA &7@<@,4N& Ag A$ -$(  - S B:,}!-@@ I(PLEASE LIMIT LENGHT TO * * LETTERSS A # 67,.-@@ #("6@}' A$(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. PHON}E:+( 8. GRADE:<( 9. SEX(/):Z=6-@6-@'6-@36-@%= Ad=6-@&6-@'6}-@36-@%= An=6-@Q6-@'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@<@,Ap}6 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-@%= 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-A6-@'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-A6-@'6-@36-@= A 0F6-!-@@}F(ARE ALL ENTRIES CORRECT (Y/N) :((7@<@,4YApD A N@ @X}8( (4(%DO YOU WANT TO CORRECT ANOTHER RECORD8b@4YAPl4NAv@ A}J -'( 9-%&@F67<,. J  - R B:,!-@@ H(P}LEASE LIMIT LENGTH TO **LETTERSR A 4 67,.-@@ #(467A$,.  A@ ENDQ}(>:A%,"-@@Q(*To the RAMDISK to a FLOPPY disk use:6-@@6(DOS OPTION C 'D8:*.*,D1}:*.*' MAP+^(>:A%,"-@@<(NO FILES ON THIS DISKP-@AT ^ A@}NAMES RANDOMELY67@,. 6.  @@H(>:A%,"-@@H(!ENTER} THE LAST NAME OF THE RECORD6 (THAT YOU WANT TO DISPLAY2-@ @6K@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. ADDRESS:O(}4. CITY:]( 5. STATE:R<(6. ZIP:( 7. PHONE:+( 8. GRADE:<( 9. SEX(/):\=6-@6-@'6-@3}6-@%= 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 NAMESS(>:A%,"-@@C(}IS PRINTER TURNED ON (Y/N))GS6-4YA#  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 ACCE }PT 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 }RANDOMELY Q 6. (>:A%,((M()CHECK LABEL POSITION ON THE PRINTER (Y/N)Q &7@<@,4Y& Ap} 1 @@13>:@',@  6. 6.  H(>:A%,"-@@H(!ENTER THE LAST }NAME OF THE RECORD 8"(FOR WHICH YOU WANT A LABEL4-@@8 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>:@',@ Q 6. (>:A%,((M()CHECK LABEL POSITION ON THE PRINTER (Y/N)Q $}&7@<@,4Y& Ap 6.  .@.@@P: K@K7@<@%},4 )7@<@,4ENDA2 6-%@ X(@(@X* ADD OR DELETE A ? #4 FOR CORRECT SPA&}CING 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 GRADESz c 6. (>:A%,*-@+}@N(IS THE PRINTER TURNED ON (Y/N)Rc3>:@',@ ##@@P: 4YA4,} 4NA4P 4 @@(6. 46- O(>:A%,"-@@9(WHAT IS THE TITL-}EK-@@O (@(@ 6- 6-B:,'@ 88(@>:@',D>:@8&P:,.},>:, (@>:@ , (@ K@K7@<@,4 )7@<@,4ENDA5`/} 6-%@ %6-@6-@%% A6%6-A6-@% A6 @ @6(@ 0} 7<%&@,@ A5<!@ 2(@ 7<%&@,< A5$44(@>:@',D>:1}@&,>:,.>*(@>:@ ,7<%&@,4 A> A5`8&&" "* PRINT PHONE FILE *B_ 2}6. (>:A%,*-@@J(IS PRINTER TURNED ON (Y/N)N_3>:@',@L##@@P:3}V4YA6`4NA6Pj4 @@(6. 46-tN(>:A%,"-@@4}8(WHAT IS THE TITLEJ-@@N~ 6- 6-B:,'@(@(@88(@>:@',5}D>:@8&P:,,>:,(@>:@ ,(@>:@,??(@>:@',D>:@),>6}:@T,>:,bW(@ -1STUDENTS>:@ ,PARENTS>:@ ,PHONES-0b(@K7}@K7@<@,4 )7@<@,4ENDA76-%@%6-@6-@%% A808}%6-@&6-@%% A8P%6-@6-@ % A8p@ @6(@  7<%&@,9}@ 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 STUDENT, PARENT & PHONE FILE<( 7.>}ΠX(8.̠ΠdB(9.PRINT ATTENDANCE CARD7(10.PRINT GRADE BOOKB(11.ENDn/ A9(+(PLE?}ASE ENTER A NUMBER/x(( @)!@)P:,A9__A"A$PA)pA2`A4PA6PA@}A`pAA A`pADELETE A RECORD0(>:A%,(0( Š^( (^(P TO DELETA}E A RECORD USE THE Ԡ FUNCTION AND EARSE THE STUDENT'S NAME<( ( ((8(#DO YOU WANT TO DELETE A RECORD(Y/NB})<4YAP0YASELECT A SORT@6-(>:A%,.-@@@( ԠC}"#( (#( 1: REGULAR SORT,( 2: SORT BY SEX6:(:(/YOU MAY NOT HAVE MORE THAN 50 NAMES IN THE FILE@D})( (%( SELECT A NUMBER )JAEAAT DATA INPUT FOR SORT BY SEX^! 6. 6-! BE}h+@+@@r< AB@@<7@<@,4 AB|S6-%@(6F}.7A<A ,?6.7@<@%,S67B:,%@,.8.67$@0&@(<$@0%@%,.8 ABAG}F:A,"A6#@16-&@76-A AB`START OF SORT OF A1$<(>:A%,((((("(H}8( WHAT GRADE < (( WHAT CLASS  -()( WHAT SUBJECT(MAX 4 LTRS)-$( ( WHAT HI}OME ROOM $)(%( WHAT MARKING PERIOD )=(.(# TEACHER'S NAME(MAX 15 LETTERS)9( =I(>:J}A%,((((("(%(I(HOW LONG A MONTH SHALL I PRINT?&(&( 1: THRITY ONE( 2K}: THIRTY%%( 3: TWENTY EIGHT$$( 4: TWENTY NINE,,($ 5: RETURN TO MAIN MENUL}&( 6: END0)(%( SELECT A NUMBER):U  @)!@)P:,#(K(# ERROR: SELECT AM} NUMBER FROM 1 TO 6U ADD=6-P:'@,%@,-@&=-@6NSS7$@0&@)<$@0N},/7+%,$@0&@)<+%,$@0,ADpXn&6.7$@0&@)<$@0,n67$@0&@)<$@0,.7+%O},$@0&@)<+%,$@0,b..67+%,$@0&@)<+%,$@0,.l v ( !@AD %%P}: * DISPLAY ALPHABETIZED DATA *"@AF<-@8( 7$@0&@)<$@0,< : * OQ}PTIONS *+('(DO YOU WANT TO REVERSE SORT+&7@<@,4Y& AV@7AR@(7( PRR}ESS TO PRINT2AR2F:B2y,"@AGp AE`77* DATA INPUT FOR ATTENDANCE CARD - RES}GULAR SORT * 6.  B5 AF@@5@@< AFP@<7@<T}@,4 AF 6-%@6-B:,C967$@0&@)<$@0%,.7@<@%,C AF * @U}@* AF*AF:A,"A6#@16-&@76-A AB`4,@6-&@V}"6-, AB`>H: * TO SORT BY SEX *R(>:A%,\6-f<-@8( 7$@0&@&<W}$@0,< p+('(DO YOU WANT TO REVERSE SORT+z&7@<@,4Y& AXP7AR@(7( X} PRESS TO PRINT2AR2F:B2y,"@AIp AGP46-6-'6-Y}4(>:A%,<(>:A%,( AG<(PLEASE TURN ON THE PRINTER.@.@@P:IZ}6-(((((!($(E(HOW MANY COPIES DO YOU WANTI"A8-@* 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 Sa}ORT BY SEX *j<(>:A%,( AIp<(PLEASE TURN ON THE PRINTERt.@.@@P:~I6b}-(((((!($(E(HOW MANY COPIES DO YOU WANTI"A86-6--c}@(@@(@(@$(@/(@@(@E,,(@  -d} YY(@>:@',-1CLASS >:@',-0 HOME RM  MARK PD (@NN(@=e} MONTH__________[[(@J NAMES 1, 2, 3, 4,f} 5, 6, 7, 8, 9, 10,11,12,13-@S @S(@E  7$@0&@&<$@0, g}K @K(@F(|__|__|__|__|__|__|__|__|__|__|__|__|__|N!@ N(@E 7$@0q}b%DOS SYSb*)DUP SYSb]AUTORUN SYSb ZRAMDISK COMbSMENU BYAUTORUN BASBrINFOBASEA bcTURBO COMBWWRITE VARBWRITE VR2CLASS 6SPCLASS 601CLASS 804 CLASS 805CLASS 7SPCLASS 705 CLASS 6SP&@&<$@0,  K!@ K(@F(|__|__|__|__|__|__|__|__|__|__|__|__|__| * TO PR5}qbcWRTFILEYABCSANFAP1P2EGKHMB1B2LM1VYNDFILEFIL1DCADAFATOUTGINAMENASFYFZXSECTs}SELLQZTLSBSMSMRAIGAJPRS1K1DDWRTKS@5/t}Mkn q t w z n nnu}*CDEFn||0 3 | ! " # $" v}%@ (&h '| (@)*@+,-./01234w}56789:;@c<=>?@AB@C x}AD 3EFGHIJ K L@pM NO PQ2RSy}TUF6-PVERSION 3.5UARZ&&;@%,;@%,;@,d7@z}7@@ D:WRITE.VARn@x@6.''A@APApA1{}AAH'A @1 A1A@X'A 1 A1A@D'A |}1 A1A@'A 1 A!AS@!AU];A0,;}}@0,;@0,;@,;@,;@,;@,;@,n67@,. 67A0,. 67@,.~}6.6.s;@,;@,;@,;@,;@,;@0,;A,;A,;A,;@ },6.>:@',~~;@,;@%,;@%,;@,;@,;@,;A,;A$,;@,;}A$,;@%,;@0,;@0,;@0,;@0,;@@,;@ ,;@ ,;@,9@P,;}@,;@,;@,;@,4D2:ApE(>:A%,"-@@E(PLEASE PUT DISK INT}O DISK (DRIVE6. /(+(IS DISK IN DISK DRIVE(Y/N)/$$7@<@,0YA0"@}A8,++" "* SPECIAL FUNCTION MENU *6T(>:A%,"-@@=(̠ΠպI6-}T@@!(!( 1: FILES ON DATA DISKJ( 2: FORMAT A DISKO( 3: PRINT GRADE BOOKT((( 4: GLOBAL DELETE OF }GRADE ENTRY^++(# 5: SEQUENTIAL INPUT OF GRADE ENTRYh##( 6: RECOVER DELETED RECORDSr( 7: LOCK A FILE|( 8: U}NLOCK A FILE( 9: RENAME A FILE(10: DELETE A FILE%%(11: SHOW AVAILABLE DISK SPACE##(12: COMPUTE STUDEN}T AVERAGE(13: RETURN TO MAIN MENU(14: END5 A(1( PLEASE ENTER A NUMBER5(( @)}!@)P:,AwwAAA8AAAAApB@BBB}AupB 8 6.6-6.867A<A,. $$7@<@,40APW6.7@}<@,441)42)43)44M67@<@,.5W AP45AP646)47)48)49667}@<@,.0>6-6-A:,&6-%@2!@>6-@ 6.=:,"@ A$-(}*( Ġ=-$L9(9(.ENTER A ONE CHARACTER CONDUCT GRADE(S,N,U etc)V6(( 3}67@<@,.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 AE@AEP1A}AH'A @1 AE`1A@X'A 1 AE`1A@D'A }1 AE`1A@'A 1 AE` $$" " * SELECT A SORT *@6-(>:A%},.-@@@( Ԡ#( (#( 1: REGULAR SORT(( 2: SORT BY SEX2;(;(0 YOU MAY NO}T HAVE MORE THAN 50 NAMES IN THE FILE<)( (%( SELECT A NUMBER:)FARAVpP>>" " * DAT}A INPUT FOR GRADE BOOK - RGULAR SORT *Z! 6.  B!6-d+@+@@n< ARp}@<7@<@,4 AR0x6-%@I?67$@0&@)<$@0%@%,.7@<@%},I AR0AF:A,"A6#@16-&@76-A AS0!!: * 'INFOBASE.A' PROGRAM BY:} R. FETZER *(>:A%, AV: * START OF SORT OF A$ *<(>:A%,((((("(8( WHAT GRADE }< (( WHAT CLASS  -()( WHAT SUBJECT(MAX 4 LTRS)-$( ( WHAT HOME ROOM $)(%}( WHAT MARKING PERIOD ).(.(# TEACHER'S NAME(MAX 15 LETTERS)( =6-P:'@,%@},-@&=-@6SS7$@0&@)<$@0,/7+%,$@0&@)<+%,$@0,AT0n&6.}7$@0&@)<$@0,n67$@0&@)<$@0,.7+%,$@0&@)<+%,$@0,"..67+%,$@0&@})<+%,$@0,., 6 ( @!@ASE"@AYJ%%: * DISPLAY ALPHABETIZED DATA *T}*(>:A%,(( 4YES* AY^<-@8( 7$@0&@)<$@0,< hV( (1("DO YOU WANT }TO GO TO PRINT CHOICES5V7@<@,4YAUr$$7@<@,4NAV|A(>:A%,"-@@}A(WHAT DO YOU WANT TO PRINT?--@@-(1: PAGE ONE AND TWO+-@@+(2: PAGE ONE ONLY!}+-@@+(3: PAGE TWO ONLY!0-@@0(4: RETURN TO MAIN MENU2-@@2(5: SPECIA}L FUNCTION MENU(-@@((6: END PROGRAM AUp6-.-@@*(SELECT A NUMBER.}] AUp* @)!@)P:,-(S(!ERROR SELECT A NUMBER FROM 1 TO 5] AUp:"@@:}@@P:77AVAs0Af0AupAB +('(DO YOU WANT TO REVERSE SORT+}&7@<@,4Y& Ai;;7@<@,4N*7@<@,4NA7AR@(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,< 4V}( (1("DO YOU WANT TO GO TO PRINT CHOICES5V7@<@,4YAY`>$$7@<@,4NA`pHA(>:}A%,"-@@A(WHAT DO YOU WANT TO PRINT?J3"@!AAH3A @L3"@!}A@X3A N3"@!A@D3A P3"@!A@3A }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`pAtPAfAupAB 3"@!AAH3A @3"@}!A@X3A 3"@!A@D3A 3"@!A@}3A +('(DO YOU WANT TO REVERSE SORT+&7@<@,4Y& Aq;;7@<@,4}N*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 WAN}TI"A-@$* 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: * PRINT SORT BY SEX *< Ac@(>:A%,(<(PLEASE TURN ON THE PRINTER.@.@}@P:=( ( (((((9(HOW MANY COPIES DO YOU WANT="A6-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:-@Pv @v(@  ______________, _____________ '|_____}|___,___,___,___,___,___,___,___|  @ (@ r!@ r(@ ______________, ________}_____ '|_____|___,___,___,___,___,___,___,___| E(@(@$(@/(@:(@E(}@"@)"@  AY`E"@)"@&(>: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,18}T6-^-@@Pht @t(@ K__|__|__|__|__|__|__|__|__|__|__| |__|__|__|__|__|_}_|__|__|__|__|__|__|__| rl!@ l(@K__|__|__|__|__|__|__|__|__|__|__| |__|__|__|__|__|__|__|__|__|__}|__|__|__|| (@oo(@ >:@,>:@',ECOMMENT>:@ },>:@',F6--@@(@ @ ++"@)"@)}"@AU++"@)"@)"@AY`%%* SUBROUTINE FOR REVERSE SORT *6-%@3}6-6-'6-36-((PRESS RETURN PLEASE](](RTO STOP SCROLLING HOLD DOWN 'CTRL' AND} PRESS 1. TO CONTINUE 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,n}67$@0&@)<$@0,.7+%,$@0&@)<+%,$@0,..67+%,$@0&@)<+%,$@0,. }( !@ApE-@6@A( 7$@0&@)<$@0,E $++* SUBROUTI}NE 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..6}7+%,$@0&@)<+%,$@0,.\ f(p z!@ArE-@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:5AYRPAG}E ONE ONLY- SORT BY SEX$(.(8""(>:AV,6600 GOTO 5960B (CONTL--F:AB,*AB@-}&VAB@`(>:A%,jAY@4t@~ A`pI Aue3>:@',@(+}5(>:AS,8IEND OF PROGRAM +$$ROUTINE TO GO BACKTO MAIN MENUI(>:A%,"-@@I("}PLEASE PUT DISK INTO DISK ( DRIVE 6. 3(/(#IS DISK IN DISK DRIVE(Y/N)3$$7}@<@,4NAur7@7@@ D:WRITE.VR2 @jAR@"(>:}A%,4-@@X(ŠĠ٠ɠ͠ǡj% D:AUTORUN.BAS@!!" "* FORMAT DISK *A_ 4D2}:(>:A%,(=( FORMATTING RAMDISK D8:Q-@AU _ ABQ(>:A%,"-@@I("PLE}ASE PUT DISK TO BE FORMATTED INQ6. C( ˠD"(( IS DISK IN DRIVE"F$$7@<@,4}NAJF 4D1: A"@F@@D1:*.*OF 4D2: A"@F@}@D8:*.*T(>:A%,^@h++@:7@<@,,!@GApr(|A@}( A@:7@<@,, @GA0@6. 2(.("IS IT OK TO ERASE THESE FILES(Y/N)2$}$7@<@,4NAK 4D1:6AT@D1:A@K AK 4D2:6A}T@D8: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 SELECTION AND DIRECTORY *d#F 4}D1: A"@F@@D1:*.*i#F 4D2: A"@F@@D}8:*.*n#(>:A%,x#@#++@:7@<@,,!@GA #(#A@( A@:7@}<@,, @GA#67@ ,. #@#:($( FILES ON DISK'(*(26. :6. #-}(-("PLACE A DECIMAL POINT BETWEEN FILE#++(#NAME AND EXTENDER. EXMPL: CLASS.602#>(:(.DO YOU WANT TO USE ONE OF THE A}BOVE FILES(Y/N)>#$$7@<@,0YA#'(#(PLEASE TYPE IN FILENAME'# 6-B:,$67@<%}@,.$( 4D1:(67@<@,.D1:$( 4D2:(67@<@,.D8:$&6.7@<%@,& A}$22" "* GLOBAL DELETE OF GRADE ENTRY *$I(>:A%,"-@@C(נǠӠF(I}($J@+@@76-C6-J6.$~ A`@)@\7@}<@,4 )7@<@,4ENDh6-t6-~ A $]-@@A(7@<@%, 7}A<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}@@T7@<@,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-@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` } &D6-A6-@'6-@:6-B:,&%@D A`&6 6. ((2( RESTORE THIS RECORD(Y/N)6 }&$$7@<@,0YA & 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<}%&@,$& * ROUTINE TO LOCK A FILE *&7(>:A%,6.)-@@7( ˠ&)-@@)(}ENTER FILE NAME&-@@&) 6. 6.D8:)67B:,%@,.&Q A`2@5@}=@G BQ A`& B A& * ROUTINE TO UNLOCK FILE *&9(>:A%,6.)-@}@9( ˠ')-@@)(ENTER FILE NAME'-@@') 6. 6.D8:)67B:,%@},.$'Q B02@6@=@G BQ A`.' B Ap8'""* ROUTI}NE TO RENAME A FILE *B'G(>:A%,6.6.%6.7-@@G( ŠL'--@@)(ENTER O}LD NAME-N'CC4MENU)4 AUTORUN.BAS)4 INFOBASE.A)4 TURBO.COMBV'--@@)(ENTER NEW NAME-}`' B6.D8:+67B:,%@,.A67B:,%@,.,U67B:,%@,.z@2@}@j' B A`t' B B@~'""* ROUTINE TO DELETE A FILE *'9(>:A%,6.)-@@}9( Š')-@@)(ENTER FILE NAME'-@@'CC4MENU)4 AUTORUN.BAS)4 INFOB}ASE.A)4 TURBO.COMB'T 6. -@@/( ARE YOU SURE3T7@<@,4NA') 6. 6}.D8:)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!}(< 4D1:@<@@D1:*.*(< 4D2:@<@@D8:*.* (<}@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@@D8:*.*(9@6-"}%6-B:,9"@B@(++@:7@<@,, @GB (B 6.!6.7@<@,-6-96-#}B6-A:,(=6-P:$A%,'A=6-P:$@%?P,'@(T 4D1:-@@I( YOU HAVE $} K. BYTES OF SPACE LEFTT@(] 4D2:-@@R( YOU HAVE  K. BYTES OF RAM DISK SPACE LEFT]@%}(7-@@7(PRESS TO RETURN TO MENU( F:B2y,"@A( B)//" " * &}COMPUTE STUDENT AVERAGES *)A(>:A%,"-@@5(ӠպA6-)((1: NORMAL AVERAGE")0('}0(%2: AVERAGE 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 B)}P2 @)!@)P:,BPJ)(>:A%,@8@@D6-P6-W6*}.^6.j6-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))()(-} PLEASE 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-@0} Bg)!@6-@)!(!( =), 6.=:,""@)"@, A)'('(1}TO SAVE AVERAGE PRESS )W(W(LTO CHANGE AVERAGE PRESS . ENTER THE NEW AVERAGE --> PRESS TWICE) F:B2}2y,"@B")^F:B2y,"@$6-06-<6-H6-T6-^ B) B3})*"@*67A<A,. )67A<A,.)D@ @:67A<A,.4} D B)-F:A,"A6#@- A** END*Q(>:A%,"-@@Q(*To the}INT EMPTY LINES *(6-2-@P<v @v(@  ______________, _____________ 6}(|__|__|__|__|__|__|__|__|__|__|__|__|__|Fq!@ q(@ ______________, _____________ (|__|__|__|7}__|__|__|__|__|__|__|__|__|__|P ZMM(@< a = ABSENT l = LATE c = CUTTING E = EXCUSEDd6-8}n&-@@"(@& x: * TO PRINT 2ND PAGE *@@(@E) 9} PAGE 2(@>:@,33(@" MONTH__________6-77ASASP:}ATATPAAbb(@ 514,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31 COMMENTS;}F-@@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|__|__|__|__|__|__|__|__|__|__|__|__|__|__|__|__|__|_________________  AU@}YY(@ ,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28 COMMENTSF"#6-#-@@PA},m @m(@ .|__|__|__|__|__|__|__|__|__|__|__|__|__|__|__| ___________________6e!@ B}e(@.|__|__|__|__|__|__|__|__|__|__|__|__|__|__|__|___________________@  AUJ\\(@ C}/14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29 COMMENTSFT#6-#-@@P^p @p(D}@ 1|__|__|__|__|__|__|__|__|__|__|__|__|__|__|__|__| ___________________hh!@ h(@1E}|__|__|__|__|__|__|__|__|__|__|__|__|__|__|__|__|___________________r  AU|(@MM(@F}< a = ABSENT l = LATE c = CUTTING E = EXCUSED6--@@(@ G} @H(>:A%,((((("(%(((+(.(1(H* DIFFERENT MONTHS *I 6. E(4DO YOU WANT TO PRINTH} A MONTH WITH DIFFRENT DAYS(Y/N)I&7@<@,4N& A&7@<@,4Y& AC0 +I}%%* SUBROUTINE FOR REVERSE SORT *6-%@36-6-'6-36-&((PRESSJ} RETURN PLEASE0](](RTO STOP SCROLLING HOLD DOWN 'CTRL' AND PRESS 1. TO CONTINUE REPEAT THE SAME ACTION: 6.6K}-B:,D-"6-&@#6-- AW@N((67$@0&@)<$@0%,.X AV@b* START OF REVERL}SE SORT *l$6-P:'@,$-@&v-@6SS7$@0&@)<$@0,/7+%,$@0&@)M}<+%,$@0,AXn&6.7$@0&@)<$@0,n67$@0&@)<$@0,.7+%,$@0&@)<+%,$N}@0,..67+%,$@0&@)<+%,$@0,. ( !@AW@E-@6@AO}( 7$@0&@)<$@0,E $++* SUBROUTINE FOR REVERSE SORT BY SEX"6-%@36-6P}-'6-36-((PRESS RETURN PLEASE](](RTO STOP SCROLLING HOLD DOWN 'CTRL' AND PRESS 1. TO Q}CONTINUE REPEAT THE SAME ACTION  6.6-B:,-"6-&@#6-- AYP ((67$@0&@)<R}$@0%,.* AXP4&&* START OF REVERSE SORT BY SEX *>$6-P:'@,$-@&H-@6RSS}S7$@0&@)<$@0,/7+%,$@0&@)<+%,$@0,A`\n&6.7$@0&@)<$@0,n67$T}@0&@)<$@0,.7+%,$@0&@)<+%,$@0,f..67+%,$@0&@)<+%,$@0,.p z(U} !@AYPE-@6@A( 7$@0&@&<$@0,E $4D2:AV}a0D(>:A%,"-@@D(PLEASE PUT DISK INTO( DISK DRIVE6. 3(/(#IS DISX}D8:DUP.SYS40D2::: K IN DISK DRIVE(Y/N)3$$7@<@,4YAa $$7@<@,4NA`p22SAVING OF VARIABLES FOY}R 'INFOBASE.A' TO DISK 6.6-7@7@@ D:WRITE.VAR @ @Z} @ @$@.iAR@"(>:A%,4-@@X(ŠĠ٠ɠ͠[}ǡi% D:INFOBASE.A8R(>:A%,"-@@R(+PLEASE PUT DISK INTO DISK DRIVE #1O Ac\}-@@K(&# OF DRIVES 1 OR 2(1 DRIVE+RAMDISK D8)OK @)!@(A( ERROR - SELECT EITHERa}EiͩkΩ͙kCop j`j {j`Hi͝Νh` _} `L(奷 bɥ󥋅ȱȱȱȄ#鈄0B8eeŶ`}L"UNEM:D"NURͩkΩ͙kCop j`j {j`Hi͝Νh`ɛ,@LBˤ,ɛ`L?± ˤ樱f Oƨ x݅ + ~ [ˠ O樥0# +  L˥`b} 1 OR 2K Ac"@ Ad"@ Ae)#@@E:&()( i`(>:AV,c}LL :ɛ,$PH h $P润䧰 ʐLʦ䧐 +` ʐL3LBˢh}A>:@h,>:@h,>:@6,>:@a,>:@4,D1:>:@4,i(CONT--F:AB,*AB@d}-&7AB@"(>:A%,-@7 Afd)#@@E:&()(ni`(>:AV,Ae}>:@h,>:@h,>:@6,>:@a,>:@4,D2:>:@4,i(CONTs--F:AB,*AB@f}-&x7AB@"(>:A%,-@7 Af=-@@=(#NOW SAVING DISK DRIVE CONFIGURATIONPg} D:AUTORUN.BAS'-@@>(RELOADING INFOBASEP% D:AUTORUN.BAS,$$ROUTINE TO WRITE 'END' ON DATA6+@}ԝD՝E֝HםI L 兢L]& 兢L% ,L6 ,L6 &L6 (L6妪@!I@!` ؐb`P KW ؐRB ؐi}=;G ؐ4@ ;+ƪƪ@!=A! (ƪƪ@!A! ƪ@! ,@@檦@!`!!!!!!`ƪ@! ǩjҤj} /L.٤ƪƪ@!@!, 舽`!`!!ـ!!٠!!!!!`@!jI*` . ֪ (k}ϰ`(8` ֤ׅԄ +҅L: Lyƪ8吪周Ly sũ + ŐL Ly sŠԄ h L}l} L}٩    e쪽pLyL( + ڥHJJJJ h) 0:i`  ک; n +ȱ)ȥ%m}ݓ Lh ԍՅԄׅ֩өL:ƪ?Ԣ )ɠ )  -L &Lڦ@!)@!` n)8@n} -L:` / n)8@I= n)8@/ѩ֔$ሄ ,L: + n 0L8 no} 0L8 n H1L8 n /L8 n /L8 n D/L8 n 1L8LLإL( &)ԥ)8@JjH@p}MC)JJJe)e .F / .P . &F . #/ &L.L(HHHHHH /hhhhhh &q} Y/hԅL:,` L _ܘ%ᨥ%Ly _ܘᨥLy _ܘEᨥELyٚ<|'g 0L`r}!!!!i ` &LإL٥LyɥLzvmZ ƨ!0 4 䦵 ¥ԝD՝E֝Heםs}I Lܤį eį L` x݅ƨLLLܤ ©`#ۢ Lĩ_,ߤt} ڄ . eڅԥeۅհ"8څ֥ۅא8ܥݰL۠Q%0ԅإՅ٥ަ0%Q% u}L-ե0LޥڤLyمօנ6&֐ eו`L( Hħ hբՅ `ޥԢ `ޥՅ֠v}&&֐eܥeېڈ 7 \ 7 j N \ N j$0!ee80å/8ܥ۰uڕ0w}eUiV`TUV`8UV`eTi`8TȢ` $L„')Q ȱ8 ex}新`8`L齀).Q Ӱȱ8e新 O :L䅫# *$Ŭy} Ʃ HL"䥫ș L` Ml/#樱0ZS'`ȱȱȱȱȱȱȄ`ȱօȘuԩׅu՘e֨҄`z}I 屝Ҡȱȱȱȱȱ` n$҅J?eԨe` L 兙 兛 n %3 Ԥ` ҩ,{} , , L檤 ٙ!ؙ!י!֙!ՙ`!ԙ@!ә !ҙ!` 䤪ƪ!ٹ!ع!׹!ֹ`!չ@!Թ !ӹ!`ƪ!!|}!㹁!a!A!Lp ґȥӑȥԑȥՑȥ֑ȥבȥؑȥّ` ***j)e)e`ʭȅiȅ}}iȅȩȩ Lfإ  4  \ +] ¥򄟄~}   넨ɛ$0L祔 Z f0#ڠ쩀 ߩ6ei$0 녖چ + !5}ɛȑ @膔7 ɛ 襔!ɛL! _ɩ8$IȢ %e拢 } &!$P* &8孨客 "&$ 1L~ L~ &L _ɰe拢 &L~ +0 %30Ԅ }L 9:枢0 O L :H9Hhh tLHH`h}hLCL馩`ʆLC枢0ְşLC`A枢Ɣ!L!L}!T 򈩛LQLD ijq ߰,iŰD VD8` 覲`8` 넬 S( +饰}0 S0:$$ p8`$p (ȩ@҅ҥ򄬤 ߰ A L8򨢄 %Ӥ򈦬ʽ ʽ % }+HH 屝EҨhh$P0Ƭ 襯I `_A[`8`80 &Ոԅ}` 넬$ +  + h갳 h) + , 褔ԙ!` "8` 襔 ɛ "ȱ"}嫤!`! `) ɛ%)a{)_0:A[_դ`RE͕DATINPUԑCOLOҝLISԖENTEҚLEԛIƜFO}NEXԑGOTϑGO TϑGOSU½TRAАBYŐCONԞCO͟CLOSŐCLҐDEǞDI͐ENĐNEנOPEΖLOAĖSAVŢSTATUӣNOTPOINԡXIϤOΒPOKťPRINԐRAęREA}ĨRESTORŐRETURΩRUΐSTOАPOХGEԫPUԑGRAPHICӒPLOԒPOSITIOΐDOӒDRAWTϓSETCOLOҬLOCATŔSOUNĦLPRINԐCSAVŐCLOAĚERROR- }DPOKœMOVœ-MOVŪ*ƐREPEAԑUNTȊWHILŐWENĐELSŐENDIBPUBGEԒFILLTϐDϐLOOШEXIDIҖLOC˖UNLOC˖RENAMŖDELETőPAUSŖTI}ME$PROøEXEÐENDPROÑFCOLOҪ*̕-RENU͒DEDUMЪTRACTEXԖBLOAĖBRUθGO*’PAINԟCLӔDSOUNCIRCLū%PUԘ%GEԚG}OTGOSUTSTETHEΣ<<>ުNOOANĨ<<>STRCHRUSASVALEADATCOPEESIRNFREXLOCLOSQSGABIN}PADDLSTICPTRISTRIDPEE˦INSTINKEYEXOHEXDEDIFRATIMETIMMOEXERNRANTRUN%%%%GOUINSTERER+,%5}&6(+8,<Xk`fghilm^deDѳHc?,Ќ,е,Y_Ҳ+7,/0}1 2!3"4Ɛ"-"."-؂ٿ֐ː}ĐאŐbj+9,+;,ʐͭ}ͭ@ABC\=>[<+:е<,&%rvnnxc<\}-78s_XV+@D&0d*"'2GJh N}Rl~&2 +饰(+VWZ ]a8`L`  ¤ħ.H h L5 䄡 } 䅭 bɠ04Ů .ŭ%) e拰 ĩ L+Ư0 Le}`毤Hɛ) h`  L ȱ R @ʆ ȱȄ Iğ` :62T F :}7 8 Lbԩ- L 8 8,I ɨ 8L.UH `ƨh $ %3   + \L L 8󅯩" } 8" ©" Ư" L8q :Z#]abj(=) W같  L樤ħ`hh`H YhZ }L<>EO ƹƹ0`H f5h`I&` =? FQA` L񄳱ȱI 䦐}Ħ ąŅ T k /䧰 k ,Ǡ ĩJH ThĥȑĥȑĦʊȑ`HHąŅ}H h hhhh ȱIELZ L`ȱI Hȱȱȱȱȱ }, h @ $L+L.*ȱȱȱȱȱjEE `EjI `e`ħ ¥}0 ` Lk 䦪`! 䧰L A@L `I&`L ©؅ L.}0`STOPPED륺 bɠhhL :ʅ` k %3Hƹ h5h`hbjH h #}ԤLQ #LLei  `LԑȥՑȥ֑ȥבȥؑȥّ``䈥剰}#)iiLɠL4űI&`048ץğ=ȱȄ }`L  L0e拠0ȱȄL  䦪`!' >?L (<ж`!  $Л +`,LőŐ78Ƒ8 Ƒ`8` - PѠ}`,,L L PQ 8,L ȱI ѝߠȱ`ԩ},L E  $EL+L],,,؍ 0âLɀL ©7 F󦹩 RbL g }0g `Ո V fL{Ն + +􅕄L AT LINE?BLOAMEVALU>#VAR$LE?DAT>3276INPUDISTACOVERFLO?LIN?}FOTOO LON?DE?GOSUGARBAG?CHMEͣ?LOA?NES?WHIL?REPEA?D?EXIXPRO?EXE?PRO?IS OPE?DEWR ONLCMNOT OPEΣRD ONLEOT}RUNTIMEOUNA!FRAMCURSO!OVERRUCHKSUDONMODNOT IMPRA͠D?>#FILEDSK FULFATAL I/FILENAMPOINLOCKEDCM>DI}?FILPOIN?APPNBAD SECTORӥHՄ +h & .hԩ + ,҅L: ƪn (@Մ$ 0` 0}` 0LoH - . /h &@Յ՘JJJJ X) 0:i`AVC2 sŠ 5  <)  <} L L + e +e`e`&&&&&&eee` &}&eee&*`` 兙 䦪!0 4 ۄܱ **m ݤܱEۅڦڱ= } ܥeƥiեLN@ ` **)]` 00`` ( ((((((((8}`W)ߥ & &e &߽řِ׼JJJJ&eXޥeYߥ䥛 9 FfЎᰈ } `  M 8*` 兙 󥐅i祣L{ &L}  0 & L ȑ & L; # )ȱ L })ȱ) )ȱ 8ƣŐő0eސ`ƙ8ް`)ȱJJJ`}``=`]``` E߭H Ġ} hL±&Lv`[  ȱ R] } L L  䅠 bɰhhğȱȄ L l"0e拱LjLx`[  ȱ R] h+@@ @67A$,. E67@<@,.ENDGvv67@<@,.[ } H<<67@<A$,.! } RAMDISK to a FLOPPY disk use:*6-@@6(DOS OPTION C 'D8:*.*,D1:*.*'* MAP+*SELF DES} J @@|$XLABEL POSITIONb443******************>:@',j>:@6,l5 6. }TRUCT PREVENTION+%6-%@%"@B +C`-@@C(&YOU ARE TRYING TO CHANGE MY FILE NAMES+7}D8:CLASS.601ORS6 : $ ((1(ADJUST LABEL POSITION(Y/N)5v;;7@<@,4Y)7@<@,4yAp 3>:@',233}-@@7(THIS IS AN PROCEDURE! +F-@@2(THE OPERATION IS ABORTED:@',233