L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 CcˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`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- ( t Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` d ֠z# u`&t "AMMUNITION";&~ 23301& B(B23P50)C& "CLOTHING ";M& 2330[& CC23P{& "MISCELLANEOUS SUPPLIES ";& 2330& M1M123P& MM45& 2720& *** HUNTING ***& B392570' "TOUGH --- YOU NEED MORE BULLETS TO GO FOOD ";=% 2330G% 2410X% P:P02400b%. TTPq%8 T02400%B "YOU DO NOT HAVE THAT MUCH MONEY --- KEEPYOUR SPENDING DOWN, YOU MISS YOUR CHANCE TO BUY THAT ITEM"%L TTP%V P0%` &j FF23P$X32260$B392260`$:"TOUGH --- YOU NEED MORE BULLETS TO GO HUNTING"j$2170y$X1X1(1)$X2290,2540,2720$ *** STOPPING AT FORT***3%"ENTER WHAT YOU WISH TO SPEND ON THE FOLLOWING NUE""#*X$:(X$)1(X$)32090.#4X(X$)?#RX(X):2270M#fX3:2270#z:2:"DO YOU WANT TO: 1 - HUNT 2 - CONTINUE"#X$:(X$)1(X$)22180#X(X$)#X12210#X2$XX1M1,T::.""PRESS TO CONTINUE...";H"QQ$:(QQ$)132051N"^" X112170m"X1X1(1)v":2# :"DO YOU WANT TO: 1 - STOP AT NEXT FORT 2 - HUNT 3 - CONTIILEAGE IS ";M;" WITH ";2040M;" TO GO":2040]!"TOTAL MILEAGE IS 950 WITH 1090 TO GO":M90":"FOOD","BULLETS","CLOTHING":"----","-------","--------":F,B,C::"----------------------------------------":"MISC. SUPP.","CASH":"-----------","----":850B 0"YOU'D BETTER DO SOME HUNTING OR BUY FOOD, AND SOON!"w :F(F):B(B):C(C):M1(M1):T(T):M(M):M2M S411950 K811950 1990 TT20:T15080 "THE DOCTOR BILL WAS $20" K80:S40 M912020,!"TOTAL MDECEMBER 20 ";:1720"YOU HAVE BEEN ON THE TRAIL TOO LONG. ---- YOUR FAMILY DIES IN THE FIRST BLIZZARD OF THE WINTER.":5170"1847"F01770F0B01790B0C01810C0M101830M10 &F131LY 19 ";:1720&"AUGUST 2 ";:1720?"AUGUST 16 ";:1720X"AUGUST 31 ";:1720t"SEPTEMBER 13 ";:1720"SEPTEMBER 27 ";:1720""OCTOBER 11 ";:17206"OCTOBER 25 ";:1720J"NOVEMBER 8 ";:1720^"NOVEMBER 22 ";:1720r"90,1410,1430,1450,1470,1490XD3101510,1530,1550,1570,1590,1610,1630,1650,1670,1690p"APRIL 12 ";:17202"APRIL 26 ";:1720F"MAY 10 ";:1720Z"MAY 24 ";:1720n"JUNE 7 ";:1720"JUNE 21 ";:1720"JULY 5 ";:1720"JU":830BB50U:"AFTER ALL YOUR PURCHASES YOU NOW HAVE ";T;" DOLLARS LEFT"]:}"MONDAY, MARCH 29, 1847":1750M20405430 ***SETTING DATE***D3D31:"MONDAY ";D3101300 D31310,1330,1350,1370,13 MISCELLANEOUS SUPPLIES? ";M1$1B(M1$)01110BGM1((M1$))lL(M1$)0(M1$)(700AF(C$))1130V"IMPOSSIBLE":1080jT700AFBCM1tT01170yA0:F0:B0:C0:M10~"YOU OVER SPENT -- YOU ONLY HAD $700 TO SPEND. BUY AGAIN$)CM1)1020$"IMPOSSIBLE":9808B((B$)):860x:"HOW MUCH DO YOU WANT TO SPEND ON CLOTHING? ";C$(C$)0(C$)(700AF(C$)BM1)1070$"IMPOSSIBLE":1030.C(C$):8608:"HOW MUCH DO YOU WANT TO SPEND ON :"HOW MUCH DO YOU WANT TO SPEND ON FOOD? ";F$[(F$)0(F$)(700AB(F$)CM1)960r"IMPOSSIBLE":930F((F$)):860:"HOW MUCH DO YOU WANT TO SPEND ON AMMUNITION ($1 BUYS 50 BULLETS)?";B$ (B$)0(B$)(700AF(B:S40:F10:F20:M0:M90:D30%>:mR"HOW MUCH DO YOU WANT TO SPEND ON YOUR OXEN TEAM (200-300)? ";A$S(A$)0(A$)200(A$)300ĺ"NOT POSSIBLE!!":850[A((A$)):865\:"YOU HAVE ";700AFBCM1;" DOLLARS LEFT"]a860.ES":"ENTER ONE OF THE ABOVE -- THE BETTER YOUCLAIM YOU ARE, THE FASTER YOU'LL HAVE TOBE WITH YOUR GUN TO BE SUCCESSFUL. ";D9$:D9$""735(D9$)1(D9$)5735D9(D9$)D9(D9) 810  *** PURCHASES ****X114K80-BITE SINCE YOU HAVE NO MEDICINE":5170>647106"WAGON GETS SWAMPED FORDING RIVER -- LOSEFOOD AND CLOTHES":FF30:CC20:MM2020(1):47106"WILD ANIMALS ARE ATTACKING!!! ":61406B39441007"YOU WERE TOO LOW ON BULLETS -OD AND SUPPLIES DAMAGED ":FF40:BB400:M1M1(1)83:MM15:47105^"LOSE YOUR WAY IN HEAVY FOG --- TIME IS LOST":MM105(1):47105|"YOU KILLED A RATTLE SNAKE AFTER IT BIT YOU":BB10:M1M15:M10428046"YOU DIE OF SNAKE0N4"YOU GOT SHOT IN THE LEG --- AND THEY TOOK ONE OF YOUR OXEN":K8K814"BETTER HAVE DOC LOOK AT YOUR WOUND":M1M15:AA20:47104"QUICKEST DRAW OUTSIDE OF DODGE CITY!!! --- YOU GOT 'EM!!":4710E5""THERE WAS A FIRE IN YOUR WAGON -- FOT":FF10:BB500:M1M115:MM10(1)5:4710S3x"BANDITS ARE ATTACKING !":6140a3BB20B1p3B040303"YOU RAN OUT OF BULLETS AND THEY GOT A LOT OF YOUR CASH. YOU NOW HAVE $";(T3100)1003T(T3100)100340404B11.5410D TIME LOOKING FOR IT":MM17:4710u2"YOUR SON GETS LOST --- SPEND HALF THE DAY LOOKING FOR HIM":MM10:47102 "UNSAFE WATER -- LOSE TIME LOOKING FOR CLEAN SPRING":MM10(1)2:47102(M9504490.32"HEAVY RAINS -- TIME AND SUPPLIES LOSt"OX HURTS ITS LEG --- SLOWS YOU DOWN RESTOF WAY"E1~MM25:AA20O147101"BAD LUCK --- YOUR DAUGHTER BROKE HER ARM. YOU HAD TO STOP AND USE SUPPLIES TOMAKE A SLING."1MM54(1)1M1M123(1)14710%2"OX WANDERS OFF --- SPEN7,22,32,35,37,42,44,54,64,69,95/0.D1103650i08D13660,3700,3740,3790,3820,3850,3880,3960,4130,41900BD1104220,4290,4340,4560,4610,46700L"WAGON BREAKS DOWN -- LOSE TIME AND SUPPLIES FIXING IT."0VMM155(1)0`M1M180j471031 OUT OF BULLETS AND GOT MASSACREDBY THE RIDERS":5170V/ ***SELECTION OF EVENTS*** |/ "PRESS TO CONTINUE...";/ CL$:(CL$)133551/ D10/ / / R1100(1)/ D1D11/D1164670/D/R1D35800$ 6,11,13,15,1470.R T133430.\ 3470'.f MM201.p 3470M.z "THEY DID NOT ATTACK!"W. 3550f. S503500. "THE RIDERS WERE FRIENDLY, BUT CHECK FOR POSSIBLE LOSSES.":3550. "THE RIDERS WERE HOSTILE -- CHECK FOR LOSSES!". B035505/ "YOU RANTO GO SEE OL' DOC BLANCHARD":3470Q- :"KINDA SLOW WITH YOUR COLT .44":3470`- T133290r- (1).83450- BB150:M1M115:3470- 6140- BBB13080:MM25:3140- T113370- MM15:AA10:3470-* T123410.4 BB100:MM5:3, S513330, T113110G, MM20:M1M115:BB150:AA40:3470V,& T123240`,0 6140q,: BBB14080,D B11.53170,N "NICE SHOOTING -- YOU DROVE THEM OFF!":3470,b B143220$-l :"LOUSY SHOT -- YOU GOT KNIFED":K81::"YOU'LL HAVE --":"1 - RUN 2 - ATTACK 3 - CONTINUE 4 - CIRCLE WAGONS":(1).2+ S51S5+ T1$:(T1$)1(T1$)43000+ T1(T1$)+ T11T11+ T14T14, T1(T1)LL":2750**, MM200(A220)5((1)10)8*6 L10:C10T*@ *** RIDERS ATTACK ****J (1)10((M100)272)((M1004)212)13550*L :2*T "RIDERS AHEAD. THEY ";*^ S50*h (1).82940*r "DON'T ";+| "LOOK HOSTILE"::"TACTICS":"----- 1 - POORLY 2 - MODERATELY 3 - WELL ") E$:(E$)1(E$)32760) E(E$)) E(E)) FF(85E)) F02860) FF(85E) * "YOU CAN'T EAT THAT WEEEN THE EYES -- YOU GOT A BIG ONE -- FULL BELLIES TONIGHT"[(x FF52(1)6m( BB10(1)4w( 2720( "YOU MISSED --- AND YOUR DINNER GOT AWAY."( F132750( 5060( *** EATING ***) :"DO YOU WANT TO EAT HUNTING"' 2080%' MM45/' 6140?' B122660X'( (1)10013B12710h'2 FF482B1'< "NICE SHOT -- RIGHT ON TARGET -- GOOD EATIN' TONIGHT!"'F BB103B1'P 2720'Z *** BELLS IN LINE 2660 ***I(d "RIGHT BETWC$:(C$)136142F+FS$(1)"BANG"F@VV0:XX0:B10FAVV0:XX0:S$""FBXX(16384)FC16368,0:XX1416214GDB1B11:XX1286RESIDENT JAMES K. POLK SENDS YOU HIS HEARTIEST CONGRATULATIONS"E:"AND WISHES YOU A PROSPEROUS LIFE AHEAD AT YOUR NEW HOME"E6700E E *** START OF SHOOTING SUBROUTINE ***E"PRESS TO START SHOOTING.";F";D3;" 1847":5920 D D3D3246>D"DECEMBER ";D3;" 1847":DD D*"FOOD","BULLETS","CLOTHING":"----","-------","--------":(F),(B),(C):"---------------------------------------":"MISC. SUPP.","CASH":"-----------","----"::M1,TEE:5):"PD3;" 1847":5920!ClD31555780/CvD3D3124OC"AUGUST ";D3;" 1847":5920`CD31855820nCD3D3155C"SEPTEMBER ";D3;" 1847":5920CD32165860CD3D3185C"OCTOBER ";D3;" 1847":5920CD32465900CD3D3216D"NOVEMBER :2B"MONDAY ";:57002B"TUESDAY ";:5700KB"WEDNESDAY ";:5700cB"THURSDAY ";:5700yB"FRIDAY ";:5700B:F95570,5590,5610,5630,5650,5670,5690B&"SATURDAY ";:5700B:"SUNDAY ";:5700BDD31245740BND3D393CX"JULY ";LONG MILES --- HOORAY !!!!!"qAr::"A REAL PIONEER !!!!!"wA|AF9(F914)AD3D314F9AF9F91AF985560AF9F97A"PRESS TO CONTINUE...";AC$:(C$)135561BCE"@"6700: END-@, *** FINAL TURN ***E@6F9(2040M2)(MM2)\@@FF(1F9)(85E)b@J@T ***BELLS IN LINES 5470,5480***@]::@^"YOU FINALLY ARRIVED AT OREGON CITY"PAh"AFTER 2040 L BE $4.50 FOR THE TELEGRAPH CHARGE ":?"WE THANK YOU FOR THIS INFORMATION AND WE ARE SORRY YOU DIDN'T MAKE IT TO THE GREAT TERRITORY OF OREGON. BETTER LUCK NEXT TIME."::?15):"SINCERELY,"@:2):"THE OREGON CITY CHAMBER OF COMMER:5250>pC$"N"5231W>:"WOULD YOU LIKE US TO INFORM YOUR NEXT OFKIN? (Y/N) ";r>C$:C$"Y"ė:2:5310>C$"N"5250>:2>C$"Y"5310>::"BUT, YOUR AUNT SADIE IN SAINT LOUIS IS REALY WORRIED ABOUT YOU"::5330*?"THAT WILRIES": =2f=<"DUE TO YOUR UNFORTUNATE SITUATION, THEREARE A FEW FORMALITIES WE MUST GO THROUGH "=Z"WOULD YOU LIKE A MINISTER? (Y/N)";=\C$:C$"Y"ĺ:5230=]C$"N"5212=^=n:"WOULD YOU LIKE A FANCY FUNERAL? (Y/N)";>oC$:C$"Y"C182(1)6300<4940.< *** DYING ***d<"YOU RAN OUT OF FOOD AND STARVED TO DEATH":5170l<T0<"YOU CAN'T AFFORD A DOCTOR":5120<"YOU RAN OUT OF MEDICAL SUPPLIES"<"YOU DIED OF ";< K815160<"PNEUMONIA":5170=("INJUMADE IT THROUGH THE SOUTH PASS --- (THERE WAS NO SNOW)"I;$M17004940X;.F214940a;8F21s;B(1).74970;LM9501230;VM91:1230;j"BLIZZARD IN MOUNTAIN PASS -- LOSE TIME AND SUPPLIES":L11:FF25:M1M110:BB300:MM3040(1)<OST --- LOSE TIME LOOKING FOR TRAIL":MM60:4860E:(1).114840:"WAGON DAMAGED! -- LOSE TIME AND SUPPLIES":M1M15:BB200:MM2030(1):4860:"THE GOING GETS SLOW":MM45(1).2:F114900:F114900:F11:(1).849708;"YOU (1).2563009 4710(9*(1).563002944710y9>"HELPFUL INDIANS SHOW YOU WHERE TO FIND MORE FOOD.":FF14:47109\ ***MOUNTAINS*** 9fM95012309p(1)109((M10015)212)48609z"RUGGED MOUNTAINS!!":(1).1147802:"YOU GET LRRRRR! --- YOU ";'8C224(1)453068"DON'T ";?8C11x8"HAVE ENOUGH CLOTHING TO KEEP YOU WARM ":C104710863008"HAIL STORM --- SUPPLIES DAMAGED ":MM5(1)108BB200:M1M14(1)3847108E163008 E34650 9- THE WOLVES OVERPOWERED YOU...":K81:5120?7:B124440s7D"NICE SHOOTING --- THEY DIDN'T GET MUCH":44507X"SLOW ON THE DRAW --- THEY GOT AT YOUR FOOD AND CLOTHES"7bBB20B17lCCB147vFFB18747108"COLD WEATHER --- BRR-13,1512:10,1313(-3T2-14,1816:14,1619:16,1914:17,1816:16,1918r<-6:14,1822:23,2515:2F-14,1528:27,18:28,17:29,16:30,15:31,14P-12Z-27,308:34,358:27,3512:9,1127:9,1130:9,1135d-28,3016:28,3020:3:19,2632:19,2633;,22,3132:22,3133:32,33:33,33H,::::^,6,100:7,30:768q,PA11000:PA{,::,, *** VERY GOOD ***,,:13-PZ139:1,39PZ:PZ -1-10,137:13,158:16,179:17,1810:16,1711:29,3318:18,35:16,2124:19,21298n2PZ12000:PZBx2::H2W}PZ13000_ }PZi}::Y3112:29,3113,8,1322:8,1323:10,1527:10,1528:8,1332,8,1333,22,3319:22,3320:22,3325:22,3326,19,2622:19,262:15:PZ139:1,36PZ:PZ:1O2210,192:18,193:17,184:15,165:13,146x<215,167:17,188:18,199:10,1910F210,1914:15,1918:15,1715P222,2515:22,2517:22,2619:17,1922:15,1925Z228,3412:10,1931%d224,2615:24,2922:7,14315021,3018:21,3026:19,2520:19,2531a120,3129:20,2535:30,3420:30,3425128,3234:36,3734:28,2939:32,3739:35,3828135,3932:35,3837$1:::.1PZ12500:PZ81::A12 *** WHAT ? ***2(21120:9,1123:9,1126C021,2516:21,2521:17,2020:17,2026o 021,2525:21,2530:26,2920:26,2926{0::: 0PZ12000:PZ*0::300 *** OOPS ***00:20PZ139:1,39PZ:PZ:11 021,306:21,3015:7,1420,1816:8,1621$/6,812:8,16241&/8,1629G0/7,13:7,14:7,15W:/7,16:8,16_D/K0kN/:::sS/PZX/PZ1800:PZb/::k// *** BOO ***//:12/PZ139:1,39PZ:PZ/15/20,268:20,2212:24,2612:9,S TO CONTINUE.==>";:Z$::(Z$)138007"O 10 NOUNS FOR DATA ELEPHANT,MOUSE,COMPUTER,HOUSE,UMBRELLA,ANTLER,ICICLE,OTTER,CAR,BICYCLE,STEREO,DESKZ((1)31):Z481,482,483IWORD STARTING WITH"7v"A CONSONANT: A HOUSE, A CAR"s"YOU USE ";::"AN";::" BEFORE A WORD STARTING WITH""A VOWEL, THAT IS A,E,I,O, OR U.""EXAMPLES: AN ANT, AN ORANGE."K0800::A0:T105501001 21:"PLEASE PRES0YN(Y):JJ1b>21:"FOR THE NEXT PROBLEM, ":"PLEASE PRESS ";Z$::Z$13574j?Z$sD120X REPEAT INSTRUCTIONS AFTER SECOND MISSYTT1b:2::A$;", YOU SEEM TO HAVE FORGOTTEN!"l"YOU USE ";::"A";::" BEFORE A ?'23:6:"PRESS TO CONTINUE...";:Z$:(Z$)13551`(:2::"THANK YOU, ";A$;".")"IS THERE ANYONE ELSE WAITING TO PLAY"*"(Y FOR YES, N FOR NO)=>";+Z$:Z$"Y"36,Z$"N"555-.:::D$(4):D$;"RUN MENU";/ UT OF ";T4"OR ";((S1000.5)T)10;" PERCENT."<A0KT10550!21:"FOR THE NEXT BRAIN-BOUNCING PROBLEM, PRESS THE KEY":"OR PRESS KEY TO END ==>";"Z$::#(Z$)27552$(Z$)13100%545&T0:K0:S0IN$"N"6710!J@IN$"Y"Ľ:100TJJ:10:"GOODBYE UNTIL THE NEXT WAGON TRAIN!":qJD$(4):D$;"RUN";"MENU"UN";"MENU"0=I "BAD ILLNESS --- YOU USED YOUR MEDICINE":MM5:M1M12LI(M105110[I2L114940eI<4710I,24:"PLEASE PRESS . ";:IN$::(IN$)136700 J6:10:"ARE THERE ANY MORE PIONEERS WAITING TO MAKE THE JOURNEY? (Y/N) ";:IN$:IN$"Y"Ͳ *** ILLNESS SUBROUTINE ***;H100(1)1035(E1)6370_H100(1)100(404(E1))6410zH"SERIOUS ILLNESS ---"H"YOU MUST STOP FOR MEDICAL ATTENTION":M1M110:S41:6440H"MILD ILLNESS --- YOUR MEDICINE CURED YOU":MM5:M1M15I644210%GEVVVV1:S$S$(XX128):6210MGFVV3S$S$(S)ĺ"TRY AGAIN.":6209zGG VV=NUMBER OF LETTERS USED TO SHOOT GH XX=KEY BOARD STROBEGI .03003003 X B1 = GIVES TIMEGJB1B1.03003003GKD9D91GLB1B1(D9.05)GMD9D91GH -213200/-3D60:P200:13180:13180:13180E-3D60:P120:13180U-3Z1100:Zk-"3D40:P140:13180-63D255:P115:13180-@3-J310-T314-^3"C H A R G E !!!"-h3PZ19::PZ-r313220-|36,P:7,D:768-3-3.3 *** M516:15,2337,219,237:19,219:8,19:8,21:8,923],219,2311:19,2314:12,20:15,20,220,2317:17,18:18,2319:20,2118:20,21,220,2323:23,18:19,2325:26,2719:26,2723,2PZ12000:PZ,2::,2,2 *** CHARGE ***-2159+P222,2515:22,2517:22,2619:17,1922:15,1925Q+Z228,3412:10,1931+d224,2615:24,2922:29,3318:18,35:16,2124:19,2129+n2PZ12000:PZ+x2::+2+2 *** TERRIFIC ***+2+2+2:7:PZ130:0,39PZ:PZ ,29:1,3416:29,3417:29,3425:29,34266* 2PZ12000:PZ@*2::G*2 ^*2 *** WHAT ? ***d*2*(2:15:PZ139:1,36PZ:PZ:1*2210,192:18,193:17,184:15,165:13,146*<215,167:17,188:18,199:10,1910+F210,1914:15,1918:15,171PZ531:1,39PZ:PZ)18G)110,268:10,269:10,2622:10,2623s)111,1210:13,1512:11,1211:13,1513)116,1714:16,1715:18,2016:18,2017)121,2218:21,2219:23,2420:23,2421)118,2427:18,2428:18,2435:18,2436#*229,,1010:7,1320:2,1026:11,252:21,2510W(t117,2120:17,2126:21,2516:21,2522(~126,2920:26,2926:21,2525:21,2530(121,2533:12,2638:34,3720:34,3726(1CO(1PZ1800:PZ(1::(1 (1 *** NO ***(1(1:6),3129:20,2535:30,3420:30,3425Z'128,3234:36,3734:28,2939:32,3739:35,3828r'135,3932:35,3837~'$1:::'.1PZ12500:PZ'81::'A1'B1 *** GOOD ***'C1'L1:14'Q1CO1215:CO'V1PZ530:1,39PZ:PZ'`12+(j123>&020,2635:24,2638:20,2339:39,26:36,3820:36,3823Q&0PZ12000:PZ[&0::a&0v&0 *** OOPS ***|&0&0:2&0PZ139:1,39PZ:PZ:11&021,306:21,3015:7,1420:7,1431&021,3018:21,3026:19,2520:19,2531$'120:14,1629:10,1331:27,3013%%z06C%020,261:20,265:1,523l%020,268:20,2612:8,1220:8,1223%020,2615:24,2618:20,2319:15,1920:16,1923:19,26%020,2622:21,2526:23,2520:23,2526&020,2629:30,3220:30,3226:30,312,2530:26,2920:26,2926&$0:::9$ 0PZ12000:PZC$*0::I$30d$40 *** TRY HARDER ***j$50s$>0:8$H0PZ139:1,39PZ:PZ$R05$\09,1510:11,1612$f010,1618:14,1621:11,1222:22,16:19,2210:19,2213%p010,1326:14,16283521:29,3525#/29,35300#/PZ12000:PZ:#/::@#/T#/ *** BOO ***Z#/d#/:12~#/PZ139:1,39PZ:PZ#/15#/20,268:20,2212:24,2612:9,1120:9,1123:9,1126#021,2516:21,2521:17,2020:17,2026$ 021,2525:21"k/"l/ *** YES ***"m/("v/:14E"/PZ139:1,39PZ:PZ:3"/15,225:15,226:15,2214:15,2215:21,3010:21,3011"/6,1421:6,1422"/19,2521:20,2525:19,2530:21,3019:21,2525#/21,2529:29,3029:21,2235:25,3035:29,5,88:8,165"!.15,188:8,1288!.27,318:8,1612O!.17,1812:8,1615g!/21,2412:13,1618~!/15,1816:8,1621!/6,812:8,1624!&/8,1629!0/7,13:7,14:7,15!:/7,16:8,16!D/K0!N/:::!S/PZ!X/PZ1800:PZ!b/::,2213 ^.29,3010:19,2214, h.29,3011B r.29,305:29,306P |.PZ1722a .5,32PZ:PZm .::: .PZ11500:PZ .:936: . . *** RIGHT *** . .:13:PZ120:1,39PZ:PZ .PZ131 .1 .PZ2(PZ2)Ġ11 !.-MZ -PY139:0,39PY:PY(-PZ/-5A-5,85:5,86U.5,811:5,812k.5,1416:5,1417.5,1418:5,1427".5,1428:5,1431,.5,1432:11,1486.7,109:11,149@.7,1010:19,215J.19,209:19,216 T.19,2010:1917,1927:17,1931>n-28,3022:28,3026:23,2527:23,2531jx-28,3129:23,3132:30,3128:30,3131v-:::-PZ12500:PZ-::- - *** YEA ***--:-:::-PZ15-MZ((7)16)-MZ5MZ10MZMZ1:14,178:13,1610:15,169:15,1611:14,1712:7,1513AF712]P714,1715:16,13:17,14Z714,1619:14,1623:20,2213:20,2217d714,1725:26,2713:14,1728n714,1630:31,3313:31,3317:14,1934:32,3320:31,19x7PZ13000:PZ::::21,3015:7,1420:7,1431H#XN21,3018:21,3026:19,2520:19,2531t#YN20,3129:20,2535:30,3420:30,3425#ZN28,3234:36,3734:28,2939:32,3739:35,3828#[N35,3932:35,3837#^N:::#_NZ12500:Z#`N::#} U20:16,1923:19,26@"AN20,2622:21,2526:23,2520:23,2526l"BN20,2629:30,3220:30,3226:30,3123"CN20,2635:24,2638:20,2339:39,26:36,3820:36,3823"HNZ12000:Z"JN::"RN OOPS"SN:2"TNY139:1,39Y:Y:11#WN21,306!:N9,1510:11,1612S!;N10,1618:14,1621:11,1222:22,16:19,2210:19,2213!N20,261:20,265:1,523!?N20,268:20,2612:8,1220:8,1223"@N20,2615:24,2618:20,2319:15,19Y:Y %N15H &N20,268:20,2212:24,2612:9,1120:9,1123:9,1126t 'N21,2516:21,2521:17,2020:17,2026 (N21,2525:21,2530:26,2920:26,2926 )N::: *NZ12000:Z +N:: 4N TRY HARDER 5N:8 6NY139:1,39Y:Y 9N5:34,358:27,3512:9,1127:9,1130:9,1135Z'28,3016:28,3020:17,1927:17,1931'28,3022:28,3026:23,2527:23,2531'28,3129:23,3132:30,3128:30,3131':::'Z12500:Z':: N BOO!N:12 "NY139:1,3939:1,39Y:Y'1G'10,137:13,158:16,179:17,1810:16,1711_'13,1512:10,1313f'3'14,1816:14,1619:16,1914:17,1816:16,1918'6:14,1822:23,2515:2'14,1528:27,18:28,17:29,16:30,15:31,14'12.'27,30822:8,1323:10,1527:10,1528:8,13326'8,1333b'22,3319:22,3320:22,3325:22,3326'19,2622:19,2623:19,2632:19,2633'22,3132:22,3133:32,33:33,33'::::'Z12000:Z'::' VERY GOOD':13 'Y11:21,232:22,237:3,624@'2,427:2,431:5,729:28,304G'3}'11,1410:15,1713:11,1311:11,1314:10,1217'11,1716:17,1911:17,1814:17,1917'22,2611'12,1724'4'22,336:22,337:29,3112:29,3113)'8,1323,2429*e'22,2330:21,2231:10,2132;h'Z12000:ZEi'::Xt' READY-SET-GOby':15|{'Y139:1,39Y:Y:9}'2,74:5,76:2,47:5,62:5,64:7,7'2,710:10,132:11,125:11,137'2,715:2,718:16,172:16,175'2,722000:ZQ'::[' WOW%\':9?]'Y139:1,39Y:Y:2h`'10,217:21,228:22,239:23,2410a'11,22:23,2412:22,2313:21,2214:10,2115b'21,2317:21,2321:18,2020:18,2024c'10,2124:21,2225:22,2326:23,2427d'28,22:':3E'10,151:10,1577F'3,11:4,12:5,13:6,14bG'10,159:10,1210:10,1113:10,1215H'10,1514:10,1518:15,1710:15,1713I'21,2510:11,1523J'10,1528:10,1532:29,3110:29,3115K'10,1336:36,15L'6,15:2,10O'Z110,151:7,10:15,197='10,199:9,1319:10,1814:15,19i'10,1918:10,1423:18,2310:19,2314'10,1926:27,2910:27,2814:27,3019'10,1932:15,1934:10,1436:32,3610:33,3614:35,3619'Z12000:Z '::B' NEATOC10,3915:14,3926.10,3916:14,3927F10,3920:10,3921_26,10:27,10:26,11j27,1117,1925:17,1926:::Z12000:Z::' SUPER':1:Y139:1,36Y:Y'7'1,710:1,715:1,719:1,18' }PZ /}3USICAL POKES ***.3.37.3 *** MUSIC POKES ***=.3.3768,173:769,48:770,192:771,136:772,208:773,4:774,198:775,7.3776,240:777,8:778,202:779,208:780,246:781,166:782,6:783,76:784,0:785,03:786,96.3.3.}PZ13000/35:24,2638:20,2339:39,26:36,3820:36,3823C$HNZ12000:ZK$IN:Q$JN\$RN OOPSe$SN:2$TNY139:1,39Y:Y:11$WN21,306:21,3015:7,1420:7,1431$XN21,3018:21,3026:19,2520:19,2531%YN20,3129:20,2535:30,3420:30,34210,1331:27,3013#=N67#>N20,261:20,265:1,523`#?N20,268:20,2612:8,1220:8,1223#@N20,2615:24,2618:20,2319:15,1920:16,1923:19,26#AN20,2622:21,2526:23,2520:23,2526#BN20,2629:30,3220:30,3226:30,31232$CN20,26(N21,2525:21,2530:26,2920:26,29265")N:::F"*NZ12000:ZP"+N::a"4N TRY HARDERj"5N:8"6NY139:1,39Y:Y"9N5":N9,1510:11,1612";N10,1618:14,1621:11,1222:22,16:19,2210:19,2213#PA18000:PA|H:14: SUBROUTINE TO LIST INSTRUCTIONS FOR MIXING TYPES OF SENTENCES X$"":X$ :(5) "NOW LET'S WORK ON BOTH TOGETHER"RN ABOUT POSSESSIVE WORDS.":N"POSSESSIVE WORDS SHOW OWNERSHIP. BEFORE": "YOU MAKE A POSSESSIVE YOU MUST BE ABLE"::"TO ";"FIND SOMETHING THAT IS OWNED.":: " A DOG'S FOOD.":: WISH I COULD INSERT PICTURE OF DOG & FOOD*"THE F)NZ12000:Z)N:: )} I,192:18,193:17,184:15,165:13,146R(N15,167:17,188:18,199:10,1910t(N10,1914:15,1918:15,1715(N22,2515:22,2517:22,2619:17,1922:15,1925(N28,3412:10,1931(N24,2615:24,2922:29,3318:18,35:16,2124:19,2129,'N16,1714:16,1715:18,2016:18,2017X'N21,2218:21,2219:23,2420:23,2421'N18,2427:18,2428:18,2435:18,2436'N29,3416:29,3417:29,3425:29,3426'NZ12000:Z'N::'N WHAT ?'N:15:Y139:1,36Y:Y:1)(N101,25223&rN26,2920:26,2926:21,2525:21,2530_&sN21,2533:12,2638:34,3720:34,3726p&uNZ12000:Zz&vN::&N NO&N:6&NY531:1,39Y:Y&N8&N10,268:10,269:10,2622:10,2623'N11,1210:13,1512:11,1211:13,151357%ZN28,3234:36,3734:28,2939:32,3739:35,3828O%[N35,3932:35,3837[%^N:::l%_NZ12500:Zv%`N::%kN GOOD%lN:10%mNY530:1,39Y:Y%oN2%pN2,1010:7,1320:2,1026:11,252:21,2510&qN17,2120:17,2126:21,2516:2:18,199:10,191051N10,1914:15,1918:15,1715k1N22,2515:22,2517:22,2619:17,1922:15,19251N28,3412:10,19311N24,2615:24,2922:29,3318:18,35:16,2124:19,21291NZ12000:Z1N::219:23,2420:23,2421D0N18,2427:18,2428:18,2435:18,2436p0N29,3416:29,3417:29,3425:29,34260NZ12000:Z0N::0N WHAT ?0N:15:Y139:1,36Y:Y:10N10,192:18,193:17,184:15,165:13,1461N15,167:17,188:12,2638:34,3720:34,3726//uNZ12000:Z9/vN::C/N NOL/N:6c/NY531:1,39Y:Yj/N8/N10,268:10,269:10,2622:10,2623/N11,1210:13,1512:11,1211:13,1513/N16,1714:16,1715:18,2016:18,20170N21,2218:21,232:35,3837.^N:::*._NZ12500:Z4.`N::@.kN GOODJ.lN:10a.mNY530:1,39Y:Yh.oN2.pN2,1010:7,1320:2,1026:11,252:21,2510.qN17,2120:17,2126:21,2516:21,2522.rN26,2920:26,2926:21,2525:21,2530/sN21,25330:Z-JN::-RN OOPS#-SN:2>-TNY139:1,39Y:Y:11g-WN21,306:21,3015:7,1420:7,1431-XN21,3018:21,3026:19,2520:19,2531-YN20,3129:20,2535:30,3420:30,3425-ZN28,3234:36,3734:28,2939:32,3739:35,3828 .[N35,39,268:20,2612:8,1220:8,1223^,@N20,2615:24,2618:20,2319:15,1920:16,1923:19,26,AN20,2622:21,2526:23,2520:23,2526,BN20,2629:30,3220:30,3226:30,3123,CN20,2635:24,2638:20,2339:39,26:36,3820:36,3823-HNZ1200000:Z++N::"+4N TRY HARDER++5N:8B+6NY139:1,39Y:YI+9N5`+:N9,1510:11,1612+;N10,1618:14,1621:11,1222:22,16:19,2210:19,2213+N20,261:20,265:1,523!,?N20,3530* (Z12000:Z!* (::,* N BOO6*!N:12M*"NY139:1,39Y:YU*%N15*&N20,268:20,2212:24,2612:9,1120:9,1123:9,1126*'N21,2516:21,2521:17,2020:17,2026*(N21,2525:21,2530:26,2920:26,2926*)N:::+*NZ12 )( YES)(:14.)(Y139:1,39Y:Y:3l)(15,225:15,226:15,2214:15,2215:21,3010:21,3011)(6,1421:6,1422)(19,2521:20,2525:19,2530:21,3019:21,2525)(21,2529:29,3029:21,2235:25,3035:29,3521:29,3525*(29'1('5,88:8,165,('15,188:8,128B('27,318:8,1612Y('17,1812:8,1615q('21,2412:13,1618('15,1816:8,1621('6,812:8,1624('8,1629('7,13:7,14:7,15('7,16:8,16('K0(':::('Z12000:Z('::19,215''19,209:19,2165''19,2010:19,2213M''29,3010:19,2214[''29,3011q''29,305:29,306~''Y1722''5,32Y:Y'':::''J11500:J''J11500:J''K5'':936:'' RIGHT '':13:Y120:1,39Y:Y(&':&':::&'N152&'M((7)101)9&'MP&'Y139:0,39Y:YW&'N^&'5p&'5,85:5,86&'5,811:5,812&'5,1416:5,1417&'5,1418:5,1427&'5,1428:5,1431&'5,1432:11,148&'7,109:11,149''7,1010:'12?%'23,268:30,318:23,3112:9,1123:9,1126:9,1131k%'28,3016:28,3020:17,1927:17,1931%'28,3022:28,3026:23,2527:23,2531%'28,3129:23,3132:30,3128:30,3131%':::%'Z12500:Z%'::&' I LOVE YOU ':13$'Y139:1,39Y:Y%$'1X$'10,137:13,158:16,179:17,1810:16,1711p$'13,1512:10,1313w$'3$'14,1816:14,1619:16,1914:17,1816:16,1918$'6:14,1822:23,2515:2$'14,1528:27,18:28,17:29,16:30,15:31,14%34#'8,1322:8,1323:10,1527:10,1528:8,1332A#'8,1333m#'22,3319:22,3320:22,3325:22,3326#'19,2622:19,2623:19,2632:19,2633#'22,3132:22,3133:32,33:33,33#'::::#'PA12000:PAUSE#'::#' VERY GOOD$&"'2,721:21,232:22,237:3,624K"'2,427:2,431:5,729:28,304R"'3"'11,1410:15,1713:11,1311:11,1314:10,1217"'11,1716:17,1911:17,1814:17,1917"'22,2611"'12,1724"'4#'22,336:22,337:29,3112:29,311 008`p8\9```0``x 00x|g8``0pxp8`1`x`p=00@pxp@@`00`^0@0< p`8> 0<`\?`800x?x|?80``8~p`X?0`_`N?|<p ~0pappl9p```0``~ 8`9808`<```@x0p0x<`800p@x`8`@`0; 8`y0p`p x;|8x`@v`p0`0p|x880`xp`~8`~Gqxxpp9`g8p```0p8`x8`80xp`|?```_|<<0x0~`0~0p8@|0|@`0 @ 0C170:D213:: ORANGECt^COLOUR6A85:B42:C85:D42:: VIOLETt^COLOUR7A127:B127:C128:D128:: BLACK & WHITE BARSt^COLOUR8A127:B127:C213:D170:: BLUE & WHITE BARS D128:B128:C128:D128:: BLACKKs]COLOUR1A42:B85:C42:D85:: GREENzs]COLOUR2A213:B170:C213:D170:: BLUEs]COLOUR3A127:B127:C127:D127:: WHITEs]COLOUR4A170:B213:C127:D127:: RED & WHITE BARSt]COLOUR5A170:B213:,(48):36864rU)rY *** TURN ON MAPArYD$;"BLOAD USMAP50"XrY16297,0: HI-RESorY16300,0: PAGE 1rY16302,0: FULL PAGErZ16304,0: GRAPHICSr Zr[ *** TURN ON TEXTr[16303,0r]k** COLOR SELECTION FOR FILLs]COLOUR0A38:22000:ST(49)0: WISCONSINQqfRST(50)1X89:Y54:22000:ST(50)0: WYOMINGWqjRoqU *** FILL ROUTINE qU *** FROM "HI-RES SECRETS BY DON FUDGE, AVANT-GARDE SOFTWARE" rU0:X,Y:6,A:7,B:8,C:9,D:Q(229):255,Q:239,Q:30,(6):31,(7):23722000:ST(45)0: VERMONTfp^RST(46)1X200:Y73:22000:X211:Y64:22000:ST(46)0: VIRGINIA p`RST(47)1X41:Y25:22000:ST(47)0: WASHINGTONpbRST(48)1X204:Y64:22000:X198:Y67:22000:ST(48)0: WEST VIRGINIAqdRST(49)1X159:Y1)0: SOUTH DAKOTA[oXRST(42)1X180:Y88:22000:X188:Y87:22000:ST(42)0: TENNESSEEoYRST(43)1X102:Y114:22000:X111:Y102:22000:X129:Y124:22000:ST(43)0: TEXASoZRST(44)1X70:Y69:22000:ST(44)0: UTAHp\RST(45)1X220:Y30:8,1612 .17,1812:8,16157 /21,2412:13,1618N /15,1816:8,1621c /6,812:8,1624p &/8,1629 0/7,13:7,14:7,15 :/7,16:8,16 D/K0 N/::: X/Z12000:Z b/:: k/ l/ *** YES *** m/ v/:14 !/Y139:1,3h.29,3011$r.29,305:29,3061|.Y1722@.5,32Y:YL.:::].J11500:Jn.J11500:Jv.K5.:936:.. *** RIGHT ***..:13:Y120:1,39Y:Y.1.5,88:8,165.15,188:8,128 .27,318::Y -N-5#-5,85:5,867.5,811:5,812M.5,1416:5,1417c.5,1418:5,1427y".5,1428:5,1431,.5,1432:11,1486.7,109:11,149@.7,1010:19,215J.19,209:19,216T.19,2010:19,2213^.29,3010:19,22141-n-28,3022:28,3026:23,2527:23,2531Yx-28,3129:23,3132:30,3128:30,3131e-:::v-Z12500:Z-::- - *** YEA ***--:-:::-N15-M((7)16)-M5M10MM1-M-Y139:0,39Y,1313 (-3C2-14,1816:14,1619:16,1914:17,1816:16,1918a<-6:14,1822:23,2515:2F-14,1528:27,18:28,17:29,16:30,15:31,14P-12Z-27,308:34,358:27,3512:9,1127:9,1130:9,1135d-28,3016:28,3020:17,1927:17,1939,2633-,22,3132:22,3133:32,33:33,33:,::::P,6,100:7,30:768c,PA11000:PAm,::s,, *** VERY GOOD ***,,:13-Y139:1,39Y:Y -1-10,137:13,158:16,179:17,1810:16,1711-13,1512:102:7,40:768,PZ11000:PZ=,12:PZ039:0,39PZ:PZE,15o,22,336:22,337:29,3112:29,3113,8,1322:8,1323:10,1527:10,1528:8,1332,8,1333,22,3319:22,3320:22,3325:22,3326,19,2622:19,2623:19,2632:1,624*L,2,427:2,431:5,729:28,304@P,6,200:7,60:768SQ,PZ11000:PZqR,13:PZ039:0,39PZ:PZxV,2`,11,1410:15,1713:11,1311:11,1314:10,1217j,11,1716:17,1911:17,1814:17,1917t,22,2611~,12,1724 ,6,14+Z12000:Z+::,<, *** READY-SET-GO ***B,L,:15f,Y139:1,39Y:Y:9$,2,74:5,76:2,47:5,62:5,64:7,7.,2,710:10,132:11,125:11,1378,2,715:2,718:16,172:16,175B,2,721:21,232:22,237:310,217:21,228:22,239:23,2410W+11,22:23,2412:22,2313:21,2214:10,2115+21,2317:21,2321:18,2020:18,2024+10,2124:21,2225:22,2326:23,2427+28,22:23,2429+22,2330:21,2231:10,2132+20,2211:20,2228` 00`8p` `lxGp880p0@`p ``@x` ` ``v~p8 `00pX}|``8`0``@0p?0~p0`xpx@8@;`~ 4p?00@x|`@@`00cx0`0~ 080p00<`L~`x000~ pp8|``p`p@ @pp0 6088:: 04$04 *** 1ST GRADE ****04404:14d042,310:2,1411:2,1412:8,1415:8,14160410,1319:13,1622:19,2210:19,2213:19,2216048,1626:24,2890413380050 5 *** 2ND GRADE ***050 5:11*52,38:2,614:6l425,386:34,3813:6,1325:6,1338:10,1334H/v431,3816:16,1832/421,2433:21,2436:21,2438:33,3824:36,3821:25,39/428,3233:28,3238:25,3832:33,3828/433,3835:33,3538:35,3833:35,3835:35,3838/4PZ14000:PZ045,1718:15,1722:14,1626X.318,2223:20,2322:21,2220:20,2220:20,2318:24,23m.427,16:18,2227.418,2230:31,18:19,2032:33,21:18,2234.&41:8,3428.0411,2612.:4PZ12000:PZ:::.D4.N4 *** GRADE ***.X4.b490/:782,6:783,76:784,0:785,03:786,96,-32-38-3S-3 *** TRY AGAIN ***Y-3d-3::2q-311,185-35,1014:5,1015-37,1020:21,8-37,1026:7,824:25,8-36-315,228:8,1215:15,2212:9,1119.318,2617:18,2214:10,63D255:P115:13180,@3&,J310.,T314M,^3"C H A R G E !!!"],h3Z19::Zh,r313220{,|36,P:7,D:768,3,3768,173:769,48:770,192:771,136:772,208:773,4:774,198:775,7&-3776,240:777,8:778,202:779,208:780,246:781,16620,2118:20,21B+220,2323:23,18:19,2325:26,2719:26,2723S+2Z12000:Z]+2::c+2z+2 *** CHARGE ***+2+213200+3D60:P200:13180:13180:13180+3D60:P120:13180+3Z1100:Z+"3D40:P140:13180,,3D10:P160:1318:18,35:16,2124:19,2129,*n2Z12000:Z6*x2::<*2U*2 *** TERRIFIC ***[*2w*2:7:I130:0,39I:I*29:1,516:15,233*219,237:19,219:8,19:8,21:8,923*219,2311:19,2314:12,20:15,20+220,2317:17,18:18,2319:Y139:1,36Y:Y:1E)2210,192:18,193:17,184:15,165:13,146n)<215,167:17,188:18,199:10,1910)F210,1914:15,1918:15,1715)P222,2515:22,2517:22,2619:17,1922:15,1925)Z228,3412:10,1931*d224,2615:24,2922:29,331815131(116,1714:16,1715:18,2016:18,2017](121,2218:21,2219:23,2420:23,2421(118,2427:18,2428:18,2435:18,2436(229,3416:29,3417:29,3425:29,3426( 2Z12000:Z(2::(2 (2 *** WHAT ? ***(2)(2:15:20:26,2926:21,2525:21,2530M'121,2533:12,2638:34,3720:34,3726^'1Z12000:Zh'1::o'1 '1 *** NO ***'1'1:6'1Y531:1,39Y:Y'18'110,268:10,269:10,2622:10,2623(111,1210:13,1512:11,1211:13,3739:35,3828'&135,3932:35,38373&$1:::D&.1Z12500:ZN&81::T&A1i&B1 *** GOOD ***o&C1y&L1:10&V1Y530:1,39Y:Y&`12&j12,1010:7,1320:2,1026:11,252:21,2510&t117,2120:17,2126:21,2516:21,2522!'~126,2912000:Z%0::%0.%0 *** OOPS ***4%0=%0:2X%0Y139:1,39Y:Y:11%021,306:21,3015:7,1420:7,1431%021,3018:21,3026:19,2520:19,2531%120,3129:20,2535:30,3420:30,3425&128,3234:36,3734:28,2939:32,020,268:20,2612:8,1220:8,1223c$020,2615:24,2618:20,2319:15,1920:16,1923:19,26$020,2622:21,2526:23,2520:23,2526$020,2629:30,3220:30,3226:30,3123$020,2635:24,2638:20,2339:39,26:36,3820:36,3823 %0Z#30!#40 *** TRY HARDER ***'#500#>0:8G#H0Y139:1,39Y:YN#R05e#\09,1510:11,1612#f010,1618:14,1621:11,1222:22,16:19,2210:19,2213#p010,1326:14,1628:14,1629:10,1331:27,3013#z06#020,261:20,265:1,523&$/"/ *** BOO ***"/&"/:12="/Y139:1,39Y:YE"/15"/20,268:20,2212:24,2612:9,1120:9,1123:9,1126"021,2516:21,2521:17,2020:17,2026" 021,2525:21,2530:26,2920:26,2926"0:::" 0Z12000:Z#*0::9Y:Y:3G!/15,225:15,226:15,2214:15,2215:21,3010:21,3011]!/6,1421:6,1422!/19,2521:20,2525:19,2530:21,3019:21,2525!/21,2529:29,3029:21,2235:25,3035:29,3521:29,3525!/29,3530!/Z12000:Z!/::"8p 0 83p@p@kpp@@<|`p>0~00|x008`o`pxp``~@`|`8 @`x3x8@```008 p?8`p```@X0p x0x `00`0`~pp@`0 ` 003 0@10p?@A8@`x<8``w00p~8p 0p``<<?`p`@O `0 @`Aa`G3|@`?`000~<x0``0``x p`? pp0p0p0|?p@`0`;|o 0 p? 0`y<`@`lx`?p0`0`             I,3),2):KKDXY(W(I,3),1):P#(IE2XY$"HERE IS THE ANSWER KEY:"O<1070WF:]P ,2321:18,2121:18,2123:18,212665613:13,2624H5612:13,2627w566:21,2630:21,2633:30,3321:30,3326563:5,332856PZ14000:PZ57::711:10,1716:10,1717B4j61,1710:1,1711:10,1716:10,1717X4t64,1723:21,256w4~64,1729:9,1734:29,34946133804646 *** HELLO ***4646::14610,265:10,266:10,2614:10,2615:5,1516:5,1517$569:21,2618:21 36:13o362,1110:2,1111:10,1816:10,1817:10,172:10,173:10,1710:10,1711:10,1717:10,17183$67,1823:22,2583.628,3213:7,1828:13,1832386133803B63L6 *** 6TH GRADE ***3V6:64`610,171:10,172:10,1710:10,1)256,1222:0,1226:22,266:22,261242513380;25 U25 *** 4TH GRADE ***[25e25:12252,96:2,97:2,1512:2,1511:6,148:6,149254,1519:17,216254,1524:24,2810:10,152825133802525 *** 5TH GRADE ***36,108:8,142:8,146:8,1410=1456,1019:7,1023:20,227f1>525,296:25,2910:6,1025:2,1029q1H513380w1R51\5 *** THIRD GRADE ***1f51p5:31z56,122:6,123:8,126:8,127:6,1211:6,1212:2,1211:2,1212255,1217:17,196Y fghUVWYY fgh\  [3]ŠŠ4fgh[ ]Ԡ f UVW' ij'k Y ] fD ijk ijk ijk ijk iji#j$k  ]flm n#]נflm n$ ]f &lmn$lmn%g#h[!]ԠŠԠҠ q( qUVW fgh\ UVWUV Wij!kY]נ%f &l mn"/f0]נ9f 3:gh l m n lm n!lm n"D]Mf Ng#h X]Šaf  bg$h l]vf ~`0@C~pfx``` ~@008l`p`p`0```0``80`88`@`}@?08~pp`@`?~ | 0p @Co|f1N@```08x~x?` pXp0`p `<``88000@@c`Cp~`~`` @``fp`0 `8p8xg```ppp`0@`axp`x@?@` >8 00@|?n0F@@``@0n@pu0L\` &L&LJ& A&) JL( f%L L\&L&L &'L  L '!&(`&J& D&) JL蒩Υ fL & &` L\'&ܩJ& &L&L L@&+%J& &L\&L\ fLZ  Lё '? &А LZ&hb υ΅&'&``J& &L&L&) L fLϱ& `L)8ɀJ & &`ϱ&J`Lߐ)8ɀ J   z #Xð    ̱ е" ŠӠ- ՠ ŠӠ#̠+!ŠŠӠӠ/ĠŠ"ӠϠΠ̠DԠԠԠԠΠĠĠàҠ)Ӡg h]f 3g hij!kij"kij"k]Ԡf &ij kijkgh]flmn!g"h]flmn"]fnlmnlmn |]fDijkijkijk l!m"nl!m$n ]Ƞf 3ijkij kij kgh]Ƞf&ij"kij"k!f*"ijkijkijk,]5f 6ijkijk@]IfJlmnlmn T]]f^lmnlmn h]qf 7rlmnlmm n]f 7ijkijk l mnl mn]f lmnlmn ]flmnlmn ] f*lmnlmnlmn]f7lmnlmnlmnlmn]f *lmnlmnlmn]f*lm nlm nlm n]f *l m nl m nl nlm nlm"n7Flm$nlm%nlm#nlm!nP]Yf CZijkijkUVW ijkYijk  d]mf7nijk ijkijkijkx]kY]f )ijkUVWijkY ]f )ijkUVWijkY]ȡ'f 6(ijkUVWijkYijk 2];f7<lmnlmn  ]f UV Wi jkY]fUVWi jkY]נf UVWi jkY]ȠfUVW ijkY]ȠfUV W ijnl mn V]U`f lmn lm n UV W lm nYlm nlm n j]sf )tUVW lmnYlmn  ~]Iflmnlmnlmn lmn lmGf UV WijkYUVWijkYijk7$ijkijkijkijk .]7f78l m nlm nlm n l m n  9gh  B]/Lfl mnl m̠ϠΠ_]ԠҠLfUVW'ij'kY]f )UVWijkYijk ]HfUVW ijkYijk ijk ijk ]Έdededed ed e]d ed ed ededededeLdedede`]Š q q q q q6]ԠԠӠ҉+! ]ŠӠŠ]ŠɠҠ]٠Ӡ̮(]Ȭ_]Š_ dedeM[6]ŠŠŠҠǠTdede0dede              (21)::$:A$"+":800:(6:A$"PUBLIC DOMAIN SOFTWARE":300:8:A$"DISK VOLUME C08 - EDUCATION":300:14:A$"DISTRIBUTED BY:":300216:A$"THE BIG RED APPLE CLUB":300:A$"1301 NORTH 19TH":300:A$"NORFOLK, NE 68701":300 <X1200 :25D124:15)::"GOOD LUCK"::D:?::v"HOW GOOD OF A SHOT ARE YOU WITH YOUR RIFLE? "" 1 - ACE MARKSMAN"" 2 - GOOD SHOT"" 3 - FAIRLY FAIR"" 4 - NEED PRACTICE"" 5 - SHAKY KNEILL HAVE OF HITTING YOUR TARGET.":" AT EACH TURN, ALL ITEMS ARE SHOWN IN DOLLAR AMOUNTS, EXCEPT BULLETS. WHEN YOU ARE ASKED TO ENTER DOLLAR AMOUNTS, DON'T USE A '$'.":"PRESS TO CONTINUE....";A$:(A$)13662 ALONG THE WAY TO GET MORE FOOD. WHENEVER YOU HAVE TO USE YOUR TRUSTY RIFLE ALONG THE WAY, YOU WILL BE TOLD TO TYPE IN A WORD THAT SOUNDS LIKE A GUNSHOT."$b" THE FASTER YOU TYPE IN THE WORD AND PRESS THE 'RETURN' KEY, THE BETTER THE CHANCE YOU W$)13522 :2" YOU CAN SPEND ALL YOUR MONEY BEFORE YOU START YOUR TRIP - OR YOU CAN SAVE SOME OF YOUR CASH TO SPEND AT FORTS ALONG THE WAY WHEN YOU RUN LOW."0" HOWEVER, ITEMS COST MORE AT THE FORTS. YOU CAN ALSO GO HUNTINGWHEN CROSSING THE MOUNTAINS"."MISCELLANEOUS SUPPLIES - THIS INCLUDES MEDICINE AND OTHER THINGS YOU WILL NEED FOR SICKNESS AND EMERGENCY REPAIRS""PRESS TO CONTINUE....";  A$:(ATTING SICK""AMMUNITION - $1 BUYS A BELT OF 50 BULLETS FOR ATTACKS BY ANIMALS AND BANDITS, AND FOR HUNTING FOOD";("CLOTHING - THIS IS ESPECIALLY IMPORTANT FOR THE COLD WEATHER YOU WILL ENCOUNTER A$)13332N:2T"OXEN - YOU CAN SPEND $200-$300 ON YOUR TEAM. THE MORE YOU SPEND, THE FASTER YOU WILL GO BECAUSE"h" YOU'LL HAVE BETTER ANIMALS"r |"FOOD - THE MORE YOU HAVE THE LESS CHANCE THERE IS OF GEIF YOU MAKEIT ALIVE!"x""YOU HAVE SAVED $900 TO SPEND FOR THE TRIP, AND YOU'VE JUST PAID $200 FOR A WAGON"6"YOU WILL NEED TO SPEND THE REST OF YOUR MONEY ON THE FOLLOWING ITEMS-"@:J"PRESS TO CONTINUE...."; LA$:("N"6904*INSTRUCTIONS*******"THIS PROGRAM SIMULATES A TRIP OVER THE OREGON TRAIL FROM INDEPENDENCE, MISSOURI";"TO OREGON CITY, OREGON IN 1847.""YOUR FAMILY WILL COVER THE 2040 MILE OREGON TRAIL IN 5-6 MONTHS--- *"7 }" * T R A I L *"^ " * *" " *********************" :: C$(5) "DO YOU NEED INSTRUCTIONS (Y/N) "; C$::C$""160 C$"N"690 C$"Y"160C$TCH MIDDLE SCHOOL,FOSTER- F CITY, MAY/1979N P FOR FULL DOCUMENTATION,SEEe Z ORIGINAL ARTICLEt d:::255 i" *********************" n" * *" s" * O R E G O N *" x" * **********( * PROGRAM MAY BE COPIED*F * FOR EDUCATIONAL USE &*d * MAY NOT BE SOLD.COPY-* !* RIGHT 1981 CUE,INC * "************************ # $ ( REWRITTEN FOR APPLE BY TOM BEAL 2 AND TIM IVERSON,STUDENTS OF < BOWDIFTSWAP *, * *J * 333 MAIN STREET *h * REDWOOD CITY * * CA 94063 * * (415) 363-5472 * * * ************************   ************** CHRIS EDWARDS < ************************Z * *x * SAN MATEO COUNTY * * OFFICE OF EDUCATION * * * COMPUTER-USING EDUCATORS * * * SOrB OREGON TRAIL AUG 1980' F SIMULATES PIONEER WAGON^ TRIP TO THE WESTdy 32K APPLESOFT  DAN RAWITCH CREATIVE COMPUTING - MAY 1978  ADAPTED BY TOM BEAL, KEITH ROLLIN AND                       PETULANT\ END,ENDfh23:6:"PRESS TO CONTINUE...":6:"OR TO END PROGRAM.";~Z$:(Z$)27375(Z$)131010:2:" W O R K I N G ":Z TO MEND A HOLE (5),PATCHd4 "THROW A BALL; PUT UP A TENT (5)",PITCH> A FLOWER; ALSO A GIRL'S NAME (7),PETUNIAH A BASEBALL PLAYER; ALSO A POURING VESSEL (7),PITCHERR PEEVISHLY IMPATIENT (8), STORMS (6),PETREL7 AN UNDERSKIRT (9),PETTICOATX WORKER IN CLAY (6),POTTER  "SOUND OF TINY FEET; ALSO RAPID SPEECH (6)",PATTER SMALL AND DAINTY (6),PETITE  FARMER'S IMPLEMENT (9),PITCHFORK* A PIECEAC0:%DATA QUESTION,ANSWERG PART OF A FLOWER (5),PETALp AN EARTHY VEGETABLE (6),POTATO WHAT A SCOUT OR GUIDE IS A MEMBER OF (6),PATROL AN AUTO FUEL (6),PETROL A SMALL SEA-BIRD ASSOCIATED WITH ";NX(b QUESTION AND ANSWERSl::" ";X;". ";Q$(Q)::" ";A$bvA$""620nACAC1A$QA$(Q)AC3İ440:620A$QA$(Q)ACEĺ::"SORRY - THE ANSWER IS ";QA$(Q)::1000A$QA$(Q)İ410:Y12000::COCO1 "WORDS TO BE GUESSED."J:::"I WILL GIVE YOU A PREFIX, A CLUE, AND"t:"THE NUMBER OF LETTERS IN A WORD."&:::"YOU GUESS THE WORD. THERE ARE 10 WORDS.";0::"PRESS THE KEY TO CONTINUE...";5Z$:(Z$)13565::"...WERS"4"BEGINS WITH PET-, PIT-, PAT-, OR POT-. ":D1000s:::" --------------------------"" PETS, PITS, PATS, AND POTS"" --------------------------":::"PET, PIT, PAT, AND POT ARE PREFIXES OF": D * * *"D$(4):+D$;"RUN MENU";A:50,63:"GOOD!"M50,255Sp::"SORRY, TRY AGAIN!"AC2ĺ"THE WORD STARTS WITH ";(QA$(Q),3)::1000Z$(A$,3)Z$"PET"Z$"POT"Z$"PIT"Z$"PAT"ĝ:1000"REMEMBER-- THE ANSAPS YOU HAD TO, ALSO."Eh::"WOULD LIKE TO TRY IT AGAIN? (Y/N) ";WrZ$:Z$"Y"ĬhtZ$"N"370w:2:"IS THERE ANYONE ELSE WHO WANTS"::"TO PLAY (Y OR N) =>";xZ$:Z$""376zZ$"Y"Ĭ|Z$"N"376 :8:8:" * * * T H E E N :Y1X ::R(Y)R200$ :Y1 :R(X)R8 XK  ASK QUESTIONW X110d :QR(X)n ":610u ,X 6:: @"YOU GOT ";CO;" CORRECT OUT OF 10." JCO7360 T::"THAT WAS A CHALLENGE. I HAD TO USE MY"^"DICTIONARY. PERH************* F+ d480: INTRODUCTIONL n READ QUESTIONS AND ANSWERSj xQ1:Q$(50),QA$(50),R(50) Q$(Q):QA$(Q):Q$(Q)"END"160 QQ1 130 QQ1 RANDOMIZE QUESTIONS ::"W O R K I N G" X110 :R((1)Q)1   *(415)364-5600 EX 4401*;  * *Y  * *w  ***********************  *PROGRAM MAY BE COPIED*  *FOR EDUCATIONAL USE * *ONLY AND IS NOT TO BE* ! *SOLD. * " ********** *-  * COMPUTER-USING *K  * EDUCATORS *i  * *  * SOFTSWAP *  * *  * 333 MAIN STREET *  * REDWOOD CITY *  * CA 94063 *LE SCHOOL, 1000 JACKSON ST. ALBANY, CA 94706J y ADOPTED TO THE APPLE BY KEITH ROLLIN *********************** * *  * SAN MATEO COUNTY *  * OFFICE OF EDUCATION *  *  PET PIT PAT POT 8-80*  GIVES DEFINITION OF A WORD BEGINNING WITH PET, PIT, PAT, OR POT. THE USER GUESSES THE WORD.   APPLESOFT 8K =  BY AL & LINDA NIELSEN, ALBANY MIDD     495"NOT TOO BAD, ";:495@"YOU CAN DO BETTER, ";:495aZ((1)31):Z481,482,483"BETTER PUT ON YOUR THINKING CAP!":499"PLEASE TRY HARDER ,";:495"LET'S GET THE SCORE UP!":499A$ :A$;"'S SCORE IS ";S;" OP UP THE GOOD WORK, ";:495E"YOU'RE PRETTY GOOD AT THIS, ";:495fZ((1)31):Z461,462,463}"ALRIGHT, ";:495"LOOKING GOOD BUT CAN LOOK BETTER!":499"NOT BAD AT ALL, ";:495Z((1)31):Z471,472,473"KEEP GOING, ";:14:431Z15-Z1440,450,460,470,480NZ((1)31):Z441,442,443j:"WOW!";::" ";:495"*********SUPER!********* ";:495A$;", YOU ARE A WHIZ!":499Z((1)31):Z451,452,453"YOU'RE GOING STRONG, ";:495"KEE:JJ1:127SS1:4992D$"AN"SS1:400;380G SCOREQTT1^A1A0xZ((S1000.5)T)10"***************************************":Z92Z11:431Z92Z84Z12:431Z84Z76Z13:431Z76Z68ZN";::"?";:958:"";D$2@D$"A"D$"AN"310RJ7:TA1:" ";D$;" ";:14:gT COMPARE ANSWERy^C$(N$(Y),1)hC$"A"C$"E"C$"I"C$"O"C$"U"390rD$"A"SS1:400|:"OOPS!":AA1I11500:IA1600 N(J)Y:KK1" SHE HAD ";B$;" ";N$(Y);".".TA13:290T" THEY LOST ";B$;" ";N$(Y);"."cTA15:290" WE BOUGHT ";B$;" ";N$(Y);"."TA15":::"XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX":, ANSWER ROUTINE613::"A";::" OR ";::"A SHE CAUGHT ";B$;" ";N$(Y);".".TA16:290S" HE FOUND ";B$;" ";N$(Y);"."bTA14:290" THERE IS ";B$;" ";N$(Y);"."TA14:290" HERE IS ";B$;" ";N$(Y);"."TA13:290" HE HAD ";B$;" ";N$(Y);"."TA12:290 SENTENCESnYY1&xZ((1)91)^:4::"XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX":f:Z140,150,160,170,180,190,200,210,220,230" I SAW ";B$;" ";N$(Y);"."TA11:290" IT WAS ";B$;" ";N$(Y);"."TA12:290" THE SENTENCE AND DECIDE IF"XR:"A";::" OR ";::"AN";::" BELONGS IN THE BLANK."U::"A";::" GOES BEFORE A CONSONANT: A TREE."W:"AN";::" GOES BEFORE A VOWEL: AN OCEAN, AN EAR."XI110::IZ800 d PRINTSRGOT TO ASK--WHO ARE YOU?"::> <20:" ->";:868:4:"";A$L ?A$""60Z @(A$)60j AA$(A$,10) F:2:"AAH! WELL, ";A$;", AS I WAS" K"SAYING, I WILL PRINT 10 SENTENCES. EACH ONE WILL HAVE A BLANK LIKE" L"THIS: ";B$P:"READ:I, ':6:"XXXXXXXXXXXXXXXXXXXXXXXXXXXX"b (:7:13:"USING ";::"A";::" OR ";::"AN";:l ,12:t -13 /B$(95)(95)(95) 2"I WILL PRINT OUT FOR YOU, ";::" ";::" . . ." 5I11000:I:"" 7::::"OOPS!";::" I FO BE COPIED*)  *FOR EDUCATIONAL USE *G *ONLY AND IS NOT TO BE*e ! *SOLD. * " *********************** #N$(20),N(20):I010:N$(I):I $:::::Y1 %:6:"XXXXXXXXXXXXXXXXXXXXXXXXXXXX" &I15:6:"X";:33:"X" * *9  * 333 MAIN STREET *W  * REDWOOD CITY *u  * CA 94063 *  *(415)364-5600 EX 4401*  * *  * *  ***********************  *PROGRAM MAY*************+ * *I  * SAN MATEO COUNTY *g  * OFFICE OF EDUCATION *  * *  * COMPUTER-USING *  * EDUCATORS *  * *  * SOFTSWAP *  A & AN NOV 1979& o STUDENT CHOOSES 'A' OR 'AN' TO COMPLETE RANDOM SENTENCES.z   APPLESOFT 8K  GLENN FISHER 1517 HOLLY ST. BERKELEY, CA. **********        A1(B$)2:"-";: "/""4 XX1500:XXJ 14:19:958::z 19:"SORRY!!";:XX1500:XX:19:868::A90`(EE$)1EE$"":11405jEE$(EE$,(EE$)1)[tCV((EE$)40)24CVCV1:1140y~CV:CH:EE$;:958:1090(13);:CV:17:"/";A1(B$)2:"-";:(92);CV1:16:"<";:16(B$)1:">";CV2:17:(92);  CHAIR,AWOKE,AROUSE,SIPHONP ZIGZAG,DONKEY,SPENT,VANITY,FAMOUS,INFUSE^ END,ENDd$. CURSOR INPUT ROUTINE8EE$"":CV(37)1:CH(36)1BG$:AA(G$):AA13(EE$)2551160LAA8EE$EE$(AA):(AA);:1090V(EE$)010NIMBLE' YIELD,ABYSS,EMPLOY,FASTENH ALBUM,TWINE,RANSOM,BEDECKh IGLOO,WHINE,GRIMLY,SOLID LOUSY,APRON,BANGLE,ANKLET FINISH,PREFER,IODINE,DABBLE GUTTER,NICKLE,POISON,OUTING,MOBILE,RAMROD NERVE,CHIME,HYMNAL,FACTORp SOUSE,FUZZY,AFFRAY,ESTATE@z CLEFT,STEED,OUTBID,WIDESTb LINEAR,THYME,DISMAL,HELMET CLOVE,HITCH,DUPLEX,ARTERY WEDGE,TAFFY,QUAVER,BUTTER ENACT,JOINT,THRUSH,WISDOM DOUBT,QUEEN,MARINA,BEHELD BEGIN,CANAL,GHOST,SY,WINDOW)* FELON,DICED,THROW,CLOUDYZ4 DARING,BAFFLE,INVITE,ENAMEL,DAHLIA,OBJECTy> WINCE,CRESS,DRUG,INVERTH SNORT,MOTIF,CHORUS,GENDERR POUCH,EXACT,BUTTON,ORIOLE\ YOKEL,ARMOR,VANDAL,PICKETf LIMIT,GAUDY,SINGLE,DOUBLYD$(4):D$;"RUN MENU";:> HOBBY,BUILT,DIVERT,FLOWER_ GRIMY,SMART,ENGINE,MUFFIN RUSTY,DESTROY,ICEBOX,DEBTOR SCHOOL,HENNA,ARCADE,PURPLE  RAINY,LAPEL,FROZEN,CIPHER NUTTY,MAGIC,PASTRY,SOLACE   BOOTY,CLOUT,DROWT100.5)Y(WT100.5)%:KX;"% CORRECT ";Y;"% WRONG"S:"IS THERE ANYONE ELSE WAITING TO PLAY?""(Y FOR YES OR N FOR NO)=>";QQ$:QQ$""707QQ$"Y"ĬQQ$"N"707::8:"* * * T H E E N D * * *"A$::WW0:580#WW1:51060"CORRECT!!":@:RR1jD:"SCORE: CORRECT ";R;" WRONG ";WN23:"ANOTHER WORD? (Y OR N) ==>";SQQ$:QQ$""595XQQ$"Y"ė:3:240bQQ$"N"595:::"YOU ANSWERED: "TWR X(R,D,1) B$B$B$(E) A(D)1' E6 A$B$360e 10:" UNSCRAMBLE: ";B$;:CV(37):2000m 14 "WHAT'S YOUR GUESS? "; 1060 : C$EE$ A$C$560 530 3100:WWWW1:WW3İ3000:445" THE ANSWER IS: ";::AMBLED WORD GAME":::! 34,53 B$(20),A(20)9 C A$""M B$""W C$""c Z120n A(Z)0u "Z ,A((1)301) 6B1A @A$ JA$"END"Į:BB1 TB ^C(A$) hE1C rD((1)C1) |A(D)1370 B$(E)(A$ *#  * *A  ***********************_  *PROGRAM MAY BE COPIED*}  *FOR EDUCATIONAL USE * *ONLY AND IS NOT TO BE* ! *SOLD. * " *********************** d:::255 ::: 8);"SCR EDUCATORS *3  * *Q  * SOFTSWAP *o  * *  * 333 MAIN STREET *  * REDWOOD CITY *  * CA 94063 *  *(415)364-5600 EX 4401*  * DAPTED TO THE APPLE FROM THE PET BY KEITH ROLLINa *********************** * *  * SAN MATEO COUNTY *  * OFFICE OF EDUCATION *  * *  * COMPUTER-USING *  * {" SCRAMBLED WORD 7/1980 / e UNSCRAMBLE LETTERS TO SPELL A GIVEN WORD.p {  APPLESOFT 8K  AUTHOR UNKNOWN BUT IT WAS KID PROOFED ON 7/17/80 BY QJ C A     .PZ11500:PZ.:936:%.;. *** RIGHT ***A.a.:13:PZ120:1,39PZ:PZn.PZ131u.1.PZ2(PZ2)Ġ11.5,88:8,165.15,188:8,128.27,318:8,1612.17,1812:8,1615/21,2412:13,1618/15.5,1418:5,1427(".5,1428:5,1431>,.5,1432:11,148S6.7,109:11,149i@.7,1010:19,215J.19,209:19,216T.19,2010:19,2213^.29,3010:19,2214h.29,3011r.29,305:29,306|.PZ1722.5,32PZ:PZ.::::::-PZ12500:PZ$-::+- ?- *** YEA ***E-M-:Y-:::e-PZ15w-MZ((7)16)-MZ5MZ10MZMZ1-MZ-PY139:0,39PY:PY-PZ-5-5,85:5,86.5,811:5,812.5,1416:5,1417:24F-14,1528:27,18:28,17:29,16:30,15:31,14<P-12wZ-27,308:34,358:27,3512:9,1127:9,1130:9,1135d-28,3016:28,3020:17,1927:17,1931n-28,3022:28,3026:23,2527:23,2531x-28,3129:23,3132:30,3128:30,3131-(32000)::,, *** VERY GOOD ***2,<,:13V-PZ139:1,39PZ:PZ] -1-10,137:13,158:16,179:17,1810:16,1711-13,1512:10,1313(-32-14,1816:14,1619:16,1914:17,1816:16,1918<-6:14,1822:23,25155,1221:31,3215*(29,3620:31,3216A(29,3621:5,1116X(12,195:10,1411o(12,196:10,1412(17,2111:10,1417(17,2112:10,1418(17,2120(17,2121(10,1423:10,1424(10,2029:10,2030("TO YOU ";N$ - OOPSo' 12610 - GOOD+t' 12710 - NO?y' 12830 - WHAT?V~' 12930 - TERRIFICp' 13030 - CHARGE !!! ' 13200 - MUSIC POKESF( BYEP(:8Z(5,1210:19,2215d(5,1211:19,2216n(5,1215:29,3510x(5,1220:29,3511(.' 10510 - RATS!$3' 10770 - HI88' 10910 - SUPERL=' 11030 - NEATO^B' 11150 - WOWyG' 11270 - READY-SET-GOL' 11500 - VERY GOODQ' 11680 - YEAV' 11970 - RIGHT[' 12140 - YES`' 12240 - BOOe' 12340 - TRY HARDERj' 12500J15 :J;"-----",:" ";WR$(I,J)3JK (10):(15):WO$(I)|*(23):(2):"COPY THESE AND HIT RETURN, ";N$4Z$:Z$""820>(Z$)13820HRI'' G S U B S '' ------------------$')' 10310 - BYE:(8):"GO ON TO THE NEXT ONE, ";N$3 PZ11800; PZD 450O :(5)o "YOU GOT ";Y;" WRONG, ";N$u  "COPY THEM AND STUDY THEM. ": "HIT THE RETURN BUTTON TO SEE THEM." Z$:Z$""750 (Z$)13750  I1YRA((1)4):RA1RA35605 :RA12240,12500,12830H DSS1:QQ1640W IYY1:QQ1 NXX1:WR$(Y,X)A$(XX):XXXX1:XX5600 S590 XWO$(Y)B$ 490 RA((1)4):RA1RA3650 RA11500,11680,11970 SS0SS1 C5700$ )13230( :"HERE WE GO..........."7 PZ11800? PZS SS0:CC1:QQ0v A$(1),A$(2),A$(3),A$(4),B$,A$ X0:XX1: Q15 :Q;"-----" :" ";A$(Q) Q :"IN WHAT BLANK WOULD '";B$;"' FIT";:AN$ &AN$A$650 0T IN A-B-C ORDER ).":A "AS AN ANSWER YOU WILL GIVE ME THE":o "NUMBER OF THE BLANK IT WOULD FIT IN.": "( REMEMBER TO HIT THE RETURN BUTTON": "AFTER ANSWERING A QUESTION )" ::"HIT RETURN TO GO ON...." Z$:Z$""230 (Z$11600 PZ; :"VERY SOON, I WILL GIVE YOU A LIST":b "OF FOUR WORDS IN A-B-C ORDER.": "BETWEEN THEM I WILL PUT BLANKS WHERE": "WORDS CAN FIT. THEN I WILL GIVE YOU": "A WORD AND ASK YOU TO PUT IT THE": "LIST( KEEP THE LISk Y0, CAKE,CENT,COME,CROWN,CHAIR,3P DIME,DOCTOR,DRESS,DROWN,DAY,1r SHOE,SIZE,STAND,STEP,SOME,3( WAKE,WATER,WEST,WHITE,WON,52 GATE,GOOD,GRAPE,GREAT,GET,2d:"WHAT IS YOUR NAME ";:N$in"HELLO, ";N$;" !!!!" xPZ          515,188:8,128-27,318:8,1612D17,1812:8,1615\21,2412:13,1618s15,1816:8,16216,812:8,16248,16297,13:7,14:7,157,16:8,16K0 :::Z12000:Z ::| HI::9:12,2029"10,1310:10,1311-36,12E10,2017:13,1436]10,2020:13,1437u"10,2021:17,1839,37,15:17,1839-38,15.38,16/39,16h:::rJ12000:J|:936: RIGHT15,88:8,1630 "TO YOU ";N$ #:6:5,1110:16,2110Q5,1114:16,2111i25,3210:36,391025,3211:36,39117,914:36,39199,1119:36,39209,1120:18,191610,205:15,20910,206:12,2028 10,20165,1220:29,3511) 5,1221:31,3215A 29,3620:31,3216X 29,3621:5,1116o 12,195:10,1411 12,196:10,1412 17,2111:10,1417 17,2112:10,1418 17,2120 17,2121 10,1423:10,1424 10,2029:10,20OW","HURL"S "DECREASE","INCREASE","DROWSY","ALERT","FRISKY","PLAYFUL","GLOOMY" "SAD","DEJECTED","HAPPY","HELP","AID","SMELL","AROMA","PIECE","PORTION" BYE :8 5,1210:19,2215 5,1211:19,2216 5,1215:29,3510 BEEP aZ$3500!32000e "EXHAUSTED","TIRED","FOOLISH","SENSIBLE","ORDINARY","UNUSUAL" "HIDEOUS","UGLY","LARGE","ENORMOUS","SMALL","HUGE" "FIRM","RIGID","BREAK","SMASH","DIM","CLEAR","DIRECT","CONDUCT"  "KIND","RUDE","THRR$(L)H$(I)J859$Z4500:SS1+[IT\"NOW, ";N$;", YOUR NEW SCORE IS ";S]::"COPY THESE MISSED WORDS."::"GET THE AIDE TO HELP."::M1L:15:Q$(M);" --- ";R$(M):M^T16336:BEEP150_SOUND(T)(T)(T)(T)(T)(T)`%S209004*N$;", YOU MISSED THESE WORDS":S4"PLEASE TRY THEM AGAIN":d9Z12000:Zl:L0w>I1N}CDG$(I);" *** ";H$(I)E::20:F$FF$J$(I)858G:" SORRY, MISSED AGAIN.":Z11000:Z HLL1:Q$(L)G$(I): 10150SS1470(KK1PG$(K)A$(I):H$(K)B$(I):J$(K)E$(I)WI_NKeN$;", YOUR SCORE IS ";SZ12000:ZS20600S15580S10560800010150:800D10000N800X10075 I4İ20050 I4460) I9İ200506 I9460G I15İ20000U I15460f I13İ20050t I13460 I19İ20050 I19460 I7İ20000 I7460 I16İ4000 I16460 I20İ4000 I20460 20020460 :::"ARE YOU READY";# "Z$3 'Z$"Y"350E ,Z$"YES"350b 6"GET THE AIDE TO HELP."j @X$u ^10100 rI120 w x10 |A$(I);" ****** ";B$(I) ::20:F$ F$E$(I)450 I1İ20050 I1460 I5460 N THE SAME."::1 "FOR EXAMPLE.........."::R " MAN --- MALE"::g "ARE SYNONYMS."x Z16000:Z :N$;", YOU WILL BE GIVEN TWO WORDS":: "IF THE WORDS ARE ANTONYMS TYPE 'A'.":: "IF THE WORDS ARE SYNONYNS TYPE 'S'" "WORKING ON ANTONYMS AND SYNONYMS.":: Z15000:Zv :"ANTONYMS ARE WORDS THAT"::"MEAN THE OPPOSITE":: "FOR EXAMPLE........":: " BOLD --- MEEK ":: " ARE ANTONYMS" Z16000:Z :"SYNONYMS ARE WORDS THAT MEAD$:E$(11)C$:E$(12)D$:E$(13)C$:E$(14)C$:E$(15)D$k +E$(16)D$:E$(17)C$:E$(18)D$:E$(19)D$:E$(20)D$q 2} <S0:K0 d:"WHAT IS YOUR NAME"; eN$ n5500 x"WHAT GRADE ARE YOU IN"; yG$ 10:N$;", IN THIS LESSON YOU WILL BE":)# LEVEL II SKILL 13, MS CLARK=A$(20),B$(20),E$(20)WG$(20),H$(20),J$(20)jQ$(20),R$(20)vI120A$(I),B$(I)#I(C$"A":D$"S")E$(1)D$:E$(2)C$:E$(3)C$:E$(4)D$:E$(5)D$:E$(6)C$:E$(7)D$:E$(8)D$5 *E$(9)C$:E$(10)          4Y245AAY:BBY#5X127519,AX:19,BXK 5AX,19:BX,19U 5X:Yb5Z132r5CCZ:DDZ}5X125CX,CX:CX,DX5DX,DX:DX,CX5X:Z"5R1900:R:::7 *** WRONG ***7(7:7739<77,15731:26,3020:25,3130:26,313524R11000:R>4X018X40:0,38X:0,3838X_4Ci4AA140,38X1:0,3837X4R1100:R4X4K01840:19,K:19,38K4R1100:R4C4K:R1500:R4A21:B17:C19:D19,34280411,2612-:4PZ12000:PZ:::74 ***J4 *** NEW BYET4 ***Z4p4C((1)14)1:C45,355::5,115:5,920:5,113545,1811:22,3511410,19:10,21420,3515:20,3821:15,2135:17,2138!421,3425:21,29:7,824:25,836>315,228:8,1215:15,2212:9,1119t318,2617:18,2214:15,1718:15,1722:14,1626318,2223:20,2322:21,2220:20,2220:20,2318:24,23427,16:18,2227418,2230:31,18:19,2032:33,21:18,2234&41:823,2427+28,22:23,2429?+22,2330:21,2231:10,2132W+20,2211:20,2228g+ZP12:ZPo+PZ+PZ1750:PZ+::33 *** TRY AGAIN ***33::2311,18535,1014:5,101537,1020:21,837,1026+ *** WOW ***+!+*+:2D+PZ039:0,39PZ:PZT+PZ17:PZ}+10,217:21,228:22,239:23,2410+11,22:23,2412:22,2313:21,2214:10,2115+21,2317:21,2321:18,2020:18,2024+10,2124:21,2225:22,2326:3,11:4,12:5,13:6,14A>+10,159:10,1210:10,1113:10,1215mH+10,1514:10,1518:15,1710:15,1713R+21,2510:11,1523\+10,1528:10,1532:29,3110:29,3115f+10,1336:36,15p+6,15:2,10u+PZz+PZ11000:PZ+::+9:"YOU GOT ";S" RIGHT, ";N$".":Hr"TELL YOUR TEACHER HOW YOU DID."St10000^x13501dX'::::" PRESS ANY KEY TO GO ON ";:AN$:::++ *** NEATO ***++ +:PZ120:3:PZ2(PZ2)Ġ13*+10,151:10,1574+>> DRESS.","'S"="6. WHERE IS <> HAT?","'S"l "7. THE SIX <> GO SLOW.","S" "8. WHERE IS <> TOY?","'S" "9. THE <> ARE ON THE GRASS.","S""10. THE <> BALL IS RED.","'S""p:.  "1. WHO FOUND <> BALL?","'S"_  "2. WHERE IS THE <> HOUSE?","'S"  "3. THE THREE <> WILL PLAY." ,"S" "4. THE <> GO VERY FAST.","S" "5. THIS IS <> IN THIS CLASS."l PZ11000:PZ 10:20:"S":PZ12500:PZ :8:"HERE ARE YOUR PROBLEMS." 10000 S0 I110 K0 A$(I),B$(I),C$(I)# K2DUMY0:D AN S OR 'S TO EACH WORD THAT "O u"HAS BRACKETS AROUND IT." v:"DO NOT HIT THE RETURN KEY AFTER YOU"::"TYPE IN YOUR ANSWER!" x10000 6:"EXAMPLE 1:" 10:"THAT IS THE <> PUPPY." PZ11000:PZ 10:18:"4 * LEVEL III, SKILL 157 * TITLE-APOSTROPHESi * TEACHERS-ADAMS,FRALER, STEELE,AND TROUT {( * GRADE-1STd14220i10:"HI! WHAT IS YOUR NAME";:N$:n8:"READ EACH SENTENCE AND DECIDE IF YOU "0 s"SHOULD AD       33,3614:35,3619#'Z12000:Z- '::9B' NEATOBC':3XE'10,151:10,157tF'3,11:4,12:5,13:6,14G'10,159:10,1210:10,1113:10,1215H'10,1514:10,1518:15,1710:15,1713I'21,2510:11,1523J'10,1528:10,1532:29,39:1,36Y:Y'77'1,710:1,715:1,719:1,18S'10,151:7,10:15,197z'10,199:9,1319:10,1814:15,19'10,1918:10,1423:18,2310:19,2314'10,1926:27,2910:27,2814:27,3019'10,1932:15,1934:10,1436:32,3610::::rJ12000:J'|:936:0| HI;::9S10,3915:14,3926k10,3916:14,392710,3920:10,392126,10:27,10:26,1127,1117,1925:17,1926:::Z12000:Z::' SUPER':1:Y19,1120:18,1916,10,205:15,209C10,206:12,2028[10,2016:12,2029s10,1310:10,1311~36,1210,2017:13,143610,2020:13,1437"10,2021:17,1839,37,15:17,1839-38,15.38,16/39,16h0,1418 17,2120# 17,2121; 10,1423:10,1424S 10,2029:10,2030e "TO YOU ";N$k t:65,1110:16,21105,1114:16,211125,3210:36,391025,3211:36,39117,914:36,39199,1119:36,3920 :8 5,1210:19,22155 5,1211:19,2216L 5,1215:29,3510c 5,1220:29,3511z 5,1221:31,3215 29,3620:31,3216 29,3621:5,1116 12,195:10,1411 12,196:10,1412 17,2111:10,1417 17,2112:1WE'LL","YOU ARE","THAT'S","WE WILL"m "DIDN'T","DID NOT","WHAT'S","HAVE NOT","WE'RE","YOU WILL","HAVEN'T" "WE ARE","YOU'LL","WHAT IS","WHERE'S","THAT IS" "A","B","C","D","E","F","G","H","I","J"* " ",C$(I);". ";A$(I),I;". "; BYE60(+D$(L)A$(I):20050:KK1:K25607,LL1:360>0ID:s?N$;", THESE ARE THE ONES YOU MISSED."::D"PLEASE COPY AND STUDY  "::NI1L:,D$(I)::IX::"GOODBYE ";N$b32000# "YOU'RE","WHERE IS","I'M","I AM"," A85603D$(L)A$(I):20020:KK1:K2560BLL1:360RA6İ20075_ A6560!D$(L)A$(I):20115:KK1:K2560"LL1:360$A7İ10220%A7560&D$(L)A$(I):4000:KK1:K2560'LL1:360)A1İ20075*A1510İ10220 A10560= D$(L)A$(I):20115:KK1:K2560L LL1:360\ A5İ20075i A5560 D$(L)A$(I):20115:KK1:K2560 LL1:360 A9İ10220 A9560 D$(L)A$(I):20020:KK1:K2560 LL1:360A8İ20075 D$(L)A$(I) 20050% KK12 K2560< LL1E 360U A2İ10220b A2560r D$(L)A$(I)| 4000 KK1 K2560 LL1 360 A4İ20075 A4560 D$(L)A$(I):20050:KK1:K2560 LL1:360 A$(I);". ";A$(I) wJ110. |,J;". ";B$(J)5 J? ::Y "TYPE THE NUMBER.":` Am I1500z I2510 I3518 I4523 I5528 I6533 I7538 I8543 I9548 I10553 A3İ10220 A3560: "I1101 $C$(I);". ";A$(I),I;". ";B$(I)8 'I@ (:Z ,"YOU WILL SEE ONE":~ -"OF THE WORDS FROM THE LEFT": 1"YOU WILL TYPE THE CORRECT NUMBER": 6"PRESS RETURN TO GO ON":Z$ TL1 ^I110 cK0 h m:::: rCS YOU WILL SEE.":::= "YOU WILL SEE 2 LISTS OF WORDS":v "YOU MATCH THEM BY TYPING THE CORRECT":" NUMBER": "DO YOU WANT HELP"; Z$ Z$"YES"260 270 "":X$ 10100 I110:C$(I):I :"LOOK AT THESE LISTS""! A$(10),B$(10)' C$(10),D$(10)/2:Kd:"WHAT IS YOUR NAME";SfN$]n5500yxI110:A$(I),B$(I):IN$;", THIS IS A CONTRACTION GAME"::" FOR EXAMPLE...":"THEY'RE .......THEY ARE": "ARE THE TYPE OF THING                P "THE","1CLOWN","ARE PUTTING ON A GOOD SHOW.",">.<"K">END OF DATA<"U1170t NOW FOR SOME POSSESSIVESX$"":X$: GET THE FIRST PART OF THE SENETENCE BECAUSE THE PROGRAM WILL EXPECT IT AFTER WE RETURN:(5)"NOW LET'S LEA",">.<"O("THE","2GIRAFFE","LONG NECK SEEMED TO REACH ","THE CLOUDS.",">.<"2"THE","1GIRL","ARE PLAYING ON THE SWINGS.",">.<"< "THE","2CAR","WHEEL WAS STUCK IN THE MUD.",">.<"F "WHAT IS THE CLOWN PUTTING IN THAT","2BOY"," HAND?",">.<"6BY TODAY.",">.<"' ">POSSESS FLAG<"S"2BETTY","DOG WAS CALLED JO-JO.",">.<""THE","2HORSE","FOOD WAS STORED IN THE STABLE.",">.<""THE","2SCHOOL","CHRISTMAS PARTY WAS FUN.",">.<" ">MIX FLAG<" "THE","1KITTEN","ARE IN THE BASKET.2" WORDS HAVE "'S" ADDED, AND "3" WORDS HAVE "S'" ADDED TO THEM.y "YOU MAY GET TWO","1BOOK" ,"AT THE LIBRARY.",">.<" "MANY","1BOY","AND","1GIRL","BRING THEIR LUNCHES.",">.<""THE","1ELEPHANT","ARE EATING.",">.<" "THREE","1BIRD","FLEW SE$(II);" ";1140)$XX(SE$(II))5.ANAN1O8ANSWER$(AN)" "1120fB:(SE$(II),2);:pL" ";zV1140`j(SE$(II),2)"S";" ";tII~ DATA BELOW DATA --- SENTENCES@ "1" WORDS HAVE 'S' ADDED,"WER$(WO)" ": DELETE WORD FROM ANSWER LIST4990<WOH:(14)Q420] FINISg3500q1170 SUBROUTINE TO REPRINT A SENTENCE:(14)AN0: KEEP TRACK OF ANSWERS II1Z1(SE$(II))48(SE$(II))571060 UH"ADD AN 'S TO THE END OF THE WORD TO MAKE IT POSSESSIVE.":FLAG1:I12800:I:|R14:"TRY IT AGAIN":I12800:I:\ REPRINT SENTENCE AFTER DESTROYING THE DISPLAY f:(14):990p710zI((1)3)1:I10000,10150,10220+ANSRECT ANS.890=MM((1)3)1::MM20020,20100,20050MFLAGFLAG1l (14):"REMEMBER THE RULE"I12800:I: FLAG1Ģ14:JUMP820,840*8504"ADD AN S TO THE END OF THE WORD TO MAKE IT PLURAL":FLAG1:I12800:I:>850),2)"S"b6502lANSWER$(Z)(SE$(Z1),2)"'S";v650\ANSWER$(Z)(SE$(Z1),2)"S'"e460nX$;x" ";460WO1ZA$A$A$" "(A$,(AN$(WO)))AN$(WO)(A$,(AN$(WO))1,1)" "760 CC1: C IS # OF COR X$">POSSESS FLAG<"İ20008 X$">MIX FLAG<"İ2500J X$">.<"690V Z1Z11g SENT$(Z1)X$ (X$)48(X$)57660 ZZ1 &I(X$) 0:(SE$(Z1),2);: :" "; DJUMP((SE$(Z1),1)) NJUMP600,620,640XANSWER$(Z)(SE$(Z1500:PA:"E";:PA1500:PA:"S"3 |PA12000:PA> 10100J :(14)_  GET A SENTENCE Z0: Z IS THE NUMBER OF ANSWERS IN A SENTENCE Z10: Z1 IS ELEMENTS IN SENTENCE X$"" :(14) X$ FLAG1 X$">END OF DATA<"960T A TIME WHEN YOU"::"ANSWER."8 @PAUSE18000:PAUSEx J:12:"FOR EXAMPLE:":::"I ATE TWO ";::"APPLE";::"." T"?"::"YOU WOULD TYPE":PA13000:PA ^16:2:"A";:PA1500:PA h"P";:PA1500:PA:"P";:PA1500:PA:"L"; rPA112);::"APPLES";::" IS A PLURAL."[ ::::"IN THE SENTENCES YOU WILL SEE SOON, YOU"a  "WILL HAVE TO MAKE THE WORDS LIKE ";::"THIS";: " ,:"PLURAL. REMEMBER TO ADD 'S' TO MAKE"::"THE WORDS PLURAL." 6:"ONLY TYPE ONE WORD A YOU." - "PLEASE TYPE YOUR NAME.";N$9 :(15)d N$;" WE ARE GOING TO WORK ON PLURALS"j "TOGETHER. MANY WORDS ADD 'S' TO " "MAKE THE WORD MEAN MORE THAN ONE." INSERT PICTURE OF APPLES X126000:X $ )% SENT$(100): SENT$ IS SENTENCEEANSWER$(50): ANSWER STACKc MAKE SPACE FOR 50 WORDSo(W$(50)2 LVL8 SK16< *** PLURALF *** BY SCOTT KEPHARTP *** CREATED 12/18/79Zdn SAY HIx5500 "I'D LIKE TO MEET                        ŠծӮŠӮ),a(Ҡ̠ŠŬĠ).a(ҠŠŠ̮ՠԠ))a(ŠŠƠŠ̠ٮ)*ca(ŠҠ̠Ԡ)Ja(ӠԠ͠ĠҠ)a(-rq6YX]٠ɠӠӠ͠Ϡ٠ĮϠҠĮ;]ŠΠϠӠӠǠРҠŮ M6o].a(ӠӠŠϠŠנ̠)*a(נӠ) P a() d2eEoPa(͠ҠŠɠ)cP a(Ӡ̮)7]Š͠ӠҠǠӮUVW1-rqY UVW1 q/?2r`-r$ -rq)q qq [2@p()@p()q qq[]ΠN@"drC@"drC@"drO41rD41r N@" rK M6 d2e?o P a() P a(Š@p()@p()qq#q][3b@p()@p()q q!qg[4l@p()@p()q qqq[:v@p(Ԡ)@p()q qq{[3@p()@p()q qq+[50@p(Ƞ)@p()qqq 5[5:@p()@p()q qq?[.D@p()@p()qqq I[5N@p()@p(ԠŠ)q q qS[4X)@p()q qq[.@p()@p()qqq [9@p()@p()qq q[9@p(Š)@p()q q$q ![9&@p(Ƞ)@p(qq[1@p(נ)@p()q q"q [8@p(Ƞ)@p()qq!q[6@p(Ƞ)@p()qqq[/@p()@p()qqq[8@p()@p()q qq[4@p()@p(Π)qqq[7@p(נ)@p()qq$q [4@p(נ)@p()q q"q[5@p(נ)@p()q q w[4|@p()@p(Ԯ)q qq [5@p()@p()qqq[9@p()@p(Π)qqq[0@p()@p()q q q[2@p()@p(Π)qqqO[/T@p()@p()q q%qY[4^@p()@p()qq!qc[6h@p()@p()qq$q m[2r@p()@p()q qqq[6"@p()@p()qqq'[1,@p()@p(Ӡ)qqq1[/6@p()@p()q qq;[4@@p()@p()qqqE[7J@p(5@p()@p()qqq[1@p()@p()q qq[1@p()@p()q qq [-@p()@p()qqq [6@p()@p()q )q qq[7@p()@p()q qq[1@p()@p()qqq[6@p()@p()qq#q [0@p()@p()qq"q[ӬΠƠ̬ҠƠŠҠǠŠԩ4@p()@p()qqq[/@p()@p()qq q[1@p()@p()qq q[6@p()@p(Šk C ijkijkUVWijkYijkO ijkghg hg!hghghghgh  ] f 4 gh!ij k ghghgh [[]ΠӬ10,12154H+10,1514:10,1518:15,1710:15,1713LR+21,2510:11,1523x\+10,1528:10,1532:29,3110:29,3115f+10,1336:36,15p+6,15:2,10z+Z12000:Z+::++ *** WOW ***++:9+Y139:1,39Y:Y:2$+10,1926:27,2910:27,2814:27,3019f*10,1932:15,1934:10,1436:32,3610:33,3614:35,3619w+Z12000:Z +::++ *** NEATO ***+ +:3*+10,151:10,1574+3,11:4,12:5,13:6,14>+10,159:10,1210:10,1113:*:::*Z12000:Z#*::)*?* *** SUPER ***F* b*:1:Y139:1,36Y:Yi*7*1,710:1,715:1,719:1,18*10,151:7,10:15,197*10,199:9,1319:10,1814:15,19*10,1918:10,1423:18,2310:19,2314&*39 )38,15)38,16#)39,16/):::@)J12000:JN*:936:T*g* *** HI ***m&*x0*::9:*10,3915:14,3926D*10,3916:14,3927N*10,3920:10,3921X*26,10:27,10:26,11b*27,11l*17,1925:17,1926v,914:36,3919&h)9,1119:36,3920=r)9,1120:18,1916S|)10,205:15,209j)10,206:12,2028)10,2016:12,2029)10,1310:10,1311)36,12)10,2017:13,1436)10,2020:13,1437)10,2021:17,1839)37,15:17,1820(17,2121)(10,1423:10,1424A(10,2029:10,2030S("TO YOU ";N$f(ZZ12000:ZZp)::v)) *** RATS! ***"),):66)5,1110:16,2110@)5,1114:16,2111J)25,3210:36,3910T)25,3211:36,3911^)710:19,2215#d(5,1211:19,2216:n(5,1215:29,3510Qx(5,1220:29,3511h(5,1221:31,3215(29,3620:31,3216(29,3621:5,1116(12,195:10,1411(12,196:10,1412(17,2111:10,1417(17,2112:10,1418(17,21- TERRIFIC$' 13030 - CHARGE !!! <( 13240 - TRY AGAINT ( 13500 - 1ST GRADEl( 13570 - 2ND GRADE( 13660 - 3RD GRADE(( 13730 - 4TH GRADE2( 13820 - 5TH GRADE<( 13900 - 6TH GRADEA( 13970 - HELLOF( BYEP(:8 Z(5,12t' 11150 - WOW-~' 11270 - READY-SET-GOE' 11500 - VERY GOODW' 11680 - YEAk' 11970 - RIGHT}' 12140 - YES' 12240 - BOO' 12340 - TRY HARDER' 12500 - OOPS' 12610 - GOOD' 12710 - NO' 12830 - WHAT? ' 12930 ,"ON",1,"BEGAN",2,"WEB",1J T "WATER",2,"OUT",1,"HAT",1,"OVER",2,"HAD",1b ^ ">END OF DATA<",0i ' | ' G S U B S $' .' ------------------ 8' B' 10310 - BYE L' 10510 - RATS! V' 10770 - HI `' 10910 - SUPERj' 11030 - NEATO1:768F K((45)7)1:K10910,11030,11500,12930,12610,12140,11970R CRCR1[ 150 :14:N$;" YOU GOT ";CR;" OUT OF ";II;" RIGHT." "PZ14000:PZ ,10310 1 6 @ "SHADOW",2,"WET",1,"AFTER",2,"TURNIP",2 J "CAT",1,"KEVIN",2J125:SO(S)(S)(S)(S):Ja K((97)7)1:K10510,12240,12340,12500,12710,12830,13240m FLFL1 FL2ė:14:"SORRY, ";N$;" THE ANSWER IS ";N;".":PA12000:PA:150 170 6,255:7,50:768:6,222:7,50:768:6,200:7,50:768:6,19208:773,4:774,198:775,7:776,240:777,8:778,202w 779,208:780,246:781,166:782,6:783,76:784,0:785,3:786,96 11270 II1 W$,N IIII1:FL0 W$">END OF DATA<"280 :14 W$" -"; " ";A AN250! S16336:THE WORD SILENTLY. HOW MANY":I n"WORD PARTS DO YOU HEAR? TYPE IN": x"THE NUMBER THAT TELLS HOW MANY PARTS"::"YOU HEAR.":: "EXAMPLE:":6)"HAPPY - 2" 20:"PRESS 'RETURN' TO START" R$3 768,173:769,48:770,192:771,136:772,- *** LVL 4 SK 14/ BY SCOTT KEPHARTR FOR DALE B. DAVIS ELEMENTARYc( MAR 5,19802 SSYLLABLES AND WORD PARTS<13970F5:5:"WHAT'S YOUR NAME ?";N$P:14:"HI ";N$;" !"ZPA14000:PA_ INSTRUCTIONS d:3:"SAY                       M:(W$(J))01210-(0)(W$(J))TW2ĺ9W$(J),G::::Mo(X$,1)"Y"(X$,1)"Y"1250u{I1L:J1W:A$(I,J)".":J:II1MLN(W$(I)):JW(I,2):KW(I,1) P1LNA$(J,K)(W$(I),P,1)JJDXY(W(X$"Y"Ċ14TW80ĺ" 80N"18T(TW2W)2:7BPL(TW(XY$))2);XY$XV:i`J1L:T);jK1W:A$(J,K)"."ĺ". ";:1140o((A$(J,K)));" ";tK::J~:"FIND THESE HIDDEN WORDS IN THE ABOVE":"PUZZLE:"J1S$(I)W$(J)10307HZ$W$(I):W$(I)W$(J):W$(J)HZ$`K13:HZW(I,K):W(I,K)W(J,K)HZ:KjJ:I"HOW MANY COPIES OF THIS PUZZLE DO YOU WANT?";N"FOR EACH COPY, HIT RETURN TO BEGIN":"PRINTING...."$C1N:1070::1230.A$: 31)790)pJJDXY(SD,2):KKDXY(SD,1):P7JSY:KSXXP1LN:A$(J,K)(W$(I),P,1)zJJDXY(SD,2):KKDXY(SD,1):W(I,1)SX:W(I,2)SY:W(I,3)SDII1LJ1WA$(I,J)""A$(I,J)(A(26)64):I1M1:JI1M(L):X1SY(LN1)DXY(SD,2):X11X1L790D4NTNT1:NTWL2850s>"COULDN'T FIT '";W$(I);"' IN THE PUZZLE."@"DO YOU WANT ME TO START OVER?";A$B(A$,1)"Y"750DW$(I)"":950RJSY:KSX\P1LNf(A$(J,K))A$(J,K)(W$(I),P,DXY(I,2):I128:DD(I):K 0,1,1,1,1,0,1,-1,0,-1,-1,-1,-1,0,-1,1 2,4,6,8,2,4,6,8,2,4,6,8,2,4,6,8,2,4,6,8,2,4,6,8,1,3,5,7 I1MLN(W$(I))NT0SDDD(A(28)) SXA(W):X1SX(LN1)DXY(SD,1):X11X1W790)*SYA;l"YOU ENTERED THAT ONE ALREADY. ":"TRY ANOTHER.":480HvW$(I)T$OIn"THAT'S IT..";M;" WORDS.""NOW LET ME PONDER THIS...."I1M1JI1M(W$(I))(W$(J))HZ$W$(I):W$(I)W$(J):W$(J)HZ$J,I I18:DXY(I,1),T$)T$(T$,J1):580:&J1T$(T$,(T$)1):JJ1:570_0T$(T$,J1)(T$,(T$)J):JJ1w:JJ1:J(T$)520D"-";T$;"-"X(T$)MD610]"THAT'S TOO LONG, I'M AFRAID.";_" TRY ANOTHER ONE:":480bIZ1I1:W$(IZ)T$Ă:630REDO ";W$(I);"...":480.T$"."MI1:660V(T$)0ĺ"INPUT ERROR; REDO:":480^J1fT$TE$(T$,J,1):TE$"A"TE$"Z"570 TE$"A"TE$"Z"530T$(T$,J1)(((T$,J,1))32)(T$,(T$)J):570TE$T$T$"":500J(ENTER A HEADING THAT WILL BE":"PRINTED OVER THE PUZZLE:"B XY$r "OK...ENTER A WORD AT EACH QUESTION MARK." "TO REDO THE PREVIOUS WORD, TYPE A HYPHEN (-)." "WHEN YOU RUN OUT OF WORDS, TYPE A PERIOD (.)." I1MT$:T$"-"II1:"YW1330( ^"THE LENGTH";L:LWMDL5 cL1350t h"WHAT IS THE MAXIMUM NUMBER OF WORDS":"IN THE PUZZLE?";M rM2380 w"SORRY, THERE MUST BE AT LEAST 2 WORDS.":360 | A$(L,W),W$(M) S$(M) W(M,3),DXY(8,2),DD(28)9 "NOW 00:PAUSE & ,A(Z)((1)Z1)\ 6"HOW MAY COLUMNS DOES YOUR PRINTER":"HAVE? ";TW @"DO YOU WANT A SOLUTION PRINTOUT?";X$ J"WHAT IS TO BE THE WIDTH OF THE PUZZLE?";W:MDW TW2TW345 W"THAT WILL NOT FIT IN ";TW;" COLUMNS.":330 SK YOU IF IT SHOULD START THE"K "PUZZLE OVER. IF YOU DON'T WANT IT TO"z "START OVER, TYPING 'NO' WILL THROW AWAY" "THAT PARTICULAR WORD. IF THIS PERSISTS,"; "TRY GIVING LESS WORDS OR BIGGER PUZZLE" "DIMENSIONS!":: PAUSE120-", F"ALPHABETIC CHARACTERS OUT OF THEM,"U P"AND INCORPORATES THEM INTO A WORD"m Z"SEARCH PUZZLE.": d" IN THE COURSE OF MAKING THE PUZZLE, " n"THE MACHINE MAY FIND THAT IT CAN'T" x"PUT A PARTICULAR WORD ANYWHERE, AND" "SO WILL A_ ***WORD SEARCH PUZZLE< 10);"WORD SEARCH PUZZLE"[10);"CREATIVE COMPUTING"}9);"MORRISTOWN, NEW JERSEY"(2" THIS PROGRAM IS A WORD SEARCH PUZZLE":"GENERATOR!! THE PROGRAM TAKES A SET OF" <"INPUT STRINGS, PURGES ALL NON      180: 23! D$;"BRUN MENU"' > CENTER STRING A$^ B(20((A$)2)):B0B1k B:A$: from our library." P:D Z"WILLAMETTE APPLE CONNECTION, INC."X d"P.O. Box 7252w n"SALEM, OREGON 97303-0053 x20:"PRESS ANY KEY TO CONTINUE" zA$ } D$(4): CTRL-D 12 C(1101):C6ĺ::A$"BE SURE CAPS LOCK IS DOWN":l  ::::"These programs are distributed by the"f"WILLAMETTE APPLE CONNECTION, Inc. as"("Public Domain. If any person has proof"2"that any program is not Public Domain,"<"please contact us and we will delete" F"the program(#f 2#UVW"7#`%q -r9#`%q <#`$K# A#\F#ghK#YP#[_\ !a(٠ŠҠӠ)H@UVWYqq_"  q q( UVW UVW \  Y UVWAY Y [?'#]Ӡ̠ŠӠƠԽҠƠ@`$JPLq/?rqT _Ta(Ǡ٠)_+^a(ϬԠՠԠҠŮ)_ha(٠Ρ)_%ra(ԧӠԠԠ٠)_|a(٠Š)_\ UVWYqa(ԠΡ)_a(ԠӠԮ)_a(ՠԠԡ)_ a(ӬԧӠԮ)_qZq<\ q\ UVWY_"W?]ԠԠǭԠ٠ΧӬŠŠҠԠӮŠԠӬŠ٠Ů XqZq^P  `q/? rbql _la(ԡ)_va(Ǡ١)_a(Ϯˮ)_a(٠ġ)_a(̡)_a(ԧӠԮ)_7hbE(Ԡ)FE()IE(Ǡ)FE()-rca(ҠЧϠЬӠΧ)|a(ϠŠ)GR@`@9()$pq_d o]pK zM6$o P a(ӠҠǮ)QEW]ԠԠԭըŠԩƠԣ"`%\4,`%\1`%\(#3`%\(# 6q@`2%q#E]ŠŠ٠ӮJ`$d,Tqqdqd ^M6ΠŬ̬ΠƠ̠ج٩ĠҠƠŮ \ M6#a(ԠӠŠ̠ƺ)a@E()G]ԠΠƠ\R@`@9()$p`@9@$X`@:@$@3]ŠĠ̠Ӡ͠٠ɮĽŠӠΠ̠Ү#d`%q -ri`%q  kqlq2/?2r7n]ǠŠ̠ŠҠҠɮx`%\ K]Ġ̠̠Ӡ)2a(Πή)4cM6S(ϠՠԠŠӠϠΠĠ٠ҠΩ)&@8`@9()%q:`@:()@:()$6+<ccS(ӠΧϠή)&@ O]P\\Z]ĽŠŮ),cS(ӠΧϠŮ)&@ &M63(oa(ŠŠӠ̠Š)-*a(ΠРƠŠծӮՠΠ)-,a(ϠŠ٠ŠԠŠ)'.a(ĬҠϠŠȠ)+0a(Π̠ҠĠ)c>a(ȠĠĠՠ)a(Ҡ)GT`$cH a(ŠҠ̠ŠҠ)a(ҠȠŠӮ)Cca(ϠЬҠЧĠ)a(Š̠ERS APRIL 1979R.\ LAST MOD. JULY 19794fNp 'STATES & CAPITALS'TC_INA,PHOENIXF :: "WELL, I GUESS YOU REALLY DON'T KNOW IT!!(SHAME)"* "THE CORRECT ANSWER IS' ";B$(I);"'NOW I WILL ASK YOU AGAIN!"4 1089 DONATED BY KEVIN ARMSTRONG>H GIVEN TO APPLE CORE OF SAN FRANCISCO FOR USE OF MEMBODE ISLAND,PROVIDENCEQ WISCONSIN,MADISON,MINNISOTA,ST. PAUL,MICHIGAN,LANSING KENTUCKY,FRANKFORT,TENNESSEE,NASHVILLE,NEBRASKA,LINCOLN MONTANNA,HELENA,WYOMING,CHEYENNE DELAWARE,DOVER CALIFORNIA,SACRAMENTO,OREGON,SALEM   ARIZOUMBUS,INDIANA,INDIANAPOLIS,IOWA,DES MOINES_ KANSAS,TOPEKA,MISSOURI,JEFFERSON CITY,OKLAHOMA OKLAHOMA CITY,COLORADO,DENVER,UTAH,SALT LAKE CITY HAWAII,HONOLULU,ALASKA,JUNEAU,TEXAS,AUSTIN,LOUISIANA BATON ROUGE,PENNSYLVANIA,HARRISBURG,RHNA,COLUMBIA,FLORIDA, TALLAHASSEE,GEORGIA,ATLANTAs ALABAMA,MONTGOMERY,ARKANSAS,LITTLE ROCK, MISSISSIPPI,JACKSON WASHINGTON, OLYMPIA,NEW MEXICO,SANTA FE,NORTH DAKOTA,BISMARK SOUTH DAKOTA,PIERRE,IDAHO,BOISE,ILLINOIS,SPRINGFIELD* OHIO,COL$% 0 vf'  `m :F a -mLǏLi^j_kZl[`8tp`8M`y h (`|)* X |`YLHHJhh`Ǘ˯߷ë󳏋'C/cO KC[ a(נ)+Ss?` WILLAMETTE APPLE CONNECTION, INC. L(OAD R(UN D(ELETE C(ATLG T(DRIV K(LOK U(NLOK X(ALL E(XIT V(ERIFY ----------------------------------------VOL PG OF SECT-USED LEFT ---------------------------------------- ) v) m}}m~~ة$eeeLؠ D8}}~~ؠ ~ 0})JJJJ 0ș}) 0șeJJJJ 0``% $ Bd 鑠e e ēHi&eh L`$e  ɍ ` X0 md:&98N9m:Jn8m8eed`8edd 鑠` :` ^67ą89 Q@ y 6 @^`6798 Q`Hǒ hǒ``}~eei@iA)m~~ v  6g/5 ys r ; ya ` `$$(ɠ$C y$f ``H$%  h\  `CATALOG\Y/N\LOAD\LOCK\UNLOCK\RUN\SAVE\DELETE\NOMONC\START\ LENGTH\,D\I/O ERROR\VERIFY\@  dh a X ;g B ؐg KL L KPhg a X00   ddd 鑠 ؐLs ;O ؐ YLЪPТ2'gh a X ;" ē$ y X ؐ Y ȒL :L'% g h y ē I8Mtn=vH?J QVQT_ɕ%j^iZk[l#^Z_[ 0f ߓ Y1  Ȓ@)ȹ@)ȹ@) Xmɠ 0   L Mf'fП K Xg QLiLLs4  ON  - 1204 BALMORAL DRIVE;  - CARY, N.C. 27511C. 275111 CHILD READ THE STATE NAME AND":P P"POINT TO IT ON THE MAP, THEN WAIT FOR": Z"IT TO BE COLORED IN TO SEE IF HE OR SHE": d"IS CORRECT." 103,1:104,96:24576,0 ,D$;"RUN NTS" : USES USMAP50, FILL1, AND NTS  - DAVE GARS=  D$(4)2:2:" NAME THE STATESa"***************************************"(:"'NAME THE STATES' IS AN EDUCATIONAL":2"PROGRAM ALLOWING CHILDREN TO IDENTIFY ":<"STATES ON A MAP OF THE UNITED STATES."::! F"HAVE THE!! ! 7)1X42:Y50:22000:X29:Y35:22000:ST(37)0: OREGON xnQRST(38)1X204:Y52:22000:ST(38)0: PENNSYLVANIA nSRST(39)1ST(39)0: RHODE ISLANDnURST(40)1X206:Y87:22000:ST(40)0: SOUTH CAROLINAoVRST(41)1X117:Y48:22000:ST(4000:ST(32)0: NEW YORKWmJRST(33)1X216:Y79:22000:ST(33)0: NORTH CAROLINA mLRST(34)1X110:Y35:22000:ST(34)0: NORTH DAKOTAmMRST(35)1X195:Y52:22000:ST(35)0: OHIOmNRST(36)1X134:Y85:22000:ST(36)0: OKLAHOMA;nPRST(30:X51:Y78:22000:ST(28)0: NEVADAalERST(29)1X225:Y32:22000:ST(29)0: NEW HAMPSHIRE lFRST(30)1X220:Y51:22000:X220:Y55:22000:ST(30)0: NEW JERSEY lHRST(31)1X91:Y87:22000:ST(31)0: NEW MEXICOmIRST(32)1X214:Y35:22ST(24)1X170:Y95:22000:ST(24)0: MISSISSIPPI hk?RST(25)1X147:Y78:22000:ST(25)0: MISSOURIkARST(26)1X74:Y38:22000:X62:Y24:22000:ST(26)0: MONTANAkBRST(27)1X117:Y57:22000:ST(27)0: NEBRASKA$lDRST(28)1X38:Y63:22009:Y23:22000:ST(19)0: MAINE Uj8RST(20)1X218:Y61:22000:ST(20)0: MARYLANDj:RST(21)1X228:Y39:22000:ST(21)0: MASSACHUSETTSj;RST(22)1X176:Y41:22000:ST(22)0: MICHIGANjR142:Y59:22000:ST(15)0: IOWAUi0RST(16)1X117:Y78:22000:ST(16)0: KANSAS i2RST(17)1X183:Y71:22000:X168:Y80:22000:ST(17)0: KENTUCKY i4RST(18)1X164:Y114:22000:X153:Y106:22000:ST(18)0: LOUISIANA j6RST(19)1X220)0: GEORGIABh&RST(11)1X190:Y156:22000:ST(11)0: HAWAIIh(RST(12)1X56:Y31:22000:X69:Y57:22000:ST(12)0: IDAHO h*RST(13)1X162:Y61:22000:ST(13)0: ILLINOISh,RST(14)1X172:Y57:22000:ST(14)0: INDIANA i.RST(15)1XFORNIA8gRST(6)1X87:Y78:22000:ST(6)0: COLORADOngRST(7)1X225:Y42:22000:ST(7)0: CONNECTICUTg RST(8)1ST(8)0: DELAWARE g"RST(9)1X214:Y126:22000:X202:Y108:22000:ST(9)0: FLORIDA h$RST(10)1X191:Y93:22000:ST(100:X59:Y139:22000:X64:Y131:22000:X74:Y153:22000:ST(2)0: ALASKA fRST(3)1X58:Y82:22000:X68:Y105:22000:ST(3)0: ARIZONAfRST(4)1X158:Y88:22000:ST(4)0: ARKANSASgRST(5)1X22:Y57:22000:X44:Y89:22000:ST(5)0: CALIUepN TENN.,TENNESSEE,TEX.,TEXAS,UTAH,UTAH,VT.,VERMONT,VA.,VIRGINIA,WASH.,WASHINGTONreuN "W.V.","WEST VIRGINIA"ezN WISC.,WISCONSIN,WYO.,WYOMINGeR *** SEEDS FOR STATESeRST(1)1X178:Y93:22000:ST(1)0: ALABAMAKfRST(2)1X54:Y143:220","NEW HAMPSHIRE","N.J.","NEW JERSEY","N.M.","NEW MEXICO","N.Y,","NEW YORK","N.C.","NORTH CAROLINA","N.D.","NORTH DAKOTA"d\N OHIO,OHIO,OKLA.,OKLAHOMA,ORE.,OREGON,PA.,PENNSYLVANIAdfN "R.I.","RHODE ISLAND","S.C.","SOUTH CAROLINA","S.D.","SOUTH DAKOTA"DAHO,ILL.,ILLINOIS,IND.,INDIANA,IOWA,IOWA,KANS.,KANSASIc9N KY.,KENTUCKYc>N LA.,LOUISIANA,ME.,MAINE,MD.,MARYLAND,MASS.,MASSACHUSETTS,MICH.,MICHIGAN,MINN.,MINNESOTA,MISS.,MISSISSIPPI,MO.,MISSOURI,MONT.,MONTANA,NEB.,NEBRASKAcHN NEV.,NEVADAydRN "N.H.I150b"NJ12b#NST$(I,J)%b$N+b&N1b(Nb*N "ALA.","ALABAMA","ALSK.","ALASKA","ARIZ.","ARIZONA","ARK.","ARKANSAS","CAL.","CALIFORNIA","COLO.","COLORADO","CONN.","CONNECTICUT","DEL.","DELAWARE"6c4N FLA.,FLORIDA,GA.,GEORGIA,HAW.,HAWAII,IDAHO,IR7COLOUR0 aCOLOURCOLOUR1DaCOLOUR3COLOUR4: SKIP WHITEOa24000aa21000: FILLqa#D16000:wa(}aNa N *** ST$(I,J) = STATE NAMES, WHERE I IS STATES NUMBERED ALPHABETICALLY AND J=1 FOR ABBREVIATION AND J=2 FOR FULL NAMEb!N `36864(`:8:"LOADING DATA..."4`D$(4)Y`(D$;"BLOAD FILL1": A$9000,L$320h`dST$(50,2)t`iST(51)`20000` *** MAIN PROGRAM `:23000`E150`ST(E)1`16301,0`:24`:ST$(E,2)`D16000: aCOLOU"" " " " " """""""""