' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#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 ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`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- ( +  HϠ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠Ġz# u`ΠŠŠ٠ӠˠΠ٠٠ŠΠԠΠΠˠҠ٠Ƞɠ٠ŠȠŠҠΠ"HAVE BEEN ENTERED IN THE FILES AND SET ":"UP NEW FILES FOR NEW NAMES.":18:"TYPE Y TO CONFIRM.":102:X217ı}:116:(222)255116:TN0116:10:12)"NO NAMES IN FILE":(4)"CLOSE":20:8)"HIT ANY KEY TO CONTINUE":,60:116(222)25OPEN GIRLS"O(4)"DELETE GIRLS":(4)"OPEN BOYS,L100":(4)"WRITE BOYS,R0"0:(4)"CLOSE BOYS":(4)"OPEN GIRLS,L100":(4)"WRITE GIRLS,R0":0:(4)"CLOSE GIRLS 116r:5:16)"WARNING !!":8:" THIS WILL WIPE OUT ALL THE NAMES THAT":":" 4. WILD"::(12):IX:(4)"PR#0":100""34. WHICH OF THE SAME ITEMS IS YOUR LAST CHOICE ON A DATE: 1. GO TO DINNER":" 2. PLAY TENNIS 3. TAKE A WALK AND TALK 4. SEE A PLAY":" 5. GO SWIMMING":0"35. WHICH DESCRIBES YOU BEST? 1. STRAIGHT 2. AMBITIOUS 3. CRAZY:" 3. TAKE A WALK AND TALK 4. SEE A PLAY 5. GO SWIMMING":"33. WHICH OF THE SAME ITEMS IS YOUR SECOND CHOICE ON A DATE: 1. GO TO DINNER":" 2. PLAY TENNIS 3. TAKE A WALK AND TALK 4. SEE A PLAY":" 5. GO SWIMMING":FORTUNE 3. HEALTH":" 4. HAPPINESS"::"31. A FRIEND ASKS YOU TO LIE FOR THEM SO THEY WON'T LOOSE THEIR JOB.":" 1. YOU WOULD DO IT 2. YOU WOULD NOT DO IT"F:"32. ON A DATE I WOULD MOST LIKE TO: 1. GO TO DINNER 2. PLAY TENNIS" 2. OF SOME IMPORTANCE":" 3. OF LITTLE IMPORTANCE"::137"29. HOW FAR DID YOU GET IN SCHOOL? 1. NO DEGREE 2. HIGH SCHOOL DEGREE":" 3. COLLEGE DEGREE 4. GRADUATE DEGREE":"30. WHAT WOULD YOU RATHER HAVE: 1. FAME 2. 2. RED 3. GREEN 4. BLACK":"28. WHAT DO THINK OF ALCOHOL: 1. I NEVER DRINK 2. I MIGHT DRINK ONCE IN":" A WHILE 3. I DRINK OFTEN 4. I AM SELDOM SOBER"::F1136?"29. IN SCHOOL GRADES ARE: 1. VERY IMPORTANT TO ME WHERE? 1. IN CHURCH BECAUSE":" YOU WANT TO BE THERE 2. IN CHURCH BECAUSE SOMEONE WANTS YOU TO OR":" MAKES YOU GO 3. IN BED":#"26. I TEND TO BE MORE: 1. OUT GOING 2. INWARD"::"27. WHAT IS YOUR FAVORITE COLOR? 1. BLUE 2. PIZZA HUT 3. A STEAK HOUSE 4. A FORMAL DINNER CLUB":"24. AT WHAT AGE DO YOU EXPECT TO GET MARRIED? 1. UNDER 21 2. 21 TO 30":" 3. OVER 30 4. DON'T PLAN TO GET MARRIED":"25. ON SUNDAY MORNING YOU WOULD MOST LIKELY BE N OTHERS SMOKE? 1. YES 2. NO"::"22. WHAT ATTRIBUTE IS MOST IMPORTANT TO YOU IN THE PEOPLE YOU DATE? ":" 1. LOOKS 2. PERSONALITY 3. INTELLECT":>"23. WHICH OF THE FOLLOWING RESTAURANTS DO LIKE BEST? 1. MCDONALDS ":" ǠΠΠΠӠŠΠӠˠŠӠĠԠӠĠŠΠ٠Π٠Ӡ٠ȠǠˠӠΠ ԠҠӠҠ٠٠ΠҠΠӠΠŠ Ӡ٠ĠŠŠԠҠΠ̠Š ٠ӠˠȠҠΠΠ ՠԠàԠĠԠȠҠΠ̠ӠΠҠҠ٠ӠРĠϠΠ٠̠ŠРɠӠǠΠΠŠӠРΠŠ ͠٠ӠӠ٠ӠΠӠĠԠ ŠҠŠ̠ΠΠȠ̠٠ĠӠҠàԠŠ̠ŠҠΠΠŠȠ٠Ҡ٠ҠΠĠˠĠΠĠӠƠӠΠӠŠҠΠȠΠˠԠ٠РĠɠӠӠɠΠˠ̠Ġ٠Ƞ٠젠̠Ӡ٠ĠȠ̠̠ΠŠҠǠŠŠԠȠĠŠӠŠɠɠҠ٠ӠΠԠǠΠ٠ԠɠԠΠ ҠŠŠΠŠɠŠŠҠΠ٠٠Π͠ɲȠŠڠΠӠŠԠ٠͠ɠĠԠӠӠҠ̠ԠɠӠӠ٠ҠǠŠǠΠŠҠӠΠ̠ŠŠȠΠؠҠҠŠΠ٠Π٠Ҡ٠٠ΠŠӠΠ٠̠٠ΠɠȠΠΠŠΠĠҠԠҠԠΠĠԠĠԠĠҠΠӠˠӠˠҠŠҠΠҠŠҠŠҠŠΠԠӠΠԠӠŠ͠ΠԠΠԠ Š Š͠Ӡ٠Ӡ٠ŠΠԠӠΠӠΠΠӠΠԠԠĠԠĠΠӠҠΠ٠ȠΠŠ٠ĠΠԠ±ȠĠȠĠҠ ŠΠŠΠӠҠӠҠ ȠΠȠΠҠɠȠȠΠȠΠȠǠȠȠȠˠԠˠԠȠǠРˠРˠڠԠڠΠڠΠҠΠڠԠҠ٠Ҡ٠ҠΠӠ̠Ԡ̠ԠΠ٠ΠӠΠנΠŠΠΠ٠Ҡ̠Ҡ٠ҠҠϠŠŠŠΠΠΠΠĠĠӠӠĠΠĠĠҠˠҠˠĠΠҠΠҠΠ٠ɠ̠Š̠Š٠Š٠٠ɠŠΠŠΠŠҠΠҠԠҠԠΠĠҠΠΠΠΠΠΠĠӠԠӠԠӠĠӠˠӠˠ̠̠̠ӠĠŠŠΠ٠٠ŠΠڠŠŠ̠z#???????????????????     ʠʠ ӠӠ6ϠӠҠҠ ҠҠŠҠ ̠  ҠˠĠΠŠ٠ԠĠ̠ŠӠΠŠΠҠ̠͠ŠΠĠŠĠȠҠŨϧǍҠ٠ΠĠŠҠĠΠʮĮĠΠҠΠӠ٠Ҡ ƠΠ٠ΠŠɠŠΠҠҠŠӠɠ(4);"RUN QUESTIONS"! A$"5"Ā* 100X:" TYPE 4 TO PRINT QUESTIONNAIRE"F 20:" TYPE 5 TO END"a X(16384):X128140o 16368,0 A$(X176) A$"1"ĺ(4);"RUN DATER INPUTER" A$"2"ĺ(4);"RUN DATER SEARCHER" A$"3"ĺ(4);"RUN FILE HANDLER" A$"4"ĺ******************* 2100' d:> i15)"MAIN MENU":Y n12)"COMPUTER DATING"z p:10)"(C) COPYRIGHT 1984" s8:" TYPE 1 TO INPUT DATA" x11:" TYPE 2 TO RUN SEARCHER" }14:" TYPE 3 FOR FILE HANDLER PROGRAM"' 17+ *******************3 * *L * COMPUTER DATING *e * *~* BY ** ** M.A.C. SOFTWARE * * ** COPYRIGHT 1984 ** *    GO BOWLING 5. PARTY":"20. WHICH OF THE SAME ITEMS IS YOUR LAST CHOICE ON A DATE: 1. PLAY CARDS":" WITH ANOTHER COUPLE 2. WATCH TV AND EAT PIZZA 3. GO SKIING":" 4. GO BOWLING 5. PARTY":"21. DOES IT BOTHER YOU WHE ----------------------------":::"19. WHICH OF THE SAME ITEMS IS YOUR SECOND CHOICE ON A DATE: 1. PLAY CARDS":" WITH ANOTHER COUPLE 2. WATCH TV AND EAT PIZZA 3. GO SKIING":" 4. ":}"18. ON A DATE I WOULD MOST LIKE TO: 1. PLAY CARDS WITH ANOTHER COUPLE":" 2. WATCH TV AND EAT PIZZA 3. GO SKIING 4. GO BOWLING 5. PARTY"::(12)T~"PAGE 2 NAME . POP/EASY ROCK 2. COUNTRY 3. SOUL/JAZZ":" 4. HARD ROCK 5. DON'T LISTEN TO MUSIC"::"16. I TEND TO: 1. TALK A LOT 2. TALK VERY LITTLE":|"17. MY FAVORITE MOVIE TYPE IS: 1. ROMANCE 2. COMEDY 3. HORROR ":" 4. DRAMA1. LOOKS 2. PERSONALITY 3. INTELLECT":z"14. YOU FIND OUT THAT A FRIEND SMOKES POT, YOU WOULD: 1. DROP HIM/HER":" 2. SAY YOU DON'T APPROVE 3. DO NOTHNG 4. ASK HIM/HER":" FOR SOME OF IT.":{"15. I LISTEN MOST TO: 1 4. PERSONAL HOBBY":x"11. DO YOU SMOKE? 1. YES 2. NO"::"12. WHICH OF THE FOLLOWING T. V. SHOWS WOULD YOU WATCH FIRST: 1. NEWS ":" 2. SOAPS 3. SITUATION COMEDY 4. T. V. MOVIE":-y"13. WHAT IS YOUR BEST ATTRIBUTE: LGAME":v"10. WHICH OF THE SAME ITEMS IS YOUR LAST CHOICE TO GO ON A DATE: 1. A PARTY":" 2. A DANCE 3. A MOVIE 4. A CONCERT 5. A BALLGAME"::120w"10. WHAT IS YOUR FAVORITE PAST TIME? 1. SPORTS 2. DANCES 3. CARS ":"I WOULD MOST LIKE TO GO TO: 1. A PARTY 2. A DANCE":" 3. A MOVIE 4. A CONCERT 5. A BALLGAME":u" 9. WHICH OF THE SAME ITEMS IS YOUR SECOND CHOICE ON A DATE: 1. A PARTY":" 2. A DANCE 3. A MOVIE 4. A CONCERT 5. A BAL. SLIGHTLY INTERESTED 4. WHO CARES"::" 6. I ENJOY DATING: 1. ONLY ONE PERSON 2. MANY PEOPLE":s" 7. I THINK MONEY IS: 1. VERY IMPORTANT 2. USEFUL 3. NOT VERY":" IMPORTANT 4. THE ROOT OF ALL EVIL":ot" 8. ON A DATE STEN TO RADIO 5. RUN": q" 4. WHICH OF THESE FOREIGN FOODS DO YOU LIKE BEST? 1. MEXICAN 2. CHINESE":" 3. ITALIAN 4. POLISH":jr" 5. IN REGARD TO WORLD AFFAIRS I AM: 1. VERY INTERESTED 2. MODERATELY":" INTERESTED 3OMORE":" 3. JUNIOR 4 SENIOR"::112 o" 2. WHAT IS YOUR CURRENT AGE? 1. UNDER 21 2. 21 TO 30 3. 31 TO 40":" 4. OVER 40": p" 3. WHEN I AM ALONE I LIKE TO: 1. READ 2. SLEEP 3. DAYDREAM":" 4. WATCH T. V. / LIR FOR YOU.": m" 1. ARE YOU: 1. MALE 2. FEMALE"::F1111:F2ĺ" 2. WHAT GRADE ARE YOU PRESENTLY IN? 1. UNDER 8 2. GR 8 3. GR 9 ":" 4. OVER GRADE 9"::112, n" 2. WHAT GRADE ARE YOU PRESENTLY IN? 1. FRESHMAN 2. SOPHjX210ĺ(4)"RUN HELLO! k102 l:"NUMBER OF COPIES TO PRINT? ";NC:NC110:(4)"PR#1":IX1NC:"COMPUTER DATING NAME":" -------------------------------"::"CIRCLE THE BEST ANSWEFOR HIGH SCHOOL / COLLEGE SURV.":9:"TYPE 2 FOR JR. HIGH SCHOOL SURVEY":13:"TYPE 3 FOR GENERAL SURVEY":17:"TYPE R TO RETURN TO MAIN MENU fX(16384):X128102:16368,0 gX220XX32 hX177108:X178F2:108 iX179F1:108 1*******************3* *L* COMPUTER DATING *f* QUESTIONS * * * * M.A.C. WARE ** ********************d101 e:13)"SURVEY PRINTER":5:"TYPE 1           ڠΠӠӠĠ٠ӠԠڠΠǠΠӠĠΠӠĠ٠ɠĠĠĠԠȠ͠٠ҠȠΠ٠ǠΠҠΠӠ5:X%(I)X%(I)A%((I1)5J)10(5J):J:I:SX(16384):X127127:16368,0:j(222)5129:103D$(4):D$"OPEN "F$",L100":D$"WRITE "F$",R0":0:D$"CLOSE "F$:216,0:116DTINUE OR ":"TYPE X TO REDO THIS INPUT ":127:X216ė:117}126:D$"OPEN "F$",L100":D$"WRITE "F$",R"NU:N$:K17:X%(K):K:D$"WRITE "F$",R0":NU:D$"CLOSE "F$::"ANOTHER INPUT ";:127:X206103:(A$,1)"N"103:116,~::I17:X%(I)0:J1NTERING A BOY IN THE GIRLS FILE.":"ENTRY ABORTED. HIT A KEY TO CONTINUE."::111:NUNU1:116u zA%(I)1ĺ"":120 {A%(I)CKĺ"":120=| 2,5,5,5,5,2,5,5,5,5, 2,5,5,5,5, 2,5,5,5,5, 2,5,5,5,5, 2,5,5,5,5 , 2,5,5,5,5:I:"DONE! TYPE (RETURN) TO CON10)= wN$LN$FM$:1:25:"NUM = "NU:34,3:24::I135:CK x"QUESTION #"I" = ";:111:112:A%(I)X:F$"BOYS"A%(1)2ĺ:"ENTERING A GIRL IN THE BOYS FILE.":"ENTRY ABORTED. HIT A KEY TO CONTINUE."::111:NUNU1:116^ yF$"GIRLS"A%(1)1ĺ:"EN THE "F$" FILE."::104 u"THIS IS ENTRY "NU" IN THE "F$" FILE."::"HIT RETURN TO ABORT":::"PERSONS LAST NAME: ";LN$:LN$""102: v"PERSONS FIRST NAME: ";FM$:FM$""102::FM$" "LN$:LN$(LN$" ",15):FM$(FM$" ",HELLO n1055 oX(16384):X127111:16368,0:Y pXX176:X1X5:::"":120b qX:n r:128 sD$"OPEN "F$",L100":D$"READ "F$",R0":NU:D$"CLOSE "F$:216,0 t::NUNU1:NU500ĺ"THE DATA BASE IS FULL. YOU CAN ENTER NOMORE NAMES I~ h17)"DATA INPUT MENU":8:"TYPE B TO INPUT BOYS":12:"TYPE G TO INPUT GIRLS":16:"TYPE R TO RETURN TO MAIN MENU iX(16384):X128105:16368,0 jX220XX32 kX194F$"BOYS":114 lX199F$"GIRLS":114 mX210ĺ(4)"RUN  ******************* 7 * * R * DATER INPUTER * m * PROGRAM *  * *  * M.A.C. WARE * * *  *******************d103eA%(35)fD$(4) g:     ǠŠĠC53.78544:V11.25695:V256.8327:BS18480ST1ĺ(4)"BLOAD SEA2.OBJ":C1.6123:C21.1476:C31.3107:C41.5677:C51.7854:V11.45184:V20:BS1843216368,0350CSTIONS ")pST1ĺ"USERS' QUESTIONS "wrX(16384):X128370:16368,0:X177140:X210X242ĺ(4)"RUN HELLO"|X178FF1:140X195X227400370STST)ST0ĺ(4)"BLOAD SEA.OBJ":C11.0123:C21.60071:C32.10032:C42.86777:":1:360^FF0::h12)"SEARCHER MENU":4:"TYPE 1 TO MAKE SEARCH":7:"TYPE 2 TO START SEARCH AT ANY # ":10:"TYPE R TO RETURN TO MAIN MENU"m12:"TYPE C TO CHANGE SEARCHER TYPE"n14:"SEARCHER TYPE = ";oST0ĺ"M.A.C.'S QUEI)"UJ"COMPATIBILITY FACTOR = "(TT$(I),6)::::I:I112::I:(4)"PR#0":210 T16368,0::18:8:"** SEARCH TERMINATED **":20:"SEARCHING THROUGH THE "FI$" FILE.":21:"COMPLETED "CN1" SEARCHES.":22:"START AT NUMBER "CN" WHEN YOU CONTINUE.BER 1 PERSON IS THE MOST COMPATIBLE, NUMBER 2 THE SECOND":"MOST, ETC. HAVE FUN AND THANKS FOR TRYING COMPUTER DATING."@:::I110:" NUMBER "I;:36,20:X$(TT$(I),26,10):260:X$" ";:X$(TT$(I),11,15):260:X$;:36,46:(TT$(I))15TT$( TO STOP AT THE END OF THIS SEARCH.":34,8:35,20:(4)"PR#1"::::::"COMPUTER RESULTS FOR : ";:X$(N$,16,10):260:X$" ";:X$(N$,15):260:X${6::"LISTED BELOW ARE THE TEN MOST COMPATIBLE PEOPLE THAT THE COMPUTER HAS FOUND":"FOR YOU. THE NUM:"SEARCH # "N" OUT OF "TN:BS:SC(832)C1(833)C2(834)C3(835)C4(836)C5:SC(SCV2)V1 SC10300:SC((TT$(10),10))TT$(10)((SC)"000000",10)(N):230"X(16384):X155340,N:250::12)"PRINTING RESULTS":4:"TYPE (ESC) :JTT$(J1)R$:T:(4)"OPEN "SN$",L100":I110:X((TT$(I),11,3)):(4)"READ "SN$",R"X:X$:TT$(I)(TT$(I),10)X$:I:(4)"CLOSE "SN$:(X$,1)" "X$(X$,(X$)1):260I110:TT$(I)" "::19411,255:19412,79bN1TN:1511)"NAME SEARCH ROUTINE":8)"TYPE (ESC) TO EXIT PROGRAM":5:"SEARCHING FOR : "::N$:10:"PERSON # "CN" OUT OF "NS J17:A$(T%(J1)):I15:X((A$,I,1)):LO,X:LOLO1:I,J:280T210:R$TT$(T):JT111:TT$(J)R$240:TT$(J1)TT$(J)T:D$"CLOSE"FI$ "THERE ARE "QT" NAMES."::"WHAT NUMBER DO YOU WANT TO BEGIN SEARCHING AT. ";:" ";CN::CN1CNQT200:CNCN1x CNCN1:LO768:CNNS1350:D$"OPEN "FI$",L100":D$"READ "FI$",R"CN:N$:J17:T%(J1):J:D$"CLOSE "FI$::: SEC.":LC20480:I1TN:D$"READ "SN$",R"I:X$:J17 X:A$((X)):K15:Y((A$,K,1)):LC,Y:LCLC1:K:J:I:D$"CLOSE "SN$::D$"OPEN "FI$",L100":D$"READ "FI$",R0":NS:D$"CLOSE "FI$:CN0:FF1210 D$"OPEN "FI$",L100":D$" READ "FI$",R0":Q:X194170:3500 FI$"GIRLS":SN$"BOYS":180J FI$"BOYS":SN$"GIRLS5 :14)"LOADING DATA":4:7)"AND PREPARING THE DATA BASE":D$"OPEN "SN$",L100":D$"READ "SN$",R0":TN:MI(TN1.560):SE(TN1.560MI):8:"APPROXIMATE TIME = "MI" MIN. "SE"6777:C53.78544:V11.25695:V256.8327:(4)"BLOAD SEA.OBJ":18431:D$(4):T(30),C(30):B$" " iBS18480:350 nX(16384):X127110:16368,0 xX220XX32 5:FF1Ģ8 "BOYS OR GIRLS FILE? (B/G)":110:X199160  *******************5 * *P * DATER SEARCHER * k * PROGRAM *  * * * M.A.C. WARE * * *  ******************* p dC11.0123:C21.60071:C32.10032:C42.8     X$(N$(I50),16,10):114:Y$(N$(I50),15):114:X$X$" "Y$:36,40:I50;:36,45:X$I50(I50)ĺ(12):II50:ITNĺ"FILE = "SN$::I:0:116RN0:(4)"RUN DL SUB 152::5:16)"WORKING":(4)"OPEN BOYS":(4)"DELETE BOYS":(4)""TOTAL GIRLS = "TG:10:"TOTAL BOYS = "TB:20:8)"HIT ANY KEY TO CONTINUE":102:116:12)"LISTING ALL NAMES"::106:35,20:1:"FILE = "SN$:::I1TN:X$(N$(I),16,10):114:Y$(N$(I),15):114:X$X$" "Y$:I;:36,5:X$;:TN(I50)0ĺ:145W;:36,20:T%(1);:36,30:T%(2);:36,40:T%(3);:36,50:T%(4);:36,60:T%(5):K:0:101F10::10)"TOTAL # IN EACH FILE":(4)"OPEN BOYS":(4)"READ BOYS":TB:(4)"CLOSE BOYS":(4)"OPEN GIRLS":(4)"READ GIRLS":TG:(4)"CLOSE GIRLS":F11ıW5:NSWER OF ";:36,20:"# 1";:36,30:"# 2";:36,40:"# 3";:36,50:"# 4";:36,60:"# 5"::KSE:MK:J0M5MM5:JJ1:139VT%(1)0:T%(2)0:T%(3)0:T%(4)0:T%(5)0:I1TN:XA%(J,I):X(X10(5M)):XX(X10)10:T%(X)T%(X)1:I::"QUESTION # "K"QUESTION TO END WITH? (1-35)":"(TYPE 0 TO ABORT)";E::E0116:E1E35SE135:"BOYS OR GIRLS FILE?":102:X194SN$"BOYS":138X199SN$"GIRLS":138116f109:1:(9)"80N":"TOTAL NUMBER IN FILE = "TN" FILE = "SN$:::"AN$:116D$"VERIFY "SN$::::SN$" FILE NOT ON THIS DISK"::"MERGE ABORTED.":::"HIT RETURN TO CONTINUE.":102:116:10)"LISTING DATA IN FILES"::"QUESTION TO START WITH? (1-35)":"(TYPE 0 TO ABORT)";S:S0116:S1S35134:LL CONTAIN ALL THE NAMES"::"HIT RETURN TO CONTINUE":102131:D$"OPEN "SN$",L100":D$"READ "SN$",R0":MT:D$"CLOSE"SN$:SMT1:TNTNMT:TN500TN50020:10)"SAVING INFO TO FILE":112D$"OPEN "SN$",L100":D$"WRITE"SN$",R0":TN:D$"CLOSE"S (TYPE A TO ABORT)":102:X193116:X194SN$"BOYS":127j}X199SN$"GIRLS":127s~124:131:109::"NOW REMOVE THE DISK AND INSERT THE DISK YOU WANT TO COPY THE NAMES ONTO. THIS SHOULD BE YOUR MASTER DISK WHICH WI102:X183148:X177122:X178123:X179133:X180141:X181143:X210ĺ(4)"RUN HELLOqyX182147:120z:D$"RUN ALPHA{:11)"MERGING TWO FILES"::"INSERT THE DISK YOU WANT TO COPY NAMES OFF OF."::132N|6:"BOYS OR GIRLS FILE? MES IN THE FILES (DATA SENT TO A PRINTER)":17:"TYPE 6 TO DELETE A NAME FROM THE FILE w19:"TYPE 7 TO DELETE ALL NAMES FROM BOTH FILES AND RESET THEM FOR A NEW GROUP OF INPUT.":23:"TYPE R TO RETURN TO MAIN MENU]xFILE HANDLER MENU":5:"TYPE 1 TO ALPHABETIZE A LIST OF NAMES":7:"TYPE 2 TO MERGE TWO FILES":9:"TYPE 3 TO LIST ALL DATA IN FILE (DATA SENT TO A PRINTER)a v12:"TYPE 4 TO GIVES TOTALS IN EACH FILE":14:"TYPE 5 TO LIST ALL NALOSE "SN$:w pD$"OPEN "SN$",L100":ISTN:D$"WRITE"SN$",R"I:N$(IS1):J17:A%(J1,IS1):J:I:D$"CLOSE "SN$: qI1TN:J06:N$(I)N$(I)(A%(J,I)):J:I: r(X$,1)" "X$(X$,(X$)1):114 s t ONERR GOTO 114 u1002:::12)"YS mF11ı n:10:14)"LOADING DATA":D$"OPEN "SN$",L100":D$"READ "SN$",R0":TN:I1TN:D$"READ "SN$",R"I:N$(I):J17:A%(J1,I):J:I:D$"CLOSE "SN$: oS1:D$"OPEN "SN$",L100":ISTN:D$"WRITE"SN$",R"I:N$(I):J17:A%(J1,I):J:I:D$"C(4):N$(500),A%(6,500),T(35),C(35),T%(5):116T fX(16384):X127102:16368,0f gX220XX32l ht i: j"WHICH FILE DO YOU WANT TO WORK WITH BOYS OR GIRLS? (B/G) ":102:X199107:X194108:"":105 kSN$"GIRLS":109 lSN$"BOt*******************3* *L* FILE HANDLER *e* PROGRAM *~* ** M.A.C. WARE ** ******************** d37376/ e:::X0:B$" ":D$     ̠ΠȠǠȠȠΠŠˠԠРˠΠ٠٠Π٠ΠҠҠȠ٠٠٠ҠΠe^^e__l^" ަư8^_氠^LQ^P^i^_^Ѹ "^eP^_eQ_ ȱ^8e^^_ , l^ưȭ氩L8ˍ`X************** &d(175)256(176)46"'eKE%(1):KE%(0)1:KE%(1)>i>?i?8<>=?L, e&.'i/.)*ȱ.IiՅJ)+ (.Q.0.уȱ.у```0./ ꥃL8. K"ȱ.^ȱ._$J0 ^ЫK`  +._.^. L^_: g RG.І/FGEFD$1 ީ I0 &ŔÄ'ĕнеȱаȱ+-&Пȱ&8+hh8FD:GE;:i:;i;F;f:;`8F:E?>@?A@e:BAe;C \.E*0* 1A;!@:8@:@A;AEƥ@D^ ^iȥ_ixA@ ./CBHH$1H+H1)L-+ .H.h$1+`,,,0 B``LvL HH 1-ȱ.ȱ/ g RDE$1 Ю ީ КД gŔnпmлзj+;*8o勅oȑppȑoм( h c`^0vȱ^qȱ^lȱ^oȱ^p\̖Njʘݖ.,/-8e^,_i-e^^__`SORTARRAY SORT.RM.RM 6h j݅H ! g R8ompnPQ hhLc X^i_ir^^i \^Hȑ^^h^stopjmn+U^_ gRij^_ ]kl?в^_^ȱ^^eȱ^e(ي0ȱ^ ie^^_ )KE%(0):)oS1:D$"OPEN "SN$",L100":ISN:D$"WRITE"SN$",R"I:(N$(I),25):J17:A%(J)((N$(I),215J,5)):A%(J):J:I:D$"CLOSE "SN$:)p:105:1:7:13)"ALPHABETIZING":110:15:13)"SAVING DATA":111::D$"RUN FILE HANDLERGARGARBAGE MANm:2:13)"LOADING DATA":D$"OPEN "SN$",L100":D$"READ "SN$",R0":N:I1N:D$"READ "SN$",R"I:N$(I):J17:A%(J):J:N$(I)N$(I)(A%(1))(A%(2))(A%(3))(A%(4))(A%(5))(A%(6))(A%(7)):GA400:"GAR",A,GA:I:D$"CLOSE "SN$: )n"SORT",N$(1)N$(N1:::D$(4):N$(500),A%(7):112G'fX(16384):X127102:16368,0Y'gX220XX32_'h'i::"WHICH FILE DO YOU WANT TO WORK WITH BOYS OR GIRLS? (B/G) ":102:X199106:X194107:"":105'jSN$"GIRLS":108'kSN$"BOYS'lF11ı( &*******************3&* *L&* ALPHA *e&* PROGRAM *~&* *&* M.A.C. SOFTWARE *&* *&******************* &d(175)256(176)46"'eKE%(1):KE%(0)1:KE%(1)     ȠΠȠ٠ȠŠȠȠŠȠΠŠŠȠˍ`J0D*****3&* *O&* DELETE! * h&* PROGRAM *&* *&* M.A.C. WARE * &* *&******************* "'d(175)256(176)46:KE%(1):KE%(0)1:KE%(1)ȱ.^ȱ._$J0 ^ЫK`  +._.^. L^_:ʽe^^e__l^" ަư8^_氠^LQ^P^i^_^Ѹ "^eP^_eQ_ ȱ^8e^^_ , l^ưȭ氩L8F:E?>@?A@e:BAe;C \.E*0* 1A;!@:8@:@A;AEƥ@D>i>?i?8<>=?L, e&.'i/.)*ȱ.IiՅJ)+ (.Q.0.уȱ.у```0./ ꥃL8. K" 1-ȱ.ȱ/ g RDE$1 Ю ީ КД g RG.І/FGEFD$1 ީ I0 &ŔÄ'ĕнеȱаȱ+-&Пȱ&8+hh8FD:GE;:i:;i;F;f:;`8.,/-8e^,_i-e^^__`SORTARRAY SORT.RM^ ^iȥ_ixA@ ./CBHH$1H+H1)L-+ .H.h$1+`,,,0 B``LvL HHij^_ ]kl?в^_^ȱ^^eȱ^e(ي0ȱ^ ie^^_ gŔnпmлзj+;*8o勅oȑppȑoм( h c`^0vȱ^qȱ^lȱ^oȱ^p\̖Njʘݖ5:113F+sDLDL1:N$(ND)"":13:"DELETED":I1250::113GARGARBAGE MAN.RM 6h j݅H ! g R8ompnPQ hhLc X^i_ir^^i \^Hȑ^^h^stopjmn+U^_ gRELETE NAMES":5:"(TYPE 0 TO EXIT)":4:"NUMBER OF NAME TO DELETE. ";ND:ND0112:ND1NDN113:(N$(ND),3)""114:7:"PERSON "ND" ALREADY DELETED":I1750::113+r7:"NAME = "(N$(ND),25):10:"TYPE Y TO CONFIRM THE DELETE.":101:X21711)KE%(0):)nS1:D$"OPEN "SN$",L100":ISN:D$"WRITE"SN$",R"I:(N$(I),25):J17:A%(J)((N$(I),215J,5)):A%(J):J:I:D$"WRITE"SN$",R0":N:D$"CLOSE "SN$:)o:104:113)p7:16)"WORKING":109:NNDL:110::D$"RUN FILE HANDLER*q:14)"Dl:2:13)"LOADING DATA":D$"OPEN "SN$",L100":D$"READ "SN$",R0":N:I1N:D$"READ "SN$",R"I:N$(I):J17:A%(J):J:N$(I)N$(I)(A%(1))(A%(2))(A%(3))(A%(4))(A%(5))(A%(6))(A%(7)):GA350:"GAR",A,GA:I:D$"CLOSE "SN$: )m"SORT",N$(1)N$(N1:::D$(4):N$(500),A%(7):111G'eX(16384):X127101:16368,0Y'fX220XX32_'g'h::"WHICH FILE DO YOU WANT TO WORK WITH BOYS OR GIRLS? (B/G) ":101:X199105:X194106:"":104'iSN$"GIRLS":107'jSN$"BOYS'kF11ı( &*******************3&* *O&* DELETE! * h&* PROGRAM *&* *&* M.A.C. WARE * &* *&******************* "'d(175)256(176)46:KE%(1):KE%(0)1:KE%(1)     Ƞ̠Ҡ٠ΠĠΠΠԠĠӠ٠Ԡ٠ҠΠ ΠŠ Š͠ڠ̠ŠΠԠӠ٠ԠŠԠĠҠҠ ˠȠΠӠŠŠŠΠ̠ҠΠӠ٠@ʊ@CD DLeKȱAȱC  BLKȱ Bȱ @ !Aȱ!@ȱ!A#"C#mKKmKK`=Bȱ@Aȱ@ȱA CA@A@ʊ@@CB@C@@ʊ@@BCBL*IȱBȱ@ Aȱ @ȱ A  B  @  D DCB@DLIȱAȱCBL JȱHCAʊALPHKK@ABCDLHAAB@ʊ@BA@ʊ@DLIȱAȱ    ҠŠӠĠҠԠĠĠҠΠŠҠΠҠ٠ҠĠĠΠŠȠΠҠŠӠ٠Πˠ̠٠ΠĠ٠ΠΠàΠàΠΠҠŠˠ٠Š BȠ@@@@@@  @  D@@@@@P@C @! A"!B#"C#mKKmKK`ABCD@@@@CBL JȱD@ABCD@ABCD@ABCDHKK@ABCD@ABCD@A B  C  D  @  A BC   ӠҠ ŠΠȠΠȠĠҠ̠ΠǠΠȠȠΠŠ̠ĠРˠӠ٠Π٠ԠĠӠנĠ٠ҠΠڠԠ̠ԠȠŠΠΠΠӠĠΠΠŠΠ٠Ԡ͠ΠǠ͠ؠ̠ŠҠˠĠĠΠΠ̠Π٠٠ҠɠΠ٠Ƞ !"          !"      ԠŠҠǠ  ΠӠˠҠԠҠŠҠ ΠԠӠӠŠҠŠڠŠΠҠΠŠ Š͠ΠԠӠΠӠ٠ҠԠҠĠԠĠŠ̠ȠȠԠΠȠҠԠ̠̠͠ҠҠ٠ԠΠ5116TN0116310:12)"NO NAMES IN FILE"D(4)"CLOSE"j20:8)"HIT ANY KEY TO CONTINUE"s116٠Ӡ̠ŠӠȠՠŠ٠ӠԠ٠Π ĠϠԠĠ٠ΠǠРΠӠǠҠŠΠΠŠ٠Ԡ٠ӠҠ٠Ӡ٠ ̠͠ĠˠĠӠΠ ŠĠŠ̠Π̠ԠŠԠ̠ŠΠԠҠ̠ΠΠҠ ΠӠŠĠˠŠΠԠ٠ҠΠ٠Π͠ԠȠΠˠ̠٠ΠΠΠ٠ΠΠàΠ٠נԠΠΠΠӠˠ٠ŠҠΠӠŠŠԠĠԠŠԠ٠ԠӠ٠Π٠ӠӠĠǠˠŠΠӠΠŠȠҠӠ٠٠ĠΠΠҠΠÍӠΠҠĠΠӠΠ٠ӠҠŠҠԠŠΠҠԠ̠Ƞ ٠٠ĠĠӠΠΠҠˠĠΠ٠ɠ̠ŠҠΠŠΠŠ٠ΠĠҠΠҠԠˠӠԠΠΠ̠̠ӠĠӠĠȠҠΠҠŠҠΠҠ٠ĠΠΠĠŠŠӠ٠ҠĠҠŠҠΠӠ٠ƠΠ٠ΠĠŠ٠ΠŠҠҠŠĠҠנΠĠȠ͠٠ԠԠĠҠԠҠŠҠΠӠˠԠΠԠӠҠŠŠ Š͠ΠΠԠӠΠӠ٠ԠĠΠӠҠ ŠΠȠĠȠΠҠӠȠǠȠȠȠΠΠРˠˠԠҠΠڠԠڠΠӠ̠ԠҠ٠ŠΠΠ٠ӴŠ٠ΠŠӠӳҠΠӠ٠ҠŠҠŠ̠ŠȠҠΠҠΠҠ٠ĠȠĠҠΠҠΠҠ٠ŠŠŠŠĠΠΠĠΠĠҠĠĠΠӠ٠Ӡ٠ҠĠΠӠ٠Ӡ٠ҠŠҠΠҠΠ̠ӠŠҠŠԠŠӠנΠʮĮĠӠ̠٠ԠàҠΠȠǠҠɠӠ٠ҠΠҠ