' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 7777777 7777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#07#0:"4<*55**5*%5)1)1)1)'#0/#0*5*75**5*:5/#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (   Ϡ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*`9F/date a Letter","Delete a Letter" '< "The letters and notices prepared with this program may be customized to include information from the student records.","To enter student information while writing, type Control-I to bring up the fiAW%<________________________________________________________________________________%<2,"Select ALL student names.","Select a subset of student names for letters."2&< "Main Menu","Letters",4,"Print a Letter","Write a New Letter","Examine and Up(HP):ZY(VP):EC$(27)(13)X$;HP,ZX:ZY1:SLI," !-#+--z",EC$,15,Z$,EC:EC2715350i$;Z$""15320$;(Z$,1)"0"(Z$,1)"9"įP8S,0,23,"Please enter a name with a letter as the first character.":15320$;TCLR,0,23,59,23:ZY2:%",DB$(L11),1,IP,TL,Z::ZI1?!9100:E$"Stop Printing":28250:28100:P8S,LM,TM((BMTM)2)1,"Now printing the letter.":P8S,LM,TM((BMTM)2)1,"Use Escape to50+CDB,0:ODB,0,"CLASS.BIN",DB$:CDB,0P8S,LM,TM(BMTM)2,"Please prepare your printer.":30000:EC27İ20100:LELE2:T$"Choose Letter":503028600:L1DB:SE%(L)5090y 9100:E$"":28250:28000:ODB,0,"CLASS.BIN",DB$:GAR,0,L:CDB,0:0,23,57,23:FI$FI$(L):+PRINT A LETTERiCDB,0:LE1:E$"Letters":T$"Choose Letter":20000:282504700:EC27İ20100:LELE1:5095Z$FI$:500:28500:28100:ZE$T$:15800:EC27İ20100:LELE1:5010LELE1:E$T$:T$"Print":20000:2822,TM1,"================"}pFCN,".LTTR",FI$,Z:Z0įP8S,LM2,TM5,"There are no letters on this diskette.":30000:EC27:P8S,0,22,"Use up/down arrows to select, then press Return."SMENU,FI$,Z,LM3,TM2,RM,BM,15,(27)(13),0,0,T,L,EC:TCLR,0,22,79,22:LU,Z$:FI$Z$:EC274640/C4690HZD2:T1:33000:TCLR,LM,TM,RM,BM:P8S,LM,TM5,"Storing the letter "FI$".":9000:MWS,TL,FI$".LTTR":9100:ED0R\DISPLAY A LIST OF FILESaT1:ZD2:33000fP8S,LM2,TM," Name":P8S,LMTE"FI$(F)".LTTR"D2$:4680<Z20İ28100:P8S,LM1,TM4,"The maximum number of letters (20)":P8S,LM1,TM6,"has been saved.":30000:EC274690:28100:4655%>P8S,LM1,TM7,"-->":23:HP,0:"Type in a new name for the letter: ";:Z$FI$:15300:TCLR,M,TM3,"That letter is already on this diskette.":TM$(0)"Let the new letter replace the old.":TM$(1)"Save letter with a new name."4P8S,0,23,IN$:MENU,TM$,2,LM,TM5,(27)(13),1,1,ZN,EC:EC2746909ZN1İ28000:ZD2:T1:33000:TM4::(4)"DELEP8S,LM1,TM32ZN,"-->":ZN14640ZN2Ģ23:HP,0:"Do you really want to do this? ";:ZC0:30100:CUEC27İ28400:4610ED0:4690 FCN,".LTTR",FI$,Z:Z4680%F1:L0Z1:FI$FI$(L)FL*:F14680/TCLR,LM,TM,RM,BM:P8S,L3:15200:300:30010:ST$"Save "(34)FI$(34):LM20:RM60:TM4:BM13:15200gT1:ZD2:33000REST,SL:E$:28250:ZZ$,Z:L0Z:ME$(L)::ZN1TCLR,LM,TM,RM,BM:P8S,LM1,TM3,ZZ$:MENU,ME$,2,LM,TM5,(27)(13),1,ZN,ZN,EC:EC274690% Do you really want to do this? ";:ZC0:30100:EC274060GCU402028100:28400:28000:ZD2:T1:33000:12::D$"CLOSE":" ":D$"DELETE"FI$".LTTR"D2$:402020100:LE0:SAVE A FILEEDZ$T$:T$E$:E$Z$:28250:LM20:RM60:TM4:BM1field." 7'7'Add Preset7'E$T$:TCLR,LM,TM10,RM,BM:T$"Add Preset":28250:28400:10100:N6įP8S,LM,TM10,"The maximum 6 preset entries":P8S,LM,TM11,"have been made.":30000:7'23:HP,0:"Enter the new preset: ";:Z$""İ11000:ZZ$"">8Presets,6y'N0:ZL16:NN(FP$(F,ZL)""):6~'P8S,LM,TM,"Field: "F$(F):TCLR,LM,TM1,RM,TM9:N0āZL1N:P8S,LM,TM1ZL,(" "(ZL),2)". "FP$(F,ZL):ME$(ZL1)FP$(F,ZL):7'N0įP8S,LM,TM2,"There are no preset entries":P8S,LM,TM3,"for this '28100n5$'CU1:REST,15060:28200:10100:28400:P8S,0,23,I$:ZN:L20ZN1:ME$(L2)::TCLR,LM,TM10,RM,BM5.'MENU,ME$,ZN,LM,TM10,(13)(27),0,CU,CU,EC:EC271005058'P8S,LM,TM9CU,"-->":CU4ĴCU10500,10200,10300:CU1100205B'SC1:6t'?C279900Q4&T(MD):MD,2:D$"BSAVE MECC$$DISK,A"MD",L40"D2$:MD,T:909,1:9950g4H&SET UP EXCH DISK4R&28100:6100:EC27ı4\&OK98104f&4&20100:LELE1:4&28400:TCLR,0,0,24,0:ZD1:WP0:T0:33000:28000:RNH,"EXCHANGE"4'Presets5 Exch.3$909,2:28000:9950(3%990073%SEND INFOf3%EF1:REST,15220:21000:22000:EC279900}3%MC(LE)9700:96003%SEND TO GMGR3%E$T$:T$ME$(MC(LE)1):28250:LELE1:20000:REST,15230:ZYTM1:ZXLM:6200:30000:EC279900 4%9800:E79900~2#E$T$:T$ME$(MC(LE)1):28250:LELE1:20000:REST,15225:ZYTM:ZXLM:6200:RM78:30000:EC27İ20100:LELE1:92002$9800:EC27İ20100:LELE1:92002"$MC(LE1)9300,9400:92002T$Grade Mgr. Get2^$909,1:28000:99503$Student Rec.,59,22,79,23:RNH,"TRANSFER"-1(#Exchng InfoB1-#LELE1:MC(LE)1l12#REST,15200:21000:22000:EC2799001<#910,MC(LE):LELE1:MC(LE1)9200,9600:EC2790101F#99001#GET INFO1#L010:F$(L)DF$(L):2#EF0:REST,15210:21000:22000:EC2HP,LM:TM7:"Enter new title: ";:Z$"":SLI,SL$,(13)(27),15,Z$,EC:EC13įTRIM,Z$:Z$F$(0)F$(0)Z$:750020100:LELE1:0@Transfer1JLELE1:T$"Transfer Records":E$EM$:20000:28350:28100:T0:ZD1:WP0:33000:28000:TCLR,0,0,24,0:TCLR/-ZE1:6999/0ZE320407/WOKZE:ZU0:958,VO:I/XChange title/bLELE1:T$"Change Diskette Title":E$EM$:28250:20000:28400/lX(0):LVA,"F$(10).BIN",F$:P8S,LM,TM4,"Current data diskette title: "F$(0)("Empty ",15(F$(0)""))n0v":28250:P8S,LM,A(1),"Unable to create "QC$(1EF)QT$(1EF)" diskette from this diskette."/+P8S,LM,A(0),"Check your drive parameters and be sure":P8S,LM,A(1),"that your disk drive door is closed.":30000:E$EM$:EM$"":T$TM$:28250:EC276900Be sure to type in the /'s.",1,"" ,@= "Delete Key",1,"Erases characters (one at a time) to the left of the cursor.",".FF",1,"Form Feed",".SP",1,"Print single page",".LM#",1,"Set left margin",".RM#",1,"Set right margin"eight margin"#",1,"Set ontrol-F/old text/new text/",4,"","","Finds the original text you type between the slashes. Press","R to replace it with the new text."#,6= "Control-F/old text/new text/a",3,"","","Find and replace ALL occurrences of old text with new text.","Remember: to the left of the cursor."*"= Z,1,"Restores a PARAGRAPH. Inserts it left of the cursor." +,= "Control-F/text/",3,"","","Finds the text you type between the slashes.","Cginning of the text.",E,1,"Moves cursor to the end of the text.",G,1,"Get record information to insert in letter.",W,1,"Deletes the WORD to the left of the cursor."*= V,1,"Restores a WORD and inserts it left of the cursor.",X,1,"Deletes the PARAGRAPHREPLACE LETTER DATA(<"Examine/Update","You made changes to this letter.",2,"Save the changes to the letter.","Throw out the changes to the letter."(*LP8S,ZX,ZY,Z$:ZYZY1:6210D*Vc*Z$"new":EFZ$"exchange"n*Z$;:*CK for init*1::OK0:VO(958):958,0:SET,2:ZS654:ZU1:28000:CPRO,ZP:ZPįCPRO,ZP:ZPOK1:6900 +SPRO,ZP:ZE0:ZEĺD$"VERIFDISK,A"MD",L40"D2$:958,DV:SET,2)RAV,ME$:RAV,SEL%:ME$(10),SEL%(MR):SVA,"BLANK$(10).BIN",ME$:SVA,"F$(10).BIN",F$:SVA,"FP$(10:6).BIN",FP$:SVA,"SEL%("(MR)").BIN",SEL%:MDB,"CLASS.BIN")7)8PUT UP TEXT*BZ$:(Z$"*")6230:FKS,1,Z$,I:I "(956):HP,LM:" Drive: "(957);C(".":30000:EC276199`(6800:EF6199:OK6110(28000:Z$"The files":F$(0)""Z$Z$" for "F$(0)!)DV(958):958,0:SET,2:Z$Z$" are being set up.":P8S,LM,A(1),Z$:WFL,"HELLO"::D$"BSAVE MECC$$ new data diskette will be called "F$(0)".":Z1'T$R$(0):E$R$(1):28250:TMZ2(LE1):HP,LM:"Please insert the ";:6300:" diskette for":HP,LM:QN$;:ZC(907):ZC2ĺ" in drive 2";'(ZC3ĺ:HP,LM:"in the drive located at:":HP,LM:" Slot::&Makedisk&R$(0)T$:R$(1)E$:28400:Z0:EF6115:23:HP,0:"Please enter the title for the new data diskette: ";:Z$"":SLI,SL$,(27)(13),15,Z$,EC:EC276199&F$(0)Z$:28100:TCLR,0,22,79,231'Z0:28100:F$(0)""įP8S,LM,TM(LE1),"TheTCLR,LM,TM,TM20,BM:I1NF:P8S,LM2,TMI1(LE3),F$(I)::28400:23:HP,0:"Do you want to change any of these fields? ";:DE0:30100:EC276199%CU1İ4000:I110:DF$(I)F$(I)::T$E$:E$"Maintenance":28250:6050&EF0:6100:20100:LELE1M$:20000:RMRM3G$28100:28250:REST,15150:ZYTM:ZXLM:6200:6200^$30000:EC276199$28100:28260:P8S,LM22,TM(LE3),"The last name and first name":P8S,LM22,TM(LE3),"fields cannot be changed.":REST,15175:ZYTM3$ZXLM22:6200%ese field names":P8S,LM30,TM1,"can be "ZD$"d.":P8S,0,22,I$:MENU,ME$,NF2,LM,TM,(13)(27),0,1,F,EC:EC274990#BP8S,LM,TMF1,"-->":FF2#~#pCreateDataDisk$zLELE1:NF0:L010:F$(L)DF$(L):NFNF(F$(L)"")::T$"Set Up Fields":E$EST,15110:900:30000:TPUT,LM,TM,W1:4820:"EC274810H"MODİ750]"20100:LELE1:v"$chng/del fieldsetup".28400:28100:400:450:NF3įP8S,LM,A(0),"There are no more fields that can be "ZD$"d.":30000:EC27:4990v#8P8S,LM30,TM,"Th1:T$"Change Field Names":E$EM$:20000:28250:MOD0X!ZD$"change":4900:EC274880!28400:23:HP,0:"Enter the field name: ";:Z$"":SLI,SL$,(13)(18)(27),15,Z$,EC:EC13įTRIM,Z$:Z$""F$(F)Z$:MOD1)"EC18įTTAK,LM,TM,RM,BM,W1,160:RE""::MC(0)14710Y >T1:WP1:ZD2:33000:SVA,"F$(10).BIN",F$:SVA,"FP$(10:6).BIN",FP$ H800:DBāCR1DB:GAR,0,CR:FNFįSHFT,DB$,F1,NF1,1 RDBDB$(NF)"":RAR,0,CR: \850 fNFNF1:4610 20100:LELE1: Change field5!LELEith it will also be erased.":HP,LM:"Are you sure you want to delete the "F$(F):HP,LM:"field? ";:DE0:30100:CUEC274790 28000*FNFįSHFT,F$,F1,NF1,1:L2F1NF:L306:FP$(L21,L3)FP$(L2,L3):: 4F$(NF)"":L206:FP$(NF,L2)Ы4430MODİ750(20100:LELE1:6DelfieldjLELE1:T$"Delete Fields":E$EM$:20000:28250ZD$"delete":4900:EC274790 28100:MC(0)14650TM3:HP,LM:"When a field is deleted, all record information":HP,LM:"associated wLM30,TM,"Enter the new":P8S,LM30,TM1,"field name.":HP,LM5:TMNF1:Z$"":SLI,SL$,(13)(18)(27),15,Z$,EC:EC274480bEC18įTTAK,LM,TM,RM,BM,W1,160:REST,15110:900:30000:TPUT,LM,TM,W1:4430lTRIM,Z$:Z$""NFNF1:MOD1:F$(NF)Z$vN450:28250:28400SNF10įTCLR,LM30,TM,RM,TM1:ZTM2:P8S,LM30,Z,"The maximum number of fields":P8S,LM30,Z1,"have been defined. A field":P8S,LM30,Z2,"must be deleted before another":P8S,LM30,Z3,"can be added.":30000:4480~XP8S,mes --"::ZL1NF:P8S,LM35,TMZL,F$(ZL)::22000:EC27İ20100:LELE1:TCLR,0,22,79,23:"MC(LE)4400,4600,4800:28400:41200Add field:MOD0:T$"Enter Fields":E$EM$:LELE1:20000:28250D28400:400:L218:P8S,LM1,TM1L2,(L2)".":sDMC(0)1X(0):LVA,"F$(10).BIN",F$:LVA,"FP$(10:6).BIN",FP$SAlt entryLELE1:NF0:L2110:NFNF(F$(L2)"")::28350REST,15030:MC(0)1įREST,1503521000:EM$T$:450[TCLR,LM29,TM,RM,BM:P8S,LM29,TM,"-- Current Field NaUpdateRec F1:SC1C 28300:TI15040:WR0:12000:EC273090 600:CRCR12(EC11):CRCRDB(CRDB)DB(CR1):CRCR(DB0):500:F1(NF1)(F) TCLR,25,TM,47,BM:ZL1NF:P8S,25,6ZL,R$(ZL)::SC0:3020 600:SC1:Edit field name 600:SC1h TI15050:DBMRİ28100:P8S,LM2,TM5,"The maximum number of":P8S,LM2,TM6,"records (150) have been saved.":30000:2930m F1:CR0:TCLR,25,TM,47,BM:500:WR1:12000:MSMSMOD:600:EC272920r CRCRDB0:500| 600:SC1:  TM,Z$:ZA(3):P8S,LM1,Z,"Are you sure you want to":HP,LM1:Z3:"delete this record? ";:DE0:30100:CUEC27ı< CRİ800:DAR,0,CR:MS1F CRCR(CRDB):CRCR(CR)(DB0):500:28300: Ref Screen SC0:REST,15070:900:T Addrec ^B$(2)Z1$:RAV,SEL%:SEL%(MR):SRCH,0,SEL%,N:N0įTCLR,LM2,Z,RM,Z5:P8S,LM2,TM8,"Record not found.":30000: 600:CR0:L201:CRCR1:L2SEL%(CR)::500:( Deleterecu2 SC1:T$"Delete a Record":E$EM$:28250:28100:Z$T$:P8S,S((LMRM)2),"":SLI,SL$,(13)(27)(18),22,Z$,EC:TRIM,Z$:EC27ı P8S,LM2,Z3,"Enter first name:":Z5:HP,LM2:Z1$"":SLI,SL$,(13)(27)(18),22,Z1$,EC:TRIM,Z1$:EC27ı EC18įREST,15110:900:30000:2510q 800:L2010:DB$(L2)""::DB$(1)Z$:DR1):CRCR(DB0):500:+` Move 1st/Last]j SC0:600:CR(DB0)((EC2)DB(EC5)):500:n Find record 28400:SC1:T$"Find Record":E$EM$:28250:28100:Z$T$:P8S,S((LMRM)2),TM,Z$9 ZA(2):P8S,LM2,Z,"Enter last name:":Z2:HP,LM2:Z$EC$,Z:Z2300,2300,2900,2400,2400,2500,2600,3000:SCDBİ2700QfEC27DB2100[Exit600:850:MSįRAV,SEL%:SEL%(MR):SVA,"SEL%("(MR)").BIN",SEL%TPUT,0,2,W2:for/back one rec SC0:600:CRCR12(EC8):CRCRDB(CRDB)DB(Cnance":EM$T$:DBİ28250:TCLR,25,TM,47,BM:28400:28300:P8S,0,22,"Use the commands from the reference area."HL1NF:P8S,25,6L,R$(L):REC$(8)(21)(1)(2)(5)(6)(24)(13)(27):1:EC1:DBįSLI,EC$,,0,Z$,0,EC:EC272200=\FKS,EC,C27İ20100$TCLR,0,0,79,0:1020.EditTTAK,0,2,79,23,W2:SET,2:LVA,"F$(10).BIN",F$:LVA,"FP$(10:6).BIN",FP$:NF0:L110:NFNF(F$(L)""):800:200:28300:CRDB0:F1:500:MS0:DBİ27004Examinen>T$"Examine Records":E$"MainteREST,15000:Z$:P8S,0,1,Z$:P8S,0,21,Z$RLE0:REST,15020:21000:MC(LE)(908)zZE1:Z0:22010:EM$T$:EC2731000ZMC(0):Z1Z5įTTAK,LM,TM,RM,BM,W1:T1:ZD2:WP0:33000:TPUT,LM,TM,W1 908,MC(LE):MC(0)6000,2000,4000,7000,8000,9000:ELOİ285004LO1:%RClose DB4\LOįCDB,0?fLO0:HRef28100:Z$"Reference":P8S,S((LMRM)21),TM,Z$:ZXLM:ZYTM2:950:RefZ$:Z$"*"įP8S,ZX,ZY,Z$:Z$:P8S,ZX8,ZY,Z$:ZYZY1:970Main(TCLR,0,0,79,23:800:GAR,0,CR:ZL110:R$(ZL)DB$(ZL)::7Xsave recCbMODıZl800:CRįDAR,0,CRvZL110:TRIM,R$(ZL):DB$(ZL)R$(ZL)::ANR,0,CR:MOD0:28300:save F$MC(0)1ı850:T1:WP1:ZD2:33000:SVA,"F$(10).BIN",F$: Open DB *our disk drive and diskette.":30000:59415:2000?PòPROGRAMSUà "Establish or Maintain Records",MAINTENANCE,"This program allows you to set up new data diskettes and work with","student records. Information for new students may be entered, record @{ @R> x?= x= `^`>rs, and Lists data diskette","does not contain a set of students for exchange.",,"Please insert a data diskette with students on it.",* ttings","Set Printer Speed",2,"High speed","Low speed"K":Defaults screeng";"","Return Defaults",0";Reg interface card";"Change Settings","Set Card Slot",0,""","slots 1 and 2 for a recognizable card","each time the diskette is started up."f!:Change settings!:"Printer Support","Change Settings",2,"An Apple Communications Card","Any other type of printer interface card"!:Com card set up6":"Change Senter Support",4,"Check current printer settings","Change printer settings","Return printer settings to original state (slot search)","Test printer settings" :Default textQ!:"This diskette is currently set to the","default setting, which is to search,RM,Y:L(S$):HP,LM7:Y1:K1LO#A((S$,K,1)):PPCTK,A:A32AA64:\#(A);:o#K:Q$:CTCTLu#: DATA AREA:________________________________________________________________________________:Menu data :"Main Menu","PriL79120.<#K1L6:(S$,K,5)"CHR$("9110PF#JK6L:(S$,J,1)")"9100rP#X$(S$,K5,JK5):X((X$))Z#X0X127X0d#L$"":K1L$(S$,K1)n#R$"":LJR$(S$,LJ)x#S$L$(X)R$#LKLJ:9110#J#K"#TCLR,LM7,YL:SLI,Z$,Z$,0,C$,1,A:C$(A):Y1:HP,LM7L:A13įLU,S$:X^(A8L0)ĺC$Q$;:8020fhA88080zrA34L198020|A32AA64:(A);::S$S$C$:8020C$" "C$;:L1S$"":8020S$(S$,L1):8020(#SCAN FOR CHR$2#L(S$):CT1:PPCT,0:PPCT1,255:PPCT2,255<L3CU0:7040E$"Change Settings":28250:23:HP,0:"Are the above commands correct? ";:DE1:30100:28400:L1(CUEC27)L1:@STRING INPUTJS$"":Z$"-"(1)(122)<TY1:L(S$):HP,LM7er.":P8S,LM,TM1,"Type an extra 'Return' when you have finished."yL111:L30:CT1:TCLR,LM,TM3,RM,BM:E$"":28250L215:YTML22:P8S,LM,Y,"PRINT "Q$:8000S$""įTCLR,LM,Y,RM,BM:L25S$""İ9000:L31:CTCT1:PPCT,13(L2:CT:RL1:PP,128(Z$):T$"Special Commands":20000:28250:TM5:HP,LM:"Does your printer require any special commands? ";:DE0:30100:EC27ıCU0ĹPP2,0:PP3,255:PP4,255:B28100:P8S,LM,TM,"Please type in the special commands for your printbREST,15120:LE2:21000:P8S,LM,TM1,"The printer interface card may be in any slot (1-7).":P8S,LM,TM2,"(Most commonly 1 or 2)"lTM6:HP,LM:"Which slot is your interface card in? ";:Z$"":SLI,"-17",(27)(13),1,Z$,EC:EC27ıv((Z$))7020:EC276095*RL1:PP2,128(MC(LE)1)OT$"Set Card Slot":20000:28250TM5:HP,LM:"Which slot is the communications card in? ";:Z$"":SLI,"-17",(27)(13),1,Z$,EC:((Z$)(EC27))6080EC27ĹPP,(Z$)XNOT A COMM CARD:WP1:33000:28000:" ":D$;"BLOADPRINTER COMMANDS.BIN,A"PP:RL0:VpSET COMM CARD zREST,15080:LE2:21000:P8S,LM8(ME$(0)),TM3,"(usually 30 cps)":P8S,LM8(ME$(1)),TM5,"(usually 10 cps)":P8S,LM,TM,"Which printing speed do you want?":220008250:20000:ZL3NF:ME$(ZL3)F$(ZL):P8S,LM5,TMZL3,F$(ZL)::P # fields Z$(10NF)" field"("s",1,NF9)" can be added":TCLR,58,22,79,22:NF10Z$"No"(Z$,2) P8S,80(Z$),22,Z$: get rec MOD0:CR0įRAV,R$:R$(10):)T$:J16:6890::G#B$" ":I1W:(B$DT$(I)BL$,DP);:B$"|"::#REST,15630:I15:DY$:H1BH:B$"":J1W:Z$B$BL$:H1Z$B$UL$#H2Z$B$DY$BL$#(Z$,DP);:B$"|":::600:EXHBH:I5:SNS #::FEED::28700:Z$SS$:14500:"/-09",(13)(27),10,DT$,EC:EC279010;Z#6600:BD9040Yd#OMM:ODD:13000:EC27ı#28500:28600:S1NS:Z$"Planning Calendar":S(40))Z$::GAR,0,SEL%(S):Z$DB$(2)" "DB$(1):S(40))Z$:::"Week of:":#MOM:DOD1:I14:6890:DT$(I)D27ıwF#WMC(LE):DP(79W):P$"Number of weeks":500:P8S,LM,TM,"Enter the date of the first Monday for the heading."(P#P8S,LM,TM2,"Use the format - Month/Day/Year (3/24/85 is March 24, 1985)":HP,LM10:TM5:P8S,LM10,TM4," ":DT$"":SLI,Oj"S$(1)DB$(2)" "DB$(1):S$(2)" "DB$(CF%(1)):S$(3)" "DB$(CF%(2)):8500:\(#PlanCal2#REST,15570:E$:I03:ME$(I)::T$(34)"Planning Calendar"(34):500:P8S,LM,TM,"How many weeks do you want to outline?":ZE0:ZN4:Z4:MC(LE)1:22010:EC$:14500:CU18010:RAV,T$:RAV,W%:RAV,S$:RAV,CF%:E4!?Lineq>!J13:(S$(J)BL$,W%(J)1)" |";:::!Underline!W0:J13:WWW%(J)1:(UL$,W%(J))"|";::(UL$,79W):!Blanks"J13:S$(J)(BL$,W%(J))::8500:`"Extract))215(CF%(I1)0)::W%(1)276w13000:EC278095|28600:S(40))Z$::(UL$,79):8700:S$(1)SN$:S$(2)" "T$(1):S$(3)" "T$(2):8500:8600:I1NS:GAR,0,SEL%(I):8700:8800:8600:FEED,8,Z:ZĺUL$600:EXINSFEED:28700:Z$SST$(I)"":MC(LE)1T$(I)ME$(MC(LE)1):CF%(I)MC(LE)1Hm:EC278095r28100:E$T$:T$"Enter Title":28250:HP,0:23:"Enter a title for this list: ";:Z$"":SLI,"- ",(13)(27),20,Z$,EC:18500:EC278020u28000:10000:I23:W%(I)FW%(CF%(I1"waiting for a response. A message is displayed in the" H˃ "upper, right corner of the screen which tells you what","will happen when you press Escape.Des where you will return.""y be expanded or exchanged by","transferring selected records to other data diskettes."8 >˃ "The Escape Key will allow you to end your current","activity in a program. If you wish to do this, press","the Escape (Esc) Key once whenever the computer is",rogram.","","A data diskette will allow you to enter records for 150 students.","You can determine the kind of information contained in the records."W9˃ "This information is used when creating your specialized labels,","letters, and lists. Records ma will allow you to create your own check","lists, student calendars, name tags, book or equipment labels,","and personalized letters or reports. You will find many uses for"4˃"the customized labels, letters, and lists produced with the aid of","this p)à "Printer Support","PRINTER SUPPORT"TÃ"Diskette Support","DISKETTE SUPPORT"`ÃEnd,""o8DzLINE DATABǃ"________________________________________________________________________________" ˲REFERENCE TEXT*˃ "Labels, Letters, and Listss program, you will be able to create a variety of lists,","such as class lists, planning calendars, attendance sheets, check lists" zà "and others. You may also print a list containing student record","information.",""Ã"General Information",""rip notices, conference notices, open house invitations and"pà "progress notes. These letters may be personalized by having each","student's name or other record information automatically inserted.",""xà "Select and Print Lists",LISTS,"Using thiormation has been stored on the data diskette, you","may choose to create and print labels for your special needs.","","",""<nà "Compose and Print Letters",LETTERS,"You may use this program to write letters, such as fall orientation","letters, field ts"Và "for former students may be erased, and records for current students may be","changed. This program also allows you to transfer selected student","records to another data diskette."|Zà "Prepare and Print Labels",LABELS,"Once the student infF$(I):ZNZN(F$(I)"")::ME$(0)"Blank column"^TE$"Sort Students":T$"Select Fields":500^28100:18500:I12:P8S,LM25,TM1,"Select the field to":P8S,LM25,TM2,"print in column #"(I1):Z1:ZE0:MC(LE)1:22010:EC27I2:80456hCF%(I)0:(Z$,78)#vZ$"Student Names":400jI1NS:GAR,0,SEL%(I):Z$DB$(2)" "DB$(1):400:FEED,8,Z:ZĺUL$|600:EXINS:CDB,0:FEED::28700:Z$SS$:14500:CU17010@Open formatEW%(3),S$(3),CF%(3),T$(2)/JZN1:I310:ME$(I2);::J12:6890::::L$:EDD1:DML%(M)D1:MM1(M(M12))]DT$(M)"/"(D):pBlank headingZ$SN$:L1:400:XChecklistb13000:EC27ıl28500:28600:L2:Z$LI$:S(40))Z$::Z$F$(0):S(40))Z$:::REST,15500:Z$:ST,15630:I15:Z$:(Z$,3)"."B$;::::L$:DDates in headingREST,15690:M$,L$:OMM:ODD:DD1:28)B$;:I1147:J15:6890:((M)"/ ",4)B$;::J12:6890:::DOD1:MOM:SN$10)B$;:I1147:J15:6890:(" "(D)" ",4)B$J3)(M1)(M12)(D1)(DML%(M))(Y1984)(Y1999)BD1@"YY1900:LP1((Y4(Y4)0)(Y100(Y100)0)(Y400(Y400)0)):REST,15640:I1LP:K112:ML%(K):::,Header for days.6REST,15690:M$,L$:28)M$:SN$10)B$;:II12:RE00:EXINS9:FEED::28700:Z$SS$:14500:CU16010?PDate verifyjJ1:I13:Z$(I)"":I1(DT$):A$(DT$,I,1):A$"/"Z$(J)Z$(J)A$:6640JJ1:BD0:M(Z$(1)):M12BD1::D(Z$(2)):Y((" "Z$(3),2)):6690:(276020DZ$LI$:Y0Z$Z$" - Beginning "(M)"/"(D)"/"(Y)28500:28600:S(40))Z$::Z$F$(0):S(40))Z$:::REST,15500:Z$:(Z$,78):MC(LE)6700,6800,6900:L1I1NS:GAR,0,SEL%(I):Z$DB$(2)" "DB$(1):400:FEED,8,Z:ZĺUL$ 6rst Monday for the heading."P8S,LM,TM2,"Use the format - Month/Day/Year (3/24/85 is March 24, 1985)":HP,LM10:TM5:P8S,LM10,TM4," ":DT$"":SLI,"/-09",(13)(27),10,DT$,EC:EC2760206600:BD6023EC27602013000:ECance SheetzMC(LE)1:B$"|"Y0:REST,15560:E$:T$(34)LI$(34):ZN02:ME$(ZN)::500:P8S,LM,TM,"Enter column headings:":ZN3:Z4:ZE0:22010:EC27ıMC(LE)26030P$"Enter column headings":500:P8S,LM,TM,"Enter the date of the fiS((NS1)2):I1S:JSISGAR,0,SEL%(I):5100:JNSįGAR,0,SEL%(J):5100b:NS60ĺnFEED,8600:EXIS:FEED:28700:Z$SS$:14500:CU15010PRINT THE NAMEH$DB$(1)", "DB$(2)BL$:10)(H$,29);: pAttend'LI5000,6000,7000,9000,8000,12000@#(EC27)(LI6)1100](EC27İ20100:LE2:1200}2TCLR,0,2,79,20:TB1:1000Class ListZ$"Sort Students":13000:EC27ı28500:2860034)"Student List":40(F$(0))2);F$(0):: a list format to print.":MC(LE)LI:22000:LIMC(LE):LI$ME$(LI1)"":EC27TI1:31000d LSelect V15350:ZE$"Lists":LE0:15800:LODED0:EC27İ20100:1000 `REST,15500:UL$,BL$:LI61300 Sort 15000:EC27İ20100:LE0:1100Print" "S$:L$:! Chk level 3 take: LE3:28250:20000:J XChk escapew bZA(16384):EX0:ZA155Ĺ16368,0:EX1} l Lists menu 28300:18200:REST,15500:UL$,BL$:P8S,0,1,UL$:P8S,0,21,UL$X REST,15520:LE0:21000:P8S,LM,TM1,"SelectBIN":LVA,"F$(10).BIN":LVA,"FP$(10:6).BIN":(905)įRAV,SEL%:SEL%(150):SVA,"SEL%(150).BIN",SEL%:905,0 28100:LI1:1000 Print grid REST,15670(L1)20:S$,L$:28(L2)5)S$:(Z$" ",27(L2)5):PN$"Lists"# S(X)X(Z$)21 TM4:LM3:RM76:BM20:REST,140:QT$(2):QT$(0),QT$(1),QT$(2),TT$(0):ZS704:SET,1:RFL,"MECC$$DISK"ZS:33200:QN$ZN$: "program","data","backup","Lists" 33100:T1:ZD2:33000i 28500:CDB,0:LVA,"SEL%(150).03:W159692:W263000:RS0:LODED0:TB1:SF%(0)2:SF%(1)0:SF%(2)21:SF%(3)1:SF%(4)22:SF%(5)24:SF%(6)1:TI0 xBH10:E$(13)(27):SS$"Sort Students":I$"Type number or use arrows, then press Return.":SN$" Student Names":YN$(0)"No":YN$(1)"Yes"toring the format "FI$".":SVA,FI$("0"(LW),2)("0"(LH),2)("0"(LA),2)".LFMT",LA%:ED0o R15020: \ DISPLAY FILE NAMES aLELE1:E$T$:T$"Choose Format":20000:28250:T1:ZD2:28000:33000F!pFCN,".LFMT",FI$,Z:Z0İ28100:P8S,LM2,ormats (20)":P8S,LM1,TM6,"has been saved.":30000:EC274690:28100:4655>P8S,LM1,TM7,"-->":23:HP,0:"Type in a new name for the format: ";:Z$FI$:15300:TCLR,0,22,79,22:FI$Z$:EC274640C4690b HZD2:T1:33000:28100:P8S,LM,TM5,"S)"Save this format with a new name"r4P8S,0,23,I$:MENU,TM$,2,LM,TM5,(27)(13),1,1,ZN,EC:28400:EC2746909ZN1İ28000:ZD2:T1:33000:TM4::(4)"DELETE"FI$(ZF)".LFMT"D2$:4680M<Z20İ28100:P8S,LM1,TM4,"The maximum number of label fCUEC27İ28400:4607&ED0:4690F FCN,".LFMT",FI$,Z:Z4680y%ZF1:L0Z1:FI$(FI$(L),(FI$(L))6)ZFL*:ZF14680$/28100:P8S,LM,TM3,"That format is already on this diskette.":TM$(0)"Let the new format replace the old":TM$(11:ZD2:330002REST,SL:Z$,Z:L0Z:ME$(L):28100:P8S,LM1,TM3,Z$:P8S,0,23,I$:MENU,ME$,2,LM,TM5,(27)(13),1,1,ZN,EC:28400:EC274690 P8S,LM1,TM32ZN,"-->":ZN14640ZN2Ģ23:HP,0:"Do you want to do this? ";:ZC0:30100:ZYZYLH:P8S,ZX1,L,"|":P8S,ZXLW,L,"|":;CX0:CY0:K SAVE FILEEC0:TCLR,0,22,50,23:EDLWLALHZ$T$:T$E$:E$Z$:28250:LM20:RM60:TM4:BM13:15200:300:30010:4690Z$T$:T$E$:E$Z$:28250:LM20:RM60:TM4:BM13:15200T1:CXLWCX0:CYCY1:CYLHCY0UlT$E$:E$"Save "(34)FI$(34):28250:4420|vTCLR,0,22,79,23:4600:EC274405 DRAW LABEL BORDERREST,15500:Z$:ZY(BMTMLH)2TM1:ZXLM1+P8S,ZX,ZY1,(Z$,LW):P8S,ZX,ZYLH,(Z$,LW):L9,23:P8S,0,23,I$:MENU,FS$,NF,LM50,TM4,(27)(13),0,Z,ZN,EC:28400:TCLR,LM50,TM2,RM,BM]EC27T$E$:E$"Save "(34)FI$(34):28250:4420^ZN10CXLW2CX0:CYCY1:CYLHCY0_ZN10LA%(CX,CY)1:CXCX1#bLA%(CX,CY)ZN:ZZN:CXCXrl-R for reference screen":EDIT,LA%,ZX,ZY,ZXLW1,ZYLH1,CX,CY,(27)(7)(18),CX,CY,ECoNED1:EC274470SEC18İ600:500:4405]XE$T$:T$"Insert Information":28250:TCLR,LM44,TM,RM,BM:P8S,LM50,TM2,"Which field do you want?":TCLR,0,23,7274350"LAZN:CU14400,4310I4600:EC27įTCLR,0,2,79,20:4310O`0 SET LAYOUT5T$"Set Layout":E$"Save "(34)FI$(34):28250:TCLR,0,2,79,20:4500:Z1ZD400:P8S,0,22,"Enter text":P8S,0,23,"Ctrl-G to insert information, Ctds>Gt; Exchange Information,Send Information,1,Grade ManagerGy; "To use this option, you will need a blank or recycled","diskette (any information on this diskette will be erased),","and the exchange diskette created with ."|Hz; "A new data disket","match the pattern."tJG~JSelect Students,Set Up/Change SubsetoJ Select Students,Select Field NameJSelect Field Name,Select Field OptionJSelect Field OptionJInformation,All students selecteddents"  AVJ"Select Students","Examine Selection"G`JjJ "To select a subset of students from the Labels, Letters,","and Lists file, you will need to set up a search pattern.","The computer will then be able to search for records thainuing.":30000:28100G2GTCLR,0,2,79,20:IDHTCLR,0,22,79,23:O8JBJ"","Select Students",4,"Use all students and go on","Use current subset of students and go on","Examine the current subset of students","Set up or change the subset of stu[( PROGRAM: Lists2PROGRAMMER: K. M. KeoghMCOPYRIGHT: MECC, 1985k(LAST UPDATE:85/3/12 KMK-APP,"SEARCH.LIB":APP,"COMMON.LIB"230208:(175)(176)256<ML%(12),SF%(6),ZC(4),YN$(1)F32000dINITn nZC(0)1:VP37:HP14                 (LH)*15400:EDED(ZZN):EC274350LHZN:TM9:HP,LM:ZLA:"How many labels are there across a page? ";:ZB1:ZT5:ZD$"":LA0ZD$(LA)15400:EDED(ZZN):EC27435023:HP,0:"Do you want to make any changes? ";:30100:28400:EC79,20:TM5:HP,LM:ZLW:"What is the label width in characters (10-40)? ";:ZB10:ZT40:ZD$"":LW0ZD$(LW)15400:EDED(ZZN):EC274350LWZN:TM7:HP,LM:ZLH:"What is the label height in characters (2-12)? ";:ZB2:ZT12:ZD$"":LH0ZD$ number of label formats (20) has been saved.":30000:TM6:HP,LM2:"What would you like to call this format? ";:Z$"":15300:FI$Z$EC27ıT$"Set Dimensions":E$"Save "(34)FI$(34):500:28250n15020:TCLR,50,22,79,23:TCLR,0,2,LR,0,2,79,20:15100:28350:41105EDIT DIMENSIONS28400:ED0:LW0:LH0:LA0:RAV,LA%:LA%(39,11):28100:15000:RFM,LE,LM,TM,RM,BM:M13T$"Labels":4900:28400:43097T1:ZD2:33000:28100:FCN,".LFMT",FI$,Z:Z20įP8S,LM2,TM5,"The maximum0:DL15540:4100 5EXAMINE/EDIT LABEL FORMATHSL15600:4300m15100:EC274090:LELE1:4065sCREATE/EDIT/REVIEW MENU EC1:28100:ZC0REST,DL:LE1:21000:22000:TB1:EC27ıE$T$:MC(LE)4300,4800 "ECMC(1):TCSE%(0)NPDBRP1502140ARAV,DA$:CDB,0:28700:700:LE0:ZFORMAT FOR PRINTING L0LH1:L10LA1:MLL,DA$(0,L1),LA%(0,L),LW,E$ E$" ";:L1::L:: CREATE FORMAT LE1:E$"Labels":T$"Create Label Format":20000 SL155800:TM7[W10::28600:CDB,0:ODB,0,"CLASS.BIN",DB$:RP1:NL0:NP0:Z(0):DA$(10,LA1)\SE%(RP)įGAR,0,RP:L1NF:DA$(L,NL)DB$(L)::NLNL1:NPNP1fRPRP1:RP150NPDBNPSE%(0)LANL:LA02180pLANLİ2300:NL0:800:EX2180zNPH28100:P8S,LM,(TMBM)2,"Please prepare your printer.":30000:EC27İ20100:LELE2:T$"Choose Format":2050RE$"Stop Printing":28250:28100:P8S,LM,((TMBM)2)1,"Now printing the labels.":P8S,LM,((TMBM)2)1,"Use Escape to stop printing.":150:1010 LPRINT LABELS.CDB,0:LE0MT$"Labels":4700:EC27ıc4945:Z$FI$:50028500:28100:ZE$T$:RAV,FI$:15800:FI$(20):EC27İ20100:LELE1:20104 PRINT LABELS>E$"Select Students":T$"Print":LELE1:20000:28250p8,O:EX1 4!  MAIN PROGRAM* EC1 28300:18200:REST,15500:Z$:P8S,0,1,Z$:P8S,0,21,Z$:CDB,0:LE0:REST,15520:21000:22000:EC2731100 M1MC(LE):MC(LE)2000,3000,4000,5000:LE0İ20100:LELE1:1040 TB1ECM1:TCLR,0,0,79,00:LVA,"RS$(13).BIN",RS$:TCLR,0,2,79,20:L013:P8S,LM,TML,RS$(L)::RAV,RS$:SET,2l ME$(20):30000:r  TCLR,0,2,79,20:REST,15500:Z$:P8S,0,1,Z$:P8S,0,21,Z$:500:28300:18200:  Check for escape *ZA(16384):EX0:ZA155Ĺ1636 ":P8S,LM,TM6,"Labels across the page: "(LA):LML; [  CLEAR AND DISPLAY FORMAT TCLR,0,0,24,0:P8S,0,0,"Format: "FI$  X REFERENCE SCREENV b28400:E$T$:T$"Reference Screen":28250:TCLR,0,2,79,20:RAV,ME$:SET,1:T0:ZD1:3300ot all of the dimensions were set in"L JP8S,LM1,TM6,(34)FI$(34)"."R Tl  DISPLAY DIMENSIONS LLM:LM52:P8S,LM5,TM,"Current label dimensions set.":P8S,LM,TM2,"Width: "(LW)" characters. "5 P8S,LM,TM4,"Height: "(LH)" lines.)"No":YN$(1)"Yes":D$"CLOSE":T$"Labels":PN$T$ "program","data","backup","Type number or use arrows, then press Return." 1000 , SAVE MSG 6(M13)(ED)įP8S,LM1,TM4,"Existing dimensions were not changed in":330% @P8S,LM1,TM4,"NG' PROGRAM:LABELS5PROGRAMMER:S. P. MCCARRONOCOPYRIGHT:MECC, 1984m(LAST UPDATE:84/12/26 SPM-APP,"SEARCH.LIB":APP,"COMMON.LIB":30208:(175)(176)256d32000n15450:D$"":S(S)S(Z$)21:LE(S)W11100(S1)1 xYN$(0                      00:OKCU(EC27)+t' Initialize DisketteA~'ZEOK:OK10190'28000:SET,1:SNOPRO:1::ZE0:ZEĺD$"BSAVEJUNK,A0,L1"D1$'ZE4İ28100:P8S,LM,TM4,"Please remove the write-protect tab":P8S,LM,TM6,"from this diskette.":30000:10100p':D0+8'SET,1:ZE0:ZEįRFL,"MECC$$DISK"ZSVB'28100:ZYTM3:P8S,LM,ZY2,"WARNING:"V'P8S,LM3,ZY,"Any information on this diskette will":P8S,LM3,ZY1,"be erased when you copy your data diskette.":ZY4:HP,LM:"Do you want to do this? ";:DE0:301d.":30000E~953,PS:954,PD:955,PV:956,DS:957,DD:958,DV:33100Z20100:LELE1:x' Diskette check for init'1::OK0:SET,1:ZS654:ZU1:CPRO,ZP:ZPįCPRO,ZP:ZPOK1:10100$'SPRO,ZP:ZE0:ZEĺD$"VERIFYLOGO"D1$.'ZE8OK1:1010e...":DC1(DC3CC1)11000:EC274990YSET,1:ZU1:ZE0:ZEįDW,IS,0Q1,1516384ZE032040:ZU1:ZE0:ZEįDW,Q2,0Q2,1549152 ZU0:ZE032040:IS:28100:P8S,LM,(TMBM)2,"The copy of your data diskette":P8S,LM,(TMBM)21,"is finisheEC274990ErSET,2:Q1Q(IS2):ZU1:ZE0:ZEįDR,IS,0Q1,1516384|ZE032040:Q2Q(IS3):ZU1:ZE0:ZEįDR,Q2,0Q2,1549152*ZE032040:ZD1:T2:WP1:DC1(DC3CC1)11000:EC274990:28100:P8S,LM,(TMBM)2,"Writing to destination diskettlds to","transfer.","*" fer.","*"D","Source location"> < "Source location","Backup location"T 6"Slot:","Drive:","Volume:"[ 6"-17",1,"-12",1,"-09",3 6REST,14010:TCLR,LM,ZV,RM,ZV4:ZL02:Z$:P8S,LM3,ZVZL,Z$:P8S,LM18,ZVZL,"["(" "((9533NZL)),3)"]":>!6REST,14020:ZL02:ZV1ZL:HP,LM12::EC2711090;+11000'>+WP11090]C+DR,17,017,016128:ZE0:ZEįDW,17,017,016128H+WP(WP1):ZE4İ28100:P8S,LM,(TMBM)2,"Please remove the write-protect tab":P8S,LM,(TMBM)21,"from your "QT$(T)" diskette.":WP2:30000:11000 R+ZU0:28)ID11070{*+28100:(TMBM)2:HP,LM:"Please insert your "QT$(T)" diskette":HP,LM:"for "QN$;:DC2ĺ" in drive "ZD;4+DC3ĺ:HP,LM:"in the drive located at"::HP,LM:" Slot: "(9503ZD)::HP,LM:" Drive: "(9513ZD); 9+".":30000k drive door is shut.":30000:EC27101009'ZE32040K'OKZE:ZU0:c*Copy's Disk Verify+ZU1:SET,ZD:ZS654:ZN$"":CPRO,ZP:ZPįCPRO,ZP +SPRO,ZP(ZP):ZE0:ZT1:ZEįDR,34,1534,1516128+(T2)(16128)IB11070  +(T1)(161$"CLOSE":28000:P8S,LM,(TMBM)22,"Now formatting diskette.":ZE0:ZEĺD$"INITHELLO"D1$:ZU0:D$"DELETEHELLO"'ZE810170+'28100:P8S,LM,(TMBM)2,"Unable to create a data diskette from this diskette.":P8S,LM,(TMBM)21,"Be sure that your dis:P8S,0,1,Z$:P8S,0,21,Z$:ZL221:P8S,48,ZL,"|":n ZL1NF:Z$(ZL)". "F$(ZL):P8S,3(ZL9),6ZL,Z$: LM49:RM79:TM3:BM19: ^save presets hMC(0)1ı r850:T1:WP1:ZD2:33000:SVA,"FP$(10:6).BIN",FP$: FN$-> FC & ME$B 2rrows, then press Return." "Move cursor past last field to enter next record.","Press Escape when you finish updating records.",1403,37,"Maintenance" TB1:TM4:LM3:RM76:BM20:33100 1000 Work area3 REST,15000:Z$:TCLR,0,2,79,20QC$(L):j "program","a ","data","a ","exchange","an ","spelling","a ","results","a ","word lists","a " RAWFL,"HELLO BOOT"MD256 D$(13)(4):REST,140:YN$(1),IN$(1):YN$(0),YN$(1),I$,IN$(0),IN$(1),HP,VP,PN$:"No","Yes","Type number or use a00r }LVA,"F$(10) DEFAULT.BIN",DF$:REST,125:MR:F$(10),FP$(10,6),ME$(10),MC(4),R$(10),SEL%(MR):SL$"- ~": 150 ZS704:MD28416:W159692:W263000:RFL,"MECC$$DISK"ZS:RFL,"MECC$$DISK"MD:MD,1:33200:QN$ZN$:REST,132:QT$(5),QC$(5):L05:QT$(L),B Product:Class List2Program:MAINTENANCEPProgrammer:Bret Indreleen(Copyright (c) 1985, MECC2Last Update:85/03/22 BEIdINITi28416:APP,"COMMON.LIB":(175)(176)256 nS(Z)Z(Z$)21:A(Z)(TMBM)2Z:QU$(34):320                 \] ߩL@I AyBJyKh{ ց`CMDRASHFSVTTATPURFRNSNOPRSPRSLSRSMENMENLUFPRCFPGFPMWFRMWMWMMWLEMWBUMWTMWFMMWPULMWADMWODMWCCMOVSWACNEDIMLRJ|u|pzy|t׊݊8G-`Đ(sY|7ݗX6К&fWU Cn0|| @ @c` Iv &Lց`L 䎱 掲`g{ yg{` mͳ   ފ {`SEPINIPOFPACFEETCLTRICPRDFRFFCFCFKLVGSAPP8RARESODANDAGACDSR7h6 { { {`ɍɌ yͳ y` {`Hb{i{)hHb{ɍ A{h`|| @߅$yyyy,g{5S,g{Nj{ k{9l{I7k{Dzl{Ezm{߭ i{Ay{yy`c{`c{6c{L { { {6H7Hy6y7,y0 {ɍ Lz$Hy8$y$ { {  @ {$yhi {$y6yhi,,`8,nqyhhryhsyOyȱPy,qy0mryrysyH,( ,qy0hsyHryHH,,(`?<>?>,>$f<<`Sc{ xh{$H)i{h0,j{0RLqzyy6z7  yzxw 5x`qxrx 5x` xxxxx{x`pxxxLlx qxpx  {x`B ty?F<?F<>x >x?Ȑ۩`?)8鍸ζ`H88HHа ,,ED%DHDDhE8 `D>ʱD>`$8www(w vLw>x?x@xAxB}xC~xDyxxEzxxwww Duxvxwxqxrxw 5x B{x` 8`wxxxqxrxuxvxyxv3L5vvv5v,, ~,`ɯLv{ 8ɀ   Lޤȱ 0:,јe湥 }iv}i xv , ,`vvL ֩PyQ AL<=@I@8>@>8 @<>0<eL`4 @ @ߠ`ߩȱ> ߩe>>? i< @@/Aȱ? @L I @@>  p߰@@@ŝe>>?LH ލkݹލlh `Hޅޅވhц$8`mޅmޅ,0ސN8 ,0 ީ]Lݩީ.NO0ޭ,) ,T`La sޭmޅmޅ d /Lsޭޮ mޅmޅ ȭޑ  @ @ @{ @ޥ^ޥ_8 ޭ8ލޭ8ލ $ 5 @ެ { @ެ { @ެ {`ޅޅޅޅު ȱ ) i0ɺ,  e戥ސ`,   /ސ  pݐ]N`  @ީ ܠ( $. 0#:e @ @먩L{쥜ȱeeȱ ee` ތ @ @ @ @ @ @ @ @ @ @ @ D# D`-#D.#ED`  ### <= <ȭ<ȭ<ȭ#<ȭ#<><ȥ?< <<= H <=#I<#<##`q" ""ȱ h!"8ȱ ">? "6p"5#>6#? "!p ""<"=`""8쭇"`+#*#)#@A %#  # `@ i @ ȱ ;#`,"`, ,`<=ʱD>` <=5#?6# "!)">? "PLj"" 8` "L L L x@8MɭɊ=Le 2 `,0 (!U XT`I`I0, `n! J! { ^_ ( { R !,`L8n! <!=!< =Ѝ ,   S$(I,J)Z$::650:FS1000NBI:IRN:M1Bl :ZU0:510:MNBRNHv e FILE INPUT CHK END DATAy ZE0:ZEĄZ$: ZE5ZU0:32040 28100:T$"End of data":E$M$:28250:REST,10000:400:30000:9000 PASCAL BFR 550:MRSNB1# K1:D$"OPENEXCHANGE.SEQ":D$"READEXCHANGE.SEQ":3200[N 3200:NF(Z$):NF10NF1OK0:X I1NF:3200:F$(I)Z$::3200:RN(Z$):RNMRRN1OK0:] MāI1NB:J1NF:Z$:::RSNB1(b RAV,DS$:DS$(150,10):FS(0):M0:IRSRN:J1NF:3200:D data diskette"QU$u-HP,LM:"in the "QU$"Establish or Maintain Records"QU$" program.":E$"Main Menu":30000:31100`36((ZSZ1)0)::ZT(ZS):#2T0T2ıaZD$(10):FCN,".BIN",ZD$,Z:RAV,ZD$:Z5ı(28100:ZY(BMTM)2(LE3):TMZY:HP,LM:"This diskette is not set up for Labels, Letters, and Lists."::HP,LM:"Select "QU$"Getting started: set up newSlot: "(ZL):HP,LM:" Drive: "(ZL1);6"."O30000:EC2733007a$54915:31100gLVD1$",S"((953))",D"((954))",V"((955)):D2$",S"((956))",D"((957))",V"((958)):ZN$"":Z136:ZN$ZN$((ZSZ)):ZZ diskette must match the volume":HP,LM:"number as set in diskette support.":33055ZV(ZE7):TMZY:HP,LM:"Please insert your "QT$(T)" diskette":HP,LM:"for "QN$;:ZC2ĺ" in drive "ZD;-ZC3ĺ:HP,LM:"in the drive located at"::HP,LM:" mation for up to 150","student records. A new data diskette will be formatted","in this program.",*EB;,"The Escape (Esc) Key will allow you to end your","current activity in a program. The escape message in the","upper right-hand corner indicates the of cursor"," --->","Move cursor right"," <---","Move cursor left",*`C;Ref - SLI field entry C$;"Ctrl-P","Work with preset",,"entries",*C.;Set up info screendD8;"The programs in Labels, Letters, and Lists require a","data diskette to store inforove to last record","Ctrl-F","Find record","Ctrl-X","Delete record","Return","Edit record",*qB;Ref - SLI entryDC;"Ctrl-X","Delete all characters",,"in entry","Ctrl-Y","Delete all characters",,"to right of cursor","Delete","Delete character to",,"left` @g @R<= @ @g @R@A @ @g @R> x?= x= >` @{ @R<= @ @{ @R@A @ @{ @R> x?= x= 0`^`A@R<= @ @g @R@A @ @g @R> x?= x= ?` @{ @R<= @ @{ @R@A @ Lk L @ @{ @BC ^^<_=>?B@CAeBeC L  !`!` @g @RePeQ @ @g @RePeQ` @ޥ8 { @ޥ8 {`A=?@RP8m逍퀥Qmꀍ逍뀅<ꀍ쀅=,, <<=<퀥=` @{ @媭,<-=^8@ <ȑ<^_` @ <= ` @ {)(0n @߅ @ @ @{ @ @nBCeen two inserted fields of information. The programwill automatically space the information.Use the left and right arrow keys to move through the text.Use DELETE to erase the character to the left of the cursor.edtype Control-G. The field names will be displayed. Select thefield of information desired. The number of that field will beplaced on the label. When the label is printed, the recordinformation will be inserted at that place. NOTE: Place aspace betw~^R1?__;_?9`?l_?`;`;1a>la)a;a<bThe label outline seen in this program is only a representationof the actual label.Move the cursor to the desired location, type in any neededtext. Whenever information from the student record is requir  z#    Ӯ̠ ׮̠̮Π " Ү̠ Ԯ̠Šנ Ӡ) Ҡ!ŠԠ%"̮ʠӤΠϮʠ̮ʠ  ҠӮΠՠ Ӡ*Ȯ Ϡ ϠԠ ή ӭӭӠäˠӠ'ƤԮΠŠDϠҠԠ`BC`PbcTNccUb,T` YZ` ҥ0Щ1? ωT% "` {ݥ<= 娈^ Ș<` BL{ @,#$!(L @ @ @{ @" (ҍ,#,\0n\3UL+ЩT`ꥆ |Ȏ*D |Ȏ!?`J`((((PPPP?8囑80iԐե0>J<@*I> 1T? ><ѥ0>@<>йTբ L L m LUz_j`S縎X]` ] ]ȌUKN O 8冪 `,-/0T3n\⑆ v vƌLxqxrx 5xL`@  ,./0 <= <ȭ<ȭ<ȭ.<ȭ0<><ȥ?< <H<= H <=/ I<.<0/`7! P$ MPƊ护ȑĊ v`LŊ8H)hJJJiɨȱčچۆцƍ v` P`Hsxtxh ,wL`Hsxtxxxh .wLԥ0>@=?@3<>)=eA=?eA?A@ <><>=?`ꅊeDŽ d2 @@`)I) @`ee0iԐե0>J<@*IO B>P TԤ ><إFD? ݃PL%F; 8`D E gDhEȱ> GoD EDȱ xE8ȱ G>? ݃4p >? ݃!p A@ڰA`ԁՁ k` 3<ӁӁ mӁXajۀ䀹 "%Ӂɩ` ZՁԁ ZL^< ՁϬӁȽ` <=%>>*@%@@ ΀E@LG`ɪɭ`8`?@<=>?A? ` LK`jj݌$8`ꩨ ݨ`p,p8`dd . mm`0d dddȌ.( 0 0` (P`BB3~          (Labels, Letters, and Lists0000:28250S28400:P8S,0,23,"Press Escape when done.":28100:4700:EC274060P8S,33,19,"______":TCLR,LM,TM,RM,BM:P8S,LM,TM5,"You are about to PERMANENTLY delete the letter":P8S,LM,TM6,FI$" from your data diskette."928400:23:HP,0:"31309b 9000:MWADD,IP,TL,"<"FS$(ZN1)">",IP,TL:3130G SAVE IT? 9100:TCLR,0,22,79,23:4600:EC27T$E$:E$"Save "(34)FI$(34):28250:28400:15020:TCLR,LM,TM1,RM,BM:3130  DELETE A LETTER LE1:E$"Letters":T$"Delete":20:3130jN 9100:LM40:RMLM30:TMTM1:BMBM1:15200:ZP$E$:E$T$:T$"Choose Field":28250:T$E$:E$ZP$S P8S,LM2,TM1,"Which field would you like?":P8S,0,23,IN$:MENU,FS$,NF,LM3,TM3,(27)(13),0,1,ZN,EC:EDEDZNX 28250:28400:15020:EC270,22,79,23:Z$FI$:500: 9000:MWTC,"[GR":MWLEG,"*":MWLEG,"-LSPNYM":23:HP,0:DS$" text.":"Ctrl-G to insert information, Ctrl-R for reference screen";? TM1:HP,LM:MW,(RMLM1),(BMTM1),IP,TL,IP,TL,EC,ZM:EDEDZMD EC273200I EC18İ60TTR",IP,TL:9100:IP0:SL15590:E$"Save "(34)FI$(34):T$"Examine and Update":28250:DS$"Update":3100 TCLR,0,2,79,20:TB1:EC27T$"Letters":LE0:20000:3010  MODIFY A LETTER& ED0:LE2:TCLR,0,2,79,20:ZM0:IP0:150200 TCLR,(34):T$"Write Letter":28250:DS$"Enter":3100:TCLR,0,2,79,20:TB1:EC27T$"Letters":LE0:20000:2010q  REVIEW/CHANGE LE1:E$"Letters":T$"Choose Letter":20000:28250 4700:EC27İ20100:LE0:3050k 28000:9000:MWL,0,0,FI$".L5,"The maximum number of letters (20) has been saved.":30000:20100:LE0:TCLR,LM,TM,RM,BM:TM6:HP,LM2:"What would you like to name this letter? ";:Z$"":15300:EC27İ20100:LE0:2060LU,Z$:FI$Z$kTL0:SL15570:E$"Save "(34)FI$M1:22000:M1MC(LE):EC2731000AMC(LE)5000,2000,3000,4000aM11įTCLR,0,2,79,20:TB1k1010WRITE A NEW LETTERLE1:E$"Letters":T$"Enter Letter Name":20000:28250LZD2:T1:33000:FCN,".LTTR",FI$,Z:Z20İ28100:P8S,LM2,TM,LM9,ZL,Z$:640"vP8S,LM,ZL,Z$_L11Z:Z$:P8S,LM15,ZL,Z$:ZLZL1::ZLZL1:L:30000REST,SL:T$:E$"Save "(34)FI$(34):28250:MAIN PROGRAM!28300:18200:REST,15500:Z$:P8S,0,1,Z$:P8S,0,21,Z$:REST,15540:LE0:21000:MC(LE)P8S,0,0,"Letter: "Z$:5 XDISPLAY REFERENCE SCREEN b9100:REST,SL:E$:T$"Reference Screen":28250:REST,15620:TCLR,LM,TM,RM,BM lZ:ZLTM:L1Z:Z$,Z:ZLZBMİ30000:(EC27)650:ZLTM:TCLR,LM,TM,RM1,BMq(Z$)1įP8S,LM,ZL,"Control-":P8SSS.BIN",DB$:CDB,0 1000@ , DISPLAY MESSAGE IN DIALOG BOXw 6M11įP8S,LM1,TM4,"No text was entered in":330 @P8S,LM1,TM4,"No changes were made to" JP8S,LM1,TM6,(34)FI$(34)"." T  DISPLAY LETTER NAME TCLR,0,0,24,0:50):SVA,"SEL%(150).BIN",SEL%:905,0h LVA,"F$(10).BIN",F$:L110:FS$(L1)F$(L):NFNF(F$(L)""): LVA,"FP$(10:6).BIN",FP$ TB1:LO0:L03:ZC(L)1: 9000:B159430:B26100:B356832:B4511:MWBUF,B1,B2,B3,B4:9100 CDB,0:ODB,0,"CLArs":PN$T$:28250 REST,130:QT$(2):L02:QT$(L)::ZS704:SET,1:RFL,"MECC$$DISK"ZS:33200:QN$ZN$:"program","data","backup" TM4:LM3:RM76:BM20:33100:T1:ZD2:33000:TCLR,0,2,79,20$ SET,2:LVA,"SEL%(150).BIN":(905)įRAV,SEL%:SEL%(132000n nW263000:M11:RS0:W159692:D$(4):HP1403:VP37:I$"Type number or use arrows, then press Return." sFI$(20),ME$(20),TM$(1),ZC(4),YN$(1) tS(S)S(Z$)21:LE(S)W11100(S1) uYN$(0)"No":YN$(1)"Yes" xD$"CLOSE":E$"":T$"Lette$ PROGRAM:LETTERS5PROGRAMMER:S. P. MCCARRONOCOPYRIGHT:MECC, 1984m(LAST UPDATE:85/01/04 SPM-APP,"SEARCH.LIB":APP,"COMMON.LIB"130208:(176)256(175)2MA32307:ML(900)(901)256:9000:MA:9100dINITIALIZATION i              Qe *VWmVVWiWeVmPPWmQQN wX8PVPQWQPQ wX[mPPQ *셖셕&PQ쨩 wmPPQiQe x`Lԥe=חܗe>ܗݗe?ݗٗe@ٗڗeAڗ֗mӗ֗חmԗחٗmӗٗڗmԗڗ8ٗ֗ٗڗחڗ,ї8֗ܗ>חݗ?L֗mܗ>חmݗ?֗<ח=ٗ@ڗA >` xxsxtx { 媤^_ .wL& NQXOȱNXUPe<>=e??>@?A`$:Pf|BLANK$(10).BIN3~333ї ӗԗ @ @g @R֗ח @ @g @Rٗڗ @ @g @Rܗݗܗ8nїIiܗݗ֗m֗<חmח=ܗmܗ>ݗmݗ?ٗmٗ@ڗmڗA֗e<֗חe ޤ {` $B*"- ȱB*  ``EID mȱBȱC`B* D ̆̇$8`i>j?k@lAk>l?m@nA>ف e>>?81 <= >=>q<>> qe?͌1 ] F ӕ >?  + ޤ {`L bK< 憊 ~fgvw<  ӕ>?  +`L bL 憊 vw~no e>e? ]<e<< < R>><Iog x`Y pbL 抨 ~LY bL novw~ >i@?iA=@< ȱ@Bȱ@C<=Ie<?Yk=i?8mk@nlA >fkȽgkekklemmne  +` bvnfw  @߅ @ @g @RPQ @㭠 @` { 单^_ <= \ / ii`L Ð Đ { ÐĐ^_ ` >q<ȥ?q=8m<@n=A8<>B=?C8mBmnCnL>LI g RPQ{| ֤ʆ}~` D8ooppompnMLԥopmCCDCD wop EȥȥmEiemn x` }< `$0&0(:H }h$߅L̏$ `Lԥ쥜 eie`L΍sxtx { 媤^_ ,wLԩ= w  YALԹAklA(8"=<? Ȑ {` @); @ @{ @^_ @ީ; R @ 5678 @l @ v/>?0 >?2ȱ쨊 LԠ 1 1 Œ1i#Ǎ1L0L{2Ȍ3i3Lɠ4ʱw9300ȩ3Ȣ) *08702` I0$!i0iЩCԩ 焠ȩ ԩխ!0i@Э ? !0ԩ 焥Bԩ 焩戭!i" @ޭ!i { @ޤ { @ޭ!i= { @ެ# {`ȩ ȩ `HiAh` 4?iF( g ggggg ggLast NameFirst NameStreet AddressCityStateZip CodeTelephoneGendere changes to this format",2,"Save the changes","Throw out the changes"DS,LM,TM5,"exchange diskette."_D$"CLOSE":D$"OPEN EXCHANGE.SEQ"D2$:D$"WRITE EXCHANGE.SEQ""Labels-Letters-Lists":"3":"Last Name":"First Name":"Student Number"(DB):I1DB:650:J12:(34)DS$(I,J)(34)::(I):D$"CLOSE":g the "QN$" data diskette."TI1DB:GAR,0,I:J12:DS$(I,J)DB$(J)::650::dXWRITE DATAbTI10210:600:T2:ZD2:33000lTD7100vWRITE GMGRT$"Write Grade Manager data":28250:28100:P8S,LM,TM4,"Writing to the "QN$:P85100 DISK CK;910:TI10210:600:28500:DBı~E$M$:28250:CDB,0:28100:REST,10400:400:30000:EC279000 5100pBFR NAMEzX(0):TD6100GMGR BFRT$"Read "(34)QN$(34):28250:28100:P8S,LM,TM4,"ReadinPLOAD5 28100:REST,10300:400:F1NF:NF9PSF19IRSNB:J110:DB$(J)""::J1F1:R(DS$(I,J)):4200:650::PS850:ANR,0,R:hTRIM DS$rR234230|DS$(I,J)(DS$(I,J),22)DB$(J)DS$(I,J):DS$(I,J)"":SENDTD(B1OFF):DINF<* :SNSN1:650:SN151DFSDE3320\> MD:NBSN1:OK1:958,VL:mDATA ON LLL910:T$"Add Records":E$"":28250:28100:28500:DB4100E$M$:28250:CDB,0:28100:REST,10100:400:30000:EC2790004010USNRS:RAV,DS$:DS$(150,10):FS(0)Q I1NF:I9įGSB,Z$,B1OFF:L(Z$):3340z GSB,DS$(SN,I),B1OFF:L(DS$(SN,I)) OFFOFFL1:OFF5123360 CT(OFF513):BLBL1:800:CTįGSB,Z$,B1OFF:L(Z$):OFFOFFL1:I10DS$(SN,I)DS$(SN,I)Z$ D"Enter fields","Delete fields","Change field names"@:"Set Up Fields","Enter/Update Fields",3,"Enter fields","Delete fields","Change field names"@:"Examine Records","Update Record"@:"Examine Records","Enter Record"@:"Maintenance"mA:"Updatskette","Enter and update student records","Enter and update field names","Change title for data diskette","Transfer selected records to another data diskette"?:"Exchange information with other MECC products"3@:"Maintenance","Enter/Update Fields",3,>:/SC1:>D/Return>N/EC106>/CTRL-J and CTRL-K\>/FF(EC11)(EC10):FFWR(F):b>:>:"________________________________________________________________________________"?:"Main Menu","Maintenance",6,"Getting started: set up new data di$(1)""MOD12090=/28400:28100:P8S,LM,TM2,"This record needs a last name":P8S,LM,TM3,"entry before it can be added.":P8S,LM,TM5,"Do you want to enter a":TM7:HP,LM:"last name? ";:DE1:30100=/CU1EC27SC1:F1:12000=&/MOD0:EC27 .E$:P8S,72(E$),0,"Escape: "E$<.Z$R$(F):7F:HP,25:EC$(16)(10)(11)(13):SLI,SL$,EC$(27),22,Z$,EC:TRIM,Z$:MODMOD(Z$R$(F)):R$(F)Z$<.FKS,EC,EC$,Z:Z10000,12200,12200,12100:Z1EC27SC1:12000<.F0FNFEC2712000=/Ro the presets.":NN1:FP$(F,N)Z$:350,;+9;. FldInp;.SCįREST,15110:900:REST,15130:950:REST,TI:28200:28400:28300:P8S,0,22,"Use arrows to select field.":P8S,0,23,IN$(CR0):SC0;.REST,15050:R$(1)""DBįREST,15055:TCLR,55,0,79,0"<>":MODMODR$(F)FP$(F,Z):R$(F)FP$(F,Z):TCLR,25,6F,47,6F:P8S,25,6F,R$(F)U:,)e:*Add preset:+Z$""SC1:N0:Z1:ZL16:ZZ(Z$FP$(F,ZL)):NN(FP$(F,ZL)"")::+&; +Z$""ZN6İ28000:P8S,LM,A(2),"Adding "QU$Z$QU$:P8S,LM,A(3),"t1N:FP$(F,ZL1)FP$(F,ZL):89d(FP$(F,N)"":350:NN1:K9)Select Preset9)E$T$:T$"Select Preset":28250:28400:P8S,0,23,I$:TCLR,LM,TM10,RM,BM:10100:N0İ30000:EC13:9)MENU,ME$,N,LM,TM2,(13)(27),0,1,Z,EC:EC27ıO:")P8S,LM,TM1Z,"--'SLI,SL$,(13)(27),22,Z$,EC:TRIM,Z$:EC27İ11000:11020D8'W8<(Delete Preset8F(E$T$:T$"Delete Preset":28250:TCLR,LM,TM10,RM,BM:10100:N0İ30000:8P(MENU,ME$,N,LM,TM2,(13)(27),0,1,Z,EC:EC27ı9Z(P8S,LM,TM1Z,"-->":Z6āZLZ:EC274850E$28100:P8S,LM,TM5,"Printing the character sample."$28600:TM7:12)"Character Sample"::::L112:TM7:L114:"1234567890";:::800:EXL12$:FEED:28700$700:$$ SELECT FORMAT$84700:EC274970&%Q28000SMENU,ME$,Z,LM3,TM2,RM,BM,46,(27)(13),0,0,T,L,ECD#20000:X# PRINT SAMPLE#E$"Create Label Format":T$"Print Character Sample":15000:28250:LELE1:20000 $RFM,LE,LM,TM,RM,BM:28100:P8S,LM,TM5,"Please prepare your printer.":30000,10)(" "(LA),14):"28100:P8S,LM2,TM," Name Width Height Labels Across":P8S,LM2,TM1,"=======================================================""P8S,0,22,"Use up/down arrows to select, then press Return."7#TM5,"There are no label formats on this diskette.":30000:EC27:4760!zL0Z1:Z$(FI$(L),6):LW((Z$,2)):LH((Z$,3,2)):LA((Z$,2)):ME$(L)((FI$(L),(FI$(L))6)" ",15)#"ME$(L)ME$(L)(" "(LW),7)(" "(LH)left margin",".RM#",1,"Set right margin" CU19010 # 'WidthsO 'NF0:I110:NFNF(F$(I)""):FW%(I)(F$(I)): $'28500:I1NS:GAR,0,SEL%(I):J1NF:L(DB$(J)):ZLFW%(J):FW%(J)(Z)FW%(J)ZL::: .Student records`!.REST,15610:LE2:28200:20000:28100:P8S,LM,TM1,"The po exchange the","information between Grade Manager and Labels, Letters,","and Lists. Only Last Name, First Name, and a student"'J; "number corresponding to the alphabetical index of the","student's record in the Labels, Letters, and Lists","file will bnation diskette","and your source diskette.","*"tte.","*"Cs, Letters, and Lists data diskette","already contains a set of students, Please use","an empty data diskette.",*'Get Information'Send Information<("Adding records to the Labels, Letters, and Lists","data diskette.",*("This Labels, Lette(#CHAIN MAINT.H2#910:CDB,0:T$M$:E$"":28100:TCLR,0,0,24,0:28250<#T0:ZD1:33000:LM3:TM2:RM79:BM20:28000:RNH,"MAINTENANCE"'"This diskette is not properly set up to send","information to Labels, Letters, and Lists.",*qt'"This Label eie` g R  0Хҥԥ xե1 T%, "` L g R xե0 ˄T%, "`ժՖՖխժժժժխՖխժժժխ }:SL 4,DR:955,VO:956,SL:957,(DRDC)1:958,0:DC3āZ02:956Z,(LL37Z):n 975,255:905,1:RNH,"MENU": (#:11:"THIS PRODUCT REQUIRES AN APPLE //C, AN APPLE //E WITH AN 80-COLUMN TEXT CARD, OR THE EQUIVALENT.":16368,0:16384,128:16368,0000 230,64:8192,"LOGO":16304,0:16297,0:16299,0:16302,0:8192,"CLASS.OVL":8192,"CLASSUTIL.BIN":8192,"CLASSUTIL.OBJ":RFL,"PRINTER COMMANDS.BIN"P(948) (940)128āZ14000::9000L LL704:RFL,"MECC$$DISK"LL:DC(LL36):953,SL:95  LABELS,LETTERS,AND LISTS3PROGRAM: HELLOQCOPYRIGHT (C) MECC, 1985p(LAST UPDATE: 85/05/08 KMK|32000 :(4)"MAXFILES1":::P(X)(X)(X1)256:LP(P(999)):SL(L1)16:DR(L2):VO(L14):(4)"BRUNHELLO.OBJ":(941)489   "settings for? ";jfHP,LM:"settings for? ";:P$"":SLI,"- ",(13)(27),20,P$,EC:LP(P$):EC275240gLP0ĢTM5:5222iLP20P$(P$,20):LP20nL1LP:PP106L,((P$,L,1)):xCHECK FOR ALTERED COMMANDSRLıCZD1:T0-120) ";:Z$"":SLI,"-09",(13)(27),3,Z$,EC:EC275140Z ((Z$)10)((Z$)120)5120oPP1,(Z$):RL1uPID FIELDZL120:PP106L,0:dT$"Printer Name":28250:LE2:20000:HP,LM:TM4:"What printer are you making these":HP,LM:28"D1$:RL0:20100:LE0:2ADJUST PAPER LENGTHT$"Adjust Page Length":28250:LE2:20000:P8S,LM,TM1,"The normal setting for page length is 66 lines per page."9P8S,LM,TM3,"What page length is your printer":TM5:HP,LM:"set to produce? (10u be using?":22000:EC27İ5300:20100:LE0:d28100:MC(LE)6000,7000:EC27İ20100:LE1:5010E$"Change Settings":RL1:PP1,66:APLİ5100:EC275075520020100:LE1:EC27501028010:" ":D$;"BSAVEPRINTER COMMANDS.BIN,A"PP",L1:FEEDJ28700::P8S,0,11,"Printer test complete.":30000:TPUT,0,0,W1PeSET NEW OPTIONSqMC(1)1REST,15060:LE1:21000P8S,LM4,TM7,"(such as a serial or parallel card)".P8S,LM,TM1,"Which type of printer interface will yo,L128"D1$ 20100:LE0:1TEST THE PRINTER~TTAK,0,0,79,23,W1,160:P8S,0,11,"Please prepare your printer...":30000:P8S,0,11,"Testing the printer...":28600:"Printer test":I13:J3295:13:(J);:::J96127:13:(J);::::Z,"Type of printer: "Z$:4 RETURN TO DEFAULTS  REST,15100:LE1:21000:ZTM4:P8S,LM,Z,"Now returning the printer settings to":P8S,LM,Z1,"the original state (slot search)..." I0127:PPI,0:  " ":D$"BSAVE PRINTER COMMANDS.BIN,A"PP"15:2470K~ TMZ1:HP,LM19:"PRINT "(34);:L211:P(PPCT):CTCT1h P0P13P32PP64: L2(P13):PP21L2:(P);: L2::ZZ1 L1:ZZ1: PRINTER TYPE Z$"":L120:I(PP106L):II32 Z$Z$(I)::P8S,LM,TM are:"g Z$"Slot: "((PP)128):P8S,LM,TM2,Z$:Z4:APLįP8S,LM19,TM2,"Page length: "((PP1))| (PP2)0İ2400$ (PP107)0İ2500. 30000:` PRINT SPECIAL COMMANDSj P8S,LM,TMZ,"Special Commands:":CT2 t L115:(PPCT)0Lh P8S,LM,TM3,"The speed is set to '"SD$"'":P8S,LM,TM4,"(usually "S1$" characters per second)." Z6:APLįP8S,LM,TM6,"Page length: "((PP1)):Z8 (PP107)0İ2500 30000: USER SET P8S,LM,TM,"The current printer settingsST,15040:I062:Z$:P8S,LM9,1TMI,Z$:8 H30000:G COMM CARD P8S,LM,TM,"This diskette is currently set up to expect an":P8S,LM,TM1,"Apple Communications Card in slot #"((PP))"." SD$"low":S1$"10":(PP2)127SD$"high":S1$"30"1000:22000:EC27ĺD$"CLOSE":31000D MC(LE)2000,5000,3000,4000N 1015j CHECK CURRENT SETTINGS JP1((PP)0)((PP)127) LE1:E$"Printer Support":T$"Check Settings":20000:28250:JP2100,2200,2300:20100:LE0: 4DEFAULTS+ >REM4:LM3:RM76:BM20:REST,160:QT$(2):I02:QT$(I)::ZS704:SET,1:RFL,"MECC$$DISK"ZS:33200:QN$ZN$:"program","data","backup" 33100 MENU REST,15000:Z$:P8S,0,1,Z$:P8S,0,21,Z$:LM3:TM3:RM79:BM19:28100:RL0$ REST,15020:LE0:21 TO ALLOW USER TO ADJUST PAPER LENGTH D$(4):PP(948)(949)256:Q$(34):I$"Type number or use arrows, then press Return." S(X)X(Z$)21 YN$(1):YN$(0)"No":YN$(1)"Yes":VP37:HP1403:W159692:W263000:TB1:CN$(14):CO$(15) T PROGRAM: PRINTER SUPPORT<PROGRAMMER: P. BOUCHARDYCOPYRIGHT (C) MECC 1983x(LAST UPDATE: 84/12/27 SPM280 column file card versiondINITIALIZATIONi32000nAPP,"COMMON.LIB":30208:(175)(176)256' xAPL0: SET TO            `8` D L 8 j @A `8`#Hm#( @h#`  @A  8 { ``H !h`фKTNKKUJ,T`((((PPPP,0`LL< mi`<=< <<=Lˉ`,,`m LAdB` 1L*  @A <DBEC8BC<8B>=C? `8@A@A8DEDBECDBECeBeC<eB>=eC? `>=?,0 토@?<>5=eA=?eA?A@<>,0 토<>=?`J ,_0  ɍ( )@`)? '`  `  `0`>?8ȱ> 0Șe>?i`>?>?>> 0J>?>?`B@@eBeC`8@A@A8DEDBEC L=`<=: <0=18e>A? N 䉮>$> ' ɍ 'Șe>>? ',0 Ъ``,a0,b) ,  `88 !`,_m0 Ae i` !  ` `  ` ?:+m<=I8m 0@1A  `L`<>=?<=>,>0;> >) ߍ>;,;;;>0= >>)><(%8e>>?>?:>?#,҄0pF҄,҄p08@҄з҄) <])<0 :}9|< Lʊ8 BC,҄0 ,70 H ^h pL샎 ,80  pL샮Ʉʄ L샭ӄ` ! A Ȅ< ` i` !BCBCBB0 BC i` !;til-uim%"m #$ !mJ!!<=<=<< <=<< 8 J  @" @ <= ``ӄ L΄8 !ӄ ҄ vɛɀ8LSɍ,$&0ɠ0LLvC C` `` `` 8 <"L ɛ ɠɍ,`, ,0N8 !,0 LR 0,T, ` GjҁmЁρ 䉩с Ӂɍ\Ɉ?ɠс0сρޮЁ ',ҁ 8 сЁсLcсЁсЁ 'Lcс`CF,C0CNC8 ,C0 D]ELD.E0DDE,ɛ,FNFP,G=뀭>` ‭ B 퀍뀭쀭뀭뀅쀅$8 ݉`H ‭뀅쀅h쀭퀭 逍뀭ꀍ쀭 ݉`,,` ? ` `@A 8 ` BC B@CA 8劅B勅C  L$8n L`ƋƊ ݉H h ٰ$8 ݉` 셊텋BCBC ?  , " 7 BCBeB`;<3~ ijHmnghJefH=>VCDbUV9,-yKLfEލF`~~8[)80P EH.mmhmiЦ`$8n셊텋 U,0    h{RM,BM:TM6:ZE6ĺ"Error: File not found.";:32100S}ZE8ĺ"I/O Error.";:32100(}ZE0ZE16ĺ"DOS Error #"ZE" in line #"ZN:30000:2}"Error #"ZE" in line #"ZN" in Menu Program. Please report this error to MECC.":30000:1d}" Please check yCLR,0,23,79,23:P8S,26,23,"Press SPACE BAR to continue"kDuSLI," "(13)(27),,0,Z$,0,EC:NEEC2730020NuNE0:TCLR,0,23,79,23:yPROCESS ESC-ESC"y2000,y}ERROR PROCESSING }ZE(222):ZN(218)(219)256:ZE255Ĭ3}TCLR,LM,TM,70,8080,8080,8090#hIZE48:8030:II(INP)1:8030SII1(I1)NP:8030YnPRINT MENU LINEZ$(I):P8S,ML2,SP%(I),Z$". "MN$(I1)" ": PRINT INVERSED MENU LINE SP%(I)1:HP,ML5:CO$" "MN$(I1)" "CN$:0uPSB7:uT"@ PUT UP MENU AND GET RESPONSEhJL$(10)(11)(13)"-18":I1:MT:HP,ML:"Program";:NP1ĺ"s";T":":I1RP:SP%(I)MTI:8100::P8S,ML,MTRP2,"Other:":IRP1NP:SP%(I)MT3I:8100:YI(906)^8200:SLI,L$,,0,Z$,0,ZE:8100:ZE980PA$""ĹHP,ZX:PA$V>TM8:20)" Direct inquiries to:"::20)" ";:ZX(HP)H:HP,ZX:"MECC Distribution":HP,ZX:"3490 Lexington Avenue North":HP,ZX:"St. Paul, Minnesota 55126":HP,ZX:"(612) 481-3527"R30000:TCLR,LM,TM,RM,BM\":P8S,S(40),4,Z$:I16:Z$:P8S,H,5I,Z$::30000:TCLR,LM,TM,RM,BM:EC277260i SUPPORT BOOK INFO*TCLR,0,TM,79,BM:TM2:HP,LM:"A manual to aid in the use of this diskette is available from MECC."4TM5:20)" Title: ";:ZX(HP):TI$:SHOW DESCRIPTIONSeTM1:L0RP1:ZY(VP):ZY15:30000:TCLR,0,TM,79,BM:TM1:EC277260HP,LM:MN$(L)::L11DP:DS$(L,L1)""ĺ" "DS$(L,L1)::L:30000:EC277260RTCLR,LM,TM,79,BM:REST,52030:H10:Z$"Use of Esc Key9,23:REST,51000:Z$:P8S,0,1,Z$:P8S,0,21,Z$:Z$TITLE$:P8S,S(40),0,Z$:cXGENERAL INFORMATIONlP8S,0,0,VE$:P8S,62,0,"Escape: Main Menu":TCLR,LM,TM,RM,BMvREST,52000:H8:I111:Z$:P8S,H,5I(I5),Z$::30000:TCLR,LM,TM,RM,BM:EC277260P8S,37,0,"End":Z$"Escape: Main Menu":P8S,80(Z$),0,Z$:12:HP,27:"Insert another diskette."v30000:EC272000TCLR,0,0,79,23::(21)CS(P(P(999))1)16: SLOT #CS1CS7CS6D$"PR#"CS:pSET UP SCREENJzTCLR,0,0,7LABELLIST.OVL"v A3įRFL,"LETTER.OVL":RFL,"MW.OVL"16384:AD16384:MOVE,AD,P(0)49152:900,(0):901,(1):902,0 A1įRNH,"DISKUTIL.OBJ" (4)"MAXFILES1":RNH,F2$ END OPTION_TCLR,0,0,79,20:REST,51000:Z$:P8S,0,2,Z$:P8S,0,21,Z$:agement options available.":30000:2000= RUN THE PROGRAMO SET,1:908,1x A0ANPF1$MN$(A1):F2$CN$(A1) TCLR,0,22,79,23:TCLR,LM,TM,RM,BM:TM8:HP,LM:"Getting "F1$"...":A5įTCLR,0,0,79,0:Z$F1$:P8S,S(40),0,Z$ A2A4įRNH,"(14):CO$(15) 60006 RESPOND TO USER'S CHOICE P8S,0,23,"Type number or use arrows, then press Return.":8000:AI:906,A A5İ7000:2000: GENERAL INFORMATION ANPī5000( MOZE1įTCLR,LM,TM,RM,BM:TM8:HP,LM:"There are no manNAME, DESCRIPTION, SCREEN PLACEMENT(Y)b tL0NP1:MN$(L),CN$(L):DPLRPāL11DP:DS$(L,L1):h y ~DATA STATEMENTS ARE AT 50000  DISPLAY MENU (975)255ĉ:D$"PR#3":" ":975,1:906,1 A1:LM3:TM4:RM76:BM20:ML20:MTTM2:CN$)211 MT13:ML37:SP0:FORMATTING PARAMETERSL P(S)(S)(S1)256d LPROGRAMMER OPTIONS| VNP8:RP4:DP5:MO0 `TITLE$"Labels, Letters, and Lists":PART2$"":VE$"Version 1.0"& jMN$(NP),CN$(NP),DS$(NP,DP),SP%(NP): MENU NAME, CATALOG  PROGRAM: MENU1PROGRAMMER: P. BOUCHARDOCOPYRIGHT (C) MECC, 1984m(LAST UPDATE:84/12/17 RPByZ32000INITIALIZATION15128RFL,"MECC$$DISK"704:907,(740):SAVE DRIVE CONFIGURATION D$(4):HP1403:VP37:S(S)S(Z$           |Z0T= ____________________________|____|____|____|____|____|____|____|____|____|____|_,31,31,29,31,30,31,30,31,31,30,31,30,318/,=Format datap/6= | | | | | |/@= _________________________________|________|________|________|________|________|0J= | | | | | | | | | | er (A-Z),Reverse order (Z-A)].