' +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/":H*"Most users will have either one or two floppy disk drives. ";*"If you have a different setup (such as a hard disk or more than one controller card), use "QU$"Select special disk drive setup."QU$E*:"This option will ask you for the slotprogram...":SET,0::909,5:RNH,"MENU"D STANDARD YES-NO INPUTZ(1);:GCP,ZX,ZYCO,ZX,ZY:INP,(3,"YESNO",1),Z$:Z$(Z$,1):Z$"Y"Z$"N"36020 6,Y7,3:(A);CA$;::CO,X9,Y:91504#(A);CA$;G#K:Q$:CTCTLM#d0uSPACE BAR ROUTINEu:u:SPACE::yENDING ROUTINE"yWIND:CL$:10:"Do you want to try again? ";,y360006yZ$"N"Z$"n"130(@yCL$:10:"Getting the menu X0X127X0*d#L$"":K1L$(S$,K1)Fn#R$"":LJR$(S$,LJ)Xx#S$L$(X)R$j#LKLJ:9110q#Jx#K#XQX:YQY:CO,X,Y:CA$;:0:50,Y1279,Y1:CEL:L(S$):K1L%#A((S$,K,1)):PPCTK,A:A32AA64::GCP,X,Y:BOX,X1,Y1,X(L1)ZXX:XZX:S$S$C$:8020QXXP(L):BOX,X1,Y1,X9,Y7,0:CEL:L18010hS$(S$,L1):8020{(#SCAN FOR CHR$2#L(S$):L79120<#K1L6:(S$,K,5)"CHR$("9110F#JK6L:(S$,J,1)")"9100P#X$(S$,K5,JK5):X((X$))Z#QX:YQY:I$"-"(1)(127)YTL(S$):CO,X,Y:INP,(0,I$,0),C$:A(C$):A13Ĺ16368,0:m^(A8L0)8010{hA88080rA34L198020|A32AA64::BOX,X1,Y1,X6,Y7,3:(A);CA$;::P(L1)9:XX9:S$S$C$:8020(A);CA$;:GCP,ZX,ZY:P000+S$""Ģ42L2:1:CA$;:CEW::L25OS$""İ9000:CTCT1:PPCT,13L2:CTCT1:PPCT,0:PPCT1,255:PPCT2,255HSP,1:17:"Are the above commands correct? ";:36000L1(Z$"Y"):L1@STRING INPUTJS$"":16368,0:Xnà "The capacities of a built-in word processor make it easy to design and redesign your own unique structures for storing, editing, printing, and manipulating many types of information. "IÃ"Stuff and Fetch","S AND F SETUP"dÃ"MECC Stuff and Fetch is a database world in which to play and work. You will find it a useful tool for testing many different strategies as you store (stuff) and retrieve (fetch) information you have collected. ";:32100(}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:d}" Please check your disk drive and diskette.":30000:#Z.INSTRUCTIONSR.WIND:CL$:CO,0,89:"INSTRUCTIONS NOT DESIGNED...":30000:[0uPSBl:u:SPACE::uyESC"y2000,y}ERR }ZE(222):ZN(218)(219)256:ZE255Ĭ}CO$CL$:WIND:HSP:VSP:CO,0,80:ZE6ĺ"Error: File not found."P#9100:Z1390706Z#Z8Z127įCO,ZX,ZY:CEL:9010@d#9040Un#AA48:A1A1cx#XX(XX)k#:#ZL11:XX(1):Z(16384):ZL(Z127)::ZZ128:16368,0:*INSTRUCTIONS +WIND:CL$:CO,0,89:"INSTRUCTIONS NOT DESIGNED...":30000: students to the concepts and skills necessary to live in the Information Age."bYWIND:30000:k(#INP-#CA$;:16368,0:GCP,ZX,ZY:WIND,ZX,ZY,250,ZY12:DL$(127)2#DL$:CO,ZX,ZY:9100:AZ:A19070<#A49A(48N)9010F#(A);DL$;CA$;171:CO'G90,25190,25:98,34180,34JGCP,ZX,ZY:TI$CA$;:GCP,X,ZY:ZX,ZY8X,ZY8:" is a package in the "SN$" series. This series, along with four others, is part of MECC's Computing and Information collection."OO:"This collection introducesCorporation":VSP:CO,20,165:"Copyright 1985"CC$:30000:BOXdDVSP:WIND:WIND,25,50,265,161:COEWIND:AFT,2:CO,55,12:CN$" !"(34)"#"CO$:WIND,90,17,279,191:COF"Computing and":" Information":3:SN$"Accessing Information":WIND,30,47,260, response."#WIND:VSP:30000:@CL$:Y2180:6000:AFT,1:WIND,20,25,259,176:CO:CN$"Computing and Information"CO$CC$::3::GCP,ZX,ZY:TI$CC$CA$;:GCP,X,Y::60,ZY9X,ZY9:=AVSP,4::6)"Minnesota":8)"Educational":10)"Computing":12)"ZEįDW,IS,0QS,1516384,'fNZEİ700:20076X'hNK64QS34ZEįDW,5IS,07IS,1553248e'jNZEİ700r'lNZU0:IS'nNZ$"is":EFZ$"could not be"'pN:11:"The copy of your "T$(T1)" diskette":Z$" finished.":30500:(zN500:T0:ZD1:WP0::34500::1)" diskette...":SET,2:QSIS4:QS34QS34S&_NZU1:ZE0:ZEįDR,IS,0QS,1516384g&`NZEİ700:20076&aNK64QS34ZEįDR,5IS,07IS,1553248&bNZEİ700:20076&cNZD1:T2:WP1::34500'dN:12:"Writing to backup diskette...":SET,1:ZU1:ZE0:O,PT:400:ZEİ500:\%YNIB(ID1)256(ID0):16128,IB:ZU1:ZE0:ZEįDW,34,1534,1516128u%[NZU0:ZEİ700:20078%\NUNHOOK:1014,(910):1015,(911):901,2:::FILT:EF0%]NIS0345(3K64):TT1:ZD2:WP0::34500+&^N:12:"Reading from "T$(T1J$ENDC2TT1:ZD2:WP0:34000:PTZP:ZU1:ZE0:ZEįDR,34,1534,1516128c$FNZU0:ZEİ700:20078s$GNID(16128)$HNZD1:39000$RNOKİ500:%WNCL$:CO,0,89:"Preparing your backup diskette...":DT$",S"((953))",D"((954))",V"((955)):SPRZE0:ZEįDR,34,1534,15161288#=NZU0:ZEİ700:20078#>NCO,0,27:CEW:CO,0,90:"Please insert your backup diskette";:(S36)2ĺ" in drive 1 and your "T$(T1)" diskette in drive 2";#@N(S36)3DC2ĺ" and your "T$(T1)" diskette";#CN".":30000er information is currently on the backup diskette."::"Do you want to continue? ";:36000:Z$"N"İ500:";NDC(S36):DC3ĺCL$"Special Copy Setup"CC$:Q$"backup":21000:Q$T$(T1):21000:DC(D1$D2$)1#? Px @A, x,0, ٍ ޭL&)hHɍ h` g R<= J<=MxLЈ,, u*, ޭMx) Nx & ߭ NOR``6L‡Ç6H7HN6O7,R0 ɍ L$HP8$Q$ ć  @ ć$Qhi$P6Nh7h6LJ`ɍɌ Qͳ Q` ·`HB!?<>?>,>$f<<`LM ߅$0LM  c`LvS s$H)h0, 0RL'NO?67  ONPPR,5S,N  !9"I7!"#~~~- h= :8BCeB@iA@A BBLx`H)hJJJJLׅ ` m`B!L |@A f< `8` ~DLx ~8 | N @A f`8`#Hm#(, Ƀh#`ބބ @A fބ8ބ _ ``H ,h`0 р<>=?`67TN77U6,T`((((PPPP,0`L愥L< mi`<=< <<=L`,,`m 8-P.` 1DEDBECDBEC8BC<8B>=C? `8DEDE8@A@ADBECDBECeBeC<eB>=eC? `>=?,0 р@?<>5=eA=?eA?A@<>,8 `,Cm Ѓ,C0  ɍ( )@`)? ` ߄` ~`0`>?8ȱ> 0Șe>?i`>?>?>> 0J>?>?`B@@eBeC`8@A@A8?>?>? рL!`<=e <0=18e>A?̀N Ѓ>$>  ɍ Șe>>? ,0 р̀ˀЪ``,a0,b),`8胥BC M` 0 -e M`  胰 v` ߄` ߄` #+me !I8m0@1A f ߄`LD<>=? !","0">) ߍ",>0! >>)> (%8e>>"Error "ZE" at line #"ZN" in Stuff and Fetch Setup."::"Please report this error to MECC.":5000:31000z耲DISK VERIFYZU1:SET,ZD:CPRO,ZP:ZPįCPRO,ZPSPRO,ZP(ZP):ZS704:ZL9503ZD:ZC(907):ZV0:ZT$D1$:ZD2ZT$D2$8ZE0:ZEĺD$"0[|yT0:ZD1:WP0:33000::(21)::VP,10::HP,0:"Getting main menu..."::RNH,"MENU"o}ERR PROCESSING }ZE(222):ZN(218)(219)256:216,0:32000}ZUZE0ZE16Ħd}PGRMR'S REENTRYn}ZE255Ĵ(919)031000:ix}:VP,11::HP,0:" ---PRESS SPACE BAR--- fVP,21::HP,0:958:HP,24:"Press Space Bar to continue":ES0VP,1::16368,0:EX11:EC(16384):EC155ESES1EX(ES1EC160)::16368,0:EC15531000VP,20::958:VP,1yESC"y30:"Which number? ";@ 868:MWIN,0,1,K$:K(K$):K1K23560Y DD$D1$:K2DD$D2$ TK1:ZDK:WP1:33000:53249,1:D$"UNLOCK S AND F DATA"DD$:FS1:MWS,FS,"S AND F DATA" ---GET ERROR NUMBERS--- ZE(222):ZN(218)(219)256 want to":"continue? ";` 868:MWIN,0,3,K$:K$(K$,1):K$"N"K$"n"K$"Y"K$"y"3530x K$"N"K$"n"3599 :::"You may delete the file from a:"::"1. MECC Stuff and Fetch program diskette":"2. MECC Stuff and Fetch data diskette":nid's":"tomb.":5000:# DELETE :L1$;:23:L1$;:1::25:"DELETE THE CONTENTS OF A FILE":::"You have chosen to erase the contents of a Stuff and Fetch data file. All of" "the information in the file you select will be destroyed. Do youon the yellowed scroll are barely visible:"::" An impostor...buried in the family tomb of Akmenid...must find":" the identity of this person...look for code MSX" :"Use your detective skills to find the card of the impostor in King Akme "the family of an Egyptian king who died in 1042 B.C."::"An old papyrus scroll has recently been discovered by archaeologists on a dig":"near the family tomb. This scroll suggests that an impostor was buried in": "the family tomb."::"The words h as you"::"like. Changes you make will not be saved on the diskette.":5000] K4ī500c v IMPOSTER MSGE& 905,1:::23:"An Impostor in King Akmenid's Tomb":::"This file contains a prepared set of notecards with information about"0e on the program diskette"::"4. Return to file choices menu":23:L1$;:18:"Which number? "; MWIN,0,1,K$:K(K$):K1K43040O K4Ĺ905,K1:K3FI$"IMPOSTER":3100::10:"The cards in this file can be edited and rearranged on screen as mucT0:ZD1:WP0:330001RNH,"S AND F MAIN"7J USE FILE MENU :L1$;::30:"USE AN EXISTING FILE"::::"You may:"::"1. Use the file space on the program diskette"::"2. Use a file on a data diskette":` "3. Use the sample filYC0z1Q6z7]HzI,,-l>?`stzzz,-эj`` S` mͳ   ފ &`xrzrw+xFPRCFPGFPMWFRMWMWMWIMWMTMWMTMOVMMWLEMWBUMWTMWFMMWPULMWADMWODMWCCPINIPOFPACFEE"=3Tڊ|ʌG&R \s] `taZs["Xt߅  { ɃGBC LA ~,Lٍ { ɃBC B^<_=>?B@CAeBeC ,Lٍ  ,`! ` g RePeQ g RePeQ` ޥ8􄨥 ) ޥ8􄨥 ) RePeQ f g Ruuuu g RPu8muuQumuuuu z?= z= N|,`  !"#{% , |Lx |H ٍ h & ޭ & !"#`  Ƀ ,` { 6鋠^*)+-8@"ꋝ ` ` g R ga file...":K3FI$"S AND F DATA"? ---LOAD DATA FILE--- VMWL,1,0,FI$,NI,FS " ---POKE PARAMS FOR MAIN PROG--- PB,PB+1 = MB PB+2,PB+3 = ME PB+4,PB+5 = FS PB+6,PB+7 = BB PB+8,PB+9 = BMX *900,LO(FS):901,HI(FS)RUN MAIN PRGM0! K3000,3500,400,31100:3004 NEW FILE SCRNr :11:"Getting Diskette Support...":T0:ZD1:WP0:33000 905,5::RNH,"DISKETTE SUPPORT"  ---GET S AND F DATA--- T0:ZD1:WP0:K3WP1:K1T1:ZD2"33000::11:"Getting dat" ,MAIN OPTIONSO 6:VP,0:L1$;::34:"FILE CHOICES"::::"You may:": @"1. Use a file"::"2. Delete a file"::"3. Create a data diskette "::"4. Return to main menu":23:L1$;:18:"Which number? "; JMWIN,0,1,K$:K(K$):K1K433OBAL PARAMS MB = MEM BEG (HIMEM+2) ME = MEM END (BELOW MW) BB = BUF BEG (ABOVE MW) BMX= BUF MAX LEN MBNUM(115)2:FSMB1:ME28671:BB53248:BMX1064 SET MECC WRITER BUFFERS MWBUF,MB,12200 DEFINE MW TERM CHARS MWTC,"RD":MWLEG,"-M,"PRINTER COMMANDS.BIN"PPP 33100:ZS704:RFL,"MECC$$DISK"ZS:33200:QN$ZN$j (905)5Ĺ905,0:220 " SET UP MECC WRITER RNH,"MECC WRITER.OBJ" ADNUM(948) RFL,"PRINTER COMMANDS.BIN"AD :::D$"PR#3":""e " SET UP GL|x ````l8|x0x0x| x0`0````0``0``v000xx x000000xx0x0xx0000 0``0 0x`0x |||| ||x|8l````|| x````8p`````lxx|| ` 8 x8x x<`x 0```xxxx| ```0``0`00`x000||0xxx||````` xxxxlUSJUSCNNOCNGCVSHSCECEPAUSHOOUNHOOSPACCWININkdkkkkkkkkkk#m-gxmmm*lmm5n`lllll~~~0` pvv0`0``0`000`~<~0000`` 0`xx0p0000xx 80,Ɉd`ɿɯ,p 詍0SɍpJ,p ,p0p@p) zp@p9p,p0 ,p0LoLo pLo ` ֩PyQ AL zppp`rpqp Rpqprp` ~L\pH)hJJJp` ` @BODFAFPARSNOJsf󮠠 lj 躠®î 躠®î 庠 庠 躠®î 躠®î 庠 ter data":L1$"----------":I02:L1$L1$L1$: D$(13)(4):LOB(BYTE)BYTE(BYTE256)256:HIB(BYTE)BYTE256:NUM(A)(A)(A1)256:HT1403:VP37:HP1403 PS(953):PD(954):PV(955):DS(956):DD(957):DV(958):PP(948)(949)256:RFL STUFF AND FETCH2PROGRAM: S AND F SETUPLPROGRAMER: DAN MILESj(COPYRIGHT (C) MECC, 19852LAST UPDATE: 85/07/15 KWNx(13)(4)"MAXFILES 1":1638432000 " INITIALIZIATION / QT$(0)"program":QT$(1)"data":QT$(2)"mas           AN CARDS: ",16,"Forward ",27,"Backward ",39,"Discard ",50,"Edit ",58,"Print Card ",72,"Done " 0Y6:X02:MTB(X,Y),MU$(X,Y):X: 7,"PRINT ALL CARDS:",31,"Print All Cards",61,"Done"00TB(X,Y),MU$(X,Y)::5,"FETCH:",17," Find Cards ",40," Scan Cards ",63," Done "/Y4:X05:MTB(X,Y),MU$(X,Y)::0," FIND CARD: ",15,"Find Next Card ",33,"Discard ",44,"New Phrase ",58,"Print Card ",72,"Done "_0Y5:X06:MTB(X,Y),MU$(X,Y)::0," SC"PR#3"u.fY1:X04:MTB(X,Y),MU$(X,Y)::3,"STUFF AND FETCH:",23,"Stuff",35,"Fetch",47,"Print All Cards",69,"Quit".pY2:X04:MTB(X,Y),MU$(X,Y)::2,"STUFF:",11," Type On Card ",30," Put Card In Box ",52," Print Card ",69," Done "N/zY3:X03:MKey to select."E-33100:ZS704:RFL,"MECC$$DISK"ZS:33200:QN$ZN$-MMB16386:ME28671:MB,1:FSNUM(900):FSMBFS:FS,1:FSFS1.RT0:ZD1:WP0:33000:MWBUF,62600,1023:MWL,0,0,"HELP.TXT",TK,TK:BB53249:BMX1064:RS1:MWBUF,BB,BMX,61440,1023::D$403:VP37:B016287:B116286:GM0,yT$(2):L1$"----------":L2$"__________":SP$" ":I02:L1$L1$L1$:L2$L2$L2$:SP$SP$SP$:-~T$(0)"Use arrow keys to move highlight.":T$(1)"Press Control-D to make a new selection.":T$(2)"Press Return ((957))",V"((958))+0+GET DISK NAME?+ZN$"":Z1t+ā(ZSZ)0Z36ZN$ZN$((ZSZ)):ZZ1:33220+΁ZT(ZS)++_+`+jD$(13)(4):NUM(A)(A)(A1)256",tM2$"Make another selection.":KF16368:KB16384:KH128:HT1D$"BSAVE MECC$$DISK,A"ZS",L$28"*BWP(WP1):ZE4ė:VP,10::"Please remove the write-protect tab from your "QT$(T)" diskette.":WP2:30000:33000*KZU0:*LDRIVE STR$+VD1$",S"((953))",D"((954))",V"((955)):D2$",S"((956))",D".":30000:31000f)ZV(ZE7):"Please insert your "QT$(T)" diskette for "QN$;:ZC2ĺ" in drive "ZD;)ZC3ĺ" in the drive located at:":" Slot: "(ZL):" Drive: "(ZL1);)".":30000:33000).WRITE PROTECT)0WP33099 *8ZE0:ZE(ZP):ZS704:ZL9503ZD:ZC(907):ZV0:ZT$D1$:ZD2ZT$D2$(ZE0:ZEĺD$"BLOAD MECC$$DISK,A"ZS;ZT$:33200:(TZT)(QN$ZN$)33070):VP,10::ZVZE7ĺ"The volume number of this diskette must match the volume number":"as set in Diskette SupportE16Ħ'd}PGRMR'S REENTRY:'n}ZE255Ĵ(919)031000:'x}:VP,10::HT,0:"Error "ZE" at line #"ZN" in Stuff and Fetch Main."::"Please report this error to MECC.":30000:31000'耲DISK VERIFY'ZU1:SET,ZD:CPRO,ZP:ZPįCPRO,ZP=(SPRO,ZPB?&:uVP,21::HT,24:958:"Press Space Bar to continue":ES0r&DuVP,1::KF,0:EX11:EC(KB):EC155ESES1&NuEX(ES1EC160)::KF,0:EC15531000&Xu&yESC&,y2000&}ERR& }ZE(222):ZN(218)(219)256:216,0:32000'}ZUZE0ZW,78,17,IP,TL,IP,BL,EC,MOD:K$(EC):MODGM13%N9%NR%KOMOVE,SA,(LE)(DA):X%LO%OVP,5::HT,0:MWODW,78,17,IP,TL:%O%OMWFRT,IP,TL,PH$,,,NIP,TL,FO:%xP%PMWMTD,IP,TL,LE,NIP,NTL,NLE:%P%PMWMTU,IP,TL,LE,NIP,NTL,NLE:&0uPSRLLE$-FSMBNTL12$-SABB:DARB:LEBL:20200D$-11500:11200J$-Y$.MOVE CARD$,.11500:SARB:DABB:LERL:20200:BBLE,0$@.$|.REFERENCE SCRN$.MWBUF,62600,1023:VP,6:MWODW,79,17,0,TK:ES0:30020:$ N$*NIP0IP0-%zNVP,5::MBMX:MWBUF,TA,TL:)#P-DEF MEM AS BUFFERO#Z-TAMB:TL(MEMB)1:MWBUF,TA,TL:`#-INSERT CARDp#-KIIP:KTTL#-11600:IP(REMB)1:TL(FSMB)1:RL(RERB)1:BLRL11740:BLRLLEBLRL:20700:RERELE:RLRLLE:11730$-LERLBL:20600:RERELE:RL",11500:CFPP,4,58,4,5,70,76,0:33,1:34,23:23:PINIT:(952)011450:FPRT,BB,1,MO,EC:POFF:AK(EC0):11499",T1$"Unable to print, please prepare your printer or make another selection.":T2$SP$:AK1",33,80:34,1:",DEF BUFFER#,TABB:TL______________________________________________________________":I119:(22):I:34,0]!+l!$,SCROLL UP!.,34,6:23::(23)"_______________________________________________________________________________":I119:(23):I:34,0!8,!,? CARDpwant to discard? ";:WL3:15:K$(PH$,1):K$"Y"K$"y"AK1:T1$T$(0):U +11600 +IP(REMB)1:LE(RERB)2:TL(FSMB)1:20600:FSMBNTL1:11500 +TL0:IP0:RL0:BL0:RERB:50:GM1 + +SCROLL DOWNW!+34,6:6::(22)"_________________ڍ卍䠠׍蠠؍庠󺍠䠠֍蠠ڍ򍠠àƠĠȍŠ΍򮍠庠󺍠򠠠  D1:WP0:33000:905,9:(904)1įRNH,"S AND F SETUP"LV'RNH,"MANAGEMENT"W\+TRASHf+(RBMB)(RBFS)(REMB)(REFS)RL0T1$"There is not a card to discard.":T2$M2$:AK1:11170J z+40:"The card will be permanently lost. Is this the card you T0DD$D2$e'D$"UNLOCK S AND F DATA"DD$:TLFSMB:MWBUF,MB1,TL,61440,818:MWS,TL,"S AND F DATA"':VP,10::HT,0:"Do you want to leave this database? ";:WL3:15:K$(PH$,1):K$"N"K$"n"K$"Y"K$"y"10010'K$"N"K$"n"ė:6L'T0:ZTLBL:20300'EXIT4'GM(905)210010':VP,10::HT,0:"Do you want to save your cards? ";:WL3:15:K$(PH$,1):K$"N"K$"n"K$"Y"K$"y"10002'K$"N"K$"n"10010 'T(905)1:K(T0):TTK:ZD(T0)1:WP1:33000:DD$D1$:BRL1:A2FS:DR1A1FSıT30:RBA1:READ1:RLRERB1:11800:11400:7120[@?EAK0:BL0((A1FS1A1MB)CH3)T1$"There is not a card on the screen to print.":T2$M2$:AK1:8099 T33,1:32,78:40:32,0:33,80:1:100:11400:AK71ll40:1:X2:Y6:SKIP7:AK1T1$T$(0):T2$"Please prepare your printer. Then press the Return Key."v100:HIL7:150:L7CH:CH2ı{33,1:32,78:40:32,0:33,80:1:1007100:50:7020? ALLRBMB:RL0:AK0AK0ıA1R00:MWBUF,BB,BMX:6400YT1$SP$:T2$SP$:MOD(BLNIFSMB12200)İ11700:BL0:IP0:TL02MOD(BLNIFSMB12200)T1$"The card cannot fit in the database.":AK2:6420<AK1AK0cdGET CARDx11800:IP0:TLRL:20300:X? ALLbLTRASHBL0RL09AKT1$"":11100:AK1RLRL1?IEDIT AK0:BL0A1FS1A1MBT1$"There is not a card to edit.":T2$M2$:AK1:6499T2$T$(1):AKT1$"Type information on card."40:1:100:NIBL:20000:TLBL:EC18İ119WRDEBP2:AK1:FSMB3T1$"There are no cards to scan.":T2$M2$:VA1RB2:A2MB:DR1:A1MBT1$"You have gone past the first card. You cannot scan backward.":T2$M2$:50:RBMB:RL0:j50:30:RBAD1:REA1:RL(RERB)1:6500:AK0~1:FSMB3T1$"There are no cards to scan.":T2$M2$:A1RBRL1:A2FS:DR1:A1FS1T1$"You have gone past the last card. You cannot scan forward.":T2$M2$:50:RBFS:RL0:619950:30:RBA1:READ1:RL(RERB)1:6500:AK078SCAN BCKMB:RL0:CH1:60505HP,0:AKT1$T$(0):T2$T$(2)b100:AK1160,150:CH5T1$SP$:T2$SP$tL6CH:CH6ıBLTL:CH6100,6200,6300,6400,8000:HIL6:K$"":40:1:((CH3(CH4MOD))AK)CHP:HIP:TL0:IP06030SCAN FRWRD7P1:AKyou want to find and press the Return Key."::I180:"_";:In6WL60:4::" ==>"72)"<== ":4::HT,5:15;IP0:NIP0:AK(PH$)1@pSCAN CARDSzKK0:L61:BL0:TL0:T1$T$(0):T2$T$(2):40:1:X6:Y5:SKIP1:HIL6:100:11500::195::RBБ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! <!=!< =Ѝ ,  T1$T$(0)" "T$(2):T2$T$:P$PH$:11100:K$"Y"K$"y"AKNIPRBMB:NIP0NIP0cPH$P$:sINP PHRASE"T1$SP$:T2$SP$:40:1:I180:"-";:I:" FIND CARD: |"25)"Enter Phrase"25)"|";:I180:"-";:I>," Type the word or phrase MB1):50:IPKI:TLKT:EC18İ20300EpEC18NIA1MB:11900:5230sT1$T$(0)" "T$(2):MODBLFSMB12200T1$"The card cannot fit in the database.":T2$M2$:5299EN1T1$"There are no more cards in the database.":T2$M2$TRASHV1_FO0T1$M1$:T2$T$:cd100:L51:A1MBNI:A2MB:DR1:TG1:30:RBAD1:RBFSEN1:5255$nA1MBNI:A2FS:DR1:TG1:30:READ1:RLRERB1:11800:11500:IPNI(RBMB):NINIPL:11300:TLRL:20000:NIAD(MB1):MODBLFSMB12200İ11700:NIAD(NIP:IPFSEN1:5255^X(PH$)1M1$"There is no phrase to find.":T$M2$:L53:FO0:5215Z11600:FO0:20400:BL0:RL0:M1$"The phrase is not in the database. "M2$:T$T2$:L53:IP0M1$"There are no more cards containing this phrase. "M2$:L5H1:HI1:5135HIL5:1504 AK0:L5CH:CH5ı\CH5200,5300,5400,8000:40:1:100qCH35105:5120PFIND NEXT CARDSFSMB3AK1:FO0:T1$"There are no cards to find.":T2$M2$:U50:1:(PH$)0T1$T$(1)(SP$,31):T2$T$:EN0:IPCH L41[50:40:1:X3:Y3:SKIP5:T1$T$(0):T2$T$(2):HIL4:100:150:L4CH:CH3ısCH5000,6000:4020~FIND 5400:IP0:NIP0FIND MENUL51:BL0:TL0:40:1:X5:Y4:SK1:AKT$"Phrase to find: "PH$HIL5:100:L51C0)(BL0)İ40:T1$"There is no card to put into the box.":T2$M2$:AK1:3240 FSTLMB12200İ40:T1$"The card cannot fit in the box.":T2$M2$:AK1:3240 DAMB2DAMB1:FSDA 20200:FSFSLE:FS,1:FSFS1:11200:IP0:TL0:BL0 FET0:CH3100,3200,8000:AK3035:3020.  TYPE & X4:Y2:SKIP2:T1$"Type information on card.":T2$T$(1):40:1:100:MWBUF,TA,BMX:11300:20000:TLBL:EC18T1$SP$:T2$SP$:40:1:100:11900:3110  20300: FILE CARDM SABB:DAFS:LEBL:(TL 40:1:X4:Y1:SK3:T1$T$(0):T2$T$(2):HIL2:100:150:L2CH:CH3000,4000,7000,10000:2040j STUFF 11500:L31:IP0:TL0:BL0:50 40:X4:Y2:SKIP2:T1$T$(0):T2$T$(2) CH3İ40 1:HIL3:100:150:EC0:L3CH:CH4İ50:RL0:$ AKPASS HILITE :195:6 K$(13)CHOICEHILITE:l K$(21)İ195:HILITEHILITE1:HILITEXHILITE1 K$(8)İ195:HILITEHILITE1:HILITE1HILITEX 150 1::HT,MTB(HILITE,Y):SKIP)MU$(HILITE,Y)SKIP);: MAIN L21:_A2DR:(I)RSADI:39 ## '2 (CLR TEXT S *34,3:35,5::34,0:35,24:d 2CLR MW AREAx ;34,6::34,0: d? CHOICES nL1$;:I0X:SKIP)MU$(I,Y)SKIP)"|";:I:L1$; T1$:T2$:L2$ GET HILITE :195::10:165 B,KH:K$((KB)KH):KF,0:AKEY(B0)127(B1)127:Z(0)V K$(27)(EF)EF1:11{ K$(27)EFİ10000:54915:2000 EF0: WORD INP EK1:PH$"":MWIN,0,WL,PH$:PL(PH$):EK0: SCAN MEM VP,2::HT,0:T1$:T2$:L2$;:AD0:IA1(STUFF AND FETCH1PROGRAM: S AND F MAINLPROGRAMMER: DAN MILESjCOPYRIGHT (C) MECC, 1985LAST UPDATE: 85/07/17 KWN1638432000 60000:QT$(0)"program":QT$(1)"data":QT$(2)"master data":2000 KEYPRESS9 KF,0:K                           tt#????``  ɀ8L7~ɍ,&0ɠ#,~0pF~,~p08@~з~)<])< 0 -a~,`~< L}ʊ8BC,~0,*0 H Bh Ɓ TL},+0 TL}~ ~ L}~`  - ~Ȅ< v` M` BCBCBB0 Ƀ,T,X~iP~-Y~iQ~%"m#$ !mJ!!<=<=<< <=<< 8J, " Ƀuu<=  D`~L~8 ~ ~vɛ8ȥ q| r|`亠 >=?@3<>)=eA=?eA?A@ <><>=?`, ||,|0|N|8 ,|0 ||L|R|| р }|0||| {L{8BC B{L{ BeBeCtri{urj{ ȑ {3,ň剰iL\{{8BC쥉 r{`Hkrh !qH rhL|) |,frgr􄅕?z.@z0?z?z@z,ɛ,AzNAzP,Bz0LLp>z >z` D` D`z y8 7y"Lx ɛ ɠɍ,`а ,,i,,`Hfr{grh q{L{)`@yA8 f` BC xB@CA f`Bzjymyy Ѓy yɍ\Ɉ?ɠy0yyޮy ,y 8 yyyL^yyyyy L^yy`>zAz,>z0>zN>z8 ,>z0 ?z]@zLz 2xAx Ww,Mx0 wGxAx`hhhh dv`Mx`eȢ r`KF:xxx>>x ш,x0 >@?Axxx͢x,x0>?(лL[x(`(8`xBeC 聭xB B<=>?B@CA eBeC` # DUwUwUw 2F;)2LwUw ;9w<:wVw Vw) @xNLx`8`, ,,`@xwOx WwN ɍNLx' JxIJxLw Ww,Jx Ww WwwʭBxw WwɛAxwꩀ`,8`Fx w Www`Hx w Www` v dw w,Mx dv`Nx`ExCxOx8CxOxDxDx8$`,@v y,,`΍@xȱNx`@xm@x`,Ix8LvLxvvvDx3A ɠ,v 扈,v0݌v NvɍvLv8nLxv0@x`@xIx`ɮXuuuuuuuu` uu uBuuuu uuuuuuuuuuuu$8 Ƀ`H uuuhuuuuuu uuuuuuuuuu Ƀ`,,` @v(JxIxLx v@xGxAx w rv v v -t,u08劅B勅C t Lx$8nu ]tLx`ƋƊ ɃH iuh tٰ$8 Ƀ` t셊텋BCBC u t t,u t t7 tBCBeBs >s?Ȑ۩`?)8鍸ζ`H88HH$8nu셊drer (r` qvrwrvrwrnr`crvrwrL_r drcr  nr`8$nr rɭɫ rr, 2xEAr,r0Pr0ExLrCxpmrLr8r,r0ExCx8CxExDxDx$8`ssesfsjsDDhE8 `D>ʱD>`$8qqq(q pLq>tr?ur@rrAsrBprCqrDlrvrEmrwrqq̿q Dhrirjrdrerq (r Bnr` 8`jrkrdrerhrirlrmrq (r`p;L+pvpwp+pL֎ɯLpC 8ɀ   Lޤȱ 0:,јe湥 ipip , ,`vpwpL ֩PyQ AL<=ʱD>`   <= <ȭ<ȭ<ȭ<ȭ<><ȥ?< <<= H <=I<<`>? q*p"ә>ԙ? qp 6`əșǙ@A Ù   `@ i @ ȱ `,` {ݩD ^ D`˙D̙ED`<=ә?ԙ W  e,LLLX 7$)6ә>ԙ? qp6 G 8`L/g8hegiȱehj8ȱ7jU8ȱV8ȱɱ  n Rp nco n Rp-cococo \pLnbodobo^` , g 掍p ,`o spp) p pp)p ߅ l eo ) L{?p,p0- HHHp hhh ɛn?p,?p?pPLAp?p,p  Fi`+ FiR("  Fi5880`L ppp`oppp ( spL3o {$0$ 掎pnp ,L o {$0LoN`o doLnbo nH-?npLmPݩ $mhhhhhhhhh,mp` ֩PyQ ALŠҠ僁zi{imiʈ}i~i &',|iq&i,$20Li N8`-g `.-g`mm ` ң Σ @)`,` j ެLj,H%l  (l  h,,(l,`L, HHHHHHHHH k m jmNO,ɍɠ ɛ8nm,3f̙jj ߅$0jj  c`Lvjj j` Fizi{i|i FimHihʍ}i~ii LiL H g Rh PQ`L   )?` `zi{i lgi`ji}i~i lgiZjiíiB|i vg&'i jQ&-iQ&&ȭíi j& jQ&-iQ&&|i|ii`i-ii|i vg&'i jQ&-iQ&&|i|ii`*U U*ժ j')JMj)i Q&,iP 0=j`j`J&)` `LhPjjjjjjj0jj) i0ȱjij iiiР`8pPH)8 qȥq8)h` g R  QP (`L Fi`L)  @ igjiisjiighggmgig`8pggJJJ) }hkggmigjg`((((PPPPiHhii iJ` &eeiei lgiIihi i vgmiiMi@ f f "g`L?c 7e#g$gLtf -`,"g`zim{imʈ}i~i|iʎi$20Li gighg`ggig gjgkg`gg g gjgkghg`ggg8pg.g(8#gH$gJhj`m#g#g$g` ?c 7e` ?c 7eI``,L 7ee80 " fm8h)` 7eem88eLf` 7eeme` 7e8`,gLf fɝS```%g穀,g +g`%g3&g'%g%g ``) ``%gʽ`) ` `%gH`mS` *eS`)e`e ie 6he}`m%g8#g$g`+g` 7eL?c,0*`%%g (g#g&g$g'g,gh`%g "gS```em#g#g$g)g *g`em)g)g*g`) %g+g)g*g$g#gO,0 `)  7e`+g(`HH%g,P#g88`&g d fhLc%gH+gH(g%g,P d fh+g8h+g%g)g#g*g$g+g``S`c i "g$20 L6h,o 8ɀ   LX8e湥 pHpH ,L`@ @ʩ WRPT` J  *eȱȱȱ` i%gH) #,,g h`` %g tf%%h $20 Lc $ aHaH`6eeeWeeefBfsffffgggg(bb, 7e gc,g i"g$20 6hNO0 b@íH bhH ,aɈ5hH gcb% i)H fh "g$20 6h gc Cf,bbh` g````L` ccԍb q$% `@ ?aDa6 ,-gL?cLfHa bHaa,,aaɠ,ra ` a欅aah,`ɀ)?  @IH gc$ 7e Cf$%0 7e         z!#?   îԠ Ϯʠ ЮԠԠ$ ӠĠƠΠ* ӠĠƠР!̮ʠ"ӠĠƠԮʠȮʠàҮʠ! ҠŠԠ1Ԡ$̮ʠ̮ʠ үҮʭäˠƠĠȠϠՠҠԠҠӮΠŮԠϠDRIVE STR$rVD1$",S"((953))",D"((954))",V"((955)):D2$",S"((956))",D"((957))",V"((958))xGET DISK NAMEZN$"":Z1ā(ZSZ)0Z36ZN$ZN$((ZSZ)):ZZ1:33220΁ZT(ZS)ZC2ĺ" in drive "ZD;+".":5000:33000>.WRITE-PROTECTM0WP33099|8ZE0:ZEĺD$"BSAVE MECC$$DISK,A"ZS",L$28"BWP(WP1):ZE4ė:VP,10::"Please remove the write-protect tab from your "QT$(T)" diskette.":WP2:5000:33000KZU0: LBLOAD MECC$$DISK,A"ZS;ZT$:33200:(TZT)(QN$ZN$)33070:VP,10::ZVZE7ĺ"The volume number of this diskette must match the volume number":"as set in Diskette Support.":5000:31000ZV(ZE7):"Please insert your "QT$(T)" diskette for "QN$;:DRDC)1:958,0:DC3āZ02:956Z,(LL37Z):L 975,255: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,0 }:SL :SL )230,64:8192,"LOGO":16304,0:16297,0:16299,0:16302,0:8192,"DSUPUTIL.OBJ":RFL,"PRINTER COMMANDS.BIN"P(948) 909,0 (940)128āZ14000::90001 LL704:RFL,"MECC$$DISK"LL:DC(LL36):907,(740):953,SL:954,DR:955,VO:956,SL:957,( STUFF AND FETCH*PROGRAM: HELLOHCOPYRIGHT (C) MECC, 1985g(LAST UPDATE: 04/25/85 KWNs32000:(4)"MAXFILES1":::P(X)(X)(X1)256:LP(P(999)):SL(L1)16:DR(L2):VO(L14):(4)"BRUNHELLO.OBJ":(941)489000t   :"St. Paul, Minnesota 55126":"(612) 481-3527"FR30000:CL$:WINDLyVSP,4:CL$:::"Use of Esc Key"CC$:: "You may want to quit in the middle of a program. If so, press the Escape (Esc) Key twice whenever the computer is waiting for ae use of this diskette is available from MECC.":VSPt49:" Title: ";CA$;:GCP,ZX,ZY:TI$:PA$""įCO,ZX:PA$>12:" Direct inquiries to:"::" "CC$;:GCP,ZX,ZY0H:WIND,ZX,ZY,279:CO:"MECC Distribution":"3490 Lexington Avenue North"392L,YL:2392L,YL269,YL::1XGEN INFOQbCL$TI$CC$:PA$""ĺPA$CC$lVE$CC$::::GCP,X1,Y1:WIND,20,Y1,260,191:COvVSP,4:DS$(1,1):30000:BOX:CO:DS$(1,2)30000:VSP:WIND 4*CL$:CO:VSP,10::"A manual to aid in th2DXL,Y1LX2DXL,Y1DYLX2L,Y1DYLX2L,Y2DYLX2DXL,Y2DYLX2DXL,Y2DYLX2DXL,Y2LX1DXL,Y2LX1DXL,Y2DYLX1L,Y2DYLX1L,Y1DYLX1DXL,Y1DYLX1DXL,Y1L:#YY2:1:L02:9,6L432L,6L:2352L,6L269,6L:9,YL1LX2DXL,Y1LX2DXL,Y1DYLX2L,Y1DYLX2L,Y2DYLX2L,Y2DYLX2DXL,Y2DYLX2DXL,Y2LX1DXL,Y2LX1DXL,Y2DYLX1L,Y2DYLX1L,Y1DYLX1DXL,Y1DYLX1DXL,Y1L::6:X10:Y10:X2278:DX18:DY12:L02EX1DXL,Y1LX1015,(911)::12:"Getting "F1$"...":905,0:RNH,F2$@IENDuCL$:11:"Insert another diskette."CC$30000:CL$CS(P(P(999))1)16: SLOT #CS1CS7CS6CS:p1:X11:Y10:X2279:DX10:DY8:L02:X1DXL,Y:11:"The sound is now turned "SB$(((975)))"."CC$:30000:2000R AS(6)5000]CHAINh16384900,0:A1F2$CN$(A):F1$MN$(A)ANPAS(2)A1ĺCL$:HSP:VSP:CO,0,89:"Getting "F1$"..."&ANPAS(2)A1ė:UNHOOK:1014,(910): no management options available.":30000:2000n AS(2)A1F1$"the management options":F2$"MANAGEMENT" AS(3)F1$"Printer Support":F2$"PRINTER SUPPORT" AS(4)F1$"Diskette Support":F2$"DISKETTE SUPPORT"A AS(5)Ĺ975,((975)):CL$ Support":4NN1:4(N9):S(4)N:N". Diskette Support"^HNN1:4(N9):S(6)N:N". End"q USER'S CHOICE :GCP,ZX,ZY:ZY160įCO,ZX,ZY4 "Which number? ";:9000:WIND AS(1)İ7000:2020/ MOA1ĺCL$:VSP,8:CO,0,75:"There areX20,ZY:L".":CO,ZX,ZY:MN$(L)::W GCP,ZX,ZY:WIND,ML,ZYSP,270:CO:"Options:": NNP1:4(N9):S(1)N:N". General Information" N = N + 1: HTAB 4 - (N > 9):S(2) = N: PRINT N". Program Manager":MO = 1 *NN1:4(N9):S(3)N:N". Printer53:AFT,1:CO$:HSP:VSP:WIND:(975)255Ĺ975,1:8000B AFT,1v CL$:6000:CO,0,MT:CN$TI$CC$:PA$""ĺPA$CC$ CO$:GCP,ZX,ZY:WIND,ML,ZYSP,270:CO:"Program";:NP1ĺ"s";# ":"::GCP,ZX,ZY:WIND,81,ZY,270,191:CO:L1NP:GCP,ZX,ZY:CO,ZP2:MO1:TI$"MECC Stuff and Fetch":PA$"":VE$"Version 1.0"\ jMN$(NP),CN$(NP),DS$(NP,DP) tL1NP:MN$(L),CN$(L):L11DP:DS$(L,L1):::(909)2Č24768 DISPLAY MENU 230,64:Y2191:Y185:X158:CO$:245767 909,0:DFT,1,30210:DFT,2,2997S:  | :RFL,"HITITLE.PFT"30210:RFL,"C.FNT"29953:(21):(909)2Ĺ910,(1014):911,(1015):RFL,"PPRINT.OBJ" 15128 CA$(1):CC$(3):D$(13)(4):CL$(12):CN$(14):CO$(15) MT13:ML37:SP0:P(S)(S)(S1)256< `NP1:DS,Y1X3S,Y1:X2S,Y6X3S,Y6s XS,Y2X2S,Y2:XS,Y5X2S,Y5:X,Y3X7S,Y3:X,Y4X7S,Y4: 3:X,Y3S:X7,Y3S:X1,Y2SX1,Y3S:X6,Y2SX6,Y3S X2,YSX2,Y2S:X5,YSX5,Y2S:X3,YX3,Y7S:X4,YX4,Y STUFF AND FETCH)PROGRAM: MENUFPROGRAMMER: P. BOUCHARDd(COPYRIGHT (C) MECC, 19852LAST UPDATE: 85/06/19 KWNZ32000c1000dXZX:YZY:S1:ZF1160xZF1XX7:S1:ZF3XZX:YY7:160% 3:X3S,Y:X3S,Y7:X2          ;:360002Z$"N"ĹPP2,0:PP3,255:PP4,255:BOX:CO:"Please type in the special commands for your printer. Type an extra 'RETURN' when you have finished."L111:CT1:HSP,2L215:42L2:6:CA$;:CEW:"PRINT "Q$CA$;:GCP,QX,QY:8COMM CARDhbBOX::4:"The printer interface card may be in any slot 1 - 7. (Most commonly 1 or 2.)"l9:"Which slot is your interface card in? ";:INP,(1,"-17",1),ZN$:ZN(ZN$):PP,128ZNv13:"Does your printer require any special commands? "h speed (usually 30 cps)"::" 2. Low speed (usually 10 cps)"w:"Which number? ";:INP,(1,"-12",1),ZN$:ZN(ZN$)PP2,128(ZN1)14:"Which slot is the communications"::"card in? ";:INP,(1,"-17",1),ZN$:ZN(ZN$)PP,ZN: XNOT A ",L128" PID FIELD5ZL120:PP106L,0:d7:"What printer are you making these"::"settings for? ";:INP,(20,"- z",0),P$:LP(P$):LP0ınL1LP:PP106L,((P$,L,1))::pSET COMM CARD?zBOX:3:"You may use:"::" 1. HigCP,ZX,ZY:WIND,ZX,ZY:"Any other type of printer interface card (such as a serial or parallel card)"WIND,Q1,Q2,Q3,Q4:::"Which number? ";:INP,(1,"-12",1),Z$:ZN(Z$)ZN6000,7000PP1,66:BOX5200:D$;"BSAVEPRINTER COMMANDS.BIN,A"PP:J96127:(J);:::::FEEDWPOFF:24576:11:" Printer test complete.":30000WIND:CO:"Printer Support"CC$:WIND,Q1,Q2,Q3,Q4:SET NEW OPTIONS3:"You may use:"::" 1. An Apple Communications Card":d" 2. "CA$;:GPI,0:6 D$"BSAVE PRINTER COMMANDS.BIN,A"PP",L128"C 30000:YTEST THE PRINTERBOX:9:"Please prepare your printer...":30000CL$:9:"Testing the printer...":D$"IN#0":D$"PR#0":PINIT:"Printer Test":I13:J3295:(J);::  L2: L1:HSP,1:- PRINTER TYPE| :" Type of printer:":HSP,2::7:L120:((PP106L));:::HSP,1: RETURN TO DEFAULTS  8:"Now returning the printer settings to"::"their original state (slot search)..." I0127:PT SPECIAL COMMANDS4j " Commands:"::CT2:HSP,2Wt L115:(PPCT)0L15:2470~ 7:"PRINT "(34)CA$;:L211:P(PPCT):CTCT1 Z(P0P13P32):ZPP64::GCP,X,Y:BOX,X1,Y1,X6,Y7,3 L2(P13):PP21L2:(P)CA$;::ZįCO,X9,Yet to '";SD$;"'":"(usually ";SD;" characters per second)."V ::(PP107)0İ2500c 30000:q USER SET  CO:"The current printer settings are:"  :" Slot: ";(PP)128:  (PP2)0İ2400 $ (PP107)0İ2500 . 30000:` PRIN::"each time the diskette is started up."8 H30000:G COMM CARD 3:"This diskette is currently set up to":"expect an Apple Communications Card":"in slot #";(PP);".": SD$"LOW":SD10:(PP2)127SD$"HIGH":SD30; 7:"The speed is s00,4000,31040 BL00:L06 CHECK CURRENT SETTINGSU JP1((PP)0)((PP)127)n JP2100,2200,2300:| 4DEFAULTS+ >5:"This diskette is currently set to the"::"default setting, which is to search"::"slots 1 and 2 for a recognizable card"settings":b " 3. Return printer settings to their":CO,38:"original state (slot search)": " 4. Test printer settings": " 5. Return to main menu" $::"Which number? ";:INP,(1,"-15",1),ZN$:ZN(ZN$) 8BOX:CO:ZN2000,5000,30(34):VSP:HSP,1 RFL,"PRINTER COMMANDS.BIN"PP:24576:WIND:CO:"Printer Support"CC$:Q10:Q220:Q3279:Q4191:WIND,Q1,Q2,Q3,Q4 MENU L011:BOX:CO::"You may:": " 1. Check current printer settings": " 2. Change printer  PROGRAM: PRINTER SUPPORT<PROGRAMMER: P. BOUCHARDYCOPYRIGHT (C) MECC 1983y(LAST UPDATE: 85/03/29 RPB 2HI-RES VERSIONdINITIALIZATIONxD$(4)::P(19):RNH,"PRUTIL.OBJ" PP(948)(949)256:CA$(1):CC$(3):CL$(12):Q$     &x0003f<ff<cc>cc>>cc>0000000t` ```````8pt8<0`0``0`00000`Z<`~~6    BEgIU gIU=B?DB?B3L3A?L?BH3L N?BpC-E*JRDrDGJBFBEgIuB|Ap@B@JPBGPECB@pB|DB|p@srEp|?OBpF|Bp@ NKLB@BH3L3G?KI*RB~P~C*HBG*L~N~BaAy~N~xNHffJHIUN?GB?DB?AUMB?DB?B3L3A?L?BH3L N?DI*KPDrDGJBF3LX?EHUJI*W xzz{{z~J*UUCA~z{;KOoB UU*ffBBNfX`WBH*JIU\?NU**D  **UL3LBEBEB8`B3 3EB@N;n;l0@WGUJI*YQ T  yfBQw]w\p@GBNw]vX`DBxOOIUU?@ppB|DINH*JIUPE*Jr|?#( BPu_UC?PVP|O3LBS;n;l0@DB@RI ?LHUJI*PAUey~GQ!hz>/kz~C*UUFy9)iYYBy UU*fBEB`ExB`ABBHffTIH*JIUPj C/#( BPt}_Wu}?GU**B_Wu}}kzC **U3L3BB|N|pNH C~U**SBUuBUBBBAIRACJIUR?/+D*C*UUQ?B*uB*?B|BBAINHWJI*PWHUCU**NB}ABxBAINH*JIUPI*C*UUJ?n@Z?BpAINHUJI*PHU`CU**GX`CxS]vX`ZBu}?OSPUQAq|JB*Rxr~|B~LxCsIB*BBBAIGy8B9 0yy`yyIcCs?I*C ')jz~')Z* bx~MBUuBUBBBAIIpCfAsqBsaC~~BIUB|}}sOSTNUACUBBUEq|QB*uB*BBBAIIALLAOaBaBLaJI*FO~^VTUBBBAII<8C BOCAByAIUM`?KB*IaLB|La? BCBLCOOLIB*BBBAIIp?xs8C ypr3sgcBgCI*J')jxb\ IBUICByC|9?B?AAyxByxBIBUBBBAII`~pgpCpg`f`CCyIUF ?OSTIOCOACyCCJyyAByIBUBBBAIIBgCB3 pf~pgfpIUB@@GppBpUB*I3102B3AAggg'C?3C3sIB*BBBAIIOOCBfgCaL@|AI*Bx_yxUBUI`~~p~~`CBgfCCfAAONNOIBUwGLHB*uB*BBBAIPaDsaJI*BD~~A~F?/ok{z~~J`yHBUuBUBBBAIGgCC`CLJIUBD@psssGsKspHB*uB*BBBAIIBsGsaBsBA?A?BI*BGBUBUU*H?A=0?3B?**UUD pp|@p|BINHUJI*IECBGP~x`QffPA* %R$A% **D?`x~BAINH*JIUI@DOCB|A< << << .njzzF~fF~xBUu~BU~CBBAINHjJIUBM?JB}UWWyyDyUU**DffT`x~DH*JIUID?B0B$':"Which numis will prepare a diskette to hold "T$(U1)" created while using "N$".":"Whenever you need to make copies of a "T$(U1)" diskette, use "QU$"Copy a "T$(U1)" diskette."QU$" You should make backup copies of a "T$(U1)" diskette every time you make signif disk drive setup."QU$" ";"The rest of "N$" will use this information to make multiple disk operations as easy as possible for you.":30000HCO,0,27:CEW:CRĺ"If you need a new "T$(U1)" diskette, select "QU$"Create a "T$(U1)" diskette."QU$" Ththe disk drive setup, and to ";:CRĺ"create and ";U{"copy "T$(U1)" diskettes.":"The current disk drive setup is displayed at the top of the "QU$"Diskette Support"QU$" menu screen. If that setup is not what you are using, select "QU$"Change thes ? for help.":CO,ZX,ZYL.INP,(1,"-1"(4(CR))"?",1),Z$:Z$"?"İ19008Z$"?"Ĵ(Z$)((CR)((Z$)1))10000,15000,20000,31030B1000lHELP13vCL$"Diskette Support Help"CC$:::QU$"Diskette Support"QU$" allows you to view and change disk drive setup":CRĺ" 2. Create a "T$(U1)" diskette"%" "2CR". Copy a "T$(U1)" diskette":" "3CR". "CA$;:GCP,ZX,ZY:WIND,ZX,ZY,279,191:"Return to the Stuff and Fetch "NN$" menu":WIND):"Which number? "CA$;:GCP,ZX,ZY:CO,0,180:"Pres(954):PV(955):DS(956):DD(957):DV(958)3IWRITE/READ ERRORZE8ė:12:"This "T$(T)" diskette is damaged.":30500:EF1:IS34:32040MAIN PROGRAMWIND:CL$"Diskette Support"CC$:2009$:"You may:"::" 1. Change the create a "T$(T1)" diskette from this diskette. Be sure that your disk drive door is shut.":30000:r ZE32040x  RESTORE DRIVE SETTINGS 953,PS:954,PD:955,PV:956,DS:957,DD:958,DV:35000 W XGET DRIVE SETTINGS-bPS(953):PD INIT DISK: ZU1:ZE0:ZEĺD$"BSAVE JUNK,A0,L1"DT$ ZE4įCO,0,162:CEW:"Please remove the write-protect tab from this diskette.":30000:CO,0,162:CEW:410 ZE0:ZEĺD$"INITHELLO"DT$:D$"DELETEHELLO"d ZU0:ZE8įCO,0,140:"Unable to disk drive setup ";:"(data diskette in slot "(S37)", drive "(S38)", volume "(S39)")":WINDh + ,SLOT,DRIVE,VOL INPUT 6L$CA$;:GCP,ZX,ZY:CO,115,ZY:"["DF$"]":CO,ZX,ZY:INP,(M,I$,0),DL$:DL$""DL$DF$ @CO,ZX,ZY:DL$CA$;:CEL: data":T$(2)"master data"* 901,1:1000B SHOW CURRENT SETUP CO,0,27:"The current setup selection is:":(S36)1220,230::" one disk drive":: :" two disk drives"::b " "CA$;:GCP,ZX,ZY:WIND,ZX,ZY,279,191:"a special"" x35000::(905)5130l }910,(1014):911,(1015):D$"BLOADPPRINT.OBJ":(21):24768:24576:CO$ WIND:S704:S0654:RFL,"MECC$$DISK"S K64((941)63):ZSS:38000:N$ZN$:600:NN$"main":(905)5NN$"" U11:T$(0)"program":T$(1)"/ DISKETTE SUPPORT5PROGRAMMER: A HOLLENBECKRCOPYRIGHT (C) MECC 1984q(LAST UPDATE: 85/06/11 SLLd901,0:32000f(4)"MAXFILES1":16128:230,64iCR1kPN$"Stuff and Fetch" nD$(4):CA$(1):CL$(12):CC$(3):QU$(34):N$               K$"y"K$"N"K$"n"510:599A&K27ESES1:ES1599:520r,Z(K$):(K8K127)Z0K$(K$,1,Z1):520-(K8K127)Z1K$"":520.Z35200K$K$(K):ES0:520WVP,Y1::X:K$" ":XNUMERIC INPUT bI0:868:16368,0"DT$PD$"OPENS AND F DATA":D$"WRITES AND F DATA":"":D$"CLOSES AND F DATA"VeY/N INPUTZ0:ES0:16368,0:K$"":VP,Y1::X:958VP,Y1::X:K$(127)" ":K(16384):KK128:K0K0:520 16368,0:K13K$(K$,1):K$"Y"ve door is shut.":100:" ZEıc ZS704:33200:CBS,ZN$".",AD:ZU1:ZE0:ZEįDW,0,00,0AD ZU0:ZEįDW,0,00,0ADAD16128:DR,17,017,0AD:AD60,255:AD61,255:AD64,255:AD65,255:DW,17,017,0AD:ZS,2:D$"BSAVE MECC$$DISK,A"ZS",L$286:"Please remove the write-protect":"tab from this diskette.":100:15:958:400 ZE0:ZEĺD$"INITHELLO"DT$:D$"DELETEHELLO" ZU0:ZE8Ģ15:"Unable to create a File Collector":"Master diskette from this diskette.":"Be sure that your disk driWL,FS,FS,"S AND F DATA",FS,FS:M :11:"Your master file is full.":100:f ,SAVE FILE TO MASTER @T2:ZD2:WP1:33000:MWBUF,53250,12200:MWS,FS,"S AND F DATA":  ----INIT A DISK---- ZU1:ZE0:ZEĺD$"BSAVEJUNK,A0,L1,"DT$S ZE4Ģ10:23:868:6:"Press Space Bar to continue";Q xZ(16384):Z160Z155120i }K$"":Z155K$"E"r 1: LOAD MW FILE FROM DATA DISK MWBUF,16385,12200:T1:ZD1:WP0:33000:MWL,0,0,"S AND F DATA",TL,TL:TLFS12201įMWBUF,53250,12200:MQT$(0)"program":QT$(1)"data":QT$(2)"master data":33200:QN$ZN$:33100:VP37:HP1403:CK0 7(905)0įRNH,"MECC WRITER.OBJ" <MWBUF,53250,12200::(21) FLO(X)X(X256)256:HI(X)X256 c1000 d ----PRESS SPACE BAR--- . n16368," PRODUCT: STUFF AND FETCH5PRGM: MANAGEMENTKPRGMR: DAN MILEShCOPYRIGHT (C) MECC 1985LAST UPDATE: 85/08/06 KWN(16128:32000060000:ZS704:RFL,"MECC$$DISK"ZS\ 2CQ$(34):CA$(1):CC$(3):CL$(12):CN$(14):CO$(15):           &L`L 䎱 掲`SEDDFMRFRNđ֑aϒ `>? :p">? %p gg^h_^`ȱ^Șe^^_iȑ^^_@A   䔠 `@ i @ ȱ C`,X` {ݩD ^ D`DED`>? >&g eL׭<7=8X<=LXLX<= h$)g>? pg G 8`L38ghegiȱehj8ȱL< = <ȱ=8<=8ȱ G` M?> M=<8?+ e<#8>>> g R>P>Q?=<`L #H h` VDEBC@A>?  { RPgLl`N bDEBC@A<ȥ?< <<= H <=ÑI<‘<đÑ` ,, ,` , , L( L+ɐst+Lɯtd 8ɀ   Lޤȱ:,Әe湥 vHuH L`stL<=ʱD>` <=     iskettes to a "CQ$"master"CQ$" diskette.":"You may:"::"1. Create a File Collector Master":" diskette":"2. Add student files to an existing":" File Collector Master diskette"F"3. Use a File Collector Master diskette":"4. Make copies of955,PV:956,DS:957,DD:958,DV:33100:O ----INSTRUCTION SCREEN 1.0---- L1$"----------":I12:L1$L1$L1$:::L1$:23:L1$;)3:11:"Management Options"::"You may create a File Collector Master":"diskette to merge files from data":"d690 615*KLOKHIK$"":I0:620BY1:X:K$" ":ZS704:(ZS36)3ĺ" in the drive located at:"::" Slot "(S):" Drive "(S1);(ZS36)2ĺ" in drive "ZD;".":100: RESTORE DRIVE STRINGS(*953,PS:954,PD::K$"":K0BgK8(K$)0K$(K$,1,(K$)1):II1:K0:16368,0lY1:X:K$(127)" ":K(16384):KK128:K0K8K13IMK$K$(K):16368,0:II1:K27ES0:615vK0K0:615K27ESES1:II1:ES1699:615K13K(K$): 掲`ժՖՖխժժժժխՖխժCBCPRDDFILNOFILRFRNSNOPRSPRSEҕ 2k~U_jSX]P7 ` J `@ i @ ȱ z`,&` {ݩD ^ D`bDcED`7P `7P( ` ʊ F` &L`L 䎱 ޠȱL ȱ8쭣8ȱ>? :p"j>k? %p ͘g^h_^`ȱ^Șe^^_iȑ^^_`_^@A Z # { RPQ . ,L ͘Ll`Q ːeDbEcBfCg@hAi>j?k ' )͘ e,L׭XLXLX Θ$)͘j>k? p͘ G 8`Lg8hegiȱehj8L % J, ` % P, L p?> p=<8?. e<&8>!>> g R>P>Q .?=<`L #H h`STɹST` ST` L ː\DbEcBfCg@hAi>j?k ' `բ | L< | `z mzz{{ |z{{ `Uz_j`S縎X]`ѕҕ ߅$0ѕҕ  c`Lv { (^_ <= ޤ<=LL ]JJJJȱ<`Hha {8 $h`а ,,i,,`@@H?e@??h v@ ?88` , <= <ȭ<ȭ<ȭ<ȭ<><ȥ?< <H<= H <= I<<*>%>>*@%@@ 7E@L`ɪɭ`8` F` < mʒӒDMV %ɩ` Z ZLy< ϬȽ` <=<, X,lӠӠŠҍԠŠŠԠŠ͠ˍĠӠή`Ϋ  9$8` 8L6ɪɖ8*7-77*<%<<D>ʱD>` L&`EE݌$8`ab _݃`pab,~p8`dd<=/0<a {8 /᩶` ,Q,R,T X+JJJJ % "\  L+ɐvw+LfɯL' 8ɀ   Lޤȱ 0:,јe湥 PiQi , ,`vwL<=%ZC3ZL953(ZD2)3:" in the"ZN" in Management.":"Please report this error to MECC.":100:Q#耲DISK VERIFYt#ꀯSET,ZD:CPRO,ZP:ZPįCPRO,ZP#퀯SPRO,ZP(ZP):ZU1:ZS654:ZV0:ZT$D1$:ZD2ZT$D2$#ZE0:ZEįRFL,"MECC$$DISK"ZS:33200:(TZT)(QN$ZN$)33050y$:VP,10::PROCESS ESC""y1000+"}ERROR PROCESSINGe" }ZE(222):ZN(218)(219)256:ZUZE0ZE16ZE8Ħs"}ZE255Ĭ"}ZE8CKĦ"}:VP,10::HP,0:ZE8ĺ"Please check your disk drive and":"diskette.":100:K$"E"31000:@#2}"Error #"ZE" in line #(Stuff and Fetch   ފ x`RDKEPINIPOFPACFEExx.wZvx&x``H x'x)hH xɍ wh`xx ߅$0xx  c`Lv )Lx%x [v%x` mͳw+x߭ 'xVvwWvZv`!x`!x6!xLwww6H7HVv6Wv7,Zv0 wɍ Lw$HXv8$Yv$ ww  @ w$Yvhiw$Xv6Vvh7h6www`ɍɌ Yvͳ Yv` w?Ȑ۩`?)8鍸ζ`H88HH?<>?>,>$f<<`S!x u&x$H)'xh0,(x0RL/wVvWvG6w7  WvVvXvXvZv,%x5S,%xN(x )x9*xI7)xw*xu:L+uvuwu+uL/yɯLux 8ɀ   Lޤȱ 0:,јe湥 %yiu&yiu , ,`vuwuLB 2v?F<?F<>*v >.v!! ! ! ! 庠 躠®î 躠®î 庠 ɮ 宠 庠 򮠠 庠 躠®î 躠®î 庠 宠 宠 庠 躠®î 躠®î 庠 庠 躠®î 躠®î 庠 躠®î 躠®î 庠 庠 躠®î 躠®î 庠 庠 躠®î 躠®î 庠 䮠 ⮠ 庠躠®î 躠®î 庠 庠 躠®î 躠®î 庠 ΢䠢 庠 躠®î 躠®î 庠 󠭠 庠 ®î 庠 򮠠 庠 躠®î 躠®î 庠 報 庠 躠®î 躠®î 庠  庠 躠®î 躠躠®î 躠®î 庠 󮠠 庠 躠®î 躠®î 庠 XXX庠 AʻDDD ̻ƻƻƻ̻̻ƻ̻S̻ӻ̻̻K 庠 䠴󠭠報堵 堲򮠠 庠 躠®î 躠®î 庠  *Ġ Ġ Ġ *î 躠®î 庠 󮠠 庠 躠®î 躠®î "" " " " " """""""""