' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` `44`>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#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 ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?Lˆʎõĵ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õ`  \ 濭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-&(p @4àŠ@跻~!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䵍䵩m嵍`"L ŵ8ŵH ~(`  d ֠Ġ4z# 4u`WERE DAMAGED ON YOUR TRIP."]"YOU RECEIVE ONLY HALF THE CURRENT PRICE FOR THESE FURS."g1320q 1410("SUPPLIES AT NEW YORK COST ?80.00.")"YOUR TRAVEL EXPENSES TO NEW YORK WERE $25.00."*x:"DO YOU WANT TO TRADE AT ANOTHER > "YOU WERE LUCKY. YOU ARRIVED SAFELY AT FORT NEW YORK."H 1311R1430"YOU NARROWLY ESCAPED AN IROQUOIS RAIDINGPARTY HOWEVER, YOU HAD TO LEAVE ALL YOURFURS BEHIND."13201418B1B12M1M12"YOUR MINK AND BEAVER 9<:10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO"H)1023,9P*: :"HAVE A GOOD DAY !!!"SK$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$PRAB EMIRATES","ABU DHABI"e"UNITED KINGDOM","LONDON","URUGUAY","MONTEVIDEO","VENEZUELA","CARACAS""VIETNAM","HANOI","YUGOSLAVIA","BELGRADE","ZAIRE","KINSHASA","ZAMBIA","LUSAKA"E$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ERLAND","BERN","SYRIA","DAMASCUS","TANZANIA","DAR ES SALAAM"x"THAILAND","BANGKOK","TOGO","LOME","TONGA","NUKUALOFA""TRINIDAD & TOBAGO","PORT OF SPAIN","TUNISIA","TUNIS","TURKEY","ANKARA""UGANDA","KAMPALA","RUSSIA (USSR)","MOSCOW","UNITED ACHAREST","SAUDI ARABIA","RIYADH"g"SENEGAL","DAKAR","SIERRA LEONE","FREETOWN","SOMALIA","MOGADISHU""REPUBLIC 0F SOUTH AFRICA","PRETORIA AND CAPE TOWN","SPAIN","MADRID""SRI LANKA","COLOMBO","SUDAN","KHARTOUM","SWEDEN","STOCKHOLM"<"SWITZNIAMEY"T"NIGERIA","LAGOS","NORWAY","OSLO","OMAN","MUSCAT","PAKISTAN","ISLAMBAD""PANAMA","PANAMA","PARAGUAY","ASUNCION","PERU","LIMA""PHILIPPINES","QUEZON CITY","POLAND","WARSAW","PORTUGAL","LISBON" "RHODESIA","SALISBURY","ROMANIA","BUO","MALTA","VALETTA","MAURITANIA","NOUAKCHOTT"t"MEXICO","MEXICO CITY","MONGOLIA","ULAN BATOR","MOROCCO","RABAT""MOZAMBIQUE","MAPUTO","NEPAL","KATMANDU","THE NETHERLANDS","AMSTERDAM""NEW ZEALAND","WELLINGTON","NICARAGUA","MANAGUA","NIGER","AMMAN","KENYA","NAIROBI"]"SOUTH KOREA","SEOUL","KUWAIT","KUWAIT CITY","LAOS","VIENTIANE""LEBANON","BEIRUT","LIBERIA","MONROVIA","LIBYA","TRIPOLI""LIECHTENSTEIN","VADUZ","MADAGASCAR","TANANARIVE","MALAYSIA","KUALA LUMPUR"."MALI","BAMAK06XA(K);" OF THE HORSES OF THE ";A$;B$;" KILLED."]bA(K);" OF THE ";A$;B$;" KILLED."clivowA$A$"YES"1990A$"NO"2010"INCORRECT ANSWER - - PLEASE TYPE 'YES' OR 'NO'."1930Z112020Z12.3.X(16336):X(16336):X(16336)4.:.D.X2@2DAPWIGRfffWI&ffnDIXDX@HY[Sy$tYSyW9bQQkXX.X(16336):X(16336):X(16336)..X2@2DPWIGRfffWI&ffnDIXDX@YSy$tYSyW9QQXXOWN COW" "IT WAS JUSTICE"5 "HER RED SCARF"L "HE WALKED AWAY"c "OUR ORANGE RUG"| "HE TRIED TO WALK" "A YELLOW SKIRT" "HE WALKED AGAIN" "THE GREEN GRASS" "HE WALKED SOUTH" "THE BLUE SKY"  "HE WALKEM"s "TRY IT MY WAY"0x "YOUR RIGHT HAND"H} "HIS RING FINGER"\ "MY LEFT LEG"s "HER LIMP DRESS" "HE WAS CRUEL" "A DULL SUMMER" "A WHITE SWEATER" "A YOUNG PONY" "A BLACK CROW" "IT IS JUST" "MY BR7 "BEGIN AT ONE"(< "SHE IS TIRED"<A "AT MY WALLS"VF "THE FOOTBALL GAME"mK "HE WAS HARRIED"P "I AM FINE"U "I AM FIRST"Z "YOUR WHOLE FAMILY"_ "GO DOWNTOWN"d "HIS RIGHT WRIST"i "TRY IT AGAIN"n "HER LEFT AR "SIX RAW EGGS"# "AN OLD LADY"8 "SIX RED HENS"O  "A PURPLE FINCH"e "SIXTEEN YEARS"~ "THE TENNIS MATCH" "SIXTEEN ACRES" "BEGIN AT ONCE"# "IN THEIR WAY"( "AT MY WATCH"- "ON THEIR WAY"2 "HE WAS HUNGRY"ENNIS DRESS"! "ONE YEAR AGO"; "TEN YEARS YOUNGER"N "LAST MONTH"e "HIS BACK ACHES"z "A YELLOW TIE" "ONE YEAR BEFORE" "OF HIS HAT" "ONE YEAR TO GO" "ON THE WAY" "DO YOU KNOW HIM" "I KNOW YOU" DAYS OLDER"$ "TEN YEARS OLDER"8 "GO WITH HER"J "EXCUSE ME"_ "COME WITH US"t "COME WITH ME" "GO WITH HIM" "THE LAST DAY" "I KNOW THEM" "A RED TURTLE" "A YOUNG GIRL" "HIS BACK POCKET"  "HER T"91321","19234";B "78132","01654","12065","46751","9183jG "98456","46753","98546","89545","38954"pLV BEGINNING DATA`j "IN THE NIGHT"o "DURING THE DAYt "AT THE TIME"y "NOT THIS TIME"~ "IN THE HOUSE"  "TEN4","36535","26543";$ "8465","8769","9062","2116","8790"d) "6546","8423","1011","1023","1017". "1019","9909","9969","9960","9099"3 "9009","9999","6999","6606","3555"8 "7447","2233","8000","4568","3883"= "60415","436759","10390", "11111","22222","33333","44444","55555"Z "47653","89456","46757","49855","75652" "66666","77777","88888","99999","00000" "111111","444444","888888","999999","555555" "5647","5712","8381","9821","7547"  "76544","8574","872325);"-------X----"N .X I140:"-";:IEb "COME BACK SOON!"Ol 3210lv "THANKS FOR YOUR MONEY" "I'LL USE IT TO BUY A SOLID GOLD ROULETTE WHEEL"  3420  M$D$", "E$ \ N  9361 I140:"-";:I: PRINT 40 DASHESO "CHECK NO. ";(100(1))U _ 3230l 22);M$r x  "PAY TO THE ORDER OF -";B$;"--$"; P  & 7);"THE MEMORY BANK OF CALIFORNIA"0 : 25);"THE COMPUTER"D AST DOLLAR"6 3190#@ D02920@J "YOU BROKE THE HOUSE!!"NT P101000.X^ 2960gh "AGAIN ";or Y$| (Y$,1)"Y"1630 1,3,5,7,9,12,14,16,18,19,21,23,25,27,30,32,34,36 P13190 "TO WHOM SHALL I MAKE THE CHECK "; B$ T(C)49S372780) T(C)50S3827803 2110D T(C)S2780N 2110{ "YOU WIN ";B(C)35;" DOLLARS ON BET ";C DDB(C)35 PPB(C)35 C  "TOTALS: ","ME","YOU" " ",D,P" P02880 , "OOPS! YOU JUST SPENT YOUR LI"YOU NOW HAVE $ ";IC"(INCLUDING YOUR PREVIOUS SAVINGS)"L508WJ14cF(J)0jJp "MINK","BEAVER","ERMINE","FOX":::::::"OUI MAUDITE MERDE POURQOUI PRENDS-TU MON TEMPS.""SIGNE -- LE COMPUTEUR"FORT?"%z:::"ANSWER YES OR NO";/{B$:5|;b"YOUR BEAVER SOLD FOR $ ";B1F(2)"YOUR FOX SOLD FOR $ ";D1F(4)"YOUR ERMINE SOLD FOR $ ";E1F(3)"YOUR MINK SOLD FOR $ ";M1F(1)IM1F(1)B1F(2)E1F(3)D1F(4)IKY"/ "A VERY OLD STORY"8/ "FLEETS OF WAR SHIPS"S/ "A VERY OLD MANSION"n/ "A DOG'S RED COLLAR"/ "CAN YOU SEE THEM?"/ "THREE SHADES OF RED"/ "SHE HAD TWO DOGS"/ "JOHN TAKES MARY OUT"/ "A FURNITURE SALE"0 "SHE LO". "THE BRIDGE IS OUT"3. "SIGNS OF SPRING"O. "THE LIGHT IS BRIGHT"e. "HOLIDAY MEALS". "MAGAZINES TO READ". "SHE HAD 5 KITTENS". "THE FRAME IS CRACKED". "NATIVES SELL CRAFTS". "THE EDGE OF SPACE"/ "FILLED THE SCING"-~ "WELL-DRESSED LADY"8- "COURTROOM BATTLE"R- "TOO MANY CHILDREN"l- "RIBBONS WITH LACE"- "FENCE BY THE ROAD"- "LETTERS TO WRITE"- "THE DOOR IS OPEN"- "MARY EARNS MONEY"- "SINGING ALONG". "TEACH LITTLE KIDSM",L "THE NIGHT IS DARK"7,Q "JANE RIDES TO WORK"O,V "TOO MANY CHAIRS"f,[ "HORSES TO RIDE",` "TIED UP WITH STRING",e "UP THE STAIRCASE",j "SMALL WOODEN BOX",o "BILL TAKES LESSONS",t "CHILDREN IN SCHOOL"-y "JIM LEARNS DANISHES" + "WALK IN THE WOODS"7+ "THE LION PACES"Q+$ "THE FIRE CRACKLES"j+) "THE LATEST STYLE"+. "EMPTY PACKING BOXES"+3 "RAINBOW COLORS"+8 "A SHOTGUN WEDDING"+= "FOUR YARDS LONG"+B "JIM CARRIES ROCKS",G "LEARNING TO SWI* "THE HOLIDAY SEASON"0* "AN INSECT BITE"J* "ICE CREAM IS COLD"e* "UNDER THE ROOFTOPS"* "A FLOCK OF PIGEONS"* "A BALANCED CHECKBOOK"* "FAMOUS ARTISTS GROUP"* "A HEAVY WINTER COAT"* "HORSES FOR SALE"+ "WASH THE DFUME") "A FLOCK OF SHEEP";) "TINY SPECKS OF PAINT"W) "THE ENGLISH TEACHER"t) "HE MAILS THE LETTERS") "JANE FEEDS THE CAT") "THE LATEST FASHION") "JOHN AND JANE TRAVEL") "BILL WEARS GLASSES") "JANE TYPES A LETTER"IN THE WILD"%( "A MUSEUM EXHIBIT"B( "MARY VISITS A FRIEND"]( "LOOK UNDER THE BED"x( "LIVE LONG AND WELL"( "WINE AND CHEESE PARTY"( "RIDE IN THE RAIN"( "HEAVY TELEPHONE BOOK"( "THE PHONE IS RINGING") "SHE SPILLED PER'\ "THE MAIL IS LATE"7'a "COLOR TELEVISION SHOW"P'f "BABY TAKES A NAP"m'k "SATURDAY AT THE PARK"'p "WRITE HIM A NOTE"'u "MARY VISITS JANE"'z "A BOTTLE OF PERFUME"' "THE PAINTING IS GOOD"' "LET THE CAT OUT" ( "ANIMALS IS BLURRED"&&/ "JANE COOKS DINNER"E&4 "HE'S TIRED AFTER WORK"a&9 "THE ASHTRAY IS FULL"{&> "LOOK AT THE MOUSE"&C "ANIMALS IN THE ZOO"&H "THE PAINT IS DRY"&M "THE MEAL IS OVER"&R "SOFT AS A FEATHER"'W "THE LAMPSHADE IS BENT"IS CLOSED"&% "BILL READ THE BOOK"C% "BILL LEADS THE BAND"c%  "AN IMPRESSIVE BUILDING"}% "HIS CUP IS EMPTY"% "LOOK FOR THE RAINBOW"% "THE DOG HAS FLEAS"%  "I CAN READ QUICKLY"%% "JOHN READS MAGAZINES" &* "THE PAGERMEDIATE$)$ "WE ATE DINNER LATE"E$ "WE HATED HER DINNER"`$ "SHE LOVED HIS SUIT"|$ "LET'S GO HOME EARLY"$ "HERE COMES THE DOG"$ "THE WATER IS COLD"$ "LOOK IN THE CLOSET"$ "TRAFFIC IS HEAVY NOW" % "THE STORE ANN WAS DEAD"%# "SHE HAD SUCCESS"=# "ANNE WAS PRETTY"O# "IT IS MAY"f# "JOHN KNEW MARY"{# "IT IS MY OWN"# "JILL KISSED JACK"# "ON HIS WAY"# "BOB GOT A RIDE"# "VERY GOOD ADVICE"# "BOB KILLED MARY"#$ INTE"IT WAS ABLAZE"%"Y "ANN CAME HOME">"^ "THEY WENT ABOARD"W"c "VERY POOR ADVICE"p"h "THEY WENT ABROAD""m "ANNE CAME HOME""r "HE WAS ABUSIVE""w "COME DOWN HERE""| "HE WAS ABUSED"" "COME UPSTAIRS"" "SHE HAD ACCESS" # "! "JOHN FELL DOWN".!" "MONEY IS GREEN"E!' "BILL CAME LATE"W!, "I AM BLUE"m!1 "MARY WAS LATE"!6 "SHE SPOKE QUICKLY"!; "MARY HAD A DATE"!@ "ABANDON SHIP"!E "JILL IS PRETTY"!J "ABANDON ALL HOPE"!O "JILL IS PINK""T D NORTH"  "THE WHITE SNOW"4  "I LOST TRACK"M  "DEEP BLACK NIGHT"c  "I LOST MY WAY"z  "THE BROWN DIRT"  "A GOOD ORANGE"  "HOT RED FLAMES"  "UP THE HILL"  "A TASTY ORANGE"  "TO THE MILL"! "HIS YELLOW STREAK"STOP RAINING?"3? "SOME BIRDS MIGRATE EACH YEAR"Z? "SHE HAD LOTS OF SHOPPING TO DO"z? "STARS COME OUT AT NIGHT"? "THE WATERS ARE CALM AGAIN"? "SHE HAD AN OPERATION RECENTLY"? "THE WEDDING WAS POSTPONED"@ "BLUE IS THE FAVORITERY LAZY ANIMALS"3> "THE LABEL FELL OFF THE CAN"R> "CAN SHE FIND MY WATCH?"w> "THEY GOT A BAD SUNBURN TODAY"> "THE MUSEUM WAS ROBBED LAST NIGHT"> "I DIDN'T GET THE RIGHT CHANGE"> "WHICH ISLAND WILL YOU VISIT?"? "WHEN WILL IT E WOOD HAS TERMITES IN IT">=p "THIS DOLL WILL BREAK EASILY"a=u "HE HAS TO WEAR GLASSES NOW"=z "HE MUST DO HIS HOMEWORK NOW"= "THE WATER IS TOO COLD FOR ME"= "CAN YOU FIND MY WATCH?"= "SHE WAS A POOR HOUSEKEEPER"> "LIONS ARE VET'S ROW ACROSS THE RIVER"@ "WE HAVE 2 CATS AND 5 FISH";C "THIS SET OF BOOKS IS FOR SALE"8 "THE CLOSET IS TOO FULL"f8 "PACK EXTRA CLOTHES FOR THE TRIP"8 "JOHN GRADUATES THIS SPRING"8 "FIRECRACKERS ARE FUN TO WATCH"8 "DO YOU THINK THIS IS CORRECT?"8 "HOW MANY MORE MUST WE DO?"9 "W "WHICH ARE THE BEST BUYS?"E7 "WHAT WOULD YOU LIKE IN YOUR SOUP?"k7 "I THOUGHT OUR GUESTS WERE FUN"7 "I'M GOING SHOPPING LATER"7 "LOOK IT UP IN THE DICTIONERY"7 "PIGS OFTEN MAKE GOOD PETS"7 "LET'S GO TO THE SHOW TONIGHT"8 "E?"%6v "LONG DISTANCE PHONE CALLS"L6{ "HOW MANY OF THESE DO YOU HAVE?"r6 "ISN'T THIS SEASONING TOO HOT?"6 "MY FAVORITE SHOWS ON TV"6 "WHEN DO YOU THINK WE'LL GO?"6 "THE PLAY WAS WELL WRITTEN"6 "HOW DO YOU GET THIS OPEN?"7 EARNED SPANISH YET?":5S "THERE'S A HAUNTED HOUSE THERE"a5X "HAS YOUR LETTER BEEN RECEIVED?"5] "THE LITTLE GIRL WAS PRETTY"5b "A NIGHT AT THE THEATRE"5g "HE DOESN'T LIKE TO FLY"5l "THEY HAVE TOO MANY PETS"6q "WHY DON'T YOU WAIT HER VALUABLE CRYSTAL"440 "HE MAKES JEWELRY OF CORAL"W45 "ALL THE WALLS WERE PAINTED"|4: "SHE CROCHETS AFGHANS ALL DAY"4? "HAS THE SHIPMENT OF PAPER COME?"4D "I THINK THE INVOICE IS WRONG"4I "DOES YOUR TV SET STILL WORK?"5N "HAVE YOU LAVES ANY MINUTE"63 "MY TRAIN IS OVER AN HOUR LATE"]3 "WHY DID THE MAILMAN COME LATE?"}3 "IT'S TOO LATE TO GO NOW"3 "WHY NOT STAY OVER TONIGHT?"3! "WHERE DID YOU PUT THE BOOK?"3& "THAT STORY WAS VERY AMUSING"4+ "THIS IS A SET OF "WHAT ARE WE HAVING FOR LUNCH?"F2 "THE ONLY SATISFACTORY ANSWER"t2 "LEARNING DEMANDS PRACTICE AND CONCERN"2 "SO SURROUNDED BY FALSE CONCEPTIONS"2 "SELF-LOVE AND THE LOVE OF GOD"2 "A REASON TO ABSTAIN FROM TRYING"3 "MY PLANE LE "REMEMBER TO BUY SOME MILK">1 "LET'S GO OUT FOR A BEER"a1 "IT REALLY WAS A GREAT SHOW"1 "I CAN'T FIND MY BLACK SOCKS"1 "WHY DID GEORGE KILL HIS FATHER?"1 "I DON'T UNDERSTAND WHAT HE SAID"1 "IT WAS A FULL MOON LAST NIGHT"!2 ST HER GLOVES"*0 "THE CLOCK STRIKES 5"G0 "DO MICE LIKE CHEESE?"d0 "SHE WAS DAY-DREAMING"0# "THE CLOCK STRIKES 2"0( "TRIMMED WITH SILVER"0 0 ADVANCED0 0 "DID YOU ENJOY SCHOOL TODAY?"0 "I HAD A MAGNIFICENT TIME"1BOY, ON EXPERIENCE"=O5 "MEN STAND IN LINE TO GAMBLE AGAIN"jO: "FOR STERILE WEARIENCE AND DREARIENCE"O? "THE BURNT CHILD, URGED BY RANKLING IRE"OD "HARDLY WAIT TO GET BACK AT THE FIRE"OI "WHO SAYS THAT HE CAN DRINK OR NOT?"PN "THE NATI READ THIS RIGHTLY OR WRONGLY?"GN "ORIGINS OF AMERICAN PLACE NAMES"tN "EXPERIENCE IS A FRUIT TREE FRUITLESS"N! "EXPERIENCE IS A SHOE-TREE BOOTLESS"N& "EXPERIENCE IS A FUTILE TEACHER"N+ "EXPERIENCE IS A PROSY PREACHER"O0 "DEPEND, MY IN NINE-HEADED SERPENT"=M "ANY ONE OF A NUMBER OF THINGS"lM "HE RECENTLY PUBLICLY APOLOGIZED FOR IT"M "A QUARTER-HORSE IS THREE-QUARTERS MULE"M "IT IS HARROWING, BROWBEATING AND CRUEL"M  "IS ANOTHER MAN'S REMINISCENCES"N "DID YOU"WHEN HIS FACE IS APOPLECTIC"FL "BUT JOY IN HEAPING MEASURE COMES"oL "WHOSE SOUPS ARE SOUNDLY PEPPERED"L "A SHIVER GOES RIPPLING UP MY BACK"L "THE DRY OUTER COVERING OF FRUITS"L "A COLLECTION OF WATERY FLUID IN A HOLE"M "THE SLAAND THEN ONE MORN A CHILD IS BORN"KK "THE FRIENDLY EMBERS WARMER GLEAM"xK "MUTTERING SPELLS LIKE AN ANGRY DRUID"K "AND WHEN THEIR ORGY AT LAST ABATES"K "THE BLOWFISH NIBBLE AT YOUR TOES"K "ALL LADIES THINK THEY WEIGH TOO MUCH"L 'J "APRIL SOFT IN FLOWERED LANGUOR"UJ "AND OFTEN TRAMPLED ON HIS OWN SHADDER"~J "GO SOAK YOUR HEAD IN BOILING ADS"J "I ROAM WHERE MAGIC CASEMENTS OPE"J "AND I HOPE TO DO SO NEVER AGAIN"J "BEING A FATHER IS QUITE A BOTHER""K "TS, SEALS HAVE PUPPIES"DI "BUT GUPPIES JUST HAVE LITTLE GUPPIES"rI "A MAN WHO CAN'T SLEEP WITH THE WINDOW"I "AND IF YOU WANT TO NAME YOUR OWN RATION"I "THEY SCATTER ADJECTIVES HITHER AND YON"J "PRAISE THE SPELLS AND BLESS THE CHARMS"HE GOES - HOW MANY WHEELS"EHc "HARK TO THE WHIMPER OF THE SEAGULL"jHh "OR ELSE THE OTHER WAY AROUND"Hm "I HOPE THAT IN MY ELDERING AGE"Hr "IN A HOTEL DINING ROOM IN ALABAMA"Hw "I AM ABOUT TO VOLUNTEER A DEFINITION"I| "SWANS HAVE CYGNEE OPENED THE DOOR AND LED THE WAY"OGE "THE STRANGE CASE OF THE MISSING DOVE"xGJ "WITHDRAW, MY DEAR, WHILE YOU CAN"GO "GET UP, I TELL YOU, GIRL, GET UP!"GT "RISE IN YOUR GOWN OF SHINING BLACK"GY "AND IT ALSO BAGGED BEHIND"H^ "HOW FAST CIFIC HAS WITHSTOOD EXPLORERS"KF' "SUCH AN EXPANSE OF TIME AND DISTANCE"zF, "DID PETER PIPER PICK A PECK OF APPLES?"F1 "WHERE IS HE? - I DON'T KNOW"F6 "THIS WAS MADE POSSIBLE BY A GRANT"F; "THAT HAS BEEN MANKIND'S MAJOR QUESTION""G@ "H)E "AND MAGGOTS CREEP ABOUT HER EVES"VE  "HER HAIR LAY SILKEN AND SHINY BRIGHT"E "DENIED THEIR RIGHTS BY THE GOVERNMENT"E "HOW CAN IT LAST UNSPOILED?"E "A DIVERSE AND UNIQUE CORNER"E "SUCH A VARIED EXPANSE OF SPACE"F" "THE PA"AND STRANGLES IN A STRING OF CURSES"SD "HER LIVING MOUTH SHALL SPEAK NO TRUTH"|D "AND MAGGOTS CRAWL ABOUT HER EYES"D "HIS RIGHTOUSNESS CAUSED HIS DOWNFALL"D "THE RIGHT IDEA AT THE WRONG TIME"E "WHY DID THE CHICKEN CROSS THE TRACKS?"TRANGLES IN THE STRINGS OF PURSE"LC "BEFORE SHE MENDS MUST SICKEN WORSE"{C "HER LIVING MOUTH WILL BREED BLUE FLIES"C "AND MAGGOTS CREEP ABOUT HER EYES"C "NO MAN SHALL MARK THE DAY SHE DIES"C "WHO GROANS BENEATH THE PUNIC DIRT"%D BJECT OF EVERY VARIETY OF MISERY"KB "BOTH ARE EXAGGERATED BY POSTERITY"pB "THE MOST PRECARIOUS HEARSAYS"B "I MEAN AN EXTREMELY REMOTE POSTERITY"B "THE STYLE WAS SO PECULIARLY MY OWN"B "WHO GROANS BENEATH THE PUNIC CURSE"!C "AND SA "THE PHONE KEEPS RINGING"BA "ELEPHANTS DO NOT FEAR MICE"aA "HE HAS 3 NIGHT CLASSES"A  "THE SAND WAS PURE AND WHITE"A "THEIR VACATION WAS A SUCCESS"AA EXPERTAA "I THOUGHT THAT THAT MOVIE WAS TERRIBLE"!B "THE SU COLOR"*@ "THE WEDDING WAS CALLED OFF"N@ "HOW MUCH FARM LAND IS LEFT?"u@ "POLLUTION CONTROL IS DIFFICULT"@ "A TORNADO TOUCHED DOWN HERE"@ "IS ANY FOOD LEFT FOR ME?"@ "THEY MUST HAVE MORE ROOM"@ "THE CHILDREN HAVE MANY PETS"* 4&> *** BATS SHOW UP ***,CKH6:"": *** CONT-G ***R" A SUPERBAT JUST FLEW INTO THE CAVE AND PICKED YOU UP."\A(131)0ĺ"YOU DROPPED ALL OF YOUR TREASURES."fN131133pA(N)02180zA(0)A(N):A(N)0:Z0:39E ** N131133,A(N)29320402z" IT'S STUCK IN THE ROCKS AND CAN'T BE PULLED OUT."Z1:" LET ME USE YOUR MAGIC WAND A SEC. ";Z02000: :"HOCUS,POCUS..."Z02000: A(W)310:Z0D#N *** EARTHQUAKE ***)X5bN110DlZ3R(88)Nv3950T[6" GUESS WHAT ? WE JUST HAD AN EARTH-QUAKE, BUT I'M O.K."**MAGIC WAND ROUTIN308 Z3084040#? ** VENDING MACHINE **EL4s"THERE'S A VENDING MACHINE HERE."N131133A(N)2881820" I'LL GET SOME BATTERIES WITH YOUR GOLD COINS."&B2000A(W)0:@"J *** LOCK BOX ***(T7^N131133JhA(N)2891680Prz|"YOU CAN'T TAKE IT, IT'S TOO HEAVY."" THE BOX WAS TOO HEAVY SO I OPENED IT WITH YOUR KEYS. BY THE WAY THERE IS A RUBY IN IT THAT YOU CAN TAKE."A(W)J03140A(N)18402JA(N)WJ:4708d(M1)(J0)(J94)((J)J)WJ:470" SORRY, BUT YOU CAN'T GET THERE FROM HERE."1480",** SPECIAL SITUATION SUBROUTINES6----------------------- YOU CAN'T PICK IT UP NOW. YOUR'RE CARRYING TOO MUCH."M1440k"O,K, YOU'VE GOT "A$"."A(W)7A(W)307 ** WHERE TO NEXT **" WHAT CAVE DO YOU WANT TO EXPLORE NEXT ? ";JN134136J1835 ."+"DO YOU WANT TO TAKE IT WITH YOU ?"? "(Y OR N) ";J$PJ$"N"1440bJ$"Y"1290s(Z290İ16302Z2901440<Z291M1FZ294İ1990PZ11440ZZ2953650dN131133nA(N)0A(N)A(W):A(W)0:1430xC"NK W3 W4 ENTERED BY.W5 WILLIAM DAVIS=W6 ANDQW7 ELUISE MARVINWW8lW9 AUGUST 19,1979 9ED BYW5 WILLIAM DAVISW6 ANDW7 ELUISE MARVINW8W9 AUGUST 19,1979 DATA STATEMENTS#V MAY EASILY BE1V ENTERED9V NV THE DIMENSIONSeV IN LINES 135-139{V MUST BE CHANGEDV TO REFLECT ANYV ADDITIONS OR V DELETIONS FROMV THE CATAGORY TOTALSV0V1 APPLE T.A.R.T.W2 SOFTWARE BAE".U "WHOSE FLAVOR REEKS OF RANCID BUTTER"\U "FIVE STORIES TALL THIS MANTRAP STANDS"U "THEY PASS UNWARY THROUGH ITS PORTALS"U "YOU SEARCH IN VAIN FOR A BEDSIDE LAMP"U "A CENTURY LATER THE NIGHT IS PAST"U MORE OR DIFFERENTV "AND WHILE HIS SOCKS ARE HUNG TO DRY"OT "AND YET THE IDIOTS KEEP ON LIVING"|T "IN WOE AND PAIN THROUGH LIFE THEY GO"T "TO CONFIRM THROUGH SACRIFICE INTENSE"T "MY ATTENTION HAS RECENTLY BEEN FOCUSED"U "GIRL LOCUSTS DON'T MAKE ANY NOIS "NEVER AGAIN SHALL WE GET TO BED"LS "DUSK IS AN EXILE, NIGHT HAS FLED"xS "MIDNIGHT LIES WITH THE BURIED CZARS"S "YOU BUY THEM THUS BECAUSE YOU THINK"S "THEIR TOES AND YOURS ARE FAR APART"S "YOUR WOOLLEN SOCKS CANNOT BE WORN"%T UST ONE DROP OF COMMON SENSE"KR "SHE STRUNG HIM UP ON THE NEAREST TREE"vR "THE COATS DISPLAY NO WASPISH WAIST"R "TO SURVIVE A DAY OF MEDIUM LENGTH"R "LUCKY ARE THEY WHO RETAIN SOME FRIENDS"R "THIS IS THE DAY THAT WON'T GET DARK"#S WHOSE INSTINCTS INSTRUCT THEM"JQq "WILL NEVER LEARN BY SUFFERING ONCE"sQv "BUT EVER AND EVER PLAY THE DUNCE"Q{ "EXPERIENCE! WISE MEN DO NOT NEED IT!"Q "EXPERIENCE! IDIOTS DO NOT HEED IT!"Q "I'D TRADE MY LAKE OF EXPERIENCE"R "FOR JON BANKRUPT BY A WAR"APS "THINKS TO RECOUP WITH JUST ONE MORE"jPX "THE WRETCHED GOLFER, DIVOT-BOUND"P] "PERSISTS IN DREAMS OF A PERFECT ROUND"Pb "LIFE'S LITTLE SUCKERS CHIRP LIKE BIRDS"Pg "WHILE SPENDING THEIR ALL ON LOSING"Ql "PEOPLE. ANYBODY THAT TRIES TO PICK IT UP TURNS INTO A FROG. "A.`o.j"EXCUSE ME WHILE I LOOK FOR SOME FLIES."u.t{.~.** BATTERIES WENT DEAD *..6:"": ** CONT-G **a/" NOW LOOK WHAT YOU DID. YOUR FLASH-LIGHT WENT OUOVEL OR I'D DIG YOU OUT."-C-" SEE YAH LATER."I-O-$l-.* PICKED UP MAGIC BOOK*r-8x-B-L6:"": ** CONT-G **;.V" I DON'T THINK YOU SHOULD HAVE DONE THAT. THE MAGICIAN WHO OWNS THAT MAGIC BOOK PUT A SPELL ON IT THE DRAGON'S CHAMBER..."R, ::I14000:::"AND YOU ARE THE SUPPER !!!":X, ^, {, *** ROOF FELL IN ***, , 6:"": ** CONT-G **- " THE ROOF JUST CAVED IN AND BURIED YOU ALIVE. TOO BAD I DON'T HAVE A SHT AND KILLED YOURSELF !!!"/+ 5+ f+ *** EATEN BY THE *** DRAGONl+ + 6:"": ** CONT-G **, " SORRY, BUT I TRIED TO WARN YOU ABOUT THAT SOUND. SUPPER IS NOW BEING SERVED HERE IN YOU'RE IN CAVE "W" WHICH LEADS TO :",* 2** 8*4 j*> ** END OF PROGRAM ** ROUTINES*H -----------------------*R *\ ** FELL INTO A PIT ***f *p 6:"":" SORRY, BUT I TRIED TO WARN YOU.")+z "YOU FELL INTO A DEEP PIIN THE CAVES !") N96130.) A(N)03270S) ZA(N):4040:A$",";:(36)28ĺY) q) N131133:A(N)0:y) :) :" YOU'RE AT A CAVE ENTRANCE THAT LEADS TO :") BB1) 710) ) *** IN ROUTINE ***) &* ::" ATH.";:756( A(W)306#( BB1,( 4702(& P(0 * AT ENTRANCE ROUTINE * V(: i(D A(131)03210x(N N131133(X A(N)03200(b J96(l A(J)0JJ1:3180(v A(J)A(N)( ( A(96)03270) " SO FAR,YOU'VE FOUND THESE TREASURESTWEEN HIS BLOOD-SHOT EYES."' :" BUT LOOK AT THIS. HE LEFT BEHIND HIS LITTLE BLACK BOOK WITH THE ADDRESS AND PHONE NUMBERS OF EVERY BEAUTIFUL PRINCESS IN PENNSYLVANIA."' ( " HIT THE "(34)"RETURN"(34)" KEY WHEN YOU CATCH YOUR BREVE ME YOUR GUN, QUICK !!!"*& N02000:0& ;& N15`& R(23):R(25):"B A N G ! ! !"q& J0500::w& & R(30));"POOF !!!"& J0500::' " INCREDIBLE ??? THE DRAGON JUST VANISHED WHEN I SHOT HIMRIGHT BEPOOF !!! YOUR MAGIC CARPET JUST DISAPPEARED."D% M0J%" P%, m%6 *** DRAGON ROUTINE ***s%@ %J N131133%T A(N)2922930%^ %h 3500%r 6%| " Y-I-K-E-S !!!! THERE'S A DRAGON IN HERE."& :"GI9)ı$Z A(W)305$d A(J)0$$n D1*$x 0$ b$ *** MAGIC CARPET *** DISAPEARSh$ w$ N131133$ A(N)2912770$ $ M0$ $ A(N)0$ N1332830$ JN132$ A(J)A(J1)$ A(J1)0$ <% " HERE LOOKING FOR HIS INVISIBLE DOG. HE SAYS HE'LL GIVE YOU A $1000 REWARD IF YOU CAN TELL HIM WHERE HIS DOG IS. IF YOU DON'T KNOWTHEN GUESS."#( #2 "WHAT CAVE IS THE INVISIBLE DOG IN ? ";J$#< #F J((J$))$P (J0)(J95)((J)J)(A(J)AGIC BOOK ? ";J$" J((J$))6" (J0)(J95)2520K" A(J)2953840X" A(W)309c" A(J)0l" 470t" ZW~" 3950" 470" " *** INVISABLE MAN *** ROUTINE" " 6:"": ** CONT-G **# " THE INVISIBLE MAN IS IAN IN THIS CAVE. HE SAYS HE LOST HIS MAGIC BOOK. HE SAYSHE'D GIVE YOU A GOLDEN HARP IF YOU'LL TELL HIM WHERE IT IS."!y :"TYPE IN THE CAVE NUMBER. IF YOU DON'T KNOW, THEN JUST"!~ "TYPE "(34)"99"(34)"."! " "WHERE'S HIS ME IN HERE."E A(131)0ĺ" HE JUST STOLE ALL YOUR TREASURES !"T  N131133_  A(N)0e  m $ ZWw . 2950 8 " HE'S GONE NOW." B L Q ** MAGICIAN ROUTINE ** V ` j 6:"": *** CONT-G ***z!t " THERE'S A MAGIC50NR(94)'A(N)02190/WNp" THE BAT JUST DROPPED YOU INTO CAVE "W" !!!"" IF YOU'RE ALRIGHT HIT "(34)"RETURN"(34);:756*** PIRATE HERE *** :" THERE WAS A PIRATM8%' 10,42,43M8&' 11,44,45\8'' 11,46,47k8(' 12,48,49z8)' 12,50,518*' 13,52,538+' 13,54,558,' 14,56,578-' 14,58,598.' 15,60,618/' 15,62,6380' 16,63,6481' 16,34,6492' 17,33,6-------------- 7' 1,94,-1*7' 0,2,367' 1,4,5B7' 1,6,7N7' 2,8,9\7' 2,10,11j7' 3,12,13x7' 3,14,157' 4,16,177' 4,18,197' 5,20,217' 5,22,237' 6,24,257' 6,26,277' 7,28,297' 7,30,317 ' 8,32,338!' 8,3 "A PEARL6& "A DIAMOND/6& "A GOLD WATCH@6& "AN EMRALDO6& "JEWELRYc6& "A $1000 BILLw6& "A BLACK BOOK6& "SOME ELF FOOD6& "A RUBY6& "A GOLDEN HARP6& "A SWORD6 '6' DATA FOR CONNECTING CAVES7' -------T * 5^-----------------------25& "GOLD COINSC5& "SOME KEYSU5& "A LOCK BOXk5& "A MAGIC CARPET}5& "AN OLD GUN5& "A MAGIC WAND5& "A SWORD5& "A MAGIC BOOK5& "AN OLD CLOCK5& "FURS5& "A SILVER BELL5& "A NECKLACE 6&4 4>4 ** MAKE A$ NAME OF ** TREASURED4J4Y4X0Z288a4A$g4m4s44** SET UP CONNECTING ** CAVE NUMBERS44X024"A(134X)A(137X(Z3))4,464@4J5T * TREASURE LIS OUT OF THIS ")3("MESS, LET ME KNOW."/3-532R3<*** UTILITY SUBROUTINESo3F-----------------------u3P3Z ** MOVE ITEM TO NEW ** CAVE LOCATION3d3nY3R(88)3xA(Y)039503(YW)(YZ)39503A(Y)A(Z)3A(Z)0 YOU FOR FIBBING, "K2"THE MAGICIAN CASTS A SPELL ON YOU "2"AND NOW YOU ARE ONLY TWO INCHES TALL. "::2" WORSE YET, THE MAGICIAN PUT YOU "2!"INTO A SMALL JAR AND LOCKED YOU IN HIS "3$"CUPBOARD. IF YOU EVER GET/1"PLEASE ! RETURN SOON, I GET LONESOME.":X1" -O- GOOD LUCK ! ! ! -O- ^1y1 ** MAGICIAN UPSET **1161 " YOU'VE MADE THE MAGICIAN VERY ANGRY."1"CAVE "J" DOESN'T HAVE A MAGIC BOOK IN IT.":2:" TO PUNISH0A(96)038120:6E0"YOU FOUND THE FOLLOWING TREASURES: "S0N96130d0A(N)038100ZA(N):4040:A$",";:(36)28ĺ00N131133:A(N)0:0:0"THE TREASURES ARE YOURS TO KEEP":0"I ENJOYED SPELUNKING WITH YOU":T AND YOU FELL INTO A PIT AND KILLED YOURSELF. TOO BADESPECIALLY AFTER YOU WERE DOING SO WELL."g/m// *** USER QUITS ***///A(131)03790/N131133/A(N)03802/J96/A(J)0JJ1:3787/A(J)A(N)/"SOUTH DAKOTA","PIERRE","TENNESSEE"]"NASHVILLE","TEXAS","AUSTIN","UTAH","SALT LAKE CITY""VERMONT","MONTPELIER","VIRGINIA","RICHMOND","WASHINGTON""OLYMPIA","WEST VIRGINIA","CHARLESTON","WISCONSIN""MADISON","WYOMING","CHEYENNE"ANTA FE"<"NEW YORK","ALBANY","NORTH CAROLINA","RALEIGH"z "NORTH DAKOTA","BISMARCK","OHIO","COLUMBUS","OKLAHOMA" "OKLAHOMA CITY","OREGON","SALEM","PENNSYLVANIA""HARRISBURG","RHODE ISLAND","PROVIDENCE","SOUTH CAROLINA" #"COLUMBIA",TTS","BOSTON","MICHIGAN"U"LANSING","MINNESOTA","ST.PAUL","MISSISSIPPI","JACKSON""MISSOURI","JEFFERSON CITY","MONTANA","HELENA","NEBRASKA""LINCOLN","NEVADA","CARSON CITY","NEW HAMPSHIRE""CONCORD","NEW JERSEY","TRENTON","NEW MEXICO","S"ATLANTA","HAWAII","HONOLULU","IDAHO","BOISE","ILLINOIS"l"SPRINGFIELD","INDIANA","INDIANAPOLIS","IOWA""DES MOINES","KANSAS","TOPEKA","KENTUCKY","FRANKFORT""LOUISIANA","BATON ROUGE","MAINE","AUGUSTA","MARYLAND""ANNAPOLIS","MASSACHUSE Z$"YES" : 160Mz"ALABAMA","MONTGOMERY","ALASKA","JUNEAU","ARIZONA"|"PHOENIX","ARKANSAS","LITTLE ROCK","CALIFORNIA"~"SACRAMENTO","COLORADO","DENVER","CONNECTICUT","HARTFORD""DELAWARE","DOVER","FLORIDA","TALLAHASSEE","GEORGIA"9 50 310 ELSE 850)<*"DO YOU WANT TO STOP";Z$Z4 Z$"Y" Z$"YES" 850>"YOUR ANSWER FOR LAST QUESTION";H X 730,490R\"YOU GOT ";N;"RIGHT IN ";G;"GUESSES" ]f"WOULD YOU LIKE TO TRY AGAIN";Z$p Z$"Y" B(2))"3.";S$(B(3))+"4.";S$(B(4))1SC$(R);" IS THE CAPITAL OF ";e Z:Z((Z))~ Z 1 Z 4 810 ZC 770A(R)1: "WRONG": 790A(R)2:NN1  "RIGHT! YOU HAVE ";N;"CORRECT":GG1   N)B(4) B(3)B(4) 560(v Y2 690D PRINT CAPITAL CHOICESW"1.";C$(B(1))j"2.";C$(B(2))}"3.";C$(B(3))"4.";C$(B(4)) "THE CAPITAL OF ";S$(R);" IS"; 730 PRINT STATE CHOICES"1.";S$(B(1))"2.";S$( THE VALUE4 OF C IS THE CORRECT ANSWER<C((I)4)1c& PICK FOUR STATES FOR THE CHOICESq0 I1 4:B(I)((I)50)1D INB(C)RX MAKE SURE NONE ARE THE SAMEb B(1)B(2) B(1)B(3) B(1)B(4) 560l B(2)B(3) B(2  Y2 470 A$C$(R)F "WHAT IS THE CAPITAL OF ";S$(R); L V  490c A$S$(R) C$(R);" IS THE CAPITAL OF ";   Z$   (Z$)1 810  Z$A$ 770 760  THIS SECTION ASKS MULTIPLE CHOICE QUESTIONS*ATE @ I1 10% JR((I)50)19 T A(R)2 400A ^ Id h DON'T WASTE TIME PICKING ONEs r R1 50 | A(R)2 400  R: 850  A(R)1 "TRY THIS ONE AGAIN"   X1 520  THIS SECTION ASKS FOR FILL-IN ANSWERSST.) 6 X2: "TO STOP, TYPE S FOR YOUR ANSWER"< "YOU HAVE YOUR CHOICE OF WHETHER THE STATE OR CAPITAL IS ASKED"   "WOULD YOU LIKE TO ANSWER WITH THE CAPITAL "; Z$  Y2 " Z$"Y" Z$"YES" Y1 , 6 PICK A ST "; Z$ + Z$"Y" Z$"YES" 2301 r "MULTIPLE CHOICE -- ANSWER EACH QUESTION WITH 1, 2, 3 OR 4"x X1: "TO STOP, TYPE 0 (ZERO) FOR YOUR ANSWER" 250  "FILL-IN --*-- YOU MUST SPELL EXAXTLY! (SAINT IS ABBREVIATED A(50),B(4),C$(50),S$(50)? READ IN STATE & CAPITAL ARRAYSN I1 50g S$(I), C$(I) : I I1 50 : A(I)0: I: G0: N0 "YOU HAVE YOUR CHOICE OF FILL-IN OR MULTIPLE CHOICE"  "WOULD YOU LIKE TO FILL-IN THE ANSWERS 936#)/5;A r " :::::::*** STATES & CAPITALS ***::::::: "x ~  d STATES & CAPITALS QUIZ PROGRAMn BY DAVE ALVERSON JULY, 1977 x          Ģ12:868:"!!! ERROR - UNABLE TO READ DIRECTORY !!!":D|:1000_1:" 80N":0,63998:0BLA(131)01200V6`"YOU'RE CARRYING :"EjN131133XtA(N)1001180c~ZA(N)m4040vA$,|A(W)100ĺ:1440**TREASURE IN THIS CAVEAA(W)4040" THIS CAVE HAS "A$" IN IT6ĺ" THERE'S A SIGN HERE THAT SAYS: >>> D A N G E R <<<"$A(J)7ĺ" SOUNDS LIKE SOMEBODY IS SINGING. IT MUST BE AN ELF.".A(J)8ĺ" THERE'S A STRANGE MIST IN HERE."8A(J)9ĺ(34)"RUFF RUFF"(34)" I HEAR A DOG BARKING.")(A(J)10)(K0)ĺ:K1k(A(J)2)(L0)ĺ" THERE ARE PITS NEARBY. WATCH YOUR STEP.":L1A(J)3ĺ" CAREFUL, THERE'S A PIRATE NEARBY."A(J)4ĺ" I HEAR A HUNGRY DRAGON, HE'S WAITING FOR HIS SUPPER."EA(J) LITTLE."YB8ĺ:" YOUR FLASHLIGHT IS ALMOST OUT. BETTER LEAVE RIGHT NOW!!!"kA(W)3İ2290q ** ADJACENT CAVE'S ** CONTENTSK0L0N134136JA(N)J01090A(J)51090(A(J)0*4B190880#>W0880+C:^H"TO EXPLORE SOME MORE TYPE 1, ELSE TYPE 2";J$jRJ(J$)x\J23800fJ1840pB50ĺ:" I HOPE YOU BROUGHT MORE FLASHLIGHT BATTERIES." zB25ĺ:" YOUR FLASHLIGHT IS STARTING TO DIM AITTLE ELF IN HERE HIDING SOMETHING."5A(W)82410;Y** WHERE YOU CAN GO NEXT_i3350qZW{4120N134136A(N)07805);"CAVE "A(N);A(N)0ĺ"- THE ENTRANCE";  ** QUIT & BATTERY TEST *200)200İ212040(D0)(A(W)0)(R(50)50)İ2580Q:(A(W)6)(R(5)5)3570lD(M1)(R(5)5)İ2720rNX *** SEE IF SPECIAL *** SITUATIONblA(W)23440vA(W)42890A(W)5İ1770$A(W)7ĺ::"THERE'S A SHY L A D V E N T U R E ."FO500Un ** MAIN ROUTINE **----------------------BB1B03740W03140*** CHANCE SITUATION ***R(200)200İ1890&R(|B200: BATTERY POWER LEFTrD0: BECOMES A1 AFTER INVISABLE DOG IS FOUNDy4@" WELCOME TO THE MARPEL CAVES WHERE YOU'LL FIND MYSTERY, TREASURE AND   I288304" NR(94)3 A(N)0250> A(N)ID J "V ,N123^ 6A$d @s JN137421} TA(N) ^ hW0: USER'S CAVE LOCATION rM0: BECOMES A1 WHEN CARRYING MAGIC CARPET* TYPE '-1' TO EXIT FROM THE CAVES, "P n"AND TYPE '0' FOR A STATUS REPORT."V s x" -O- HIT ANY KEY TO CONTINUE -O-";:756 I13 N3R(88) A(N)0150 A(N)2 I39 N3R(88) A(N)0200 A(N)IIND THE TREASURE. "E b:" I WILL BE YOUR EYES AND EARS AND "s d"WILL TELL YOU IF DANGER LURKS AHEAD.": f:" I HOPE YOU BROUGHT A MAP.":: h" IN CASE YOU DIDN'T,": j"YOU'LL HAVE TO MAKE ONE AS WE EXPLORE. " k' l" RE DEEP PITS INTO WHICH "; T"MANY HAVE FALLEN AND DIED."G V:::y X" -O- HIT ANY KEY TO CONTINUE -O-";:756 Z:: \" YOU, AS A SMART AND BRAVE HUMAN; " ^"AND I, AN ALERT APPLE II, WILL EXPLORE " `"THE CAVES AND TRY TO FX)1/ F" THE MARPEL CAVES, LOCATED IN":_ H"MARPEL TOWNSHIP, PA. ARE SAID TO HAVE " J"MANY HIDDEN TREASURES IN THEM.":: L" FEW EXPLORE THEM FOR IT IS SAID " N"THAT PIRATES AND DRAGONS LIVE THERE-----" R"BESIDES, THERE A4!* * * TREASURE HUNT * * *A* * BY LANCE MICKLUS * *a*IN SOFTSIDE-APPLE EDITION* MARCH 1980, VOL.1 NO.3 * * LISTED BY: TED M. SNOOK* ::A(424)" -O- T R E A S U R E H U N T -O-"(2 <R(X)((1)                             M TARGET = ";D;::B:BC"PRESS ANY KEY TO CONTINUE":A$:KD345Q RMETERS.":780@"SHOT TO RIGHT OF TARGET ";Y2;" KILOMETERS."N Z20810"SHOT ABOVE TARGET ";Z2;" KILOMETERS.":820*"SHOT BELOW TARGET ";Z2;" KILOMETERS."4"APPROX POSITION OF EXPLOSION: X=";X1;" Y=";Y1;" Z=";Z1>:" DISTANCE FRO";R;" SHOTS."5DR0:I15::I:"NEXT TARGET...":>N220dX2X1X:Y2Y1Y:Z2Z1Z:X20730"SHOT IN FRONT OF TARGET ";X2;" KILOMETERS.":740"SHOT BEHIND TARGET ";X2;" KILOMETERS."Y20770 "SHOT TO LEFT OF TARGET ";Y2;" KILO15 X1P2(B1)(A1):Y1P2(B1)(A1):Z1P2(B1)^ D((X1X)2(Y1Y)2(Z1Z)2)(12)l D20670 :"* * * HIT * * * TARGET IS NON-FUNCTIONAL ": &"DISTANCE OF EXPLOSION FROM TARGET WAS ";D;" KILOMETERS" ::"MISSION ACCOMPLISHED IN P1):390 wP3P15 " ESTIMATED DISTANCE=";P3{ "INPUT ANGLE DEVIATION FROM X, DEVIATION FROM Z, AND DISTANCE "; A1,B1,P2 :P220ĺ"YOU BLEW YOURSELT UP!!":580 A1A1R1:B1B1R1:"RADIANS FROM X XIS = ";A1; "FROM Z AXIS = ";B(1)(1):X(B)(A)P1:Y(B)(A)P14 "Z(B)P1< ': T"TARGET SIGHTED: APPROX COORDINATES X=";X;" Y= ";Y;" Z= ";Z YRR1:R5390 ^R355,360,365,370,375 cP3(P1.05)20:390 hP3(P1.1)10:390 mP3(P1.5)2:390 rP3(ED TO SHOOT AT THE TARGET UNTIL IT IS DESTROYED!"::" GOOD LUCK":: "PRESS ANY KEY TO PREPARE FOR ACTION":A$ : A(1)2P:B(1)2P:Q(AR1):W(BR1) "RADIANS FROM X AXIS = ";A;" FROM Z AXIS = ";B& P1100000OLD THE RADIAN OFFSET FOR THE X AND Z AXES, THE LOCATION OF THE TARGET IN THREE DIMENSIONAL RECTANGULAR COORDINATES." "THE APPROXIMATE NUMBER OF DEGREES FROM THE X AND Z AXES, AND THE APPROXIMATE DISTANCE TO THE TARGET"U "YOU WILL THEN PROCES ) 17)"TARGET "3::PdR1:R157.296:P3.141592n"YOU ARE THE WEAPONS OFFICER ON THE STAR-SHIP ENTERPRISE"x"AND THIS IS A TEST TO SEE HOW ACCURATE ASHOT YOU ARE IN THE THREE DIMENSIONAL RANGE"x "YOU WILL BE T     75","01235","87965","34675"I "67890","78901","89012","90123","01234"w "09876","98765","87654","76543","65432" "54321","43210","32109","21098","10987" "13579","97531","24680","08642","75756" "8417","6521","33225","9384","1430", PROGRAM DATA0 WARM UP DATA6e "67354","23655","84561","48796","74865" "63045","7698","87256","14346","6532" "28566","37675","76407","62345","4675" "12345","23456","34567","45678","56789" "01256","023! INITIAL TIME DETERMINATION'8SP1SP600ISP2SP500ZSP3SP400kSP4SP300|SP5SP200  SET UP SCREEN6:10"--------------------"10:10"--------------------"ĺ"THAT WAS WAY BEYOND YOU. WHY NOT TRY SOMETHING A LOT EASIER."j1::"DO YOU WANT TO TRY AGAIN? ";2TR$:(TR$,1)"Y"30034::"TYPE THE RETURN KEY TO CONTINUE";5I1750:I6C$8950:I1750:I<420?490,SCST10ĺ"THAT'S PERFECT. TRY SOMETHING HARDER NEXT TIME!"m-SCST10SCST8ĺ"THAT'S VERY GOOD!".SCST8SCST6ĺ"YOU DID ALL RIGHT. BUT YOU NEED MORE PRACTICE."/SCST6SCST4ĺ"YOU SHOULD TRY SOMETHING EASIER."C0SCST4:"YOU HAVE GOTTEN ";RA;" CORRECT OUT OF ";T;"."S#T10T20T30T40T50549\$564%I120:SOUND(S)(S)(S):I&::"DO YOU WANT TO STOP? ";ST$'(ST$,1)"Y"553(564)SC((10RAT)ST)*::"YOUR SCORE IS ";SC+BL"IT WAS ",P$::"THE NEXT ONE WILL BE DISPLAYED FOR A LITTLE LONGER"YSPSP10b545x:"THAT'S RIGHT":"THE NEXT ONE WILL BE DISPLAYED FOR A SLIGHTLY SHORTER LENGTH OF TIME"SPSP10:RARA1SP20SP20!TT1:1"P$(1):PP$(1)P$1 BASIC PROCEDURE7@900I950R420bI1750:Iy8:(20((P$)2))SP0SP0P$I0SPI5 "WHAT WAS IT?":A$:A$P$540"THAT'S NOT RIGHT":$(P)X110#P$PP$(X)440/X:450=PL5450XP(EX(1)):P$EX$(P)dX110wP$PP$(X)445~XPP$(10)PP$(9):PP$(9)PP$(8):PP$(8)PP$(7):PP$(7)PP$(6):PP$(6)PP$(5)PP$(5)PP$(4):PP$(4)PP$(3):PP$(3)PP$(2):PP$(2)PW$(P) X110$ P$PP$(X)4250 X:450> PL2434] PL2P(B(1)):P$B$(P)i X110| P$PP$(X)430 X:450 PL3439 P(IN(1)):P$I$(P) X110 P$PP$(X)435 X:450 PL4444P(AD(1)):P$ADRMEDIATE 3. MEDIUM"? "4. ADVANCED 4. FAST"j "5. EXPERT 5. VERY FAST"p  "PHRASE LENGTH ";PL "DISPLAY SPEED ";SP STPLSP 470   SELECT PHRASE  PL1429 PL1P(W(1)):P$c"READ IT."= h:"TYPE WHAT YOU SEE AND YOU WILL BE TOLD"W m"IF YOU WERE RIGHT." r:"YOU HAVE A CHOICE OF PHRASE LENGTHS" w"AND DISPLAY TIMES." |:"1. WARM-UP 1. VERY SLOW" "2. BEGINNER 2. SLOW" "3. INTE"X ,  - INTRODUCTION$ .* 6U J"THIS PROGRAM IS DESIGNED TO IMPROVE"| O"YOUR READING HABITS, AND AT THE" T"SAME TIME, YOUR READING SPEED." Y:"A PHRASE WILL BE DISPLAYED FOR A SHORT" ^"PERIOD OF TIME, AND YOU WILL TRY TO" W120 B120 IN120' AD1202 EX120= W$(W)H B$(B)T I$(IN)a AD$(AD)n EX$(EX)y X1W W$(X) X X1B B$(X) X X1IN I$(X) X X1AD AD$(X) X X1EX EX$(X) nO SPEED READING0 BY ELUISE MARVIN H AND WILLIAM DAVISZ AUGUST 1979`flrx~    S163369361214("SPEED READING"2I1750:Inx INITIALIZATION                           S2(S2)S372430" 21104 RED(47) 1:1: F I118M R[( SR2430b2 Il< 2110F BLACK(48) 1:1P Z I118d Rn SR2110x I S362110 2430 --1TO36,0,00(1-36,49,50)35:1 T(C)492760 V 2110` 1-18(43) 1:1*j S1924304t 2110^~ "YOU WIN ";B(C);" DOLLARS ON BET ";Ck DDB(C)x PPB(C) 2810 19-36(44) 1:1 S37S182430 2110 EVEN(45) 1:1 S2(S2)S372430 2110 ODD(46) 1:1 25-36(39) 2:1%S24S372150/2110J FIRST COLUMN(40) 2:1XI1343fSI2150mIw2110 SECOND COLUMN(41) 2:1 I2353 SI2150 I$ 2110. THIRD COLUMN(42) 2:18 I3363B SI2150L I * 1-12(37) 2:1(4S122150S>"YOU LOSE ";B(C);" DOLLARS ON BET ";C`HDDB(C)mRPPB(C)w\2180f"YOU WIN ";B(C)2;" DOLLARS ON BET ";CpDDB(C)2zPPB(C)22810 13-24(38) 2:1S12S2521502110 v2020IQ#Q118*R8RS2000?QNA$"BLACK"[S;" "A$e2020rA$"RED"|1980C1YT(C)372710T(C)362090,2190,2220,2250,2300,2350,2400,2470,2500 T(C)452530,2560,263027101680Z5Z5001680)A(X)01780W"YOU MADE THAT BET ONCE ALREADY,DUM-DUM"a1680lA(X)1sC"SPINNING"&S(100(1))0S0S381830:X(S)X(S)1DS371920NS371900X"00"b2020l"0":::::::"PRESS ANY KEY TO BEGIN GAME"3[A$R^936::"HOW MANY BETS ";YhYorY1Y(Y)1630uw|I150:A(I)0:I: MAT A=ZERC1Y"NUMBER ";C;X,ZB(C)ZT(C)XX1X50X(X)1680Z1Z(Z)ĺ"MINIMUM BET IS $5, MAXIMUM IS $500."4::::N PROGRAM BEGINS HEREn-TYPE OF BET (NUMBER) ODDS" DON'T NEED TO DIMENSION STRINGS,B(100),C(100),T(100),X(38)6A(50)@I138:X(I)0:I: MAT X=ZERJP1000TD100000.+YTS EXCEPT THEIR OWN.":::"PRESS ANY KEY TO CONTINUE"BA$L936"WHEN I ASK FOR EACH BET, TYPE THE NUMBER AND THE AMOUNT, SEPERATED BY A COMMA.""FOR EXAMPLE: TO BET $500 ON BLACK, TYPE 48,500 WHEN I ASK FOR A BET"::::&9) 25-36 42) THIRD COLUMN"% dE n"THE EVEN MONEY BETS ARE:"d x" 43) 1-18 46) ODD" " 44) 19-36 47) RED" " 45) EVEN 48) BLACK"  " 49)0 AND 50)00 PAY OFF 35:1"" NOTE: 0 AND 00 DO NOT COUNT UNDER ANY BE# " TYPES OF BETS"+ :m "THE NUMBERS 1 TO 36 SIGNIFY A STRAIGHT BET ON THAT NUMBER" ("THESE PAY OFF 35:1" 2 <"THE 2:1 BETS ARE:" F" 36) 1-12 40) FIRST COLUMN" P" 38) 13-24 41) SECOND COLUMN" Z" 3 27* "2 " 28 29 30* "Z " 31 32* 33 " " 34* 35 36* " " --------------------" " 00 0 " ::"PRESS ANY KEY TO CONTINUE" A$ --------------------"B " 13 14* 14 "j " 16* 17 18* " " 19* 20 21* " " 22 23* 24 " " --------------------" " 25* 26  .1 8" THIS IS THE BETTING LAYOUT"R B" (X=RED)"X L V" 1* 2 3*" `" 4 5* 6" j" 7* 8 9*" t" 10 11 12*" ~"  936  16);"ROULETTE"*::("ENTER CURRENT DATE ( AS IN 'JANUARY 23, 1978' ) ";2D$,E$:" WELCOME TO THE ROULETTE TABLE""DO YOU WANT INSTRUCTIONS? ";Y$ $(Y$,1)"N"1550         4z#???   ӠƠŠӠɠ  ŠŠɠ !ҠǠ "Ԡ ŠנǠĠQԠ ŠԠ6 ӠƠӠɠӠƠӠɠӠƠӠɠӠƠӠ֠ӠƠӠ֠ӠƠӠ֮ؠ ҠҠàŠ٠ɠ ٠ɠǠΠ ԠӠƠӠӠƠӠ" $ NAME$(105),A$(105),T(105)< "X138:B$B$"=":Z ,X10511:NAME$(X)B$:p 6NAME$(0)(B$,19)| @D$(4) E12:12::"READING CATALOG"::12:29 Y63075 ^2054:D$"CATALOG" c216,0:D$"PR#0":D$"IN#0":8h(NA$(0),1)" " MAXX 85:34,22' 23:958c "SELECT A FILE BY NUMBER (X TO END->";A$:A$"X"ĉ::{ A(A$):AMAX2010 A1Ĭ T(A)66T$"BRUN " T(A)84T$"EXEC " T(A)65T(A)73T$"RUN "  23:T$A$(A) 23:D$T$A$(A)652000& ((NA$(N),8,1))9420000 XX1I A$(X)(NA$(N),8,30)c T(X)((NA$(N),2,1))w X20İ30:2000 X20X58X96İ80 X39İ40:2000 $X39X77İ90 .X58İ30:2000 8X77İ40:2000 BX96İ30:2000 L40 :: U33,40:32,0:23:1::f Z85:23:"IS YOUR PROGRAM LISTED HERE? Y/";::"N";::" ";:A$: dA$"Y"MAXN1:N105::2000 n23:958:34,2:35,21::35,24: 60:X0 N1105 (NA$(N),8,1)"="N105:2000 ((NA$(N),8,1)):8:"PRESS ANY KEY TO CONTINUE"( A$R ::12:12:"ALIGNING MEMORY":63000h Y140:"=";:: :X;::5:A$(X): (" ";::X;::" ";:6:(A$(X),15): <1:9:"COMPUTER LEARNING CENTER":20:22:20:34,2:3: P33,21:32,19:2:1`8(ST6UVk,ȱk-`),-`>c4:9:"-INTELLECTUAL SOFTWARE-"z6:17:"PRESENTS"11:13:"****************"12:12:"**** "::12:17:"CAPITALS"::12:25:" ****"13:13:"****************" 23     : 10IX3X3:YY(I)YY(I)3:-sP1P1:P19955Vx24:25);:"ANG,BG?";AN,BG:BGBG10dANAN180mPP3xPYP556GXB1:PP2:220GXB2:PP33:IGX10GX102:I,P10GX,P:J1(1)55:KK(16336)::16336,0:I12500ANPI))16I2 D0:PX,PY5 EX3X276PY0115H FYY(X)PY100V H3:X,PYf IPXX:PYPYn M61 d(XB1)3200 e(XB2)3210 iX3X276115 l0:I125:BXX3(1)6:BYYY(BX)(1)3:BX,BY nK(16336):16336,0:pIG?";AN,BG:BGBG10$ 8P199PXB1- 9PP2> :P199PXB2[ ;21:17)"WIND:";(WIND)c <I0~ =II.1:XBGI(ANPI) >P199XXB1 ?K(16336):16336,0 @P199XB2X AYBGI(ANPI)16I2 BXXWINDI2 CP199YBGI((2WIND0ē152,10139,5F 3B1(1)20505WIND:B2(1)20200WIND5 4B13,P2B13,P25:B13,P25:B13,P2:B13,P25:B13,P2B13,P25 52:B23,P3B23,P35:B23,P35:B23,P3:B23,P35:B23,P3B23,P35 6P199120 724:"ANG,BI140279:I,P3I,159:YY(I)P3:4 HG(1)5025a I113152:HX(((I112)4.5180)PI)HGp #YY(I)HXP (I,HXPI,159: .WIND((1)10):(1)10050WINDWIND /3:112,10152,10 0WIND0ē112,10125,5 121:17)"WIND:";(WIND) :"WHERE (CR)= CARRIAGE RETURN"P 24:12)"*** STAND BY ***";:I110000:] YY(280)g P199~ PI3.141592654180 936 P1P1 1 P(1)20139 P2(1)20139 P3(1)20139 I1140:I,P2I,159:YY(I)P2:"  _:936:5:7)"*** ARTILLERY SIMULATOR ***":12:"YOUR MISSION IS TO BLOW UP THE OTHER ""GUY BEFORE HE DOES THE SAME TO YOU."::"YOU INPUT THE DATA IN THIS FORMAT:"::"ANGLE TO FIRE, (COMMA) NO# BAGS POWDER" :"EXAMPLE: 45,8.6 (CR)":     BECAUSE YOU DIRECTED FIRE IN ON YOUR OWN"Jw-"UNIT YOU WILL RECIEVE THE"nx-14)"2ND LT DONALD G. BARNETT"}-14)"QUICK DRAW CITATION"-:"THE AWARD WILL BE PRESENTED TO YOUR NEXT OF KIN"- 12000 .X(16336):X(16336):X(16336).ERS CLUB"+-:::22)"JOHN J. KOLOSKI" B(-22) "LTC FA " Z--22) "COMMANDING" fO- 12000lP-rZ-d-:::::n-"YOUR EXTRAORDINARY INCOMPETANCE AND LACK OF FORESIGHT HAS RESULTEDq-"IN THE DESTRUCTION OF YOUR BATTERY" )t-" ,"HAS TURNED THE COURSE OF THE BATTLE" Z,:"A COMMENDATION WILL BE PLACED IN YOUR"-"RECORDS AND A MONUMENT WILL BE ERECTED"-"IN YOUR HONOR AT FT. SILL"  -"YOU WILL ALSO RECIEVE A LIFETIME PASS" -"TO WED. NITE BINGO AT THE OFFIC5 11500, 0: XX,YY>, IT 1 7: TI 1 2: TI J, 11990S, IT\, 70b,x, I1 10: 11990, K1 15:X(16336): K: I,,::+,"CONGRATULATIONS YOUR VALOR, LEADERSHIP","AND EXPERTISE IN ARTILLERY TACTICS" IT1 4 * 11990* IT&+ 708+"YOU MISSED"T+X(16336):X(16336)]+ 70{$,"YOU JUST SHOT YOURSELF"), IT 1 13: TI1 6: TI +, 11990-, IT., 11600,"CONGRATULATIONS --- YOU GOT IT",TGTTGT1 , TGT. 11400&D% 9: XX,YY: 0: OX,OY6F%OYYY:OXXXAM% 9560UN%"OUT OF RANGE"[X%'C00:D1784:D2785:D3787:D4810:D5127:D616384 ' 169,0,160,0,32,113,248,141,42,3,96$' I784 794:J: I,J: I.'*"STRUCK MOUNTAIN"* LE:YY YYSCALE:YY39YY $+% 980% XX39 9522 B1%XX39U2% XX0 9524 ^3%XX0r4% YY39 9526 }5%YY39 6% YY0 95337%YY0=%D3,XX:D2,YY:D1?% (D4)5 11000@% (D4)8 11200A% (D4)4 11300B% (D4)2 QQ1W9:XX(QQ):YY(QQ):XX1XX35:YY1YY25: XX,YY:QQQ 22,28: 21,28^TGTW94d(#DXX2X1:DYY2Y1:XSCALE39DX:YSCALE39DY 2# <# (#DXX2X1:DYY2Y1:XSCALE39DX:YSCALE39DY2# <#%YYY1:XXX1&%XXXXSCA35:X(16336) JH# 11990, IR8 12000A 5O I1 10n 16(I2),27(I2)39I v I 8 0,3939: 0,390: 0,3939 4 37,386 2 33, 38: 35,38W9(3) 51:W9(W9) <N FAST"  IR1 9"  11990A  JH1 40:X(16336) J  JHV  11990_  IRk  12000 "SORRY --- YOU'RE OUT OF BULLETS !"; "IMMEDIATE RETROGRADE OPERATION IS CALLED FOR --- BUG OUT !!" ;  IR1 9: 11990 JH1 C  PWD0 940! V0PC1007 CO(EL):SI(EL)D VXV0COR VYV0SI b XXVXWINDt VYVYGRAVITY VY300 210 VY300 YYVY 9500 200 ::: "SORRY --- YOU'RE OUT OF POWDER !" "I HOPE YOU CAN RUWIND 2 9000 < 5000F F"WIND =";WIND;"GRAVITY =";GRAVITY j P"ROUNDS:";RDS;" CHARGES:";PWD| Q RDS0 990 RRDS RDS1 dX 800 : Y500 n"ENTER CHARGE,ELEVATION (DEG)"; sVY0:VX0 x PC,EL yELEL57.2958 }PWDPWDP 10# (X10:Y10:X25000 :Y29900 F *RDS (X1)23:RDS(RDS) 8 V +PWDRDS4.0 -GRAVITY (X2)25:GRAVITY (GRAVITY).1(10(X1)) .1 .WIND(X2)15:WIND (WIND).1(10(X2)) /DIR (X2) 0 DIR .51 50  1WIND JECT IS TO HIT ALL OF THE":"TARGETS ON THE SCREEN BEFORE RUNNING":"OUT OF ROUNDS OR POWDER CHARGES" :"YOUR POSITION IS INDICATED BY THE ":"GREEN BLOCK. TARGETS ARE BLUE. ":"OBSTACLES ARE GREY": : "READY TO BEGIN"; ! Z$ " Z$"NO" <  10000C :::"ARTILLERY":::"BY RICK LONGBRAKE":::"IN EACH GAME THE TARGETS, THE WIND":"VELOCITY, THE NUMBER OF ROUNDS AND""POWDER CHARGES AVAILABLE AND THE""GRAVITY (FORCE ON THE PROJECTILE)":"WILL VARY"e :"THE OB     ICKEN!!!!":: "YOU MADE IT THROUGH TREMENDOUS FLAK!":390G|:"***** BOOM *****"k"YOU HAVE BEEN SHOT DOWN.....":"DEARLY BELOVED, WE ARE GATHERED HERE TODAY TO PAY OUR LAST TRIBUTE...":::"ANOTHER MISSION (Y OR N) ";U$U$"Y"5:"CHE GUNS(1),MISSILES(2),OR BOTH(3) ";R5YR0R4350N["TRY AGAIN...":340a^:T0:R2360c"WHAT'S THE PERCENTAGE HIT RATE OF ENEMY GUNNERS ? (10 TO 50) ";SeS10ĺ"YOU LIE, BUT YOU'LL PAY... ":380h:R1T35mST100(1)380-rS!":32006D25ĺ"FRESH OUT OF TRAINING, EH?"F@:D160(1)330rE"DIRECT HIT!!!! "(100(1))" KILLED."G"MISSION SUCCESSFUL.":390J"MISSED TARGET BY "(230(1))" MILES!"O"NOW YOU'RE REALLY IN FOR IT!!":$T"DOES THE ENEMY HAVS. DUCK SOUP. THEY'RENEARLY DEFENSELESS."1 \ "HOW MANY MISSIONS HAVE YOU FLOWN ";Dk "D160300 $"MISSIONS, NOT MILES..." '"150 MISSIONS IS HIGH EVEN FOR OLD-TIMERS." )"NOW THEN, ";:310 ,:D1003101"THAT'S PUSHING THE ODD OH WELL. ARE YOU GOING"W "FOR RUSSIA(1), ENGLAND(2), OR FRANCE(3) ";M:M0M4235p "TRY AGAIN...":220 :M250,260,270 "YOU'RE NEARING STALINGRAD.":280 "NEARING LONDON. BE CAREFUL, THEY'VE GOT RADAR. ":280+ "NEARING VERSAILLESTING A GERMAN 'HEAVY WATER' PLANT IN THE RUHR."; 280 :"YOU'RE FLYING A KAMIKAZE MISSION OVER THE USS LEXINGTON.": "YOUR FIRST KAMIKAZE MISSION (Y OT N) ";F$ F$"N"S0:357 :(11).665325 380 :"A NAZI, EH? ";G xG0G5125- z"TRY AGAIN...":110F }:G130,150,170,190 "YOU'VE GOT 2 TONS OF BOMBS FLYING FOR PLOESTI. ":280 "YOU'RE DUNPING THE A-BOMB ON HIROSIMA.":280 "YOU'RE CHASING THE BISMARK IN THE NORTH SEA.":2802 "YOU'RE BUB0B445$ *"TYRY AGAIN..."306 -:B50,80,90l 2"SHOULD BE EASY-YOU'RE FLYING A NAZI-MADEPLANE."u <280 P"BE CAREFUL!!!":280 Z"YOU'RE GOING FOR THE OIL, EH?":280 n:"AIRCRAFT ---- LIBERATOR(1), B-29(2), B-17(3), LANCASTER(4)  936="YOU ARE A PILOT IN A WORLD WAR II BOMBER":z "WHAT SIDE-ITALY(1), ALLIES(2), JAPAN(3),GERMANY(4) ";AA0A525"TRY AGAIN...":10A30,110,200,220:"YOUR TARGET ---- ALBANIA(1), GREECE(2), NORTH AFRICA(3) ";B (     4T19005T1870,A(KK)1830,1850BA$"TOREAD"1820x"ONE OF THE HORSES OF THE ";A$;B$;" WAS KILLED."OFA(K)1830,1850&"ONE OF THE ";A$;B$;" WAS KILLED."01900:"NO ";A$;B$;" WERE KILLED."D1900NA$"TOREAD"189,6"ADIOS"@2030,JB3A(1)<TB.371740K^B.51720[hB.631700krB.871680t|C.1~1750C.21750C.31750C.41750C.5T(10C.2)"THE ";A$;B$;" DID A ";L$(T)" JOB."RS""THE CROWD AWARDS YOU"3C(Q)2.41570GC(Q)4.91550[C(Q)7.41520"OLE! YOU ARE 'MUY HOMBRE'!! OLE! OLE!"1580"BOTH EARS OF THE BULL""OLE!"1580"ONE EAR OF THE BULL"1580""NOTHING AT ALL"SWEAR THEY WILL KILL YOU--">Z"UNLESS THE BULL DOES FIRST."Hd1580^nC(Q)D(Q)(1)sD(Q)(4.5L6(D(1)D(2))2.54D(4)2D(5)D(3)2120A)xD(4)21430"THE CROWD CHEERS WILDLY"1450D(5)21450"THE CROWD CHEE((D(1)D(2))5D(3))#J412901K.2960L"YOU KILLED THE BULL"WD(5)2a1320o K.8960y1260(2<D(4)01390F"THE CROWD BOOS FOR TEN MINUTES. IF YOU EVER DARE TO SHOW YOUR FACE IN ANY RING AGAIN, THEY 0,1110BD(4)2L6605V"YOU ARE GORED AGAIN">`970DjLtZ1n~"IT IS THE MOMENT OF TRUTH.""HOW DO YOU TRY TO KILL THE BULL ";HH41230H51230"YOU PANICKED. THE BULL GORED YOU."970K(6A)10(1)ULL HAS GORED YOU"&A(0)980,1010:"YOU ARE DEAD"FD(4).5P1310k"YOU ARE STILL ALIVE""DO YOU RUN FROM THE RING";1930 Z121070"COWARD"D(4)0$1310."YOU ARE BRAVE. STUPID, BUT BRAVE."8A(0)109*E((E))830 4E3850Y>"DON'T PANIC, YOU IDIOT! PUT DOWN A CORRECT NUMBER"bH800hRu\E0920fE1900pM.5z930M2930M3LLMF(6AM10)(1)((D(1)D(2)D(3)10)5)F.51660"THE BES THE BULL. TRY FOR A KILL ";(19307Z111130I"CAPE MOVE";R800"THE BULL IS CHARGING AT YOU! YOU ARE THE MATADOR--""DO YOU WANT TO KILL THE BULL "; 1930Z111130"WHAT MOVE DO YOU MAKE WITH THE CAPE "; EY." 570. &"GOOD LUCK. YOU'LL NEED IT."4 0: :J NA$"PICADO"W SB$"RES"a X1610l bD(1)C| vA$"TOREAD" {B$"ORES" 1610 D(2)C   Z11310 D(3)D(3)1 "PASS NUMBER";D(3) D(3)3760"HERE COMETTER YOUR CHANCES ARE"! ::' 2 D(5)1= D(4)1H L$(5)Z A((1)51)e I15p L$(I)w I  "SUPERB","GOOD","FAIR","POOR","AWFUL" "YOU HAVE DRAWN A ";L$(A);" BULL." A4530 A2550 570 "YOU'RE LUCKDETERMINE WHAT AWARD YOU DESERVE"F ^"'POSTHUMOUSLY', IF NECESSARY!"L c h"THE BRAVER YOU ARE, THE BETTER THE AWARD YOU RECIEVE" l: m"PRESS ANY KEY TO BEGIN":A$ r:: w |"THE BETTER A JOB THE PICADORES AND TOREADORES DO, THE BDINARY SWIRL OF THE CAPE" f ""INSTEAD OF THE ABOVE, YOU MAY TRY TO KILL THE BULL ON ANY TURN:" $"4 - (OVER THE HORNS) OR:" &"5 - (IN THE CHEST) 6"BUT IF I WERE YOU, I WOULDN'T TRY IT BEFORE THE SEVENTH PASS." J! T"THE CROWD WILL ANCE TO KILL A BULL". ::::::::::S "PRESS ANY KEY TO CONTINUE":A$Y "ON EACH PASS OF THE BULL, YOU MAY TRY: "0 - VERONICA (DANGEROUS INSIDE MOVE OF THE CAPE)" "1 - LESS DANGEROUS OUTSIDE MOVE OF THE CAPE" "2 - OR < " BULLFIGHT "BYA(K)((1)21)c::kL1"DO YOU WANT INSTRUCTIONS ";Z$Z$"NO"400::::::"HI ALL YOU BLOODLOVERS AND AFICIONADOS" "HERE IS YOUR BIG CH       "VENEZUELA","CARACAS","CANADA"N"OTTAWA","UNITED STATES","WASHINGTON,D.C."Tn"HAVE A GOOD DAY!!!","WARSAW","PORTUGAL","LISBON"["SPAIN","MADRID","SUDAN","KHARTOUM","SWEDEN","STOCKHOLM""SWITZERLAND","BERNE","THAILAND","BANGKOK","TURKEY","ANKARA" "RUSSIA", "MOSCOW", "ENGLAND","LONDON", "SCOTLAND", "EDINBURGH""URUGUAY","MONTEVIDEO",YKJAVIK","INDIA","BOMBAY","IRELAND","DUBLIN"n"ISRAEL","JERUSALEM","ITALY","ROME","JAPAN","TOKYO","MEXICO""MEXICO CITY","NETHERLANDS","AMSTERDAM","NEW ZEALAND"  "WELLINGTON","NORWAY","OSLO","PARAGUAY","ASUNCION" "PERU","LIMA","POLAND""COSTA RICA","SAN JOSE","CUBA","HAVANNA"m "CZECHOSLOVAKIA", "PRAGUE", "DENMARK", "COPENHAGEN", "ECUADOR""QUITO","EGYPT","CAIRO","FINLAND","HELSINKI","FRANCE","PARIS""GERMANY","BONN","GREECE","ATHENS","HUNGARY","BUDAPEST","ICELAND","REAN","KABUL","ARGENTINA","BUENOS AIRES","AUSTRALIA"t"CANBERRA","AUSTRIA","VIENNA","BAHAMAS","NASSAU","BELGIUM" "BRUSSELS","BOLIVIA","LA PAZ","BRAZIL","BRASILIA","BURMA""RANGOON","CHILE","SANTIAGO","CHINA","PEKING","COLOMBIA"("BOGATA",00!*"DO YOU WANT TO STOP?";Z$:4Z$"Y"Z$"YES"850d>"YOUR ANSWER FOR THE LAST QUESTION";sHX730,490yR\"YOU GOT ";N;" RIGHT ANSWERS IN ";G;" TRIES."f"WOULD YOU LIKE TO TRY AGAIN?";Z$pZ$"Y"Z$"YES"ĺ:1602 "AFGHANIST3))+"2. ";S$(B(2));20);"4. ";S$(B(4))1RC$(R);" IS THE CAPITAL OF";cZ:Z((Z))tZ1Z4810ZC770A(R)1:"WRONG, ";N$;"!!":790A(R)2:NN1 "RIGHT ";N$;",YOU HAVE ";N;" CORRECT!":GG1 N50ī3)B(2)B(1)B(3)B(1)B(4)560E lB(2)B(3)B(2)B(4)B(3)B(4)560R vY2700z "1. ";C$(B(1));20);"3. ";C$(B(3))  "2. ";C$(B(2));20);"4. ";C$(B(4))  "THE CAPITAL OF ";S$(R);" IS?" 730"1. ";S$(B(1));20);"3. ";S$(B(40 Y2470 A$C$(R)A "WHAT IS THE CAPITAL OF ";S$(R)J 490W A$S$(R)x C$(R);" IS THE CAPITAL OF " Z$ (Z$)1810 Z$A$ī770 Z$A$ī760 C((C)4)1 0I14 :B(I)((I)50)1 DI NB(C)R bB(1 ( N$;" WOULD YOU LIKE TO ANSWER"A "WITH THE CAPITAL?"I Z$Q Y2j "Z$"Y"Z$"YES"Y1r ,:~ @I110 JR((R)50)1 TA(R)2400 ^I rR150 |A(R)2400 R:850 A(R)1ĺ"TRY THIS ONE AGAIN!" X15CE ANSWER EACH QUESTION WITH 1,2,3,OR 4". \ X1:"TO STOP, TYPE '0' FOR YOUR ANSWER."e 250 "FILL-IN--YOU MUST SPELL EXACTLY" X2:"TO STOP, TYPE 'S' FOR YOUR ANSWER." "YOU MAY ANSWER WITH THE COUNTRY" "OR ITS CAPITAL." I150:A(I)0:I:GO0:N0K "YOU MUST FILL-IN THE BLANKS OR TRY THE"k "MULTIPLE-CHOICE ANSWERS."q "WOULD YOU LIKE TO FILL-IN THE" "BLANKS ?";N$;" " "YES OR NO ";Z$ Z$"Y"Z$"YES"230( "FOR MULTIPLE CHOIo U,Z"** CAPITALS-COUNTRIES QUIZ **"2_Pd"WHAT IS YOUR NAME? ";N$Ve\fg"OK, ";N$;", LETS SEE HOW WELL YOU"hi"KNOW YOUR COUNTRIES AND THEIR CAPITALS!"jxA(50),B(4),C$(52),S$(52)I150S$(I),C$(I):I     ,"TEGUCIGALPA"R"HUNGARY","BUDAPEST","ICELAND","REYKJAVIK","INDIA","NEW DELHI""INDONESIA","JAKARTA","IRAN","TEHRAN","IRAQ","BAGHDAD" "IRELAND","DUBLIN","ISRAEL","JERUSALEM","ITALY","ROME""JAMAICA","KINGSTON","JAPAN","TOKYO","JORDON","","EGYPT","CAIRO","EL SALVADOR","SAN SALVADOR"o"ETHIOPIA","ADDIS ABABA","FIJI","SUVA","FINLAND","HELSINKI""FRANCE","PARIS","GERMANY","BERLIN","GHANA","ACCRA","GREECE","ATHENS""GUATEMALA","GUATEMALA CITY","HAITI","PORT-AU-PRINCE","HONDURAS"PUBLIC OF CHINA","PEKING"g"REPUBLIC OF CHINA","TAIPEI","COLOMBIA","BOGOTA","COSTA RICA","SAN JOSE""CUBA","HAVANA","CYPRUS","NICOSIA","CZECHOSLOVAKIA","PRAGUE""DENMARK","COPENHAGEN","DOMINICAN REPUBLIC","SANTO DOMINGO"."ECUADOR","QUITO"BANGLADESH","DACCA"X"BARBADOS","BRIDGETOWN","BELGIUM","BRUSSELS","BOLIVIA","SUCRE""BOTSWANA","GABORONE","BRAZIL","BRASILIA","BULGARIA","SOFIA""BURMA","RANGOON","CAMBODIA","PHNOM PENH","CANADA","OTTAWA""CHILE","SANTIAGO","PEOPLE'S RE "WOULD YO;U LIKE TO TRY AGAIN";Z$Ep Z$"Y" Z$"YES" : 160z"AFGHANISTAN","KABUL","ALBANIA","TIRANA","ALGERIA","ALGIERS"|"ANGOLA","LUANDA","ARGENTINA","BUENOS AIRES","AUSTRALIA","CANBERRA"~"AUSTRIA","VIENNA","THE BAHAMAS","NASSAU",! YOU HAVE ";N;"CORRECT"%:GG1 F  N 114 310 ELSE 850L)j*"DO YOU WANT TO STOP";Z$4 Z$"Y" Z$"YES" 850>"YOUR ANSWER FOR LAST QUESTION";H X 730,490R\"YOU GOT ";N;"RIGHT IN ";G;"GUESSES" ]"fTION CHOICES"1.";S$(B(1))2"2.";S$(B(2))E"3.";S$(B(3))X"4.";S$(B(4))^C$(R);" IS THE CAPITAL OF "; Z:Z((Z)) Z 1 Z 4 810 ZC 770A(R)1: "WRONG": 790A(R)2:NN1  "RIGHTB(3) B(1)B(4) 560Dl B(2)B(3) B(2)B(4) B(3)B(4) 560Tv Y2 690p PRINT CAPITAL CHOISES"1.";C$(B(1))"2.";C$(B(2))"3.";C$(B(3))"4.";C$(B(4)) "THE CAPITAL OF ";S$(R);" IS"; 730  PRINT NA THE VALUE4 OF C IS TH E CORRECT ANSWERGC((I)4)1~& PICK FOUR NATIONS FOR THE CHOICE 0 I1 4:B(I)((I)114)1D INB(C)RX MAKE SURE NONE ARE THE SAME b B(1)B(2) B(1)2 470 A$C$(R)? "WHAT IS THE CAPITAL OF ";S$(R); E O  490\ A$S$(R)~ C$(R);" IS THE CAPITAL OF ";   Z$   (Z$)1 810  Z$A$ 770 760  THIS SECTION ASKS MULTIPLE CHOICE QUESTIONS 51 10 JR((I)114)1/ T A(R)2 4007 ^ I[ h"DON'T WASTE TIME PICKING ONE"k r R1 114 | A(R)2 400  R: 850  A(R)1 "TRY THIS ONE AGAIN"   X1 520  THIS SECTION ASKS FORFILL-IN ANSWERS  YX2: "TO STOP, TYPE S FOR YOUR ANSWER"/ u "YOU HAVE YOUR CHOICE OF WHETHER THE NATION OR CAPITAL IS ASKED"{   "WOULD YOU LIKE TO ANSWER WITH THE CAPITAL "; Z$  Y2 " Z$"Y" Z$"YES" Y1 , 6 PICK A NATION @ I Z$"Y" Z$"YES" 230$ e "MULTIPLE CHOICE -- ANSWER EACH QUESTION WITH 1, 2, 3 OR 4"k X1: "TO STOP, TYPE 0 (ZERO) FOR YOUR ANSWER" 250 "FILL-IN --*-- YOU MUST SPELL EXAXTLY! (SAINT IS ABBREVIATED ST.) ) ,S$(114)1 READ IN NATION & CAPITAL ARRAYSA I1 114Z S$(I), C$(I) : I I1 114 : A(I)0: I:G0:N0 "YOU HAVE YOUR CHOICE OF FILL-IN OR MULTIPLE CHOICE" "WOULD YOU LIKE TO FILL-IN THE ANSWERS "; Z$ G 936#) Y " :::****::: NATIONS & CAPITALS :::****::"_ e k qw}d NATIONS & CAPITALS QUIZ PROGRAMn BY DAVE ALVERSON JULY,1977 x A(114),B(4),C$(114)        INE,AUGUSTA5  MARYLAND,ANNAPOLIS,MICHIGAN,LANSING[  HAWAII,HONOLULU,ARIZONA,PHOENIX  COLORADO,DENVER,MONTANA,HELENA  NEW MEXICO,SANTA FE,OREGON,SALEM  VERMONT,MONTPELIER S130 SS2T  I, ,S1S(2N)U 6 "YOUR SCORE IS ";(S11000.5);"%"  NAME THE CAPITAL OF THE FOLLOWING STATES  15  NEW YORK,ALBANY,NORTH DAKOTA,BISMARCK  OHIO,COLUMBUS,NEVADA,CARSON CITY  NEW HAMPSHIRE,CONCORD,MA I$: I$!)( N12S0G<L$(0)"TRY AGAIN"jFL$(1)"THE CORRECT ANSWER IS:"zKL$(2)L$(1)d I1 Nn Q$,A$xT0 Q$; B$ A$B$ 200 L$(T);TT1 T1 140 A$T2   A","SOUTH DAKOTA","PIERRE","TENNESSEE"`"NASHVILLE","TEXAS","AUSTIN","UTAH","SALT LAKE CITY""VERMONT","MONTPELIER","VIRGINIA","RICHMOND","WASHINGTON""OLYMPIA","WEST VIRGINIA","CHARLESTON","WISCONSIN""MADISON","WYOMING","CHEYENNE","SANTA FE"?"NEW YORK","ALBANY","NORTH CAROLINA","RALEIGH"} "NORTH DAKOTA","BISMARCK","OHIO","COLUMBUS","OKLAHOMA" "OKLAHOMA CITY","OREGON","SALEM","PENNSYLVANIA""HARRISBURG","RHODE ISLAND","PROVIDENCE","SOUTH CAROLINA" &"COLUMBITTS","BOSTON","MICHIGAN"X "LANSING","MINNESOTA","ST. PAUL","MISSISSIPPI","JACKSON" "MISSOURI","JEFFERSON CITY","MONTANA","HELENA","NEBRASKA""LINCOLN","NEVADA","CARSON CITY","NEW HAMPSHIRE" "CONCORD","NEW JERSEY","TRENTON","NEW MEXICO""ATLANTA","HAWAII","HONOLULU","IDAHO","BOISE","ILLINOIS"l"SPRINGFIELD","INDIANA","INDIANAPOLIS","IOWA""DES MOINES","KANSAS","TOPEKA","KENTUCKY","FRANKFORT""LOUISIANA","BATON ROUGE","MAINE","AUGUSTA","MARYLAND""ANNAPOLIS","MASSACHUSE Z$"YES" : 160Mz"ALABAMA","MONTGOMERY","ALASKA","JUNEAU","ARIZONA"|"PHOENIX","ARKANSAS","LITTLE ROCK","CALIFORNIA"~"SACRAMENTO","COLORADO","DENVER","CONNECTICUT","HARTFORD""DELAWARE","DOVER","FLORIDA","TALLAHASSEE","GEORGIA"9 50 310 ELSE 850)<*"DO YOU WANT TO STOP";Z$Z4 Z$"Y" Z$"YES" 850>"YOUR ANSWER FOR LAST QUESTION";H X 730,490R\"YOU GOT ";N;"RIGHT IN ";G;"GUESSES" ]f"WOULD YOU LIKE TO TRY AGAIN";Z$p Z$"Y" B(2))"3.";S$(B(3))+"4.";S$(B(4))1SC$(R);" IS THE CAPITAL OF ";e Z:Z((Z))~ Z 1 Z 4 810 ZC 770A(R)1: "WRONG": 790A(R)2:NN1  "RIGHT! YOU HAVE ";N;"CORRECT":GG1   N)B(4) B(3)B(4) 560(v Y2 690D PRINT CAPITAL CHOICESW"1.";C$(B(1))j"2.";C$(B(2))}"3.";C$(B(3))"4.";C$(B(4)) "THE CAPITAL OF ";S$(R);" IS"; 730 PRINT STATE CHOICES"1.";S$(B(1))"2.";S$( THE VALUE4 OF C IS THE CORRECT ANSWER<C((I)4)1c& PICK FOUR STATES FOR THE CHOICESq0 I1 4:B(I)((I)50)1D INB(C)RX MAKE SURE NONE ARE THE SAMEb B(1)B(2) B(1)B(3) B(1)B(4) 560l B(2)B(3) B(2  Y2 470 A$C$(R)F "WHAT IS THE CAPITAL OF ";S$(R); L V  490c A$S$(R) C$(R);" IS THE CAPITAL OF ";   Z$   (Z$)1 810  Z$A$ 770 760  THIS SECTION ASKS MULTIPLE CHOICE QUESTIONS*ATE @ I1 10% JR((I)50)19 T A(R)2 400A ^ Id h DON'T WASTE TIME PICKING ONEs r R1 50 | A(R)2 400  R: 850  A(R)1 "TRY THIS ONE AGAIN"   X1 520  THIS SECTION ASKS FOR FILL-IN ANSWERSST.) 6 X2: "TO STOP, TYPE S FOR YOUR ANSWER"< "YOU HAVE YOUR CHOICE OF WHETHER THE STATE OR CAPITAL IS ASKED"   "WOULD YOU LIKE TO ANSWER WITH THE CAPITAL "; Z$  Y2 " Z$"Y" Z$"YES" Y1 , 6 PICK A ST "; Z$ + Z$"Y" Z$"YES" 2301 r "MULTIPLE CHOICE -- ANSWER EACH QUESTION WITH 1, 2, 3 OR 4"x X1: "TO STOP, TYPE 0 (ZERO) FOR YOUR ANSWER" 250  "FILL-IN --*-- YOU MUST SPELL EXAXTLY! (SAINT IS ABBREVIATED A(50),B(4),C$(50),S$(50)? READ IN STATE & CAPITAL ARRAYSN I1 50g S$(I), C$(I) : I I1 50 : A(I)0: I: G0: N0 "YOU HAVE YOUR CHOICE OF FILL-IN OR MULTIPLE CHOICE"  "WOULD YOU LIKE TO FILL-IN THE ANSWERS 936#)/5;A r " :::::::*** STATES & CAPITALS ***::::::: "x ~  d STATES & CAPITALS QUIZ PROGRAMn BY DAVE ALVERSON JULY, 1977 x     MBIA","SOUTH DAKOTA","PIERRE","TENNESSEE"c"NASHVILLE","TEXAS","AUSTIN","UTAH","SALT LAKE CITY""VERMONT","MONTPELIER","VIRGINIA","RICHMOND","WASHINGTON""OLYMPIA","WEST VIRGINIA","CHARLESTON","WISCONSIN""MADISON","WYOMING","CHEYENNE"O","SANTA FE"A"NEW YORK","ALBANY","NORTH CAROLINA","RALEIGH" "NORTH DAKOTA","BISMARCK","OHIO","COLUMBUS","OKLAHOMA" "OKLAHOMA CITY","OREGON","SALEM","PENNSYLVANIA""HARRISBURG","RHODE ISLAND","PROVIDENCE","SOUTH CAROLINA" )"COLUSETTS","BOSTON","MICHIGAN"Z "LANSING","MINNESOTA","ST. PAUL","MISSISSIPPI","JACKSON" "MISSOURI","JEFFERSON CITY","MONTANA","HELENA","NEBRASKA""LINCOLN","NEVADA","CARSON CITY","NEW HAMPSHIRE" "CONCORD","NEW JERSEY","TRENTON","NEW MEXIC"ATLANTA","HAWAII","HONOLULU","IDAHO","BOISE","ILLINOIS"n"SPRINGFIELD","INDIANA","INDIANAPOLIS","IOWA""DES MOINES","KANSAS","TOPEKA","KENTUCKY","FRANKFORT""LOUISIANA","BATON ROUGE","MAINE","AUGUSTA","MARYLAND""ANNAPOLIS","MASSACHU" Z$"YES" : 160Oz"ALABAMA","MONTGOMERY","ALASKA","JUNEAU","ARIZONA"|"PHOENIX","ARKANSAS","LITTLE ROCK","CALIFORNIA"~"SACRAMENTO","COLORADO","DENVER","CONNECTICUT","HARTFORD""DELAWARE","DOVER","FLORIDA","TALLAHASSEE","GEORGIA"; 50 310 ELSE 850)<*"DO YOU WANT TO STOP";Z$Z4 Z$"Y" Z$"YES" 850>"YOUR ANSWER FOR LAST QUESTION";H X 730,490R\"YOU GOT ";N;"RIGHT IN ";G;"GUESSES" ]f "WOULD YO;U LIKE TO TRY AGAIN";Z$p Z$"YB(2))"3.";S$(B(3))+"4.";S$(B(4))1SC$(R);" IS THE CAPITAL OF ";e Z:Z((Z))~ Z 1 Z 4 810 ZC 770A(R)1: "WRONG": 790A(R)2:NN1  "RIGHT! YOU HAVE ";N;"CORRECT":GG1   N)B(4) B(3)B(4) 560(v Y2 690D PRINT CAPITAL CHOICESW"1.";C$(B(1))j"2.";C$(B(2))}"3.";C$(B(3))"4.";C$(B(4)) "THE CAPITAL OF ";S$(R);" IS"; 730 PRINT STATE CHOICES"1.";S$(B(1))"2.";S$( THE VALUE4 OF C IS THE CORRECT ANSWER<C((I)4)1c& PICK FOUR STATES FOR THE CHOICESq0 I1 4:B(I)((I)50)1D INB(C)RX MAKE SURE NONE ARE THE SAMEb B(1)B(2) B(1)B(3) B(1)B(4) 560l B(2)B(3) B(2  Y2 470 A$C$(R)F "WHAT IS THE CAPITAL OF ";S$(R); L V  490c A$S$(R) C$(R);" IS THE CAPITAL OF ";   Z$   (Z$)1 810  Z$A$ 770 760  THIS SECTION ASKS MULTIPLE CHOICE QUESTIONS*ATE @ I1 10% JR((I)50)19 T A(R)2 400A ^ Id h DON'T WASTE TIME PICKING ONEs r R1 50 | A(R)2 400  R: 850  A(R)1 "TRY THIS ONE AGAIN"   X1 520  THIS SECTION ASKS FOR FILL-IN ANSWERSST.) 6 X2: "TO STOP, TYPE S FOR YOUR ANSWER"< "YOU HAVE YOUR CHOICE OF WHETHER THE STATE OR CAPITAL IS ASKED"   "WOULD YOU LIKE TO ANSWER WITH THE CAPITAL "; Z$  Y2 " Z$"Y" Z$"YES" Y1 , 6 PICK A ST "; Z$ + Z$"Y" Z$"YES" 2301 r "MULTIPLE CHOICE -- ANSWER EACH QUESTION WITH 1, 2, 3 OR 4"x X1: "TO STOP, TYPE 0 (ZERO) FOR YOUR ANSWER" 250  "FILL-IN --*-- YOU MUST SPELL EXAXTLY! (SAINT IS ABBREVIATED A(50),B(4),C$(50),S$(50)? READ IN STATE & CAPITAL ARRAYSN I1 50g S$(I), C$(I) : I I1 50 : A(I)0: I: G0: N0 "YOU HAVE YOUR CHOICE OF FILL-IN OR MULTIPLE CHOICE"  "WOULD YOU LIKE TO FILL-IN THE ANSWERS 936#)/5;A r " :::::::*** STATES & CAPITALS ***::::::: "x ~  d STATES & CAPITALS QUIZ PROGRAMn BY DAVE ALVERSON JULY, 1977 x     : "NASHVILLE","TEXAS","AUSTIN","UTAH","SALT LAKE CITY"z "VERMONT","MONTPELIER","VIRGINIA","RICHMOND","WASHINGTON" "OLYMPIA",WEST VIRGINIA","CHARLESTON","WISCONSIN" "MADISON","WYOMING","CHEYENNE":"THANK-YOU FOR YOUR TIME."RTH CAROLINA","RALEIGH"Tj "NORTH DAKOTA","BISMARCK","OHIO","COLUMBUS","OKLAHOMA"t "OKLAHOMA CITY","OREGON","SALEM","PENNSYLVANIA"~ "HARRISBURG","RHODE ISLAND","PROVIDENCE","SOUTH CAROLINA" "COLUMBIA","SOUTH DAKOTA","PIERRE","TENNESSEE"INNESOTA","ST. PAUL","MISSISSIPPI","JACKSON" mB"MISSOURI","JEFFERSON CITY","MONTANA","HELENA","NEBRASKA"L "LINCOLN","NEVADA","CARSON CITY","NEW HAMPSHIRE"V "CONCORD","NEW JERSEY","TRENTON","NEW MEXICO","SANTA FE"`"NEW YORK","ALBANY","NO","ILLINOIS"@ "SPRINGFIELD","INDIANA","INDIANAPOLIS","IOWA"| "DES MOINES","KANSAS","TOPEKA","KENTUCKY","FRANKFORT"$"LOUISIANA","BATON ROUGE","MAINE","AUGUSTA","MARYLAND"."ANNAPOLIS","MASSACHUSETTS","BOSTON","MICHIGAN".8 "LANSING","M","ALASKA","JUNEAU","ARIZONA"S "PHOENIX","ARKANSAS","LITTLE ROCK","CALIFORNIA" "SACRAMENTO","COLORADO","DENVER","CONNECTICUT","HARTFORD" "DELAWARE","DOVER","FLORIDA","TALLAHASSEE","GEORGIA" "ATLANTA","HAWAII","HONOLULU","IDAHO","BOISE;Z$Z$"YES"Z$"Y"940H:"YOUR ANSWER FOR THE LAST QUESTION";WX820,550]"YOU GOT ";N;" RIGHT IN ";G" GUESSES!":"WOULD YOU LIKE TO TRY AGAIN?";Z$Z$"Y"Z$"YES"100Z$"N"Z$"NO"1220 "ALABAMA","MONTGOMERYS$(B(4)) 0*C$(R);" IS THE CAPITAL OF ";A4Z:Z((Z))R>Z1Z4900_HZC860RA(R)1:"WRONG, ";N$;"!!":880\A(R)2:NN1f"RIGHT ";N$;", YOU HAVE ";N;" CORRECT!"p:GG1zN50ī380ELSE940"DO YOU WANT TO STOP? " PRINT CAPITAL CHOICESC"1, ";C$(B(1));20);"3. ";C$(B(3))k"2. ";C$(B(2));20);"4. ";C$(B(4))q"THE CAPITAL OF ";S$(R)" IS ?"820 PRINT STATE CHOICES "1. ";S$(B(1));20);"3. ";S$(B(3))"2. ";S$(B(2));20);"4. ";C IS THE CORRECT ANSWER)bC((C)4)1Ol PICK FOUR STATES FOR THE ANSWERZvI14pB(I)((I)50)1wIB(C)R MAKE SURE NONE ARE THE SAMEB(1)B(2)B(1)B(3)B(1)B(4)630B(2)B(3)B(2)B(4)B(3)B(4)630Y2770ERS Y2530 A$C$(R)B "WHAT IS THE CAPITAL OF ";S$(R)K 550X A$S$(R)y C$(R);" IS THE CAPITAL OF " &Z$ 0(Z$)1900 :Z$A$ī860ELSE850 DZ$A$850 N THIS SECTION ASKS MULTIPLE CHOICE QUESTIONSX THE VALUE OF $ ^Y2" hZ$"Y"Z$"YES"Y1? r RANDOMIZE:PICK A STATEG |:S I110f R((R)50)1w A(R)2460~ I R150 A(R)2460 R:940 A(R)1ĺ"TRY THIS ONE AGAIN!" X1590  THIS SECTION ASKS FOR FILL-IN ANSWL CORRECTLY!"4 "'SAINT' IS ABBREVIATED AS 'ST.'"d X2::"TO STOP, TYPE 'S' FOR YOUR ANSWER."j " ,"YOU HAVE A CHOICE OF WHETHER THE STATE": 6"OR CAPITAL IS ASKED." @:N$;" , WOULD YOU LIKE TO ANSWER" J:"WITH THE CAPITAL?" TZ"YOU HAVE SELECTED MULTIPLE-CHOICE."N :"YOU MUST ANSWER EACH WUESTION"n :"WITH A '1,2,3, OR 4' ."t X1::"TO STOP, TYPE '0' (ZERO) FOR YOUR ANSWER." 290 :5);"IF YOU SELECT TO 'FILL-IN'" 5);"THE BLANKS, YOU MUST SPEL$(I),C$(I):I+ dI150:A(I)0:I:G0:N01 n_ x"YOU MAY FILL-IN THE BLANKS OR ANSWER": "A MULTIPLE CHOICE QUESTION." :5);"WOULD YOU LIKE TO FILL-IN": 5);"THE BLANKS? ";N$ :"YES OR NO";Z$ Z$"Y"Z$"YES"250: ' " : STATES AND CAPITALS QUIZH5);"** STATES-CAPITALS QUIZ **"q:::"WHAT IS YOUR NAME ? ";N$::(::"OKAY, ";N$;", LET'S SEE HOW WELL YOU KNOW"2:"YOUR STATES AND CAPITALS."<FA(50),B(4),C$(52),S$(52)PI150 ZS     "WOULD YOU LIKE TO:"::"1) RUN THIS PROGRAM AGAIN,"::"2) RUN A DIFFERENT PROGRAM, OR"h :"3) END"13:"PLEASE ENTER 1, 2, OR 3 ";:86840000:ZEZNZE0ZE443030:"PLEASE ENTER A NUMBER 1 - 3":43022ZE1ĬZE34304PROGRAM::5)(1023)12343020t5:"WOULD YOU LIKE TO RUN THIS PROGRAM"::"AGAIN - YES OR NO";:868|A$(A$,1,1)"Y"āA145:N%(1,A)(N%(1,A)):A::380(A$,1,1)"N"43050:"PLEASE ANSWER WITH YES OR NO":43005X 42,53,53,65,68,59,44,46,600@CH(36):CV(37)XA"";ZN$:(ZN$)(((ZN$)))40003uB(ZN$)0ZN$"0"40006CZM:"THAT IS NOT A NUMBER - TRY AGAIN";:40010:40001FZM:868:CV1(CV23):ZN(ZN$):JCV1:36,CH:868: END OF ,1986' 136,144,166,168,194,181,194,210,225,221,222p' 194,189,184,189,176,172,183,162,173,178,192,188,182' 10,28,66,30,54,18,40,58,64,86,88'18,34,52,68,28,48,66,34,38,54,57,53,70' 106,84,86,108,80,97,96,96,77,87,118' 27,37,35,42,A:`' MAINE,NEW HAMPSHIRE,VERMONT,MASSACHUSETTS,NEW YORKxj' PENNSYLVANIA,NEW JERSEY,WEST VIRGINIA,VIRGINIA,MARYLANDl' RHODE ISLAND,CONNECTICUT,DELAWAREt' 58,50,42,74,60,96,102,82,108,76,102~' 132,132,134,138,156,160,164,173,194,178,191,205 NORTH DAKOTA,SOUTH DAKOTA,NEBRASKA,KANSASe.' MINNESOTA,IOWA,MISSOURI,WISCONSIN,MICHIGAN,ILLINOIS8' INDIANA,OHIO,KENTUCKYB' TEXAS,OKLAHOMA,ARKANSAS,LOUISIANA,TENNESSEEL' MISSISSIPPI,ALABAMA,GEORGIA,NORTH CAROLINAV' SOUTH CAROLINA,FLORID3v24:"PRESS SPACE BAR TO CONTINUE";:Z9$:43000`:22:" ***CORRECT***":R0I3I3124:"PRESS SPACE BAR TO CONTINUE";:Z9$::585' WASHINGTON,OREGON,CALIFORNIA,IDAHO,NEVADA' MONTANA,WYOMING,UTAH,COLORADO,ARIZONA,NEW MEXICO+$'T)N%(1,ST):W5ST45QFđ:3:WA,B:WA1,B1mOW5ST45Ē0:Q715:134Q7,114Q7134Q7,113Q7:Q7tPQ|X:b4:"YOU GOT ";I3;" CORRECT ON THE FIRST"::"TRY OUT OF ";F;" ATTEMPTED.":l"YOUR SCORE IS ";(I3F100.5);"% CORRECT!"T)0520 10#I$A$(ST)7006RR1:R2560o&::868:I$;" IS NOT CORRECT.":"TRY AGAIN.";:5250:21:"THE CORRECT ANSWER IS: ";A$(ST)D24:"PRESS RETURN TO CONTINUE";:Z9$:I0:A1,B1A12,B1A1,B12A12,B1A1,B122NN%(1,SW MANY STATES DO YOU WANT TO TRY?";:8689 40000:FZN{ F1FN2ĺ:"TRY A NUMBER IN THE RANGE OF 1 TO ";N2;".":450 ::3:S WA,B:WA1,B1 W5Ē0:Q715:134Q7,114Q7134Q7,113Q7:Q7 Q1FR0:ST((1)N2N1):N%(1,S1):B1$"W"A200:B20:S1:W2:N11:N211:450_ B1$"M"A130:B10:S2:W3:N112:N213:450 B1$"S"A110:B0:S1:W4:N125:N211:450 B1$"E"A100:B5:S2:W5:N136:N213 :868:14:"THERE ARE ";N2;" STATES IN THAT REGION.":) "HOHE:"::" 1) WESTERN"::" 2) MID-WESTERN"::" 3) SOUTHERN"::"OR 4) EASTERN": 11:"PART OF THE UNITED STATES?";:868:40000:BZN B0B5B(B)395 :"THAT ISN'T ONE OF THE CHOICES. TRY AGAIN":384 I30. B1$("WMSE",B,);:I$(I$,1,(I$)2)& }C124ġ:20, 4 :N (4);"NOMON C,I,O":w (4);"BLOAD CAPITALS OF STATES V.X" ZM24 :232,0:233,64 A$(48),N%(2,48) A148:A$(A):A A12:B148:N%(A,B):B:A[ |"DO YOU WANT DRILL ON T,B12$ -E120:(16384)127İ90+ /E2 20] 7A1,B1A12,B1A1,B12A12,B1A1,B12| <E110:(16384)127İ90 FE P30 ZC1(16384)128:16368,0:Q9(0) nC113140 xI$I$(C1):(C1);:C18(I$)1ġ:20 |C18ĺ" ";(8R/ ASSOCIATED PROGRAMS AND FILES: USMAP1F0:::255::150u * FLASHING CURSER AND INPUT SUBROUTINE!! A1S(N%(1,ST)150)A:B1S(N%(2,ST)10)B1:21:868:"WHAT STATE IS THIS?";:I$""5 (A1,B1A12,B1A1,B12A12,B1A1     L GOODDNOW IS THE TIME FOR ALL GOONOW IS THE TIME FOR ALL GOOEENOW IS E FOR ALL GOOD MENNNOW IS THE TIME FOR ALL GOOD MEENOW IS THE TIME FOR ALL GOOD MMNOW IS THE TIME FOR ALL GOOD NOW IS THE TIME FOR ALL GOOD ENOW IS THE TIME FOR ALL GOOD ENNNOW IS THE TIME FOR ALL GOOD EENOW IS THE TIME FOR ALL GOOD NOW IS THE TIME FOR AL HLHLL RQ H xI !M N IL N KLIH xQR xQH xQH xQR xQH xQK$#L2N NONOW IS THE TIME FOR ALL GOOD MEN TONOW IS THE TIME FOR ALLNNNOW IS THE TIME FOR ALL GOOD MENNOW IS THE TIME FOR ALL GOOD MENNOW IS THE TIM$',$--576567>'?/66.-$'$?66.-6>6''''?<<'??7>'$<>?><7>>>676655-%-%-<,$,%%%-%,55-...6>7--6?7?7??>?7??>?7???'%%%%%=?<$$$%%%%%$<$$'$-%%<$-,-%-$,,,,$---,,-,%66666>76.-,%--.%$?$7?>?'$$$,$$....656&,,$%,,,,%%%'''''''?>7767>6-.%%,'$-56??,$$ے5666666&$$$LIIIIII-----,----,---%,,,,%%%-$-????/-%-,--%--5-5-.$????>???'????75>?>??$$$<$$'$$$$$,,------,----.55.5.555..<$<$<$J15>6.66?JIQQ*%%<$-,-%-$,,$-$---.65.6566.6??<'??7??>?>??'=776565.6%--%--,--,-,%$6&--%--6---%--55555-66655555555..565--$$$%$<<<<$$'$<<<<<<<<$$$$%$%%%-,,$%%%%%,,,,,,<$-$???>??7????7????????7???>???7????>???????$?76------56666.55.--6-%--5-%---.-566666666666NIIIIIII $?$$,$%????7?'$%,,$''?IIII!'$$%%%%$%%,,6-56.56ۛ$$$$'$$$<$?7676666>6666>66>??????666..66766??$<'$$$$-'$$<>6$-$$??>?',,,--%,-??''?7'??????????'???????$LIIIIIIIII166?...6666.----------$''''?$$',%$$JI.6.-----5555%$6.,---,%----ۓ66.6656.5.---???'<77?6>?>>?7?7>7776$<'$?LII $$$$<$$$$$,,>?7557776....--.-MIIII6>676>6676677666.-.--.--.--5----5----.-----ۛ$$$-$-$$'?'%-6>$4-56'666666667666----6666666666.-5----5---------56-------%----%--%----,---,--,,-,,$-<<<<<%%%,,,,,<$$$$$$$?>>>6????'$-,$$<>????66>6676666>6666766767666&$$$<$%%<$%$-<$$<<<$''''<<<$'<<<<<$'',$,$,$%$$$<=?>>>'$%$<'?76677667676757777666557777775...7777....765566?65665566....-555555-66.--.--55555-55-...---.----.%,----,--5-----%$$%$$$$%$$$$,$,--$$$$$$$$$$<'???'%$$,$$$$$$$$,$$$$$,$$$     102.5)102"P(10(1))11P21281@P61291OP81295_P101306"YOU WERE ATTACKED BY A PARTY OF IROQUOISALL THE PEOPLE IN YOUR TRADING GROUP WERE KILLED. THIS ENDS THE GAME.":::::::::"OH MERDE":2047ED PROPERLY."*"NO ONE WILL BUY THEM."41244>1410n"SUPPLIES AT FORT STADACONA COST $125.00.""YOUR TRAVEL EXPENSES TO STADCONA WERE $15.00."II105M1((.15(1)1.05)102.5)102D1((.25(1)1.10)D THEM STOLEN WHEN YOU RETURNED.".124481414e"YOU ARRIVED SAFELY AT FORT STADACONA."o1239y1430"YOUR CANOE UPSET IN THE LACHINE RAPIDS. YOU LOST ALL YOUR FURS12441418F(4)0 "YOUR FOX PELTS WERE NOT CUR(1).80)102.5)102>B1((.2(1).90)102.5)102RP(10(1))1aP21216pP61224P81226P101235F(2)0$"YOUR BEAVER WERE TOO HEAVY TO CARRY ACROSS THE PORTAGE. YOU HAD TO LEAVE THEPELTS BUT FOUN02)B1((.2(1).75)102.5)102OD1((.2(1).80)102.5)102"SUPLIES AT FORT HOCHELAGA COST $150.00 YOUR TRAVEL EXPENSES TO HOCHELAGA WERE $10.00."1410II140M1((.3(1).85)102.5)102E1((.15 YOU WILL RECEIVETHE HIGHEST VALUE FOR YOUR FURS."{}"THE COST OF YOUR SUPPLIES WILL BE LOWER THAN ALL THE OTHER FORTS."1400B$"YES"11101250:II160M1((.2(1).70)102.5)102E1((.2(1).65)102.5)1LAGA BUT EASIER THAN THE ROUTE TO NEW YORK. YOU WILL RECEIVE AN AVERAGE VALUE FOR YOUR FURS AND THE COST OF YOURSUPPLIES WILL BE AVERAGE."u1400xB$"YES"1110y1198z2{"YOU HAVE CHOSEN THE MOST DIFFICULT ROUTE. AT FORT NEW YORKALUE YOU RECEIVE FOR YOUR FURS WILL BE LOW AND THE COST OF SUPPLIES HIGHER THAN AT FORTS STADACONA OR NEW YORK."e1400iB$"YES"1110j1160no"YOU HAVE CHOSEN A HARD ROUTE. IT IS, IN COMPARISON, HARDER THAN THE ROUTE TO HOCHEDUTCH CONTROL."<U"YOU MUST CROSS THROUGH IROQUOIS LAND."ZV::"ANSWER 1, 2, OR 3."aWBoXB11119}YB21134[B31146\1110_w`"YOU HAVE CHOSEN THE EASIEST ROUTE, HOWEVER, THE FORT IS FAR FROM ANY SEAPORT. THE VAND IS UNDER PROTECTION OF THE FRENCH ARMY."2 O P"FORT 2 IS FORT STADACONA (QUEBEC) AND ISUNDER THE PROTECTION OF THE FRENCH ARMY.HOWEVER, YOU MUST MAKE A PORTAGE AND CROSS THE LACHINE RAPIDS." RT"FORT 3 IS FORT NEW YORK AND IS UNDER WHICH YOU MAY TRADE.THE COST OF SUPPLIESAND THE AMOUNT YOU RECEIVE FOR YOUR FURSWILL DEPEND ON THE FORT THAT YOU CHOOSE." K L:"DO YOU WANT TO TRADE YOUR FURS AT FORT 1, FORT 2 OR FORT 3?" M::, N"FORT 1 IS FORT HOCHELAGA (MONTREAL) "DO YOU WANT TO TRADE FURS NEXT YEAR? "1 187  C"YOU ARE THE LEADER OF A FRENCH FUR TRADING EXPEDITION IN 1776 LEAVING THE LAKE ONTARIO AREA TO SELL FURS AND GET SUPPLIES FOR THE NEXT YEAR."z E"YOU HAVE A CHOICE OF THREE FORTS AT $;" PELTS DO YOU HAVE ";" RF(J)@ TF(0)F(1)F(2)F(3)F(4)S VF(0)1901100e XF(0)190500l \Jv ^1100|  "YOU MAY NOT HAVE THAT MANY FURS." "DO NOT TRY TO CHEAT. I CAN ADD." "YOU MUST START AGAIN."::: 15 )  g:/ E1((.15(1).95)102.5)102W B1((.25(1)1.00)102.5)102] , -"YOUR 190 FURS ARE DISTRIBUTED AMONG THE FOLLOWING KINDS OF PELTS: MINK, BEAVER, ERMINE AND FOX." 61430 ; JJ14 LB$ M O"HOW MANY ";B F(4)=15);"FUR TRADER "I:::S1091^I600"DO YOU WISH TO TRADE FURS?"::1402B$"YES"100B$"NO"2044d: e"YOU HAVE $";I" SAVINGS AND 190 FURS TO BEGIN THE EXPEDITION."      YES"380dX11 FM(I)EZ9;"PLACE HORSE NO.";F;" AT "RD(F);":1"R Z9Z91Y(Id2J1Cy<Q(J)M(8)1370FNQ(J)KPW$(J);" WINS $"(RD(N))P(J)ZJ\"DO YOU WANT TO BET ON THE NEXT RACE? "^"YES OR NO ";O$`O$" ~A1B&S(M(I))271240-A8M(I);?IMA128TSZAw255:"*****FINISH*****"}"---------------------------------------"50:T28720255:"THE RACE RESULTS ARE:"Z91I8Y(M(I))6IMI%I18BS(M(I))S(M(I))Y(M(I))IIRI1]L18jI18LS(M(I))S(M(I1))1090$HM(I).M(I)M(I1)8M(I1)HBILLVTS(M(8))`I18jBS(M(I))S(M(I1))tB01190Y(M(I))S17880) Y(M(I))S37900? *Y(M(I))S57920U 4Y(M(I))77S940k >Y(M(I))S92960z HY(M(I))7 R970 \Y(M(I))1 f970 pY(M(I))2 z970 Y(M(I))3 970 Y(M(I))4 970 Y(M(I))5 970  Q(J),P(J) P(J)16702 P(J)100000690N " YOU CANT DO THAT!"W 630^ Jd { "1 2 3 4 5 6 7 8" 255:"*****START*****":50 I1N MI M(I)M Y(M(I))(100(1)1) Y(M(I))10860 S(R(I).5) N" V$(5)"JOLLY"( V$(6)"HORSE"B &V$(7)"JELLY DO NOT"X 0V$(8)"MIDNIGHT"c :N18 DV$(N),N" "RD(N);":1" NN X"----------------------------------------" b"PLACE YOUR BETS...HORSE # THEN AMOUNT" lJ1C vW$(J);  rA | 9363 "HORSE","NUMBER"" ODDS"9 N I18:S(I)0:IW R0b A18y D(A)(10(1)1) A A18 RRD(A) A 50 V$(1)"JOE MAW" V$(2)"L.B.J." V$(3)"MR.WASHBURN" V$(4)"MISS KARE YOU MAY BET ANY + AMOUNT UNDER $100000 ON ONE HORSE." ""DURING THE RACE, A HORSE WILL BE SHOWN BY ITS NUMBER. THE HORSES RACE DOWN THE PAPER!" 6 @:"HOW MANY WANT TO BET "; JC T:"WHEN A ? APPEARS, TYPE NAME" ^A1C hW$(A)  936!d15);"HORSERACE"+x::[|"----------------------------------------"eS(8)"WELCOME TO SANTA ANITA":"DO YOU WANT INSTRUCTIONS ";X$X$"NO"320 9 "UP TO 10 MAY PLAY. A TABLE OF ODDS WILL BE PRINTED.     936:::::"YOU HAVE LEFT THE MOON'S GRAVITATIONAL PULL"e:"YOU WERE NEVER SEEN AGAIN":o1300u936:Z18:::" ********CRASH*********"(7):ZALEW IT!!!!!"@>"CONDOLENCES WILL BE SENT TO YOUR NEXT OF KIN"cH" ANOTHER MISSION(Y/N)?";A$ma:X0fA$"Y" 100p:"CONTROL OUT ":787,X:785,Z:J(784):(810)51200q1300787,X:785,Z:784:(810)71200@)))(5B)730DHV-V1V(5B)DQ"TOUCHDOWN AT ";TD;" SECONDS"sF;" UNITS OF FUEL REMAINING"V10810 "CONGRATULATIONS!!!...A PERFECT LANDING"%"YOUR LICENSE WILL BE RENEWED"*(V1)2840 4"****SORRY, BUT YOU B FUEL***"" q"SEC FEET VEL FUEL"3 rN11500:NM (T);(H);(V);(F);p  5 :Z35H33500:XX1: X,Z X38X38 B0 540  936 :::" *****CONTACT******" HH.5(VV1) B5720 D(V(VVH(102B:Z35H33500:Z01000: X,Z:M1050:Q(16336):MP XX1:X38X38Y 900d 19:Bq B0650 B30B30 BFBF V1VB5 0FFB :HH.5(VV1) DH0665 NTT1 XVV1 bF0457 gB0640 l"***OUT OF3439:J(35(1)):J10J10 / ^ J,35I:IW h169,0,160,0,32,113,248,141,42,3,96q rW784794:P:W,P:W " BEGIN LANDING PROCEDURE" T0:H500:V50:F200 "SEC FEET VEL FUEL BURN" (T);:5:(H);:10:(V);:14:(F);  5 CONTACT YOU WILL RECEIVE A FINAL"B )"REPORT OF YOUR MISSION":c *" ARE YOU READY(Y/N)?";A$s +A$"Y"100 ,::" CHICKEN! YOU HAVE TO ANYWAY" d : 4:I3639: 0,39I:I 7:I012:J(35(1)):J10J10 J,35I:I , 7:I":"YOU HAVE A DOWNWARD VELOCITY OF 50FT/SP #:"200 UNITS OF FUEL REMAIN": $"AFTER EACH BURN A DISPLAY AND DATA WILL" %"BE REPORTED": &"YOU MAY BURN FROM 0 TO 30UNITS OF FUEL" '"EACH BURN WILL SLOW YOU DOWN BY 30FT/S/S"" (:"AFTER  16298,0@8)"LUNAR LANDING SIMULATION":h"DO YOU WANT INSTRUCTIONS(Y/N)";A$xA$"N"100:"YOU HAVE""TAKEN OVER MANUAL CONTROL 500FT ABOVE" "THE SURFACE. YOU WILL HAVE TO AVOID"!"THE LUNAR MOUNTAINS", !! ! ! ! ! !!!EWED......LATER.""*(V1)2840M4:"***** SORRY, BUT YOU BLEW IT !!!!"S9>"APPROPRIATE CONDOLENCES WILL BE SENT TO YOUR NEXT OF KIN."H::R"ANOTHER MISSION ";A$\A$"YES"390f:"CONTROL OUT.":A(5B)730DHV)V1V(5B)DP:"TOUCHDOWN AT ";TD;" SECONDS."V"LANDING VELOCITY = ";V1;" FEET/SEC." :F;" UNITS OF FUEL REMAINING."V10810 "CONGRATULATIONS! A PERFECT LANDING!"%"YOUR LICENSE WILL BE REN.5(VV1)DH0670"NTT1+XVV18bF0490EgB0640bl"**** OUT OF FUEL ****"T;4);H;10);V;16);F;22);"I"H2922);"+"B0540"**** CONTACT ****"HH.5(VV1)B5720D(V(VVH(102B)))˺"PRESS ANY KEY TO BEGIN MISSION") A$3 936` "SEC FEET SPEED FUEL PLOT OF DISTANCE"f  T0:H500:V50:F120 T;4);H;10);V;16);F;22);"I";H2922);"+" B B0650 B30B30 BFBF V1VB5 0FFB :HHEL" g h"(5) IF YOU RUN OUT OF FUEL, THE '?' WILL NO LONGER APPEAR, BUT YOUR SECOND BY SECOND REPORT WILL CONTINUE UNTIL YOUCONTACT THE LUNAR SURFACE.": :"BEGINNING LANDING PROCEDURE.....": : "G O O D L U C K ! ! !"! ::"(3) THE MAXIMUM THRUST OF YOUR ENGINE IS 30 FT/SEC OR 30 UNITS OF FUEL PER SECOND." J"(4) WHEN YOU CONTACT THE LUNAR SURFACE,YOUR DESCENT ENGINE WILL AUTOMATICALLY CUT OFF AND YOU WILL BE GIVEN A REPORT OF YOUR LANDING SPEED AND REMAINING FUL BE REPORTED" "(2) AFTER THE REPORT, A '?' WILL BE TYPED. ENTER THE NUMBER OF UNITS OF FUELYOU WISH TO BURN DURING THE NEXT SECOND.EACH UNIT OF FUEL WILL SLOW YOUR DESCENTBY 1 FT/SEC." "::: ,:"PRESS ANY KEY TO CONTINUE" 1A$[ 6CONTROL 500 FEET ABOVEA GOOD LANDING SPOT. YOU HAVE A DOWNWARDVELOCITY OF 50 FT/SEC. 120 UNITS OF FUEL REMAIN."y "HERE ARE THE RULES THAT GOVERN YOUR VEHICLE:" "(1) AFTER EACH SECOND, THE HEIGHT, VELOCITY, AND REMAINING FUEL WIL 936 16);"ROCKET"(::OF" LUNAR LANDING SIMULATION"xP" ----- ------- ----------":d"DO YOU WANT INSTRUCTIONS (YES OR NO) ";A$nA$"NO"390s "YOU ARE LANDING ON THE MOON AND HAVE TAKEN OVER MANUAL "" " " " " """