' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 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*` ѪЂ <"" ЪՊ ЪՊ xЂЊ x ժժժժЀ $$$ ժЂ " $ ЪՊ ЪՊ pЂ  Ѐ   ըЂЂ   ЂЊ ЪՂ Ђ F>F>||>FFF>~~~~~|vF<FF~FF| FF>ff~?[[[[FNVfFf>f>ff|

~ffff<fff<VVVV,ff[[[[,""*:<`@>>>>>>>>>>>>>>>>>>>>>>>>8888|8aqqa!#>#!""&*2""""""">2RLJIHHHHIIGIIIsDDGDDD xp px  >@``ppppp<<  > "2*&" >>>>>>>>"I]]I"aqqa!#>#!>]]]c>c""A>""<  |xx| 6??6$$>A]EE]A>?""? P"""A~?I**II*I* 08<80 @@  """""""" 08<80 @@  **>"6*""">$ >>>>*>><> ?:{> 0<`|f|>fff>||``|fff| >ffff<080006f66f<$~~ff>ffffff>|ff|``v|

~ l8ffff|fff<ff~~$f<~0 ~xx88p88:11:" ";:XX:10: ,` ALALABAMA,AKALASKA,AZARIZONA,ARARKANSAS,CACALIFORNIA,COCOLORADO,CTCONNECTICUT,DEDELAWARE,FLFLORIDA,GAGEORGIA,HIHAWAII,IDIDAHO,ILILLINOIS,ININDIANA,IAIOWA,KSKANSAS,KYKENTUCKY,LALOUISIANA,MEMAINE,MDMARYLAND,MAM  Ѐ ըЪՂ ѪЂ  IBOU,BANGOR,AUBURN,BIDDEFORD,SANFORD,WATERVILLEt, BALTIMORE,SILVER SPRING,HAGERSTOWN,BETHESDA,DUNDALK,TOWSON, WORCESTER, NEW BEDFORD,CAMBRIDGE,PITTSFIELD,FALL RIVER,LOWELL- DETROIT,GRAND RAPIDS,SAGINAW,FLINT,MUSKEGON,ANN ARBORЪՂ Ђ next program";m"63010CE "t" MAJOR CITIES GAME " Ftj" NAME THE CAPITOL CITY GAME "att" ABBREVIATION GAME "t~" NAME THE NEIGHBORS GAME "t" MAJOR CITIES GAME "HBORS GAME "t" MAJOR CITIES GAME "68,0:9sl ROUTINE TO CLEAR AREA AT BOTTOM OF SCREEqsvXX1822:XX:11:" ";:XX:10:s` NAME,CAPITAL,ABBREVIATION,NEIGHBORS,MAJOR sj" NAME THE CAPITOL CITY GAME "st" ABBREVIATION GAME "t~" NAME THE NEIGHBORS GAM";r59000:RT$(13)58010Gr DROP THROUGHT TO NEXT ROUTINEr772,24:24:10:"************************";:16:772,28:rx ROUTINE TO GET A SINGLE CHARr}16384,0rCH(16384):CH12859010r16368,0sRT$(CH128):163%1:XPCC%:772,24:(PR$,1);:772,28:50420EqŭA13ĺ"";:50420SqŹ16368,0qqTITCTI%:CC%0RT$"":|q!RT$""q&ŁZ0CC%1:RT$RT$(RT%(Z)):Z:qDŭCC%LN1ĺ"";:50420qNRT%(CC%)A:CC%CC%1:(A):50420r24:13:" Press RETURN C%1:RT$RT$(RT%(Z)):Z:6p|ĭCC%LN1ĺ"";:50220\pRT%(CC%)A:CC%CC%1:(A):50220pĖXP:YP:772,24:(PR$,LN);:772,28pCC%0:TI%1:RT$""pĢYP:XPCC%:16368,0pA(16384):A12850425pAA128:A3150500-qŭA8CC%0CC%CC0:TI%1:RT$"")o,ĢYP:XPCC%:16368,0Fo1A(16384):A12850225ho3AA128:A31A48A5750300o@ĭA8CC%0CC%CC%1:XPCC%:772,24:(PR$,1);:772,28:50220oJĭA13ĺ"";:50220oOĹ16368,0oTĭCC%0RT$"":50225oYRT$""p^āZ0C3,40:34,BT:35,BB3ndâ1:1:"]**************************************^+":YY223:YY:40:"++":YY:23:40:"+[**************************************\";nnù32,1:33,38:34,BT:35,BB:BT1::772,FnxñnĖXP:YP:772,24:(PR$,LN);:772,28o"CC%A%2,TS%:SA%3,LV`mҌML1(NA$(O)):PTSA%3((10(NA$(0)))2)ML:PT,((NA$(0),ML,1)):MLm܌ML1(NA$(1)):PTSA%13((9(NA$(1)))2)ML:PT,((NA$(1),ML,1)):MLmnPâ18:BT2:BB22:F(772):772,24:32,1:33,38:34,BT1:35,BB1:32,0:3RT3ī59000+E+l ROUTINE TO CLEAR AREA AT BOTTOM OF SCREE}+vXX1822:XX:11:" ";:XX:10:d,` ALALABAMA,AKALASKA,AZARIZONA,ARARKANSAS,CACALIFORNIA,COCOLORADO,CTCONNECTICUT,DEDELAWARE,FLFLORIDA,GAGEORGIA,HIHAWAII,ID511000]jǁSTSQ%50:S2%(STSQ%1)(BP%ST):STH]tSQ%SQ%SN:BP%,SQ%S]~ǫ51300o]ǁST150:S2%(ST)ST:ST]ǁST150:AR(50):BR(50):S2%S2%(A):S2%(A)S2%(B):S2%(B)S2%:ST]ǁST150:BP%ST,S2%(ST):ST]SQ%SN1:BP%,SQ%]ǫ51300?^Ⱥ" .,$,<*, Ѐ ըЪՀ ѪЂ <<$ 0`RT(RT$)$`RT1RT359000*`]`l ROUTINE TO CLEAR AREA AT BOTTOM OF SCREE`vXX1822:XX:11:" ";:XX:10:{a` ALALABAMA,AKALASKA,AZARIZONA,ARARKANSAS,CACALIFORNIA,COCOLORADO,CTCONNECTICUT,DEDELAWARE,FLFLORIDENIX,LITTLE ROCK,SACRAMENTO,DENVER,HARTFORD,DOVER,TALLAHASSEE,ATLANTA,HONOLULU,BOISE,SPRINGFIELD,INDIANAPOLIS,DES MOINES,TOPEKA,FRANKFORT,BATON ROUGE,AUGUSTA,ANNAPOLIS,BOSTON/ LANSING,ST. PAUL,JACKSON,JEFFERSON CITY,HELENA,LINCOLN,CARSON CITY,CONCORD,INAL PAGEc c c %c +cFc":"BLOAD FINAL.PAGE"Rc,63030cc6THISISANERRdprogram";|c"63010d:"*************************";:16:772,28:V_x ROUTINE TO GET A SINGLE CHARd_}16368,0_252,0:253,0:254,TS%:44544_16368,0_CH1282739000_TM(252)(253)256_RT%(255):RT$(RT%)_RT%25550550`RT%273900TS%08100*}16368,0:*252,0:253,0:254,TS%:44544O*CH1282739000h*TM(252)(253)256*RT%(255):RT$(RT%)*RT%25550550*RT%2739000*RT(RT$)**l ROUTINE TO CLEAR AREA AT BOTTOM OF SCREE&+vXX1822:XXST)Ⱥ"CLOSE STATES.LST":A)dȺ"BSAVE STATES.LST,A$600,L51"G)nȱQ)8000n)59000:RT$(13)58010) DROP THROUGHT TO NEXT ROUTINE)772,24:24:10:"*******************";:16:772,28:)x ROUTINE TO GET A SINGLE CHAR *y歜ǁST150:S2%(ST)ST:ST`(ǁST150:AR(50):BR(50):S2%S2%(A):S2%(A)S2%(B):S2%(B)S2%:ST(ǁST150:BP%ST,S2%(ST):ST(SQ%SN1:BP%,SQ%(ǫ51300(Ⱥ"CLOSE STATES.LST":"OPEN STATES.LST":"WRITE STATES.LST":SQ%) ȁST150:S2%(ST):'pƁYYY1Y2:X1:YY:(SP$,X2X1);:YY-'zƱO'8Dz ROUTINE TO GENERATE RANDOMb'BDz STATES LISTi'GǢ5'LǺ"BLOAD STATES.LST"'VBP%1536'`SQ%(BP%):SQ%SN4951100'jǁSTSQ%50:S2%(STSQ%1)(BP%ST):ST'tSQ%SQ%SN:BP%,SQ%'~ǫ51300(&{TMTS%:RT1)&Ŗ16:23:"Time's up!";>&Ţ1:(7);:(7);H&Ű8700c&Ŗ16:23:" ";p&RT$"":&Ų SN,PL,NA$&PN%1&SC%(0)0:SC%(1)0:TM(0)0:TM(1)0&PN%2&NA$(0)"RONALD":NA$(1)"MARY ANNE"&NA$(0)"JOSEPHINE"&ű'%1:XPCC%:772,24:(PR$,1);:772,28:50420E%ŭA13ĺ"";:50420S%Ź16368,0q%TMTCTI%:CC%0RT$"":|%!RT$""%&ŁZ0CC%1:RT$RT$(RT%(Z)):Z:%DŭCC%LN1ĺ"";:50420%NRT%(CC%)A:CC%CC%1:(A):50420%vŲ TIMEOUT ROUTINETRENTON,SANTA FE,ALBANY,RALEIGH,BISMARCK,COLUMBUS,OKLAHOMA CITY,SALEM,HARRISBURG,PROVIDENCE,COLUMBIA,PIERRE,NASHVILLE,AUSTIN,SALT LAKE CITY,MONTPELIER/ RICHMOND,OLYMPIA,CHARLESTON,MADISON,CHEYENNE/ FINAL PAGE/ / / / 0 GAME "S GAME "A%2):LV(SA%3)GlֈNA$(0)"":NA$(1)""lꈁML1(NA$(O)):PTSA%3((12(NA$(0)))2)ML:PT,((NA$(0),ML,1))lML1(NA$(1)):PTSA%3((11(NA$(1)))2)ML:PT,((NA$(0),ML,1))llSA%,PN%:SA%1,SN%mS BOTTOM OF SCREEH3vXX1822:XX:11:" ";:XX:10:z3` NAME,CAPITAL,ABBREVIATION,NEIGHBORS,MAJOR 3j" NAME THE CAPITOL CITY GAME "3t" ABBREVIATION GAME "3~" NAME THE NEIGHBORS GAME "3" MAJOR CITIES GAME "$ĭSC%(1)99Ė32$$Ģ20:SC%(1);/$Ĺ780,05$ı]$ĖXP:YP:772,24:(PR$,LN);:772,28k$Ĺ16368,0$CC%0:TI%1:RT$"":252,0:253,0:254,TS%$ĢYP:XPCC%$Č44544:A(255):A25550550$ĭA3150500$ĭA2739000-%ŭA8CC%0CC%CC23:"SCORE";#ñ#ñ7#HC(7I29((NA$(I)))2)C#ĖHC:18O#ĺNA$(I)U#{ıo#|IJ THIS DISPLAYS SCORE#}ĺ(3);"3";(5);#ĭSC%(0)9Ė6#ĭSC%(0)99Ė4#ĭSC%(0)10Ė8#Ģ20:SC%(0);#ĭPN%1ī50340#ĭSC%(1)10Ė36$ĭSC%(1)9Ė34"+":3:22:"[******\")"íPN%1ī50120"Ö31:19:"]******^":38:20:"+":38:21:"+":31:20:"+":31:21:"+":31:22:"[******\""ù32,1:33,38:34,BT:35,BB:BT1::772,F"ù32,0:33,39:34,1:35,23"Ö4:23:"SCORE";"íPN%1ı #Ö32:************************************\";U!nù32,1:33,38:34,BT:35,BB:BT1::772,F[!xñ!â18:BT2:BB22:F(772):772,24:32,1:33,38:34,BT1:35,BB1:32,0:33,40:34,BT:35,BB3"Ö3:19:"]******^":10:20:"+":10:21:"+":3:20:"+":3:21:Y%,ZS%:ZX%0ĖZX%:ZY%:(ST$(ZS%),2):ZB3 P""9 Z? Oó Pâ18:BT2:BB22:F(772):772,24:32,1:33,38:34,BT1:35,BB1:32,0:33,40:34,BT:35,BB3'!dâ1:1:"]**************************************^+":YY223:YY:40:"++":YY:23:40:"+[**T 39100>8000:34,6:35,22:(12);:RW%7:CL%0:39040]CL%0RW%7ST51İ8000eƘPLpИ37000(A$)1(A$)240080( ROUTINE TO DRAW BORDER STATES-10:2"READ BORDER STATES,R";ST%" ROUTINE TO GET NAMES AND INFO FROM DISK FILEHˆPN%(SA%):SN(SA%1)ëTS%(SA%2):LV(SA%3)}ֈNA$(0)"":NA$(1)""PTSA%4SA%12:NA$(0)NA$(0)((PT)):NA$(1)NA$(1)((PT10)):PTꈱP119:PTSA%3P1:PT,((NA$(0),P1,1)):PTI)SC%(I)51y50300 4y8700C@yX112:Y118:X230:Y222:50800I{yp}14:20A::(ST$(S2%(X)),3,14):}12:18:" That's right! ";:SC%(I)SC%(I)1:50300:8700:X112:Y118:X230:Y222:50800 }X112:Y118:X230:Y222:50800c}- "v12:24:"******************";O v32,1:33,38:34,BT:35,BB:BT1::772,Fmv32,0:33,40:34,0:35,23svy THIS IS WHEN RIGHT SECOND TIMEy14:20A::(ST$(S2%(X)),3,14): y11:18:" ""y13:18:" Very good! "; ,ySC%(,0X/249,63:251,98b/FI$/H0u WHAT TO DO IF ANSWER IS RIGHTY5uCR%1:38000o:u18:21:"Right!"DuSC%(I)SC%(I)10Nu50300Xu8700uu18:BT2:BB22:F(772):772,24:32,1:33,38:34,BT1:35,BB1:32,0:33,40:34,BT:35,BB3WAII.31,1:250,0).249,48:251,401.FIE.249,43:251,50M.FIa/249,68:251,52i/FI} /249,70:251,62/FI/249,73:251,71/FI!/249,77:251,58&/FI+/249,84:251,700/FIC/D/ FILL KODIAKN/31,1:250TERLOO,DUBUQUE,COUNCIL BLUFFS`+ WICHITA,KANSAS CITY,MANHATTAN,LAWRENCE,SALINA,HUTCHINSON+ LOUISVILLE,LEXINGTON,OWENSBORO,COVINGTON,BOWLING GREEN,PADUCAH+ NEW ORLEANS,SHREVEPORT,MONROE,LAFAYETTE,LAKE CHARLES,ALEXANDRIA/, CARIDAHO,ILILLINOIS,ININDIANA,IAIOWA,KSKANSAS,KYKENTUCKY,LALOUISIANA,MEMAINE,MDMARYLAND,MAMASSACHUSETTSv,e MIMICHIGANN-j MNMINNESOTA,MSMISSISSIPPI,MOMISSOURI,MTMONTANA,NENEBRASKA,NVNEVADA,NHNEW HAMPSHIRE,NJNEW JERSEY,NMNEW MEXICO,NYNEW YORK,NCNORTH CALN(AD1)#&%STAD4:ENADLN2220%ASTEN2H:%X%(A):Y%(A1)hD%Y%127ēX%XO,Y%128:9560wN%X%XO,Y%~X%Ab%FIg%QQ%11İ12000j%QQ%2İ12100l%QQ%22Ĺ249,60:250,0:251,37:31,1:FI:%'(12):50000. FILL HAAD2):CY%(AD3)6@#249,CX%2:250,0:251,CY%:31,1PF#MO19500: 256X128dP# 128X256 MODEsZ#LN(AD1)d#STAD4:ENSTLN22n#ASTEN2x#X%(A):Y%(A1)#X%127ēX%XO128,Y%:9110#X%XO,Y%##A#FI# %200 ! 'AUTO RETURN'!302005"16368,0B"J1100W"(16384)141ıq"(16384)155ī39000x"J~_"'#(# ROUTINE TO PLOT THE STATE-#QQ%S2%(X)2#AD(LC(ST2))256(LC1(ST2))<#MO(AD): MODE BYTE>#CX%( B16368,0)EA(16384):A12880055FAA128HGA13İ58500:YHA27ī39000nJA127Ĺ16368,0xT8005~16368,0RT(16384):RT128810316368,0RTRT128RT27ī39000RT((RT)):RT1RT3810330T:RTA1İ32000:999C12:18:" Wrong again. ":8700Ij12:18:" The answer was: "14:20A2::(ST$(S2%(X)),3,14):8000:30200:X111:Y118:X230:Y222:50800999:(12):?@14:24:" Press RETURN ";000:RT1RT32160:30200%r30200=uTS%0TMTS%2195Rz12:19RT::RTX}RTA1CR%1:38000:31000:999CR%0:3800014:24:" Try again. ";:59000:RT1RT32200:3020030200TS%0TMTS%225012:19RT::R:"TIE GAME!"~58000:( LEVEL 1I412:18:" Multiple choice."W>AR(3)1rHS2%(X)1S2%(X)2A0RS2%(X)49S2%(X)50A2\ZQ02:12:20ZQ:ZQ1;" ";(ST$(ZQS2%(X)A),3,14):ZQaA2Af12:24:" Enter a number. ";p59000L:I0:50200:I1:50200QQ3:16:" "mU:I0:50200:I1:50200sV`SC%(0)SC%(1)I0:50200::14:20:NA$(0);" WON!"jSC%(0)SC%(1)I1:50200::12:20:NA$(1);" WON!" tSC%(0)SC%(1)ĝ:16:20RTA1İ32000:999612:18:" Wrong again. "@8700b12:18:" The answer was: "14:20A2::(ST$(S2%(X)),3,14):14:24:" Press RETURN ";:8000:30200:X111:Y118:X230:Y222:5080050200XPN%2İ1100394:" Enter a number. ";8 59000:RT1RT3660:30200C 30200Z TS%0TMTS%700o 12:19RT::RTu  RTA1İ31000:999 14:24:" Try again. ";:59000:RT1RT3700:30200 30200:TS%0TMTS%715 12:19RT::RT:"Sorry." b8700# hCR%0:38000F lX112:Y118:X230:Y223:50800h q12:18:"Here is some help."v vAR(3)1 {S2%(X)1S2%(X)2A0 }S2%(X)49S2%(X)50A2 ZQ02:12:20ZQ:ZQ1;" ";(ST$(ZQS2%(X)A),3,14):ZQ A2A 12:2 the STATE NAME?"( :XP14:YP18:LN148 LV1ī2000W 14:24:" Press RETURN ";b 50400m 30200 TS%0TMTS%616 RT$(ST$(S2%(X)),3,14)TS%0(ST$(S2%(X)),3,14)RT$TITS%İ30000:X111:Y118:X230:Y223::50800:999 X18:21:TE GAME " 50100# I0:502009 PN%2I1:50200D 50300P X1SNq X13:Y12:Y215:X232:50800 PN%2(X2)X2I1:240 I0 ST%S2%(X):PL%I PN%2Ğ:50200: STS2%(X):9000 41000 1: 9:16:"What is FS1%(50),S2%(50)- PSC%(1),TM(1),RT%(40)B QST$(50),SS%(50)Y SX150:ST$(X):Xd `35000o d51000 f32,0:33,40:34,0:35,24 iPN%2SN20 j"OPEN BORDER STATES,L60" k(12):50000 n10:1 s32,0:33,40: x" NAME THE STA% 500029952,SA%21265:10:NPR$"_______________________"U3jSA%21265:10::"BLOAD STATES.OBJ" FI30104LC31744(SP$" "2XO0:YO129:TC135<R(ZZ)((1)ZZ)1               ЪՀ Ђ         AROLINA-t SDSOUTH DAKOTA,TNTENNESSEE,TXTEXAS,UTUTAH,VTVERMONT,VAVIRGINIA,WAWASHINGTON,WVWEST VIRGINIA,WIWISCONSIN,WYWYOMING- FINAL PAGE--":"BLOAD FINAL.PAGE"-,63030-6THISISANERRKEASSACHUSETTS,e MIMICHIGAN-j MNMINNESOTA,MSMISSISSIPPI,MOMISSOURI,MTMONTANA,NENEBRASKA,NVNEVADA,NHNEW HAMPSHIRE,NJNEW JERSEY,NMNEW MEXICO,NYNEW YORK,NCNORTH CAROLINA,NDNORTH DAKOTA,OHOHIO,OKOKLAHOMA,OROREGON,PAPENNSYLVANIA,RIRHODE ISLAND,SCSOUTH CROLINA,NDNORTH DAKOTA,OHOHIO,OKOKLAHOMA,OROREGON,PAPENNSYLVANIA,RIRHODE ISLANDe-o SCSOUTH CAROLINA-t SDSOUTH DAKOTA,TNTENNESSEE,TXTEXAS,UTUTAH,VTVERMONT,VAVIRGINIA,WAWASHINGTON,WVWEST VIRGINIA,WIWISCONSIN,WYWYOMING. MONTGOMERY,JUNEAU,PHOS,SHERIDAN,GREEN RIVER,GILLETTE04 FINAL PAGE64<4B4H4N4i4":"BLOAD FINAL.PAGE"u4,6303046THISISANERR3HISISANERR"l14:10:"See you next time!"l9:23:"Turn off your computer"m6:24:"before loading WPORT NEWS,HAMPTON,ROANOKEV3. SEATTLE,SPOKANE,TACOMA,YAKIMA,BELLINGHAM,BELLEVUE33 HUNTINGTON,WHEELING,PARKERSBURG,MORGANTOWN,WEIRTON,FAIRMONT38 MILWAUKEE,GREEN BAY,RACINE,KENOSHA,EAU CLAIRE,APPLETON4= CASPER,LARAMIE,ROCK SPRING Ѐ "  ըЪՀ   ѪЂ ЪՀ "   Ђ                   0<`|f|>fff>||``|fff| >ffff<080006f6>f<$~~ff>ffffff>|ff|``v|

~ l8ffff|fff<ff~~$f<~0 ~xx88p88f0ff>ff>fffff>~>~~>|vf|fff~fff<<000006f66f~Bf~~fffffn~vffff>ff>6f> 0`>00000> >66666666|f0 f`  n6l  0```0~<<~~~ ~~`0 ``f<x >ff<~`0 A]EE]A>?""? P"""A~?I**II*I* 08<80 @@  """""""" 08<80 @@  **>"6*""">$ >>>>*>><> ?:{>f0ff>ff>fffff>~>~~>|vf|fff~fff<<000006f66f~f~~~fffffn~vffff>ff>6f> 0`>00000> >66666666|f0 f`  n6l  0```0~<<~~~ ~~`0 ``f<x >ff<~`0 A]EE]A>?""? P"""A~?I**II*I* 08<80 @@  """""""" 08<80 @@  **>"6*""">$ >>>>*>><> ?:{> W         O ң/  M $' 1$L11 $$ ɍ` )?~?7 , AY M 3 o 2+I`*)hQL$h 1L$h)L$h*`ɇ :I :`,0`  I`UU**ժU**U4+;߂ +|[?,$ +|B\|#B\9 Σ8 0h`H 0Iȱ 0I _ 0h `+i,^!*i,4*iPII*&if*+`, P\H_p , PPH` Bh $ 0IPH*&& h*H&& h& f$)% Ș)% L$, J , 0IH)hl )M H4+))`,1ɰ(ɸ$)_ B``ɠhɃ`ə`ɚ`ɂ`ɀ`ɐ`ɑ `ɗ@ `Ʌ `ɒ `ɔL `H, P $$!$  , %%#%% y $h( k HH _ 0h,  k  $( ɛɍ `HH 3, P Ș! 3$hh` k,  %%#%*I* 0`H, ,0 h`(*)) &+`H,0 @ &,P,R,Wh,  N H%2 hH)*** **m(L(mhH h '`,ɰ Ʌ+hi#2H $)) &)!(*e))e++8) )L Lp"H $)) &+(*hi#H j j L *(+) 0!*(`$ H))? @(hN    Vɖ ILɓ%Ɂ)ɍ*ɘ&,  ɕ( ` (LN N ` `(5 $, P$$!#$%, i#V%i#%M%L" `"%$Iiii=ߤ$%H " %%, %%#h%LB y ,fH <hLp $,  %%#%  kH %+I`*L )*! 0h`"H $)) &)(*)#`LkL Li ލR,0 ,J̩@K @& &  < 2 y6789L8L< | $(  ΰɐ$, P$$~!$$P$"%n%, %%L"ɍ7Ɋ7ɈɌOɎfɆ>ɉɋɏZ $ H h .#` L}%J u H h d #` L Q ; #` Q #`#2 '( H() 1 eȱm)h`JJ`#JȱJLh `#  <(eΨ =)eϰ%Hh>?iJK̅  1& ')*& "'JJ) ""% m% ʥ0)J!m%! `JJJJS) PI ȄR%*QTU'T8ePT UeRU QJJJ`JJJJS) PI ȄR%*QTU'T8ePT UeRU QJJJ`00', "&,i8i#H&ii&hif&i'`'i, &i,. &iPII&&if&H !"hH8 H!S hIiHSQUhPTh !"IiR"fS8PQ% 8TeRTUU&E%0Q&&kS TePTUeQPفŴxaIL &WSP& )`" !H)&JJ&&h' &' &' f&') &'#i%0J$)` .Q&%0Q&&`$0JI0`'0% I`0 I0ܩ(ߠQ)'%01&*%0Q)&E%0*Q&&QeS)j                 ЪՂ * $<"" Ђ % Ѐ $ ""6$$   ըЪՂ   ѪЂ ЪՂ $6$ $ Ђ ||~8~|~~~|~|~~| I8<><<ȑI=?C ,HHLqQvS <8>I=?mwSmwSmwSih `rS Z Z g Z  Z  Z Z Z Z Z gLIHȹIHBI=?C<> ,hIhILQIHȹIHI=?<>><hIhILQIȹI RII LQIȹI RII O SLO8Hh,0IrS ZLP-xS QrS Z,QZdmwwɗLNQɚLQɁLQɓLQLRLQLRLNRhh`vSvSLOvSvSwS wSLOwSwSQ-xSQ SLO-imvSmvSmvSH+,iLOLOL,HHH-+, pS0tSuSHySpStS0sSqSmuSmuSIqSJH Z ,yS \ Z hխsSiе h8ИuSuSЉhhh`wSvS O SHH PrSwS8*xSwSmvSmvSIi-xS QIrS Z@ppppppppppppppp@@@@@@@@@@@@AMA30.+ۛ]ߝaa`ݦZبTejz~\~~a~|iroKkhK#Nj TjTj ::ԴTԼTؼ\xx\xxegbG^YGgc&`Z'WT%EEEEEEEEEEEEEEEEEEEEEDDEDEDEDEDEDEDEDEDDLXXAXXXMAXDAWDWAXAXXXLLZZXXXXXXXMAADD1AXDWAXDDALABAMA!%CXWWWWWWWALABJ11=:::8999>ACDADEHJLPRVZ\_}au^t[mXmWmVjRlPjMmIrFnEq@s?v>v;v8{7631/,(%#!///ºFLrmdkhihdFb^A\XBPR|z%%')-3;76@DKX{WzUwQuMvIvGqCoBq@k=i9h8k4h1m.o&q$s#w#|!tv w{~# KC!$-38:<@CHMRPR\L\IcHfCkCoGtDB?;.0.*$!!kk%q fd-^0]`^n7h3a+]&^!ei`[WS*߻e__?__3\U*RN*9t2hoq&}%''%$!#"(.17=?V`V^U^R]N_K]HbD^Bd>b=b7e4e/h'j%f$ghgff׳W׺Wِ^f^]\^aaaaf\Grr$&-26=FMJOcOc(r!wzzvsolgaZWR!`]PZSYssVzZ[ހbxfډXXړ]ߗcgi`ݟZפ[e洝WRLÝѸTԹWڹ]_caaWaab^UXPKXD?o&*))%"5DKOQVVRTxRtOpMo&mg&c^&# ! """@èCٍ^egokThdX'C`*YVVXVUPP~LwHw1_1_*__!__#11ڻ\IFWFbB`@f=c9c6h4r9x6}410+(!<<ʬJʵJذWֻT١`fѓUא\eW>5s&+./1799DORYaceiifb`ccz`v_t[qWoUqRqPtNvJxJxH}CB@?{8z3|2z0+~*(}||2-*sqGolGhiIhgTfe\vxdykue&/t VVXZuZu]v^q^q t rrrr**ٗ]ߡbhmf^da^af im 7<11VVONK@@V{{\{{eYSGPJG#:qXWXY[]`r;85531.+%hVgh]ikelkihfcc^c`].ZV*S18f'+023OeOe'ee!eeb^[X#ҽX`gb_O\XOUQOQVYZ_YdiYmpYpp`I;,-.0026;ADDGIKMPScT^WSWVSUOXP]P_N^JcGhBlAx@|>z;;962.,)%/.GNճUլerp5nl5@>MOPUVXZ[YZ\\~^}]|]y]v]u]s]s[uXtVxRyOzG|#~&%#"͜LˠKˤMΦOrpapodoepfqnizwvuuFBg'*.259;=@BFFGIKOTXROjPgKgHgDf>e;e8f6c0d-f*f'ee"ffff"<<ݥahi6<8=?CCEECCAazaxMwLzIxGwEz@|;{7x5yvsqnéCïCdhdiwtaroawt7qn7N?{!*++DFIKNTXZ\[^[XUT~P|L~IzGwAtAAǘDCEFHHGÎ@<=?AC423137877{x*t'r(q,m/r4u3{3bd+d(^%](Z)Y-a-[X0S3X6[3@Pz!#&',/13(*+37:<=@EEHKLOPRSUXVG2"|!{x!us!ٗ]ޕae8(g{"}$$'%""*?BDMUZZchhecb^ZUSIF=8620-,-|.w-u*t*r(l'i&g"fc)`Z+{{|}g:6t"$&*,1?EHNPUXW\[Z|ZzQ{NzL~G{Es5w3s0s+u*s(s$srrrrΟKIǟFEƥFܞ_cߒ`affffff!7l+RlRl+gb+_Y+gbR_YRll[lldף[ߣdӳSӼS//"n'*9m)IJJJKNNPPN}PvSsUpUeYaUmNmLjJl)mm#mqrt))ȮGƷEýBb]]\Wfn,0=!%&&ffb]ݸ]li[gd[aa[][qm:if4c_.xxxxf&A7r(+,.3479:=??CIKLLxLxFsFs3r')#'';;;ϓQӕUVWٔ\ސbxxSxxYqpColClCjgCss#sss7@9s6OQSUUY\\WUUSROOHFD|C}A~?{u;u9s7s5t5r/r.s.u.v.x,x&&|q||};~~IQǀA߁e3冇7͉W's[ݍ/GiّYA|G*Cz?ACDFGINOUU\~]{[u\yvtrnmj֤Xڨ\ܬ\ro\lg`ebaadmnc !#JLNPPQSUVX[]_eaf                     SON,JOHNSON CITYU2 HOUSTON,DALLAS,SAN ANTONIO,FT. WORTH,CORPUS CHRISTI,AMARILLO 2 PROVO,OGDEN,OREM,SANDY CITY,BOUNTIFUL,LOGAN2$ BURLINGTON,RUTLAND,BENNINGTON,ESSEX,ST. JOHNSBURY,BRATTLEBORO3) NORFOLK,VIRGINIA BEACH,ARLINGTON,NE1 WARWICK,CRANSTON,PAWTUCKET,WOONSOCKET,NEWPORT,BRISTOL1 CHARLESTON,GREENVILLE,SPARTANBURG,ROCK HILL,FLORENCE,ANDERSON1 SIOUX FALLS,RAPID CITY,ABERDEEN,WATERTOWN,BROKINGS,MITCHELL2 MEMPHIS,KNOXVILLE,CHATTANOOGA,CLARKSVILLE,JACKANDANB0 CLEVELAND,CINCINNATI,TOLEDO,AKRON,DAYTON,YOUNGSTOWNy0 TULSA,LAWTON,NORMAN,ENID,STILLWATER,MUSKOGEE0 ASHLAND,EUGENE,KLAMATH FALLS,CORVALLIS,MEDFORD,GRESHAM0 PHILADELPHIA,PITTSBURGH,ERIE,ALLENTOWN,SCRANTON,JOHNSTOWN=CLOSE STATES.LST":"OPEN STATES.LST":"WRITE STATES.LST":SQ%Y^ ȁST150:S2%(ST):STt^Ⱥ"CLOSE STATES.LST":^dȺ"BSAVE STATES.LST,A$600,L51"^nȱ^8000^59000:RT$(13)58010^ DROP THROUGHT TO NEXT ROUTINE,_772,24:24:10 CITYD/ ALBUQERQUE,LAS CRUCES,ROSWELL,CLOVIS,FARMINGTON,HOBBS/ NEW YORK,BUFFALO,UTICA,ELMIRA,SYRACUSE,BINGHAMTON/ CHARLOTTE,GREENSBORO,WINSTON-SALEM,DURHAM,HIGH POINT,ASHEVILLE0 FARGO,GRAND FORKS,MINOT,JAMESTOWN,DICKINSON,MN,ANACONDAM. OMAHA,GRAND ISLAND,NORTH PLATTE,FREMONT,HASTINGS,KEARNEY. LAS VEGAS,RENO,SPARKS,HENDERSON,BOULDER CITY,ELKO. MANCHESTER,NASHUA,PORTSMOUTH,SALEM,DOVER,KEENE/ NEWARK,JERSEY CITY,PATERSON,ELIZABETH,CAMDEN,ATLANTICD- MINNEAPOLIS,DULUTH,EDINA,MANKATO,ST. LOUIS PARK,ST. CLOUD- BILOXI,MERIDIAN,HATTIESBURG,GREENVILLE,GULFPORT,OXFORD- ST. LOUIS,INDEPENDENCE,ST. JOSEPH,FLORISSANT,HANNIBAL,JOPLIN . BILLINGS,GREAT FALLS,BUTTE,MISSOULA,BOZEMApppppppppp@@@@@@@@pppppp@@@@@@@@@@@@@@@ .""""< <"""<">$ "" &"""  "" ***"$$$$"""$$0&< ,""""**"""$>>   *!-%%-!":*:<"">""$$$$$$$$$$$>$ $>>$ "2"<""">"""8 "  "$>"6*""""""&*2"""""""$$"""*,"" "" ">*"""""""""""""**"""""">"">>> >000000>* 66$>>< (&20 *,  **> > """"" " >>  ">> "8""> """"""<  >> "( Darrell Aldrich"Hj100%H657FHA$"":I512767:(I)141ı^HA$A$((I)128):~H'33,12:35,10:34,4:" ";:H175,255:176,83:HZ9(121)(122)256:Z9Z973:175,Z9(Z9256)256:176,Z9256:256:56:Z9256:1:LCĺ"`abcdefghijklmno":LCĺ"pqrstuvwxyz{|}~";FGBCX15:CY5LC2pGL"";:1220:770,4:X25:LCāX27GQX29:2:X;:38:X;:X:1:770,0:750GV18688,0:60,0:61,73:62,30:63,73:66,1:67,73:MOVEH`1::1:"Copyright  1980 Ron &771,69:2:15:"ABCDE F@@GH I@@GJ KLMNO":771,16F$LC(7168)128:770,4:33,32:32,4:34,10:" 0123456789ABCDEF":770,0F." !"(34)"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_";2G81220:21:"";:33,35:32,4:210000:"File Name ":51,135:2000:A$""170\EB$"G"ĺ"BSAVE ";A$;",A$7FD,L$1803":170E"BSAVE ";A$;",A$1400,L$C00":170E0:0:1002::::1:"CATALOG"E16384,128:16368,0:3075:16304,0:160E:3072:MOVE20230E772,73@F:CYM2OD(CY1)2:750:160!DMDCY29:CX25:"";:(CY16CX);::D 10000:"File Name ":51,135:2000:A$""170D*"BLOAD ";A$:1220:1060D10000:"Generator or":"Font (G/F) ";DB$:(B$)13170DB$"F"B$"G"905-ESM"^CB(CY16CX)324096:60,0:61,73:62,31:63,73:66,MOD(B):67,B256:MOVE:750:1110rCX1220:" ";:C760:CX(CX15)((CX15)16)16:750:160C760:CX(CX1)((CX1)16)16:750:160C760:CYM2OD(CY1LC2)2:750:160D76060gB,B(CY16CX)324096:60,MOD(B):61,B256:62,MOD(B31):63,(B31)256:66,0:67,73:MOVE:100B7168,(7168)((7168)128)128LC128:LC1LC:760:1::1080B10000:" RUN SMALL FONT EDITOR (Y/N) ";:B$:B$"Y"170C:"RUN EDIT.P"300AA$"R"1110)A(A$)13500:A(A$)3600JAA$"I"720ZAA$"M"730jAA$"J"700zAA$"K"710AA$"L"800AA$"O"900A(A$)12400AA$"D"950AA$"E"450A4:27:771,69:20227:130B" ";:1220:1@ I30723080:K(I)K:]@K621ĺ(4)"BRUN LOMEM:":16384:(4)"BLOAD HIGHER TEXT"@2MOD(X)X(X256)256:M2OD(X)X(X(4LC2))(4LC2):1000@d"";@n811,109:812,0:813,18:771,69:4:27:20224A771,16:A$((16384)):A$"           0":"BLOAD FINAL.PAGE"'0,63030806THISISANERRdddNAL.PAGE"Wh,63030hh6THISISANERRdP,CHEYENNEh FINAL PAGEh h h h h":"BLOAD FINAL.PAGE"h,63030h6THISISANERRd Ѐ $"""$$" "  " ѪЂ   ЪՂ ЂЊ "*""$$"$"*$ ЪՂ " p ժժժժЀ   ">""$" "">>>" ѪЂ   ЪՊ ЪՊ "*""$$">"*$$ xЂЊ " x ժժժժЀ  <"$"" &"&&""&""" ժЂ   ЪՊ ЪՊ &"*""$&""$"*$$$ pЂ "  Ѐ  """*$  <<"< ըЂЂ   ЂЊ :" ";:XX:10:-` ALALABAMA,AKALASKA,AZARIZONA,ARARKANSAS,CACALIFORNIA,COCOLORADO,CTCONNECTICUT,DEDELAWARE,FLFLORIDA,GAGEORGIA,HIHAWAII,IDIDAHO,ILILLINOIS,ININDIANA,IAIOWA,KSKANSAS,KYKENTUCKY,LALOUISIANA,MEMAINE,MDMARYLAND,MAMASSACHUO,NYNEW YORK,NCNORTH CAROLINA,NDNORTH DAKOTA,OHOHIO,OKOKLAHOMA,OROREGON,PAPENNSYLVANIA,RIRHODE ISLAND|bo SCSOUTH CAROLINAbt SDSOUTH DAKOTA,TNTENNESSEE,TXTEXAS,UTUTAH,VTVERMONT,VAVIRGINIA,WAWASHINGTON,WVWEST VIRGINIA,WIWISCONSIN,WYWYOMING c FSETTS-e MIMICHIGAN-j MNMINNESOTA,MSMISSISSIPPI,MOMISSOURI,MTMONTANA,NENEBRASKA,NVNEVADA,NHNEW HAMPSHIRE,NJNEW JERSEY,NMNEW MEXICO,NYNEW YORK,NCNORTH CAROLINA,NDNORTH DAKOTA,OHOHIO,OKOKLAHOMA,OROREGON,PAPENNSYLVANIA,RIRHODE ISLAND .k SCSO0)L)``A,GAGEORGIA,HIHAWAII,IDIDAHO,ILILLINOIS,ININDIANA,IAIOWA,KSKANSAS,KYKENTUCKY,LALOUISIANA,MEMAINE,MDMARYLAND,MAMASSACHUSETTSae MIMICHIGANebj MNMINNESOTA,MSMISSISSIPPI,MOMISSOURI,MTMONTANA,NENEBRASKA,NVNEVADA,NHNEW HAMPSHIRE,NJNEW JERSEY,NMNEW MEXICi? d-6#Ūųi Ѐ   ѪЂ ЪՀ Ђ  Ъ r"rrrr|rr| Ѐ " . "< ѪЂ | ~|p~|pp~| ЪՂ Ђ *"$.<*.$ ЪՂ " Ђ *"$.<*.$ ЪՂ " Ѐ $"""$$" "  " ѪЂ   ЪՂ ЂЊ "*""$$"$"*$ ЪՂ " p ժժժժЀ   ">""$" "">>>" ѪЂ   ЪՊ ЪՊ "*""$$">"*$$ xЂЊ " x ժժժժЀ  <"$"" &"&&""&""" ժЂ   ЪՊ ЪՊ &"*""$&""$"*$$$ pЂ "  z#?a'      Ҡ Ҡ̮Š"ԲȠ' Ҡ Ӡ ӮԠ ӮʠԮǠ ŠŮΠŠ'ŮΠ   Ҡ/ՠ6 îϠ" Ӡ(ϠӠű"Π%!ҠӠ  ̠*̮ʠ ҠԠϠ ͺcorrect!"020:MM$(ST$(S%(BN)),3,14):57000@8700:1100T LESSER LOSERiSC5:PT3:3000059500:18:16:"Good job!"20:MM$(ST$(S%(BN)),3,14):570008700:110015:20:"Very good!"SC10:PT0:300008700L:PT10:3000059500I16:03:" The correct answer is: "p20:MM$(ST$(S%(BN)),3,14):57000{5800016:3:" "1100 PARTIAL LOSER MODESC1:PT5:30000 59500:18:14:"Thats TSB41000$19RT:12::RT;")"C:14:24:" Try again. ";TCR%0:38000n59000:RT1RT394658500:TS%0TMTS%953RTSB4980:12:19RT:RT;")":12:18:" Wrong again. "8700 LOSER MODE SC0BN)S(3)ST%760D S(2)R(50):S(2)S(3)S(2)S%(BN)S(2)ST%780] S(1)S%(BN):SBR(3) 4AN13:19AN:12:AN;") ";:ANSB3ĺ(ST$(S(ANSB3)),3,14):860 H(ST$(S(ANSB)),3,14) \AN p59000:RT1RT3880 zTS%0TMTS%941 R 14:24:" Press RETURN ";< XP14:YP18:LN14:50400G 30200^ TS%0TMTS%730 RT$(ST$(S%(BN)),3,14)1020 17:20:"Sorry.":8700 17:20:" " CR%0:38000 18:11:" Here is some help." S(3)R(50):S(3)S%(ST% X40000 l44000k 1::"READ BORDER STATES,R";ST%:BS%:ZQ17:X%(ZQ),Y%(ZQ),S%(ZQ):ZQ:"" "":BN1BS%1:XP%X%(BN):YP%Y%(BN):BT%S%(BN):43000 6:16:"What is the border state name?" LV1Ė12:18:"Multiple choice.":76000 HM$ 50000= 7:1:" NAME THE NEIGHBORS GAME "H 50100S 50300^ 50200{ PL%0: PLAYER 1 STARTS PN%2Ğ:50250: NS1:FDG%0 TR1SN 0S2%(TRFDG%)2S2%(TRFDG%)11FDG%FDG%1:560 5ST%S2%(TRFDG%) DSTYO0" PR$"__________________"I SP$" "j MB$(23)(3)"1":NR$(18)x HM$(12) R(RZ)((1)RZ)1 ,SC%(0)0:SC%(1)0:TM(0)0:TM(1)0 MM$"": "BLOAD STATES.OBJ" ST150:ST$(ST):ST 510A(16384):A1288005#FAA1286GA13İ58500:GHA27ī39000\JA127Ĺ16368,0fT8005lz16368,0RT(16384):RT128810316368,0RTRT128RT27ī39000RT((RT)):RT1RT38103! 'AUTO RETURNO PLOT CLOCK BOX(*ܹ32,32:2::772,24g*T1$"]****^":T2$"+ +":T3$"[****\":T1$:T2$:T2$:T3$y*ܹ32,0:772,28*ܱ*ޖ(20(MM$)2):MM$;:*8000*772,24:24:10:"************************";:16:772,28: +x ROUTINE TO GET :BP%,SQ%)ǫ513007)dȺ"BSAVE STATES.LST,A$600,L51"=)nȱY)ڲ ROUTINE TO PLOT TIMEf)ڭTS%0ı)TM$" ":4:382(TM$):780,192:770,2:TM$:780,0:770,0)TM$((TM.5)):4:382(TM$):780,192:770,2:TM$:780,0:770,0:*ܲ ROUTINE T(`SQ%(BP%):SQ%SZ24751100J(jǁSTSQ%50:S2%(STSQ%1)(BP%ST):STc(tSQ%SQ%SZ2:BP%,SQ%n(~ǫ51300(ǁST150:S2%(ST)ST:ST(ǁST150:AR(50):BR(50):S2%S2%(A):S2%(A)S2%(B):S2%(B)S2%:ST(ǁST150:BP%ST,S2%(ST):ST )SQ%SZ21 ";'RT$"":C'pƢ2:2:" "w'zƁX215:X:4:" ":X}'Ʊ'8Dz ROUTINE TO GENERATE RANDOM'BDz STATES LIST'DSZ2SN:PN%2SZ2(SZ23)'GǢ5'LǺ"BLOAD STATES.LST"'VBP%1536TI%:CC%0RT$"":&!RT$""E&&ŁZ0CC%1:RT$RT$(RT%(Z)):Z:`&DŭCC%LN1ĺ"";:50420&NRT%(CC%)A:CC%CC%1:(A):50420&vŲ TIMEOUT ROUTINE&{RT1:TMTS%&Ŗ16:23:"Time's up!";&Ţ1:(7);:(7);&Ű8700'Ŗ16:23:" %Ĺ16368,0<%CC%0:TI%1:RT$"":252,0:253,0:254,TS%L%ĢYP:XPCC%m%Č44544:A(255):A25550550}%ĭA3150500%ĭA2739000%ŭA8CC%0CC%CC%1:XPCC%:772,24:(PR$,1);:772,28:50420%ŭA13ĺ"";:50420%Ź16368,0&TMTCJĖ229(PL%):18:NA$(PL%)!${ı=$|IJ THIS DISPLAYS SCOREQ$}ĺ(3);"3";(5);$Ė10(2((SC%(0))))(SC%(0)999):20:SC%(0)$ĭPN%2Ė38(2((SC%(1)))):20:SC%(1)$ĺ(18);$ĭSC%(0)999İ50142$ı%ĖXP:YP:772,24:(PR$,LN);:772,28T:35,BB3j#Ö2:19:"]********^":11:20:"+":11:21:"+":2:20:"+":2:21:"+":2:22:"[********\"#ù32,1:33,38:34,BT:35,BB:BT1::772,F#ù32,0:33,40:34,0:35,24#ñ#IJ #Ė2:18:NA$(0)#ĭPN%1ı#"Ė31:18:NA$(1)#,ı$31:21:"+":31:22:"[******\"N"ù32,1:33,38:34,BT:35,BB:BT1::772,Fl"ù32,0:33,40:34,0:35,24"Ö4:23:"SCORE";"íPN%1ı"Ö32:23:"SCORE";"ñ #â18:BT2:BB22:F(772):772,24:32,1:33,38:34,BT1:35,BB1:32,0:33,40:34,B(772):772,24:32,1:33,38:34,BT1:35,BB1:(18):32,0:33,40:34,BT:35,BB3!Ö3:19:"]******^":10:20:"+":10:21:"+":3:20:"+":3:21:"+":3:22:"[******\"!íPN%1ī50120 "Ö31:19:"]******^":38:20:"+":38:21:"+":31:20:"+":1:35,BB1:32,0:33,40:34,BT:35,BB3 dâ1:1:"]**************************************^+":YY223:YY:40:"++":YY:23:40:"+[**************************************\"; nù32,1:33,38:34,BT:35,BB:BT1::772,F xñR!â18:(18);:BT2:BB22:FXP%:FL$;16368,0( A(16384)5*A127ı;R૲ ROUTINE TO PLOT THE NAME OF THE STATE AT THE TOP OF THE SCREENST$(ST$(ST%),3,14):S1%(ST$)22:20S1%2:MB$;ST$;NR$:' Pâ18:BT2:BB22:F(772):772,24:32,1:33,38:34,BTP"" Z/ ROUTINE TO ERASE STATE AREA>YP%:XP%:s$ZZXP%XP%12:" ":XP%:ZZy. ROUTINE TO FLASH ?? AT XP%,YP%YP%:FL$MB$"?"NR$ Z112:XP%:FL$;:XP%:Z31DL%:Z3:" ";:Z31DL%:Z3:Z1 X%XO,Y%YOA:QQ%11ı%FI4QQ%22ıY249,60:250,0:251,37:31,1:FI_( ROUTINE TO DRAW BORDER STATES-10:2"READ BORDER STATES,R";ST%";:8100:RT1RT337060ǐ28:18ɐRTΐRT1ĬؐRT2ĺ:"RUN MENU"␭RT363000pCR%0ızSS%(ST%)3ıSS%(ST%)2PL%SS%(ST%)(SA%3) ֈNA$(1)"":NA$(0)""jPTSA%4SA%12:NA$(0)NA$(0)((PT)):NA$(1)NA$(1)((PT10)):PTpꈱ32,1:33,38:34,1:35,23:(12):500004:05:"Do you want to:"::32,7:33,30::" 1. Play this game again":" 2.1:35,BB1:32,0:33,40:34,BT:35,BB3Jv12:24:"******************";w v32,1:33,38:34,BT:35,BB:BT1::772,Fv32,0:33,40:34,0:35,23v ROUTINE TO GET NAMES AND INFO FROM DISK FILEˆPN%(SA%):SN(SA%1)̈TS%(SA%2):LVЖ13:23:"TIME EXCEEDED";:J1800:J:13:23:" ";E:RK/u[0u IF RIGHT t:uSC%(PL%)SC%(PL%)SC?uTMTS%TS%0SC10SC%(PL%)SC%(PL%)5Nu50300buPN%2PL%1PL%lu'u18:BT2:BB22:F(772):772,24:32,1:33,38:34,BT !58500"16368,0&"J1100;"(16384)141ıU"(16384)155ī39000\"Jb_"yR DISPLAYS TIMERAS$((TM))RTS%0ıR34:4:" "R34:5:" "R382(AS$):4&R(5);:(3);4;:(TM)0R780,0?5RTMTS%A(16384):A1288005#FAA1286GA13İ58500:GHA27ī39000\JA127Ĺ16368,0fT8005lz16368,0RT(16384):RT128810316368,0RTRT128RT27ī39000RT((RT)):RT1RT38103! 'AUTO RETURN:50200(I2SC%(0)SC%(1)PL%0:50250::14:20:NA$(0);" WON!"<SC%(0)SC%(1)PL%1:50250::14:20:NA$(1);" WON!"FSC%(0)SC%(1)ĝ:16:20:"TIE GAME."P58000:39000:(12):@14:24:" Press RETURN ";B16368,0EYP%:XP%:(ST$(S%(BN)),2)%V595000j50200F~PN%2NSSN1300cPN%2TRNSĞ:50250:oNSNS1MAX%MAX%1:BN3:16:" "5800050800:TRPN%2130039000 WINNER/LOSER correct!"020:MM$(ST$(S%(BN)),3,14):57000@8700:1100T LESSER LOSERiSC5:PT3:3000059500:18:16:"Good job!"20:MM$(ST$(S%(BN)),3,14):570008700:110015:20:"Very good!"SC10:PT0:300008700L:PT10:3000059500I16:03:" The correct answer is: "p20:MM$(ST$(S%(BN)),3,14):57000{5800016:3:" "1100 PARTIAL LOSER MODESC1:PT5:30000 59500:18:14:"Thats TSB41000$19RT:12::RT;")"C:14:24:" Try again. ";TCR%0:38000n59000:RT1RT394658500:TS%0TMTS%953RTSB4980:12:19RT:RT;")":12:18:" Wrong again. "8700 LOSER MODE SC0BN)S(3)ST%760D S(2)R(50):S(2)S(3)S(2)S%(BN)S(2)ST%780] S(1)S%(BN):SBR(3) 4AN13:19AN:12:AN;") ";:ANSB3ĺ(ST$(S(ANSB3)),3,14):860 H(ST$(S(ANSB)),3,14) \AN p59000:RT1RT3880 zTS%0TMTS%941 R 14:24:" Press RETURN ";< XP14:YP18:LN14:50400G 30200^ TS%0TMTS%730 RT$(ST$(S%(BN)),3,14)1020 17:20:"Sorry.":8700 17:20:" " CR%0:38000 18:11:" Here is some help." S(3)R(50):S(3)S%(ST% X40000 l44000k 1::"READ BORDER STATES,R";ST%:BS%:ZQ17:X%(ZQ),Y%(ZQ),S%(ZQ):ZQ:"" "":BN1BS%1:XP%X%(BN):YP%Y%(BN):BT%S%(BN):43000 6:16:"What is the border state name?" LV1Ė12:18:"Multiple choice.":76000 HM$ 50000= 7:1:" NAME THE NEIGHBORS GAME "H 50100S 50300^ 50200{ PL%0: PLAYER 1 STARTS PN%2Ğ:50250: NS1:FDG%0 TR1SN 0S2%(TRFDG%)2S2%(TRFDG%)11FDG%FDG%1:560 5ST%S2%(TRFDG%) DSTYO0" PR$"__________________"I SP$" "j MB$(23)(3)"1":NR$(18)x HM$(12) R(RZ)((1)RZ)1 ,SC%(0)0:SC%(1)0:TM(0)0:TM(1)0 MM$"": "BLOAD STATES.OBJ" ST150:ST$(ST):ST 510& 5000*P32,0:33,40:34,0:35,245d29951DnSA%21265QpFI30104^rLC31744jsTC135u1:"""OPEN BORDER STATES,L60"ST$(50),S1%(50),S2%(50),SS%(50),RT%(20),RS%(50)MAX%035000SN48SN48DL%100               A SINGLE CHAR+yTS%0ī8100,+}16368,0N+252,0:253,0:254,TS%:44544g+TM(252)(253)256+RT%(255):RT$(RT%)+RT%25550550+RT%2739000+RT(RT$)++l ROUTINE TO CLEAR AREA AT BOTTOM OF SCREE",vXX1822:XX:12AR AREA AT BOTTOM OF SCREER`vXX1822:XX:11:" ";:XX:10:8a` ALALABAMA,AKALASKA,AZARIZONA,ARARKANSAS,CACALIFORNIA,COCOLORADO,CTCONNECTICUT,DEDELAWARE,FLFLORIDA,GAGEORGIA,HIHAWAII,IDIDAHO,ILILLINOIS,ININDIANA,IAIOWA,KSKANSAS,KTHROUGHT TO NEXT ROUTINER_772,24:24:10:"*******************";:16:772,28:y_x ROUTINE TO GET A SINGLE CHAR_}16368,0_CH(16384):CH12859010_16368,0_CH1282739000_RT$(CH128):16368,0:`l ROUTINE TO CLEY1Y2:X1:YY:(SP$,X2X1);:YY&^zƱO^8Dz ROUTINE TO GENERATE RANDOM STATESk^BǁST150:S2%(ST)ST:ST^LǁST150:SQR(50):S2%S2%(ST):S2%(ST)S2%(SQ):S2%(SQ)S2%:ST^VDZ^24:14:" Press RETURN ";^59000:RT$(13)58010_ DROP ""(]&ŁZ0CC%1:RT$RT$(RT%(Z)):Z:C]DŭCC%LN1ĺ"";:50420i]NRT%(CC%)A:CC%CC%1:(A):50420y]Ų SN,PL,NA$]PN%1]SC%(0)0:SC%(1)0:TM(0)0:TM(1)0]PN%2]NA$(0)"RONALD":NA$(1)"MARY ANNE"]NA$(0)"JOSEPHINE"]ű ^pƁYY:RT$""!\ĢYP:XPCC%:16368,0H\A(16384):TI%TI%1:A12850425`\AA128:A3150500p\ĭA2739000\ŭA8CC%0CC%CC%1:XPCC%:772,24:(PR$,1);:772,28:50420\ŭA13ĺ"";:50420\Ź16368,0\TITCTI%:CC%0RT$"":]!RT$RE[}ĺ(3);"3";(5);'[ĭSC%(0)9Ė69[ĭSC%(0)99Ė4K[ĭSC%(0)10Ė8\[Ģ20:SC%(0);n[ĭPN%1ī50340[ĭSC%(1)10Ė36[ĭSC%(1)9Ė34[ĭSC%(1)99Ė32[Ģ20:SC%(1);[Ĺ780,0[ı[ĖXP:YP:772,24:(PR$,LN);:772,28\CC%0:TI%133,39:34,1:35,23'ZÖ4:23:"SCORE";4ZíPN%1ıJZÖ32:23:"SCORE";PZñZÖ33:3:"]****^":38:4:"+":38:5:"+":33:4:"+":33:5:"+":33:6:"[****\"ZñZHC(7I29((NA$(I)))2)ZĖHC:18ZĺNA$(I)Z{ı[|IJ THIS DISPLAYS SCO ѪЂ 2"""">"$"* ЪՂ Ђ ЪՂ Ѐ ""&$"$"&""*$"& ѪЂ """"$""&$"" ЪՂ ЂЊ ЪՂ p ժժժժЀ $<" 3+*2  %$+"1.#/&-, ( !0)'A(16384):A1288005#FAA1286GA13İ58500:GHA27ī39000\JA127Ĺ16368,0fT8005lz16368,0RT(16384):RT128810316368,0RTRT128RT27ī39000RT((RT)):RT1RT38103! 'AUTO RETURN Ѐ  $"""* UTH CAROLINA.t SDSOUTH DAKOTA,TNTENNESSEE,TXTEXAS,UTUTAH,VTVERMONT,VAVIRGINIA,WAWASHINGTON,WVWEST VIRGINIA,WIWISCONSIN,WYWYOMING. FINAL PAGE..":"BLOAD FINAL.PAGE".,63030.6THISISANERRT:50200(I2SC%(0)SC%(1)PL%0:50250::14:20:NA$(0);" WON!"<SC%(0)SC%(1)PL%1:50250::14:20:NA$(1);" WON!"FSC%(0)SC%(1)ĝ:16:20:"TIE GAME."P58000:39000:(12):@14:24:" Press RETURN ";B16368,0EYP%:XP%:(ST$(S%(BN)),2)%V595000j50200F~PN%2NSSN1300cPN%2TRNSĞ:50250:oNSNS1MAX%MAX%1:BN3:16:" "5800050800:TRPN%2130039000 WINNER/LOSER  ѪЂ """"""$"* ЪՀ Ђ Ъ Ѐ >>$"""*$> TINEC2772,24:24:10:"************************";:16:772,28:j2x ROUTINE TO GET A SINGLE CHARx2}16384,02CH(16384):CH12859010216368,02CH12827ĉ:(12):2RT$(CH128):16368,0:3l ROUTINE TO CLEAR AREA ATLV2-\NA$(0)"RONALD":NA$(1)"MARY ANNE"D\NA$(0)"JOSEPHINE"N\SN20T\ Ʊ}\pƁYYY1Y2:X1:YY:(SP$,X2X1);:YY\zƱ\8Dz ROUTINE TO GENERATE RANDOM\BDz STATES LIST\GǢ5\LǺ"BLOAD STATES.LST"\VBP%1536]`SQ%(BP%):SQ%SN49201Ź16368,0.1TITCTI%:CC%0RT$"":91!RT$""_1&ŁZ0CC%1:RT$RT$(RT%(Z)):Z:z1DŭCC%LN1ĺ"";:504201NRT%(CC%)A:CC%CC%1:(A):50420124:14:" Press RETURN ";159000:RT$(13)580102 DROP THROUGHT TO NEXT ROU0220,0ĖXP:YP:772,24:(PR$,LN);:772,28C0CC%0:TI%1:RT$""]0ĢYP:XPCC%:16368,0z0A(16384):A128504250AA128:A31505000ĭA27ĉ:(12):0ŭA8CC%0CC%CC%1:XPCC%:772,24:(PR$,1);:772,28:504201ŭA13ĺ"";:504A27ĉ:(12):S/@ĭA8CC%0CC%CC%1:XPCC%:772,24:(PR$,1);:772,28:50220k/JĭA13ĺ"";:50220y/OĹ16368,0/TĭCC%0RT$"":50225/YRT$""/^āZ0CC%1:RT$RT$(RT%(Z)):Z:/|ĭCC%LN1ĺ"";:502200RT%(CC%)A:CC%CC%1:(A):50:"+[**************************************\";].nù32,1:33,38:34,BT:35,BB:BT1::772,Fc.xñ.ĖXP:YP:772,24:(PR$,LN);:772,28."CC%0:TI%1:RT$"".,ĢYP:XPCC%:16368,0.1A(16384):A12850225.3AA128:A31A48A5750300/6NA$(1)):PTSA%13((9(NA$(1)))2)ML:PT,((NA$(1),ML,1)):MLG--Pâ18:BT2:BB22:F(772):772,24:32,1:33,38:34,BT1:35,BB1:32,0:33,40:34,BT:35,BB3/.dâ1:1:"]**************************************^+":YY223:YY:40:"++":YY:23:4NA$(0)))2)ML:PT,((NA$(0),ML,1))n,ML1(NA$(1)):PTSA%3((11(NA$(1)))2)ML:PT,((NA$(0),ML,1))t,,SA%,PN%:SA%1,SN%,SA%2,TS%:SA%3,LV,ҌML1(NA$(O)):PTSA%3((10(NA$(0)))2)ML:PT,((NA$(0),ML,1)):MLA-܌ML1(000:3+8J34,0:1:20(PG$(MS))2:PG$(MS);:34,29+=JU+BJ33,38:(12);:33,39:+ ROUTINE TO GET NAMES AND INFO FROM DISK FILE+ˆPN%(SA%):SN(SA%1)+̈TS%(SA%2):LV(SA%3)+ֈNA$(0)"":NA$(1)""$,ꈁML1(NA$(O)):PTSA%3((12(";*758000:(12):6>*7"TWO PLAYERS: Twenty states per"g*7"game (10 states for each player)."*7"Players alternate turns. The"*7"timing option is not included."*7""*7"EXIT: Press the ESC key to exit"*7"from the game."+758try, and"+)F7"1 point for the third try."3)P7""\)Z7"ONE PLAYER: Choose the number of")d7"states you want (1-50). Press")n7"RETURN for 20 states. Select the")x7"timed or untimed version. Answers"*7"must be entered before time elapses.6"shown."(7"":( 7"GAME PLAY: For each state, four"e(7"cities are listed. You must select"(7"the one which is NOT a major city"((7"in that state. You will receive"(27"three tries: 10 points for the" )<7"first try, 5 for the second e ESC key to exit")'v4"from the game.";6'458000:H'6(12):50000k'611:1:" MAJOR CITIES GAME ";'614:3:"INSTRUCTIONS"'632,2:33,37:34,5:35,23'66'6"OBJECT: To select the city which"'6"is not a major city in the state" (nswers must"6&&4"be entered before time is up. You"^&04"may select from 1 to 30 seconds."f&:4""&D4"TWO PLAYERS: Players alternate"&N4"turns, each player receiving 10"&X4"turns. No timing option is included.";&b4""'l4"EXIT: Press thooklet for correct">%3"spelling. The second and third try"a%3"are the same as in Level 1."i%3""%3"ONE PLAYER: Choose the number of"%4"states you want (1-50). Press"%4"RETURN for 20 states. Select timed" &4"or untimed version. A"of three states (5 pts.). On the"I$3"second try, select the correct"m$3"state from the remaining two"$3"states (1 pt.)."$358000:(12):5$3"LEVEL 2: Enter the full state name"$3"on the first try (10 pts.). See"%3"instruction b: A state is displayed"?#63"with the state name at the top."g#@3"A question mark (?) is placed in"#J3"the location of the neighbor to be"#^3"identified."#h3""#r3" LEVEL 1: On the first try,"#|3"select the state name from a list"#$3(12):50000"28:1:8"2" NAME THE NEIGHBORS GAME ";S"214:3:"INSTRUCTIONS"q"232,2:33,37:34,5:35,23x"26"3"OBJECT: To name all the states which";"3"are neighbors of the state displayed""3"on the screen."""3""#,3"GAME PLAY0:(12)!06=!0"TWO PLAYERS: Twenty states are given";f!0"per game. Players take alternate"!0"turns. The timing option is not"!0"included."!0"!0""!0"EXIT: Press the ESC key to exit"!0"from the game."!058000: "2f"( 40"states you want (1-50). Press"N >0"RETURN to automatically get 20"z H0"states. Select the timed or untimed" \0"version. Answers not entered before" f0"time elapses are incorrect. You may" p0"select from 1 to 30 seconds."!05800e correct"2/" 2-letter abbreviation when the"Y/" state name is shown. You get"0" 10 points for the first try," 0" 5 points for the second, and"0" 1 point for the third try." 0""%0"" *0"ONE PLAYER: Choose the number oation"*/" is given. You must select"S/" the state name from a list of 3"}/" states. You get only two tries:"/" 5 points for the first try and"/" 1 point for the second try.";/58000:(12)/6: /" LEVEL 2: Enter th For the state name displayed,"@:/"you must give the correct"UD/"abbreviation."]N/""X/"GAME PLAY: For this game, the state"b/"names and abbreviations are"l/"displayed in large blue letters."v/""/" LEVEL 1: The state abbrevi2):50000/.9:1:" THE ABBREVIATION GAME ";J.3:14:"INSTRUCTIONS"h.32,2:33,37:34,5:35,23o/6/"OBJECT: In Level 1, you must identify";/"the state name for the abbreviation"&/"shown. Level 2 simply reverses the"0/"task. ,"TWO PLAYERS: Twenty states are given";P,"per game (ten states for each"z,"player). Players alternate turns.","The timing option is not included.","","EXIT: Press the ESC key to exit","from the game.",58000: .(1se the number of":j,"states to be given (1-50). Press"_o,"RETURN for 20 states. Select"t,"the timed or untimed version."~,"Answers must be entered before","selected time elapses. You may","select from 1 to 30 seconds.",""+ntire"+," capital city name. See the"T," instruction booklet for correct"q," spelling (10 pts.)."y$,"".," 2nd and 3rd try - Same as in"8," Level 1, first and second try."J,6L,58000:(12)V,""`,"ONE PLAYER: Choo"+" cities (5 pts.)."-+58000:(12)4+5M+" LEVEL 1 (cont.)"U+""{+" 2nd try - Select the capital"+" city from the remaining two"+" choices (1 pt.).+""+""+" LEVEL 2"+""+" 1st try - Enter the ee shown on"4+"the screen."&>+""QH+"GAME PLAY: For each state, you are"{R+"shown a map with the state name at"\+"the top."f+""k+""p+" LEVEL 1"z+""+" 1st try - Select the correct"+" capital city from a list of 3Press the ESC key to exit from";1")"the game.">,)58000:I*(12){+50000:6:1:" NAME THE CAPITAL CITY GAME "; +14:3:"INSTRUCTIONS"+32,2:33,37:34,4:35,23+6 +"OBJECT: To correctly name the" *+"capital city of the statYou may select from 1 to 30 seconds."7x(58000:(12)>(6l("TWO PLAYERS: Twenty states are given";("per game (ten states to each player).";("Players take alternate turns. The")"timing option is not included.")"" )"EXIT: "*2("ONE PLAYER: Choose the number of"P<("states you want. If you press"zF("RETURN, you will automatically get"P("20 states. Select the timed or"Z("untimed version. Answers not entered";d("before time elapses are incorrect."%n("For your first try, enter"A'"the entire state name. See the"h'"instruction booklet for correct"("spelling (10 pts.). The second and" ("third tries are presented exactly as"("described in Level 1, first and"("second try."(("'""0'"LEVEL 1: On your first try, select"Z'"the correct state name from a list"'"of 3 states (5 pts.) On the second"'"try, select the state name from the"'"remaining two states (1 pt.)."'58000:(12)'6:'"LEVEL 2: correctly identify the">L'"name of the state shown on the"MV'"screen."U`'""j'"GAME PLAY: For each turn, you are"t'"shown the outline of the state in"~'"question. Neighboring states are"'"labeled with the state abbreviation."ss the ESC key."- GO TO APPROPRIATE GAMEC:"RUN";PG$(RT)oRT10000,11000,12000,13000,14000,15000u{'(12)'50000:12:1:" NAME THE STATE ";$'14:3:"INSTRUCTIONS".'32,2:33,37:34,4:35,238'6:B'"OBJECT: To? (1-30) >">XP33:YP20CH50400:TS%(RT$):TS%1TS%30840b13:24:" Press RETURN ";32,0:33,40:34,0:35,2458000:(12)3600011:10"Getting the states."10:20"To exit from the game,"12"pre150400:SN%(RT$):(SN%1SN%50)RT$""650IRT$""SN%20:SN%[ TIMER STUFFf6:18"Timed or Untimed? (U/T) > ";59000:RT$"T"RT$"U"730RT$RT$"U"900  SECONDS PER STATE*5:20 4"Seconds per state LEVEL 0 9:13:" "> RT5600J 12:13c "Level 1 or 2? > "; 59000:LV(RT$):LV2LV1520 LV X NUMBER OF STATES. bPN%2SN%20:900 l6:16 v"How many states? (1-50) >" XP32:YP16:LN2E ENTRY 9:8) "Enter your name";: PN%2ĺ"s";I " here:";o 9:13:"Press RETURN when done." PN%2Ė5:10:"#1" XP16(PN%1)8:YP10:LN9 50200:NA$(0)RT$ PN%1500 22:10:"#2" XP25 50200:NA$(1)RT$ 59000:RT$"Y"RT$"N"320& ERT$D T32,0:33,40:34,0:35,24O ^(12)b cRT$"Y"İ1500 f32,0:33,40:34,0:35,24 g(12) h50000 r5:5 w"How many players? (1 or 2) > "; |59000:PN%(RT$):PN%2PN%1380 PN%  NAM"3 - Abbreviation Game"$ 5:12G "4 - Name the Neighbors Game"R 5:14o "5 - Major Cities Game"{ 11:24 " Choose a Number "; 59000:RT(RT$):RT1RT5270 5:RT24::RT;: ,8:19 6"Instructions? (Y/N) > "; @___________"# <NA$(0)" ": FNA$(1)" "E P36050c Z32,0:33,40:34,0:35,24n c(12)y d50000 i3 n17:1 x" MENU " 5:6 "1 - Name the State Game 5:8 "2 - Name the Capital City Game" 5:10 + 200029951&SA%21265/1:90:1P"BLOAD POINTERS"e"BLOAD SHAPE1"| "BLOAD FILL.OBJ" PR$"______________________"J15:PG$(J):JSP$" "(DS$".................." 2PR$"__________                  CITY,WAHIAWA,HILO,KAILUAY* POCATELLO,IDAHO FALLS,MOSCOW,TWIN FALLS,NAMPA,PULLMAN* CHICAGO,ROCKFORD,PEORIA,DECATUR,KANKAKEE,EVANSTON* FT. WAYNE,GARY,EVANSVILLE,SOUTH BEND,HAMMOND,MUNCIE+ CEDAR RAPIDS,DAVENPORT,SIOUX CITY,WARBURY,STAMFORD,NORWALK,NEW BRITAIN_)k WILMINGTON,LAUREL,EDGEMOOR,NEWARK,ELSMERE,STANTON)p JACKSONVILLE,MIAMI,TAMPA,ST. PETERSBURG,FT. LAUDERDALE,ORLANDO)u COLUMBUS,SAVANNAH,MACON,ALBANY,AUGUSTA,AMERICUS*z EWA,KOOLAUPOKO,PEARLYUMAN(W FORT SMITH,PINE BLUFF,JONESBORO,HOT SPRINGS,HARRISON,EL DORADO(\ LOS ANGELES,SAN DIEGO,SAN FRANCISCO,SAN JOSE,OAKLAND,PALM SPRINGS(a COLORADO SPRINGS,GREELEY,LAKEWOOD,PUEBLO,ARVADA,BOULDER")f BRIDGEPORT,NEW HAVEN,WATEEXAS,UTUTAH,VTVERMONT,VAVIRGINIA,WAWASHINGTON,WVWEST VIRGINIA,WIWISCONSIN,WYWYOMING'H BIRMINGHAM,MOBILE,HUNTSVILLE,TUSCALOOSA,SELMA,GADSDEN'M ANCHORAGE,FAIRBANKS,SITKA,KETCHIKAN,KODIAK,NOME(R TUSCON,MESA,TEMPE,FLAGSTAFF,SCOTTSDALE,A,MSMISSISSIPPI,MOMISSOURI,MTMONTANA,NENEBRASKA,NVNEVADA,NHNEW HAMPSHIRE,NJNEW JERSEY,NMNEW MEXICO,NYNEW YORK,NCNORTH CAROLINA,NDNORTH DAKOTA,OHOHIO,OKOKLAHOMA,OROREGON,PAPENNSYLVANIA,RIRHODE ISLAND,SCSOUTH CAROLINAS't SDSOUTH DAKOTA,TNTENNESSEE,TXTALALABAMA,AKALASKA,AZARIZONA,ARARKANSAS,CACALIFORNIA,COCOLORADO,CTCONNECTICUT,DEDELAWARE,FLFLORIDA,GAGEORGIA,HIHAWAII,IDIDAHO,ILILLINOIS,ININDIANA,IAIOWA,KSKANSAS,KYKENTUCKY,LALOUISIANA,MEMAINE,MDMARYLAND,MAMASSACHUSETTS%e MIMICHIGAN&j MNMINNESOT4$TM(252)(253)2564$RT%(255):RT$(RT%)N$RT%255TS%050550`$RT%2739000n$RT(RT$)$RT1RT459000$$l ROUTINE TO CLEAR AREA AT BOTTOM OF SCREE$vXX1822:XX:11:" ";:XX:10:%` #ޖ(20(MM$)2):MM$;:$#8000A#59000:RT$(13)58010h# DROP THROUGHT TO NEXT ROUTINE#772,24:24:10:"*************************";:16:772,28:#x ROUTINE TO GET A SINGLE CHAR#}16368,0$252,0:253,0:254,TS%:4454T%(J):CT%(J)CT%(CQ):CT%(CQ)CT%:J)"˱<"ڱ: NOT USED"TM$((TM.5)):3:392(TM$):780,192:770,2:TM$:780,0:770,0:"ܱ: NOT USED"ܹ32,33:2:772,24"T1$"]****^":T2$"+ +":T3$"[****\":T1$:T2$:T2$:T3$"ܹ32,0:772,28ST:STN!ǁST150:AR(50):BR(50):S2%S2%(A):S2%(A)S2%(B):S2%(B)S2%:STo!ǁST150:BP%ST,S2%(ST):ST!SQ%SN1:BP%,SQ%!ǫ51300!dȺ"BSAVE STATES.LST,A$600,L51"!nȱ! ˲ LIST 4 STATES!*ˁJ05:CT%(J)J:J#"4ˁJ05:CQR(6)1:CT%CRT$"": pƫ42000 zƱ= 8Dz ROUTINE TO GENERATE RANDOMP BDz STATES LISTW GǢ1p LǺ"BLOAD STATES.LST"} VBP%1536 `SQ%(BP%):SQ%SN4951100 jǁSTSQ%50:S2%(STSQ%1)(BP%ST):ST tSQ%SQ%SN:BP%,SQ% ~ǫ51300!ǁST150:S2%(ST) THIS DISPLAYS SCORE+}ĺ(3);"3";(5);PĖ10(2((SC%(0)))):20:SC%(0)|ĭPN%2Ė38(2((SC%(1)))):20:SC%(1)ĺ(18);ıvŲ TIMEOUT ROUTINEŖ16:23:"Time's up!";Ţ1:(7);:(7);Ű8700Ŗ16:23:" "; 2,1:33,38:34,BT:35,BB:BT1::772,FEù32,0:33,39:34,1:35,23ZÖ4:23:"SCORE";gíPN%1ı}Ö32:23:"SCORE";ñHC(7I29((NA$(I)))2)ĖHC:18ĺNA$(I)"Ė31:18:NA$(1),ıJĖ229PL%:18TĺNA$(PL%){ı|IJ ,BT1:35,BB1:32,0:33,40:34,BT:35,BB3Ö3:19:"]******^":10:20:"+":10:21:"+":3:20:"+":3:21:"+":3:22:"[******\"íPN%1ī50120Ö31:19:"]******^":38:20:"+":38:21:"+":31:20:"+":31:21:"+":31:22:"[******\"'ù334,BT:35,BB3dâ1:1:"]**************************************^+":YY223:YY:40:"++":YY:23:40:"+[**************************************\";nù32,1:33,38:34,BT:35,BB:BT1::772,Fxñ+â18:BT2:BB22:F(772):772,24:32,1:33,38:34TO PLOT THE NAME OF THE STATE AT THE TOP OF THE SCREENi櫢2:2:" "ST$(ST$(ST%),3,14):S1%(ST$)22:20S1%2:MB$;ST$;NR$:Pâ18:BT2:BB22:F(772):772,24:32,1:33,38:34,BT1:35,BB1:32,0:33,40:X%,ZY%,ZS%GZS%252ZS%17GHZX%0ĖZX%:ZY%:(ST$(ZS%),2):ZBPP""VZ{ ROUTINE TO ERASE STATE AREA2:2:" "3$ZZ214:" ":3:ZZ.6૲ ROUTINE XO,(Y%128)YO:40180(꜓X%XO,Y%YO3A:FIFQQ%11İ12000XQQ%2İ12100gQQ%22ı249,60:250,0:251,37:31,1:FI( ROUTINE TO DRAW BORDER STATES-10:2"READ BORDER STATES,R";ST%";:59000:RT(RT$):RT1RT337060ɐRTΐRT1ĬؐRT2ĺ:"RUN M ROUTINE TO GET NAMES AND INFO FROM DISK FILEOˆPN%(SA%):SN(SA%1)l̈TS%(SA%2):LV(SA%3)ֈNA$(1)"":NA$(0)""PTSA%4SA%12:NA$(0)NA$(0)((PT)):NA$(1)NA$(1)((PT10)):PTꈱ32,0:33,40:34,0:35,24:(12):50000,84:251,700/FIC/,D/ FILL KODIAK=N/31,1:250,0QX/249,63:251,98Yb/FI_/e/u0uTM(PL%)TM(PL%)PTTI:uSC%(PL%)SC%(PL%)SC?u50300DuCR%0:SC10CR%1Iu38000XuPN%1TMTM(PL%):56000buPN%2PL%1PL%lu4410000s'%*:12:18RT:RT:+[+>. FILL HAWAIIO.31,1:250,0c.249,48:251,40k.FI.249,43:251,50.FI/249,68:251,52/FI /249,70:251,62/FI/249,73:251,71/FI!/249,77:251,58&/FI +/2496384):A1288005FAA1280GA13İ58500:@HA2739000UJA127Ĺ16368,0_T8005s! 'AUTO RETURN~!58500"16368,0"J1"JJ1"(16384)141ı"(16384)155ī39000"J708710_"'59000:RT(RT$):RT1RT "VH`SC%(0)SC%(1)PL%0:50250::14:20:NA$(0);" WON!"jSC%(0)SC%(1)PL%1:50250::12:20:NA$(1);" WON!"tSC%(0)SC%(1)ĝ:16:20:"TIE GAME!"~58000::(12):@14:24:" Press RETURN ";B16368,0EA(1 g570004l18:MM$(ST$(RS%),3,14):57000:".">8000I50800T5950016:3:" "PN%2İ50200TRPN%2İ110039000L:I0:50200:I1:50200Q3:16:" 5 N58500:13:17:" Wrong again. ":8700:SC0:600L X CORRECT ANSWERW Y58500b [30000 ]14:18SB%::CT$(RS%,RC%)::8700 `13:17:" "b59500:16:2:" ":16:MM$CT$(RS%,RC%)" is in"14:24:" Try again. ";$ 59000; !TS%0TMTS%555n &11000:RTSB%SC5:15:17:"Very good!":600t + 013:24:" One last try. "; 559000:TS%0TMTS%SC0:600 :11000:RTSB%SC1:13:17:"That's right!":600 D LOSER CITY(4):CL14# 18CL:12:CL;" ";B CLSB%ĺCT$(RS%,RC%):500] CT$(ST%,CT%(CL)):500e CL 16:03:"Choose the city not in this state:" 59000:TS%0TMTS%525 11000:RTSB%SC10:16:17:"Right!":600  CR%0:38000 1:11:" MAJOR CITIES GAME "' J501002 T50300D ^PN%1İ56500O h50200n rPL%0: PLAYER 1 STARTS |TR1SN:ST%S2%(TR) STST% 40000 44000 PN%2Ğ:50250: RS%R(50):RS%ST%430 RC%R(6)1 52000 SB%RSP$" "C MB$(23)(3)"1":NR$(18)Q HM$(12)j R(RZ)((1)RZ)1 SC%(0)0:SC%(1)0 ""BLOAD STATES.OBJ" ,ST150:ST$(ST):ST 1ST150:CT05:CT$(ST,CT):CT,ST 651000 7HM$ 850000 :, 5000c MAJOR CITIES*d299513f1:Ri"OPEN BORDER STATES,L60"anSA%21265nsFI30104{uLC31744xTC135ST$(50),S2%(50),SS%(50),RT%(20),RS%(50),CT$(50,5)35000LV2DL%100PR$"__________________""                 0L@` g RgƖ8PgPQhQghe Ӣi  g y  gh^_8^eP^ȱ^ eQ^^_Ll8ePeQ`L   3276760!1012,0D:16302,0:"BLOAD PIC.LOGO"X HELLO PROGRAMi I12000:I}"BLOAD TIMER""BRUN LOMEM:":16384"BRUN HIGHER TEXT"#15:12:"LOADING..."("RUN MENU"2(222)4ī33= 87:2: *U*U*U* .""""< <"""<">$ "" &"""  "" ****$$$$"""$$0&< ,""""**"""$>>   *U"":*:<"">""$$$$$$$$$$$>$ $>>$ "2"<""">"""8 "  "$>"6*""""""&*2"""""""$$"""*,"" "" ">*"""""""""""""**"""""">"">>> >00000>* i @0 66$>>< (&20 *,  **> > "2*&" " >>  ">> "8""> """"""<  >> LKxHHD+(DA/(Dq'  I)(H  p闠 y) 񗰐 z$ r0θ4KHH0t# p y0p 9G @0ɩL[hHHϸȸI^hHHoTDDɉɋɏZ $ H h .#` L}%J u H h d #` L Q ; #` Q #`#2 '( H() 1 eȱm)h`JJ`#JȱJLh `#  <(eΨ =)eϰ%Hh>?iJK̅  1& ')*& "'JJ) ""% m% ʥ0)J!m%! `JJJJS) PI ȄR%*QTU'T8ePT UeRU QJJJ`JJJJS) PI ȄR%*QTU'T8ePT UeRU QJJJ`00', "&,i8i#H&ii&hif&i'`'i, &i,. &iPII&&if&H !"hH8 H!S hIiHSQUhPTh !"IiR"fS8PQ% 8TeRTUU&E%0Q&&kS TePTUeQPفŴxaIL VX@& )`" !H)&JJ&&h' &' &' f&') &'#i%0J$)` .Q&%0Q&&`$0JI0`'0% I`0 I0ܩ(ߠQ)'%01&*%0Q)&E%0*Q&&QeS)j"REMOVE";:9:2:"WRITE PROTECT TAB";:11:2:"AND RESTART";E 957N <50e >:(4)"LOCK NAME"~ ?:(4)"UNLOCK NAME" @3 d1012,0 n4)4d4 d1012,0 n47ʠҷϠƠ٠ԠϠҠӸĠҷĠРٶ̱̠ҬӸĠĠ ҷĠӠ٠̠Ӹ͠ ҷĠвȠӠ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ƹ  !!!!!!!"""""""#######$$$$$$$%%%%%%%&&&&&&&''''''' @ @ @ @PPP                        @& Lu4 Lu- u uL+v) uFfyz`Ff` ((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPu;Gvw Fv$xy wx I1``Q`Gvw Fv xyLruwx1)``xIxkyIky`)xLux uyzyz u u u u`ɌF    ***";:16:772,28:=*x ROUTINE TO GET A SINGLE CHARK*}16368,0m*252,0:253,0:254,TS%:44544{*16368,0*CH1282739000*TM(252)(253)256*RT%(255):RT$(RT%)*RT%25550550*RT%2739000*RT(RT$) +RT1EN STATES.LST":"WRITE STATES.LST":SQ%B) ȁST150:S2%(ST):ST])Ⱥ"CLOSE STATES.LST":)dȺ"BSAVE STATES.LST,A$600,L51")nȱ)8000)59000:RT$(13)58010) DROP THROUGHT TO NEXT ROUTINE*772,24:24:10:"********************%(STSQ%1)(BP%ST):ST1(tSQ%SQ%SN:BP%,SQ%<(~ǫ51300X(ǁST150:S2%(ST)ST:ST(ǁST150:AR(50):BR(50):S2%S2%(A):S2%(A)S2%(B):S2%(B)S2%:ST(ǁST150:BP%ST,S2%(ST):ST(SQ%SN1:BP%,SQ%(ǫ51300()Ⱥ"CLOSE STATES.LST":"OPRONALD":NA$(1)"MARY ANNE"1'NA$(0)"JOSEPHINE"7'ű='pƲf'zƁYYY1Y2:X1:YY:(SP$,X2X1);:YYl'Ʊ'8Dz ROUTINE TO GENERATE RANDOM'BDz STATES LIST'GǢ5'LǺ"BLOAD STATES.LST"'VBP%1536'`SQ%(BP%):SQ%SN4951100(jǁSTSQ%50:S2C%)A:CC%CC%1:(A):504207&vŲ TIMEOUT ROUTINEG&{TMTS%:RT1b&Ŗ16:23:"Time's up!";w&Ţ1:(7);:(7);&Ű8700&Ŗ16:23:" ";&RT$"":&Ų SN,PL,NA$&PN%1&SC%(0)0:SC%(1)0:TM(0)0:TM(1)0&PN%2'NA$(0)"550%ĭA3150500#%ĭA2739000f%ŭA8CC%0CC%CC%1:XPCC%:772,24:(PR$,1);:772,28:50420~%ŭA13ĺ"";:50420%Ź16368,0%TMTCTI%:CC%0RT$"":%!RT$""%&ŁZ0CC%1:RT$RT$(RT%(Z)):Z:%DŭCC%LN1ĺ"";:50420&NRT%(C);$ĭPN%1ī50340'$ĭSC%(1)10Ė369$ĭSC%(1)9Ė34L$ĭSC%(1)99Ė32]$Ģ20:SC%(1);h$Ĺ780,0n$ı$ĖXP:YP:772,24:(PR$,LN);:772,28$Ĺ16368,0$CC%0:TI%1:RT$"":252,0:253,0:254,TS%$ĢYP:XPCC%%Č44544:A(255):A25550:33,39:34,1:35,23)#Ö4:23:"SCORE";6#íPN%1ıL#Ö32:23:"SCORE";R#ñp#HC(7I29((NA$(I)))2)|#ĖHC:18#ĺNA$(I)#{ı#|IJ THIS DISPLAYS SCORE#}ĺ(3);"3";(5);#ĭSC%(0)9Ė6#ĭSC%(0)99Ė4#ĭSC%(0)10Ė8$Ģ20:SC%(03:19:"]******^":10:20:"+":10:21:"+":3:20:"+":3:21:"+":3:22:"[******\"h"íPN%1ī50120"Ö31:19:"]******^":38:20:"+":38:21:"+":31:20:"+":31:21:"+":31:22:"[******\""ù32,1:33,39:34,BT:35,BB:BT1::772,F#ù32,0******************^+":YY223:YY:40:"++":YY:23:40:"+[**************************************\";!nù32,1:33,39:34,BT:35,BB:BT1::772,F!xñ!â18:BT2:BB22:F(772):772,24:32,1:33,38:34,BT1:35,BB1:32,0:33,40:34,BT:35,BB3V"Ö 2"READ BORDER STATES,R";ST%4 ";:8102:RT1RT337060^ǐ28:18fɐRTrΐRT1ĬؐRT2ĺ:"RUN MENU"␭RT363000pSS%(ST%)2(PL%1)CR%zX ROUTINE TO DO SCORING PAGE]32,1:33,38CbPL1PN%:1)"":NA$(0)""YPTSA%4SA%12:NA$(0)NA$(0)((PT)):NA$(1)NA$(1)((PT10)):PT_ꈱs:(12):500004:05:"Do you want to:"::32,7:33,30::" 1. Play this game again":" 2. Go back to Menu":" 3. Quit"}14:20A::CA$(S2%(X)):^}12:18:" That's right! ";:SC%(I)SC%(I)1:50300:8700 }X112:Y118:X230:Y222:50800c} ROUTINE TO GET NAMES AND INFO FROM DISK FILEˆPN%(SA%):SN(SA%1)̈TS%(SA%2):LV(SA%3)ֈNA$(1:33,39:34,BT:35,BB:BT1::772,FBv32,0:33,39:34,1:35,23Hvny THIS IS WHEN RIGHT SECOND TIMEy14:20A::CA$(S2%(X)):"y12:18:" Very good! ";1ySC%(I)SC%(I)5:503006y8700@yX112:Y118:X230:Y222:50800{y/)0u WHAT TO DO IF ANSWER IS RIGHT?:u18:21:"Right!"TNuSC%(I)SC%(I)10_Xu50300euu18:(18);:BT2:BB22:F(772):772,24:32,1:33,38:34,BT1:35,BB1:(18):32,0:33,40:34,BT:35,BB3v12:24:"******************";$ v32,:251,40.FI$.249,43:251,50,.FI@/249,68:251,52H/FI\ /249,70:251,62d/FIx/249,73:251,71/FI!/249,77:251,58&/FI+/249,84:251,700/FIC/D/ FILL KODIAKN/31,1:250,0X/249,63:251,98b/FI000j%QQ%2İ12100Bl%QQ%22Ĺ249,60:250,0:251,37:31,1:FIV& FLASH CAPITOLa&41000x&FL15:1CX%,CY%&ZZ1DL:ZZ:1CX%,CY%&ZZ1DL:ZZ:FL&1CX%,CY%&'(12):50000. FILL HAWAII.31,1:250,0.249,48Y% #A#QQ%119117 #(#FIU#QQ%22Ĺ249,60:250,0:251,37:31,1:FI_#9900e#t%LN(AD1)&%STAD4:ENADLN220%ASTEN2:%X%(A):Y%(A1)D%Y%127ēX%XO,Y%128:9560N%X%XO,Y%X%Ab%FIg%QQ%11İ12%(AD2):CY%(AD3):@#249,CX%2:250,0:251,CY%:31,1UF#MO19500: 256X128jP# 128X256 MODEU#CX%(AD2):CY%(AD3)Z#LN(AD1)d#STAD4:ENSTLN22n#ASTEN2x#X%(A):Y%(A1)#X%127ēX%XO128,Y%:9110#X%XO,T38102"! 'AUTO RETURN-!30200;"16368,0H"J1100]"(16384)141ıw"(16384)155ī39000~"J_"'#(# ROUTINE TO PLOT THE STATE-#QQ%ST2#AD(LC(ST2))256(LC1(ST2))<#MO(AD): MODE BYTE>#CX";B16368,0,EA(16384):A12880058FAA128KGA13İ58500:\HA27ī39000qJA127Ĺ16368,0{T8005TS%0ī5900016368,0RT(16384):RT128810316368,0RTRT128RT27ī39000RT((RT)):RT1R1İ32000:999/12:18:" Wrong again. "98700Z12:18:" The answer was: "z14:20A2::CA$(S2%(X)):14:24:" Press RETURN ";:8000:30200:X111:Y118:X230:Y222:50800999:(12):?@14:24:" Press RETURN f12:24:" Enter a number. ";)kA2A:p8100:30200RuTS%0TMTS%2195gz12:19RT::RTmRTA1CR%1:38000:31000:999CR%0:3800014:24:" Try again. ";:8100TS%0TMTS%225012:19RT::RT: RTA12:20:NA$(1);" WON!"@tSC%(0)SC%(1)ĝ:16:20:"TIE GAME!"R~58000:39000a LEVEL 1412:18:" Multiple choice.">AR(3)1HS2%(X)1S2%(X)2A0RS2%(X)49S2%(X)50A2\ZQ02:12:20ZQ:ZQ1;" ";CA$(ZQS2%(X)A):ZQ "X+PN%21100639000RL:I0:50200:I1:50200Q3:16:" "U:I0:50200:I1:50200V`SC%(0)SC%(1)I0:50200::14:20:NA$(0);" WON!"jSC%(0)SC%(1)I1:50200::RT:RTA1İ32000:999E12:18:" Wrong again. ";:8700Km12:18:" The answer was: "14:20A2::CA$(S2%(X)):ST%S2%(X):CR%0:380008000:30200:X111:Y118:X230:Y222:50800502002:2:" 02:12:20ZQ:ZQ1;" ";CA$(ZQS2%(X)A):ZQO 12:24:" Enter a number. ";X A2Ai 8100:30200 TS%0TMTS%702 12:19RT::RT  RTA1İ31000:999 14:24:" Try again. ";:8100 TS%0TMTS%71212:19RT::A$(S2%(X))İ30000:8700:X111:Y118:X230:Y223:50800:999Q X17:21:"Sorry."[ ]8700~ bX112:Y118:X230:Y223:50800 gCR%0:38000 q12:18:"Here is some help." vAR(3)1 {S2%(X)1S2%(X)2A0 }S2%(X)49S2%(X)50A2- ZQТ1:& 20((ST$(S2%(X)),3,14)):29 (23);(3);1;R (ST$(S2%(X)),3,14) (18):5:16:"What is the CAPITAL CITY name?" LV1ī2000 14:24:" Press RETURN "; :XP14:YP18:LN14:50400 30200 TS%0TMTS%610; RT$CME THE STATE CAPITAL GAME "& 501005 I0:50200K PN%2I1:50200V 50300b X1SN X13:Y12:Y215:X232:50800 PN%2(X2)X2I1:240 I0 CONTINUE ON ST%S2%(X):PL%I PN%2Ğ:50200: STS2%(X):9000 135:NC135& <R(ZZ)((1)ZZ)1; FS1%(50),S2%(50)U PSC%(1),TM(1),RT%(40)r QST$(50),CA$(50),SS%(50) SX150:ST$(X):X UX150:CA$(X):X V `35000 d51000 i32,0:33,40:34,0:35,24 k(12):50000 n5:1 x" NA:( 500029952!10:CPR$"_______________________"M10:f"BLOAD STATES.OBJ"uSA%21265"OPEN BORDER STATES,L60"0:1#DL100:FI30104$LC31744(SP$" " 2XO0:YO129:TC                 !!!     0420[vŲ TIMEOUT ROUTINE+[xź(18);=[{TMTS%1:RT1X[Ŗ16:23:"Time's up!";m[Ţ1:(7);:(7);[Ŗ16:23:" ";[Ŗ10:10:[RT$"":[Ų INITIALIZING ROUTINE[PN%1[SC%(0)0:SC%(1)0:TM(0)0:TM(1)0[PN%2:LV1\550550ZĭA3150500'ZĭA2739000lZŭA8CC%0CC%CC%1:XPCC%2:772,24:(PR$,1);:772,28:50420ZŭA13ĺ"";:50420ZŹ16368,0Z!RT$""Z&ŁZ0CC%1:RT$RT$(RT%(Z)):Z:ZDŭCC%LN1ĺ"";:50420[NRT%(CC%)A:CC%CC%1:(A):50);YĭPN%1ī50340(YĭSC%(1)10Ė36:YĭSC%(1)9Ė34MYĭSC%(1)99Ė32^YĢ20:SC%(1);jYĺ(18);pYıYĖXP:YP:772,24:(PR$,LN);:772,28YĹ16368,0YCC%0:TI%1:RT$"":252,0:253,0:254,TS%YĢYP:XPCC%2ZČ44544:A(255):A250:33,39:34,1:35,23*XÖ4:23:"SCORE";7XíPN%1ıMXÖ32:23:"SCORE";SXñqXHC(7I29((NA$(I)))2)}XĖHC:18XĺNA$(I)X{ıX|IJ THIS DISPLAYS SCOREX}ĺ(3);"3";(5);XĭSC%(0)9Ė6XĭSC%(0)99Ė4XĭSC%(0)10Ė8YĢ20:SC%(3:19:"]******^":10:20:"+":10:21:"+":3:20:"+":3:21:"+":3:22:"[******\"iWíPN%1ī50120WÖ31:19:"]******^":38:20:"+":38:21:"+":31:20:"+":31:21:"+":31:22:"[******\"Wù32,1:33,38:34,BT:35,BB:BT1::772,FXù32,3:YY:40:"++":YY:23:40:"+[**************************************\";wVnù32,1:33,38:34,BT:35,BB:BT1::772,FVwù32,1:33,38:34,1:35,23VxñVâ18:BT2:BB22:F(772):772,24:32,1:33,38:34,BT1:35,BB1:32,0:33,40:34,BT:35,BB3WWCL%0:39040+UCL%0RW%7ST51İ80003UƘPL>UИ37000[U(A$)1(A$)240080aUOóUPâ18:BT2:BB22:F(772):772,24:32,1:33,38:34,BT1:35,BB1:32,0:33,40:34,BT:35,BB3IVdâ1:1:"]**************************************^+":YY221);:PN%1Ė26:"MAXIMUM: ";SN5LV@Tg14:5:"STATES MISSED"sTlCL%0:RW%7:ST150:SS%(ST)PL2ĂST:39100TvCL%183:RW%:(ST$(ST),3,14);:RW%RW%1:RW%21RW%7:CL%CL%1:CL%239060TSTT39100 U8000:34,6:35,22:(12);:RW%7:RUN MENU"S␭RT3630005SpSS%(ST%)2(PL%1)CR%;Sz_SX ROUTINE TO DO SCORING PAGEpS]32,1:33,38wS^1S`(18)SbPL1PN%:32,1:33,38:34,1:35,23:1:(12):50000:13:1:" FINAL REPORT "$Td1:3:NA$(PL1);:14:"SCORE: ";SC%(PL)R4:05:"Do you want to:")R::YR32,7:33,30::" 1. Play this game again"vR:" 2. Go back to MenuR:" 3. Quit"RĐ4:18:"Enter a number >";:8102:RT1RT337060RŐ32,1:33,38Rǐ28:18RɐRTRΐRT1Ĭ SؐRT2ĺ:" ROUTINE TO GET NAMES AND INFO FROM DISK FILELQˆPN%(SA%):SN(SA%1)iQ̈TS%(SA%2):LV(SA%3)QֈNA$(1)"":NA$(2)""QPTSA%4SA%12:NA$(0)NA$(0)((PT)):NA$(1)NA$(1)((PT10)):PTQꈱQ50000R32,1:33,38:34,1:35,23:(1220A::(ST$(S2%(X)),3,14):@P"y12:18:" Very good! ";[P1ySC%(I)SC%(I)5:50300aP6yP@yX112:Y118:X230:Y222:50800P{yP}12:18:" That's right! ";:SC%(I)SC%(I)1:50300P}14:20A::(ST$(S2%(X)),3,14):P }50200Pc}1QONu50300OXu26000OuzOu18:BT2:BB22:F(772):772,24:32,1:33,38:34,BT1:35,BB1:32,0:33,40:34,BT:35,BB3Ov12:24:"******************";O v32,0:33,39:34,BT:35,BB2:BT1::772,FOvOy THIS IS WHEN RIGHT SECOND TIMEPy14:) Ne8700NeNeDR(4)GNe8:14:" "_Ne20(WW$(D))2:14kNfWW$(D)uNf8700Nf20(WW$(D))2:14:" "NWfN0u WHAT TO DO IF ANSWER IS RIGHT N5uCR%1:38000N:uSC%(I)SC%(I)10 YP9:LN14MN%50400MX%A:0M'(12):50000\M N14:24:" Press RETURN ";:8000:30200~M%NX12:Y114:X239:Y216:50800M*NMaRT$S3$CC%1:MaCC%0M bMeDR(4)Me8:14:" ";Me20(RW$(D))2:14NeRW$(D:YP10:LN2LZ#50400 L_#TMTI+Ld#(18)1Ln#GLx#X%(A):Y%(A1)gL#X%127ēX%XO128,Y%:9110vL#X%XO,Y%}L#AL#L% ABR FIRSTL0%(5):(3);4;L5%2:9L:%S2$;:(18);:" ";:(5);:(3);4;:">" MD%XPHC((ST$(S2%(X)),2))24:39000 K"JK_"K'#,K(# PLOT ST / AB3K*#1EK-#(5):(3);4UK2#LV1ī1500K3#S2$(ST$(S2%(X)),3,14):S3$(ST$(S2%(X)),2)K7#HC%16(S2$)K:#HC%:10K<#S2$;:(18);:" ";:(5);:(3);4;:">";KP#1:(5);:(3);4; LU#XPHC%(S2$)240 JT8005JTS%059000+J16368,0IJRT(16384):RT1288103WJ16368,0eJRTRT128wJRT27ī39000JRT((RT)):RT1RT38102JJ! 'AUTO RETURNJ!30200J"16368,0J"J1100J"(16384)141ıK"(16384)15500#I12:18:" The answer was: "JI14:20A::(ST$(S2%(X)),3,14):UI20000^I999mI:(12):sI?I@14:24:" Press RETURN ";IB16368,0IEA(16384):A1288005IFAA128IGA13İ58500:IHA27ī39000JJA127Ĺ16368,0TMTS%2195$Hz12:19RT::RT*HUHRTA1CR%1:38000:31000:8700:999fHCR%0:38000H14:24:" Try again. ";:8100HTS%0TMTS%2230H12:19RT::RT:HRTA1İ32000:8700:999H12:18:" Wrong again. "I87 G(18)GG LEVEL 1@G412:18:" Multiple choice."NG>AR(3)1iGHS2%(X)1S2%(X)2A0GRS2%(X)49S2%(X)50A2G\ZQ02:12:20ZQ:ZQ1;" ";(ST$(ZQS2%(X)A),3,14):ZQGf12:24:" Enter a number. ";Gp8100:30200HuTS%FU:I0:50200:I1:50200"FVZF`SC%(0)SC%(1)I0:50200::14:20:NA$(0);" WON!"FjSC%(0)SC%(1)I1:50200::12:20:NA$(1);" WON!"FtSC%(0)SC%(1)ĝ:16:20:"TIE GAME!"F~58000:F(5):(3);4;:F19:11F(ST$(S2%(X)),2)300:26000:999E26100fE12(S3$)2:14:"The answer was ";(23);(3);"3";S3$;(18);".";:8000lEwE50200E20005:LV1İ31040EXEPN%2İ1100E39000EL:I0:50200:I1:50200FQ3:16:" "RT$S3$İ30000:999D261008D15:14:"Try again."IDCR%0:38000SD9040jDTS%0TMTS%670DRT$S3$SC%(I)SC%(I)5:50300:26000:999D26100D16:14:"Last try."D9040DTS%0TMTS%695ERT$S3$SC%(I)SC%(I)1:50:"and press RETURN.":200BC11:6:"STATE":8:"ABBREVIATION:"NCX1SNeCST%S2%(X):PL%I1CX12:Y110:Y212:X239:50800CPN%2(X2)X2I1:240CI0CST%S2%(X):PL%ICPN%2Ğ:50200:C9000CTS%0TMTS%517D,0:33,40:34,0:35,24'BiPN%2SN209Bk(12):50000DBn6:1:hBx" NAME THE ABBREVIATION GAME "sB}16:3B~"LEVEL "LVB50100BI0:50200BPN%2I1:50200B50300B8(2LV)2:5CLV2Ė3:6:"Type in the abbreviation":7S)((1)ZS)1MA(SP$" "nA2XO10:YO129:TC135:NC135A<R(ZZ)((1)ZZ)1AFS1%(50),S2%(50)APSC%(1),TM(1),RT%(40)AQST$(50),SS%(50)ASX150:ST$(X):XA`35000Ad51000Bf32e# @5000@29951&@SA%21265H@PR$"_______________________"@ RW$(1)"Fantastic!":RW$(2)"Congratulations!":RW$(3)"Excellent!":RW$(4)"Very good!"@ WW$(1)"No.":WW$(2)"Incorrect.":WW$(3)"That's not it.":WW$(4)"Wrong answer."AR(Z""" " " " " """""""""!!! ! ! ! ! !!!!!!