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@LLL&0") $G% }H0 3S8`G ȱG ȱG   Gȭ Gȭ GG}GHiH8(()) G$H% `(0 })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`} S gL   8 rii `дCDCG W  }C  Lq` X٪`OS SYSIIIIIIIIIIIIIIIC`0 ߩ0}} } |||DDOS DOSDOS TMP }}}$%%n}CDOS TMP} 0`BDELV !B }`LV  q   R@э   Y S S0Lw;j JA E) }ͩ+Ω͙+*/0`*` ;*`H   jkD)͝Ν$!}ЩL|h`GR.0:POKE559,0:POKE712,194:POKE710,194:POKE16,64:POKE5"}3774,64:POKE842,12:POKE752,1:?:RUN"D:LOGO"h`GR.0:POKE559,0:POKE712,194:POKE710,194:POKE16,64:POKE5#}3 )0 L4*POKE752,1:?:RUN"D:LOGO"h`GR.0:POKE559,0:POKE712,194:POKE710,194:POKE16,64:POKE5H CCCCCCCCCCC1ZNLINE1LINE2VOLUMEVERSIONCOPYNUMTEXTYEARZETZIOCZBGZADZLZHZLEZCMZZERTC%}2LINE3LINE4C25CLEAREOCLEAREODISKIJOYSTICDOLLASCORESCORERETURENDINZLINZDOLC1DISI&} '} !"(}#$%&'()*+,-. Program: LOGO Cop)}yright 1982 - MECC ' #@ '" "!!1,2,3,4,5,6,7,8,9,10,20,256 5500(;%,;,*}<AR d33;,;,;,;,;%,;%,;%,;,i 6-A F:,"Bn6. Geographyx 6+}. 6. 6. 6.1.26.1982 6. B,) (<$@&P:+B:,%,',)(6 (<,} $|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:&$,$' D:LOGO.FNT'5.}6-BS`6-$6-#6-' 5AV$8'@   B'%%(}=>>>>>>>>>>>>>>>>>>>>>>>>+L'(< /} <V'( <  <`'!!(<  !>:@4, <j' (<  %$  Minnesota<t'""(<  &  Educational<0}~' (<  [|  Computing<'!!(<  ]\  Consortium<'( <  _^ <'( <  `{ <'( < <' 1} (<<', 6. AB:,!"6., A'5 B:,!6. A%B:,!+6.5 A' (<<(%6.2}Version 67,.% A (""(;>>>>>>>>>>>>>>>>>>>>>>>>@(66. COPYRIGHT #67@,.667%,. - MECC(& B:,3}!67%,. #&67$,.((*-P:&+B:,%,',% $-*6-<('AY@4'AdAUA(86-%@4}8 A*F:Ad,"AUBB(A$F(Ad&%D1:HELLO%ZBGZADZLZHZLEZCMZZERTC^ﻻffffp88pf< 8<7}f 8``nf>ff~fff~~f<flxxlf`````~cwkccfv~~nf8}<:} 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<:,6-%67,.>:,) L} A "AE:6-@:7<,,'!@G* @Y06-A:,: AP 6-7AR"%A M}4B7tA7$A `MJ6-?:C::h 8SUH GhdTͿT `,,M$A ` N} %|5 6-$$6- %'A6%5A7%9 6- %A@%+AA%9A4%- O}6-?:C:hhhLV,<,*6-F:%A5,-$6-P:',6-P:&$,$'DAR-%6 Pressto continue. P}DAd&'F:Ad,"&A 'F:Ad,"%'  '! Ad&-!$'RA$+0 Q}%)0%5AR8(D@eRAd&'& #B""-&&B:,'& $'@-&'.', R}-@ A"% ,  3' .  B'     D'/" %. Program Descriptions( /   S}F'. %. End@.6-F:@,%L'3 - Which number? # - A36-V'!* %B['G- T}@#=( Please enter a number from 1 to %.G B``' %Be'"%BPt'( -(!*F:@ U}, &Bv' ! x'; }#B"+@&B:,'/ ;@y'" Program Descriptions"- V}~'G( A" "*@1  ; AG@'  (} B (2 (}-%.(Insert W} the new diskette.2 (*AA(*6-?:B,* +&0%0* 6- A"*-&B: X},'@+( "6.D:(67@,. +r @!ACA$3AD@(EA(A$WA Y})@([r D:INPUT.OBJ+p!@!AC@@3AD@)EA(@@WA)@) Z}p D:INPUTFP.OBJ + 6- A*+  %0u3 - #B"/-&&P:B:,',3(2uA "- [}%3 No teacher options available.7 A BR5u% - Your options are:" % :u@- ̤ & &e˥e̢̅%Ɂ˪ k. ~ krTlUm Ld}ɛb~Eo)  |Ԭa{8 0:      LkL|) LnLk e}Li{ȱye8L"F G H` *+L4Lt  M7=CCCCCCCCCC1C2C25CLEAREOCLEAREODISKISCORERETURENDINZLINC76ZNCACAPIFNTNAMEMAPSTRINGMAPg}NAMEQSSSTATENAMEANSNINTNMIEC8C1051C55C2PLYPMXPOVDSLSFFSLODZIOCZLEZCMZADLZSTLNZBGZLZHZETZERZZTRIh}EZTRYZTRYOPNHVY6N@@@@@@@@@ @ @ Ai}V AQ AQPAUAPABBAd- 8j} llM YA g !BB"@#B$AY%@(&BIv'B2I(A)BR@*B8Vk}+@,Ad-@.B2/@0A1A2@3BR24A(5@Y6@27@89:l};<@=@>@?@@@A@B@C@IDAEFG Program:CAPm}ITALS (C) 1982 - MECC 0#0"JJ1,2,3,4,5,6,7,8,9,10,20,256,5100,5150,5500,99n}50,9990,31000,10000,764( ;,2 A $Ed;B2I$%$%!+)05AR;(}o}n;;;$,;$,;$,;%,;A,;,;,;,p%%;Ad,;$,;%,9%,86. D:FONT#.FNT%6. D:p}MP#.TXT86. D:STCAP#.TXTE"E54286,82,10515,559,28,14976,53249,512,15240, D:FFS.BIN,6-Fq}:%,%F:%,$* 6-6-$%6-!6-&% *5 %F:,%')%F:%,%'5A$W B2r}w#BBy$/A#AA@1MB2WW$% *-B:,67<,0 $6-*6-s} 6.7<,*-B:,67<,0 $6-*6- 6.7<,$)6-$$ 6-$$ )(67t},. "6-C:,(6-&  67$$,. &; 6-C:,6-+%,$6-$6-( -5$;u}&3BBr$6-&% %+3%+ &$$%$A `MJ6-?:C::h 8SUHv} GhdTͿT `,,M$A ` %|96-A@6-$$6-% %/&%9&%w}+ 6- %%!%%+&%?6-?:C:hhhLV,<,&6-F:%&,<6-F:%,%F:%%,$?$6-P:',6x}-P:&$,$&0 (}AR-%-%,(*0 & -(* -&S -(* &-@#y}-(*1 =-@S(Number tried...&Y@$(Number correct2@%H(First try......R z}*!Y( &8(%%'(Second try.....1 *!8( & ( $'>AR-%6 Press to con{}tinue.>&'F:,"& % 'F:,"%'  ' &-$'X (}%-+(Do you want to|}:1-X("1) Name the capital when given the'`( name of the stateD(" 2) Name the state when given the`( na}}me of the capital$'( 3) Do some of each'> -%( Which one?  1$E5>6-A:,'/  )!%(~}Choose 1-3 please./ B <(C*("}Which part of the United StatesC(do you want to try?U(K( 1) Western((2)} Midwestern:( 3) SouthernK( 4) EasternZ( -% 6-A:,d(6  )!-&,(Choose 1-4 please.6 B}0x(% 6-6-#B%$%"}(167<,.=:%,#67<,.=:%,167<,.=:,(] -%6( There are  stat}es in that region.](!How many would you like to try? (J  6-A:, )!@(Enter a number from 1-.J }B(-%' (=$E(}$ A,%7O:&,"=(: %((%-}&.68,-2 :-(( 6-6-P:H:,$,(8,"B( !6-P:H:,$%,)56.7%$<%%$,/6.7%%}$<$+%,,5 $ ) %%%%%)##B%$-"# ) %%%%%) -&} %%)% 6.%(The capital of ) (is?   B0)2 6.( is the capital*(}of? . 2")4BP$)+B:,!*B:,!+7<,47<,BP') 6-%!BE,);( !( is not }correct.1( Try again.5 ; &1) 6)4 - 0(The correct answer is: .4 h)" -& 68,-}" r)'A$(}%#6-' )   ) - "6-%) "6-%)$ 4( ~Correct.}$ Bp)%%(Close, the answer is .)  By@A $E& }.&:A$@}"y; %-%3 Do you want to try again? 7 ;,y7<,4Y(} 6y87<,0N2(Please enter 'Y}ES' or 'NO'.8 %@y0+0%0%'AR*(0-Jy<AA($B2b0B2w<%D:HELL}O{y  |y^^145,69,127,59,165,55,162,69,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,140,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,27,127,37,123,34,129,41,124,45,128,44,117,41,113,51,123,55,119,58,113,56,111,62,10}3,59}1,13,413 }12,13,214}25,11,238}36,13,129%RETURENDINZLINC76ZNCACAPIFNTNAMEMAPSTRINGMAPF>xO@@0 @@@@@@@@@`00 @@|@@@@@@``}08`@` 0N` 8 ` `0`nj8`{΀ }`8rR!!`1 ~9`0`0 ` 0 8d<~ 0`}xx 8(lƃ@@@@` 0``nf>ff~fff~~f<flxxlf`````~cwkccfv~~nf}``nf>ff~fff~~f<flxxlf`````~cwkccfv~~nf }`<|0 < 0 p3 63 00`$} 8ff````<````00$}6>v $}8```0ww<~~~< ````00$}   <~~<000``?0c~``caa01``|fff8<<``lxlf8<f$}kc|ffff6f< x~ 0~<~~<$}8x8ffff>`<|0 < 0 p3 63 00`$h//ԩ{(:)/Q:`,Q:P:ЩMQ:Q:P `(MNORTH 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 CAROLIN0}ASOUTH CAROLINAFLORIDA RKANSAS LOUISIANA TENNESSEE MISSISSIPPI ALABAMA GEORGIA NORTH CAROLIN0MAINE NEW HAMPSHIRE VERMONT MASSACHUSETTS NEW YORK PENNSYLVANIA NEW JERSEY WEST VIRGINIA VIRGINIA 4} MARYLAND RHODE ISLAND CONNECTICUT DELAWARE EW YORK PENNSYLVANIA NEW JERSEY WEST VIRGINIA VIRGINIA 4901 .OPT NOEJECT0100 ;0110 ; QUICKDRAW0120 ; Bret E Indrelee0130 ; 7-7-820140 ;0150 ;Form8}at:0160 ; JUNK=USR(QUICKDRAW,MAP,LMARGIN+RMARGIN*40)0165 ; LEGL=USR(LEGALDIR,MAP,X+Y*8*BYTEROW,ZX+ZY*128+256)0170 ;01808} ;Zero Page0190 MAPPNTR = $CB0200 SCRN = $CD ;Used only by DRAW0205 TEMP = $CD ;Used only by LEGLDIR0210 CHAR = $CF0220 8}BITNUM = $D00230 ROWNUM = $D10240 ;0250 ;Constants0260 BYTEROW = 40270 NUMROW = 210280 EMPTY = $20 ;Character with no s8}treets0290 INTERSECT = EMPTY + $F ;4-way intersection0300 OVERPASS = EMPTY + $C ;North/South Overpass Char0310 UNDERPASS =8} EMPTY + $3 ;North/South Underpass Char0320 ;0330 ;O.S. Labels0340 SAVMSG = $58 ;ADRS of first byte of Screen RAM0350 FR08} = $D4 ;return value for BASIC USR function0360 ;0370 *= $4000 ;Non-Relocatable1000 INIT PLA ;# of operands1005 TAX ;S8}ave -- tells which routine to run1010 PLA ;Location of Map1020 STA MAPPNTR+1 ;MAPPNTR := MAP - BYTEROW1030 PLA1040 S8}EC1050 SBC #BYTEROW1060 STA MAPPNTR1070 BCS INIT.11080 DEC MAPPNTR+11090 ;1091 INIT.1 CPX #31092 BEQ INIT.3 ;This8} is the Legal Direction routine1093 ;Else Init for Draw1094 ;1100 INIT.2 PLA ;Offset from start of screen1110 CLC ;SCRN8} := SAVMSG+(LMARGIN+TMARGIN*40)1120 ADC SAVMSG+11130 STA SCRN+11140 PLA1150 CLC1160 ADC SAVMSG1170 STA SCRN1180 8} BCC DRAW1190 INC SCRN+11191 JMP DRAW ;Done with init1192 ;1200 INIT.3 PLA ;Relative Bit position1210 STA TEMP+112208} PLA1230 STA TEMP1240 AND #7 ;Get relative bit number (0-7)1250 STA BITNUM1255 LDA TEMP1260 LDY #3 ;Divide Relativ8}e BIt Number by 81270 INIT.31 LSR TEMP+11280 ROR A1290 DEY1300 BNE INIT.31 ;If haven't divided by 8 yet1310 CLC ;Add8} TEMP,TEMP+1 to MAPPNTR,MAPPNTR+11320 ADC MAPPNTR1330 STA MAPPNTR1340 LDA TEMP+11350 ADC MAPPNTR+11360 STA MAPPNTR+8}11370 ;Done with init1380 ;ZX + ZY * 128 + 256 is still on stack1390 ;1400 LEGLDIR JSR GETCHAR ;Get character that would 8}map there1430 ;B0-B3 of CHAR determine directions it is possible to go in1450 ;1460 ;Determine direction1470 ;Stack holds8} ZX+ZY*128+257,which determine value as follows:1475 ;(All values figured in Hexidecimal)1480 ;1490 ; N S E W NU8}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 ;N8}UL X X X X 1011550 ;1560 PLA1570 LSR1580 PLA1590 BPL LEGLDIR.1 ;If East/West Direction wanted1600 EOR #8118}610 BNE LEGLDIR.9 ;If Going Kitty Corner (NE,SW,etc.)1620 LDA #8;Assume North1630 BCC LEGLDIR.8 ;If North then check if 8}legal1640 LDA #4;Must be south1650 BCS LEGLDIR.8 ;Always Branch - check if legal1660 LEGLDIR.1 CMP #21670 BNE LEGLDIR.8}11 ;If not East1680 LDA #21690 BNE LEGLDIR.8 ;Always Branch -check if legal1700 LEGLDIR.11 EOR #1 ;Invert last bit1710 8} BEQ LEGLDIR.9 ;If didn't move1720 ;Else moved West1730 ;1740 LEGLDIR.8 AND #CHAR1750 BEQ LEGLDIR.9 ;If Tryed to move il8}legally1760 LDA #11780 BNE LEGLDIR.91 ;Branch Always - all done1785 ;Return a 1 to BASIC1790 LEGLDIR.9 LDA #01800 LEGL8}DIR.91 STA FR01810 LDA #01820 STA FR0+11830 RTS1840 ;2000 ;DRAW2010 ;2011 ;Draw the map directly to the screen memo8}ry2012 ;2013 ; Flowchart of DRAW2014 ;2015 ;BEGIN2016 ; BITNUM := BYTEROW * 82017 ; ROWNUM := NUMROW2018 ; REPEAT208}19 ; REPEAT2020 ; UNTIL BITNUM < 02021 ; GETCHAR2022 ; PUTCHAR2023 ; BITNUM := BITNUM - 12024 ; UNTIL 8}BITNUM < 02025 ; BITNUM := BYTEROW * 82026 ; ROWNUM := ROWNUM - 12027 ; UNTIL ROWNUM < 02028 ;END2029 ;2031 DRAW LD8}A #NUMROW2032 STA ROWNUM ;Start with last row,2033 LDA #BYTEROW*82034 STA BITNUM ;Last bit of map2035 ;2040 DRAW.1 JS8}R GETCHAR ;Figure out what char to print2050 LDY BITNUM2060 LDA CHAR2070 STA (SCRN),Y ;and 'print' it on the screen2088}0 DEC BITNUM2090 BPL DRAW.1 ;If haven't finished a row yet2100 LDA #BYTEROW*82110 STA BITNUM2120 DEC ROWNUM2130 BP8}L DRAW.1 ;If haven't done last row yet2140 RTS ;All done drawing the map4000 ;GETCHAR4010 ;4020 ;Figures out what charac8}ter should be printed.4022 ;4023 ;CHAR is dependent on surrounding bits being clear or set4024 ;North is considered toward8}s the beginning of the bit map4025 ;4026 ;B7 B6 B5 B4 B3 B2 B1 B0 To find CHAR, set bit4027 ;------------- -----8}------ corresponding to each4028 ; 0 0 1 0 N S E W direction.4029 ;4030 ;Ex: XOX CHAR= 0010 010148}031 ; XXO Bits to North and East are clear4032 ; OXX Bits to South and West are set4033 ; Other surround8}ing bits are ignored.4035 ;4040 GETCHAR LDA #EMPTY ;Starting char, nothing in there4050 STA CHAR4060 JSR CENTER ;Check 8}for tar at current location4070 JSR GETBIT4080 BEQ GETCHAR.59 ;If no tar then done4090 ;Else have to figure out in which8} directions there is tar4100 ;4110 ;Check to North first4120 GETCHAR.1 LDA ROWNUM ;Check what row we are looking at4130 8}BEQ GETCHAR.2 ;If North is off the map4140 BEQ GETCHAR.2 ;If North is off the map4150 JSR CENTER4160 TYA ;else point t8}o (MAPPNTR)-BYTEROW4170 SEC4180 SBC #BYTEROW4190 TYA4200 JSR GETBIT ;Get the Bit to the North4210 JSR ADDCHAR.N ;CH8}AR := CHAR + BIT*84220 ;4230 ;Check to South4240 GETCHAR.2 LDA ROWNUM4250 CMP #NUMROW4260 BPL GETCHAR.3 ;If South is o8}ff the map4270 JSR CENTER4280 TYA4290 CLC ;else point to (MAPPNTR)+BYTEROW4300 ADC #BYTEROW4310 TAY4320 JSR GETBI8}T ;Get the Bit to the South4330 JSR ADDCHAR.S ;CHAR := CHAR + BIT*44340 ;4350 ;Check to East4360 GETCHAR.3 LDA BITNUM438}70 CMP #BYTEROW*84380 BPL GETCHAR.4 ;If East is off the map4390 JSR CENTER4400 INX ;Move one bit to the Right4410 CP8}X #84420 BMI GETCHAR.31 ;In same byte4430 INY ;Else move one byte to Right4440 LDX #04450 GETCHAR.31 JSR GETBIT ;Get t8}he Bit to the East4460 JSR ADDCHAR.E ;CHAR := CHAR + BIT*24470 ;4480 ;Check to West4490 GETCHAR.4 LDA BITNUM4500 BEQ G8}ETCHAR.5 ;If West is off the map4510 JSR CENTER4520 DEX ;Move one bit to Left4530 BPL GETCHAR.41 ;In same byte4540 DE8}Y ;Else move one byte to Left4550 LDX #74560 GETCHAR.41 JSR GETBIT ;Get the Bit to the East4570 JSR ADDCHAR.W ;CHAR := C8}HAR + BIT4580 ;4590 ;Now check for Over/Underpass4600 GETCHAR.5 LDA CHAR4610 CMP #INTERSECT4620 BNE GETCHAR.59; Not 4-8}way intersection4630 ;Else there is a possibility of an Over/Underpass4640 JSR NEXTMAP ;Check Intersections Map4650 JSR 8}CENTER4660 JSR GETBIT4670 BEQ GETCHAR.52 ;Not Over/Underpass4680 ;Else determine which it is (Over/Underpass)4690 JSR 8}NEXTMAP ;Check Overpass map4700 JSR CENTER4710 JSR GETBIT4720 LSR A ;Put in Carry Flag4730 LDA UNDERPASS ;Assume N/S 8}Underpass4740 BCC GETCHAR.51 ;Carry = 1 Means N/S Overpass4750 LDA OVERPASS4760 GETCHAR.51 STA CHAR ;Replace CHAR4770 8}JSR BACKMAP ;Move back to Intersections Map4780 GETCHAR.52 JSR BACKMAP ;Move back to Map4790 GETCHAR.59 RTS ;Done finding c8}har5000 ;CENTER5010 ;5020 ;Adjust X,Y Registers for GETBIT routine so it fetchs bit determined5030 ;by BITNUM5040 ;50508} ; X => relative bit number (0-7) in byte5060 ; Y => relative byte number (0-BYTEROW)5070 ;5080 CENTER LDA BITNUM ;Loa8}d relative bit number from start5090 AND #7 ;Mask off all but first three bits5100 TAX5110 LDA BITNUM ;Load relative bi8}t number from start5120 LSR A ;Divide by 85130 LSR A5140 LSR A5150 CLC5160 ADC #BYTEROW ;Adjust to point another ro8}w higher5161 ;because (MAPPNTR) points to row -1 of bit map5170 TAY5180 RTS ;Done Centering on BITNUM5190 ;6025 ;GETBI8}T6026 ;6027 ;Get wanted bit6028 GETBIT LDX BITNUM;Get Bit # back6030 LDA (MAPPNTR),Y;Get Byte containing wanted bit60318} GETBIT.1 ASL A6032 DEX;Bit # still in X Reg6033 BPL GETBIT.1;If Bit looking for is further over6034 ;6035 ;Now send it8} back6036 LDA #06037 ROL A6038 RTS6039 ;7016 ;ADDCHAR7017 ;7018 ;Shift bit according to direction and set that bit 8}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 CH8}AR;Want in B07023 STA CHAR7024 RTS7025 ;8000 ;NEXTMAP8010 ;8020 ;Move (MAPPNTR) to pointer to the next bitmap8025 ;M8}APPNTR := MAPPNTR + BYTEROW * NUMROW8030 ;8040 NEXTMAP LDA #BYTEROW*NUMROW & $FF8050 CLC8060 ADC MAPPNTR8070 STA MAPP8}NTR8080 LDA #BYTEROW/2568090 ADC MAPPNTR+18100 STA MAPPNTR+18110 RTS8120 ;9000 ;BACKMAP9010 ;9020 ;Move (MAPPNTR)8} to pointer to the previous bitmap9025 ;MAPPNTR := MAPPNTR - BYTEROW * NUMROW9030 ;9040 BACKMAP LDA #BYTEROW*NUMROW & $FF9}9050 SEC9060 SBC MAPPNTR9070 STA MAPPNTR9080 LDA #BYTEROW/2569090 SBC MAPPNTR+19100 STA MAPPNTR+19110 RTS9120 ;9}9999 .ENDJECT0100 ;0110 ; QUICKDRAW0120 ; Bret E Indrelee0130 ; 7-7-820140 ;0150 ;Form8              !"#$% &' ( ) * + , -. =}/ 0 0 123 4  ~} | { ( z y x w ( v uts rq po nm lk ji h g fe d  c ba ` w =} _^ ]\[ZY             !"#$% &' ( ) * + , -. <            !"#$% &''()***+,-./0123A}4 5 6 78  ~~~}||{ z y x w vu tsrqpo nm lk jih g**fedc  !"#$% &''()***+,-./0123@Y  e ~   d }    c | ! " # $% &' {zyx ()*+, - . wvE} / 012345678 utsr 9:;<=> ?@A q p BC DEF onml jk izh gf , - . wvDq   &'( 345678 CDEFG QRSTUVW abcdefg   )*+,-./ 9:;<=>HIJKI }LMN   &'( 345678 CDEFG QRSTUVW abcdefg   )*+,-./ 9:;<=>HIJKHMAINE AUGUSTA NEW HAMPSHIRE CONCORD VERMONT MONTPELIER MASSACHUSETTS BOSTON CONNECTICUT M } HARTFORD RHODE ISLAND PROVIDENCE NEW YORK ALBANY PENNSYLVANIA HARRISBURG NEW JERSEY TRENTON M } DELAWARE DOVER MARYLAND ANNAPOLIS VIRGINIA RICHMOND WEST VIRGINIA CHARLESTON NNECTICUT LrNORTH CAROLINARALEIGH SOUTH CAROLINACOLUMBIA GEORGIA ATLANTA FLORIDA TALLAHASSEE ALABAMA Q} MONTGOMERY MISSISSIPPI JACKSON TENNESSEE NASHVILLE LOUISIANA BATON ROUGE ARKANSAS LITTLE ROCK Q} TEXAS AUSTIN OKLAHOMA OKLAHOMA CITY ORGIA ATLANTA FLORIDA TALLAHASSEE ALABAMA P:NORTH DAKOTA BISMARCK SOUTH DAKOTA PIERRE NEBRASKA LINCOLN KANSAS TOPEKA MINNESOTA U} ST. PAUL IOWA DES MOINES MISSOURI JEFFERSON CITYILLINOIS SPRINGFIELD INDIANA INDIANAPOLISU} MICHIGAN LANSING OHIO COLUMBUS KENTUCKY FRANKFORT WISCONSIN MADISON NNESOTA TrARIZONA PHOENIX CALIFORNIA SACRAMENTO COLORADO DENVER NEW MEXICO SANTA FE OREGON Y} SALEM UTAH SALT LAKE CITYIDAHO BOISE MONTANA HELENA NEVADA CARSON CITY Y} WASHINGTON OLYMPIA WYOMING CHEYENNE HAWAII HONOLULU ALASKA JUNEAU EGON XrH࢔ ԍ ԎЌi3ih@H ԎЌ83h@f OREGON \j+#CCCCCCCCCC1C2C25CLEAREOCLEAREODISKISCORERETURENDINZLINZNCABFNTNAMEMAPSTRINGMAPNAMESSa}STATENAMENINTNINMIEC8C55PLYPMXPOVDSLSDZIOCZLEZCMZADSADFFSLOLZSTLNZBGZLZHZETZERZZTRIEZTRYZTRYNa}SHVC76QSTATE@@@@@@@@@ @ @ AV AQa} AQPAUAPABB *  Aa}BB @!AY"BIv#B2I$A%B8V&@'A(@)BR2*BR2+BR@a},-A./0A1A23@24@56789@:;a}<=>?@ABCD Program:STATES (C) 1982 - MECC # "a} "!!1,2,3,4,5,6,7,8,9,10,20,256**5100,5150,5500,9950,9990,31000,10000( ;a },2 A $Ed?B2I!A@X%+-09AR?(}nAA;$,;$,;%,;a!}A,;,;A,;$,;,s9%,;,;%,86. D:FONT#.FNT%6. D:MP#.TXT86. D:STCAP#.TXT86.a"} D:STATE#.TXT(6. D:FONT#.FNT86. D:MP#.TXT0"054286,82,559,14976,53249,512, D:FFS.BIN,6-Fa#}:%,%F:%,$< 6-6-$%6-%6-BR2+6-/ 4<6-%5 %F:,%')%F:%,%'5A$a$}Y B2w#BBy$/A#AA@1MB2WY@B *-B:,67<,0a%} $6-*6- 6.7<,$,%67,. 67,. "67,.%$%67,. 67,. "67,.%$7a&}6-BS`"6-$(6-.6-2 7(67,. "6-C:,(6-2 6-6- '67$$,. 2a'}; 6-C:,6-+%,$6-$6-( -5$;&1BBr$6-# %)1%+0AVa(}A$!A-@B0$A `MJ6-?:C::h 8SUH GhdTͿT `,,a)}M$A ` %|5 6-$$6- %'A6%5A7%9 6- %A@%+AA%9Aa*}4%M6-?:C:hhhLV,<,*6-F:%A5,J6-F:A@%,%F:AA%,$M$6-P:',6-P:&$,$&4 (}a+}AR-)-@#0(*4 & -(* -&S -(* &-@#-(*1 =-a,}@S(Number tried...&]@$(Number correct6@@L(First try......V *!]( a-}&@(@@/(Second try.....9 *!@( & ( $'DAR-%6 Pressto continuea.}.DAd&'F:Ad,"& % 'F:Ad,"%'  '! Ad&-!$'V %$a/}EA( }Which group of states do youV(want a drill on?U(K( 1) Western((2) Midwestern:( 3) SouthernK(a0} 4) EasternZ( -& 6-A:,d(6  )!-&,(Choose 1-4 please.6 B0(=67<,.=:%,#67<,.=a1}:%,167<,.=:,76-=6-(#B%$"(7 -%7( There are  states in that region.(=,(#How a2}many states do you want to try?0 4=6-A:,(9  )!/(Enter a number from 1-.9 B(*$a3}E -%'&* (, (} A%&O:&,",( %(((" -&68,- "-a4}(( 6-6-P:H:,$,(8,"B)"6.7%$$<$$+%,," $ ) %%%%%)##B%$a5}-"# )% %%%%%%)9 -#(What state is this? ' +94BP)+B:,!*a6}B:,!+7<,47<,BP") 6-%!BP,);( !( is not correct.1( Try again.; B 6)? - a7} /(The correct answer is: .3 ;-$? h)0 68,- "A$((}0%|) 6-   )a8} - "6-%) "6-%)$ 4( ~Correct.$ Bp)%%(Close, the answer is .) -a9}$  ByFA $E& }4Ad&@A$F"y; %-%3 Do you want toa:} try again? 7 ;,y7<,4Y(} 6y87<,0N2(Please enter 'YES' or 'NO'.8 %@y0+0%0a;}%'AR*(0-Jy<AA($B2b0B2w<%D:HELLO{y  |y^^133,25,128,35,126,58,1a<}43,38,135,50,157,31,161,43,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,a=}40,141,41,132,53,139,53,148,50,142,60yQQ97,40,102,28,116,30,117,40,131,26,125,36,133,36,143,35,153,24,149,29,150,47y``1a>}31,27,127,37,123,34,129,41,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}a?}1,25,11,238}2,36,13,129%C25CLEAREOCLEAREODISKISCORERETURENDINZLINZNCABFNTNAMEMAPSTRINGMAPNAMESS`&tCCCCCCCCCC1C2C25CLEAREOCLEAREODISKIJOYSTICDOLLASCORESCORERETURENDINZLINZDOLZNCZZZTRIeA}EZTRYZTRYANSCCZNZNC2CLC1C1COUNTRYCONTINeB} eC} @!"#$%&eD}'()*+,-./012345eE}67 Program:CONTIN Copyright 1982 - MECC ' #@ '" "!!eF}1,2,3,4,5,6,7,8,9,10,20,256%%5100,5150,9950,9990,31000,10000( ;,2 A $Ed--;%,9@eG},;,;,;%,;,n+0AR(xO (}-'(C O N T I N E N T S/-&O(Do you need instreH}uctions? } -%& 7<,4N 17<,0Y'(Yes or No please.1 A%T.(&}This program teseI}ts your knowledge ofT(!the location of countries of the^(world.5( You will be given the name of a^($country.eJ} Then you will be asked toA-(%tell the continent where the country=( is located.A =*("}Here are the continenteK}s you may=(choose from:`(1) South America1(2) North AmericaA( 3) EuropeQ( 4) Africa`( 5) AsiaeL}h*("Note: Central America is part ofR(#North America. The Middle East isd( part of Asia.h  B B:eM}, $--B:,7<,4 #6-%- A 97<,1A*7<,/Z967<,.>:@:7<,,%@2,   $, eN} Correct, !$6( That's right.$@( Good answer.$A `MJ6-?:C::h 8SUH GhdeO}TͿT `,,M$A ` %&6+0AR!-+-%2(*6 & -(eP}* -&K -(* "-%)(*- 5-%K(Number tried...&Y@$(Number correcteQ}2@%H(First try......R *!Y( &<(@%+(Second try.....5 *!<( & ( $eR}'DAR-%6 Pressto continue.DAd&'F:Ad,"&A 'F:Ad,"%'  '!eS} Ad&-!$' (}6-6-(-@8,- (6 -((What is your first name? ,eT}6 A/S -$+ , how many problems would3-$S(you like to try (1 - 88)? /9-@)$ &$eU}E*36-A:,96-0J )!@-%@(Type a number between 1 and 88.J B" 06+(#}The continents youeV} may choose from6(are:H0Z(1) South America/(2) North America>( 3) EuropeM( 4) AfricaZ(5) Asiap0 -eW}0(6-P:@$H:,%,(8,B$00 68,-6-0#B%"0G -% #(Country .G(On eX}which of these continents is0. -%( located? ! %.6-A:,0*B%@03 -%(Enter 1, 2, 3, 4eY}, or 5.) 3 B%0 6-%11 "-$' A%$P:H:,$,1 B&`1 -%"B&$11#(Wrong contieZ}nent. Try again.' 1 B%B1N" That is wrong also, .0#B%$4"N(The answer is .V1 B&pt1e[} "6-%y1 "6-%~1   1) -$&B:,'%('s Score) y4A $E& }4Ae\}d&"y3 -%+ Do you want to try again? / 3,y7<,4Y(} 6y87<,0N2(Please enter 'YEe]}S' or 'NO'.8 %@y0+0%0%'AR*(0-Jy$AA($%D:HELLO{y  }yAlbaniae^},3~yArgentina,1yAustria,3yBelgium,3yBolivia,1yBrazil,1yBulgaria,3y Burma,5yCambodia,5e_}y Chad,4y Chile,1yColumbia,1yCosta Rica,1y Cuba,2yCzechoslovakia,3yDenmark,3yDominican Repe`}ublic,2yEcuador,1y Egypt,4yEthiopia,4yFinland,3y Ghana,4yGreece,3yGuatemala,2yGuyana,1ea}yCanada,2yHungary,3yMexico,2y India,5yIndonesia,5y Iran,5y Iraq,5yIreland,3yIsrael,5eb}y Italy,3y Japan,5yJordan,5y Kenya,4yKuwait,5y Laos,5yLebanon,5yLiberia,4y Libya,4yec}Luxembourg,3yMalaysia,5yMauritania,4yMonaco,3yMorocco,4yMozambique,4yNetherlands,3yNicaed}ragua,2y Niger,4yNigeria,4yNorway,3yPakistan,5yPanama,2yParaguay,1y Peru,1yPhilippines,ee}5yPoland,3yPortugal,3yRumania,3yRwanda,4ySaudi Arabia,5ySenegal,4y Spain,3y Sudan,4yef}Surinam,1ySweden,3ySwitzerland,3y Syria,5yTanzania,4yThailand,5yTunisia,4yTurkey,5yUeg}ganda,4yUpper Volta,4yUruguay,1yVenezuela,1yYugoslavia,3y Zaire,4yZambia,4yAfghanistan,5yes}B DOS SYSb$LOGO b 5LOGO FNTb%>HELLO bcINPUT OBJb*fCAPITALS b FONT2 FNTb FONT3 FNTb FONT4 FNTb FONT5 FNTbFLASHER BINbSTATE2 TXTbSTATE3 TXTbSTATE4 TXTbGDRAWCHCKASMbMP2 BAKbMP3 TXTbMP4 TXTb MP5 TXTb STCAP4 TXTbSTCAP3 TXTbSTCAP2 TXTbSTCAP1 TXTbFFS BINb(STATES b*@CONTIN b<uCOUNTRY bMP2 TXTbSTATE1 TXTbDISKNAMEDATFrance,3yBurundi,4yBangladesh,5yUnited States,2ySoviet Union,5}South America }North Americaet}} Europe} Africa(} Asia%25CLEAREOCLEAREODISKIJOYSTICDOLLASCORESCORERETURENDINZLINZDOLZNCZZZTRId'CCCCCCCCCC1C2C25CLEAREOCLEAREODISKIJOYSTICDOLLASCORESCORERETURENDINZLINZDOLZNCAUSECHiv}OICESEARCHCOUNTRYCAPITALCAPPACZZZTRIEZTRYZTRYLOWMIUPLIRANDOCOUNTOFSTUFEXTRLLFCAPITOLCOUNTRYC1C2TAiw}BRETUZQANS2LOMI@@@@@@@@@ @ @ AV AQix} AQPAPABBiy}   !AP"@$#@$@&%@&@'@(@)AR*@+Biz},-@.@/@0@ 1@x23@456@789AR:;i{}< Program:COUNTRY Copyright 1982 - MECC ' #@ '" "!!1,2,3,i|}4,5,6,7,8,9,10,20,256%%5100,5150,9950,9990,31000,10000( ;,2 A $Ed::;,;AR,;i}},;%,;,;,;,;,;,n+AR(0x -(C O U N T R I E S}3 -%+(Do you want insi~}tructions? / 37<,4NB97<,0Y/(Please enter Yes or No.9 A%V/('}This program wii}ll test your knowledgeV("of the capitals of countries. If++(#your first answer is incorrect youW-(%will be givei}n a hint which will tellW(%you the first letter of the capital.>*("(Remember, the capital may consist>(of two wori}ds.)F-(%You can ask for a hint at any timeB(by typing: HINT.F  BA `MJ6-?:C::h 8i}SUH GhdTͿT `,,M$A ` %&*AR--%&(** & -i}(* -&K -(* "-%)(*- 5-%K(Number tried...&Y@$(Numberi} correct2@%H(First try......R *!Y( &<(@%+(Second try.....5 *!<( & i}( $'DAR-%6 Pressto continue.DAd&'F:Ad,"&A 'F:Ad,"%'i}  '9F:Ad,"@c*-@#/(9 A '! Ad&-!$'K 6-6-9(%}Which groui}p of countries do you wantK( a drill on?$'d(1) All Countries1(2) North America,M( Central America andd(i} the Caribbean.'H(3) South America*( 4) Europe8( 5) AsiaH( 6) AfricaB' -%$E Li}'6-A:,V'B  )!-8(Enter a number between 1 and 6.B BP`' #B -" t'B 6-&%i}-$ B( There are  countries to choose~'''(from. How many would you like?'6 -$% 6-A:,$6i}-6!*B'7-(Please choose a number from 1-.7 B *$E* 6.67,.67,.i}+#@-6-#(}+-6-P:H:,$+&%,%,-@:7,,!B5 +S67<,.>:,S6-++!@,%+!@)i},%+!@a,%+!A,,$$%B%+WW6-+!@,$@%+!@),$@%+!@a,$@2%+!A,$@Di}*+/6-%P:+&&,',$/6-&&P:+&&,',$4+#-" 6->+ }The capital of @+. -(is? i} .4HINTBA+ 6-%6.6.B+6-B:,6-@:7<,,(!@66-&@2C+67<,.>:,i} D+7B:,,0*ByE+:6.7{33Niger,Niamey,Nigeria,Lagoi}s,Rhodesia,SalisburyC{77Rwanda,Kigali,Senegal,Dakar,Sierra Leone,FreetownH{<<Somalia,Mogadishu,South Africa,Capetown,Sudai}n,KhartoumM{88Swaziland,Mbabana,Tanzania,Dar Es Salaam,Togo,LomeR{::Tunisia,Tunis,Uganda,Kampala,Upper Volta,Ouagadougoui}W{""Zaire,Kinshasa,Zambia,Lusaka}111,152,1,17,18,29,30,61,62,105,106,152,1,152 }::Outstanding,Super,Nice job,Fantastic,i}Great,Sharp kid%CCCCCC1C2C25CLEAREOCLEAREODISKIJOYSTICDOLLASCORESCORERETURENDINZLINZDOLZNCAUSECHh EFGH  I J    KL M   NO M     S M  m}  TUVW?> !"#$% &' ( =<; :9 ) * + , -. 87 / 0 0 123 4  ~} | { (m} z y x w ( @ABCD v uts rq po QR nm lk ji h P g fe d  c bm}a ` w _^ ]\[ZY    KL M   NO M     S M  l&WASHINGTON OREGON CALIFORNIA IDAHO NEVADA MONTANA WYOMING UTAH COLORADO q} ARIZONA NEW MEXICO ALASKA HAWAII EVADA MONTANA WYOMING UTAH COLORADO p9APX-20164GEOGRAPHYMECC01/12/8302/830C01/12/830F:,A D:OKOK@@@A t$