' +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*`00:20000:OF3:EL1:21100:OF1:21100:22000:Y1WB:28000:EL0 *"Now that you have finished defining your search, you select the category SELECTION COMPLETE.":29500:PUT,X1,Y1,AD:J10:PH32:650:21150:PAUSE,5:22000:22300!4MT$"Presidential Sea"5":PLAY,40,20,S:PAUSE,2:CO,X421,Y4:"0":PLAY,40,20,S:PAUSE,2PAUSE,6:CO,X421,Y4:" ":PLAY,20,20,S:PAUSE,2:CO,X414,Y4:" ":PLAY,20,20,S:PAUSE,2CO,X414,Y4:"4":PLAY,40,20,S:PAUSE,2:CO,X421,Y4:"0":PLAY,40,20,S:30050? 291,Y3:"9":PLAY,40,20,S:PAUSE,2:CO,X314,Y3:"2":PLAY,40,20,S:PAUSE,2:CO,X321,Y3:"0":PLAY,40,20,S:PAUSE,2CO,27,106:"To the year? "CA$;:GCP,X4,Y4DCO,X4,Y4:"1":PLAY,40,20,S:PAUSE,2:CO,X47,Y4:"9":PLAY,40,20,S:PAUSE,2:CO,X414,Y4:27100:27200:Y170:Y2130:28000::"From the year? "CA$;:GCP,X3,Y3Y2191:Y1140:28000:"You enter the dates 1920 and 1940 to specify the time span the computer should search.":29500qPUT,X1,Y1,AD:CO,X3,Y3:"1":PLAY,40,20,S:PAUSE,2:CO,X37,524000:Y1130:Y2191:28000:"This is the YEARS IN OFFICE submenu. To specify that you want to choose a range of time, you select Option #3.":29500:PUT,X1,Y1,ADL13:CO,ZX,ZY:" ":PAUSE,2:CO,ZX,ZY:"3":PLAY,40,20,S:PAUSE,2::BM10Et have served between the years 1920 and 1940.":29500:PUT,X1,Y1,AD:28000:"To further define and narrow your search, you select the general category YEARS IN OFFICE."29500:PUT,X1,Y1,AD:L12:21010:PLAY,36L2,20,S:PAUSE,2::200:21100:PAUSEoose SELECTION COMPLETE.":29500:PUT,X1,Y1,AD:J4:PH40:650^21100:J1:PH32:650:2115029100:FT0:20000:OF3:22000:EL1:21100:EL0:Y1WB:Y2191:28000:"Not only must the Presidents belong to the Republican Party, ";"but they also musJ3:PH40:650_v21100:PAUSE,5:MC5:MT$"Political Party":L15:MT$(L)::FT1:ELC:20000=Y1WB12:28000:"Here is the POLITICAL PARTY submenu. To specify that you want the Republican Presidents, you select the category REPUBLICAN. Then you chng to your sample question, the Presidents for whom you are searching must belong to the Republican Party.":29500lPUT,X1,Y1,AD:28000::"To find the Republican Presidents, you first select the general category POLITICAL PARTY.":29500:PUT,X1,Y1,AD:9:PH40:650:21150:PAUSE,5#W)XZ". This means that you must specify the categories by which the computer selects Presidents.";\" You select categories using the Search Menu.":30050:FT1:29100:20000rbY1WB:Y2191:28000:"Accordi29500:PUT,X1,Y1,AD28000:"To make your selection, you choose the category STATES ADMITTED and then SELECTION COMPLETE.":29500:PUT,X1,Y1,AD22000:OF6:200:21150:PAUSE,5:21300:20150:22300:PAUSE,5:OF8:22000OF0:200:21100:22000:J              HDʒđVO꺪A\HfOFa v 꺪JkBՁSՁ BՁSwB_EߟCB򸂔NySFEǓđHşؕϮI|UJ ԕןC.ՕLAXʨBAGQܰđ DxPFՁEՕՕן߃ߟFLFՁwQGDC⪾ꪩ񼯫GEAĐđĐϿFxR1709 (S36)2Ĺ956,(953):957,3(954):958,0:170W Z02:956Z,(S37Z):m 600:901,1:1000 SHOW CURRENT SETUP CO,0,27:"The current setup selection is:":(S36)1220,230::" one disk drive":: :" two disk dr" ";)NZ". ";)NMT$(Z)`)NMC%(IN%(EL)Z)22200:MOMO1:MOM1MAMIMOMC20160:MOMO1{)LOY2191:FTİ22000:FT0)P)R CUR MVS)R22000:OFOF1:OF0OFMOMF1)R21099)R22000:OFOF1:OFMOMF1OF0)kR22000:)lR SELECT*MIL0:MI%(Z,1)ZY:MI%(Z,2)0:" "MT$(Z):MC%(IN%(EL)Z)22200::20300x(NZMIMO:MOM1MA1MI%(Z,2)MOMO1:20300(N" ";:GCP,ZX,ZY:MI%(Z,1)ZY:MI%(Z,2)ĺ(MT$(Z),MI%(Z,2)1):" "(MT$(Z),MI%(Z,2)):M1M11:20200(NELC120190)NZ10ĺ1:CO,ML:MI$(L0):'NCO,15,160:"Arrows - To Move"CA$;:CO,166:"E - Erase":CO,15:"Return - Select"CA$;:CO,166:K1$" - "K1$K2$:LD$CC$'NWIND,WL,WT,WR,WB:MO0:M10:BOX,WL,WT1:CO:CA$;:ELELC220160H(NMOC%(EL0,MP)1:L00MO:GCP,ZX,ZY:Z$(L0),Z:ZWLWLZ&fN4&zNWL140(WL2):MLWL14X&NELELC1İ27100:27200:20105&NTM6:27100:TM0:SW,MT$,Z:Z((Z30)4)4:X1140Z2:X2X1Z:Y10:Y218:27000:CP$MT$CC$CQ$:X114:X2264'NWIND:BOX,30,WB1,250,WB3,5:CO,ML,WB8:L0MF0%%NMP1:MI1:OF0:WR270K%*NWT2510(ELELC1):MA11(ELELC1):WB130%/NSW,MI$(0),WL:L01MC:SW,MT$(L0),Z:MI%(L0,0)Z:MI%(L0,2)0%4NZWLWLZ%>N:MFMCMA:MFMAMA1:WBWB10:MI$(1)"See More Categories"%RNMF020090&\NL01MF:SW,MI selection, you choose the category KEY LEGISLATION and then SELECTION COMPLETE.":29500:PUT,X1,Y1,AD$22000:OF6:200:21150:PAUSE,5:22300:21300:20150:OF8:22000:OF0:22000:J4:PH40:650:21100:J5:PH32:650:21150:PAUSE,10$?$ N MENUMenu.":30050/#FT1:300:Y2191:Y1WB:28000#"According to your question, you want the computer to report the key legislation that was passed under Republican Presidents serving between 1920 and 1940."f$29500:PUT,X1,Y1,AD:28000:"To make yourBM10:27100:27200:Z$"Step 3":800:"The third step is to define your report. "; #"This means that you specify the categories of information about those Presidents that you want the computer to report. You select these categories using the Report rch":BM10:27100:27200::"These are the Presidents the computer found:":WIND,60,50,279,191:CO:"Warren G. Harding":"Calvin Coolidge":"Herbert Hoover":30050!>Y1120:Y2166:28000::"Now you are ready for Step 3, defining your report.":30050T"e zf%%h $20 Lc $ aHaH`S22000:OF0:MPMP1:MIMIMO1:MIMCMI1+HSELELC2ı+RSMPC%(EL0,0)MP1+S+U WORD1,UOFMORZMIOF:EL0İ22100:*RIMAGE,3,(WL21)2,MI%(Z,1):RBWB:RIMI:RFOF:RMMA:RM%MF:RPMP:ELMIOF:MT$MT$(EL):LK$" ":LD$AA$:K1$"S":K2$"earch Menu"*RMS((MS0)1)(MT%(EL)0)+RWBRB:MIRI:OFRF:MARM:MFRM%:MPRP:EL0:LK$" ":LD$AA$:29100:WRITE/READ ERRORZZE8ė:12:"This program diskette is damaged.":30500:EF1:IS34:wZE0ZE1532040:EF1:HI-RES I/O ERRWIND:CL$:CO,0,89:ZE8ĺ"This program diskette is damaged"CC$:30000:CL$:CO,0,89'ZEZE16ĺ"The copy o00:10010G'(Z$)4100996L'SC(Z$):SC3İ11000\Q'S36,SC:T0:ZD1:M1:WP1:34000V'910,SC:D$"BSAVE MECC$$DISK,A"S",L$28"D1$o'12000:35000:600:WPĺCL$:CO,0,89:"You may now replace your write-protect tab.":30000s'*HELP2)*ou may:"::" 1. Select one disk drive":" 2. Select two disk drives":" 3. Select special disk drive setup"'" 4. Make no change"$':"Which number? "CA$;:GCP,ZX,ZY:CO,0,180:"Press ? for help.":CO,ZX,ZY B'INP,(1,"-14?",1),Z$:Z$"?"İ109e over at various times in the program. Simply put the Presidential Database diskette in drive 1 and ";"the copied Introduction and Report Retrieval diskette in drive 2."30000:'CHANGE SETUPo'CL$"Change disk drive setup"CC$:200::"Yng "S2$", you are creating extra space to save more reports than the thirty alotted on the original diskette.":30000:CO,0,27:CEWh"Third, when you make a copy of "S2$" for a two-drive Apple computer system, you eliminate the need to turn the diskettl only be able to copy "S2$".":30000:CO,0,27:CEW"There are three reasons that you may want to make a copy of "S2$". First, saved reports are stored on this diskette. Copying allows you to make a backup of these reports.":"Second, by copyiport"QU$" menu screen. If you need to modify that setup, select "QU$"Change the disk drive setup."QU$:300003CO,0,27:CEW:"Copying the Diskette:"::"MECC Dataquest: The Presidents is comprised of a Presidential Database diskette and "S2$". You wilelp"CC$:::QU$"Diskette Support"QU$" allows you to (1) confirm or change the disk drive setup and (2) ";:CRĺ"create and ";{"copy "S2$"."::"Changing the Setup:":m"The current disk drive setup is displayed at the top of the "QU$"Diskette Sup:(ZDZT)(QN$ZN$)ZU0:CL$:WIND:HSP,1:CO,0,79:"Please insert your "QT$(ZD)" diskette in ";:QC3ĺ"drive "(9513ZD);QC3ĺ"the drive located at:":" Slot: "(ZL):" Drive: "(ZL1);".":30000:33010 GET DISK NAME ANDO$:CO,0,80:"Error "ZE" at line #"ZN" in Tutorial Part 3."::"Please report this error to MECC.":30000:31000耲 R/O DISK VERIFYZS(0):SET,ZD:ZS704:ZL9503ZD:ZU1ZE0::ZEĺD$"BLOADMECC$$DISK,A"ZS",S"(944)",D"(945)",V"(946):33200(Z$"Y"):33000:Z$"Y"įRNH,"OVER"`yCL$:CO,0,89:Z$"E"ĺ"Getting The Presidents menu..."pyRNH,"MENU"}}" ERROR }ZE(222):ZN(218)(219)256:216,0:32000}ZUZE0ZE16Ħd}REENTRYn}ZE255Ĵ(919)031000:px}WIND:CL$C<< serving between 1920 and 1940?"p9Ã2,10,8,3,6,8,9,Federalist,Democratic-Republican,Democratic,Whig,Republicann menu":WIND]):"Which number? "CA$;:GCP,ZX,ZY:CO,0,180:"Press ? for help.":CO,ZX,ZY.INP,(1,"-1"(4(CR))"?",1),Z$:Z$"?"İ19008Z$"?"Ĵ(Z$)((CR)((Z$)1))10000,15000,20000,31030B1000lHELP1~vCL$"Diskette Support Hf "S2$" can not be completed.":30000:9MAIN PROGRAMbWIND:CL$"Diskette Support"CC$:200$:"You may:"::" 1. "CA$;:GCP,ZX,ZY::" 2."::" 3." %WIND,ZX,ZY,279,191:CO:"Change the disk drive setup":"Copy "S2$:"Return to the maiYY)9,279,(77YY)9:CO,0,(48YY)9:"Copy will look for "Q$" in:":CO,0,(127YY)9:"Is this correct? ";:36000:CO,0,(127YY)9)DRCEL:Z$"N"21010)kR)U COPY TRACK 0 UNPROT)UTT1:ZD1:WP0:M2::34500:ZF2ı)V:11:RR$@*VSNOPROR:M1:I$"-37":L$" Slot: ":DF$((OS)):300:OS,(DL$)(&RM1:I$"12":L$" Drive: ":DF$((OS1)):300:OS1,(DL$)(0RM3:I$"-09":L$" Volume: ":DF$((OS2)):300:(DL$)255DL$"254":CO,ZX,ZY:DL$(5ROS2,(DL$)):RCEW:BOX,0,(58N500:T0:ZD2:WP0:M2::ES0:34500::12:"One moment please...":901,1:NOFILT:D$"BRUN PPRINT.OBJ"D2$:D$"BRUN DISKUTIL.OBJ"'N'RGET COPY CONFIG'RYY(Q$S2$):OS9533YY:CO,0,(48YY)9:CEL:CO,0,(58YY)9:CEL:"Where will "Q$" be?"=(N:11:"Writing to the copy of "S2$"...":ZU1:ZE0:ZEįDW,IS,0QS,1516384a&fNZEİ700:20076&hNK64QS34ZEįDW,5IS,07IS,1553248&jNZEİ700&lNZU0:IS&nNZ$" is":EFZ$" couldn't be"&pN:11:"The copy of "S2$Z$" finished.":30500'z345(3K64):TT1:ZD1:WP0:M2::34500:ZF220076Y%^N:11:RR$:QSIS4:QS34QS34%_NZU1:ZE0:ZEįDR,IS,0QS,1516384%`NZEİ700:20076%aNK64QS34ZEįDR,5IS,07IS,1553248%bNZEİ700:20076%cNZD2:T2:WP1::34500:ZF220067M&d copy of "S2$"...":DT$",S"((956))",D"((957))",V"((958)):400:ZEİ500:$YNIB(ID1)256(ID0):16128,IB:SPRO:ZU1:ZE0:ZEįDW,34,1534,1516128$[NZU0:ZEİ750:$\NUNHOOK:901,2:::FILT:EF0:22000:ZEİ700:200785%]NIS5(3K64)ive 2 and "S2$" in drive 1";=#@N(S36)3DC2ĺ" and "S2$;M#CN".":30000#ENDC2TT1:ZD1:WP0:M2:34000:PTZP:ZU1:ZE0:ZEįDR,34,1534,1516128#FNZU0:ZEİ750:#GNID(16128)#HNZD2:39000#RNOKİ500:S$WNCL$:CO,0,79:"Preparing a00:Q$"your backup diskette":21000:DC(D1$D2$)1"NCO,0,27:CEW:CO,0,7910((S36)1):"Please insert your backup diskette";:(S36)2ĺ" in dr NCOPY DISK*!*NES1:T1U1:CL$"Copy "S2$!4NCO,0,72:"Copying "S2$" will erase whatever information is currently on the backup diskette."::"Do you want to continue? ";:36000:Z$"N"İ500:3";NDC(S36):DC3ĺCL$"Special Copy Setup"CC$:Q$S2$:210t the current values which are displayed to the right.":30000D .Y .SET PAGE 3 VARS .ZC(S36):ZC3Ĺ956,(S37):957,(S38):958,(S39) .ZC3Ĺ956,(953):958,0:ZC2Ĺ957,3(954) .ZC1Ĺ957,(954):(955)254Ĺ958,(955)1 C/ !"11015&R+S37,SL:S38,DR:S39,VO,[+7|.HELP3d.CL$"Special Disk Drive Setup Help"CC$:> ."To change the slot, drive, or volume of the drive which holds "S2$", type the appropriate numbers and press Return. Pressing Return alone will accep3:I$"-09?":L$" Volume: ":DF$((958)):300:VO(DL$):VO255VO254:CO,ZX,ZY:VOq+DL$"?"İ11900:11010+CEW:CO,0,99:BOX,0,99,279,119:CO,0,90:CEL:N$" will look for "S2$" in:":CO,0,163:"Is this correct? ";:36000:CO,0,154::CEL:Z$"N? for help."J +CO,0,90:BOX,0,90,279,119::CEL:"Where will "S2$" be?"+:M1:I$"-37?":L$" Slot: ":DF$((956)):300:SL(DL$):DL$"?"İ11900:11010+M1:I$"12?":L$" Drive: ":DF$((957)):300:DR(DL$):DL$"?"İ11900:11010V+Me, and volume locations of "S2$"."-*300003*F*SPECIAL SETUP+CL$"Special Disk Drive Setup"CC$:::"The Presidential Database diskette was started from:"::" Slot: "(953):" Drive: "(954):" Volume: "(955) +CO,0,180:"Press r 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$:30000:CO,0,27:CEW"*:"The special disk drive setup will ask you for the slot, drivCL$"Change Disk Drive Setup Help"CC$::*"To use this menu, select the option number that corresponds to the number of disk drives you are using. The current selection is displayed at the top of the screen.":*"Most users will have either one obh` mc i (g$20 L-Ty"Getting the "PN$" menu..."v-^yNOFILT::901,0:D$"BRUN"UP$D1$:RNH,"PPRINT.OBJ"-hyRNH,"MENU"-}ERROR PROCESSING- }ZE(222):ZN(218)(219)256::(4)"CLOSE"-}ZUZE0ZE16Ħ-(}REENTRY POINT.<}ZE2155)ES:ZF2EF1:ZE1:IS34:;,VwZP160ZP14130540M,`w16368,0::a,yENDING ROUTINEv,ySPRO:(901)Ĭ,y500:(901)2T0:ZD2:WP0:M2:34500::, y54915:1000,6y500:ZU1:ZE0:ZEĺD$"VERIFY LOGO"D1$-@yZU0:T0:ZD1:WP0:M1: TYPEZN$"":Z1Iā(ZSZ)0Z36ZN$ZN$((ZSZ)):ZZ1:33220[΁ZT(ZS35):1520480+@VZEı2+JVK64ZEįDW,5,07,15532488+SVN+0uSPACE-BAR HI-RES_+:u:SPACE::s+$wSPACE-BAR TEXT+.wZF0:24:1:868:7:"Press ";:(64435)6Ğ+8w"SPACE BAR";::" to continue"; ,Lw16368,0:16384,128:ZP(16384):ZF(ZF1)(ZP:ZU1:ZE0:ZEįDR,0,00,1516384:SPRO:ZEįDR,1,04,1520480J*VZEıj*VK64ZEįDR,5,07,1553248t*VZEı*"VT2:ZD2:WP1::34500*,V:12:"Writing to the copy of "S2$"..."+6VSNOPRO:ZU1:ZE0:ZEįDW,0,00,1516384:SPRO:ZEįDW,1,04,5,191:CO:Y$"Y":(903)1Y$"y":"As you recall, ";Y$"our questions about the Presidents can be of three types. They can be questions about:"::L12:" "L". "UT$(L):" 3. Presidents Selected by":CO,52:"Category":30000MT$UT$(QU):,20,20,249,181:CO:d SW,Z$,Z:CO,140Z2:Z$:GCP,ZX,ZY:BOX,138Z2,ZY1,140Z2,ZY3,RD::: BOX,X113,Y113,X213,Y220:L1(MP5)5(MP5):CO,60,75(LMP5)10:MT$(L):: MT$UT$(QU):(907)1Ĺ907,0:20005700:750:WIND,21,40,26F$:D$"READ"F$:L1MC:MT$(L)::D$"CLOSE": WIND:CL$:BL:L104:1L1,4L1279L1,4L1279L1,177L11L1,177L11L1,4L1::WIND,20,20,249,181:CO: SW,MT$,Z:Z((Z10)2):WIND,140Z,0,140Z,9:CO:BOX,140Z,0,140Z,9,4:CP$MT$CC$CQ$:WINDDFT,7,I2:L38:IMAGE,L,36,10:PLAY,L4,20,S:PAUSE,2::IMAGE,12,36,10:PLAY,36,20,S:PAUSE,5: ,ND160:(975)āL123:PLAY,NN%(L),(NDND%(L)): 6 L111:O(L)L::L111:R((1)11)1:TO(R):O(R)O(L):O(L)T::- ZD2:33000:D$"OPEN"(12),Z(11) ZS704:RFL,"MECC$$DISK"ZS:33200:QN$ZN$:QC(910):QT$(1)"Presidential Database":QT$(2)"Introduction and Report Retrieval":FL(11,2),O(11):L111:L112:FL(L,L1):: L111:L114:PP%(L,L1):L1:PN$(L):L 919,1:1000a (10):CK$(11):CU$(21):QO$(34):I135759:I254504:RFL,"DATABASE.IMA"I1:DFT,7,I1 xRFL,"FILE.IMA"I2:CP$(16):CQ$(17):NN%(23),ND%(23):L123:NN%(L),ND%(L)::L13:UT$(L),QL$(L),QU$(L)::X116:X2264:S(975)10:QU(901) PP%(12,4),PN$<<0p0000xx 8` 8 x8x x<`x 0```xxxx| ```0``0`00`x000||0xxx||````` xxxFAFPARSNOJUSJUSCNNOCNGCVSHSCECEPAUSHOOUNHOOSPACCWININ kjkkkkkkkkkk)m3g~mmm0lmm;n`lllll~~~0` pvv0`0``0`000`~<~0000`` 0`xxpPLMpNKp,p05Ɉhd ,pɿɯ 詍0S,pɁɍpA,p ,p0pLp) pLp9p ,p0 Lo pLo ` ֩PyQ AL ppp`~p}p ^p}p~p` ~LhpH)hJJJp` ` @BOD?npLnnpLn ^p nto n ^p-tototo hpLnsouoso^` , g 掮p ,qo pp) p pp)Np ߅ l vo ) L{Kp,p0- HHHp hhh ɛ nKp,KΣ  Li`+ LiR("  Li5880`L 㩀pqopppppp ( pLDo {$0$ 掯pnp ,Lo {$0LoNqo uoL oso nR-8n m, mPݩ *mhhhhhhhhh, mp` ֩PyQ ALŠҠ僁iimiʈii &',iq&i,$20Li N8`3g `.3g`mm ` ң ` @)`,` j ެLj,H+l  .l  h,,.l,`L, HHHHHHHHH k  m j mNO,ɍɠ ɛ` `L3f̙jj ߅$0jj  c`Lvjj j` Liiii LimHihʍiii LiL H g Rh PQ`L   )?` iiii rgifjiii rgi`jii͇iBi |g&'i jQ&-iQ&&ȭi̇i j& jQ&-iQ&&iii`i-iii |g&'i jQ&-iQ&&iii`*U U*ժ j')JMj)i Q&,iP 0=j`j`J&)MihPjjjjjjj0jj) i0ȱjij iiiР`8pPH)8 qȥq8)h` g R  QP (`L Li`L)  @ imjiiyjg(gnggmgog`8pmgJJJ) }hqggmogpg`((((PPPPiHhii iJ` &eeiei rgiIihi i |gmiif@ f f (g`LEc =e)g*gLzf -`,(g`imimʈiiiʎi$20Li gogng`mgog gpgqg`mg g gpgqgng`ggg8pg.%+g 8)gH*gJhj`m)g)g*g` Ec =e` Ec =eI``,L =ee80 " fm8h)` =eem88eLf` =eeme` =e8`2gLf `S`S```+g穀2g 1g`+g3,g'+g+g ``) ``+gʽ`) ` `+gH`mS` 0eS`)e`e ie L111:Z(L)FL(L,1)85:Z(L)279Z(L)Z(L)(Z(L)279):CL$:DFT,7,I2:L212:L101:L1(7L1)4(7L1):IMAGE,2(7(L22)),FL(L,1),40(100L1):::PAUSE,5:?L21284:L101:L1(7L1)4(7L1):BOX,FL(L,1)(FL(L,1)0)(6(FL(L,1)ccording to the sample question, you want the computer to REPORT the age at inauguration of each President.":29500:PUT,X1,Y1,AD28000:"The computer SEARCHES each file, finds the specific information, and REPORTS it to you...":29500:PUT,X1,Y1,AD:" 2. Return to the Introduction":CO,64:"menu"::"Which number? ";:INP,(1,"12",1),I$:I((I$))} WIND:I8000,10000ALL"your question, the computer must SEARCH each President's file in the database.":29500:PUT,X1,Y1,AD28000:"And the information that answers ";:QU5000,6000,7000W 903,1:904,1:(906)110000 700:750:WIND,26,40,279,191:CO:"Now that you have seen the graphic presentation, you may choose to:":e " 1. See the step-by-step":CO,64:"instructions":2$" facts in each Presidential folder are organized in the same manner and according to the same 23 categories. This makes it easier for the program to collect the data and for you to analyze it.":29500:PUT,X1,Y1,AD5Y1Y15(8(QU2)):28000:"To fi30MH1$"Here is the file box representing a database":H2$"Remember, the"H1$" of information about the U.S. Presidents. In it is a file folder for each President containing facts about his life and Presidency.":29500:PUT,X1,Y1,AD:28000H10,109:" 3. Return to The Introduction menu":::"Which number? ";:INP,(1,"123",1),N$:N((N$)):902,N:N28000.N310000CL$:DFT,7,I2:IMAGE,1,50,10Y1105:Y2191:28000:(903)0H1$"Imagine the database as a file box":H2$"The":20WIND,10,30,265,175:CO:"There are two ways you may learn about how the Presidential Database finds the answer to your sample question. You may choose to see the:"::" 1. Graphic presentation"u$" 2. Step-by-step instructions":CO,52,96:"or":CO,ues:":" 1. Presidents must be":CO,51:"Republican"::" 2. Presidents must have":CO,51:"served between 1920 and":CO,51:"1940":"indicate that you want information about Presidents who fall into selected categories.":30050:700:750 about all Presidents."QU2ĺ"The name James Buchanan is your clue that you want information about a specific President."WIND:CO,20,150:"Press ? anytime you want to see":CO,20,158:"your question.":30050:700:750:QU31050:"The cl700:750:"Here is an example of a question about "UT$(QU)":":Y146(20(QU3)):Y290(20(QU3)):28000:CO:GCP,XP,YP:QU1QU2įCO,XP,YP6QU$(QU)WIND,20,100,259,156:CO:QU1ĺ"The word "QO$"each"QO$" is your clue that you want information(N$ZN$))ZE6ZE9)(16128)IB34570_3ԆZEZM2(TT1)(T1ZT)(N$ZN$)(16128)ID345703؆ZC(S36)::10(ZC3):"Please insert "Z$Z1$;:ZC2ĺ:" in drive "ZD;4↭ZC3ZL953(ZD2)3::" in the drive located at:"::" Slot: "(ZL):" 919,1:(900)įGNK,K:GNE,K1,R:RR1:AD16384RK:20000D 10000Q 27000:b PRINT NAMES CL$:WIND:CO,0,0:MT$CC$:L01N:CO,142(L015),10(L015(L015)):L010)L0". "N$(L01)::CO,0,164: INPUT CA$;:GCP,ZX,ZY CO,ZX,ZY:CODE i32000 nM30:N$(M):PF$".DATA":FCN,PF$,N$,N:ZS704:RFL,"MECC$$DISK"ZS:33200:QN$ZN$:QC(910):QT$(1)"Presidential Database":QT$(2)"Introduction and Report and Retrieval" xD$(4):CA$(1)::CC$(3):CL$(12):CP$(16):CQ$(17)9  PRESIDENTIAL DATABASE7PROGRAM: FILE HANDLERSPROGRAMMER: R. SHIMADAp(COPYRIGHT (C) MECC 19852"LAST UPDATE: 85/06/26 RMSP919,0:(4)"MAXFILES1":36120ZRNH,"FILE.OVL":HSP,1:RFL,"DATABASE.IMA"49152:DFT,7,49152 dINIT e a MECC "Z$" diskette. Are you sure you want to erase it? ";:36000:OK(Z$"Y")W8m8MECC$$DISK FOUND8Ƙ38000:CO,0,738И"You are about to erase a "T$(ZT)" diskette for "ZN$".":::"Are you sure you want to do":"this? ";:36000:OK(Z$"Y"),ZP:ZU1:ZE0:ZS640:ZEįRFL,"MECC$$DISK"ZSN7vCO,0,27:CEW:ZEİ39100:7ZU1:ZE0:Z9503ZD:ZEĺD$"VERIFY LOGO,S"((Z))",D"((Z1))",V"((Z2))7Z$"program":ZEZ$"data":ZP1OK1:Q8CO,0,73:"WARNING:"::"This appears to bn"36020&6(Z$)100Z$((Z$)32),6H6pGET DISK NAME AND TYPEW6zZN$"":Z16(ZSZ)0Z36ZN$ZN$((ZSZ)):ZZ1:380206ZT(ZS):ZM(ZS35)6Ӕ6XCAN DISK BE DESTROYED?6bSET,ZD:CPRO,ZP:ZPįCPRO,ZP:ZPOK1:.7lSPROfJHIUN?GB?DB?AUMB?DB?B3L3A?L?BH3L N?DI*KPDrDGJBFBEgIULOBUILD DRIVE STRINGSJ5̈D1$",S"((953))",D"((954))",V"((955))5ֈD2$",S"((956))",D"((957))",V"((958))55YES/NO INPUT5(1);:GCP,ZX,ZY6CO,ZX,ZY:INP,(3,"YESNOyesno",1),Z$:Z$(Z$,1):Z$"Y"Z$"y"Z$"N"Z$"fBEB`ExB`ABBHffTIH*JIUPj C/#( BPt}_Wu}?GU**B_Wu}}kzC **U3L3BB|N|pNH 3LX?EHUJI*W xzz{{z~J*UUCA~z{;KOoB UU*ffBBNfX`WBH*JIU\?NU**D  **UL}ABxBAINH*JIUPI*C*UUJ?n@Z?BpAINHUJI*PHU`CU**GX`CxS]vX`ZBINH*JIUPE*Jr|?#( BPu_UC?PVP|O3LBS;n;l0@DB@RI ?LHUJI*PAUey~GQ!hz>/kz~C*UUFy9)iYYBy UU*UB|}}sOSTNUACUBBUEq|QB*RA~x>~2xLg~IB*BBBAIIALLAOaBaBLaJI*FO~^VTUC~U**SBUU~L|~|~IBUBBBAIRACJIUR?/+D*C*UUQ?B*uB*?B|BBAINHWJI*PWHUCU**NBxCaL@|AIBUBBBAII`~pgpCpg`f`CCyIUF ?OSTu}?OSPUQAq|JB*TL LACIB*BBBAIGy8B9 0yy`yyIcCs?I*C ')jz~')Z* bx~MBURA??<9|JAggg'IBUBBBAIIpCfAsqBsaC~~BIPP%(O(L),2)23 q:CP$PN$(O(L))CQ$::L:PAUSE,10 vX114:Y1Y130:28000:"Here are the files of all the Republican Presidents.":29500:PUT,X1,Y1,AD:Y1Y130:28000K!"The computer further narrows the number of files and SEARCHES only for those Re find all the Republican Presidents.":29500:PUT,X1,Y1,AD:200:CL$ l400:DFT,7,I2:L111:IMAGE,2,FL(O(L),1),FL(O(L),2):PLAY,O(L)4,20,S:BOX,PP%(O(L),1),PP%(O(L),2),PP%(O(L),3),PP%(O(L),4),7:CO,PP%(O(L),1)6((O(L)1)(O(L)8))4((O(L)11)1),:BOX,96,80,154,92,7:CO,98,82::"Buchanan":IMAGE,11,70,50:L135:BOX,78,50L,208,50,7:PLAY,L,5,S::CO,90,30:"States Admitted"::Y1172:Y2191:28000:29500WXDb"the sample question, the computer must first SEARCH the entire database to Drive: "(ZL1);54".":30500:ZF234599:34505D4 WP34599z4DR,17,017,016128:ZE0:ZEįDW,17,017,0161284WP(WP1):ZE4ė:12:"Please remove the write-protect tab":"from "Z$:"of "N$".":WP2:30500:ZF234599:345054'ZU0:5")30100:Z$"N"10000-,)N1RE1:11000o6)CO,0,164:CEW:"Which report would you like? ";:2000:11000~h)SEE NAMESr)1000:30000:*ZD2:WP0:33000:RFL,N$(RE1)PF$:27100:CO,10,60:"The report "N$(RE1)" has been retrieved."G+CO,14. Return to main menu"z~':"Which number? ";:INP,(1,"-14",1),CH$:(CH$)10500,3000,10600,31100:CH$"2"10000:10100)RETRIEVE)MT$"Retrieve a Report":1000:N1ĺ"Do you want this report? ";:10530)"Do you want any of these reports? ";'WIND:CL$:N10100]$'CO,0,89:"There are no saved reports on this disk.":30000:31100t'MT$"Report Retrieval Menu":27100:27200:WIND,40:CO,40,56:"You may:"::" 1. Retrieve a report":" 2. Delete a report":" 3. See report names":" ing report "N$(RE1)"..."CC$::D$"DELETE "N$(RE1)PF$:FCN,PF$,N$,N:BOX:CO::"The report is deleted."CC$:27050: FANCY STUFF X16:Y1143:X2272:Y2181:WP1:ZD2:33000:DUN,"SEAL.PCK"50000,8:49289(944)16,0 27000: 'LOAD REPORTwant to delete any of these":"reports? ";? 30100:Z$"N"ıS N1RE1:3060 CO,0,164:CEW:"Delete which report? ";:2000 CO,0,164:CEW:"Are you sure you want to delete report":"#"RE", "N$(RE1)"? ";:30100:Z$"N"ıu 4000::"DeletN9įINP,(2,"-09",1),RE$:2040? INP,(1,"-1"(48N),1),RE$[ RE(RE$):RE0RENı CO,0,180:"Please enter a number from 1 to "N".":2020 DELETE MT$"Delete a Report":1000:N1ĺ"Do you want to delete this report? ";:3030* "Do 0,90:"Do you want to delete your saved report from the disk? ";:30100 +WIND:Z$"Y"ĺCL$:CO,0,89:"One moment please...":ZD2:WP1:33000:D$"DELETE "N$(RE1)PF$.ZD1:33000:CL$:CO,0,89:"One moment please...".RNH,"REPORT" NSAVE REPOR(MECC Dataquest: The Presidents00:"The first step is to determine the type of question you are asking. You will recall that questions can be of three types:":$)2#L12:" "L". "UT$(L)::" 3. Presidents Selected by":CO,51:"Category"::"Since your question is about "UT$(QU)", yD# 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! <!=!< =Ѝ ,Presidential Database program can find the answer to your question.":"The three steps are:"'c:" 1. Selecting the question type":" 2. Defining your search":" 3. Defining your report"'h30050:700:750:WIND,20,20,249,191:CO((#Z$"Step 1":8:28000:QU$(QU)&TWIND,20,40,265,191:CO,21,142:"Press ? anytime you want to see your question.":30050:700:750:WIND,20,40,265,191&YCO:TH$"There":(906)1TH$"there":"Remember, ";\'^TH$;" are three important steps to complete before the 00:29500:PUT,X1,Y1,AD%?c%@X116:X2264:Y2191:MT$UT$(QU):700:750:WIND,20,30,265,191:CO%J"Here are step-by-step instructions explaining how you would use the Presidential Database to find the answer to the sample question:"&OY180:Y2124X1,Y1,AD$DFT,7,I2:L57:IMAGE,9,FL(L,1),FL(L,2)::L1352:L157:BOX,FL(L1,1)6,FL(L1,2)L,FL(L1,1)85,FL(L1,2),7:PLAY,L,4,S::%:L57:CO,FL(L,1)33,FL(L,2)33:CP$"Key":CO,FL(L,1)10,FL(L,2)25:"Legislation"CQ$:::Y1172:Y2191:280 about the key legislation passed under each of these Republican Presidents.":29500:PUT,X1,Y1,AD$28000:"The computer SEARCHES the files of the three Presidents, finds the key legislation for each, and REPORTS the information to you...":29500:PUT, computer has found those Presidents who are Republican and served between 1920 and 1940, it is ready to SEARCH the three files for specific information.""29500:PUT,X1,Y1,AD:Y1Y110:28000b#"According to the sample question, you want informationpublican Presidents who served between 1920 and 1940.":29500:PUT,X1,Y1,ADz!L111:ZFL(O(L),1)92:Z279ZZ(Z279)!O(L)5O(L)7įBOX,FL(O(L),1)(FL(O(L),1)0),FL(O(L),2),Z,FL(O(L),2)60,4:PLAY,O(L)4,20,S":Y1Y110:28000:"Now that the<<95,Coolidge,205,85,256,95,Hoover,0,145,26,155,elt,77,145,121,155,Hayes,165,145,211,155,Grantz5à 253,145,279,155,"Rea"s passed under Republican Presidents serving between 1920 and 1940?"4à -30,0,62,0,154,0,244,0,6,60,98,60,190,60,-30,120,58,120,146,120,232,120\5Ã0,25,41,35,hower,81,25,123,35,Nixon,177,25,216,35,Ford,255,25,279,35,Lin,19,85,75,95,Harding,108,85,169,at was the age of each President when inaugurated?","Specific Presidents","specific Presidents","Which states were admitted during Buchanan's administration?"D4Ã"Presidents Selected by Category","Presidents selected by category","What key legislation wa"":Z1;2ā(ZSZ)0Z36ZN$ZN$((ZSZ)):ZZ1:33220M2΁ZT(ZS35):2ZÃ27,2,29,3,31,8,32,2,31,3,29,8,27,3,29,8,27,4,24,4,22,2,20,2,27,2,32,3,34,8 2dÃ36,2,34,3,32,8,34,3,32,8,34,4,36,4,34,13à "All the Presidents","all the Presidents","WhZN$)ZU0:u1CL$:WIND:HSP,1:CO,0,79:"Please insert your "QT$(ZD)" diskette in ";:QC3ĺ"drive "(9513ZD);1QC3ĺ"the drive located at:":" Slot: "(ZL):" Drive: "(ZL1);1".":30050:330101 GET DISK NAME AND TYPE2ZN$0,80:"Error "ZE" at line #"ZN" in Tutorial."::"Please report this error to MECC.":30000:31000x0耲 R/O DISK VERIFY0ZS(0):SET,ZD:ZS704:ZL9503ZD:ZU1 1ZE0::ZEĺD$"BLOADMECC$$DISK,A"ZS",S"(944)",D"(945)",V"(946):33200:(ZDZT)(QN$moment please...":RNH,"OVER"Y/yCL$:CO,0,89:Z$"E"ĺ"Getting The Presidents menu..."i/yRNH,"MENU"v/}" ERROR/ }ZE(222):ZN(218)(219)256:216,0:32000/}ZUZE0ZE16Ħ/d}REENTRY/n}ZE255Ĵ(919)031000:b0x}WIND:CL$CO$:CO,:INP,(3,"YESNOyesno",1),Z$:Z(Z$):Z$(Z32(Z96)):Z$"Y"Z$"N"30120R.u`.y" ENDING."yWIND:CL$;CO$:CO,0,89:"Do you want to try again? ";:30100:31110.|y.yZ$"E"/y54915:T0:ZD1(Z$"Y"):WP0:33000:Z$"Y"ĺCL$:CO,0,89:"One Z2Z3İ27000:29510-Ps,-0u" SPACEBAR=-:u:SPACE::M-bu" SPACEBAR-luWIND:CO,0,183:"Press SPACE BAR to continue"CC$-vuWFK," ?/"(13),Z:Z2Z3İ27500:30070-uBOX,0,183,279,191:-u" YES-NO-uCA$;:GCP,ZX,ZYL.uCO,ZX,ZY:CEL "(13),Z:PUT,X1,Y1,AD:3,`mTAKE,X1,Y1,X2,Y2,AD,jmRD:BOX,X1,Y1,X2,Y2,4:ZL13:X1ZL,Y14ZLX2ZL,Y14ZLX2ZL,Y24ZLX1ZL,Y24ZLX1ZL,Y14ZL:ZL:WIND,X113,Y18,X213,Y26::CO:,NCO,30,100:"Do you want to delete a report? ";:30100HNZ$"N"20999RN3000:20010 N27100:MT$"Save a Report":27200:WIND,30,80,270,170:CO:"What do you want to n9z!#<??   ̮ʠ ŠԠ / נٮàŮ̠ ŠԠ3" ŠҠ ŠԠ 1  Ԯʠ̮ʠ Ϯʠ Ϡ "Ҡ4 Ů Ϡ  ȮѠҠԠ ԮѠ Ů ̮ˠҠ/̠ѠŠäˠ ԮѠҮв8"Ϡ!ҮгӮѠCaL@|AI*Bx_yxUBUI`~~p~~`C fgCgAyxB9pIBUBBBAII<8C BOCAByAIUM`?KB*IaLB|LaCC3C L Lgg`Bf`IB*BBBAIIp?xs8C ypr3sgcBgCI*J')jxb\ IBUICByCCffC|yxBBBAIIBsGsaBsBA?A?BI*BGBUBUIOCOAA|p||dqLx3p0IBUBBBAIIBgCB3 pf~pgfpIUB@@GppBpUB*I3102B3CaOALAEOC`~pgpIB*BBBAIIOOCBfgINHjJIUBM?JB}UWWwGLHB*RDOJggBgIB*BBBAIPaDsaJI*BD~~A~F?/ok{z~~J`yHBUR|y9y9.njzzF~fF~xBUu~BU~CBBAEBffPA*UyyyyyyyyDyUU**DffT`x~DH*JIUID?B0B< |t=>0)?><@=0)?><@=@ |t>0BDHt&cu'Ch&BDBBC`((((((((((((((((    om your "QT$(ZD)" diskette.":WP2:30000:33010:KZU0:W GET DISK NAME AND TYPEfZN$"":Z1ā(ZSZ)0Z36ZN$ZN$((ZSZ)):ZZ1:33220΁ZT(ZS35): 1ā(ZSZ)0Z36ZN$ZN$((ZSZ)):ZZ1:33220΁ZT(ZS35): ocated at:":" Slot: "(ZL):" Drive: "(ZL1);M".":30000:33010o. CHECK FOR WRITE-PROTECT TAB~0WP330998:ZE0:ZEĺD$"BSAVE MECC$$DISK,A"ZS",L$28"/BWP(WP1):ZE4įWIND:CL$:CO,0,89:"Please remove the write-protect tab fr:ZS704:ZL9503ZD:ZU1ZE0::ZEĺD$"BLOADMECC$$DISK,A"ZS",S"(944)",D"(945)",V"(946):33200:(ZDZT)(QN$ZN$)33070CL$:WIND:HSP,1:CO,0,79:"Please insert your "QT$(ZD)" diskette in ";:QC3ĺ"drive "(9513ZD);6QC3ĺ"the drive l9 || |x ````l8|x0x0x| x0`0````0``0``v000FʊDvFGID\E?AQFCЀID\AfC&0QFAMD\A0Bf&CggBgEFՀNDDD3O B8C~|fBgEFNDD~>2OAOICAdgEFĀՀNDDAgff&OAIHOCXEM MՂMM ՀMORVVVURՀN MՂMMՂMMՂFՕFC ՀD ՀD ՀEEBĀ hCЀπՀBBĀՀB#ՀBADADADA2ՀՀϢĀDADA-ՀԀՀՀĀEYNDGDCЀDAHՀIIĀՀI ЂF ՀD ՀDBADDAՀDDADDAՀDC&ՀՀBADADADABA#ՀϢCĀ ]AB ЀB?ЀՀբՀĀՀՈՀՀՀABADAթCժDDĀժD)ժBADADADA1ժժ̢FĀ [H ՔDӀՀBCՀCĀKՑՀIՀIՄBAIՁCAՀICAIՁCAՀIՀIՀI ՑՀEДőđĀ RIAHDЪԀAAA EDDDDC CGGGFCCDDDDDDDG`ATFʊGЀICЀI M ՑՀN N ĀՀN KՑՀIIՄBAICAIՁCAICAIՀII ՑՀEДőđĀ BBԇCD⊪BBA@ ">M  4nnnrspՀnnՀnnՀnmmMUАUDBGICЀI L ՑՀN N ĀՀN   ȱ<`Hha {8 $h`а ,,i,,`@@H?e@??h r@ ?88` , <= <ȭ<ȭ<ȭ<ȭ<><ȥ?< <H<= H <= I<<`*>%>>*@%@@ 3E@L`ɪɭ`8`뒩 F` <꒭ m꒨Ƒϑ+@,I-R %ɩ` Z ZLu< ϬȽ` <=ʱD>` L&`EE݌$8`ab _݃`pab,~p8`dd`Χ  5$8` 8L2ɪɖ8*3-33*<%<< L+ɐvw+L|ɯL= 8ɀ   Lޤȱ 0:,јe湥 figi , ,`vwL<=? :p"i>j? %p ̗g^h_^`ȱ^Șe^^_iȑ^^__^]@A Y  # { RPQ * ,L ̗Ll`Q ːeDaEbBeCf@gAh>i?j & )̗ e,L׭XLXLX ͗$)̗i>j? p̗ G 8`Lg8hegiȱehj8LҔ $ F, ` $ L, L o?> o=<8?. e<&8>!>> g R>P>Q *?=<`L #H h`STɸST` ST` L ː\DaEbBeCf@gAh>i?j & Ȕɔʔբ x L8Ȕɔʔ˔͔̔ xΔϔД Ȕɔʔ`v mvvww xv,w+-w `Uz_j`S縎X]` LLz DL ߅$0  c`Lv YĀNԔŠFQBiZWBCBZZdAM\fՄB^fAAaf וgfBo IBICCD 丒DBωˈD ˘DǓDǒCDCIBIBACEFDAIDDA3rOA 8CAsAssGEFDAIDGAPAOICAyCAEFDAID\AIQF ՀID^RF IDvF ՀECДŠAd EF KDDA?2CAB3CAyxByxCODONLEF ՀIDDAsB2C'gBffgCOOOCABEF IDDA>2DI<CACyEFBAIDDAr>OAICAICO KDHOIKTAyAAI|~|D$&TAvBIGDGTAsCCIaCsDaCsTAsECSpB9pTAsECSBTAsECSCTAsEssEȢ) ̌⋭⋐&`⋢ m狅m苅  {`L { 拱^ `g`ދߋዢ .ߋ mދmዬ` .x狌苠鋈 l u/>? }>?2ȱ쨊 }LԠ ㋱  oi#Ǎ㋨LI⋩ ~`Ȍ勘iFɠ4.ȩ  ".":30000:33010/3 GET DISK NAME AND TYPE>3ZN$"":Z1s3ā(ZSZ)0Z36ZN$ZN$((ZSZ)):ZZ1:332203΁ZT(ZS35):3ZÃ27,2,29,3,31,8,32,2,31,3,29,8,27,3,29,8,27,4,24,4,22,2,20,2,27,2,32,3,34,8 4dÃ36,2,34,3,32,8,34,3,32,8,34,4,36,4,x(ĮӮĮƮ®ͮҮӮ®䠨䠨Ǯˮ    34,1V4Ã"All the Presidents","Specific Presidents","Presidents Selected by Category"5Ã2,10,8,3,6,8,9,E,Unanimous,Landslide,Clear Victory,Narrow Victory,"No Majority; Decided in Congress","Disputed; Settled in Congress",P,Federalist,Democratic-Republiprinter 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? ";:36000Z$"N"ĹPP2,0: 2. Low speed (usually 10 cps)"Y:"Which number? ";:INP,(1,"-12",1),ZN$:ZN(ZN$)nPP2,128(ZN1)14:"Which slot is the communications"::"card in? ";:INP,(1,"-17",1),ZN$:ZN(ZN$)PP,ZN:XNOT A COMM CARDJbBOX::4:"The ZL120: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. High speed (usually 30 cps)"::"rinter 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:WP1:33000:D$;"BSAVEPRINTER COMMANDS.BIN,A"PP",L128"PID FIELD24576:11:" Printer test complete.":30000eWIND:CO:"Printer Support"CC$:WIND,Q1,Q2,Q3,Q4:zSET NEW OPTIONS3:"You may use:"::" 1. An Apple Communications Card"::" 2. "CA$;:GCP,ZX,ZY:WIND,ZX,ZY:"Any other type of p,A"PP",L128" 30000:/TEST THE PRINTERdBOX:9:"Please prepare your printer...":30000CL$:9:"Testing the printer...":D$"IN#0":D$"PR#0":PINIT:"Printer Test":I13:J3295:(J);:::J96127:(J);:::::FEED-POFF: 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:PPI,0:  WP1:33000:D$"BSAVE PRINTER COMMANDS.BINt L115:(PPCT)0L15:2470V~ 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,Y L2: L1:HSP,1: PRINTER TYPEF :"nd)." ::(PP107)0İ2500-30000:;USER SETh CO:"The current printer settings are:" :" Slot: ";(PP)128: (PP2)0İ2400$ (PP107)0İ2500. 30000:` PRINT SPECIAL COMMANDSj " Commands:"::CT2:HSP,2!: COMM CARD 3:"This diskette is currently set up to":"expect an Apple Communications Card":"in slot #";(PP);".": SD$"LOW":SD10:(PP2)127SD$"HIGH":SD307:"The speed is set to '";SD$;"'":"(usually ";SD;" characters per seco JP1((PP)0)((PP)127)8 JP2100,2200,2300:F 4DEFAULTS >5:"This diskette is currently set to the"::"default setting, which is to search"::"slots 1 and 2 for a recognizable card"::"each time the diskette is started up." H30000ir":CO,38:"original state (slot search)":Q " 4. Test printer settings":r " 5. Return to main menu" $::"Which number? ";:INP,(1,"-15",1),ZN$:ZN(ZN$) 8BOX:CO:ZN2000,5000,3000,4000,31040 BL00:L0 CHECK CURRENT SETTINGSQ10:Q220:Q3279:Q4191$ MENU L011:WIND:CL$:CO:"Printer Support"CC$:WIND,Q1,Q2,Q3,Q4:BOX:CO::"You may:": " 1. Check current printer settings": " 2. Change printer settings":, " 3. Return printer settings to theHSP,1:919,1 ZS704:RFL,"MECC$$DISK"ZS:33200:QN$ZN$:QC(910):QT$(1)"Presidential Database":QT$(2)"Introduction and Report Retrieval":ZD1:WP0:33000:(900)0įRNH,"PRINTER.OVL":900,1 PP(948)(949)256:RFL,"PRINTER COMMANDS.BIN"PP ) PROGRAM: PRINTER SUPPORT<PROGRAMMER: P. BOUCHARDYCOPYRIGHT (C) MECC 1983z("LAST UPDATE: 85/05/23 RMS 2HI-RES VERSIONdINITIALIZATIONn16384:919,0:32000xD$(4)::P(19) CA$(1):CC$(3):CL$(12):Q$(34):VSP:         the computer to report. You select these categories using the Report Menu.":30050:300Y2191:Y1WB:28000:"According to your question, you want the computer to report those states that were admitted to the union during Buchanan's administration.":xOF0:22000:J4:PH40:650:21100:PAUSE,5:J7:PH34:650:21150:PAUSE,5:BM10:27100:27200:Z$"Step 3":800:FT1X"The third step is to define your report. This means that you specify the categories of information about Buchanan that you want "According to your sample question, James Buchanan is the only name that you select. You first select JAMES BUCHANAN and then choose SELECTION COMPLETE.":29500:PUT,X1,Y1,AD22000:OF10:200:21150:PAUSE,5:21300:20150:22300:PAUSE,5:OF10:22000t the names of those Presidents about whom you want information. You select the names of the Presidents by using the Presidents Menu.":30050K1$"R":K2$"eview":FT1:ELC1:MC20:MT$"Presidents Menu":F$"PRES.SEQ":500:20000Y2191:Y1WB:28000:7L212:OF6(2(L22)):200:L22įPAUSE,4:2200021150:PAUSE,5:21300:20150:22300:PAUSE,5::OF9:22000:OF0:22000:L112:J4(2(L12)):PH40(L12)8:650:L121100,21150:PAUSE,5:op z". This means that you need to selecing to the sample question, you want the computer to find each President's age at inauguration.":29500:PUT,X1,Y1,AD:28000"To make your selection, you choose the category AGE AT INAUGURATION and then SELECTION COMPLETE.":29500:PUT,X1,Y1,AD:22000PP3,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$;:GCP,ZX,ZY:BOX,Q1,ZY1:"PRINT "Q$CA$;:GCP,QX,QY:8000 S$:"The third step is to define your report. This means you specify the categories of information you want the computer to report to you.";" You select these categories by using the Report Menu.":30050FT1:300:Y1WB:Y2191:28000|"Accord Since you want information about All the Presidents, all the files should be searched";". In this case, there is no need to narrow your search further by using the Presidents Menu or the Search Menu."30050:BM10:27100:27200:Z$"Step 3":800ZY3,RD:::o MT$UT$(QU):BM10:27100:27200:Z$"Step 2":800:"The second step is to define your search"; QU5000,6000,7000 400:RNH,"TUTOR.P3" X". This means you specify which files the computer should look for in the database. 4)16,0:Y1150:Y2191:28000::"And here is your report...": ZD2:33000::D$"OPEN"F$:D$"READ"F$:L1MC:MT$(L)::D$"CLOSE": I1J:21020:PLAY,PHI2,20,S:PAUSE,2::250: SW,Z$,Z:CO,140Z2:Z$:GCP,ZX,ZY:BOX,138Z2,ZY1,140Z2,,2:PLAY,40,20,S:22000:PAUSE,2:22000::i II1:L12:PAUSE,2:22000:PLAY,PHI2,20,S:22000:: ,RAV,MC%:MC%(M):K1$"R":K2$"eview":ELC2:MC23:F$"REPORT.SEQ":MT$"Report Menu":500:20000:> ZD2:33000:DUN,"SEAL.PCK"AD,7:49289(94):::MI$(0)"Selection Complete":AA$"A - Ask a New Question":LD$AA$:K1$"R":K2$"eview" ZS704:RFL,"MECC$$DISK"ZS:33200:QN$ZN$:QC(910):QT$(1)"Presidential Database":QT$(2)"Introduction and Report Retrieval" 919,1:1000+ L12:PAUSE1):QO$(34):RFL,"DATABASE.IMA"35759:DFT,7,35759 xX114:X2268:CP$(16):CQ$(17):QU$(3),QC$(3),QP$(3),MT$(45):L13:UT$(L),QU$(L)::QU(901):S(975)10Z C18:M45:MI$(M),C%(1,3),MC%(M),MI%(M,2),IN%(M):L01:C%(L,0):L11C%(L,0):C%(L,L15' " MECC DATAQUEST: THE PRESIDENTS7" TUTOR.P2I" SK RUSSELL^(" (C) MECC 1985q2" 85/07/01RMS}e32000i(4)"MAXFILES1":361533 n919,0:D$(4):CA$(1):CC$(3):CL$(12):BL6:RD5:AD49152:CH$(8):CJ$(10):CK$(11):CU$(2                !%(M):FT1:29100:20000:RAV,MC%:MC%(M)MT$"Overview":TM0:BM10:27100:27200::Z$"Step 3":800:"The third step is to select the categories of information that you want to see in your report. This step is called "QO$"defining your report."QO$" "earch."QO$" You define your search by selecting categories from ";G"either the Presidents Menu or the Search Menu.":30000FT1:ELC1:MT$"Presidents Menu":LK$" ":LD$AA$:K1$"R":K2$"eview":MC40:F$"PRES.SEQ":500:CH1:20000( RAV,MC%:MCon can be about:"::L12:" "L". "UT$(L)::" 3. Presidents Selected by":CO,65:"Category"CB30000:BOX:CO:Z$"Step 2":800:"The second step is to choose the criteria by which the Presidents are selected. This is called "QO$"defining your sthree major steps that you need ";."to complete before the computer can find the information you requested.":30000:BOX:CO:Z$"Step 1":800c8"The first step is to classify your question about Presidents into one of three categories. Your questi00:BOX:WIND,20,20,259,175:CO:Z$"Design of the Database Program":800")"The Presidential Database program is designed to help you find answers to your questions about the Presidents by using step-by-step procedures and a series of menus. There are abase is organized around the forty Presidents from Washington to Reagan. Each President has his own file containing facts about his Presidency, ";H$"descriptions of issues and events during his administration, and data about his personal life.":300am effectively, you need to understand ";"how the database of information is organized and how the database program is designed.":30000:WIND,20,20,259,175:BOX:CO:Z$"Organization of the Database":800"The information in the Presidential Datsing a database as a research tool.":30000CWIND,20,30,259,175)BOX:CO:"The Presidential Database is the primary feature of the program. It is a computerized file of information about the U.S. Presidents. To use the Presidential Database progr28000:"Introducing Presidential Database":300hMT$"Overview":27100:27200:WIND,40,40,247,175:CO+"MECC Dataquest: The Presidents is a database program designed to spark your interest in the United States Presidents and to provide practice in ucific":CO,51:"Presidents":" 4. Questions about Presidents":CO,51:"Selected by Category" " 5. Return to Main Menu"::"Which number? ";:INP,(1,"-15",1),Z$:Z((Z$)):Z531100 Z1Ĺ901,Z1:8000/SįDUN,"SEAL.PCK"AD,7:Y1165:Y2191:2,ZY3,RD::: RAV,MC%:MC%(M):900,1:MT$"Introduction Menu":TM0:BM10:27100:27200:WIND,20,40,239,181:CO:"You may select:"::" 1. An Overview of the Program"] " 2. Questions about All the":CO,51:"Presidents":" 3. Questions about SpeIntroduction and Report Retrieval"A 904,0:906,0:919,1:1000p ,ND160:L123:PLAY,NN%(L),(NDND%(L)):v 6 ZD2:33000::D$"OPEN"F$:D$"READ"F$:L1MC:MT$(L)::D$"CLOSE": SW,Z$,Z:CO,140Z2:Z$:GCP,ZX,ZY:BOX,138Z2,ZY1,140Z:C%(L,0):L11C%(L,0):C%(L,L1):::IN%(4)20:IN%(6)25 MI$(0)"Selection Complete":SE$(0)"Select":SE$(1)"Erase":AA$"Press SPACE BAR to continue":C18" ZS704:RFL,"MECC$$DISK"ZS:33200:QN$ZN$:QC(910):QT$(1)"Presidential Database":QT$(2)"0):CK$(11):CU$(21):QO$(34):RFL,"DATABASE.IMA"35759:DFT,7,35759 xCP$(16):CQ$(17):NN%(23),ND%(23):L123:NN%(L),ND%(L)::L13:UT$(L):9 X114:X2264:S(975)10:M45:SE$(1),MI$(M),C%(1,3),MC%(M),MT$(M),MI%(M,2),MN%(M),IN%(20):L01-' " MECC DATAQUEST: THE PRESIDENTS7" OVERVIEWI" SK RUSSELL^(" (C) MECC 1985q2" 85/07/01RMS}e32000i(4)"MAXFILES1":36154G n919,0:D$(4):CA$(1):CC$(3):CL$(12):CN$(14):CO$(15):BL6:RD5:AD49152:CH$(8):CJ$(1          " " " " """"""" ,15:"Return - Select"CA$;:CO,166:K1$" - "K1$K2$:LD$CC$:I$(13)K1$"E"(127)CH$CK$CJ$CU$LK$"N:WIND,WL,WT,WR,WB:MO0:M10:BOX,WL,WT1:CO:CA$;:ELELC220160##NMOC%(EL0,MP)1:L00MO:GCP,ZX,ZY:ZMIL0:MI%(Z,1)ZY:MI%(Z,2)0:" "MT27100:TM0:SW,MT$,Z:Z((Z30)4)4:X1140Z2:X2X1Z:Y10:Y218:28000:CO,X113,Y16:CP$MT$CC$CQ$:X114:X2264!NWIND:BOX,30,WB1,250,WB3,5:CO,ML,WB8:L0MF01:CO,ML:MI$(L0):f"NCO,15,160:"Arrows - To Move"CA$;:CO,166:"E - Erase":CO1MC:SW,MT$(L0),Z:MI%(L0,0)Z:MI%(L0,2)09 4NZWLWLZz >N:MFMCMA:MFMAMA1:WBWB10:MI$(1)"See More Categories" RNMF020090 \NL01MF:SW,MI$(L0),Z:ZWLWLZ fN zNWL140(WL2):MLWL14 NELELC1İ27100:27200:20105t!NTM6:S$C$:8020>XXP(L):BOX,X1,Y1,X9,Y7,0:CEL:L18010US$(S$,L1):8020h(#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#X0X127X0d#"-"(1)(127)FTL(S$):CO,X,Y:RDKEY,A:C$(A):A13Ĺ16368,0:Z^(A8L0)8010hhA88080|rA34L198020|A32AA64::BOX,X1,Y1,X6,Y7,3:(A);CA$;::P(L1)9:XX9:S$S$C$:8020 (A);CA$;:GCP,ZX,ZY:P(L1)ZXX:XZX:S$""Ģ42L2:1:CA$;:CEW::L25DS$""İ9000:CTCT1:PPCT,13wL2:CTCT1:PPCT,0:PPCT1,255:PPCT2,255HSP,1:17:"Are the above commands correct? ";:36000L1(Z$"Y"):L1@STRING INPUTJS$"":16368,0:XQX:YQY:I$You can become familiar with the Report Menu by using the command keys at the bottom of the":"screen.":" "CA$::29500:PUT,X1,Y1,AD: NMENU%NMP1:MI1:OF0:WR270:SN0:BM0*NWT2510(ELELC1):MA11(ELELC1):WB130* /NSW,MI$(0),WL:L01WB15:Y2191:28000:"This is the Report Menu. It consists of 23 categories of information. By selecting categories from this menu, you specify what Presidential information you want to see in your report.":29500.PUT,X1,Y1,AD:FTı.28000:"o see examples of submenus, select the categories POLITICAL PARTY and ELECTION RESULTS.":29500s +PUT,X1,Y1,AD:*+Y1Y115:28000:"To see examples of submenus, select the categories POLITICAL PARTY and ELECTION RESULTS.":29500:PUT,X1,Y1,AD:.Y a submenu. The submenus help you more clearly define those categories that you selected from the Search Menu.":29500+PUT,X1,Y1,AD:FT11050_+28000:"You can use the command keys at the bottom of the screen to become familiar with this menu. Ties from this list, the computer will search the database to find the Presidents who fall into all of the categories you selected.":29500:PUT,X1,Y1,ADw +28000:"There are 18 categories on the Search Menu. When selected, each category will take you tothe screen.":29500:PUT,X1,Y1,AD:B*Y1WB15:Y2191:FT11020*28000:"Here is the Search Menu. You use this menu to find information about Presidents Selected by Category.":29500:PUT,X1,Y1,AD+28000:"When you select one or several categor about Specific Presidents. You select from this menu the names of particular Presidents about whom you want information.":29500'PUT,X1,Y1,AD:FTı#'Y1WB:28000:"You can become familiar with the menu by using the command keys at the bottom of ial Database, continue through The Introduction to learn how the program finds answers to three sample questions."30000:1000@ZD2:33000:RNH,"TUTOR"'Y1WB5:Y2191:28000:"Here is the Presidents Menu. You use this menu to find information;"You define your report by using the Report Menu.":30000:FT1:ELC2:MT$"Report Menu":MC23:F$"REPORT.SEQ":500:K1$"R":K2$"eview":CH3:20000rXMT$"Overview":TM0:BM10:27100:27200:CO,20,40:"Now that you have an overview of the President3LBEBEB8`B3 3EB@N;n;l0@WGUJI*YQ T  yfBQw]w\p@GBNw]vX`DBxOOIUU?@ppB|DB|Ap@B@JPBGPECB@pB|DB|p@srEp|?OBpF|Bp@ NKLB@BH3L3G?KI*RB~P~C*HBG*L~N~BaAy~N~xNHfA$:K1$"S":K2$"earch Menu"J'R1MT%(EL)23000:MS((MS0)1)(MT%(EL)0)'RWBRB:MIRI:OFRF:MARM:MFRM%:MPRP:EL0:LK$" ":LD$AA$:SN1:29100:'REL0TFOF:OF0MO:SE122100,21220::OFTF'R'RSEL OTHER&(RX0(WL21)2:Y0WB89(OFMIOF4))SN0:Y1WB:Y2191:28000:"To see examples of submenus, select the categories POLITICAL PARTY and ELECTION RESULTS.":29500:PUT,X1,Y1,AD:'RIMAGE,3,(WL21)2,MI%(Z,1):RBWB:RIMI:RFOF:RMMA:RM%MF:RPMP:ELMIOF:MT$MT$(EL):LK$" ":LD$A20150,20499,20100,20300:20400<%PRAV,MT$:Z(0):MT$(M):I%RCUR MVSm%R22000:OFOF1:OF0OFMOMF1x%R21099%R22000:OFOF1:OFMOMF1OF0%kRSN99:22000:%lRSELECT%vRSN99:OFMO21150%RZMIOF:EL0İ22100:&R((MIOF6)((IN%(EL)Z)22200:MOMO1:MOM1MAMIMOMC20160:MOMO1n$LOSN2MFOFMO1:BOX,X0,Y01,ML3,Y08:20400$VO22000:FTĴCH10000,11000,12000:FT0$OWFK,I$,SN:SN21100,21400,21200,21200,21010,21010,21020,21020,21400%OSN100ĴSN120400,20010,$(Z):MC%(IN%(EL)Z)22200::20300S#NZMIMO:MOM1MA1MI%(Z,2)MOMO1:20300#N" ";:GCP,ZX,ZY:MI%(Z,1)ZY:MI%(Z,2)ĺ(MT$(Z),MI%(Z,2)1):" "(MT$(Z),MI%(Z,2)):M1M11:20200#NELC120190#NZ10ĺ" ";#NZ". ";#NMT$(Z);$NMC%Z$(Z$,1):Z$"Y"Z$"N"36020'" eour "QT$(ZD)" diskette.":WP2:30000:330106!KZU0:S! GET DISK NAME AND TYPEb!ZN$"":Z1!ā(ZSZ)0Z36ZN$ZN$((ZSZ)):ZZ1:33220!΁ZT(ZS35):! STANDARD YES-NO INPUT!(1);:GCP,ZX,ZY!"CO,ZX,ZY:INP,(3,"YESNO",1),Z$:><E>0033 3?3333??E3 3 3?33333EAOffF @``@g00gs663``sBf mBlAgllLLllO  @@@@@ w4CAEꨠBBFIЀEACߗB וED EBCA CAB ՕDC וDACBCABCAAMLHAC]3333>>< located at:":" Slot: "(ZL):" Drive: "(ZL1);O ".":30000:33010q . CHECK FOR WRITE-PROTECT TAB 0WP33099 8ZE0:ZEĺ:D$"BSAVE MECC$$DISK,A"ZS",L$28"+!BWP(WP1):ZE4ĺCL$:CO,0,89:"Please remove the write-protect tab from yZD:ZS704:ZL9503ZD:ZU1ZE0::ZEĺD$"BLOADMECC$$DISK,A"ZS",S"(944)",D"(945)",V"(946):33200:(ZDZT)(QN$ZN$)33070CL$:WIND:HSP,1:CO,0,79:"Please insert your "QT$(ZD)" diskette in ";:QC3ĺ"drive "(9513ZD);8 QC3ĺ"the drive256:216,0:32000(}ZUZE0ZE16ĦAd}PROGRAMMERS REENTRY`n}ZE255Ĵ(919)031000:x}WIND:CL$CO$:CO,0,80:"Error "ZE" at line #"ZN" in PRINTER SUPPORT."::"Please report this error to MECC.":30000:31000耲 W/P DISK VERIFY퀯SET,t menu...":RNH,"MENU",}ERROR PROCESSING|}ENTRY: CALLED BY ONERR. ZU<>0 INDICATES PROGRAMMER WILL HANDLE DOS ERRORS.}EXIT: MESSAGE AND ENDING ROUTINE}CALLS: 30000(HI-RES),31000(HI-RES)}USES:CL$,ZE,ZN,ZU }ZE(222):ZN(218)(219)::CO,X9,Y:9150!#(A);CA$;4#K:Q$:CTCTL:#Q0uSPACE BAR ROUTINEb:u:SPACE::vyENDING ROUTINE"yWIND:CL$:10:"Do you want to try again? ";,y360006yZ$"Y"Ĭ@yWP0:ZD1:33000:CL$:CO,0,89:"Getting the MECC DataquesL$"":K1L$(S$,K1)3n#R$"":LJR$(S$,LJ)Ex#S$L$(X)R$W#LKLJ:9110^#Je#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,X6,Y7,3:(A);CA$;C$$DISK. K64((941)63):ZSS:38000:N$ZN$ U10:T$(0)"program":T$(1)"data":T$(2)"backup":T$(3)"student":T$(4)"results":T$(5)"word lists":RR$"Reading from the Introduction and ReportRetrieval diskette..." T0:ZD1:WP0:M1:(S36)(910)P$"PRESUTIL.OBJ":Product name and utilpack nD$(4):CA$(1):CL$(12):CC$(3):QU$(34):S2$"the Introduction and Report Retrieval diskette" x35000::D$"BRUNDISKUTIL.OBJ"D2$ S16064:S016000:(900)āZ039:SZ,(1024Z)::900,1:MOVEMEC1 DISKETTE SUPPORT3(SELF-COPYING VERSION)QPROGRAMMER: A HOLLENBECKn(COPYRIGHT (C) MECC 19842"LAST UPDATE: 85/07/02 RMS d901,0:32000f:(4)"MAXFILES1":16000:230,64iCR0:Use create option?, kPN$"MECC Dataquest":U                     BAAG|SEBB 胨đ ªFyQEՁCBCݗȢFJA€DyPFD CꌪʪCYՁՁGŕBȆB ÌGCV믫F EđВʊʊB 眒LUDՕՕCȂȇB @yՁBՁcl꺪BAAABQbՁBՁgBIM\꺪F Š’ʒŠ’ʊBʊSʊB"뎚    (Z96)):Z$"Y"Z$"N"30120%u8$w " SPACEBAR-2{.wCO,0,183:"Press SPACE BAR to continue"CC$:WFK," "(13),Z:y" ENDING"yWIND:CL$;CO$:CO,0,89:"Do you want to try again? ";:30100:31110|yNORMAL ENDINGyZ$"E"$y54915:ZD1,Y26::CO:0u" SPACEBAR.:u:SPACE::>bu" SPACEBARluCO,0,175:"Press SPACE BAR to Continue,"CC$:CO,0,183:"Q to Quit"CC$:WFK," Q"(13),Z:u" YES-NOuCA$;:GCP,ZX,ZYuCO,ZX,ZY:CEL:INP,(3,"YESNOyesno",1),Z$:Z(Z$):Z$(Z32 (1931)"`:" Relief and Reconstruction Act (1932)"::" Home Loan Bank Act (1932)":30500fo `mRD:TAKE,X1,Y1,X2,Y2,AD:BOX,X1,Y1,X2,Y2,4:ZL13:X1ZL,Y14ZLX2ZL,Y14ZLX2ZL,Y24ZLX1ZL,Y24ZLX1ZL,Y14ZL:ZL:WIND,X115,Y16,X213"Key Legislation:"::" Soldiers' Bonus Bill (1924)"::" Air Commerce Act (1926)":30500CL$:ZY10:ZX10:NA$"Herbert Hoover":NW147:200:ZY130:220:"Key Legislation:"::" Veteran's Administration":" established (1930)"::" Bonus Loan Bills (1861), 34th state":30500"(ZY0:ZX10:NA$"Warren G. Harding":NW177:200:ZY72:220:"Key Legislation:"::" Budget and Accounting Act (1921)"::" Capper-Volstead Act (1922)"[ZY90:NA$"Calvin Coolidge":NW157:200:ZY162:220:A$)7:200:ZY140:220:"Age at Inauguration:":" "PA$(L1):30050:Z23999W CL$:]cZY10:ZX10:NW147:NA$"James Buchanan":200:ZY100:220:"States Admitted:":" Minnesota (1858), 32nd state":" Oregon (1859), 33rd state":" KansaI$:I((I$))\ CL$:ZD2:33000:CO,0,89:"One moment please...":I1Ĺ907,1:RNH,"TUTOR"l RNH,"OVER"r  500:L1140:ZX10:ZY10:NA$P$(L1):NW(NA$)7:200:ZY70:220:"Age at Inauguration:":" "PA$(L1)L L1L11:ZY80:NA$P$(L1):NW(N QU800,850,900:700:WIND,26,40,265,191:CO:"Now that you have seen the step-by-step instructions, you may choose to:"::" 1. See the graphic presentation"  " 2. Return to the Introduction":CO,64:"Menu"::"Which number? ";:INP,(1,"12",1),e Presidents":/ RMT$"Specific Presidents":[ MT$"Presidents Selected by Categoty":l  "MAIN PROG WIND,10,0,269,191:CL$:QU3000,4000,5000:905,1:906,1 (904)02500 CL$:ZD2:33000:CO,0,89:"One moment please...":RNH,"OVER"P$(L)::L140:PA$(L)::D$"CLOSE": WIND:CL$:BL:L104:1L1,4L1279L1,4L1279L1,177L11L1,177L11L1,4L1::SW,MT$,Z:Z((Z10)2):WIND,140Z,0,140Z,9:CO:BOX,140Z,0,140Z,9,4:CP$MT$CC$CQ$:WIND,15,10,264,181:CO: MT$"All thY3L40NWL,ZY18L278L,ZY18L278L,ZY22::CO,30,ZY7:CP$NA$CQ$:ZYZY24:CO,10,ZY:HYZY: BOX,0,HY2,3,ZY,5:BOX,275,HY2,278,ZY,5:L03:L,ZY4L,ZYL278L,ZYL278L,ZY4::' ZD2:33000:D$"OPEN PRES.SEQ":D$"READ PRES.SEQ":L140:,PA$(40) QU(901) ZS704:RFL,"MECC$$DISK"ZS:33200:QN$ZN$:QC(910):QT$(1)"Presidential Database":QT$(2)"Introduction and Report Retrieval" 919,1:1000 " FILE CARDc RD:L13:L,ZY22L,ZY18L20L,ZY18L20L,ZY3L40NWL,Z' " MECC DATAQUEST: THE PRESIDENTS7" TUTOR.P3I" SK RUSSELL^(" (C) MECC 1985q2" 85/06/13SKR}d" INITe32000 n919,0:D$(4):CA$(1):CC$(3):CL$(12):CN$(14):CO$(15):CP$(16):CQ$(17):HC6:AD49152:BL6:RD5:P$(40)!! ! ! ! ! !!!!!!!    1& " MECC DATAQUEST:THE PRESIDENTS3" TUTORE" SK RUSSELLZ(" (C) MECC 1984m2" 85/06/18SKRye32000iHSP,1:(4)"MAXFILES1":16384V n919,0:D$(4):CA$(1):CC$(3):CL$(12):CN$(14):CO$(15):BL6:RD5:AD49152:CH$(8):CJ$"                           ,A"ZS",S"(944)",D"(945)",V"(946):33200:(ZDZT)(QN$ZN$)ZU0:2CL$:WIND:HSP,1:CO,0,79:"Please insert your "QT$(ZD)" diskette in ";:QC3ĺ"drive "(9513ZD);2QC3ĺ"the drive located at:":" Slot: "(ZL):" Drive: "(ZL1);3RY!1n}ZE255Ĵ(919)031000:1x}WIND:CL$CO$:CO,0,80:"Error "ZE" at line #"ZN" in Overview."::"Please report this error to MECC.":30000:310001耲 R/O DISK VERIFY1ZS(0):SET,ZD:ZS704:ZL9503ZD:ZU1D2ZE0::ZEĺD$"BLOADMECC$$DISK:31110 0|y0yZ$"E"K0y54915:T0:ZD1(Z$"Y"):WP0:33000:Z$"Y"Ĭ0yWIND:CL$:CO,0,89:Z$"E"ĺ"Getting the MECC Dataquest menu..."0yRNH,"MENU"0}" ERROR0 }ZE(222):ZN(218)(219)256:216,0:320000}ZUZE0ZE16Ħ1d}REENTZ:/0u" SPACEBAR(/:uCA$;:SPACE::6/u" YES-NOK/uCA$;:GCP,ZX,ZY/uCO,ZX,ZY:CEL:INP,(3,"YESNOyesno",1),Z$:Z(Z$):Z$(Z32(Z96)):Z$"Y"Z$"N"30120/u/y" ENDING0"yWIND:CL$;CO$:CO,0,89:"Do you want to try again? ";:30100ZLX1ZL,Y14ZL:ZL:WIND,X113,Y18,X213,Y26::CO:.HqTAKE,0,181,279,191,52000:BOX,0,181,279,191,0:30000:PUT,0,181,52000:.qEL0:CH2:MT$"Search Menu":MC18:F$"SEARCH.SEQ":500:K1$"R":K2$"eview":/SSN2:OF0:MPMP1:MIMIMO1:MIMCMI1>)HSELELC2ıV)RSMPC%(EL0,0)MP1\)Ss)SR,A OR S KEYPRESS)S(I$,SN,1)"R"ĴCH10000,11000,12000:SN0:)S22000:K1$"S"įIMAGE,3,150,169:SN100:)SSN3)S)UWORD'*UOFMOįSW,MI$(MMO1):IMAGE,3,X0,Y0:MFOFMO121300:(R22000:SN100:O(RDESELECT SINGLEb(RSN99:OFMOıx(RZMIOF:EL21230(RMT%(Z)āL002:MC%(IN%(Z)L0)0::21230(RL11L0:MC%(IN%(Z)L1)0:(RMC%(IN%(EL)Z)0:SN100İ22300:SN0(3S)4SPAGE         PRESIDENTIAL DATAQUEST1PROGRAM: HELLOOCOPYRIGHT (C) MECC, 1985o("LAST UPDATE: 85/05/13 RMS{32000::P(X)(X)(X1)256:LP(P(999)):SL(L1)16:(1101)6Ĺ16372,0::2000L08:A:768L,A::54,0:55,3:1002Z"