' +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*`all ducks with white wing coverts. Males have purplish-green heads with a white fan-shaped patch."Ã"Canvasback","large ducks with obvious long necks and sloping foreheads. Males have have dark chestnut-red heads."?Ã"Cinnamon Teal","small ducks wdark ducks with contrasting white under wings and red feet. Both sexes have purple secondaries."nà "Blue-Winged Teal","small ducks with blue wing coverts. Males in spring plumage have purplish heads with a white cheek crescent."cxÃ"Bufflehead","sm STANDARD YES-NO INPUT.(1);:GCP,ZX,ZYtCO,ZX,ZY:INP,(3,"YESNO",1),Z$:Z$(Z$,1):Z$"Y"Z$"N"36020zPòDATAZà "American Widgeon","medium-sized ducks ?ith white wing coverts. Males have a white crown."adÃ"Black Duck","large P Pxp @ @  @  @hPPPP PP  @@  P@ pxxxxxxpx0H@@@@pxp ` p0`` pبppxxxp@@@@H0hP @ppppx @ @@ @  @p px Pppxxp ppبȨppph𠐈ppp pP AUSCWININjXmemfj4kWkkkkkkkdkkllBmmmm` PPPPPPPP xp(  @@@h @ @@  p p @  @pȈp ` pp0@0p0Pp8@p @@Ɲo) +po9pp Ъ 8pLo ` ֩PyQ AL +pppAp`#p"p p"p#p` ~L pH)hJJJAp`LANCS AZ09!/:@[`{~ @BOHOOUNHOOCECRDFAFPARSNOJUSJUSCNNOCNGCDVSHSSPACCEPity."Ã"Coding Test","CODING TEST","This program is a timed test which presents a series of questions derived from the content of this entire fiasco."ers to compare the structure, reliability, and nonsense content of various styles of coding."Ã"Immediate Effects","IMMEDIATE EFFECTS","This program looks at the immediate effects of coding on pulse rate, steadiness, skin temperature, and mental stabilre then compared to the findings of the national survey."xÃ"Coding Facts","CODING FACTS","This program allows programmers to investigate the costs, health risks, and effects of coding."]Ã"Code Analysis","CODE ANALYSIS","This program allows programmrammers on their knowledge of the effects of coding. The questions represent the content of this package."9nÃ"Coding Attitudes","CODING ATTITUDES","This program, based on a national survey, will analyze programmer feelings toward coding. The results a-play a duck hunter. A description of a flock of ducks will appear on the screen. If you can correctly identify the type of duck by name, you will have a chance to"xà " shoot at the flock."."Coding I.Q.","CODING I.Q.","This program quizzes progur disk drive and diskette.":30000:7PòPROGRAM DATACZò DucksdÃ"Riley's Marsh","HUNTER","This program quizzes you on ethical, lawful, and safe hunting behavior while hunting waterfowl.",""nÃ"Name That Duck","DUCKS","This program lets you role:CO,0,80:ZE6ĺ"Error: File not found.";:32100Q}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 yo# GENERATOR#:T#ZL11:XX(1):Z(16384):ZL(Z127)::ZZ128:16368,0:k0uSPACE BAR ROUTINE|:u:SPACE::yPROCESS ESC-ESC"y2000,y}ERROR PROCESSING }ZE(222):ZN(218)(219)256:ZE255Ĭ1}CO$CL$:WIND:HSP:VSP"Mallard","large ducks with white under-wings and blue secondaries." à "Pintail","large ducks with green secondaries. Males have long necks and enlongated tail feathers." !à "Redhead","large ducks with overall gray bodies. Males have puffy, rusty- "Green-Winged Teal","small ducks with green wing secondaries. Spring males have chestnut heads and green eye masks."à "Hooded Merganser","medium-sized ducks with a slender bill hooked at the end. Crested head makes the birds appear hooded."D à dark red plumage."à "Gadwall","medium-sized ducks. Males have gray breasts. Both sexes have red and black wing coverts."à "Goldeneye","medium-sized ducks. Males have black and white bodies, green heads, and a distinct white cheek patch."w have purplish-green heads with a white fan-shaped patch."à "Canvasback","large ducks with obvious long necks and sloping foreheads. Males have dark chestnut-red heads."à "Cinnamon Teal","small ducks with blue and green wing patches. Males havengs and red feet. Both sexes have purple secondaries."nà "Blue-Winged Teal","small ducks with blue wing coverts. Males in spring plumage have purplish heads with a white cheek crescent.":xà "Bufflehead","small ducks with white wing coverts. MalesZYHCO,ZX,ZY:INP,(3,"YESNO",1),Z$:Z$(Z$,1):Z$"Y"Z$"N"36020NZPò DATAZà "American Wigeon","medium-sized ducks with white wing coverts. Males have a white crown."7dà "Black Duck","large dark ducks with contrasting white under-wi0%n} PROCESS BASIC ERROR (HI-RES)5x}ZL53856ZEH}ZE255ī31000}ZM01:ZP(ZL):(ZP);:ZM(ZP127):ZLZL1:ZM:" error at line #"ZN"."}:"Please report this error to MECC.":30000:31000 STANDARD YES-NO INPUT(1);:GCP,ZX,:32105WF}ZE4ĺ"Please remove the write protect sticker from your diskette.":32105P}ZE8ĺ"Diskette bad - drive or format error.":32105Z}ZE9ĺ"This diskette is full.":32105d}"DOS error number "ZE" at line #"ZN".":32150i}30000:3100 }ZE(222):ZN(218)(219)2569}(15):ZE1532110v}ZUĦ: ZU IS THE USER PROCESSING FLAG (FOR DOS ERRORS)(} USERS ENTRY POINT (WHERE THE USER JUMPS BACK TO)2}(12):CO,0,89<}ZE2ZE3ZE7ĺ"Please check your diskette parameters."HI-RES)J"yWIND:(12);(15):CO,0,89:"Do you want to try again? "(1);U,y360006yZ$"Y"ĺ(12):CO,0,89:"One moment please...":RNH,"DUCKS"@y(12):CO,0,89:"Getting the menu...":SET,0:RNH,"MENU"} STANDARD ERROR PROCESSING (HI-RES)!uck","medium-sized ducks. Males are very colorful with purplish-green heads and multi-colored bills."8ǃ "Great","Outstanding","Very Good","Correct","Fantastic","Excellent","Good Job"Bǃ"Sorry","Incorrect","That is not right","No",ite cheeks and bright blue bills."yÃ"Scaup","medium-sized ducks with wide, slate-blue bills. Males have grey backs."ă"Shoveler","medium-sized ducks with oversized spoon-like bills. They have green secondaries and blue wing coverts."fă"Wood D grey bodies. Males have puffy, rusty-red heads."Ã"Ringneck","medium-sized ducks with grey wing secondaries. They have a white ring on their bill and at the base and toward the tip.""Ã"Ruddy","small ducks. Males have chestnut-red bodies with wh the birds appear hooded." fÃ"Mallard","large ducks with white under wings and blue secondaries."Ã"Pintail","large ducks with green secondaries. Males have long necks and enlongated tail feathers."2Ã"Redhead","medium-sized ducks with overallds and a distinct white cheek patch."Ã"Green-Winged Teal","small ducks with green wing secondaries. Spring males have chestnut heads and green eye masks."Ã"Hooded Merganser","small ducks with a slender bill hooked at the end. Crested head makesith blue and green wing patches. Males have dark red plumage."Ã"Gadwall","medium-sized ducks. Males have grey breasts. Both sexes have red and black wing coverts."%à "Goldeneye","medium-sized ducks. Males have black and white bodies, green hea   ? C            ry colorful with purplish-green heads and multi-colored bills."#8ǃ"Great","Outstanding","Very Good","Correct","Fantastic","Excellent","Good Job"#Bǃ"Sorry","Incorrect","That is not right","No"Scaup","medium-sized ducks with wide, slate-blue bills. Males have gray backs.""ă "Shoveler","medium-sized ducks with oversized spoon-like bills. They have green secondaries and blue wing coverts."?#ă "Wood Duck","medium-sized ducks. Males are vered heads."!à "Ringneck","medium-sized ducks with gray wing secondaries. They have white rings on their bill at the base and toward the tip."!à "Ruddy","small ducks. Males have chestnut-red bodies with white cheeks and bright blue bills."P"à "  Юԍԍ򮍱忍宍D(1);:GCP,ZX,ZY!ZL((ZT))]CO,ZX,ZY:INP,(ZL,N,(ZC)),ZN$:ZN(ZN$):ZCZN$""ıZNZBZNZTįCO,0,181:ZF1:"Enter a number between "ZB" and "ZT"."(3):37030ZFįCO,0,181:CEW:CO,ZX,ZY:Đting the menu...":RNH,"MENU"9 STANDARD YES-NO INPUTO(1);:GCP,ZX,ZYCO,ZX,ZY:INP,(3,"YESNO",1),Z$:Z$(Z$,1):Z$"Y"Z$"N"36020 STANDARD RANGED NUMERIC INPUT (HI-RES) ZB = MIN, ZT = MAX, ZC = C/R LEGAL (BOOLEAN)44145,144141,148:/0uSPACE BAR ROUTINEY:uCA$:BOX,28,180,250,191,4:SPACE::y STANDARD ENDING ROUTINE (HI-RES)"yWIND:(12);(15):CO,0,89:"Do you want to try again? "(1);,y360006yZ$"Y"Ĭ@y230,64:24576::CO,0,89:"Get(DT$)5DT$DT$"/" (7140174x7(DT$)214015c7Z(DT$):DT$(DT$,Z1(Z3)(Z6)):14017w7(DT$)8140207CO,ZX,ZY:CEL:DT$::DRAW LICENSE:BOX,30,31,249,152,3:0:140,149245,149:140,144144,149145,149141,144:140,148144,1ZX,ZY:16368,06DT$"":EF0X6CO,ZX,ZY:CEL:DT$(127)("--/--/-- ",9(DT$))CA$616384,128:16368,0:Z(16384):EFZ27310006EFZ27:1(Z8)(Z13)2(Z47Z58)314020,14200,14300,141007(DT$)8140207DT$DT$(Z):(DT$)2)0Z(SV)(SV)(SV)(SV):Z150:/.:F2FORMATTED DOLLARSh2ZD(ZD100.5)100:ZD$(ZD)y2ZE1(ZD$)2(ZD$,ZE,1)"."1306022ZD$ZD$".00":130803ZE2(ZD$)130803ZD$ZD$"0"36DATE INPUT6CA$;:GCP,(" "SF$,5):919,255*(*EDGE0+BC| +L10BL:UXL1,UYL1LXL1,UYL1LXL1,LYL1UXL1,LYL1UXL1,UYL1:+\+BOXf+UX5:UY8:LX274:LY184:BC5:BL5:11000.CLICKPRINT'.Z11(Z$):(Z$,Z1,1);CA$;:(Z$,Z1,1)" "(901H,"HUNTER"A@y(12):CO,0,89:"Getting the menu...":RNH,"MENU"] STANDARD YES-NO INPUTs(1);:GCP,ZX,ZYCO,ZX,ZY:INP,(3,"YESNO",1),Z$:Z$(Z$,1):Z$"Y"Z$"N"36020PòDATA AREA9ZÃ147,12,165,12,175,20,155,15,152,8,147,5,152,10129,11:135,10129,11#xF30000)FR0uSTANDARD SPACE BAR ROUTINE (HI-RES){:u(1):BOX,28,180,250,191:SPACE::y STANDARD ENDING ROUTINE (HI-RES)"yWIND:(12);(15):CO,0,89:"Do you want to try again? "(1);,y36000 6yZ$"Y"įRNZ207:1FX%(Z1,Z2),FY%(Z1,Z2)::~nF(5):Z107(TS12):PAUSE,2:1FX%(TS,Z1),FY%(TS,Z1):(901)0ZZ(ZS)(ZS)(ZS)oF:TS1618040qF1:125,10125,7123,6123,3:133,10133,7135,6135,3:129,11129,6127,5127,2:131,4131,2uF3:123,k for it and include it in your daily bag limit even if you don't find it. A well-trained retriever would be a great help in this case.":17900\DEOFPFMOVE FOOTPRINTSZF1:0:3:ZS16336:::DUN,"MARSH.PCK":TS118030#dFZ11TS1::17900|C"No, a "AN$(PR,(A$))" shotgun is"CA$;:GCP,ZX,ZY:3:ZX14,ZY8ZX,ZY8:" legal in hunting waterfowl.":17900CPR917500DZCĺZ$". You should make an effort to find the bird and include it in your daily limit.":17900 DZ$". Loo1517300N:CZCĺZ$CA$". You may take only one full limit per day.":17900DCZ$CA$". Since your limit is full, you may hunt no more today.":17900CPR617400CZCĺZ$". Federal law does not allow you to use a shotgun larger than 10 gauge."$CA$". It is illegal to hunt waterfowl using a "ZC$".":17900PBPR1417200BZCĺZ$CA$". A blind on public land is public property.":17900BZ$CA$". You should find another spot to hunt, since the blind is on public property.":17900 0CPR}BS ARY FILES@ BGOSUB 3000 FOR HARDWARE CHECK (64K, 128K, OR //E)i L901,255: SOUND BYTE; DO NOT DELETE VIF YOU NEED A DELAY, PUT IT HERE RNH,"MENU": }PROCESS ERROR BY RE-BOOT }:BS(P(P(999))1)16:BS1BS7BS6:FIND BOOT SLOT 57Ģ12:"THIS PRODUCT NEEDS AT LEAST 48K TO RUN.":16384,128:16368,0:32000 230,64:D$"BRUN LOGO":16304,0:16297,0:16299,0:16302,0 $D$"BRUN DUCKUTIL.OBJ": PUT NAME OF UTILPACK .RFL,"HPRINT.OBJ" 8ALSO LOAD ANY OTHER ESSENTIAL BIN PROGRAM:HELLODUCKS=COPYRIGHT (C) MECC, YEAR\(LAST UPDATE: 84/05/26 BEInMAIN PROGRAMz32000D$(13)(4):P(X)(X)(X1)256(65435)6ĺD$"PR#0":D$"IN#0":16372,0:TURN OFF THE 80-COLUMN CARDN ::(978)1000`0x |||| ||x|8l````|| x0p000x8pp00000xxx|| |x ````l8|x0x0x| x0`00`0000000000`0000`l0`x000x|0xxx||00000 xxxxlxx x000000xx0܌x0xx0000 0``0 0xp`000000lllXXXXX0|x<00` ``t0`0``00 00x0x00000 @0 0`xx0p0000xx 8` 8 x8x x<`x 0```xxxx| 00000`0``0`0    Š讠䬠䮠亍忍宍箍𮍲Ԡ宍󮍵䬠亍箍ᅪ䮍󮠠宠䮍亍Ρ宍箠򮠠亍宍፲危栱䮍󿍳箍忍危危卲危򠱰䮢󺮍󺍳썲쮍栱䠱򠶵宍쮍䮍嬠󺍍󮍱宍殍󿍍䮍䮍䮍讠笠箠󺍳󍱍            ,4,F4:230,64:24576Z$'CL$(12):CC$(3):CN$(14):CO$(15):CA$(1):D$(4):QU$(34)h.'SV16336B':D$"MAXFILES3":D$"OPENLICENSE INFO.SEQ":D$"READ LICENSE INFO.SEQ":ST$:LF$:SF$:FF$:D$"CLOSE"L'LF$(" "LF$,5):FF$(" "FF$,5):SF$ot."?30000.'AFT,1:CL$::RNH,"MARSH"B'INITIALIZATION'16384:F131975:F2F1873:F3F21160:F4F3777:F5F4515:RFL,"ASCII BOLD.PFT"F1:RFL,"BLOCK.FNT"F2:RFL,"ASCII BOLD.FNT"F3:RFL,"COPYRIGHT.FNT"F4:DFT,1,F1:DFT,2,F2:DFT,3,F3:DFT questions";" that follow are based on ethical, responsible hunting actions."::"This includes hunting safely, identifying birds before you shoot, shooting only at birds that are within range, ";"retrieving birds you hit, and using all game should study these laws before taking the quiz that follows."F30000 CL$:11100:BOX,75,0,206,10,4:CO,100,0:"IN THE FIELD":CO::"Some proper hunting behaviors are not covered by federal or state law. We call these "QU$"ethics."QU$" Many of therom state to state.":WIND,16,14,265,180:CO7w30000xCL$:11100:BOX,98,0,180,10,4:CO,113,0:"THE LAWS":CO::"Handouts from the Ducks manual describe specific federal laws that have been made to regulate the hunting of waterfowl.";:"You sh,56,125,174:CO:"FEDERAL";CC$:"LAWS";CC$::"These laws govern hunting in all 50 states. Every hunter must obey them.",(UX148:LX254:BC2:11000:WIND,156,56,247,174:CO:"STATE";CC$:"LAWS";CC$::"Each state may have additional laws. These vary f)((BD$,2))((BD$,5)(TD$,5)):919,Z100(Z0):30000WIND,16,14,265,180:CL$:11100:BOX,98,0,180,10,4:CO,113,0:"THE LAWS"::CO:"Migratory waterfowl hunters must obey two types of laws."yUX21:UY54:LX133:LY176:BC1:BL4:11000:WIND,30ESIDENT HUNTING LICENSE"11100:WIND,38,133,139,151:CO:"STATE OF "ST$:WIND,38,50,241,140:CO:LN$", "NA$" "MI$:A$:C$", "ST$::"DATE: "TD$:"DATE OF BIRTH: "BD$WIND:AFT,3::CO,140,133:LI$ :AFT,19WIND,16,14,265,180:Z((TD$,2):CO,ZX,ZY27:"Example: "CA$;:GCP,L,I:"06/03/87 means":CO,L:"June 3, 1987"CO,ZX,ZY:"Today's date? ";:14000:TD$DT$:"Your date of birth? ";:14000:BD$DT$CL$:15000::LI((1)999998)1:LI$("000000"(LI),6):CO,40,35:"19"(TD$,2)" Rfollowing information:":Z$"-AZ-az. '-":"First name? ";:INP,(14,Z$,1),NA$:"Middle initial? ";:INP,(1,"-AZ-az",0),MI$:"Last name? ";:INP,(14,Z$,1),LN$"Street":" Address? ";:INP,(24,"-09,#"Z$),A$:"City? ";:INP,(14,Z$),C$OGCP,ZX,ZYGCP,ZX,ZY:AFT,3:Z$SF$:CO,ZX2,ZY:12000:AFT,1: ~3:168,147216,147:CO,165,150:ZD(LF$)(FF$)(SF$):13000:Z$(" $"ZD$,7):AFT,3:12000:AFT,1 30000CL$:11100:CO:"Your check for the full amount is appreciated. Now enter the ame............$":12000:AFT,3:Z$LF$:12000:AFT,1: j:Z$"Federal Migratory":12000::Z$"Waterfowl Stamp....... "::12000:GCP,ZX,ZY:AFT,3:Z$FF$:CO,ZX2,ZY:12000:AFT,1:3 t:Z$"State Migratory":12000::Z$"Waterfowl Stamp....... ":12000:11000 LAFT,1:CO:"Have you purchased a license to hunt migratory waterfowl? "CA$;:GCP,ZX,ZY:BOX,ZX,ZY,ZX27,ZY9:36000:HOOK:Z$"Y"1300 VWIND,16,14,265,180:CL$:11100:::"Resident hunting fees in "ST$" are as follows:"6 `::Z$"Small Ging about lawful, safe, ethical hunting.":VSP,2:30000:CO$ :UNHOOK::RNH,"UPPER/LOWER-A$280-L$25":1:11:"One moment please..." BL5:BC5:DUN,"MARSH.PCK":UX50:UY77:LX227:LY111:BOX,UX,UY,LX,LY:HOOK:WIND,UX2,UY3,LX,LY:UXUX9:LXLX6:WIND,UX14,UY,LX9,LY:CA$:CO,UX14,50:VSP,4:"As you go through the marsh, you will answer questions about hunting migratory waterfowl. Your correct answers will bring you to the end of the marsh."< :"Have a good trek -- and remember to keep think Program:HUNTER/PROGRAMMER: TIM HEAPJCOPYRIGHT: MECC, 1984i(LAST UPDATE: 84/07/11 BEIsMAIN~10000BL5:BC5:HOOK:UX0:UY5:LX279:LY1915:11000AFT,2:CN$:CO,0,25:"WELCOME TO RILEY'S MARSH"CC$CA$:AFT,1:CN$ *~]XA ""M?pF B"[?|p@LdGAA^`VAAAxMA`H_~x`p@D `C@p_QEACNAn`j@C IBUMCH~`OCACBxNA`nkCC Ca@PD DP@k@|xaxR@DqQx`hxO@i#|P ?|p@0``p|pB`0JFE|x~~Cx|~|~~EMx[hxEAAEECD_xQ~`BAMC@` IB03sp1B31EEB A(A(\?i?|pFE|T@@H`w@8c@EX?`CA@@p@8@@ B @FA``F xAD  CxEJ`?CPAA Ch AbA CH @A@A Ch `B@CA0C` xB@AB! hA8AB#$,A @@@Bx@pC@~@C` C0 @@@ Bp?       A|??????AB} B} BG B@ B@@?A@B pC@@ C@B pC@@xA~?A@D|!@F@` "F@@F@|0 B@yA@ @ J?Ep AB`qE\ 8ADxFBxA@BB As@GE8xa@GE`N/HD`bCc8@D>B\C#BDEp>|ADB@AD@pAC AB`Ap@C@@@A8(=A@@@@>@f@ @@p @@@aND A"B U|f|?J Bg`MDBDdV~x`ax~~?`|pS Z?p@Z@p|?`~aaRD\TPH|~|xpaCGONUTO*đĀPUTS*5uA54CggIC@`pVIUBsaAB!Ea sAaaBaAAaGAK*ՕgCAC@BDC g|xp`ACCB@ACAcxp`CGBAGC``xLUAABBAAI?cBADCAcL*!đєđ`@`xpxB`@``@`I|~gCapxnSTCݷC*!đEUHsaAC!DasI?GAA-G*đԔgBCBC@ABCg`@`I|~xp`AECA`pxNHUAaaBaAAacDABCAcsIaI*Ք|xp`ACCB@ACAcgDCB@CD߆ݷ@CpGđԑՕđđԕŖABgB0LܜđՑđԕņՐAĂņՑđķ H đŕđѓđĀB香ff bb`aa`a``C`EBA PBA sssL3̳L ?C @OđB龉BEAAgg̱ǂρđԕđԑđіđĀff̳τ ij̳s\S\SĒđՑđđđՕđ馅㎆)C*b蒻D߇Ӆ̳̱ǽǝij̳DU ŇŌ~KA躘IBAݍđՍđĀH躙F߃߯ݎđĕьđB@TݷݝđĀǝхđьđ~KA肻݁AMߗчđՆՌNMA   L1N:Z1L:Z2((1)N1)QVZTRD(Z1):RD(Z1)RD(Z2):RD(Z2)ZT:HZ1HZ2:22040`VHZ2HZ1V:HMDRD(((1)MD1))RD(H)"V0u STANDARD SPACE BAR ROUTINE (HI-RES):u(1):BOX,28,180,250,191,4:SPACE::y STANDARD ENDING ROUTINE ((MD),1),A$:A(A$)-NROK0:RD(A)UD(X)OK1cXROKįCO,0,154:CEW:PR$(((1)71))"!"CC$:21100bRCO,0,154:CEW:NR$(((1)4)1)".";CC$lR"They are "D$(UD(X))S$"."CC$R30000:CO:U SELECT RANDOM DUCKSUN18:HUD(X):L1N:RD(L)L::Z .Z1::R MENU+RWIND:CL$:COgRCO,0,88:"Ducks are approaching...":PAUSE,20:CL$:CO0R"They are ";E$(UD(X))5RMD4:22000:R1:1:"":S1MD:1(S10):(5S):S". "D$(RD(S)):DRCO,0,154:"Which number? ";:CEL:INP,(1,"-1"CM +L10BL:UXL1,UYL1LXL1,UYL1LXL1,LYL1UXL1,LYL1UXL1,UYL1:S+d\+ BOX SCREENf+UX5:UY8:LX274:LY184:BC5:BL5:11000. CLICKPRINT.Z11(Z$):(Z$,Z1,1)CA$;:(Z$,Z1,1)" "(901)0Z(SV)(SV)(SV)(SV):Z110:OX0:L1(LIM):D(L)0DMDM1:1:(" "(DM),2)". "D$(UD(L));:XXD(L)D(L)0Ė25:D(L);:33:S(L);:38:H(L):DM14(DM14)İ30000:4:BOXL:DM14(DM14)İ30000WIND:V$""XST.25įRNH,"ROSTER"31000* EDGE+Bion":12000:Z$"skills next time you are in the":12000:Z$"field.":12000:30000xLDMC0:CL$;"Results";CC$:1:1:""CO,154,12:"Correct Shots Hits":V$""Ģ19:"Violation: "CA$;:GCP,ZX,ZY:WIND,ZX,ZY,279,191::CO:V$WIND,0,36,279,170:CO.:Z$"You have been sentenced to pay a":12000:Z$"fine of $100.00 for shooting":PR1Z$Z$" more":12000:Z$"ducks than your daily bag limit allows."8PR2Z$Z$" at":12000:Z$"a protected species."QB12000::Z$"Please use your identificat OKĺ(5):CO,0,170:"Press SPACE BAR to shoot";CC$:200:PRMAINSTPMAINeV$"":PR01100V$"shooting at a protected species.":PR1V$"exceeding daily limit of "D$(UD(X))S$"."CL$::DUN,"WARDEN.PCK":11100:(5)$30000:CL$M)1.5:(LIM)6ST(LIM)1.25:(LIM)12ST(LIM).75SST(ST.5):MAIN1STX((1)(LIM))1:D(X)0(1).51023S$"s":UD(X)1UD(X)3UD(X)6UD(X)9UD(X)16S$""21000:D(X)0D(X)0OKD(X)D(X)1::DUN,"SCENERY.PCK"F$:WIND,16,8,263,183::11100:"Very good! You did not shoot the "D$(UD(X))S$" because you had already gotten your limit for today.":WIND:30000   MAIN VSP:N0:I118:D(I)1:(LIM2I1)NN1:UD(N)I:LD(I)(LIM2I) I8ST(LI)0PR2) ((765)0LD(UD(X))0)270S CL$:WIND,16,8,27916,1918::11100 "Good job! You correctly identified the "D$(UD(X))S$" but did not shoot at the flock because they are protected.":WIND:30000: (H(X)LD(UD(X)))((765)0)ĺCL0 ANIMATIONl E((1)4)2:P,((1)5)10:L1E1:PL,(PL1)((1)10)10:QL,((1)141): A1,((1)3):Q,((1)141):RP,((1)255):ND,E:764,0:DB S(X)S(X)((765)0):H(X)H(X)((766)0):PRH(X)LD(UD(X)):LD(UD(X))0S(X-A$7CE7-L$51F":RFL,"ANIMATION.TAB-L$D2"33280 SA33536:RFL,"SOUND EFFECTS.BIN"SA:QL,L(SA):QL1,H(SA):SL,L(SA721):SL1,H(SA721) S118:D$(S),E$(S): RD((LIM)50) S17:PR$(S): S14:NR$(S): 1:0:1:24576:100):CC$(3):CA$(1) HB128:SB160:KB16384:EF0:LIM37060:P33274:Q33280:A160:ND33256:RPND1:DB31975:QL33270:SL33266:SV16336 SO(901): SOUND BYTE H(S)(S256):L(S)SH(S)256. RFL,"LIMIT INFO.BIN"37060:RFL,"ANIMATION.OBJ! Program:DUCKS2.PROGRAMMER:TIM HEAPHCOPYRIGHT:1983, MECCg(LAST UPDATE: 84/06/01 CPEsi32000~n16384sD$(18),E$(18),S(18),H(18),D(18),UD(18),LD(18),PR$(7),NR$(4) xD$(13)(4):CB$(2):CF$(6):CL$(12):CN$(14):CO$(15                G0"A@<@B BpA B@AAAC>ABb A@'A E@4 E H TIDT@I4D|PJ$m X L$-0 p?Dxq#mGX?`D~EB~@CGAGF0GF@GD"|HFH  0 @AA8pH   8@^L`P"  `as@b3 h?a&  H~!Q$0 XD d XD @QD`>D @D@k3d0`L@`0$0 H@ 0' 0H`0sA#X`0a"P 0!"Hp 0!"LB0G01" B0$ @ B F&0@K  0H#@KN X0xAKF p AKo0 @AK-` @ AD-` $C @C) /E `K)!I)   F)#I8B Fy"h0B FQ"(00B qEQ#80@C K30@B HC@ H 0AA F>@@F@cp@F`X@G0H@@Bn0J@ { C`0B}0J`;`?0Jp(0H 0X#8 F@H 0G `}l `L Ipx@c!x_?HXmG@.qpq@pG'|}8@@BA>AcA@G @ @ @ A@@A`@@`@@0@@8@@@@@@@@@ A@@ A`@ A @ Ap@@ @X@ @@l@@ @<@@@@@C@@                                                                                                                                                                                        )               (                                            <  0" + ! ,  <#  -#!   2  -    ! 6 4&     C!   4" ,% 8 >  nS " 6- %  &      ?% !% 5  * 4 %  4  .  (     )          3 0H  -  ##"0  } \YohJ?}J&3)n&s%5-/Ai7!5\AU ;5$n)k, /T`0 ,#++ :(9$o%6 , !%&( %%2!"$$L&0K"9  N / %!)&#1! #     + PROGRAM:ROSTER3PROGRAMMER:BRET INDRELEEMCOPYRIGHT:MECC, 1984k(LAST UPDATE:84/05/31 JDC10000:CL$:11100:WIND,16,8,27912,1918::"Congratulations on your identification skills!":" "Would you like to enter your name on the Dp|A" Ab? B` B`7 B`APAEAXADMAHADIBNAD[B ADRBADvBFAD$Bb BDlB#BDB1GDh@ADx@@@ AD@C`AD@C 0AD@C0 AD@C` AF@C0@ AB@Cx@!AB`CAB D~AB BAb @A" !D"B@!D<"B@#D8#B`"D`!B D`C!B0D@C B"D@G B"CG Cf C\ C0 7C<#C`BC8'C`q"CP' C`ACp&B A.cB0B@k1BpB@{1B xA ?B `AH A0 Ax"ApA|?1" B0G0"A0Gx"@@Dh0@@@@ B B@` A A A< A B@sApBpABpA AAAB`AA@@A B MAB0qAAAA1AxA-A,A -C&`A-D&A0AA H  0 @AA8pH   8@^L`P"  `as@b3 h?a&  H~!Q$0 XD d XD @QD`>D @D@k3d0`L@`0$0 H@ 0' 0H`0sA#X`0a"P 0!"Hp 0!"LB0G0`L $ @ B F&0@K  0H#@KN X0xAKF p AKo0 @AK-` @ AD-` $C @C) /E `K)!I)   F)#I8B Fy"h0B FQ"(00B qEQ#80@C K30@B HC@ H @C@@F>@@F@cp@F`X@G0H@@Bn0J@ { C`0B}0J`;`?0Jp(0H 0X#8 F@H 0G `}l GGB` F@CC0F@caFh1@!@E `0 pD0D D AK @ @ @ A@@A`@@`@@0@@8@@@@@@@@@ A@@ A`@ A @ Ap@@ @X@ @@l@@ @<@@@@Ip? pA` Ip? |D Ip?0|?D0Ip?xDIp?@D Ip?`?DIpx?DIpO?FCpA?CCIpA?@AI@a?D@AG~a?d`@H`q?$ `BqA6 B 0ACB0GaA@G @ @G0`@GzD@GF@AxA"A|AA|ADA~A$A~A6 AA0AB`(B@B0 B`BApBAx?BB|?Ga~H`!H0#@H@:`F pn!pH:@x0H@|? I@A3L~`Ip`@aC@Ipaq @`G@Ip' 3`C@ `0C@gD @0D @0D `0D `0D @pD@pC` B` B@ B@ B` N`L3fL3fL3 C@| B@ BxAEpE&@B p@B@Bd@E@EB@ArA`A9A`B@'ApB \ApBLAxAf`@`AB$@@8AC4@AC@D|?B(AA`C$ACdA@DAG8D Gp G  F   F  E  E  E   E { @@@@D"D CD@4HD`HD04HD|HD\H`}\H 8ZLH}y}LH}L1LH@pF@aLD@"@ALD"`ApLD" AxlDp0Ah-A`AA,?@<AA$|AAB$\B@qAB4>@@AB41                   003f<fl8l~`0````0`0000`0ImmmE`0~~~3000000~~00p000|0000000~~~~~00|~~~w~~~~f<ff<cc>cc>>cc>0000000hw` ```````fffffff~l6iɆpq{0`0``0`00000`Z<`~~6#ZFįCO,0,181:CEW:CO,ZX,ZY:)Đ 0 NUMERIC INPUT (HI-RES)J ZB = MIN, ZT = MAX, ZC = C/R LEGAL (BOOLEAN)`(1);:GCP,ZX,ZYpZL((ZT))CO,ZX,ZY:INP,(ZL,N,(ZC)),ZN$:ZN(ZN$):ZCZN$""ıZNZBZNZTįCO,0,181:ZF1:"Enter a number between "ZB" and "ZT"."(3):37030try again? "(1); ,y360005 6yZ$"Y"įRNH,"DUCKS"l @y(12):CO,0,89:"Getting the menu...":RNH,"MENU" STANDARD YES-NO INPUT (1);:GCP,ZX,ZY CO,ZX,ZY:INP,(3,"YESNO",1),Z$:Z$(Z$,1):Z$"Y"Z$"N"36020  STANDARD RANGEDL1UXL1,UYL1: +' \+ BOX SCREENT f+UX5:UY8:LX274:LY184:BC5:BL5:11000~ 0u STANDARD SPACE BAR ROUTINE )HI-RES) :u(1):BOX,28,180,250,191:SPACE:: y STANDARD ENDING ROUTINE (HI-RES) "yWIND:(12);(15):CO,0,89:"Do you want to '16384:CA$(1):CB$(2):CC$(3):CE$(5):CF$(6):CL$(12):CN$(14):CO$(15):CP$(16):CQ$(17)t 'N$(11) $'D$(4) .'F132000:RFL,"BLOCK.FNT"F1:DFT,1,F1 s' * EDGE +BC +L10BL:UXL1,UYL1LXL1,UYL1LXL1,LYL1UXL1,LY$ xNN031000X }CL$:11100:CO,20,10:AFT,1:CN$"ROSTER OF GREAT HUNTERS"CC$CO$:p L1NN:L10ĺ" "; L". "N$(L):L ANĺD$"OPEN ROSTER.SEQ":D$"WRITE ROSTER.SEQ":NN:L1NN:N$(L)::D$"CLOSE": 30000:31000 'INITIALIZATIONhROSTER OF GREAT HUNTERS? ";:360009 Z$"N"AN0:1200q AN1::CO$"Your name? ";:INP,(23,"-AZ-az .'-"),N$ :D$"OPEN ROSTER.SEQ":D$"READ ROSTER.SEQ":NN:NN01220 L1ANNNAN:N$(L): D$"CLOSE":NNNNAN:NN10NN10 ANN$(1)N00`8z#y? ! Ӡ" ԠŮԠ үҭ̤ ή­̤IJԠ ԮʠȮˠ  ȮРԱԲҠ ҮѠ ҠϱɠĮԠȠŠϮѠԮԠήʭŷ̤Ơ ĠӮΠ Ӳ# Įˠ Ǯˠ  Ԡ ȠԠɠĮԠ Ϡ ԰ ήˠ!ٮˠ"ˮԠŮʠԠϮΠӠ ϠՠӮԠԮʠ̮ʠ Ӡ%67LHh0 8 hL 000`0x |||| ||x|8l````|| x````8p`````lxx|| |x ````l8|x0x0x| x0`0````0``0``v0`x000||0xxx||````` xxxxlxx x000000xx0x0xx0000 0``0 0xth`lllll~~~0` pvv0`0``0`000`~<~0000`` 0`xx`````x 8` 8 x8x x<`x 0```xxxx| ```0``0`0   :UXX,UYXLXX,UYXLXX,LYXUXX,LYXUXX,UYX:;gBMhBSPECIAL CASEhmBA$". "AN$(PR,(A$)):yrBPR817100|BZC$"pistol":(A$)2ZC$"rifle"BZCĺZ$CA$". Neither a rifle nor a pistol is legal to use when duck hunting.":17900>BZZCİ18000 7):REORDER WRONG PROBSX:TP0:L1015:PW(L1)KLPR(TP)L1:TPTP1r::TPTP1:TP115999:L10TP:R1R(TP1)1:R2L1:R1R2TP115040:TRPR(R2):PR(R2)PR(R1):PR(R1)TR:>E10:E20:>EDGE>BC5>X0BL(NA)),A$:WIND,0,108,279,191:BOX:CO:Z$PR$(R(3)):ZC1:CA(A$)Z$NR$(R(3)):ZC0p6FB$""İ17000:140506:CO,0:A$". "AN$(PR,(A$))::CO,0:Z$". "FB$6ZCPW(PR)PW(PR)1:E21:PW(PR)3E116ZCTSTS1:PW(PR)0SCSC1 730000:Q$::Q2$:WIND,21,108,279,191:BOX:CO:NA3ĺW2Z11NA:CO,0:Z1". "AN$(PR,Z1):2Z$" or ":NA2Z$", 2, or ":NA3Z$" to "2CO,0,183:"Choose the best answer (1"Z$NA"): "CA$;:GCP,ZX,ZY:6GET USER ANSWERV6CO,ZX,ZY:INP,(1,"-1"S1:PW(PR)0SCSC1+>+30000:ZCİ180001H+F.DISPLAY GRAPHIC.UX139:UY4:LX273:LY88:BL3:BC2:16000:IMAGE,GA,IX(IS,GA),IY(IS,GA):2DISPLAY TEXT2WIND,0,0,133,108:BOX:ZBV((Q$)):Q2$""ZBZB1V((Q2$))02CO,0,(12ZB)4.5:is required if you are 16 or older.":(A$"1"AG16)(A$"2"AG16)Z$NR$(3)Z$:ZC0:11055s*+Z$PR$(3)Z$:ZC1/+ZA$"1. Yes.":A$"2"ZA$"2. No."4+BOX,0,108,279,191:CO,0,108:ZA$::Z$7+ZCPW(PR)PW(PR)1:E21:PW(PR)3E119+ZCTSTld are you? "CA$;:INP,(2,N,1),A$:AG(A$)::"Do you think the law requires you to buy a federal duck stamp?" +WIND:CO,0,116:"1. Yes":"2. No":CO,0,183:"Choose the best answer (1 or 2): "CA$;+INP,(1,"-12"),A$] +Z$". A federal duck stamp +AG255įCO,0,18:"If the information on your hunting license is correct, you are "AG" years old."::"Do you need to purchase a federal duck stamp?"+AG255įCO:"A federal duck stamp is required if you are over a certain age.":o +AG255ĺ"How o~'R1R(15):R2L1:R1R210110F'TRPR(R1):PR(R1)PR(R2):PR(R2)TR:p'L113:PR$(L1)::L113:NR$(L1):'L1116:L207:FX%(L1,L2),FY%(L1,L2)::'RFL,"SET2.IMA"F1:IS2**FIRST QUESTION+CL$:GA2:12000:WIND,0,0,133,1042567 B'R(ZZ)((1)ZZ1):V(ZZ)(ZZ171(ZZ0))t L'CC$(3):CL$(12):CN$(14):CO$(15):CE$(5):CA$(1) V'F1IN25:DFT,7,F1:KB16384:KS16368:TP15 `'L102:L215:IX(L1,L2),IY(L1,L2):: t'L1015:PW(L1)0:PR(L1)L1::L1115D MARSH TEXT":L1115y .'IN:Q$(L1,0)IN$"":IN:Q$(L1,1)IN$"":IN:NA(L1)(IN$):L21NA(L1):IN:AN$(L1,L2)IN$"": 8'IN:CA(L1)(IN$):IN:FB$(L1)IN$"":IN:GA(L1)(IN$)::D$;"CLOSE" ='RFL,"MARSH.SHP"IN:1:0:HB(IN256):233,HB:232,INHB3,LX,LY:UXUX9:LXLX6:16000A 'CO::"One moment please..." 'Q$(15,1),AN$(15,5),FB$(15),NA(15),CA(15),GA(15),PW(15),PR(15),IX(2,5),IY(2,5),FX%(16,7),FY%(16,7) $'IN$"":D$;"BLOADSINPUT.OBJ":IN(43634)(43635)256:D$;"OPENMARSH TEXT":D$;"REATP $L1:E1įRNH,"LOST"/ .E2İ15000:1020K 8919,SC:RNH,"CONGRATS"_ 'INITIALIZATION 'AG(919):D$(13)(4):D$"MAXFILES1" '16384:230,64:24576::DUN,"MARSH.PCK":BL5:BC5:UX50:UY77:LX227:LY111:HOOK:BOX,UX,UY,LX,LY:WIND,UX2,UY(L1)11IS1įRFL,"SET1.IMA"F1:IS1:1050` PR(L1)0PR(L1)6IS0įRFL,"SET0.IMA"F1:IS0n DFT,7,F1 PR(L1)0İ11000:1057 PRPR(L1):Q$Q$(PR,0):Q2$Q$(PR,1):NANA(PR):CACA(PR):FB$FB$(PR):GAGA(PR):CL$:12000:13000:14000 !E1L1 PROGRAM:MARSH.PROGRAMMER: TIM HEAPICOPYRIGHT: MECC, 1984g(LAST UPDATE:84/07/13 BEIyMAIN PROGRAM10000:TS0:SC0:KL1KLKL1:L10TP:((PR(L1)10PR(L1)16)PR(L1)0)IS2įRFL,"SET2.IMA"F1:IS2:1050+ PR(L1)5PR          &$$46%$?6.$$$46>46$,=$<<'/%=/%-'$$$4666&$$$$>->7->7-76.56>&-/.---------,%-%-------%$$<<7?7>?'?<'????????>77?>?7NMaL ???'??'-,-5----=67$-.6>?$6.%%?/- ፱}BS TARY FILES@ BGOSUB 3000 FOR HARDWARE CHECK (64K, 128K, OR //E)i L901,255: SOUND BYTE; DO NOT DELETE VIF YOU NEED A DELAY, PUT IT HERE RNH,"MENU": }PROCESS ERROR BY RE-BOOT }:BS(P(P(999))1)16:BS1BS7BS6:FIND BOOT SLOT 57Ģ12:"THIS PRODUCT NEEDS AT LEAST 48K TO RUN.":16384,128:16368,0:32000 230,64:D$"BRUN LOGO":16304,0:16297,0:16299,0:16302,0 $D$"BRUN DUCKUTIL.OBJ": PUT NAME OF UTILPACK .RFL,"HPRINT.OBJ" 8ALSO LOAD ANY OTHER ESSENTIAL BIN PROGRAM:HELLODUCKS=COPYRIGHT (C) MECC, YEAR\(LAST UPDATE: 84/05/26 BEInMAIN PROGRAMz32000D$(13)(4):P(X)(X)(X1)256(65435)6ĺD$"PR#0":D$"IN#0":16372,0:TURN OFF THE 80-COLUMN CARDN ::(978)1  phxp pP ؈P PP  @`0 0xp`pp ` ppxp @ppppx Pxxxx pبȨpp  `,􁍖򁍔󁍕 큩s  灩yꁭ߁y끭y쁍`, `8..⁐0jjjM `>?@A?@0@A>?` ֩PyQ ALꁮ끠  ]Ȍꁮʎ끮끭ꁠ  ]L`큠0LO) nށ,ށPĹ.ށ,% SNs  -(s  8`s  8⁹8 聐ȌL~s  L"ꁮ끠  쁭ꁠ  8ꁠ  8ꁠ  8H8h  ꁮ끠  ],,0ꁮ끠  ], iL" 8 (yH߁y8h  yH߁y8h   #聰L5}L'}߁恬遹Ȍ遬 H Hh)i߁8߁L!}偄Ȍ聰LyHyh  yHy8h  |ށ< H<3DEOpXg?@EBB"B A?|pAAAEAPB@LA`}A`x?AA@ppB@IC A(B x~~`|@IApt@`Bp|?xdx^A`xB~HD@A~E`Hm@``px<BGC`pB0ApC0DA0ApF0EYpIpGE(x|F|HAh@px<OCABAJAaA3A HX~O>|p@DxK `@@`x`B@` N~VAgAKx_DqbF?pK?SUAgAJ?s"HdAHA`gxS`g~JA?dqDddAIAK0``p|pB`0P|p@NAf~G]JAJBBSAN`DqdVIx`EDF|D^xJD@`pB0p`H@c;n;n;o|I@p|?S?|@ED B(BAb"A[@x~?I`~CDG12:" Direct inquiries to:"::" "CC$;:GCP,ZX,ZYH:WIND,ZX,ZY,279:CO:"MECC Distribution":"3490 Lexington Avenue North":"St. Paul, Minnesota 55112":"(612) 481-3527"R30000:CL$:WIND1,Y1:CEWWMN$(L)::" ";:GCP,ZX,ZY:WIND,ZX,ZY,279,191:L11DP:DS$(L,L1);:L1:oWIND:::L:30000 SUPPORT BOOK INFO*CL$:CO:VSP,10::"A manual to aid in the use of this diskette is available from MECC.":VSP)49:" Title: ";L:2352L,6L269,6L:9,183L392L,183L:2392L,183L269,183L:NgXGENERAL INFORMATIONbCL$TI$CC$:PA$""ĺPA$CC$lVE$CC$:::GCP,X1,Y1CO,X1,Y1:CEWSHOW DESCRIPTIONS L1NP:GCP,ZX,ZY:ZY150ZYY1İ30000::CO,X:Y10:X2278:Y2191:DX18:DY12:L02X1DXL,Y1LX2DXL,Y1LX2DXL,Y1DYLX2L,Y1DYLX2L,Y2DYLX2DXL,Y2DYLX2DXL,Y2LX1DXL,Y2LX1DXL,Y2DYLX1L,Y2DYLX1L,Y1DYLX1DXL,Y1DYLX1DXL,Y1L:H1:L02:9,6L432L,6C$30000:CL$6CS(P(P(999))1)16: SLOT #JCS1CS7CS6RCSXipDRAW BORDER}z4:21,021,1911:9,69,33:11,611,32:9,1589,185:11,15911,185:267,6267,32:269,6269,33:267,159267,185:269,158269,185&6:X10 is now turned "SB$(((901)))"."CC$:30000:2000B AS(6)5000WRUN THE PROGRAMb16384A0ANPF1$MN$(A):F2$CN$(A)CL$:HSP:VSP:CO,0,89:"Getting "F1$"...":RNH,F2$END OPTIONCL$:11:"Insert another diskette."Cns available.":30000:2000Z AS(2)A1F1$"the management options":F2$"MANAGEMENT" AS(3)F1$"Printer Support":F2$"PRINTER SUPPORT" AS(4)F1$"Diskette Support":F2$"DISKETTE SUPPORT"1 AS(5)Ĺ901,128((901)):CL$:11:"The soundB$(1)"off":SB$(((901)))? HNN1:4(N9):S(6)N:N". End"] RESPOND TO USER'S CHOICE :GCP,ZX,ZY:ZY160įCO,ZX,ZY4 "Which number? ";:9000:WIND AS(1)İ7000:2000 MOA1ĺCL$:VSP,8:CO,0,75:"There are no management optio 4 - (N > 9):S(2) = N: PRINT N". Program Manager":MO = 1~ *N = N + 1: HTAB 4 - (N > 9):S(3) = N: PRINT N". Printer Support" 4N = N + 1: HTAB 4 - (N > 9):S(4) = N: PRINT N". Diskette Support" >NN1:4(N9):S(5)N:N". Turn sound ";:SB$(0)"on":S4 CL$:6000:CO,0,MT:CN$TI$CC$:PA$""ĺPA$CC$w CO$:GCP,ZX,ZY:WIND,ML,ZYSP,270:CO:"Program";:NP1ĺ"s"; ":"::L1NP:4(L9):L". "MN$(L):: "Options:": NNP1:4(N9):S(1)N:N". General Information"8 N = N + 1: HTABNP),CN$(NP),DS$(NP,DP): MENU NAME, CATALOG NAME, DESCRIPTIONp tL1NP:MN$(L),CN$(L):L11DP:DS$(L,L1):: ~DATA STATEMENTS ARE AT 50000 DISPLAY MENU (901)255Č24768:901,128 230,64:24576:DFT,1,15128:AFT,1:CO$:HSP:VSP:WINDATTING PARAMETERS, P(S)(S)(S1)256G RFL,"TITLE.PFT"15128_ LPROGRAMMER OPTIONS VNP2:DP2:MO1: # OF PROGRAMS, # OF PARTS PER DESCRIPTION, BOOLEAN FOR HIDDEN MANAGEMENT OPTIONS `TITLE$"Ducks":PART2$"":VE$"Version 1.1"= jMN$( PROGRAM:MENUDUCKS;PROGRAMMER: P. BOUCHARDY#COPYRIGHT (C) MECC, 1984x(LAST UPDATE: 84/07/17 BEIZ32000INITIALIZATION15128CA$(1):CC$(3):D$(13)(4):CL$(12):CN$(14):CO$(15) MT13:ML37:SP0:FORM          384,128:A(16384)128:16368,0:N0:EFA27Č54915:31000kEFA27:X1(CMD$):A((CMD$,X,1))NX|X:N02030N2060,2060,2070,2070,2080,2100,2100,2200,2200 11000:DPDP1(18(DP1)):202011000:DPDP1(18(DP18)):2020% 000lCO,0,140:Z$"* = Duck to be presented":11500:Z$"K = Keep duck":11500:Z$"R = Remove duck":11500Z$"< > Move selector":11500:ZXZX7(Z$)1:ZYZY3:0:ZX,ZYZX5,ZY:ZX10,ZYZX16,ZY:Z$"RETURN when finished":1150011000<16FF$:D$"CLOSE":/(Z$)3000,3100,3200,330091750SCHOOSE DUCKS TO I.D.^VSP,1CL$:"Here are the ducks you can choose from.":CMD$(8)(11)(21)(10)(13)"KkRr"Q118:323(Q10):4Q10(Q10):D$(Q):Q:DP1:16368,0:10 "LF$::" 3. State duck stamp fee: "SF$::" 4. Federal duck stamp fee: "FF$::" 5. No more changes":"Which would you like to change? "CA$;:INP,(1,"-15"),Z$Z$"5"ĺD$"OPEN LICENSE INFO.SEQ":D$"WRITE LICENSE INFO.SEQ":ST$:LF$:SF$:hange this information in the program."2 30000 D$"OPEN LICENSE INFO.SEQ":D$"READ LICENSE INFO.SEQ":ST$:LF$:SF$:FF$:D$"CLOSE" CL$"Management Options"CC$:"Riley's Marsh"CC$l::" 1. Name of state: "ST$::" 2. State license fee:OP(Z$):WIND* OP2000,5000,9000,80006 "OP4ı@ ,1510S RILEY'S MARSH CL$"Management Options"CC$:"Riley's Marsh"CC$:' "Since waterfowl fees vary from state to state, and federal fees change every few years, you have the option to cducks for your students to identify":_ CO,28:"2. Change bag limits of individual ducks": CO,28:"3. Clear the Roster of Great Hunters": CO,28:"4. Return to Management Options menu" ::CO,0:"Which number? ";:CEL:INP,(1,"-14"),Z$:10 NAME THAT DUCKr RFL,"LIMIT INFO.BIN"LIM:SELECT(LIM):L118:U(L)((LIM2L1)0):L(L)(LIM2L): VSP,0:CL$;"Management Options"CC$:"Name That Duck"CC$& WIND,49,24,279,191:CO:CO,0:"You may:":::CO,28:"1. Choose individual CL$"Management Options"CC$< WIND,35,0,279,191::6{ "1. Riley's Marsh options"::"2. Name That Duck options" :"3. Return to main menu": :"Which number? "CA$;:INP,(1,"-13"),Z$:OP(Z$):WIND:OP331040 OP1700,1500 $10 PROGRAM:MANAGEMENT3PROGRAMMER: TIM HEAPNCOPYRIGHT: 1983, MECCl(LAST UPDATE:84/06/12 BEIwd16384nD$(18),L(18),U(18),DL(18),UD(18)xD$(13)(4):CL$(12):CC$(3):CA$(1)LIM36794I118:D$(I),DL(I):I  MAIN          !!!!!!!"@ $6>$ 6. {=90pXHHH90x90IHHXp!  @ ;7@ QpRpZp[p߹Zp[pIo pIo , g =p ,Ho $pMp) Np OpPp)?p ߅ l Mo ) L{o HHH>p hhh ɛ Moo0LooɈ95ɍ=p7,?p >p h5880`L =p>p?pHoAp ( $pL!o | {$0! >p ,Ln ^ {$0LnNHo Lo|Jo nr- p nKo n p-KoKoKo pLnnJoLoJo^`NHo Qphh,lp` ֩PyQ ALŠҠ僁iimiʈ i i &'iq& iLi N8`f `.f`xmym ` ң Σ  h`+ hR("  LPj,Hk  l  hl`L, HHHHHHHHH k ީl wjlNO,ɍɠ ɛ8nl,lPݩ lhhhhhhhmHihʍ i i i LiL 2k 3kM4k2k g<>=M4k?'<>2k2k3k` H g Rh PQ`L     խ)?` ` @)`,` Rj ެiii g&' i jQ&-iQ&&ii i`*U U*ժ Fj')JMFj)i Q&,iP 0=Kj`Gj`J&)` `L3f̙ujvj ߅$0Hujvj LbLvjj j` hiii h8)h` g R  QP (`L h`L)  @ iiiiiiiii g iii i i g iii i iBi g&' i jQ&-iQ&&ȭi i j& jQ&-iQ&&ii i`i-hhh hJ` &eeieh ghIiVhi 썛h gmh﬜hMhVhPjjjjjjj0jj) h0ȱjhjhhУ`8pPH)8 qȥq-`,f`imimʈ i iiʎ iLi Aggg` gg }ggg` g Ag }gggg`{g|g|g8pug.{g(ugg|gm{gg`8p g)gJJ gg gg .g .g ngg)ggmgg`hH80 " Jfm8h)` dem88eLf` deme` d8` f@ yf yf f`Lb dffL(f ``fʽ`) ` `fH`mS` dS`)We`Ve hWe gVe}`mf8ff`f` dLb,0*`%f 8fHfJhj`mfff` b d` b dI``L defff`) ffffffO,0 `)  d`f(`HHf,Pf88`f d fhLcfHfHff,P d fhf8hfffffff``S`S```f穀f f`f3f'ff ``)    LX8e湥 pHpH L`@ @ʩ WRPT` J  dȱȱȱ` hfH) #,f h`` fffffffh`f fS```emffff f`em (f%%h $20 LPc $ aHaH`dWeceWeeeee'fIfbffffff(bb d cf hf gNOH c h f ghH ,aɈ( cb h) e f g c ebbh`xo 8ɀ`?```L`bbbbp$% `@ GaLa6 ,fLbLcfPa bHaa,aaɠ,wa ` a欇aah`ɀ)?  @IH c$ d e$%0 d     `|71rH!` `BA1D`0rAD@AD` AEp?A1A B`Ba@xAFAp@FAx@F0A >BK A `@ C A C@C  C`C  C C   C0 A A0 CE  DIEx@BIEX@DIEX`xcDIEX GBME0uBEEBEEx BDA@E<!FDEa BD`EAAD8EaAAI! A I@a8I@ (dH@ >$HA@ ;6Ha@A N??@8@ @@ @@@@@AD@@A@AD`0`A@AH ` AAH@ BAH @ BA H@`GAZH @@ @SH@ @qGz@ A#@B@@I.xa|Q@E(D         䎱 掲`RFRNSEDUIMAG*{{}wuy Nu`g^h_^`ȱ^Șe^^_iȑ^^_}}}@A }  } `@ i @ ȱ $w`,X` {ݩD ^ D`}D}ED` &LNu`L `@ i @ ȱ u`,X` {ݩD ^ D`_|D`|ED` &Lqu`L 䎱 掲`RFRNSEDUIMAGy;zh|Hvx qu`'}hj8ȱCvz z zȱz8z쭩z8ȱ>? |:p"g|>h|? |%p {g^h_^`ȱ^Șe^^_iȑ^^_]|\|[|@A W|  G|g|?h| $|  { RPzQz zL z{Ll`N tbD_|E`|Bc|Cd|@e|Af|>g|?h| $| z&{ eL׭zzzzXzzLXLXzz {$){g|>h|? |p{ G 8`L{8ghegiȱe=<= yP`xyvywy)yhyy zyxͪx x>?xxxx t>?xe>>?vyxyyyH(wy`yyyIiy>yPjjjjjjj0NyjJ y>0ȱ>jNyyj y>` tVD_|E`|Bc|Cd|@e|Af|>DB`Lޭ@A 掩x@0R ux txy8yyxx @<ȱ@=@e<?xe>>? x`/0<=(0% Hh @H(hJ)?<= yPpLx2 & &JJ=w?Lv t&'&Ȅ`,&@ȱ@Ȍx>x? u >`LHh`<=< Dﭲ x x x x ) 8`xDxEFv<ȭHv<><ȥ?< <<= H <=GvI<Fvx?x@xAxBxCxDxEx { 媤^_ w  Fw)`L Fw w Fw w w0ޢ FwܦH)?hJ w Fw w 6u7u7u8p0u.6u(0ut7um6ut`8pt)tJJ tttt .t .t ntt)ttmtt` <=ʱD>` ttt`tt 8utt`t t 8uttt`     31000(n} PROCESS BASIC ERROR (HI-RES)8x}ZL53856ZEu}ZE255ĺ"Error ctrl-C hit at line #"ZN".":30000:31000}ZM01:ZP(ZL):(ZP);:ZM(ZP127):ZLZL1:ZM:" error at line #"ZN"."}:"Please report this error to MECC.":30000:31000rs.":32105[F}ZE4ĺ"Please remove the write protect sticker from your diskette.":32105P}ZE8ĺ"Diskette bad - drive or format error.":32105Z}ZE9ĺ"This diskette is full.":32105d}"DOS error number "ZE" at line #"ZN".":32150i}30000:RES)' }ZE(222):ZN(218)(219)256?}(15):ZE1532110{}ZUĦ: ZU IS THE USER PROCESSING FLAG (FOR DOS ERRORS)(} USERS ENTRY POINT (WHERE THE USER JUMPS BACK TO)2}(12):CO,0,89 <}ZE2ZE3ZE7ĺ"Please check your diskette parameteI-RES)I"yWIND:(12);(15):CO,0,89:"Do you want to try again? "(1);T,y360006yZ$"Y"ĺ(12):CO,0,89:"One moment please...":RNH,"DUCKS"@y(12):CO,0,89:"Getting the menu program...":SET,0:RNH,"MENU"} STANDARD ERROR PROCESSING (HI-):LXRD(N)UD(L):NN1!V:;YRANDOMIZE SOME DUCKSGYMD1ıYL1N2:Z1((1)(N1)1):Z2((1)(N1)1):ZTRD(Z1):RD(Z1)RD(Z2):RD(Z2)ZT::0u STANDARD SPACE BAR ROUTINE (HI-RES):u(1):SPACE::y STANDARD ENDING ROUTINE (Hck","Cinnamon Teal","Gadwall","Goldeneye","Green-Winged Teal","Hooded Merganser","Mallard"dÃ"Pintail","Redhead","Ringneck","Ruddy","Scaup","Shoveler","Wood Duck"X>11)))*9-2,8R30000:CO:USELECT RANDOM DUCKSUMD1ıVN1:L1(LIM1:1:"One moment please...":RNH,"DUCKS2"F STANDARD YES-NO INPUT\(1);:GCP,ZX,ZYCO,ZX,ZY:INP,(3,"YESNO",1),Z$:Z$(Z$,1):Z$"Y"Z$"N"36020PòDATAZZÃ"American Wigeon","Black Duck","Blue-Winged Teal","Bufflehead","Canvasba::+y STANDARD ENDING ROUTINE (HI-RES)n"yWIND:(12);(15):CO,0,89:"Do you want to try again? "(1);y,y360006yZ$"Y"Ĭ@y230,64:24576::CO,0,89:"Getting the menu...":SET,0:RNH,"MENU"*|y230,64:::RNH,"UPPER/LOWER-A$280-L$25":1UXQ,LYQUXQ,UYQ:'THOOK:300002'31100F'INITIALIZATION':(4)"MAXFILES1":RFL,"LIMIT INFO.BIN"37060:RFL,"ASCII BOLD.PFT"37120:DFT,1,37120:AFT,1$'0u STANDARD SPACE BAR ROUTINE )HI-RES):u(1):BOX,28,180,250,191,4:SPACESPECULUM"CO$" is the patch of color sometimes found on the secondaries of a wing.":WIND:AFT,1:30000 @::RNH,"UPPER/LOWER-A$280-L$25":11:1:"One moment please...":DUN,"WING.PCK"J5:UX5:LX274:UY8:LY184:Q05:UXQ,UYQLXQ,UYQLXQ,LYQe lower portion of the outer wing segment.": CO,0:"2. "CN$"SECONDARIES"CO$" are the feathers located on the inner segment of the wing.": CO,0:"3. "CN$"COVERTS"CO$" are the feathers covering the quills of a bird's wing.":f CO,0:"4. "CN$""-----"B N37061:I118:(N)ĺD$(I);:31:(" "((N1)),2)V NN2:I:30000 CL$:"One way to identify a duck is by the coloring of the wing feathers."- WIND,21,40,279,191:CO:CO,0:"1. "CN$"PRIMARIES"CO$" are the feathers located on th:X "If you correctly identify the type of duck, you will have a chance to shoot.": ("Game laws set daily limits on the number of ducks you may shoot. These limits are as follows:":VSP:30000 xCL$:CO:" DUCK";:30:"LIMIT":" ----";:30:1400:LL(400((16384)128)):k CL$:CO,0,88:"Would you like instructions? ";:36000:Z$"N"31100 CL$:CO,0,14:VSP,3:"You are entering a marsh. As you sit in your boat, you will be given descriptions of flocks of ducks flying toward you."  PROGRAM:DUCKS.PROGRAMMER: TIM HEAPICOPYRIGHT: MECC, 1984h(LAST UPDATE: 84/05/26 BEIrMAIN}10000D$(18):D$(13)(4):CL$(12):CO$(15):CN$(14)I118:D$(I):I" L::VSP,0:DUN,"MALLARD.PCK":(5):16368,0:L         cF `0Kf@C @0AL`G @0Kp0 `0AZ0 `0@ 0 @0`@` @0`~p ` `00`?` `00x@>` @0`@g` @0B  p\FA `0f 8<  `0?0T @0@`|O1 @0@J~La6 @0`ILAg `0J@LC( `0D @0D @0D `0D `0@?D @0A`aD @0B0@ `0`@x `08`p  @0`@  > @0? N `0`@Gf `0K3 @0N0@@ @0@ `g` `0p@A0 `0@ @00@ H @0|`K `0@4$AxJ`Ea80$@I`Ea( &RH Ep8 "RI E8` "ZI`E` " Hw " @E0 r  Dp > B`@" ?N`L3fL3fL3` B@ B@ B` B` C@pD@p`0\;n1wLh1 `0DH"JB R-z @0LIfy#^jy @0DH"J$R(0 `0D;.JJN#RBI&3B~BBBYCFJUNG_DyCdGQF@`Dp`@HB@@_BY_CFJ*NG_ BL dGOG|L|HBFACFJUNG_p`B`pdGOD@CAAGA <CFJ*NGAGO?_WUUUBUABUCUBB>0CFJUNGTvGJ??C*B*B***B*AB*C*Btz u@ )` t t t0H)?hJ t t t?Lt t&'&Ȅ``tt ttt`t)tJJ tttt .t .t ntt)          BNC c0BCA ! BAA0@! BCcAA@ `BC@ A` @Ba@ a S@C!@ ! 0@AG@E 1 B@AG@E A@AG`G @@G C@ @@@@ B@0, K$%&080F$ %b B Fd !C `BFD !A @CEKDaA EKDLa@ eDdL @ B$g$H @ ` ,X @1`A(P azLCY OFO! | D ! x D A1` DC` FBx BD@H@^ Ldp@p 0<L,<@0@$L(@` 0'L !XG{ A!@ GA@a`A @E~ @a Iw;0# A CB2 A E8AH(DA A@ K8Fa`Ba`KB1@C 0A@D@E` @@D@@ C8@@DHB0l@DHCt@@DHo<@KD@;pac@`L@0C @@F~@ G@F`G@aC?0Gpa@c@paB`Fp0`0F00x@F0x?@ F0pF0<0F`p<@D ` Dxx0 D@` C Ap C@C Ac Ap3 @K @ @ @ @@@@@@A@@A`@@p@@80<G 0?I 0 @B 0G@ <H@`?H`0 @0AB C @F`@F`A A@aB`B`pB0B0B@F p `F 0FcxFC?`A G@apa`C`0AC`xA@C0 @`C|0@A0C@p@`A@@AA@At@AX@@@@0@@0@@ @@`@A@@@A`@@0@8@@`@6Bp? 0 0A`0A00Ax0B @0B0Cp0D@ 0`Bx0I0`@@G`A G08G>` BvCB@BB <B@`DxB0AF0`@0C8@`C A@@`F@8@CgG@`a0X@C @B@B@@`BF@`BI@B&<@ B `@H`?`0D8`0@`0Fx|wAE`|w@ @E~7@@ G`!~` C 0@C H G@0G @H@#O`@Dp`A0`AHp  @E80pE8  EE FDrE@B@B@b +A@?B0`B@B@D`H @dpH@0xFx!w|?I@a~I`@#Ip@3HG0@iI 0xF|@F~t4|?@I~D~\H~@OTH~fAGvC~@BC3H~pxAH1H~|w@H0A~Dw?@H H~yw`h H~xw08 E~xw@x A8D`pDa8pE@pE@pCpB@<`@pB@#0@xA!@xB@ @|B@@|BxT@~AD{@~AB9@Ab @A!A@A1A@B@A`B@A`B`Ap?BPAp?BLAxB&AA|B! A~C`@AH0@@H@<FCAFb@FAAC A8 FAAA`FA@C FC@CpGC B@@@DE B@|GBBD bGBB #"EC>"GG2GA~GAB@QBG@PA"  FPa "  FP B  FP1 A FPq?@ @A@@@@@@` CA@ A @I`" @@ F!@@H@`F!@L@@F!@F@@F1@HBIp@0@HC I`p\OA IP`Q'{A IP_1rA @PFC6A I nC I`x#HC @@F"LpN @@F"D@O @pF.F]@F BAuA@F@BADApcEBAD;A>@  D'A@A A~APAAB0h D ( Ax DH  DD GAD@F@CB @AJ@FB K@T MpCT~Ex>TF{|?E`_BA`A`DpbA`G`b0G`bpH@"     NU(I):LIM2I1,U(I):LIM2I,L(I):I]^LIM,N:D$;"BSAVE LIMIT INFO.BIN,A";LIM;",L$31":n(#CLEARROSTER2#CL$:D$"OPEN ROSTER.SEQ":D$"READ ROSTER.SEQ":N:N09030<#L1N:N$(L):F#D$"CLOSE"P#N90700Z#VSP,8:CO,0,89:"There are noer to change? ";:INP,(1,L$,0),A$:A$""įWIND:[A$(P64)āI118:L(I)DL(I)::5010CO,140,176:CEL:"New limit? ";:INP,(2,N,1),B$:Q(A$)("@"):L(UD(Q))(B$):CO,168,(1Q)8:(" "(L(UD(Q))),2):5030@ENDING STUFF'JN0:I118:NBag Limits";CC$::I118:U(I)ĺ(P64);". ";D$(I);:251(L(I)10):L(I):UD(P)I:PP1I:GCP,ZX,ZY:CO,0,ZY4:(P64)". Set all to Minnesota bag limits":WIND,0,176:L$"-A"(P64)0CO:CEW:CO,0,185:"Press RETURN when finished"CC$:CO:"LettINP,(5,"-09.",0),ZD$:ZD$""ZD(ZD$)FZD100(ZD)ZDZDZD100ZD100įCO,0,ZY18:"Fees must be less than $100.00.":402013000: CHANGE BAG LIMITSSELECT0āI118:U(I)1:I:SELECT18XWIND,0,0,279,176:P1:CL$;"Current iley's Marsh"CC$? 7:"Default federal duck stamp fee: 7.50" :"Enter new federal duck stamp fee: "CA$;:ZD7.5:GCP,ZX,ZY :13:"Press RETURN for default value." CO,ZX,ZY:4000:FF$ZD$: FEE INPUTGCP,ZX,ZY&CO,ZX,ZY:CEL:$:"Riley's Marsh"CC$B 7:"Default state duck stamp fee: 3.00" :"Enter new state duck stamp fee: "CA$;:ZD3:GCP,ZX,ZY :13:"Press RETURN for default value." CO,ZX,ZY:4000:SF$ZD$: CHANGE FF$ CL$"Management Options"CC$:"Rptions"CC$:"Riley's Marsh"CC$I& 7:"Default state license fee: 11.00"0 :"Enter new state license fee: "CA$;:ZD11:GCP,ZX,ZY3 :13:"Press RETURN for default value."5 CO,ZX,ZY:4000:LF$ZD$: CHANGE SF$ CL$"Management Options"CC Marsh"CC$2 7:"Default state name: Minnesota"a :"Enter new state name: "CA$;:GCP,ZX,ZY :13:"Press RETURN for default value." CO,ZX,ZY:INP,(14,"-AZ-az. ",0),Z$:Z$""Z$"Minnesota" ST$Z$: CHANGE LF$! CL$"Management OSELECT0āI118:U(I)1:I:SELECT18A*VSP,0:12000:EFī2000G/Y4U(DP)12030u>U(DP)1:SELECTSELECT1H10000:2030U(DP)02030U(DP)0:SELECTSELECT110000:2030 CHANGE ST$  CL$"Management Options"CC$:"Riley'sΠ΍Π΍ٍЮ䠍䠍 DBAGGBABACC^DAAMGCL^FADGGAJECCJBOIPLABAAmMHЄCCĕDCEAĐwC{C C 򊪪UA sD{ՕDBACBĔTϟϗǑĒ’ʊʪmB}BBAB ~j \*C(A aDD N*j~E{NUyx|~CBKJBHUu|xp`@iDCDyA D(B* BABcA z~E_wp@@BXAx`hp|F~DUs?Eh?EBCJDBDDBFB đĐBAB đĐĐvND`A@H@ppC|p@BB@CPTUUTV^D?_~x`BC B(Q*+ {}~EAK@IC@DC@BPCTRUABBBGAA A(K*B A" B(F*Y*A BOEAG@BDDEEQFTOUTLUBBEAAAA B( EA A(*F g* D*A A"A(L*C(C AJ@DEECUCUUEQTFUHTEQAECSUDCVUCTCP@A N* 8||`@|  :ZCZN$""ıa!ZNZBZNZTįCO,0,181:ZF1:"Enter a number between "ZB" and "ZT"."(3):37030!ZFįCO,0,181:CEW:CO,ZX,ZY:!Đ!PòDATAF"ZÃ"American Wigeon",5,"Black Duck",1,"Blue-Winged Teal",5,"Bufflehead",5,"Canvasback",0,"Cinnamon Teal",E CO,ZX,ZY:INP,(3,"YESNO",1),Z$:Z$(Z$,1):Z$"Y"Z$"N"36020K x STANDARD RANGED NUMERIC INPUT (HI-RES) ZB = MIN, ZT = MAX, ZC = C/R LEGAL (BOOLEAN) (1);:GCP,ZX,ZY ZL((ZT)) !CO,ZX,ZY:INP,(ZL,N,(ZC)),ZN$:ZN(ZN$)ACE::.y STANDARD ENDING ROUTINE (HI-RES)v"yVSP:WIND:(12);(15):CO,0,89:"Do you want to try again? "(1);,y360006yZ$"Y"Ĭ@y(12):CO,0,89:"Getting the menu...":SET,0:RNH,"MENU" STANDARD YES-NO INPUT(1);:GCP,ZX,ZY? ";:36000:EF0:Z$"N"EF1#/72 DOLLAR FORMATY2ZD(ZD100.5)100:ZD$(ZD)2ZD0:ZE1(ZD$):(ZD$,ZE,1)"."ZD0ZDZE2:ZD0ZD$ZD$".00"2ZD1(ZD$)ZD$ZD$"0"20u STANDARD SPACE BAR ROUTINE )HI-RES):u(1):SP7,((4DP)(10(DP10)))92,8:/,BOX STRINGn,Z$CC$CA$;:GCP,ZX,ZY:BOX,ZX27(Z$),ZY1,ZX,ZY7,8::z.VERIFY.CL$;"Your students will be asked to identify the following ducks:"::I118:U(I)ĺD$(I).I.CO,0,180:"Is this correct:D$"WRITE ROSTER.SEQ":0:D$"CLOSE"*#@'UPDATE DUCK LIST`'T118:P$" ":U(T)P$"*"$'CO,23(T10)7,((4T)(10(T10))1)9:P$:T:*INVERT DUCK+BOX,(3(23(DP10))1)71,((4DP)(10(DP10))1)9,((3(23(DP10)))(D$(DP))1) names on the ROSTER OF GREAT HUNTERS.":30000:Xn#CO:"ROSTER OF GREAT HUNTERS"CC$:yx#:L1N:" "L". "N$(L):#VSP,8:CO,0,140:"Are you sure you want to clear the ROSTER OF GREAT HUNTERS? ";:36000:VSP,0:Z$"N"ı$#D$"OPEN ROSTER.SEQ"ry again? "(1); ,y360005 6yZ$"Y"įRNH,"HUNTER"l @y(12):CO,0,89:"Getting the menu...":RNH,"MENU" STANDARD YES-NO INPUT (1);:GCP,ZX,ZY CO,ZX,ZY:INP,(3,"YESNO",1),Z$:Z$(Z$,1):Z$"Y"Z$"N"36020 CL1,LYL1UXL1,LYL1UXL1,UYL1:) +: \+ BOX SCREENg f+UX5:UY8:LX274:LY184:BC5:BL5:11000 0u STANDARD SPACE BAR ROUTINE )HI-RES) :u(1):SPACE:: y STANDARD ENDING ROUTINE (HI-RES) "yWIND:(12);(15):CO,0,89:"Do you want to t"SMART HUNTER."CC$? 'VSP:BOX,28,180,250,191,4:30000:31000T ' INITIALIZATION '16384:RFL,"BLOCK.FNT"32325:DFT,1,32325:AFT,1 $'CA$(1):CC$(3):CL$(12):CN$(14):CO$(15) .' * EDGE +BC# +L10BL:UXL1,UYL1LXL1,UYL1LX(919)z SC8ĺ"...BUT YOUR ANSWERS"CC$:"SHOW THAT YOU SHOULD"CC$:"TAKE A CAMERA HUNTING,"CC$:"NOT A GUN."CC$:9999 SC12ĺ"...BUT YOU SHOULD"CC$:"BRUSH UP ON THE LAWS"CC$:"BEFORE YOU HUNT AGAIN."CC$:9999 "YOU APPEAR TO BE A SAFE,"CC$: PROGRAM:CONGRATS1PROGRAMMER: TIM HEAPLCOPYRIGHT: MECC, 1984h(LASTUPDATE:84/05/21LAJrMAIN10000:WIND:62450:11100:3:VSP,5:CN$"CONGRATULATIONS"CO$CC$:"YOU MADE IT THROUGH"CC$:"RILEY'S MARSH!"CC$: WIND,32::SC! ! ! !!BBBBBBZJQBA(A*BG`phpX@CUB@ABABARaP`MIB*BEU CUBBB`C*BCUBC*BAAUBC ]&BE@CL]Mj@BBD`hpT@APBO B(C*BCAUABfBAfPBD@AaQaT B)*BE9B)9MBUBB*BC@ZPAQBBKBBKBx0`@BBBCB@`0BDB@ppDBx|CB?CBx~@B!! 5,"Gadwall",5,"Goldeneye",5,"Green-Winged Teal",5,"Hooded Merganser",1"dÃ"Mallard",3,"Pintail",5,"Redhead",0,"Ringneck",5,"Ruddy",5,"Scaup",5,"Shoveler",5,"Wood Duck",2 (1);:GCP,ZX,ZY[ CO,ZX,ZY:INP,(3,"YESNO",1),Z$:Z$(Z$,1):Z$"Y"Z$"N"36020a Cr )HI-RES) :u(1):SPACE::D y STANDARD ENDING ROUTINE (HI-RES) "yWIND:(12);(15):CO,0,89:"Do you want to try again? "(1); ,y36000 6yZ$"Y"įRNH,"HUNTER" @y(12):CO,0,89:"Getting the menu...":RNH,"MENU" STANDARD YES-NO INPUT15 $'CA$(1):CC$(3):CL$(12):CN$(14):CO$(15); .'F * EDGEN +BC +L10BL:UXL1,UYL1LXL1,UYL1LXL1,LYL1UXL1,LYL1UXL1,UYL1: + \+ BOX SCREEN f+UX5:UY8:LX274:LY184:BC5:BL5:11000 0u STANDARD SPACE BAR ROUTINE ELP IS ON THE WAY."CC$: "WHILE YOU WAIT,"CC$:"LOOK OVER THE FEDERAL"CC$:"MIGRATORY WATERFOWL"CC$:"REGULATIONS IN THE MANUAL."CC$ BOX,28,180,250,191,4:VSP:30000:31000 ' INITIALIZATION '16384:RFL,"BLOCK.FNT"32325:DFT,1,32325:AFT,b PROGRAM:LOST-PROGRAMMER: TIM HEAPHCOPYRIGHT: MECC, 1984f(LAST UPDATE:84/05/26 BEIpMAIN10000:VSP,5:WIND62450:11100:3:"YOU SEEM TO BE"CC$ CN$"LOST"CO$CC$:"IN RILEY'S MARSH."CC$::"STAY WHERE YOU ARE -"CC$:"H"""""0003f<ff<>gccccg>>~~p` fffffffffl6iɆpqs 0 000000 0 0Z<|~~6"" " " "