L#} 6CD l0C)HCC WhL/h `CmCDiD`  R@W1  Y0@R !L`R @  Y S S` D  C D     )16CS S)  C)D1 p p }0 C9DI pCDL~CiCDiD` DD˙` d J)L !}D L(( LL()  L| L( S LH 0p n  } CY?  q  L L  ` )} `A! d߰")-݆ "$G@LLLLV΍ }$˥%hhhh% & &eͥe΅ΠɁͪͭΦ. BHI. V0LmL@H@h  }`)8` d)L ݆  LGȘ ݆LL d  ! LL d)N>Q  HH) }  hyhyB q L> Lm JJ  Ln*` dB%' }8  H H` 1 { LL   !L     Hh SY?  q  1L }  !? S   q 1 L   Ll  Lg E`L   !L)  q 1L}) `L0AM݊L݉ ML  N݆LLLNLMLHҍ 00) }08 109hh@ Ҡ2e1i1232435ޥ<<8ИH232435; 1 ;  hh@2 e1}i1 !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF } G) *Gȩ GȽG GȌd q q G`  8   0G  `D}CEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?A[ 0 : L`L  `, 0`Y}`piH n0)բY? 08`0 }  0$L GGȽG L `8L`L}8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE`}E8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTE} H8EEȱEEȩEh J E8   . m  i`LI!)E1FR}1LJ舩9GIH`LJJ`HGHh l`H}*  * Lh`"F%GHIJK?P.` *+! LL`*+}  Lq` X٪`OS SYSIIIIIIIIIIIIIIIC`0 ߩ0}} }y |||DDOS DOSDOS TMP }}}$X""}CDOS TMP} 0`BDELV !B }`LV  q   R@э   Y S S0 w;j JA E˩ }̩ ˙#`#I $#`HjkD۩ͩΑ͈x!}X  h`GR.0:POKE559,0:POKE712,194:POKE710,194:POKE842,12:POKE752,1:?:RUN"D:LOGO"~ V"}0 @BJK͝DE V0\BHI. () . \ V*)L#}nLL'0LsоI0LɛL)~L) |'3:͍$}mfdc{WaS L0P:LB0:B,055 #I-  .,0 L%})M)M)  V0h  )0Jn8&}  VH`{ȱye8LnK:'}$L` ɚh@LHhLҥh@ .l8LnK:K7CCCCCCCCCC1C2C25CLEAREOCLEAREODISKISCORERETURENDINZLINZNCABFNTNAMEMAPSTRINGMAPNAMESS)}STATENAMENINTNINMIEC8C55PLYPMXPOVDSLSDZIOCZLEZCMZADSADFFSLOLZSTLNZBGZLZHZETZERZZTRIEZTRYZTRYN*}SHVC76QSTATEC10 +} ,}@ !"#$%&'()*+-},-./0123456789:.};<=>?@ABCDE Program:STATES (C) 1982 - ME/}CC "#"" "%%1,2,3,4,5,6,7,8,9,10,20,256,100**5100,5150,5500,9950,9990,310}000,10000( ;,2$Ed?B2I!A@X%+-09AR?(}nAA;$,;$,;1}%,;A,;,;A,;$,;,s9%,;,;%,86. D:FONT#.FNT%6. D:MP#.TXT86. D:STCAP#.TXT2}86. D:STATE#.TXT(6. D:FONT#.FNT86. D:MP#.TXT0"054286,82,559,14976,53249,512, D:FFS.BIN3},6-F:%,%F:%,$< 6-6-$%6-%6-BR2+6-/ 4<6-%5 %F:,%')%F:%,%'54}A$Y B2w#BBy$/A#AA@1MB2WY@B *-B:,65}7<,0 $6-*6- 6.7<,$,%67,. 67,. "67,.%$%67,. 67,. "67,.%$D 6}BBr ,6-BS`46-$:6-@6-D -67,. '6-C:,-6-2 6-6- 7}'67$$,. 25 6-C:,6-+%,$6-$6-( -5$&1BBr$6-# %)18}%+0AVA$!A-@B0$ $%~{6-?:C:kh]^](eTeUeX˅^eY̅_8S9}Uˈ2UTeRː(e˅ː8SRˈ0`,,~$ $% %|5 6-$$6- %'A6%:}5A7%9 6- %A@%+AA%9A4%M6-?:C:hhhLV,<,*6-F:%A5,J6-F:A@;}%,%F:AA%,$M$6-P:',6-P:&$,$&4 (}AR-)-@#0(*4 & -(*<} -&S -(* &-@#-(*1 =-@S(Number tried...&]@$(Number co=}rrect6@@L(First try......V *!]( &@(@@/(Second try.....9 *!@( >}& ( $'JAR-%6 Pressto continue.DAd&J6-',B7t@&F:Ad,"&,?} % 'F:Ad,"%*'  '.F:Ad,"%6-(Ad&. % ' Ad&$'V %$@}EA( }Which group of states do youV(want a drill on?U(K( 1) Western((2) Midwestern:( 3) SouthernA}K( 4) EasternZ( -& 6-A:,d(6  )!-&,(Choose 1-4 please.6 B0(=67<,.=:%,#67<B},.=:%,167<,.=:,76-=6-(#B%$"(7 -%7( There are  states in that region.(=,(#C}How many states do you want to try?0 4=6-A:,(9  )!/(Enter a number from 1-.9 B(*$D}E -%'&* (, (} A%&O:&,",( %(((" -&68,- E}"-(( 6-6-P:H:,$,(8,"B)"6.7%$$<$$+%,," $ ) %%%%%)##BF}%$-"# )% %%%%%%)9 -#(What state is this? ' +94BP)+B:G},!*B:,!+7<,47<,BP") 6-%!BP,);( !( is not correct.1( Try again.; B 6)? -H} /(The correct answer is: .3 ;-$? h)0 68,- "A$((}0%|) 6-   I}) - "6-%) "6-%)$ 4( ~Correct.$ Bp)%%(Close, the answer is .) J}-$  By:$E }(Ad&4A$:"y; %-%3 Do you want to try agaK}in? 7 ;,y7<,4Y(} 6y87<,0N2(Please enter 'YES' or 'NO'.8 %@y0+0%0%'L}AR*(0-Jy*B2bB2w*%D:HELLO{y  |y^^133,25,128,35,126,58,143,38,135,50,157,31,161,43M},148,53,164,55,144,68,161,68,86,33,88,64y``103,32,103,41,104,50,107,58,118,36,120,48,123,58,129,40,141,41,132,53,139,53,14N}8,50,142,60yQQ97,40,102,28,116,30,117,40,131,26,125,36,133,36,143,35,153,24,149,29,150,47y``131,27,127,37,123,34,129,41O},117,41,113,51,122,52,103,59,111,62,113,56,128,44,124,45,119,58}1,1,13,413 }2,12,13,214}1,25,11,238}2,36,1P}3,129%CCCCCCCCCC1C2C25CLEAREOCLEAREODISKISCORERETURENDINZLINZNCABFNTNAMEMAPSTRINGMAPNAMESS YCCCCCCCCCC1C2C25CLEAREOCLEAREODISKISCORERETURENDINZLINC76ZNCACAPIFNTNAMEMAPSTRINGMAPR}NAMEQSSSTATENAMEANSNINTNMIEC8C1051C55C2PLYPMXPOVDSLSFFSLODZIOCZLEZCMZADLZSTLNZBGZLZHZETZERZZTRIS}EZTRYZTRYOPNHVY6NC10 T} U}@ !"#$%&'()*V}+,-./0123456789W}:;<=>?@ABCDEFGH X}Program:CAPITALS (C) 1982 - MECC 0#0" "NN1,2,3,4,5,6,7,8,9,10,20,25Y}6,5100,5150,5500,9950,9990,31000,10000,764,100( ;,2$Ed;B2I$%$%!+)05ARZ};(}n;;;$,;$,;$,;%,;A,;,;,;,p%%;Ad,;$,;%,9%,86. D:FONT#.F[}NT%6. D:MP#.TXT86. D:STCAP#.TXTE"E54286,82,10515,559,28,14976,53249,512,15240, D:FF\}S.BIN,6-F:%,%F:%,$* 6-6-$%6-!6-&% *5 %F:,%')%F:%,%'5A$W ]}B2w#BBy$/A#AA@1MB2WW$% *-B:,67<,0 $6-^}*6- 6.7<,*-B:,67<,0 $6-*6- 6.7<,$)6-$$ 6-$$ )_}(67,. "6-C:,(6-&  67$$,. &; 6-C:,6-+%,$6-$6-( -`}5$;&3BBr$6-&% %+3%+ &$$%$ $%~{6-?:C:kh]^a}](eTeUeX˅^eY̅_8SUˈ2UTeRː(e˅ː8SRˈ0`,,~$ $% %b}|96-A@6-$$6-% %/&%9&%+ 6- %%!%%+&%?6-?:C:hhhLV,<,c}&6-F:%&,<6-F:%,%F:%%,$?$6-P:',6-P:&$,$&0 (}AR-%-%,(*0 & -d}(* -&S -(* &-@#-(*1 =-@S(Number tried...&Y@$(e}Number correct2@%H(First try......R *!Y( &8(%%'(Second try.....1 *!8( f}& ( $'DAR-%6 Pressto continue.>&D6-'&B7t@ F:,"&& % 'F:,g}"%*'  '"F:,"%6-&" % ' &$'X (}%-+(Do you want to:1-X("1) h}Name the capital when given the'`( name of the stateD(" 2) Name the state when given the`( name of the capiti}al$'( 3) Do some of each'> -%( Which one?  1$E5>6-A:,'/  )!%(Choose 1-3 plej}ase./ B <(C*("}Which part of the United StatesC(do you want to try?U(K( 1) Western((2) Midwestern:(k} 3) SouthernK( 4) EasternZ( -% 6-A:,d(6  )!-&,(Choose 1-4 please.6 B0x(% 6-6l}-#B%$%"}(167<,.=:%,#67<,.=:%,167<,.=:,(] -%6( There are  states in that regim}on.](!How many would you like to try? (J  6-A:, )!@(Enter a number from 1-.J B(-n}%' (=$E(}$ A,%7O:&,"=(: %((%-&.68,-2o} :-(( 6-6-P:H:,$,(8,"B( !6-P:H:,$%,)56.7%$<%%$,/6.7%%$<$+%,,5 p}$ ) %%%%%)##B%$-"# ) %%%%%) -& %q}%)% 6.%(The capital of ) (is?   B0)2 6.( is the capital*(of? . 2r}")4BP$)+B:,!*B:,!+7<,47<,BP') 6-%!BE,);( !( is not correct.1( Trs}y again.5 ; &1) 6)4 - 0(The correct answer is: .4 h)" -& 68,-" r)'At}$(}%#6-' )   ) - "6-%) "6-%)$ 4( ~Correct.$ Bp)%%(u}Close, the answer is .)  By4$E }"&.A$4"y; %-%3 Dv}o you want to try again? 7 ;,y7<,4Y(} 6y87<,0N2(Please enter 'YES' or 'NO'.8 %@y0+w}0%0%'AR*(0-Jy*B2bB2w*%D:HELLO{y  |y^^145,69,127,59,165,55,162,69x},129,36,149,54,144,39,158,32,136,51,134,26,162,44,88,64,86,33y``104,31,104,40,105,49,108,57,119,35,121,47,124,57,133,52,14y}0,52,142,40,149,49,143,59,130,39yQQ154,23,150,28,144,34,151,46,134,35,126,35,132,25,118,39,117,29,98,39,103,27y``131,27z},127,37,123,34,129,41,124,45,128,44,117,41,113,51,123,55,119,58,113,56,111,62,103,59}1,13,413 }12,13,214}25,11,{}238}36,13,129%CCCC1C2C25CLEAREOCLEAREODISKISCORERETURENDINZLINC76ZNCACAPIFNTNAMEMAPSTRINGMAPyCCCCCCCCCC1C2C25CLEAREOCLEAREODISKIJOYSTICDOLLASCORESCORERETURENDINZLINZDOLZNCZZZTRI }}EZTRYZTRYANSCCZNZNC2CLC1C1COUNTRYCONTINZBGC10 ~}  } @!"#$% }&'()*+,-./01234 }56789 Program:CONTIN Copyright 1982 - MECC ) #@ )" } "%%1,2,3,4,5,6,7,8,9,10,20,256,100%%5100,5150,9950,9990,31000,10000( ;,2$E }d--;%,9@,;,;,;%,;,n+0AR(xO (}-'(C O N T I N E N T S/-&O( }Do you need instructions? } -%& 7<,4N 17<,0Y'(Yes or No please.1 A%T.( }&}This program tests your knowledge ofT(!the location of countries of the^(world.5( You will be given the name }of a^($country. Then you will be asked toA-(%tell the continent where the country=( is located.A =*("}Here } are the continents you may=(choose from:`(1) South America1(2) North AmericaA( 3) EuropeQ( 4) Afri }ca`( 5) Asiah*("Note: Central America is part ofR(#North America. The Middle East isd( part of Asia.h  } B B:, $--B:,7<,4 #6-%- A 97<,1A*7<,/Z967<,.>:@:7<,,%@2 },   $,  Correct, !$6( That's right.$@( Good answer.$ $%~{6-?:C:kh]^](e }TeUeX˅^eY̅_8SUˈ2UTeRː(e˅ː8SRˈ0`,,~$ $% %&6+ }0AR!-+-%2(*6 & -(* -&K -(* "-%)(*- 5- }%K(Number tried...&Y@$(Number correct2@%H(First try......R *!Y( &<( }@%+(Second try.....5 *!<( & ( $'JAR-%6 Pressto continue.DAd }&J6-',B7t@&F:Ad,"&, % 'F:Ad,"%*'  '.F:Ad,"%6-(Ad&. } % ' Ad&$' (}6-6-(-@8,- (6 -((What is your first name? , }6 A/S -$+ , how many problems would3-$S(you like to try (1 - 88)? /9-@)$ &$ }E*36-A:,96-0J )!@-%@(Type a number between 1 and 88.J B" 06+(#}The continents y }ou may choose from6(are:H0Z(1) South America/(2) North America>( 3) EuropeM( 4) AfricaZ(5) Asiap0  }-0(6-P:@$H:,%,(8,B$00 68,-6-0#B%"0G -% #(Country .G(O }n which of these continents is0. -%( located? ! %.6-A:,0*B%@03 -%(Enter 1, 2, 3, } 4, or 5.) 3 B%0 6-%11 "-$' A%$P:H:,$,1 B&`1 -%"B&$11#(Wrong con }tinent. Try again.' 1 B%B1N" That is wrong also, .0#B%$4"N(The answer is .V1 B&pt }1 "6-%y1 "6-%~1   1) -$&B:,'%('s Score) y($E }(Ad& }"y3 -%+ Do you want to try again? / 3,y7<,4Y(} 6y87<,0N2(Please enter 'YES' or 'NO' }.8 %@y0+0%0%'AR*(0-Jy%D:HELLO{y  }yAlbania,3~yArgentina,1yAus }tria,3yBelgium,3yBolivia,1yBrazil,1yBulgaria,3y Burma,5yCambodia,5y Chad,4y Chile,1y }Columbia,1yCosta Rica,1y Cuba,2yCzechoslovakia,3yDenmark,3yDominican Republic,2yEcuador,1y  }Egypt,4yEthiopia,4yFinland,3y Ghana,4yGreece,3yGuatemala,2yGuyana,1yCanada,2yHungary,3 }yMexico,2y India,5yIndonesia,5y Iran,5y Iraq,5yIreland,3yIsrael,5y Italy,3y Japan,5 }yJordan,5y Kenya,4yKuwait,5y Laos,5yLebanon,5yLiberia,4y Libya,4yLuxembourg,3yMalaysi }a,5yMauritania,4yMonaco,3yMorocco,4yMozambique,4yNetherlands,3yNicaragua,2y Niger,4yNi }geria,4yNorway,3yPakistan,5yPanama,2yParaguay,1y Peru,1yPhilippines,5yPoland,3yPortuga }l,3yRumania,3yRwanda,4ySaudi Arabia,5ySenegal,4y Spain,3y Sudan,4ySurinam,1ySweden,3y }Switzerland,3y Syria,5yTanzania,4yThailand,5yTunisia,4yTurkey,5yUganda,4yUpper Volta,4 }yUruguay,1yVenezuela,1yYugoslavia,3y Zaire,4yZambia,4yAfghanistan,5yFrance,3yBurundi,4 }yBangladesh,5yUnited States,2ySoviet Union,5}South America }North America} Europe} Africa(}  }Asia%CCCCCCCCCC1C2C25CLEAREOCLEAREODISKIJOYSTICDOLLASCORESCORERETURENDINZLINZDOLZNCZZZTRI   28CCCCCCCCCC1C2C25CLEAREOCLEAREODISKIJOYSTICDOLLASCORESCORERETURENDINZLINZDOLZNCAUSECH}OICESEARCHCOUNTRYCAPITALCAPPACZZZTRIEZTRYZTRYLOWMIUPLIRANDOCOUNTOFSTUFEXTRLLFCAPITOLCOUNTRYC1C2TA}BRETUZQANS2LOMIZBGC10 } } !"#$%&'()*}+,-./0123@456@789:};<=> Program:COUNTRY Copyright 1982 - MECC ) #@ )" }"%%1,2,3,4,5,6,7,8,9,10,20,256,100%%5100,5150,9950,9990,31000,10000( ;,2$Ed::};,;AR,;,;%,;,;,;,;,;,n+AR(0x -(C O U N T R I E S}3 -%+}(Do you want instructions? / 37<,4NB97<,0Y/(Please enter Yes or No.9 A%V/(}'}This program will test your knowledgeV("of the capitals of countries. If++(#your first answer is incorrect you}W-(%will be given a hint which will tellW(%you the first letter of the capital.>*("(Remember, the capital may consi}st>(of two words.)F-(%You can ask for a hint at any timeB(by typing: HINT.F  B $%~{6}-?:C:kh]^](eTeUeX˅^eY̅_8SUˈ2UTeRː(e˅ː8SRˈ0`,,~$ }$% %&*AR--%&(** & -(* -&K -(* "-%)(*}- 5-%K(Number tried...&Y@$(Number correct2@%H(First try......R *!Y( }&<(@%+(Second try.....5 *!<( & ( $'JAR-%6 Pressto continue.D}Ad&J6-',B7t@&F:Ad,"&, % 'F:Ad,"%*'  '9F:Ad,"@c*-}@#/(9 A '.F:Ad,"%6-(Ad&. % ' Ad&$'K 6-6-9(%}Which gr}oup of countries do you wantK( a drill on?$'d(1) All Countries1(2) North America,M( Central America andd}( the Caribbean.'H(3) South America*( 4) Europe8( 5) AsiaH( 6) AfricaB' -%$E }L'6-A:,V'B  )!-8(Enter a number between 1 and 6.B BP`' #B -" t'B 6-&%}-$ B( There are  countries to choose~'''(from. How many would you like?'6 -$% 6-A:,$}6-6!*B'7-(Please choose a number from 1-.7 B *$E* 6.67,.67},.+#@-6-#(}+-6-P:H:,$+&%,%,-@:7,,!B5 +S67<,.>:,S6-++!@,%+!@)},%+!@a,%+!A,,$$%B%+WW6-+!@,$@%+!@),$@%+!@a,$@2%+!A,$@D}*+/6-%P:+&&,',$/6-&&P:+&&,',$4+#-" 6->+ }The capital of @+. -(is}?  .4HINTBA+ 6-%6.6.B+6-B:,6-@:7<,,(!@66-&@2C+67<,.>:,} D+7B:,,0*ByE+:6.7{33Niger,Niamey,Nigeria,Lagos,Rhodesia,SalisburyC{77Rw}anda,Kigali,Senegal,Dakar,Sierra Leone,FreetownH{<<Somalia,Mogadishu,South Africa,Capetown,Sudan,KhartoumM{88Swaziland,Mb}abana,Tanzania,Dar Es Salaam,Togo,LomeR{::Tunisia,Tunis,Uganda,Kampala,Upper Volta,OuagadougouW{""Zaire,Kinshasa,Zambia,L}usaka}111,152,1,17,18,29,30,61,62,105,106,152,1,152 }::Outstanding,Super,Nice job,Fantastic,Great,Sharp kid%USECHws`fCCCCCCCCCC1C2C25CLEAREOCLEAREODISKIRETURTEXTNUMBERYNDISKNAMEXNENDINNUMPROGMAXLECXMAXI}PROZIOCZZLZHZADZLEZCMZERLXXCINFLAXZETZBGVTASELECINPUNUMOPTVERC10} } !"#}$%&'()*+,-./012}34 Program: HELLO Copyright 1982 - MECC ) #@ )" "%%1,2},3,4,5,6,7,8,9,10,20,256,1005100,5150,5500,9990d&&;@7,;,;,;%,;,n-Bx% #B"}6-%6-%+!,+ - A""B:,!+6-B:,% @%@@9 B#Bp%}$$$ -"4)4 A0.7B:,,4*$ 7:,6-%67},.>:,) A "AE:6-@:7<,,'!@G* @Y06-A:,: AP 6-7AR"%}A4B7tA7$ $%~{6-?:C:kh]^](eTeUeX˅^eY̅_8SUˈ2UTe}Rː(e˅ː8SRˈ0`,,~$ $% %|5 6-$$6- %'A6%5A7%9 6-} %A@%+AA%9A4%-6-?:C:hhhLV,<,*6-F:%A5,-$6-P:',6-P:&$,$}'JAR-%6 Pressto continue.DAd&J6-',B7t@&F:Ad,"&, % 'F:}Ad,"%*'  '.F:Ad,"%6-(Ad&. % ' Ad&$'RA$+0%})0%5AR8(D@eRAd&'& #B""-&&B:,'& $'@-&'.',-@} A"% ,  3' .  B'     D'/" %. Program Descriptions( /  F'. %}. End@.6-F:@,%L'3 - Which number? # - A36-V'!* %B['G-@#}=( Please enter a number from 1 to %.G B``' %Be'"%BPt'( -(!*F:@, }&Bv' ! x'; }#B"+@&B:,'/ ;@y'" Program Descriptions"-~'E( }A" "(@/  9 AE@'   'V/('} A manual to aid in the use of thisV(" }diskette is available from MECC.'3( Title:#B "/-&&B:,'3 '](Direct inquiries to:A( M}ECC Distribution Center]( 2520 Broadway Drive'h ( St. Paul, MN 551137( (612) 638-0627; h((} If yo}u have any problems using MECC'[-(% courseware with your microcomputer,B( write or call:[( MECC Help Line'a}( 2520 Broadway Drive<( St. Paul, MN 55113S( (612) 638-0638W a B (2 (}-%.(Insert the} new diskette.2 (%D:LOGO* +&0%0* 6- A"*-&B:,'@+& "6.}D:&67@,.*+%0u3 - #B"/-&&P:B:,',3(2uA "-%3 No teacher options available}.7 A BR5u% - Your options are:" % :u@->>>>>>>>>>>>>>>>>>>>>>>+L'(< <V'( <  <`'!!(<  !>:@4, <j' (<  }%$  Minnesota<t'""(<  &  Educational<~' (<  [|  Computing<'!!(<  ]\  Consortium<'(} <  _^ <'( <  `{ <'( < <' (<<', 6. AB:,!"6., A'5 B:,!6.} A%B:,!+6.5 A' (<<(%6.Version 67,.% A (""(;>>>>>>>>>>>>>>>>>>>>>>>>@(66. }COPYRIGHT #67@,.667%,. - MECC(& B:,!67%,. #&67$,.((*-P:&+B:,%,',% $-*6-}<('AY@4'AdAUA(86-%@8 A*F:Ad,"AUBB(A$F(Ad}&%D1:HELLO%CCCCCC1ZNLINE1LINE2VOLUMEVERSIONCOPYNUMTEXTYEARZETZIOCZBGZADZLZHZLEZCMZZERTCNORTH DAKOTA SOUTH DAKOTA NEBRASKA KANSAS MINNESOTA IOWA MISSOURI WISCONSIN MICHIGAN } ILLINOIS INDIANA OHIO KENTUCKY INNESOTA IOWA MISSOURI WISCONSIN MICHIGAN 9TEXAS OKLAHOMA ARKANSAS LOUISIANA TENNESSEE MISSISSIPPI ALABAMA GEORGIA NORTH CAROLIN!}ASOUTH CAROLINAFLORIDA RKANSAS LOUISIANA TENNESSEE MISSISSIPPI ALABAMA GEORGIA NORTH CAROLIN MAINE NEW HAMPSHIRE VERMONT MASSACHUSETTS NEW YORK PENNSYLVANIA NEW JERSEY WEST VIRGINIA VIRGINIA % } MARYLAND RHODE ISLAND CONNECTICUT DELAWARE EW YORK PENNSYLVANIA NEW JERSEY WEST VIRGINIA VIRGINIA $9            !"#$% &''()***+,-./0123)"}4 5 6 78  ~~~}||{ z y x w vu tsrqpo nm lk jih g**fedc  !"#$% &''()***+,-./0123(Y  e ~   d }    c | ! " # $% &' {zyx ()*+, - . wv-$} / 012345678 utsr 9:;<=> ?@A q p BC DEF onml jk izh gf , - . wv,q   &'( 345678 CDEFG QRSTUVW abcdefg   )*+,-./ 9:;<=>HIJK1&}LMN   &'( 345678 CDEFG QRSTUVW abcdefg   )*+,-./ 9:;<=>HIJK0MAINE AUGUSTA NEW HAMPSHIRE CONCORD VERMONT MONTPELIER MASSACHUSETTS BOSTON CONNECTICUT 5(} HARTFORD RHODE ISLAND PROVIDENCE NEW YORK ALBANY PENNSYLVANIA HARRISBURG NEW JERSEY TRENTON 5)} DELAWARE DOVER MARYLAND ANNAPOLIS VIRGINIA RICHMOND WEST VIRGINIA CHARLESTON NNECTICUT 4rNORTH CAROLINARALEIGH SOUTH CAROLINACOLUMBIA GEORGIA ATLANTA FLORIDA TALLAHASSEE ALABAMA 9+} MONTGOMERY MISSISSIPPI JACKSON TENNESSEE NASHVILLE LOUISIANA BATON ROUGE ARKANSAS LITTLE ROCK 9,} TEXAS AUSTIN OKLAHOMA OKLAHOMA CITY ORGIA ATLANTA FLORIDA TALLAHASSEE ALABAMA 8:NORTH DAKOTA BISMARCK SOUTH DAKOTA PIERRE NEBRASKA LINCOLN KANSAS TOPEKA MINNESOTA =.} ST. PAUL IOWA DES MOINES MISSOURI JEFFERSON CITYILLINOIS SPRINGFIELD INDIANA INDIANAPOLIS=/} MICHIGAN LANSING OHIO COLUMBUS KENTUCKY FRANKFORT WISCONSIN MADISON NNESOTA <rARIZONA PHOENIX CALIFORNIA SACRAMENTO COLORADO DENVER NEW MEXICO SANTA FE OREGON A1} SALEM UTAH SALT LAKE CITYIDAHO BOISE MONTANA HELENA NEVADA CARSON CITY A2} WASHINGTON OLYMPIA WYOMING CHEYENNE HAWAII HONOLULU ALASKA JUNEAU EGON @r EFGH  I J    KL M   NO M     S M  E4}  TUVW?> !"#$% &' ( =<; :9 ) * + , -. 87 / 0 0 123 4  ~} | { (E5} z y x w ( @ABCD v uts rq po QR nm lk ji h P g fe d  c bE6}a ` w _^ ]\[ZY    KL M   NO M     S M  D&WASHINGTON OREGON CALIFORNIA IDAHO NEVADA MONTANA WYOMING UTAH COLORADO I8} ARIZONA NEW MEXICO ALASKA HAWAII EVADA MONTANA WYOMING UTAH COLORADO H9h//ԩ{(:)/Q:`,Q:P:ЩMQ:Q:P ` WYOMING UTAH COLORADO LMH࢔ ԍ ԎЌi3ih@H ԎЌ83h@f COLORADO Pj              !"#$% &' ( ) * + , -. U<}/ 0 0 123 4  ~} | { ( z y x w ( v uts rq po nm lk ji h g fe d  c ba ` w U=} _^ ]\[ZY             !"#$% &' ( ) * + , -. T 01 .OPT NOEJECT0100 ;0110 ; QUICKDRAW0120 ; Bret E Indrelee0130 ; 7-7-820140 ;0150 ;FormY?}at:0160 ; JUNK=USR(QUICKDRAW,MAP,LMARGIN+RMARGIN*40)0165 ; LEGL=USR(LEGALDIR,MAP,X+Y*8*BYTEROW,ZX+ZY*128+256)0170 ;0180Y@} ;Zero Page0190 MAPPNTR = $CB0200 SCRN = $CD ;Used only by DRAW0205 TEMP = $CD ;Used only by LEGLDIR0210 CHAR = $CF0220 YA}BITNUM = $D00230 ROWNUM = $D10240 ;0250 ;Constants0260 BYTEROW = 40270 NUMROW = 210280 EMPTY = $20 ;Character with no sYB}treets0290 INTERSECT = EMPTY + $F ;4-way intersection0300 OVERPASS = EMPTY + $C ;North/South Overpass Char0310 UNDERPASS =YC} EMPTY + $3 ;North/South Underpass Char0320 ;0330 ;O.S. Labels0340 SAVMSG = $58 ;ADRS of first byte of Screen RAM0350 FR0YD} = $D4 ;return value for BASIC USR function0360 ;0370 *= $4000 ;Non-Relocatable1000 INIT PLA ;# of operands1005 TAX ;SYE}ave -- tells which routine to run1010 PLA ;Location of Map1020 STA MAPPNTR+1 ;MAPPNTR := MAP - BYTEROW1030 PLA1040 SYF}EC1050 SBC #BYTEROW1060 STA MAPPNTR1070 BCS INIT.11080 DEC MAPPNTR+11090 ;1091 INIT.1 CPX #31092 BEQ INIT.3 ;ThisYG} is the Legal Direction routine1093 ;Else Init for Draw1094 ;1100 INIT.2 PLA ;Offset from start of screen1110 CLC ;SCRNYH} := SAVMSG+(LMARGIN+TMARGIN*40)1120 ADC SAVMSG+11130 STA SCRN+11140 PLA1150 CLC1160 ADC SAVMSG1170 STA SCRN1180 YI} BCC DRAW1190 INC SCRN+11191 JMP DRAW ;Done with init1192 ;1200 INIT.3 PLA ;Relative Bit position1210 STA TEMP+11220YJ} PLA1230 STA TEMP1240 AND #7 ;Get relative bit number (0-7)1250 STA BITNUM1255 LDA TEMP1260 LDY #3 ;Divide RelativYK}e BIt Number by 81270 INIT.31 LSR TEMP+11280 ROR A1290 DEY1300 BNE INIT.31 ;If haven't divided by 8 yet1310 CLC ;AddYL} TEMP,TEMP+1 to MAPPNTR,MAPPNTR+11320 ADC MAPPNTR1330 STA MAPPNTR1340 LDA TEMP+11350 ADC MAPPNTR+11360 STA MAPPNTR+YM}11370 ;Done with init1380 ;ZX + ZY * 128 + 256 is still on stack1390 ;1400 LEGLDIR JSR GETCHAR ;Get character that would YN}map there1430 ;B0-B3 of CHAR determine directions it is possible to go in1450 ;1460 ;Determine direction1470 ;Stack holdsYO} ZX+ZY*128+257,which determine value as follows:1475 ;(All values figured in Hexidecimal)1480 ;1490 ; N S E W NUYP}L1500 ;N 81 X 82 80 X1510 ;S X 181 182 180 X1520 ;E 82 182 102 X X1530 ;W 80 180 X 80 X1540 ;NYQ}UL X X X X 1011550 ;1560 PLA1570 LSR1580 PLA1590 BPL LEGLDIR.1 ;If East/West Direction wanted1600 EOR #811YR}610 BNE LEGLDIR.9 ;If Going Kitty Corner (NE,SW,etc.)1620 LDA #8;Assume North1630 BCC LEGLDIR.8 ;If North then check if YS}legal1640 LDA #4;Must be south1650 BCS LEGLDIR.8 ;Always Branch - check if legal1660 LEGLDIR.1 CMP #21670 BNE LEGLDIR.YT}11 ;If not East1680 LDA #21690 BNE LEGLDIR.8 ;Always Branch -check if legal1700 LEGLDIR.11 EOR #1 ;Invert last bit1710 YU} BEQ LEGLDIR.9 ;If didn't move1720 ;Else moved West1730 ;1740 LEGLDIR.8 AND #CHAR1750 BEQ LEGLDIR.9 ;If Tryed to move ilYV}legally1760 LDA #11780 BNE LEGLDIR.91 ;Branch Always - all done1785 ;Return a 1 to BASIC1790 LEGLDIR.9 LDA #01800 LEGLYW}DIR.91 STA FR01810 LDA #01820 STA FR0+11830 RTS1840 ;2000 ;DRAW2010 ;2011 ;Draw the map directly to the screen memoYX}ry2012 ;2013 ; Flowchart of DRAW2014 ;2015 ;BEGIN2016 ; BITNUM := BYTEROW * 82017 ; ROWNUM := NUMROW2018 ; REPEAT20YY}19 ; REPEAT2020 ; UNTIL BITNUM < 02021 ; GETCHAR2022 ; PUTCHAR2023 ; BITNUM := BITNUM - 12024 ; UNTIL YZ}BITNUM < 02025 ; BITNUM := BYTEROW * 82026 ; ROWNUM := ROWNUM - 12027 ; UNTIL ROWNUM < 02028 ;END2029 ;2031 DRAW LDY[}A #NUMROW2032 STA ROWNUM ;Start with last row,2033 LDA #BYTEROW*82034 STA BITNUM ;Last bit of map2035 ;2040 DRAW.1 JSY\}R GETCHAR ;Figure out what char to print2050 LDY BITNUM2060 LDA CHAR2070 STA (SCRN),Y ;and 'print' it on the screen208Y]}0 DEC BITNUM2090 BPL DRAW.1 ;If haven't finished a row yet2100 LDA #BYTEROW*82110 STA BITNUM2120 DEC ROWNUM2130 BPY^}L DRAW.1 ;If haven't done last row yet2140 RTS ;All done drawing the map4000 ;GETCHAR4010 ;4020 ;Figures out what characY_}ter should be printed.4022 ;4023 ;CHAR is dependent on surrounding bits being clear or set4024 ;North is considered towardY`}s the beginning of the bit map4025 ;4026 ;B7 B6 B5 B4 B3 B2 B1 B0 To find CHAR, set bit4027 ;------------- -----Ya}------ corresponding to each4028 ; 0 0 1 0 N S E W direction.4029 ;4030 ;Ex: XOX CHAR= 0010 01014Yb}031 ; XXO Bits to North and East are clear4032 ; OXX Bits to South and West are set4033 ; Other surroundYc}ing bits are ignored.4035 ;4040 GETCHAR LDA #EMPTY ;Starting char, nothing in there4050 STA CHAR4060 JSR CENTER ;Check Yd}for tar at current location4070 JSR GETBIT4080 BEQ GETCHAR.59 ;If no tar then done4090 ;Else have to figure out in whichYe} directions there is tar4100 ;4110 ;Check to North first4120 GETCHAR.1 LDA ROWNUM ;Check what row we are looking at4130 Yf}BEQ GETCHAR.2 ;If North is off the map4140 BEQ GETCHAR.2 ;If North is off the map4150 JSR CENTER4160 TYA ;else point tYg}o (MAPPNTR)-BYTEROW4170 SEC4180 SBC #BYTEROW4190 TYA4200 JSR GETBIT ;Get the Bit to the North4210 JSR ADDCHAR.N ;CHYs}B$DOS SYSB)(STATES B+QCAPITALS B+|CONTIN B<COUNTRY B&HELLO B LOGO BSTATE2 TXTBSTATE3 TXTBSTATE4 TXTB!MP3 TXTB#MP4 TXTB%MP5 TXTB'STCAP4 TXTB*STCAP3 TXTB-STCAP2 TXTB0STCAP1 TXTB3MP2 TXTB7STATE1 TXTB9FLASHER BINB:FFS BINB;MP2 BAKBG>DRAWCHCKASMB LOGO FNTB FONT2 FNTB FONT3 FNTB FONT4 FNTB FONT5 FNTAR := CHAR + BIT*84220 ;4230 ;Check to South4240 GETCHAR.2 LDA ROWNUM4250 CMP #NUMROW4260 BPL GETCHAR.3 ;If South is oYt}ff the map4270 JSR CENTER4280 TYA4290 CLC ;else point to (MAPPNTR)+BYTEROW4300 ADC #BYTEROW4310 TAY4320 JSR GETBIYu}T ;Get the Bit to the South4330 JSR ADDCHAR.S ;CHAR := CHAR + BIT*44340 ;4350 ;Check to East4360 GETCHAR.3 LDA BITNUM43Yv}70 CMP #BYTEROW*84380 BPL GETCHAR.4 ;If East is off the map4390 JSR CENTER4400 INX ;Move one bit to the Right4410 CPYw}X #84420 BMI GETCHAR.31 ;In same byte4430 INY ;Else move one byte to Right4440 LDX #04450 GETCHAR.31 JSR GETBIT ;Get tYx}he Bit to the East4460 JSR ADDCHAR.E ;CHAR := CHAR + BIT*24470 ;4480 ;Check to West4490 GETCHAR.4 LDA BITNUM4500 BEQ GYy}ETCHAR.5 ;If West is off the map4510 JSR CENTER4520 DEX ;Move one bit to Left4530 BPL GETCHAR.41 ;In same byte4540 DEYz}Y ;Else move one byte to Left4550 LDX #74560 GETCHAR.41 JSR GETBIT ;Get the Bit to the East4570 JSR ADDCHAR.W ;CHAR := CY{}HAR + BIT4580 ;4590 ;Now check for Over/Underpass4600 GETCHAR.5 LDA CHAR4610 CMP #INTERSECT4620 BNE GETCHAR.59; Not 4-Y|}way intersection4630 ;Else there is a possibility of an Over/Underpass4640 JSR NEXTMAP ;Check Intersections Map4650 JSR Y}}CENTER4660 JSR GETBIT4670 BEQ GETCHAR.52 ;Not Over/Underpass4680 ;Else determine which it is (Over/Underpass)4690 JSR Y~}NEXTMAP ;Check Overpass map4700 JSR CENTER4710 JSR GETBIT4720 LSR A ;Put in Carry Flag4730 LDA UNDERPASS ;Assume N/S Y}Underpass4740 BCC GETCHAR.51 ;Carry = 1 Means N/S Overpass4750 LDA OVERPASS4760 GETCHAR.51 STA CHAR ;Replace CHAR4770 Y}JSR BACKMAP ;Move back to Intersections Map4780 GETCHAR.52 JSR BACKMAP ;Move back to Map4790 GETCHAR.59 RTS ;Done finding cY}har5000 ;CENTER5010 ;5020 ;Adjust X,Y Registers for GETBIT routine so it fetchs bit determined5030 ;by BITNUM5040 ;5050Y} ; X => relative bit number (0-7) in byte5060 ; Y => relative byte number (0-BYTEROW)5070 ;5080 CENTER LDA BITNUM ;LoaY}d relative bit number from start5090 AND #7 ;Mask off all but first three bits5100 TAX5110 LDA BITNUM ;Load relative biY}t number from start5120 LSR A ;Divide by 85130 LSR A5140 LSR A5150 CLC5160 ADC #BYTEROW ;Adjust to point another roY}w higher5161 ;because (MAPPNTR) points to row -1 of bit map5170 TAY5180 RTS ;Done Centering on BITNUM5190 ;6025 ;GETBIY}T6026 ;6027 ;Get wanted bit6028 GETBIT LDX BITNUM;Get Bit # back6030 LDA (MAPPNTR),Y;Get Byte containing wanted bit6031Y} GETBIT.1 ASL A6032 DEX;Bit # still in X Reg6033 BPL GETBIT.1;If Bit looking for is further over6034 ;6035 ;Now send itY} back6036 LDA #06037 ROL A6038 RTS6039 ;7016 ;ADDCHAR7017 ;7018 ;Shift bit according to direction and set that bit Y}on CHAR7019 ADDCHAR.N ASL A;Want in B37020 ADDCHAR.S ASL A;Want in B27021 ADDCHAR.E ASL A;Want in B17022 ADDCHAR.W ORA CHY}AR;Want in B07023 STA CHAR7024 RTS7025 ;8000 ;NEXTMAP8010 ;8020 ;Move (MAPPNTR) to pointer to the next bitmap8025 ;MY}APPNTR := MAPPNTR + BYTEROW * NUMROW8030 ;8040 NEXTMAP LDA #BYTEROW*NUMROW & $FF8050 CLC8060 ADC MAPPNTR8070 STA MAPPY}NTR8080 LDA #BYTEROW/2568090 ADC MAPPNTR+18100 STA MAPPNTR+18110 RTS8120 ;9000 ;BACKMAP9010 ;9020 ;Move (MAPPNTR)Y} to pointer to the previous bitmap9025 ;MAPPNTR := MAPPNTR - BYTEROW * NUMROW9030 ;9040 BACKMAP LDA #BYTEROW*NUMROW & $FFY}9050 SEC9060 SBC MAPPNTR9070 STA MAPPNTR9080 LDA #BYTEROW/2569090 SBC MAPPNTR+19100 STA MAPPNTR+19110 RTS9120 ;Y}9999 .ENDJECT0100 ;0110 ; QUICKDRAW0120 ; Bret E Indrelee0130 ; 7-7-820140 ;0150 ;FormX ﻻffffp88pf< 8<]}f 8``nf>ff~fff~~f<flxxlf`````~cwkccfv~~nf]}<]} 0`?  0`0`@@``````````0 ``````x`x`~<~~<]}0~0 ~ <>f>``|ff|<```<>ff>>ff>|``|fff8<<``lxlf8<f]}kc|ffffff>|f```>`<|~ffff>fff<ck>6f< x~ 0~]}8x8ffffp88pf<xO@@0 @@@@@@@@@`00 @@|@@@@@@``a}08`@` 0N` 8 ` `0`nj8`{΀ a}`8rR!!`1 ~9`0`0 ` 0 8d<~ 0`a}xx 8(lƃ@@@@` 0``nf>ff~fff~~f<flxxlf`````~cwkccfv~~nfe}``nf>ff~fff~~f<flxxlf`````~cwkccfv~~nfi}`<|0 < 0 p3 63 00`m} 8ff````<````00m}6>v m}8```0ww<~~~< ````00m}   <~~<000``?0c~``caa01``|fff8<<``lxlf8<fm}kc|ffff6f< x~ 0~<~~<m}8x8ffff>`<|0 < 0 p3 63 00`l