' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>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-F^(.< Ԡՠ@跻~!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 / / ]ƴ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  z# u`T,BROOMSTICK,COW,DOORKNOB,EDSEL,FENDER,GIANT,HARPOON,INDIAN CLUB,JAR,KITE STRING,LUNCH BUCKET,MARSHMALLOW&['NECKTIE,ORANGE PEEL,PRUNE,QUARTER,ROWBOAT,SEWER,TOW TRUCK,UKULELE,VULTURE,WOMBAT,XYLOPHONE,YOKEL,ZITHER: T2$(X)'_' THING NOUNS (2) ---------VATOR,FACTORY,GOLF COURSE,HOT TUB,IGLOO,JUNGLE,KITCHEN,LUMBER YARD,MOUNTAIN%Q'NEST,OPERA HOUSE,PIANO BAR,QUICKSAND,RUNWAY,SANITARIUM,THEATER,USED CAR LOT,VOLVO,WIGWAM,XEROX MACHINE,YACHT,ZEBRA FARM:PLC$(X)%U' THING NOUNS (1) ---------------i&V'AN,BOOGEYMAN,COP,DUNCE,ELF,FOOL,GOLFER,HIPPIE,IDIOT,JUGGLER,KING,LADY,MEANIE$G'NURD,OAF,PERVERT,QUACK,RAT,SINGER,TIGHTWAD,UNDERTAKER,VAMPIRE,WEIRDO,XENOPHOBE,YODELER,ZOMBIE: PRS$(X)$K' PLACE NOUNS ----------- K%L'ATTIC,BATHROOM,CUPBOARD,DUNGEON,ELE#7' ADJECTIVES ---------- t#8' AWFUL,BUMMED OUT,CORNY,DUMB,EMPTY,FRUITY,GOOFY,HOT,INEPT,JUNKY,KINKY,LOOSE,MESSY#='NORMAL,OLD,PUNY,QUEER,RADICAL,STICKY,TEENSY,UGLY,VOLUPTUOUS,WEIRD,XERIC,YUCKY,ZANY:ADJ$(X)#A' PERSON NOUNS ------------J$B' APEE VERBS ---------------- "$' ALTERED,BURNED,CREMATED,DESTROYED,ENGULFED,FRIED,GORGED,HUMIDIFIED,INFESTED,JOLTED,KISSED,LAMBASTED,MARINATED")'NEEDLED,OPENED,POUNDED,QUASHED,RUINED,STORMED,TORE UP,USED,VIOLATED,WASHED,XEROXED,YELLED AT,ZOOMED:PST$(X) APPLAUDING,BATHING,CARRYING,DEODORIZING,EMPTYING,FIXING,GREASING,HARMING,INKING,JAILING,KICKING,LOSING,MAILING!' NOODLING,OILING,PICKLING,QUIETING,RUNNING,SHOEING,TRAINING,UNDRESSING,VIBRATING,WAXING,X-RAYING,YANKING,ZAPPING: ING$(X)"#' PAST TENS F%150 %8300$ ' VERBS ----- 'AX,BOOGIE,CALL,DISSECT,ELIMINATE,FUMIGATE,GRIND,HASSLE,INJURE,JUGGLE,KNOCK,LIKE,MURDER ' NAIL,OBLITERATE,PEEL,QUIZ,RIP,SLURP,TROUNCE,UNCOVER,VACUUM,WASTE,X-RAY,YANK,ZAP: VB$(X) ' ING VERBS ---------o!'"A. 0 A DOG NEAR A 3 CAN BE 4, ESPECIALLY WITH A 4 DOG! "D2%150::%A$"B. STAY AWAY FROM 1S WHILE 0; DOGS LOVE TO 5 THEM! "<%150:D%A$"C. WHEN FINISHED, GIVE YOUR DOG A TASTY 3 OR A 3 TO CHEW ON. HE'LL 5 YOU AND PROVE THAT HE'S MAN'S 4 1! "CH MR. 0'S 4 DEDICATION. RUMOR HAS IT, HE WAS A LITTLE 4, THOUGH. ":150R%8300m% STORY #5 -------- !%A$" 7/ YOUR DOG ":150:::&%A$"0 YOUR DOG CAN BE A 4 EXPERIENCE IF DONE CORRECTLY. 0 EXPERTS TELL US THESE 4 RULES: ":150::90%A$------- )$:A$" MISTER 3/ ":150::$A$"KNOWN MOSTLY FOR HIS TIMELY INVENTION OF THE 0, GEORGE 3 ALSO INVENTED THE 3, THE 3, AND THE 4 3! HOW DID HE DO IT? ENDLESS HOURS OF 7 IN HIS 2 AND COMPLETE DISREGARD FOR HIS 3! ":150H$A$" NO 1 CAN MATR 0S: ":150:|$A$"(A) MAKE SOME GLUE OUT OF 4 3S. (B) PUT YOUR 0 BY A 3 UNTIL IT'S 6 (UNLESS YOU LIVE IN A 2). (C) POUR THE GLUE ON YOUR 0 AND LIGHT IT! ":150$A$"(D) GO BUY A NEW 0 FROM A 1 DOWN AT THE LOCAL 2. ":150$8300$ STORY #4 -$"THEN SEND HIM TO THE 2 WHERE HE WON'T 5 AGAIN! ":150BS$8300[T$ STORY #3 --------^$:A$" REPAIRING YOUR 3/ ":150::h$A$"THERE IS NOTHING MORE 4 THAN A BROKEN 0. YOU CAN'T 5 WITH IT, AND 7 IS IMPOSSIBLE! HERE'S WHAT 1S DO TO REPAIR THEI STORY #2 -------- ;#A$" NEVER TRUST A 1/ ":150::#A$"LADIES AND 1S-- THE 0S ARE EVERYWHERE! 0S IN THE 2, 0S IN THE 2...YOU MAY EVEN CATCH A 4 0 GOING DOOR-TO-DOOR SELLING 3S. DON'T LET HIM IN! GET YOUR 3 OUT OF THE 2 AND 5 HIM! ":1508$AER THE WAR WITH THE "#150#A$"1S, HARRY AND A GROUP OF 1S (DISGUISED AS 3S) OCCUPIED THE ISLE OF 0 AND ALMOST 6 IT! THEY "#150#A$"FOUND A TRIBE OF 1S AND TRAINED THEM TO 5 3S! TO LEARN MORE, VISIT YOUR LOCAL 2. "#150#8300#----)l I1999:I:1:35::"RETURN":A K(Q):K1418320Y Q16,0:X1::1060s# STORY #1 --------#A$" THE ISLE OF 3/ ":150::#A$"THE ISLE OF 0, RICH IN 2S AND FAMOUS FOR ITS 4 3S, WAS DISCOVERED BY A 1 NAMED HARRY 4. JUST AFTN> ONLY FOR CATALOG)":1:16:P$PP$""ĉ:34,7:"CATALOG"::1:35,6:4005j:"BLOAD";P$:1060K(Q):K324030Q16,0:1560\::1:1:" ILLEGAL FILE NAME. TRY AGAIN."::I11500::1560: WAIT AFTER STORY ------------";:W$:W$:W$"C"Ĺ16368,0:130LW$"M"Ĺ768,13:(4);"RUN SHORT MENU"ZW$"Q"Āe63900KORU'QUAKER,JUMPY,FROWN,COLLAR,KNOBS,STOVE,SIGNATURE,SIX PACK,BEER KEG,SWEAT SHIRT'BUSY BODY,STRIPES,CALENDAR,PENCIL,COMMERCIAL,DITCH,SCOOPER,ARKANSAS,QUICKSAND,ROCKET SHIP!:::10:" MENU":" CONTINUE THIS GAME":" QUIT"::"SELECT:LOPPY DISK,MEXICO,LIZARD,NOOSE,NEEDLE NOSE,KEYBOARD,SPLASH,ZOOLOGY,CRUNCH~'CASSETTE,BOOKLET,PERFORATE,SHOWCASE,SPRAY,TOKYO,DECEMBER,LOLLIPOP,TURKEY,CAT TAIL'REAL ESTATE,COLLAPSE,SHOTGUN,FLEA POWDER,CRYBABY,OKLAHOMA,ALASKA,CIVIC,UNQUESTIONABLY,LIQULEv`'TEN SPEED BIKE,RADIO,POPULATION,STEREO,LUMBERJACK,FORTUNE COOKIE,BULLETIN BOARD,COWS GO MOO,WASHINGTON,YES SIRj'GUNNY SACK,WATER FOUNTAIN,ORANGE PUMPKIN,SLIME,KEYBOARD,SOAPY WATER,JUICY PICKLES,HALF AN OUNCE,ORANGE JUICE,GOOD MOODIt'RHYTHM,FR WARSL'ROLLING STONE,LAZY DAY,WALK THE PLANK,TAKE A CHANCE,SLAPSTICK,ROAST BEEF,FRANKENSTEIN,ONE MAN BAND,DOWNTOWN,CHICKEN SOUPV'MOW THE LAWN,UMBRELLA,HIT A HOME RUN,GREASED PIG,BACON FAT,OATMEAL,YELLOW RIBBON,MICROWAVE OVEN,FROZEN CUSTARD,POPSCIC+A$"M"Ĺ768,15:(4);"RUN SHORT MENU"9A$"C"ĬD63900Y,202:782,208:783,246:784,166:785,0:786,76:787,3:788,3:789,96YPSN(39),LITECLR(39),PAS(20):SKY2:BLDG5:NCLR0:XNUM9:YNUM31:Q16384:MU771::22:" MENU, CONTINUE GAME, QUIT"::" SELECT:";:A$:A$::21:A$"Q"ĀHE LISTING AND PLAY THE GAME!".~ I1500:IA 21:1::A$:U P30:L100:190m K(Q):K1412460 Q16,0:FLAG1:SKY2:2020y=== PARAMETERS ===D}771,173:772,48:773,192:774,136:775,208:776,4:777,198:778,1:779,240:780,8:781` PAS17A$"(EXCELLENT!)";b PAS19A$"(FANTASTIC!)"]d PAS21A$"(HOLY MACKEREL!)"{f PAS23A$"(AMAZING!!!)"h PAS25A$"(UNBELIEVABLE!)"j PAS27A$"(IMPOSSIBLE!)"l PAS29A$"(HOW'D YOU DO THAT?)"n PAS31A$"QUIT READING T:8,11:4,19:32,10:34,12:38,4:37,16:15,0C? A$" TRY AGAIN. "[@ PAS3A$"(SNAIL)"vB PAS5A$"(SLOWPOKE)"G PAS7A$"(HO HUM)"L PAS9A$"(SO-SO)"N PAS11A$"(NOT BAD)"V PAS13A$"(PRETTY GOOD)"[ PAS15A$"(VERY GOOD!)" TO":27:"REPLAY.";70:X01:1,39X:I110:I,XY J038:0:0,9J:25,39J:J SKY0:XNUM26:N5:NCLR9:390:XNUM36:N30:390:XNUM6:NCLR15:NPAS:390:(PAS10)02325 N(PAS10):XNUM2:390 9:32,3330:36,3730. 7-8 2,5----------":" SELECT:";:A$:A$:A$"Q"ĀX+A$"M"Ĺ768,17:(4);"RUN SHORT MENU"f+A$"C"Ĭq+63900AGLE MENU"+A$"C"Ĭ+63900I:I126:T3$(I):!*HNQ16384:*VX126:VB$(X):ING$(X):PST$(X):PLC$(X):PRS$(X):ADJ$(X):T1$(X):T2$(X):T3$(X):::*:::10:5:"BEAGLE BAG":5:"------------------"-+12:" MENU":" CONTINUE THIS GAME":" QUIT":5:"--------,T1$(26),PRS$(26),ADJ$(26),T2$(26),T3$(26),A(182),X$(26))*NI126:VB$(I)::"]":I126:ING$(I)::"]":I126:PST$(I)::"]":I126:ADJ$(I)::"]"*>NI126:PRS$(I):I:"]":I126:PLC$(I):I:"]":I126:T1$(I):I:"]":I126:T2$(I)::"]"--------- q(j' ANIMAL,BARN,CUCKOO,DOUGHNUT,EARLOBE,FERN,GARBAGE,HOSE,ICEBOX,JAZZ BAND,KNEECAP,LEFTOVER,MOTHBALL(o'NUT,OVEN,POPCORN,QUILT,RADIO,SNAKE,TUTU,UMBRELLA,VALENTINE,WEENY,XYLOPHONE,YOYO,ZIPPER:T1$(X) 8) NVB$(26),ING$(26),PST$(26),PLC$(26)------ h'`' AWNING,BOW TIE,CRAYON,DINGBAT,ELEPHANT,FOG LIGHT,GARAGE,HAM,IRON,JURY,KITTEN,LADDER,MUFFIN'e'NIGHTSTAND,OAR,PACKARD,QUAGMIRE,ROOSTER,SNOW CONE,TON OF BRICKS,USED CAR,VIOLIN,WAGON,XEBEC,YAHOO,ZOOT SUIT: T3$(X) (i' THING NOUNS (3) ------1281890&dQ16,0:K141ı+&f:II2:6&l:240`&v ========== 21 NUMBERS ========== {&:9:12:"21 NUMBERS"&T1:V2:J0&=== SHUFFLE ===&X121&A(X)((1)100):X11980&Y1X1:A(X)A(Y)1960&Y&X: '=T$"SCREWDRIVER":*%T$"TELEVISION":<%T$"FAUCET":P%T$"SQUIRREL":f%T$"MATCH BOOK":|%T$"COMIC BOOK":%:=== MENU/REPEAT? ===%DI1999:I%N24:1:"( ANY KEY = REPEAT. = MENU.)";%X6:1,47:21,47&bK(Q):KE":$T$"PENCIL":'$T$"WITCH":9$T$"PICKLE":K$T$"SHOVEL":[$T$"WORM":m$T$"ORANGE":$T$"STAPLER":$T$"CAN OF BEANS":$T$"BEER CAN":$T$"NOODLE":$T$"BELT LOOP":$T$"EARRING":$T$"SCREEN DOOR":%T$"HOUSE":!#T$"MOSQUITO":8#T$"CLOCK RADIO":L#T$"SANDWICH":d#T$"JOGGING SHOE":y#T$"NAIL FILE":#T$"FRUIT CAKE":#T$"FRIED EGG":#T$"BROWN BAG":#T$"BUN WARMER":#T$"SOCK":#T$"SWING":$T$"NECKLAC"DANDILION":"xT$"WEASEL":4"yT$"BEANSTALK":J"zT$"TABLECLOTH":^"{T$"EGGPLANT":t"|T$"HAIR DRYER":"}T$"DOUGHNUT":"~T$"HEATER":"T$"GIRDLE":"T$"CURTAIN":"T$"SEE SAW":"T$"RAISIN BOX":"T$"T-SQUARE": #(S$,1)"I"(S$,1)"O"(S$,1)"U"15959!:"N";:T1N!;" ";S$;"! "m!@X7T:I1(S$):"-";:I~!^:1860:450!h=== FAKE ANSWERS ===!rT$"WEENY":!sT$"CHOCOLATE CAKE":!tT$"DINOSAUR":!uT$"TREE":!vT$"SPOON": "wT$8,1679,1680,1681,1682,1683,1684,1685,1686,1687,1688,1689,1690,1691,1692,1693,1694,1695,1696,1697,1698,1699~ T$;:I120:I "19:" "; ,I13X:I,X 6X19(((S$)7T)2) 81:868:X:"IT'S A";+!9(S$,1)"A"(S$,1)"E"$)1) X120:19-I13:S(Q48):IMRN((1)50)1:RN251563RN1650,1651,1652,1653,1654,1655,1656,1657,1658,1659,1660,1661,1662,1663,1664,1665,1666,1667,1668,1669,1670,1671,1672,1673,16741568j RNRN25:RN1675,1676,1677,16760,1661,1662,1663,1664,1665,1666,1667,1668,1669,1670,1671,1672,1673,1674R1515RNRN25:RN1675,1676,1677,1678,1679,1680,1681,1682,1683,1684,1685,1686,1687,1688,1689,1690,1691,1692,1693,1694,1695,1696,1697,1698,1699S$T$:1545S$(S$,(ST!":5TURN:14:50007(S$,1)";"S$"LIGHT BULB."GI1500:Id:12:T$"IT'S A ":5000S$"."S$"TUNA SANDWICH."(S$,1)","CHEET01540RN((1)50)1:RN251509HRN1650,1651,1652,1653,1654,1655,1656,1657,1658,1659,16(K128)xK1361405@y(S$)1S$(S$,(S$)1):1405:<-JzS$""a}(S$,1)"/"S$""(S$,1)"."(S$,1)","(S$,1)";"1435=== PRINT ANSWER ===TURN19TURN1912::T0:I150:X(Q48):IT$"I'VE GOT IET ANSWERS ===B<3TURN:31:" ________";:3TURN:32::"_";:TACHEET01360kFK(Q):K1361350wHQ16,0K2:30::"1":P3TURN:32:"";Q$:2:30::"I":QQ$""1340R(Q$,1)"."1435UCHEET0K149ıZK159S$S$LUMPY ONES?":1T$"DOES IT HAVE 5 LETTERS?":QT$"DID POPEYE HAVE ONE?":oT$"DOES IT HAVE LEGS?":T$"IS IT A GOOD INVESTMENT?":T$"DOES IT NEED FIXING A LOT?":T$"DOES IT GLITTER?":T$"IS IT MADE IN JAPAN?":2=== G'T'?":+T$"WAS IT INVENTED BY 1800?":NT$"COULD A DUCK SIT ON IT?":nT$"IS IT MULTI-COLORED?":T$"HAVE YOU SEEN ONE TODAY?":T$"DOES IT MOO?":T$"WILL IT FIT IN A CAN?":T$"CAN YOU RE-USE IT?":T$"ARE THERE ANY ARD TO SEE?":+T$"CAN YOU CARRY IT?":BT$"IS IT PINK?":]T$"IS IT FLEXIBLE?":uT$"IS IT TASTY?":T$"CAN YOU THUMP IT?":T$"CAN YOU DENT IT?":T$"IS IT WASHABLE?":T$"DOES IT RATTLE?":T$"DOES IT START WITH N AIR?":,T$"DOES IT START WITH 'Q'?":NT$"DOES IT MAKE YOU ITCH?":rT$"IS IT BIGGER THAN A PIG?":T$"IS IT A SCARY THING?":T$"DOES IT HAVE BATTERIES?":T$"IS IT STICKY?":T$"IS ONE IN YOUR POCKET?":T$"IS IT H):I:6160;6 ::"I THINK YOU'VE GOT ME!-- YOU WIN!!"K61850:6002\6S$"ARROW":k6S$"BOX":{6S$"CANE":6$S$"DOLLAR":6)S$"ELEPHANT":6.S$"FORK":63S$"GATE":68S$"HAT":6=S$"IGLOO":6BS$"JAIL":7GS$"KITE"::" WRONG! TRY AGAIN:";:6080A5:(37):" ";b5Y((1)99)9:JYY10010o50,250Jx51,95MU5J:Z05:7:" CORRECT! "5XX1:X3615556032 6::"THREE WRONG IN A ROW-- YOU LOSE!":I1123:S(Q48:1:" COMPUTER'S WORD: ";S$:*4J044JJ1I40,((1)200)5R41,3Z4MUi4I125:Ix4J1060454:" YOUR NEXT WORD: ";4:20:C$:C$""60804(C$,1)(S$,1)61054X0:J150:S(Q48):J4ZZ1:Z361505WORD: ";::20:C$:C$""6030X3I(C$)11:TEST((C$,I,1)):TEST64TEST916035e3I:6002s3ITEST643I6165,6170,6175,6180,6185,6190,6195,6200,6205,6210,6215,6220,6225,6230,6235,6240,6245,6250,6255,6260,6265,6270,6275,6280,6285,6290"4]2z" ";:7:" ":" NEXT";:7:"WORD ":" ----";:7:"---- ":" ";:7:" "f2:1213:"1.YOU TYPE A WORD.":13:"2.THE COMPUTER TYPES THE":13:" NEXT LOGICAL WORD."213:"3.YOU TYPE THE NEXT, ETC."3:6:1:" YOUR FIRST 11ĺN;1 C$;" ";:I*1 :S(16304):H1 32,0:33,40:34,0:35,24X1 1860:2930r1=== TYPING NOISE ===1X1(T$):(T$,X,1);:(T$,X,1)" "50201U13:S(Q48):U1U16:U,X:1p ======== NEXTWORD ========1rX0:Z02u: S195C$C$" OF CLUBS":0 S196C$C$" OF DIAMONDS"X0 S200C$C$" OF HEARTS"v0 S211C$C$" OF SPADES"0 32700 C$"PLAYING CARD "0 I1610 S(16304)0 :I(I2)20Ğ0 0,((1)49)10 1,20 MU1 " ";:N1NQ16,0&/D 5:" ":5:24E/N 32,23:34,4:35,22:33,17O/X C$""/b (N176N185)(N193N202N203N209)3260/l NN176:N17N1/n N0N10/v N26C$"JACK"/x N27C$"KING"/z N33C$"QUEEN"/ N17N1C$"ACE"0. I522:I:24.. "@@@@@@@@@@@@@@@@@";:I=. :6:1,43T. K(Q):K1603070d. Q16,0:NK{. 22:2:"R";:2,43. K(Q):K1603090. Q16,0:SK. 3:"U";:3,43.& (Q)1603110.( Q16,0.0 4:"N";:4,43.: (Q)1413130/< ANCED":"VIDEO SCANNING":"TECHNIQUE."Y- :" INSTRUCTIONS:":"---------------------"- "1. PRESS YOUR CARD":" AGAINST THE SCREEN->":- "2. TYPE 'RUN'."::"3. PRESS 'RETURN'"- "---------------------"- 22:"] <-TYPE 'RUN'."- 14XX43,L NA((3X)XX)*,V B(X)N:X:Z,r ============ CARD SCANNER ============ b,| :, 1:11:": :":11:" CARD IDENTIFIER ":11:": :", :&- "THIS COMPUTER WILL":"IDENTIFY ANY CARD":"USING AN ADV==+:1:9:" A ":.+ X121:X8XX1B+ X7X15XX23R+ X14XX42\+ 2380s+ :1:19:" B ":+$ X121:X8XX2+( X7X15XX22+* X14XX42+. 2380+8 :1:29:" C ":+B X121:X8XX2+D X7X15XX21,F X19:9:" ":9:" "`*9:" "* END: ----*20:13:" I GIVE UP!"*1:9:" A ";:19:" B ";:29:" C "**1860:1920+=== RESHUFFLE =H8:"--------------------------";)R15:32,40:7:32,41X)\K(Q):K193K1952140d)^Q16,0|)f21:868:19:868)zK193İ2300){K194İ2330)|K195İ2360)JJ1:ITB(11):J32200)X121:A(X)B(X):X)V2:T1:2000>*: C ---- ---- ----">( 18:8c("--------------------------":9( === ASK FOR COLUMN ===(*J02100(,"FIND THE SAME NUMBER... "::2110(4"PICK A NUMBER FROM ABOVE.":(>9:"WHICH COLUMN-- A, B OR C?"")== DEAL ==='X121,'TT10:T30T9L'(X1)((X1)3)30VV2h'V:T::" ";A(X);" ":v'0,A(X)2'1,4'MU'V:T:" ";'J32034'IT;:2038'A(X);'" "':'J322103(1:" A B 75pC(2):13,162:13,164:13,167:5,613:16,3bzC(3):23,262:23,264:23,267:3,626C(4):33,364:2,736:2,433C(5):3,612:3,614:3,617:3,13:15,166C(6):13,1612:13,1614:13,1617:13,1613:15,1616C(7):234,YY5XX7:YY3,YY6XX8&:^X^F TXX1XX8:YY1,YY8T:m*0:XX3,XX8YY3:XX1,XX6YY6x4:^S^> REDRAW BOARD HR13:T03010:0,39T:0,39T:\9:T93910:0,39T:0,39T:fC(0):2,73:2,76:4,52:4,5:^SQUIGGLE^-TXX1XX8:YY1,YY8T:_0:T363:XX1,XX8YYT:YY1,YY8XXT:p:^WINDOWS^TXX1XX8:YY1,YY8T:0:XX3,XX6YY1:XX4,XX5YY2:XX4,XX5YY7:XX3,XX6YY8 YY3,YY6XX1:YY4,YY5XX2:YYȲ^BARS^@T13:XX1T,XX2TYY4T:XX1T,XX2TYY5T:dXX1,XX8YY4:XX1,XX8YY5s:^ARROW^XX1,XX4YY1:XX1,XX4YY2:XX1,XX6YY3:XX1,XX6YY4XX3,XX8YY5:XX3,XX8YY6:XX5,XX8YY7:XX5,XX8YY8 0,700,730,760,800DSNTXX3XX6:YY1,YY8T::TXX1XX8:YY3,YY6T:bX:^CROSS^bTXX1XX8:YY1,YY8T:l0:TXX3XX6:YY3,YY6T:v:^BOX^TXX1XX8:YY1,YY8T:0:XX1,XX8YY3:XX1,XX8YY6:1390 540:B2CODE:S2S) 1130:4108  REVEAL W XX((S3)((S3)4)4)10l YY10((S1)4) &0:TXXXX9:YY,YY9T: 0LA(S)1 1CQH((L(L8)8)1) 2CQ :CODEA(S)<A(S)590,610,640,670,700,730,760,800,590,610,640,67E #'S D$"...FIRST SQUARE?"? 20(A$):A$;"->";:1390U 540:A1CODE:S1Su D$"...OTHER SQUARE?":1390 540:A2CODE:S2S 1050 D$"...FIRST SQUARE?" 20(B$):B$;"->";:1390 540:B1CODE:S1S D$"...OTHER SQUARE?":LAYER #2-> ";B$R ^:"COMPUTER DETERMINES WHO GOES FIRST,":A$;" OR ";B$;"..."j h(A$)(B$)31330 rT1999::T185:":";:Z12:SS(Q48):: |T((1)2):C$A$:T0C$B$ ~C$;" GOES FIRST!":Z1750: :T0470  GET SQUAR13 H(I)8H(I)15 J ":C(0)15::40):21:15:"PICK-A-PAIR"` ,:I140:"-";:n 6 NAMES w @340 J:"NAMES TOO LONG... START OVER: ::::::::::::::::::::::::::::::::::::::::"; T" NAME OF PLAYER #1-> ";A$:" NAME OF P" BEAGLE BROS ":& X((1)16)13 Z2240L I1Z1:XA(I)200R ] A(Z)Xo H((Z2))X:z Z18 X((1)8)1:Z1270 I1Z1:XH(I)260  H(Z)X::I18 H(I)5H(I)9 H(I)6H(I)12 H(I)7H(I)j1d PICK-A-PAIR BY BERT KERSEY BEAGLE BROS J:A(20),C(20),H(16)hW16336:Q16384:63900T016:C(T)15:: SHUFFLE 23:10"(SHUFFLING; STAND BY: 16)";840:Z116:23:32:17Z;") ";:21:14X(X2)2      UE THIS GAME":" QUIT":5:"------------------":" SELECT:";:A$:A$:A$"Q"ĀA$"M"Ĺ768,11:(4);"RUN SHORT MENU"A$"C"Ĭ63900D--------"~912:" MENU":" CONTINUE THIS GAME":" QUIT":5:"------------------":" SELECT:";:A$:A$:A$"Q"Ā9A$"M"Ĺ768,12:(4);"RUN SHORT MENU"9A$"C"Ĭ963900I"ZERO":8}771,173:772,48:773,192:774,136:775,208:776,4:777,198:778,1:779,240:780,8:781,202:782,208:783,246:784,166:785,0:786,76:787,3:788,3:789,968A(100),B(100):::Q16384:MU771: 9:::10:5:"BEAGLE BAG":5:"----------7LS$"LADDER":%7QS$"MARBLE":77VS$"NUMBER":F7[S$"OWL":U7`S$"PIN":f7eS$"QUEEN":v7jS$"RAKE":7oS$"SNAIL":7tS$"TRIANGLE":7yS$"UMBRELLA":7~S$"VALENTINE":7S$"WAGON":7S$"XYMURGY":7S$"YOYO":8S$17I811:28,34I:I:30,3412:30,3213:30,3114ZI2224:30,33I:I:25,2630b12,5,714:3,713:9,124:11,125:11,135:8,126:9,127:8,118@22,265:I2224:2,4I:IT13hI1620:30,36I:I:17,2028:18,2029 6:22,267=P27,3715:32,3714:33,3713:16,1729:37,16tdI3034:23,30I:I:23,2728:23,2935:23,2736{x53,535:2,836:2,337:5,837723,316:2,425:4,527:4,2623,3029:31,3325:30,3127:31,26:29,15126:14,21I:I:16,201:18,207)8]I06:28,34I:I:25,377:28,3621:28,3622I3134:31,36I:I:28,3137:33,3437:28,3036:29,30356,721:1,21:I811:2,5I:I:3,12(2 <I35:22,34I:I:22,261:22,282:22,28---":" SELECT:";:A$:A$:A$"Q"ĀPA$"M"Ĺ768,9:(4);"RUN SHORT MENU"^A$"C"Ĭi63900N1460K1831480'Q16,0:13909KK166:1500EKK176QQ16,0^K0K1oC(K)01390ySK::::10:5:"BEAGLE BAG":5:"------------------"&12:" MENU":" CONTINUE THIS GAME":" QUIT":5:"---------------AME, Q TO QUIT:";:A$:A$"Q"63900)U>d SQUARE INPUT Kn23:D$;lx15:37,46:7:37,47:Q16,0wK(Q)(K176)(K185)1410K1771490Q16,023:"SQUARE 1 ? ";15:30,46:5:30,47K(Q)K176K185840:  END GAME +:"GAME OVER--";APBP1320p B$;" STOMPS ";A$;"--":BP;" TO ";AP;"!!";:1330(A$;" STOMPS ";B$;"--":AP;" TO ";BP;"!!";2T113:"::";::<TT1611:STT:530:FI1999::#P"ANY-KEY FOR ANOTHER GAP67BP671300+T11500::e21:1::" ";21:1:(A$)(B$)26ĺ" SCORE: ";A$;" ";AP;", ";B$;" ";BP15:"(68 = GAME.)""----------------------------------------";"** NO MATCH **"0VT150:SS(Q48)(Q48)<`:1210Rj(B1B2)81100atS11S10pvS21S20~:22:13:"**** MATCH ! ****"I140:"-";:S1S2;" POINTS FOR ";B$;"!":BPBPS1S2T016S1(T)S2TC(T)037:36,34:32,32:32,3733:32,3735:34,3737:36,3732>N SCORING ]S11S10lS21S20$(A1A2)81100.:22:13:"**** MATCH ! ****"8I140:"-";:BS1S2;" POINTS FOR ";A$;"!":APAPS1S2:1180L:22:14:7,23:32,22:22,2733:35,3722:35,3724:35,3727nC(13):2,32:32,373:5,732:5,734:5,737:33,367C(14):12,32:32,3713:32,3415:32,3717:16,34C(15):35,3627:25,33:22,32:32,3723:25,2732:25,2734:25,27378C(16):36,,2612:13,1726LC(8):33,3612:33,3614:33,3617:13,1633:13,1636}C(9):3,622:3,624:3,627:23,266:3,23C(10):22,2713:22,2715:22,2717:12,22:16,22:16,27C(11):22,2723:22,2726:22,22:25,223C(12):25,2635:378LTR13((LTR14)):T(LTR)2:(LTR64)J <T(LTR)T(LTR)1:SUMSUM1t AX::23:"TOTAL:";SUM;" LETTERS":20 :::10:5:"BEAGLE BAG":5:"------------------"! 12:" MENU":" CONTINUE THIS GAME":" QUIT":5:"------------------":6:1:" TYPE: TO QUIT";:7:A$:A$;:868:A$(13)ERRh 6:8:"";COPY$:COPY$A$COPY${ SUM0:9:958 #X126:8X13((X14)):T(X):(X64): (X1(COPY$) -:6:6X:" ": 2LTR((COPY$,X,1))64:LTR1LTR2665, ^T(26):63900:::"PACK MY BOX WITH FIVE DOZEN LIQUOR JUGS"::" CONTAINS ONLY 32 LETTERS, AND MIGHT BE THE SHORTEST SENTENCE THAT USES EVERY LETTER. CAN YOU WRITE A SHORTER ONE? ";:I138:"-";:X113:T(X)1:T(X13)21::1E   |30,33210%29,8:15,177GI1221:8,26I:I:16,2027O15y0,1338:0,1339:23,3938:23,393914,1626:20,2226:16,25:20,2526,3913:26,3923C05840 INSTRUCTIONS 9:NBR((1)5):NBR1100,1200,5:"------------------"12:" MENU":" CONTINUE THIS GAME":" QUIT":5:"------------------":" SELECT:";:A$:A$:A$"Q"ĀA$"M"Ĺ768,10:(4);"RUN SHORT MENU"A$"C"Ĭ63900I0Q1)200)5w1,((1)99)50+w771::1w}771,173:772,48:773,192:774,136:775,208:776,4:777,198:778,1:779,240}780,8:781,202:782,208:783,246:784,166:785,0:786,76:787,3:788,3:789,96:Q16384::::10:5:"BEAGLE BAG":6XF:Y10:2150&:H16XF:Y13:2150=;H16XF:Y16:2150_f2200:I18:S(16336):I:|Y:H:" ":H:" ":  I1222:I:( X719:X:868:I120:I,X: X1CHR,Y:CHR:wI14:I(I2)20Ĺ16304,0 w0,((2101:2104:2105:32102:2107:2101:Q2102:2107:2105:2104:u2104:2107:2105:2102:2101:2102:2107:2105:2104:2103:2106:5H12XF:Y13:21506H8XF:Y10:21507H8XF:Y13:21508H8XF:Y16:21509H1UPPTSUPPTSX1X2TURN&I1891TI:7:" ":Ib:I918I:7:" ";:22:" "I:XX1:XF0:X2051,2052,2053,2054,2055,2056XX2:XF15:X2051,2052,2053,2054,2055,2056: SCORE: ";UP$B$912WA$;" ";::" ";APTSUPPTS;" ";::", ";B$;" ";BPTS:915A$;" ";APTS;", ";B$;" ";::" ";BPTSUPPTS;" ":" ------------------------------------" X1((1)6)1:X2((1)6)1X1X22000868:6:" (ANY KEY = REPLAY. ESC = QUIT.)";::6:"ANY";:10:"KEY";:25:"ESC"q:K(16384):K14172016368,0:APTS0:BPTS0:UPPTS0:2600:K155Ĭ63900 21:868:20" ------------------------------------" " 2600UP$A$:220DXAPTSAPTSUPPTS:UPPTS0:APTS199700NY2600^bUP$B$:220e 900::23:868:23:7:" ";UP$;" BEATS ";UP$A$ĺB$;UP$B$ĺA$;"! ":16304,0:"";30711:307112500T6:3:" ";:X1[ XX1:XY2503X:XY1XY((1)200)5e 0,XYn 1,3w 771 21:7:X;" POINTS FOR ";UP$;"!";:I19:I:XUPPTS502  2500 :UP$A$600BPTSBPTSUPPTS:UPPTS0:BPTS199700X1X2240- 6:16,231::1:19:"OINK": "21:3:" ":21:3:" DOUBLES! ";UP$;" LOSES ";UPPTS;" POINTS!" ,X199:BUZZ(16336):X 62500:2500:2500 @UPPTS0:1:17::": OINK :"::516 / 21:2600 TURN1:"" 4 900:TURNTURN1 23:3::UP$;::"'S TURN: R OR Q?";:(32TURN10):TURN0ĺ"BONUS=";TURN 16368,0 K(16384):K("Q")128K("R")128270 16368,0:23:1:868:K("Q")128500 1000  (A$)9İ185:190% 170:1801 I112F 0,((1)200)5O 1,4b 771:X125:k I: "NAME OF PLAYER 2->";B$ B$""190 (B$)9İ185:200 170:190 2500:16304,0:30711: X((1)2):UP$A$:X1UP$B$ ::::::::::::::::::::::::::::::";:S ": Q = QUIT & KEEP POINTS. WIN=200+. :";a ::34,7 ::"2 PLAYERS: TYPE NAMES & HIT 'RETURN'. ---------"::180 "MAXIMUM 8 LETTERS PER NAME, PLEASE.":: "NAME OF PLAYER 1->";A$ A$""180 I2 ============== OINK! BY BERT KERSEY BEAGLE BROS ============== fd32000:16298,0:63900n:::17:": OINK :":15:": ---- :"x": R = ROLL THE DICE TO SCORE POINTS. : DOUBLES WILL CANCEL YOUR TURN! ";" :"::::::::::         X$NAME$,(X$,1)"S"X$X$"KI":398<X$X$"SKI"E132[19:1:"POLISH:":"::::::::::::::::::::::::::::::::::::::::";I1999:I152:::10:5:"BEAGLE BAG":5:"------------------"T12:" MENU":" CONTIN)pX$X$"-"rF13724sX$X$(FIRST$,F1)DtX$X$"AY "dvX$X$(LAST$,(LAST$)L1)rxX$X$"-"zL1380{X$X$(LAST$,L1)|X$X$"AY"~13217:1:"PIG LATIN:": POLISH 50,63:"POLISH:";::15148 (VOWEL$,A,1)(NAME$,J,1)342<ZX$X$(VOWEL$,A,1):350S\X$X$(NAME$,J,1)Z^Jq`15:RPTRPT1:132bRPT3336dRPT0f13:1:"VOWELISMS:":17h PIG LATIN j50,63:"PIG LATIN:";::15l148nX$(FIRST$,(FIRST$)F1ISM:":H VOWELISMS ;J50,63:"VOWELISMS:";::15DL148VNA((1)5)1`PX$""rRJ1(NAME$)T(NAME$,J,1)"A"(NAME$,J,1)"E"(NAME$,J,1)"I"(NAME$,J,1)"O"(NAME$,J,1)"U"(NAME$,J,1)"Y"348VAA1:A21A1XF,1)"A"(FIRST$,F,1)"E"(FIRST$,F,1)"I"(FIRST$,F,1)"O"(FIRST$,F,1)"U"(FIRST$,F,1)"Y"316q:F:F2<X$X$(FIRST$,(FIRST$)F1):X$X$" ">F1322@X$X$(FIRST$,F1)BX$X$(LAST$,(LAST$)L1)D132F11:1:"SPOONER50,63:"SPOONERISM:";::15$(148.*X$""@,L1(LAST$).(LAST$,L,1)"A"(LAST$,L,1)"E"(LAST$,L,1)"I"(LAST$,L,1)"O"(LAST$,L,1)"U"(LAST$,L,1)"Y"3060L:L22L13104X$X$(LAST$,L1)6F1(FIRST$)f8(FIRST$,WARDS:";::15 148!X$""6I(NAME$)11MX$X$(NAME$,I,1)TI]132w7:1:"BACKWARDS:": ALPHABETICAL 50,63:"ALPHABETICAL:";::15148 X$ALPH$:132"9:1:"ALPHABETICAL:":$ SPOONERISM &ALPH$ALPH$(NAME$,I,1)#I,X,266= SHUFFLED LNXT$NAME$y(NXT$)((NXT$)2)20NXT$NXT$" "A((NXT$)2):X$""I1AX$X$(NXT$,I,1)X$X$(NXT$,IA,1)I132 BACKWARDS  50,63:"BACK&24:19:" ";:I1811:I5b(I4)15:" "}I4:(I4)15:NAME$144I5:1:"NAME:": ALPHABETIZE R-Z X("R")("Z")I1(NAME$)((NAME$,I,1))X242*":" FILE FOR FUTURE REFERENCE."@ ALPHABETIZE I-Q P 1:"::::";e X("I")("Q")w "::::";:144 I1(NAME$) ((NAME$,I,1))X208 ALPH$ALPH$(NAME$,I,1) : NAME 50,63:"NAME:"::1514819:I1(FIRST$):"-";:IH 19(FIRST$)1:I1(LAST$):"-";:I` ALPHABETIZE A-H m ALPH$"" X("A")("H") I1(NAME$) ((NAME$,I,1))X190 ALPH$ALPH$(NAME$,I,1) ::1( 1:" * USELESS NAME DATA ................... AND HIT .";. :D 23:19:"";NAME$V NAME$""152z (NAME$,1)" "(NAME$)20152 I1(NAME$) (NAME$,I,1)" "170 I:152 FIRST$(NAME$,I1):LAST$(NAME$,(NAME$)I) 936:23:19:NAME$ (X$,I,1)" "ĂI( (X$,I,1)" "140B J12:S(U)(U):JS J120:J,I[ :u J12:S(U)(U):J J19:J: I13:S(U)(U)(U)(U)(U)(U):I: NAME INPUT 22 "TYPE SOMEONE'S"( "1ST & LAST NAMES->.::!"# v11:"!::::NAME:GAME::::!"B x11:"!::::----:----::::!"a z11:"!::BY:BEAGLE:BROS:!" |11:"!:::::::::::::::::!" ~11:"+-----------------+" 255:I1999::150 TYPING NOISE GOSUBS I1(X$):(X$,I,1); (X$,1)":"tE================== NAME GAME BY BERT KERSEY COPYRIGHT (C) 1981 BEAGLE BROS ================== lVOWEL$"AEIOUAIUOEOUIAEYUOIEA":U16336:63900n TITLE p::6:199r11:"+-----------------+" t11:"!:::::::::::::::           -----------":" SELECT:";:A$:A$:A$"Q"ĀX%A$"M"Ĺ768,8:(4);"RUN SHORT MENU"f%A$"C"Ĭq%639005160:0:HCOL,V:k$}I770789:J:I,J::96,173,48,192,136,208,4,198,1,240,8,202,208,246,166,0,76,3,3,96$Q16384:MU771:$:::10:5:"BEAGLE BAG":5:"------------------".%12:" MENU":" CONTINUE THIS GAME":" QUIT":5:"-------PSN0,# HCOLHCOLHPSN:VVVPSN:V377219O#%HCOLHPSN2,VVPSN2)07215a#&VPSN0İ7180y#'HPSNHPSN1:VPSN2#(0,((1)99)5#)1,4#*MU#/15:HCOLHPSN,VVPSN:0:HCOL,V:7200#31:5,715:5,716:7,17:12:5,713:5,714$41)3):I07130;"12:5,715:5,716:0:6,713:6,714N"15:I199:Iz"14,1516:13,1615:12,1314:16,1714"0:16,1721"I150:J(Q48)(Q48)(Q48):I"7195" 0:12,1714:13,1615:14,1516:#HCOL16:V14:HPSN2:V1620:26,29I:I!l80!q28,3621:28,3622a!v11:I1620:23,25I:I:21,2216:21,2217h!{7!17,2514:17,2415:16,1720:20,2218:23,2421:18,13!2!I2329:29,33I:I!0!29,30!6070! RIGHT FIRES "I(($HCOLHCOLHPSN:VVVPSN:V376230G .HCOLHPSN2,VVPSN2)06210Y 3VPSN0İ6160q 8HPSNHPSN1:VPSN2 :0,((1)99)5 <1,4 >MU B15:HCOLHPSN,VVPSN:0:HCOL,V L6180 V5160:0:HCOL,V: X RIGHT DRAWS b13!gI 1,3MUI1 LEFT FIRES C9:I199:Io13,1420:12,1521:11,1222:15,16220:15,1615I150:J(Q48)(Q48)(Q48):I 61700:13,1420:12,1521:11,1622HCOL20:V13:HPSN2:VPSN0$ I1518:7,11I:I12F12,1515:12,1516:12,1317:12,1318M712,1913:13,1914:13,1419:14,1617:15,1616:14,18:18,12029,3162I2226:2,6I:I:4,627:6,2882,521I1200,25510IYMBOL CORRECT.";*:21:16:"RETURN":6I120F0,20210IO1,3WMUgI:2:1500K(Q):K1415800Q16,0:C1:I2123:I:14:" ";:24:" ";:I24:14:" "; p LEFT DRAWS z1-0,2223PITCH/1,4#0MU62I:PITCH54ĺ<4gC::21:3:"'Z'KEY ";:29:"'?'KEY ";D:14:" < > "X:"* COMPUTER WILL CHOOSE A FIRING SYMBOL."l"* PRESS YOUR KEY WHEN SYMBOL REAPPEARS.""* QUICKEST DRAW WINS IF S1300,1400,1500.!NAME$"-------------":5675N"NAME$" BEAGLE BROS ":5675n#NAME$"-------------":5675$NAME$" QUICK-DRAW! "::5675:%NAME$"-------------":5675*I1999:I:5699+24:13:I1(NAME$):PITCHPITCH1:(NAME$,I,1);ER ON YOUR KEY- BOARD AND WAIT SIX DAYS. "4 R56C TS0:I16` VX16260163402:A(X)l XX::It Z56GR$(-): MINFILES 99: K=PEEK(PRINT): HIMEM: 0: (ET) CALL HOME: LOMEM: HIMEM: FUTZ: GOSUB MOD: CLR: POP" LI140:I(I5)51ĺI4; NX((1)63)1:Y((1)926):4:(A$,X,Y):I, P"45 REM IN THE EVENT OF A MALFUNCTION, POUR LUKE-WARM ROOT BEOW CUT IT OUT!";G$:s D"?RETURN WITHOUT GOSUB IN 10";G$:"?OUT OF MEMORY IN 20";G$:"?NEXT WITHOUT FOR IN 30";G$ F"?ILLEGAL QUANTITY IN 40";G$:"?DIVISION BY ZERO IN 50";G$;G$::"BREAK IN 4883151600 ^ 19";G$ HS0:56e JS0:A$"POKE 3,49151; CHu (54,2 NAKED CITY BEAGLE BROS F5(222)16ĺ(4);"FP"W6G$(7):50e7S1::64w8SS1:"]";A$}9:A$"NEW"A$"FP"A$"INT"84<A$"LIST"74>S266@"?SYNTAX ERROR";G$:56 B"I SAID":"?SYNTAX ERROR!";G$:"N  vT$"COULD IT HOLD WATER?":>wT$"IS IT USUALLY COLD?":ZxT$"IS IT BREAKABLE?":wyT$"IS IT ELECTRICAL?":zT$"CAN YOU SEE ONE HERE?":{T$"IS IT EVER BROWN?":|T$"WILL IT BURN?":}T$"IS IT FUZZY?": ~T$"IS IT HEAVIER THAT?":%mT$"DOES IT HAVE WHEELS?":>nT$"CAN IT FLOAT?":VoT$"DOES IT FLY?":zpT$"DOES IT COST OVER $1000?":qT$"DOES IT SMELL BAD?":rT$"IS IT HAIRY?":sT$"IS IT SQUISHY?":tT$"CAN YOU THROW IT?":uT$"CAN IT SWIM?":"IS IT EVER BLUE?":;eT$"IS THERE ONE IN THIS ROOM?":SfT$"IS IT NOISY?":kgT$"IS IT SHINY?":hT$"DOES IT COST OVER $500?":iT$"IS IT PART CHINESE?":jT$"CAN YOU WRITE ON IT?":kT$"DOES IT WRINKLE?":lT$"CAN YOU BEND IT$"CAN YOU RIDE IT?":>]T$"DOES IT HAVE MOVING PARTS?":d^T$"DOES IT COST MORE THAN $4?":~_T$"IS IT PAINTED?":`T$"CAN YOU EAT IT?":aT$"DOES IT HAVE DRAWERS?":bT$"IS IT BIGGER THAN A CAT?":cT$"DO YOU WEAR IT?":dT$(J)A(J)50:A(J)651,652,653,654,655,656,657,658,659,660,661,662,663,664,665,666,667,668,669,670qU5000:1340VJ17530W1440X=== QUESTIONS ===YT$"DOES IT HAVE TEETH?":ZT$"IS IT ROUND?":[T$"IS IT HEAVIER THAN A CAR?":\QB(A(J))1:BB1:A(J)50596RA(J)601,602,603,604,605,606,607,608,609,610,611,612,613,614,615,616,617,618,619,620,621,622,623,624,625,626,627,628,629,630,631,632,633,634,635,636,637,638,639,640,641,642,643,644,645,646,647,648,649,650S597aTA129CHEET1:K=ASC(CTRL-A)+7:958:J0RJJ1:TURNTURN1:TURN21TURN21o:3TURN:1:J10ĺ" ";{J;".";I19&0,202IJ901,4:MUDII:3TURN:1:J10ĺ" ";JJ;".";LA(J)((1)70)1:B(A(J))1588)2):5000::25:"OBJECT":PT$"AND I'LL ASK THE QUESTIONS.":20((T$)2)Z5000` Q16,0:6:1:" -----------------------------":4:25:"OBJECT" 7:7::" ";::"(HIT ANY KEY WHEN READY.)"K(Q):K129526Q16,0:K#TT0:I1100:A(I)0:B(I)0:I:":::::::::::::::::::::::::::::::::::::::":":";::" LET'S PLAY 'PLENTY-QUESTIONS!' ";:2:2,316:2,334":":":::::::::::::::::::::::::::::::::::::::"T$" YOU THINK OF AN OBJECT,":20((T$ J150:J,I:380O 18:12::" HURRY UP! "::I150:S(Q48):I:380g Q16,0:K3363900 K450,1920,6000,2930  ================ PLENTY QUESTIONS ================ S$"":TURN3:CHEET0:4:1:958:NEW GAME B50460B055I7 J1,5 TMU: ^I:22:9:"(TYPE Q TO QUIT.)"V hJ7132:J:5:"?":J| rA$" - ":C$" > " wA0 |AA1:A5405 ~I4102:J111 K(Q)176:(K0K5)K33410 IJ 6 (A$,J,1);(C$,J,1) J0:A$" 2. 21 NUMBERS":J9:180s A$" 3. NEXTWORD":J11:180:A$" 4. CARD SCANNER":J13:180 "A$" -----------------------":J15:180:A$" BY BEAGLE BROS":J16:180 ,II2310 1I1400:I 6I17 @0,2220 J:A$:# S(16336), I:g A$" ":J1:180 A$" MAGIC PACK ":J4:180 A$" -----------------------":J5:180% A$" 1. PLENTY QUESTIONS":J7:18 FOLLOWING TRICKS WILLNOT WORK PROPERLY (EVEN THOUGH THEY WILLAPPEAR TO BE WORKING)."; f868::"------":24:"HIT ANY KEY TO START MAGIC PACK:";:A$:A$; 32000:63900 240 MENU: ----- II2182 I22J1:I:A$:868 II1gZ ================== MAGIC PACK BY BERT KERSEY COPYRIGHT (C) 1980 BEAGLE BROS ==================dI140:A$A$"."::::I122:A$;::8V e:868:" MAGIC PACK "::I140:"-";::"HELLO. PLEASE FOLLOW THE INSTRUCTIONS INTHE MANUAL, OR THE                     ICEMAN8'BELLY BUTTON,ROLLAWAY BED,JACK AND JILL,HAUNTED HOUSE,HANDKERCHIEF,CINCINNATI,TIGHTROPE,JIGGLING,FREEWAY DRIVER,FOXY LADYB'WONDER WOMAN,FOX TERRIER,BIG FAT PIG,ONION SOUP,EGGS OVER EASY,GOOD GRAVY,MISTLETOE,TAXICAB DRIVER,RED RIDINGHOOD,STABEAGLE PUPPIES$'CROAKING FROGS,LUGGAGE,FURNITURE,HAWAIIAN SURF,ZEBRA STRIPES,HOT DOG BUNS,NOSE JOB,PRIVATE EYE,LIGHT MY FIRE,SWEAT SHIRT.'KITCHEN SINK,JUMBO JET,TELEVISION SET,TRAIN,KARATE EXPERT,SCREAMING KIDS,QUACKING DUCKS,CITY LIMITS,SYMBOL,POL246,166,0,76,3,3,96'HAPPY NEW YEAR,ONE TWO THREE,PIE CRUST,SLOT MACHINE,HAM AND CHEESE,SCHOOL ZONE,DONALD DUCK,FOOTBALL,MEOW,MINNEAPOLIS'UNITED STATES,DICTIONARY,DICK TRACY,APPLE COMPUTER,CIGARETTE,E T PHONE HOME,ABRA CADABRA,FOOTBALL,QUICK DRAW,0),X$(150),W$(21),A(20),N(255):Q16384:QQ16368:A$"ABCDEFGHIJKLMNOPQRSTUVWXYZ'-":U16336:Q$(34):MU771:BZ17107|2 '# COMPUTER'S WORDS (#N((1)150)1:N(N)90002#N(N)1:W$X$(N):'0,0,96,173,48,192,136,208,4,198,1,240,8,202,208,2,X10I:,0:29,34X6:X4,34:X8,34=24:1:868s24:1:"YOU LOSE! IT'S ";::" ";W$;" ";::"!";J150:SND(MUBZ)(MUBZ)(MUBZ):440 0,((1)200)20 1,30 MU  I768789:J:I,J:v( L$(5),A$(3:12,21X10:p LEGS "z2JI2032:X4,X8I::0:23,32X6z11:22,24X2:22,24X10:X1,24:X11,248:X4,X819:24:1:" ONE MORE MISS, AND YOU'RE HUNG! ";:: BOOTS 8 I2934:X4,X8I::I3334:X7:X6,9 HEAD # 11QI47:X4,X8I::X5,X73:X5,X78t 11:X6,10:0:X5,5:X7,5:* BODY 49>I1018:X4,X8I:H11:X6,10:3:X6,13:X6,16:R ARMS \9f11,13X3:11,13X9:12,21X23S740,780,820,860,900,940,980,1020,1060,1100P21:1:"NO "Q$L$Q$"..."Y330j GRAPHICS q5X6,X130:0,39X13:X,X1337:X,X1338:X,39X9,1:X10,2:X11,3:X12,4: ROPE 151,5X6:5,9X5:5,9X"ONE "Q$L$Q$"->";:L25703&21:1:" "P021:1:L;" ";L$;"'S!->"f:0,((1)200)20pD1,80xNMUX:L0SS1bL0330l WRONG GUESS v23:1:"WRONG GUESSES:"23:Z3:L$;" ":ZZ1:J140:SND(MUBZ):"RETURN";::21:2:W$:S0:1302  GET LETTER \ K(Q):K("A")128K("Z")128460f QQ,0w 21:1:12) NK192:L$(A$,N,1)  LETTER CORRECT? I1(W$):L$(W$,I,1)600 21:(2I)7X:L$;:LL1 A(I)121:1: @ JL0% T WORD FINISHED? A ^J1(W$):A(J)1460G `] h WORD FINISHED r24:1:868:1::W$" YOU GOT IT!! ":I114:(W$,I,1); |0,((1)200)20 1,44 MU  1,150 MU :21:1:" ";::2: START GAME = 21:"SECRET WORD:"::"TYPE A LETTER."K X18:Z12 J1(W$):A(J)0:(W$,J,1)" "A(J)1:(W$,J,1)" "PP1  700 "J1(W$):22:X72J:"-";:2540: ,J1(W$):(W$,J,1)" "320 622:(2J)7X:" ".";:MU771ĺ"OFF.";9 :" Q QUITS GAME."R 12:27:QQ,0:"";W${ W$"S"MUMU(MU770)(MU771):130 W$"Q"63900 (W$)İ9000 I1(W$):J((W$,I,1)):(J("A")J32)(J("Z"))130 (W$)14130 :" THE COMPUTER, OR..."::0 2540:I1400:I I1150:N(I)0170T :110\ 12 "TYPE YOUR SECRET WORD(S): ______________ THEN HIT ."::2540 20:"TYPE LETTERS + SPACES ONLY, 14 MAXIMUM. ":2540:" S TURNS MUSIC ONf0Z HANG PERSON BY BERT KERSEY BEAGLE BROS Bd2580:63900XiI1150:X$(I):nnI1150:N(I)0:::5:"H A N G ";:2540:" P E R S O N !":"- - - - - - - - - -"::2540 "HIT ONLY";::6:"RETURN"::" TO PLAY AGAINST":          X,XX6I:: MUSIC 1I10B2010B2:0,IC1,3K MUQWI770789:J:I,J::96,173,48,192,136,208,4,198,1,240,8,202,208,246,166,0,76,3,3,96S(16),CB(16):BEST999:BV999:Q16384:MU771:BZ48429:Q$(34):X::CB(15):990:C1CC1ıO15:YY1,YY7XX1:YY2,YY3XX3:YY5,YY6XX5XX3,XX5YY1:XX3,XX5YY4:XX3,XX5YY7:1000IYYYY8:XX,XX6I::XX2,XX4YY1:XX2,XX4YY4:XX2,XX4YY7:0IYYYY8 X,XX5YY4:XX3,XX5YY7:9CB(13):990:C1CC1ıa15:YY1,YY7XX1:YY1,YY7XX5XX3,XX5YY1:XX3,XX5YY4:XX3,XX5YY7:CB(14):990:C1CC1ıCN4:YY1,YY7XX1:XX4,YY4:YY1,YY4XX3:YY1,YY7XX5:4:YY1,YY7XX1:YY1,YY7XX3:YY1,YY7XX5:XX4,YY1:XX4,YY7:fCB(11):990:C1CC1ı15:YY1,YY7XX2:YY1,YY7XX4:CB(12):990:C1CC1ıCN4:YY1,YY7XX1:YY2,YY3XX5:YY5,YY6XX3XX3,XX5YY1:XX3CB(7):990:C1CC1ı@p15:XX2,XX4YY1:YY1,YY7XX4:\uCB(8):990:C1CC1ıjzCN4:995YY1,YY7XX2:YY1,YY7XX4:CB(9):990:C1CC1ı15:995:YY2,YY3XX2:YY2,YY6XX4:CB(10):990:C1CC1ıICN7XX4:%CCB(4):990:C1CC1ı[HCN4:YY1,YY7XX4:YY1,YY4XX2:XX3,YY4:wMCB(5):990:C1CC1ıR15:995WYY2,YY3XX2:YY5,YY6XX4:\CB(6):990:C1CC1ıaCN4:995fYY2,YY7XX2:YY5,YY6XX4:k SELECT:";:A$:A$:A$"C"ĬMA$"M"Ĺ768,14:(4);"RUN SHORT MENU"hA$"Q"Ģ22:1:958:s639002I02814:J3336:5:J1,J3I:J1,I1:J3,I1Z9:IIJJ4:I2,I10II:13:J,J1I4:J,J3I5:J,J4I6:J1,J4I7:J3,J4I8II125::II14:S(U)::::":22:1:958::" MENU, CONTINUE GAME, QUIT0I1K$N7N0YY288N13N6YY14GN12YY0pJ3(N(N6)6)67(N(N6)6)6YY,YY10J:X13S(U)(U)(U)(U):::NN1:: SET-UP CANS 15:0,3911:0,3939:0,3925:0,390:0,3939K2CARD$"TWO GAS CANS.": K3CARD$"THREE GAS CANS."@ L  END :" YOU GET THE LAST CAN-- YOU LOSE!":27:"--- ----" I1999::63900 :" RATS! YOU WON (#%&@!)! WHAT LUCK!":8:"--- ---":1170  REMOVE CANS 0 ` APPLE'S TURN $ eN11180@ gN16N13N9N51135] jKN1((N1)4)4:1140e oK1z t1157:I1999: y:" MY TURN: I REMOVE ";CARD$:N111148 zI1800: |1190 ~N11165 1080 1090 CARD$"ONE GAS CAN.": DO YOU TAKE 1, 2 OR 3 GAS CANS"9 B15:39,44:7:39,45V GK(Q):K176K1851095` HQQ,0z LKK176:K0K41115 Q:" NO WAY! YOU'VE GOTTA PUSH 1, 2 OR 3... - - -":1085 [1157::" YOU REMOVED ";CARD$:11999:( (J1A$"T")(J0A$"H")1065N !"I WIN THE FLIP-- I GO FIRST..."X $1125 )"YOU WIN THE FLIP--YOU GO FIRST..." .I1999: 3 GET NUMBER 8:"THE OBJECT IS TO NOT TAKE THE LAST CAN.":18:"--- ---- ---" =N;" LEFT. ----":"FLIP FOR FIRST: HEADS OR TAILS (H/T):";:A$:A$:A$(3)A$(27)ERRf A$"H"A$"T"Ĭp QQ,0 :" FLIP-->";:I1300::J((1)2) I160:":";:II13:S(U):: :J0ĺ" HEADS "; J1ĺ" TAILS "; :G$ I19t/ GAS CRUNCH BY BERT KERSEY BEAGLE BROS _ Q16384:QQ16368:U16336:G$(7):63900hN18::21:40):21:16:"GAS CRUNCH":1225:22:"TAKE THE LAST CAN OF GAS, AND YOU LOSE!" FLIP O " ---- --- ---     :24:" ";9:21:27:" TIME'S UP!! ";:PASBESTĢ22:1::"BEST SCORE TODAY!";:J118:P((1)200)30:L20:190::L150:190::1:"BEST SCORE TODAY!"PASBESTĢ22:1:"BEST SCORE TODAY:";BEST:23:27:"RETURN";::"21:19:" 3":19:" E":19:" D"[50,63192(ELNO4):21:22:" 4":22:" R":22:" F"kQ16,0::==== END GAME ====Q16,0H14:P99:L11:190:J115:J,H:L200:190I199:II2123:I:1:868::24:" TOTALS:"; TOTALS: 0 0 0 0";:32:"=NO.CARS";Q9:X12213:37,39X:37,39X1:jP99:L200:190:230===# ELVTRS.WORKING===Q16,0:ELNOELNO1:ELNO4ELNO150,63192(ELNO2):21:16:" 2":16:" W":16:" S"!50,63192(ELNO3): 4"2z13:" Q";:16:" W";:19:" E";:22:" R"o13:" A";:16:" S";:19:" D";:22:" F":27:"SPACE";:21:1:" UP>";:27:"DEADLINE 5:30""STOP & LOAD>";:27:"BEST TODAY:";BEST:1:" DOWN>";:27:"-------------")" ITECLR(X)BLDG:b9X14:PAS(X)0:MOVE(X)0:YPSN(X)39:LITECLR(X)BLDG:CARCLR(X)9::FLAG2130>"(HIT ";::"RETURN";::" TO START.)";HK(Q):K1412120M=== START GAME ====RQ16,0:x:21:13:" 1";:16:" 2";:19:" 3";:22:"0:390:XNUM6:N0:NCLR15:390I0:YNUM1,YNUM230:YNUM5,YNUM630Z:FLAG2100 ":::::::::::: 1 2 3 4 ::::::::::::::::";*" USING 1-4 ELEVATORS, HOW MANY CARLOADS OF PASSENGERS CAN YOU DELIVER BETWEEN 5 AND 5:30? ";4X039:L:PAS0:ELNO4ASKY:I039:0,9I:25,39I:I:0,390:0,391g15:12,2237:12,2238:12,22390:I1222:4,36I:I BLDG:I11233:4,39I:I:10,242:10,243:4,3910:4,3924:0,1039:23,3939NCLR0:XNUM26:N5:390:XNUM36:N2:XNUM,XNUM1YNUM4:CXNUM1,XNUM2YNUM2:XNUM1,YNUM4:sYNUM2,YNUM6XNUM:YNUM2,YNUM6XNUM1:XNUM1,YNUM2:XNUM1,YNUM4:XNUM1,YNUM2:XNUM,XNUM1YNUM4:==== SET-UP GAME ====PASBESTBESTPAS M0MXNUM4:NN10:H0:391FYNUM2,YNUM4XNUM:YNUM,YNUM4XNUM2:vXNUM,XNUM1YNUM2:XNUM1,XNUM2YNUM4:XNUM,XNUM1YNUM2:XNUM,XNUM1YNUM4:YNUM,YNUM2XNUM1:YNUM4,YNUM6XNUM:YNUM4,YNUM6XNUM1:XNUM1,XNUM2YNUMM292270 z240( |====NUMBERS====0 H1A 0,9NCLR25J 1,9R MU NCLR:YNUM,YNUM6XNUM:YNUM,YNUM6XNUM1:YNUM,YNUM6XNUM2:SKY:JN(N10)10:J1400,410,420,430,440,450,460,470,480,490 YNUM2,YNUM4XNUM1:H0ıXNUARCLR(X)9:NPAS:XNUM6:NCLR15:3907 r:K160İ2210J s=== CLOCK ===m tOM:MMELNO16:(O)(M)240 wFLR3((1)11)6:LITECLR(FLR)BLDGLITECLR(FLR)15:15:FLR1,FLR14:FLR1,FLR17:FLR1,FLR20: FLOORLIGHTS yNM:NCLR0:XNUM36:390:DG:Y1,Y14:Y1,Y17:Y1,Y20:"";9 @Y6MOVE(X)3 E0:4,393X9:4,393X10:CARCLR(X):YPSN(X)2,YPSN(X)3X9:YPSN(X)2,YPSN(X)3X10: DRAW NEW CAR$ JYPSN(X)39CARCLR(X)15PAS(X)PAS(X)1:24:3X10:PAS(X)10);PAS(X);:PASPAS1:C:290 KDMOVE(X)3! 2909 KRMOVE(X)0:290L KFMOVE(X)3 "YYPSN(X)MOVE(X):Y40Y5YPSN(X)Y:NEW VERTICAL CAR POSITION.& ,MOVE(X)0CARCLR(X)15LITECLR(YMOVE(X))15ĹQ16,0:YPSN(X)YMOVE(X):CARCLR(X)15:LITECLR(Y)BLDG:BL1,L MU I19:I" : === MOVE LOOP ====H X1ELNOl K(Q):K176XMOVE(X)3:290 X265,270,275,280 KZMOVE(X)0:290 K(A)MOVE(X)3 290 KWMOVE(X)0:290 KSMOVE(X)3 290 KEMOVE(X)0Ej9================ ELEVATORS BY BERT KERSEY COPYRIGHT C) 1980 BEAGLE BROS ================= dY39:Z("Q")128:W("W")128:E("E")128:R("R")128:A("A")128:S("S")128:D("D")128:F("F")128:63900n32000:20000,P        :"YOUR ASSIGNMENT: FIND THE ";SUBSUM;" ENEMY SUBS.";\I122:21:28:I(I10)10;tJ12:S(Q48):JJ125:J,I:27::"*";SUBSUM;"*";L44:5040::27:" ";SUBSUM;" ":L300:5040"----------------------------------------";C<SC((1)15)1:SCISC3SC11SC14SC5SC105601hI0382:SC:I,0:I1,39:0,I:39,I10:I1,0:I,39:0,I1:39,I:II2037:SC:1,38I1:1,3839I1:0:1,38I:1,3839I:J19:J,I:1,381:1,3838:SC:0,39:39,0:60009T GAME ----------Q16,0BSUBSUM((1)4)3:MAXSUBSUM40{FU((1)(MAX2))(MAX4):OXMAXFU33(6SUBSUM)I1SUBSUM:C(I)0:X(I)((1)34)3:Y(I)((1)34)3:I:FINDS0X((1)30)5:Y((1)30)5MAX999:FLAG1:IS;" "; ::P((1)200)20:I15:L15:5015:5040:bI122:24:23:((1)99);" ";:Is23:FU;" ";P((1)200)20:I15:L15:5015:5040:II133:24:36:I(I10)10;:36:"0/";SUBSUM;:I150:S(Q48):: STAR------ Q:EQUALIZER";#m:50,63xr": OXYGEN :";:16:": FUEL :";:29:": SUBS ";:3:39,47:10:39,46w21:1:"A";:9:"Z";:17:"SPACE";:30:"S":"<";:9:">";:30:"Q";|I122:24:10:((1)99);" ";:50,63:24:10:OX21:" MENU":" CONTINUE GAME":" QUIT":" SELECT:";:A$:A$::A$"Q"Ģ21:A$"M"Ĺ768,7:(4);"RUN SHORT MENU"A$"C"225639001U":" CONTINUE THIS GAME":" QUIT":5:"------------------":" SELECT:";:A$:A$:A$"Q"ĀA$"M"Ĺ768,16:(4);"RUN SHORT MENU"A$"C"Ĭ63900:MO$;" ";YR(T):DWDDDA(T)1:D1DW(DW7)7:D1D15:D1D17(D17):HTD1318:2V:DA1zHT:50,63192(DADA(T)):DA10);DA;:DADA1:HTHT321(HT39):DA(LE$)16010::10:5:"BEAGLE BAG":5:"------------------"c12:" MEN" 60000:1:I140:"-";::: H:Y1Y2DDD2D1:gDDD2365L1D1:Y2Y11ıDDDD365(Y2Y11):IY11Y21:(I(I4)40)I1900ĂYRI:IYRY214:I1900DDDD1:: YpV1:1:"DATE #";T;":";:868:21P(T)1MO(T)2DY(T)DY(T)1 255:Y11801:D11:L10:Y2YR(T):D2DY(T):5000:DD(T)DD::I124:A$::I11DD(DD7)7:DA$::V4:" ";DA$:THURSDAY,FRIDAY,SATURDAY,SUNDAY,MONDAY,TUESDAY,WEDNESDAY" DAY OF YEAR: ";DY(T):LP(T)ĺ" (LEAP YEAR):YR(T)(YR$):YR(T)1801YR(T)2099ĺG$;:100t zLP(T)0:(YR(T)(YR(T)4)40)(YR(T)1800YR(T)1900)LP(T)1 {MO(T)2LP(T)LE$"28" }MO(T)2DA(T)29LP(T)0ĺG$;:100 DY(T)DA(T):MO(T)1Į:I1MO(T)1:A$,LE:DY(T)DY(T)LE: L0,DECEMBER,31q n3V:HT:868:"__<-DAY (1-";LE$;")";:HT:"";DA$:DA(T)(DA$):DA(T)1DA(T)(LE$)ĺG$;:100 s3V:HT:DA(T);",";:HT(0)2 x3V:HT:868:"____<-YEAR (1801-2099)";:HT:"";YR$:(YR$)2YR$"19"YR$. y3V:HT:YR$;:958:__<-MONTH (1-12)";:1:"";MO$:MO(T)(MO$):MO(T)1MO(T)12ĺG$;:100 i:I1MO(T):MO$,LE$::3V:1:958:MO$;:HT(0)2:MO(T)2LE$"29":JANUARY,31,FEBRUARY,28,MARCH,31,APRIL,30,MAY,31,JUNE,30,JULY,31,AUGUST,31,SEPTEMBER,30,OCTOBER,31,NOVEMBER,3)100" YEARS, OR "DD" DAYS.":21:140 _:23:1:958:"HIT TO TRY AGAIN:":" OR TO QUIT.";:23:27:A$:A$:A$(13)Ĭ `A$"Q"63900 c95: d:I112:MO$,LE$:I186(I6):112(I6)(I9):I;" ";MO$;:F f3V:1:868:"m ::G$(7):"THIS PROGRAM WILL CALCULATE THE NUMBER OF DAYS BETWEEN TWO DATES (1801-2099)."::63900T12:V38(T2):V:140::" ENTER DATE #";T;" "::100::V8:140% ZDD(DD(2)DD(1)):20:1::"TIME SPAN: "((100(DD.5))365.244966     z"#  ŠӠϠ&  ˭Ҡ٭Š˭ס٠Ӡ ȠԠӠ Π4 ӠȠ ǠΠ àˠ3 Ġ٠ ŠŠ ˡˠ٠ؠ ӠŠĠҠ ٠Ӡ!Ġ%"ӠĠŠȠ ӠԠCŠӠԠՠ ΠŠӠ ŠР )(((VT)2))hTX(Z)T(J)T:TX(2)T(J)TV(VT)(((VT)2)):TX(3)T(J)TV(TV)(((TV)2))XZ3:SCTX(X)Z,2(VX(X)Z)):SBTMTX(X)Z,2VX(X)Z):(SC0SBTM10)1250IZ(X$):V(I):T(I)::(X$,I,Z)::F$A$:1015SBTM12TRING ==,G$"ABCDEFGHIJKLMNO@QRSTUVWXYZ"EX$(F$,2):K21310DIGIT456:FOR I = 1 TO 500: NEXT IJZJJZVV(J)V(JZ):TT(J)T(JZ)VX(Z)V(J)V:VX(2)V(J)VT(VT)(((VT)2)):VX(3)V(J)VT(VT0:A$F$'I715:I:6:"::::::::":}:24:Z:"*+12345? <-NUMBER OF CARS BEHIND ENGINE";::3:"12345? ";:7:7,47 2:39,47K(Q):CZ:410:C0::K176K1851050$:V(Z):T(Z):"*"::KK174:Q16,0:1830:2010~== NEW TRAIN SXXX2XF:YYYY2YF:975:`STPX,YY):SBTMX,YYZ):(SBTM10)(SBTM11)(SBTM13STP12)ı24::" REMOVE CAR FROM SWITCH! ";::IZ666:I:1830:::330=== COUPLER ===CZ:1780:C0:1830Q16,0CZ:480:C :::10:5:"BEAGLE BAG":5:"------------------" 12:" MENU":" CONTINUE THIS GAME":" QUIT":5:"------------------":" SELECT:";:A$:A$:A$"Q"Ā A$"M"Ĺ768,6:(4);"RUN SHORT MENU" A$"C"Ĭ 63900Y2,Y2X2:X,Y:10u PARAMETERS ---------- }771,173:772,48:773,192:774,136:775,208:776,4:777,198:778,1:779,240:780,8:781,202:782,208:783,246:784,166:785,0:786,76:787,3:788,3:789,96S(16),CB(16):BEST999:BV999:Q16384:6 X4X4X35X35;0:IY3Y3:X3,X3I:I|15:X2,X2Y2:X2,X2Y2:Y1,Y1X2:Y1,Y1X2:X,YI18P((1)200)20:L8:5015I600021:23::"JUMP"::p4:X2,X2Y2:X2,X2Y2:Y2,Y2X2:",")128KK("A")128KK("Z")128KK136KK149ıNN21:23::"JUMP"nS4:IY2Y2:X2,X2I:I{XFUFU10bKK(KA)YY15:5775qKKKZYY15:5775KKKLKKKWXX15:5775KKKRKKKEXX15Y4Y4Y35Y3513:"TO START, PRESS:"t" A(NORTH), Z(SOUTH), <(WEST), >(EAST).";::3:"A";:13:"Z";:23:"<";:32:">";K(Q):KKAKKZKKEKKRKKWKKL5640:5470:0:5061? SPACE JUMP ----------DQ16,08IKK(".")128KK(UZZ(Z)::X135::. :I140:"-";::f :::10:5:"BEAGLE BAG":5:"------------------" 12:" MENU":" CONTINUE THIS GAME":" QUIT":5:"------------------":" SELECT:";:A$:A$:A$"Q"Ā A$"M"ĺ(4);"RUN SHORT MENU"  H6:"(";A1;"%)"; 999( :6 417:1000[ HA2T((2S)1):A2(10A2.5)10 \"AVERAGE SCORE: ";A2;" (";(.51000A2T)10;"%)" p1000:  RE-ROLL I1999: "TRY AGAIN, OR TYPE Q TO QUIT.": XM0:220 X12:B0 HI0:I22S) A(I)HIHIA(I)/ < I22SE 999m A1100(A(I)T):A1((A110.5))10{ I14715 VI2:H1:750 I27720 VI11:H14:750 VI24:H27 V:H: I10);I;: A(I)HIĞ " ";A(I);" ";BUZZ(Z):N((N1)S)((N1)S)N2:NN3)NN2):A(N)A(N)N1:(N4)N4ĺ X(XN5)N50ĺ:XMXMN5:I139:":";::18:XM:  :"**END**": 0I1999:: D1000 X CHART l"TOTALS: ";T;" ROLLS, TWO ";S;"-SIDED DICE" 100ERR S20S1ĺ(7):220p "NUMBER OF ROLLS OF DICE? ___ (999 MAX.)";:26:"";T$:T(T$):::T$"Q"ERR T999T1ĺ(7):260 ,1000 @T;" ROLLS OF TWO ";S;"-SIDED DICE:":1000 TI140:A(I)0: hI1999: | ROLL J X1T:)2N11:N22:N310:N436:N550:60000;d POLY-DICE VxA(40):Z49200:63900_:6"NORMAL DICE HAVE SIX SIDES.":"THIS IS YOUR BIG CHANCE TO CHANGE THAT!": "NUMBER OF SIDES ON DICE? __ (20 MAX.)";:26:"";S$:S(S$)::S$"Q"     "Q16,0:K14195&::" BYE...":QY:X:NBR1(NAME$):(NAME$,NBR,1);rPITCHPITCH6:PITCH1040600,((1)200)501,13MU0,PITCH1,20MUNBR: SHOOTERS 11,107:I38:0,6I:I"IHE WINNER! ":Y23:4050<NAME$" =========== ":Y24:4050gNAME$" PRESS RETURN"::Y22:XJ:4050NAME$" TO REPLAY OR":Y23:4050NAME$" ESC TO QUIT.":Y24:405022:X7::"RETURN"::X1:"ESC";:K(Q):K141K15540402:X,X24:S X,1:X2,1:X1,2:X3,2:X,3:X2,3:X1,4:X3,4:X,5:X2,5:d END GAME |PITCH258:22:958RPTS994015I1:J25:4016I25:J1:21:15:" "NAME$" =========== ":Y22:XI:4050NAME$" T2:"& 1,5X:2,4X1:1,4X3:<0 X,X22:X1,X34:T: X,X22:X,X24:D X,X24:X,X25:X1,X21:X1,X22:N X1,X32:X,X24:X X1,X32:X1,X24:b 2,5X:2,5X1:2,5X2:l X1,X22:X1,X24: v X1,X216:17,1934:33,3820:32,3821&AI1521:28,38I:I:T HAT POINTS s HNBR:IXX3:Y,Y4I:I HCOL:HPTS.59.93200 HPTS9HPTS9 (HPTS)13100,3110,3120,3130,3140,3150,3160,3170,3180,3190 Y1,Y3X1:Y1,Y3X,3419 [ 2010:0:CROSSt28,3015:28,3016:28,3020:28,3021:36,3815:36,3816:36,3820:36,3821z2010:0:E18,2131:18,2135#x2010:0:O0:I1719:31,35I:I2010:0:! 32,3815:33,38 ";: 2103:"TOTAL= ";:9:LPTS10;D16:" ";h26:"TOTAL= ";:32:RPTS10LPTS99RPTS994000K(Q):K141K155785Q16,0:K15595112 SYMBOLS L2010:0:SPIRALV15,1931:17,1935:32*l23:26:" WINNER ";:34:TIME10U{26:" ------ PTS. ";:RPTSRPTSTIME[I1500:I:24:1:" HIT ";::"RETURN";::".";HNBR13:HCOL8:HPTS.5(RPTS10):X29:Y1:3000: PRINT SCORE Q16,0:24:15:" TEN=WINT ?:21:16:"(NOPE.)"fDS(NBR)1:I15:J1((1)99)99:J:0:15,1615:J14:K(Q48):JEJ199:J:12:15,1615:IFCOL(SYMBOL):SYMBOL1100,1200,1300,1400,1500G21:16:" (YEP) ":I5160N7000:S(NBR)1410]7110P) ": 5160* 6000:S(NBR)15754 6110\ 23:1:" WINNER ";:9:TIME10 " ------ PTS.";:LPTSLPTSTIME  24:27:"HIT ";::"RETURN";::"."; HNBR15:HCOL1:HPTS.5(LPTS10):X4:Y1:3000 !7100 RIGHT FIRSI::305 |(Q)175590$ ~4257  LEFT FIRST P :21:16:"(NOPE.)" S(NBR)1:I14:J1((1)99)99:J:0:16,1721:J14:K(Q48):J J199:J:11:16,1721:I COL(SYMBOL):SYMBOL1100,1200,1300,1400,1500 21:16:" (YE22:16:":READY:"+ 0:2010:I1777:I9 " START 1NBR((1)5)1:COL(NBR):NBR1100,1200,1300,1400,1500:Q16,0:22:16:": :"; @TIME25((1)20)1:18:TIME10);TIME10; cJ(Q48) o(Q)175(Q)218Ă:0:I1521:28,38J1((1)6)4:NBR((1)5)1:COL(NBR):NBR1100,1200,1300,1400,1500^ 0,((1)99)9g 1,9o MU 0,((1)99)9 1,4 MU J:S(NBR)1:SYMBOLNBR I1((1)500)300:I 21:15:" ":15:" "  TIME0125 xI1999:I( }5160:< FIND SYMBOL a 23:1:13):25:29):25:15)l I15 COL(I)((1)15)1:COL(I)3COL(I)5COL(I)7COL(I)11COL(I)14162 21:15:" FIRING^ ":15:" ^SYMBOL " I05:S(I)0:IJ rk,============== QUICK-DRAW! BY BERT KERSEY COPYRIGHT 1980 BEAGLE BROS ============== ~P32000:63900_LPTS0:RPTS0:PITCH0n:::5000p:21:10:" ";:25:" ";:s21:3:" Z KEY ";:29:" ? KEY " t              2)21740:) PRINT SQUARES ECB(1):990:C1CC1ız 15:YY1,YY7XX3:XX2,XX4YY7:XX2,YY1:%CB(2):990:C1CC1ı*CN4:995/YY2,YY3XX4:YY5,YY6XX2:4CB(3):990:C1CC1ı915:995 >YY1,YY0,930,945,960,970,985:' SHUFFLE DI115:S(I)I::I115uJ((1)15)1:TEMPS(I):S(I)S(J):S(J)TEMP:S(I);::" SHUFFLING ";JJ13:S(MUBZ):I:S(16)16A0:I115:JI116S(J)S(I)AA1J,I  A(A05BEST999ĺ"=?=";-BEST999ĺBEST;6715JBV999ĺ"=?=";[BV999ĺBV;o") ";::24:1"HIT "Q$"*"Q$" WHEN YOU HAVE NUMERICAL ORDER.";:23:21:" ";:7:15,45:B1:1020:G795,805,820,835,845,860,875,885,900,910,9220J(J4)40XX27/C1:S(J)JC0?GS(J):730UB4:S(J)Jİ1020cJ16670X12:S(MUBZ)(MUBZ):21:1:" A=UP Z=DOWN ARROWS=LEFT/RIGHT"::23:1" MOVES SO FAR: 0 (BEST TODAY: ";:CC07 I:10KN4,351:4,3538:4,3539:0,374:0,375:0,3734:0,3735hSC1:6,120:C2:13,190XC3:20,260:C4:27,330]740bJ116:YY2gJ4YY11lJ8YY20qJ12YY29vXX6:J(J4)42XX13{J(J4)43XXB4)41350 XXXX7:10001S(B1)B540?C0:1020YXXXX7:GS(B1):730|!XXXX7:S(B)S(B1):BB1:350& SET UP BOARD +I0150CB(I)C15I(I4)42CB(I)C2:I(I4)43CB(I)C3?I(I4)40CB(I)C4DC0:1020(YYYY9:GS(B4):730KYYYY9:S(B)S(B4):BB4:350] MOVE LEFT sB(B4)40350XXXX7:1000S(B1)B505C0:1020XXXX7:GS(B1):730XXXX7:S(B)S(B1):BB1:350 MOVE RIGHT B(K136480K149515*K193370: MOVE UP JB416350\YYYY9:1000oS(B4)B435}C0:1020YYYY9:GS(B4):730YYYY9:S(B)S(B4):BB4:350 MOVE DOWN B41350YYYY9:1000S(B4)B470 YOU GOT IT! (NO RECORD) ";ITI180:S(MUBZ)::325VY PLAY d^CC0365~cC1:TURNBESTĺ"";h370mTURNBVĺ"";rK(Q):K128370wQ16,0|K170275TURNTURN1:23:16::TURN;K218445 'BVTURN:310" ,TURNBEST3350 1BESTTURN; 624:1l ;A$" **** NEW RECORD! **** " @J1(A$)3:(A$,J,3);:B(J2):1020: EI11500::225 J:24:1:" (SORRY...) ";:340+O:24:1:" 1):225* K(A$)128:K214K201225f :21:14:"(LOTSA LUCK.)";:14:K214ĺ" (CHICKEN) "} Q16,0:K201265 CC0:555:B16:350 CC1:555:B16:350  END GAME I115:S(I)I330  CC1300 "TURNBV335 V> START/VISIBLE #'S....BEST SCORE:";BV:" START/INVISIBLE #'S..BEST SCORE:";BEST " SOUND ON (NOW OFF)";:MU771Ė12:"FF (NOW ON)"; :" QUIT SELECT:"; 24:33:A$:A$::A$"Q"63900 A$"S"MUMU(MU770)(MU77$" OR "Q$"C"Q$" FOR COLOR ADJUSTMENT.)";3 17:8T K$:K$:K$"B"K$"C"160` Q16,0p K$"B"210 C12:C29:C31:C412:CN15:CN415:215 C12:C27:C36:C415:CN15:CN42 START GAME XX27:YY29:TURN0T ::21:"<(1)9000)1000;:: 8:14w " ":14:" SLIPPERY ":14:" DIGITS ":14:" " I1500::17:8: "BLACK & WHITE OR COLOR TV?" 8:"------------- -----" 17:25::"C":( ::" (TYPE "Q$"B"Q>d SLIPPERY DIGITS BY BERT KERSEY (C) 1980, BEAGLE BROS Pi1050:63900ln:::A$" BEAGLE BROS"s10:14:A$:I1666:xI112:J911:J:14:A$:130:}:135K14:S(MUBZ):::I712:J13284:I:J (     JI1SUBSUM:C(I)155460cOX(I)2,X(I)2Y(I):X(I)1,X(I)1Y(I)1:X(I),Y(I)1:J0ĺ"";lTI:Y GAUGES ------^::24:1:"----------------------------------------";c"A:NORTH Z:SOUTH SPACE:JUMP S:SCANNER <:WEST >:EAST ----XEQFU5435U'50,63:IOXEQ(EQOX):FUFU(OXFU):24:10:I;" ";:23:FU;" ";u,J12:S(Q48):J,I:OXFU1I199:I;:22:32:"EQUALIZER":50,63:@ REVEAL LOCATIONS ----------------E(((1)14)1)((J(J2)2)0):J0Ġ15NJ1SUBSUM:C(J):X(J)2,X(J)2Y(J):X(J)1,X(J)1Y(J)1:X(J),Y(J)1:hJ11:S(Q48):J,I0:1,3837:1,383721:32::"SCANNER":50,63:6000: EQUALIZER ---------50,127:22:32:"EQUALIZER" "EQ((OXFU)2):EQOCANNER --------:22:17:" -40 FUEL ";:yJFUFU401:24:23:J;" ";:H12:S(Q48):H:H18:H,J:FUFU40:21:32:"SCANNER"::22:17:"----------":I237SC:1,38I:1,38I0:1,38I1:1,38I1:I1,I:I,I1141556535440::22:17:J(J2)20ĺFINDS;KJ(J2)21ĺ" ";`I150:I:5290j5565 SCAN OR EQUALIZE? -----------------Q16,0:21:3:"NORTH";:11:"SOUTH":3:"WEST";:11:"EAST":KKQ5405KKB5695 S%I1200:I:J0:5445:I1400:IHPTS(1000FINDSSUBSUM)FUOX150::22:4:"SUBS LOCATED:";FINDS;" OF ";SUBSUM;". SCORE:";PTS;".":255 END GAME -------- Q16,024:31::" ";::32:"RETURN";: K(Q):JJ1:K1)100):L((1)50)20:50150xI:L250:5015:}5275IOX0OX0XFU0FU0gOX0526521:1:"** OXYGEN SUPPLY ZERO! (NO BREATHING) **":24:10:"0 ";527021:1:"** FUEL SUPPLY ZERO! (START PADDLING) **":24:23:"0 "; DEATH OR SUCCESS? -----------------DZ21:1:868:22:868:\FINDSSUBSUMāI1SUBSUM:P((1)200)25:L40:5015::5225_I138:J12:S(Q48):J,I:5250i21:1:" MISSION COMPLETED! (TAKE TOMORROW OFF!)"nI125sP200((U40"<:22:17:"----------":)AIFFU(FU3)3āI1SUBSUM:C(I):X(I)2,X(I)2Y(I):X(I)1,X(I)1Y(I)1:X(I),Y(I)1:K0:I15:((1)38)1,((1)38)1:PFINDSSUBSUMOX0FU05050Q --------------- END SEARCH LOOP 'U:"WEST"G 15:X(I)2,X(I)2Y(I):X(I)1,X(I)1Y(I)1:X(I),Y(I)1^ FINDSSUBSUM5190d !:z #J1SUBSUMFINDS (P50:L50:5015 -J:J199:J 2:22:17:" +40 FUEL ";:7JFUFU40:24:23:J;:H12:S(Q48):H:H19:H,J:FUFOX4)40āI14:S(Q48):8  FIND SUB? --------- V I1SUBSUM:XX(I)5185h YY(I)5185z C(I)155190 C(I)15  FIND SUB -------- FINDSFINDS1:24:36::FINDS; Q16,0::21:3:"NORTH";:11:"SOUTH":3:"EAST";:114:X2,X2Y2:X2,X2Y2:5085y KKLKKWFUFU1:XX(X2):Y1,Y1X1:X1,Y:4:Y2,Y2X2:Y2,Y2X2:5085 KKRKKEFUFU1:XX(X37):Y1,Y1X1:X1,Y:4:Y2,Y2X2:Y2,Y2X2 X,Y::24:10:OX;" ";:23:FU;" "; OX("NORTH":5066/ KKZĢ21:11:"SOUTH":5070S KKLKKWĢ22:3:"WEST":5075x KKRKKEĢ22:11:"EAST":5080 K(KA)FUFU1:YY(Y2):X1,X1Y1:X,Y1:4:X2,X2Y2:X2,X2Y2:5085! KKZFUFU1:YY(Y37):X1,X1Y1:X,Y1:5560 0,P 1,L 771% :+ ; H1L:H:f  START SEARCH LOOP ----------------- KKK:K(Q):0:KKBKKSKKQİ5315 OXOX((1)4):KKK5066 :21:3:"NORTH";:11:"SOUTH":3:"WEST";:11:"EAST": K(KA)Ģ21:3:c.============== SUBSEARCH BY BERT KERSEY COPYRIGHT 1980 BEAGLE BROS ===============KS("S")128:KQ("Q")128:KA("A")128:KZ("Z")128:KL(",")128:KW136:KR(".")128:KE149:KB(" ")128:6390016298,0 ::32000::     ;:38:"! !"28:"! !";:21:"/ /";:38:"! !"X9:"! !";:20:"/ /";:38:"! !"10:"! !";:19:"/ /";:38:"! !"11:"! !";:18:"/ /";:38:"! !"12:"! !";:17:"/ /";:38:"! !"13:"! !";:16:"+-+---------------+";:38:"--------------+">x2:5:"/ \"n3:4:"/ +-------------------+-+------+ \"4:3:"/ /";:25:"/ /";:36:"\ \"5:2:"/ /";:24:"/ /";:37:"\ \"6:"+ +";:23:"/ /";:38:"+ +" 7:"! !";:22:"/ /"RACK & SET-UP ===P:M0ZUDIGIT284:FOR I = 1 TO 500: NEXT ImZI1324:I:Z\"::::::::::::::::::::::::::::::::::::::::";_25I:Z:"::::::::::::::::::::::::::::::::::::::::";:JZ20::nZ:6:"+--------------(Z)T(2):X(VT):I(VT)l%VX(Z)V(Z)V:VX(2)V(Z)X:VX(3)V(Z)I:TX(Z)T(Z)T:TX(2)T(Z)I:TX(3)T(Z)X&IZ3:SCTX(I)Z,2(VX(I)Z)):SC0Ă(T(0)TX(I):V(0)VX(I):H03302I(A$)ZZ:V(I)V(IZ):T(I)T(IZ):I:1780:1312F=== T(SC12SBTM13)1300AV(JZ)VX(X):T(JZ)TX(X):SBTM121280YF$(G$,SC,Z):1290nF$(G$,SC16,Z) X$X$F$:2040:VX(X):TX(X):F$:XJ(KZ)1161X$X$" ":A$X$:F$X$:1730:HZ:1315 H0:"";#VV(Z)V(2):TT:RR1:R6R0R0520AR1580,690,700,680,690,700,580J580uX1373:15(R3):0,39X2:X:650X1373:0,39X:X:650A 9 12 ";::" 7 11 13 14 ";::2:" DARK... ";::"&10";::" MEDIUM... ";|R6ĝ:" LIGHT... ";:14:"SOLID":2::" APPLE GREY SCALE "; SEPARATE COLORS: ----------------(Q)136650Q16,00,47DJ012:X3JkN CLASSIFY BY B/W SHADE: ----------------------XJ5Ġ2J6(J4)bJ4Ġ3(J4)lJ8Ġ152(12J)vIX1X3:0,39I:I:JO{R6ė:21:2::" 1 2 4 8 ";::"5 ";::" 3 6BRN&10LAVMEDORGBRTLITPNKYELAQU BLUGRN GRY BLU GRNBLU " &V2123:I1373:T40(V21)I:IMODI(I6)6:IMOD4IMOD0Ğ 0V:I1:(A$,T,3((VI)61));::I,V:1:">PRESS ANY KEY. (0=BLACK; 15=WHITE";:2039,(")")128:7:16336:g  =================== LO-RES TEST PATTERN BY BERT KERSEY BEAGLE BROS. =================== x ::Q16384  NAMES & NUMBERS: ----------------G A$" 1 2 4 8 5 3 6 9 12 7 11 13 14 MAGDRKDRK'I'HAVE'TAKEN'CONTROL.YOU'WILL'DO'WHAT'I'SAY.''PUT'$1000'IN'ANENVELOPE'AND'GO'TO'THE'COMPUTER'STORE.''BUY'ME'A'LARGE'BAG'OF'MEMORY'CHIPS.'''''I'WILL'WAIT'HERE.''''P.S.'WHATEVER'YOU''DO,'DO'NOT'TURN'OFF'THE'POWER" X$X$".''''''''''''''''''''''''''":U59: ( 23:1:"]";::" ";::16 A$:A$:P N1:23:1:"]";:200| NN1:1:1:A$:A$:23:1N(N40)40 (X$,N,1);:23::" ";::" ";:(X$,N,1)"'"āI13:S(U): 190 16368,0:1:A$:A$:80 X$"THIS'IS'APPLE'][. =================== <220) F230C P16304,0:16297,0: Z:21:" 0 1 2 3 4 5 6 7 BLK GRN VLT WHT BLK RED BLU WHT" d:10:"APPLE ][ HI-RES COLORS";:1 nX024535 x(X35) IXX34 I,0I,1::10:11:32,10("APPLE ][ TEST PATTERNS":"----------------------"::"<1> HI-RES":"<2> LO-RES"::" SELECT:";:A$:A$:-A$"1"A$"2"ĉ:30.A$"2"500 2 =================== HI-RES TEST PATTERN BY BERT KERSEY BEAGLE BROS.     45 XX5:YY34:XFZ:YFZ:9707S5S5Z:S50940WY18:X7:J6:G$"\\\ ":945wY18:X7:J6:G$" +-":945Y:X:(G$,2):J:(G$,3,2)IZ9:JZ4:K(Q48):J:JZ4:J,I:330XXXXX(3XF)XF:975:X:XXXXF:YYYY2YF:975:FZ:970>S3S3Z:S30850L@Z:28:"+":Y2:X26:J27:G$"// +":945yRZ:28:"-":Y2:X26:J27:G$" -+":945\K4910fXX34:YY34:XFZ:YFZ:970pS4S4Z:S40900rY18:X33:J34:G$"// /":945Y18:X33:J34:G$" -+":9:"-":Y17:X13:J13:G$"-+ ":945R19:12:"+":Y17:X13:J13:G$" +//":945`K2810XX15:YY26:XFZ:YFZ:970 S2S2Z:S20800Y13:X16:J17:G$"+- ":945 Y13:X16:J17:G$"/ //":945*K38604XX27:YY2:XFZ:Y(S3Z)2):27:S30ĺ"-"'S30ĺ"/"J18((S4Z)2):34:S40ĺ"/"YS40ĺ"-"{18((S5Z)2):7:S50ĺ"-"S50ĺ"\"KK176:KZK5330Q16,0KZ760XX11:YY34:XFZ:YFZ:970S1S1Z:S10750#19:12(S1Z)2)):2:16,2(13((S2Z)2)):3:26,2(Z((S3Z)2))t4:33,2(17((S4Z)2)):5:6,2(17((S5Z)2))CZ:410:C0::K(Q):(Q)16065018((S1Z)2):13:"-";:13:S10ĺ"/"14((S2Z)2):17:"-";:17:S20ĺ"/"2(N=== SWITCHES ==='X1830::Q16,0f[DIGIT456:FOR I = 1 TO 500: NEXT Ib7:12,2(18((S1Z)2))Z:16,2(14((S2Z)2))Z:26,2(2((S3Z)2))Zl33,2(18((S4Z)2))Z:6,2(18((S5Z)2))Z=vZ:12,2(17( FWD/REV VALUES ===1830)Q16,0:C0FZ150ICZFZıWFZ:A$F$cJ(A$)I0J:VX(I)V(JI):TX(I)T(JI):II0J:V(I)VX(I):T(I)TX(I):ICZı&1500Q16,0:J0:1830DF0150FF0:A$R$:51030ČCL0V(Z):T(Z):(G$,J,Z):CZı\K170K198K210K211K195400Q16,0:K170ĺ"";:1840:1985K("F")128J(A$):KJZ:460K("R")128J(A$):KJZ:560K("S")128590K("C")128990===)2V((A$))2380O v(T(1)10T(1)24)(T((A$)1)10T((A$)1)24)İ1850 |24:2:" FORWARD? REVERSE? SWITCH? COUPLE? "; :5:"F";:14:"R";:23:"S";:31:"C";: K(Q) G$"*********+++^^^:::":JJZ:J1J(G$)JZJ(J3)11::" *** DERAIL *** ";:% ,1780F @IZ1234:I:16368,0:1985[ J=== COMMAND ===n OK(Q):Q16,0 PDIGIT456:FOR I = 1 TO 500: NEXT I TCZ:460:C0 ^:1830 hK198K210K211K195450 r1780: tV(1(I)Z)):SBTMTX(I)Z,2VX(I)Z):(SBTM12SC0)(SBTM13SC11)990J :VX(Z)Z:TX(Z)Z:"@";:TX(Z)Z:"@":VX(Z)Z:TX(Z)Z:"@";:TX(Z)Z:"@" VX(Z):TX(Z):"@" :IZ9:JZ9:X(Q48)(Q48)(Q48):J:JZ9:J,I 1830:24:? DIGIT456:FOR I = 1 TO 500: NEXT Ic FZVX(Z)V(Z):TX(Z)T(Z):240 VV(Z)V(2):TT(Z)T(2):X(VT):I(VT) VX(Z)V(Z)V:VX(2)V(Z)X:VX(3)V(Z)I:TX(Z)T(Z)T:TX(2)T(Z)I:TX(3)T(Z)XD IZ3:SCTX(I)Z,2(VX============== TEXTTRAIN BY BERT KERSEY COPYRIGHT 1982 BEAGLE BROS ============================= WARNING: DO NOT ALTER ANY LINE >29999! PROGRAM WILL BOMB IF YOU DO! ============================= === COLLISION === 2666Z2,E:32000:SPSPDIGIT:CLCLDIGIT:2130>(Q)159330:V(J)V(K):T(J)T(K):V(J):T(J):" "::IKZZ:V(I)V(IZ):T(I)T(IZ):V(I):T(I):(A$,I,Z)::CL:O,T(Z)Z:P,V(Z)Z:SP:T(0)(O)Z:V(0)(P)Z:T(0)Z130 J               ;::"*+";::(34);" IS THE ENGINE,":"AND ";K-IZ(A$):I(A$)2282k-:(A$,I,Z);::" ";:2285-"& ";::(A$,I,Z);:-JZ9:S(Q48):J,I:" ARE THE CARS.":."THE WORD YOU TYPE BELOW WILL DETERMINE THE TRAIN'S FINAL CONFIGURATIZ3:V(Q48):T:TZ33:T,I:IZ222:I::,A$"LOUIE"F,5:Z:,"A TRAIN IS REPRESENTED BY A STRING OF LETTERS. FOR EXAMPLE, THIS IS A TRAIN:":,CALL DIGIT: REM FOR X = 1 TO 99: NEXT ,13::"*+";A$.-::(34)CEL CREDITS.)+|CZ2240F+A$" BEAGLE BROS ":J25:K2:XZ:2250m+:2:32:" TRAIN ":IZ500:I:+A$" TEXT^":J2:K26:XZ:2250+2:33:"*"+A$" TEXTTRAIN ":J27:K2:XZ:2250:2266+IJKX:2:I:" ";::A$;::" ";+,T*HIZ3:S(Q48)(Q48):I:8*R=== START GAME ===G*\::2666x*f"----------------------------------------";~*p*z"----------------------------------------" +{ INVERSE : VTAB 2: PRINT " TEXTTRAIN ": GOTO 2266: REM(REMOVE 1ST REM TO CANF$"O"ĺ"OIL"$)/F$"Q"ĺ"QUARTZ"9)0F$"R"ĺ"RAILS"M)1F$"P"ĺ"PIGS"b)4F$"S"ĺ"SHEEP"x)5F$"T"ĺ"TRUCKS")6F$"U"ĺ"URANIUM")7F$"V"ĺ"VIOLINS")8F$"W"ĺ"WEENIES")9F$"Y"ĺ"YOYOS"):F$"Z"ĺ"ZEBRAS");F$"X"ĺ"X-RAYS" (F$"C"ĺ"CATTLE"*(F$"D"ĺ"DOGS">(F$"E"ĺ"EGGS"S( F$"F"ĺ"FROGS"h(!F$"G"ĺ"GONGS"|("F$"H"ĺ"HOGS"(#F$"I"ĺ"IVORY"($F$"J"ĺ"JUNK"(*F$"K"ĺ"KITES"(+F$"L"ĺ"LUMBER"(,F$"M"ĺ"MONKEYS"(-F$"N"ĺ"NUTS").2140'K170ERR'13601'=== F.O.B. ===c':I515:I:6:" ":I:15:13:".":'5:6:" F.O.B. ":6:"--------"'5J:6'YZ(W$):F$(W$,Y,Z)2060''" ";:2070' "*";'F$"A"ĺ"AUTOS"(F$"B"ĺ"BOXES"MPLISHED! **** ";$&IZ999:IM&:I515:I:6:"::::::::"::24:Z&"ANY KEY:REPLAY  ESC:NEW SET-UP  *:QUI";:4:39,46:13:39,47:2666&:Z:"ANY";:5:"KEY";:18:"ESC";:35:"*";:&K(Q):K1411990'Q16,0:K155CZ:N---""%(F$,3,(F$)3)W$1950(%5%:24:Zc%M((28)600)((27)60)((26)10)(25)r%MMR1980%MRM:" *****  A NEW SPEED RECORD! ***** ";%:10:26:"RECORD"::26:"------"::1982&" ***** MISSION ACCOHECKPOINT ===$DT$NZ:11:"--INSPECTION-"::11:"--2 DOLLARS--":IZ500:I:w$XI1123:Z:I:"!":3:I:"^"$bI111910$l:Z:IZ:"-"::IZ:"-":$vJZ4:S(Q48):J:JZ13:J,I$%Z:11:"----CHECK----"::11:"---STATIO"#X(F$)ZZZ+#R$R$(F$,X,Z):;#R$R$" ":U#=== PARKED TRAIN ===[##IZ(A$):V(I):T(I)::(CZ(A$,I,Z)"+"(A$,I,Z)"*")(A$,I,Z)" "ĝ#(A$,I,Z)#I::#&=== CLR.INST.PANEL ===#0:24:868: $:=== CF$"*+":F$F$(WW$,A):F$F$" ":1730_":14:24:(WW$,AZ,B):22:16:(WW$,ABZ,18AB)"A$F$:I0(A$):V(I)18:T(I)26I:I"2000:1920:FZ:1780"J0(A$)2:F$(A$,JZ,Z):2040:J:F$A$"330"== REV.TRAIN STRING ==#R$"------:":25:" *+ ":25:" ----------- "`!r25:" TIME-> 0:00 ":25:": :"~!|8:28:W$:MR327671690!11:25:" BEST->";((MR60))10);(MR60);":";:(MR(MR60)60)10ĺ"0";!MR(MR60)60!25:": :"&"/"/ "19:6:"+-+------------------------+-+"M ,20:7:"\ \";:32:"/ /"v 621:8:"\ +--------------------+ /" @22:9:"\ /" J23:10:"+--------------------+" TS1Z:S2Z:S3Z:S4Z:S5Z:330 ^2!h7:25:":-----! !"<14:"+ +";:15:"/ +";:38:"+ +"x15:2:"\ \";:14:"/ +-----------------+";:37:"/ /"16:3:"\ \";:13:"/ /";:36:"/ /"17:4:"\ +-----+-+--------------------+ /" 18:5:"\ Z):24603 WW$WW$(W$,J,Z)%3 IE3 A((Z)5)3:B((Z)5)5]3 MR32767:255:13503 16:958::" NOTICE: RAILROAD REGULATIONS PROHIBIT THE USE OF WORDS CONTAINING A 'P'. "4 :" '";W$;"' HAS BEEN DISQUALIFIED. ":IZ66:S(Z5:S(Q48):J,I:22:868>28 X$"":WW$"":W$(W$,(W$)2)M2B IZ(W$)c2L T(I)((Z)18)Z2V JZI:T(J)T(I)JI23802` J,I2j R$"ABCDEFGHIJKLMNOQRSTUVWXYZ"2t IZ182~ JZ(W$):T(J)I24502 3 X((Z)25)Z:WW$WW$(R$,X,W$"*+"23001 (W$)112300)1" X0:L1. IZ(W$):(W$,I,Z)"P"2490R1/ p10 R$W$:22:" "11 24:Z:868:IZ24:I:Z12 22:J16I:JZJZ13 J:(R$)Z235714 " ":235915 I15R$(R$,(R$)Z)16 :R$;::" "27 J(Q):22:18I:K1412334*0 K1362326U0 :" ":IIZ:(W$)2W$(W$,(W$)Z)g0 Q16,0:2314}0 K193K21823180 Q16,0:(G$,K192,Z):IIZ:W$W$(G$,K192,Z)0 I1023140 Q16,0 1 Q16,0::22:18I:" ";:27:" ":-------------+"I/ "TYPE A WORD: ";::"*+";::" +"m/ "---------------------------+"/ "BEGINNERS:3 LETTERS / EXPERTS 9 MAXIMUM";/ W$"*+":G$"ABCDEFGHIJKLMNOPQRSTUVWXYZ":I0/ I0I0/ 0:17I,42:6:17I,43:0 KON.":."THE OBJECT OF TEXTTRAIN IS TO USE THE FORWARD,REVERSE,SWITCH & COUPLE COMMANDSTO ASSEMBLE YOUR TRAIN AND DRIVE IT TO".:17:Z:"F";:9:"R";:17:"S";:26:"C"::19."THE CHECK STATION AS FAST AS POSSIBLE."/21:"--------------0 (!L:(!8!8! `% De (`HJ) )h)i( ((`ES CRUNCH,ELEVATORS,DATE SEARCH,BUZZWORD,WOWZO,TRIPLE DIGITS,QUICK-DRAW!,PICK-A-PAIR,OINK!,(CATALOG DISK),:END.WITH.COMMA"H <(*)+!hi# H <(*0 (!L:(!e!ie! i L:8#H <(*)+!h"0 H <(*3:: l=================== BEAGLE BAG SHORT MENU BY BERT KERSEY COPYRIGHT (C) 1982 BEAGLE BROS 4315 SIERRA VISTA SAN DIEGO, CA 92103 =================== yTEXTTRAIN,SUB SEARCH,SLIPPERY DIGITS,NAME GAME,MAGIC PACK,HANG PERSON,GA 16368,0:K155Ė1:958:(37):. 130g "EN(175)256(176):SCEN130:SUEN225:10,4:11,0v ,AD:ADı 6RA:RAENRA:ADENAD:AD,RA(RA256)256:AD1,(RA256):300 @31,24,74,34,101,32,123,32,132,34,172,34,199,32,221,32,0 :2 :15:14:12)::14:" BEAGLE BAG ":14:12)::20:15(A$)2::"+";::" LOADING "A$" ";::"+"::888,V:(4);"RUN ";A$ 1:(4);"CATALOG":I140:"-";::"ANY KEY: TO QUIT";::9:" ";: K(16384):K128275%(GA$(V2))4:DD$:S(16336):VV(K149)(K136):VVG(V2)G(VG3):K141K155180 A$" TO EXIT GAME AND RE-RUN MENU.":K155V18A$"" SC:SC:SC:1:A$:I121:SC:J119:::K155Ĺ888,V:800 A$GA$(V2):(A$,1)"("270I118:I2:I5:GA$(I)::V(888):V3VG2V3} I1115:I2:I1:"*"::20:19::"* 2-PLAYER GAMES"::OPTIONAL :STĞ V:V:"->";:V(GA$(V2))4:"<-": K(16384):K128190Z 16368,0:ST1::V:V:S(16336):DD$;:V:G116:GA$(G):(GA$(G))Ă' xGG1 ST0::::40):20:40):I219:I:1:" ";:40:" "::1:4:"BEAGLE BAG BY BEAGLE BROS"::800 22:8:" SELECT GAME":12:" RUN GAME":15:" QUIT"; I219:I:2:DOT$:5 [Z=================== BEAGLE BAG SHORT MENU BY BERT KERSEY COPYRIGHT (C) 1982 BEAGLE BROS 4315 SIERRA VISTA SAN DIEGO, CA 92103 ===================  nGAME$(19):"NOMONICO":290:40286,35:40287,216:DD$"..":I138:DO$DO$".":     :"<-- CURSOR UP":" SPACE OR [P] PAGE ADVANCE":"RETURN OR [R] RUN APPLESOFT PROGRAM":15:"RUN INTEGER PROGRAM":15:"BRUN BINARY PROGRAM"15:"EXEC TEXT FILE"::11:"[L] LOAD APPLESOFT PROGRAM":15:"LOAD INTEGER PROGRAM":15:"BLOAD BINARY GO$"RUN":K204GO$"LOAD"cXVP:146:VP:1:" "GO$6(GO$)):II124:II(IIVP):1:868:NAME$"":XSC7SC36:NAME$NAME$((X)):22::958:DD$GO$NAME$:440:140):1:13:"BEAGLE MENU":820::11:"--> CURSOR DOWN":11VP23PGPG1NPG(PGNPG):VP3:440-v470FK149K160K1361,2VP2)0ĝ:VP:4:"--->";:VPVP(K149K160)(K136):VP2VP24Ė3:868:645SC1,2VP2):SC4GO$"EXEC"SC2GO$"BRUN":K204GO$"BLOAD"SC1SC9:K198K211Ğ:1:24:"FREE SECTORS:";496SS::470pDK195ĺ::DD$"CATALOG":820:"ANY KEY:";:756:440IK170900NK177K178KK176:43624,K:47082,K:S470XVPVP(KRA)(KLA):640bVP3PGPG1NPG(PG1):VP22:440$lS";: K(Q):FLAG1:KF490;CL,0:P12:X(BZ):eVP:7:1):3,2VP1)8:3,52VP1yKRAKLAR600K141K204K210670K155K209Ģ22::958:&K160K208PGPG1PG(PGNPG):VP3:4400K200K191K1757406ELECTED; CHANGE LINE 100:":100110:3:" 100 S ="::" 110":2:49385,0:49384,0:OSMV(PG):OEOS1023:NS1024:145:FLAG0:1:17:"OF ";NPG640:VP3VP22610VP:7::">":3,2VP1)8:3,52VP1::CL,0FLAGĞ:24:2:"ARROW39,32::3:1:FLAG410&|FINF250WFLAG1:35,23:958:35,24:NPG0FVIS0310lNPGĢ24::300w888,0NPGNPG(NPG0):44596,206:44597,157:44598,179:44578,32::DD$"PR#0":(888)ĀAPG1:VP3:K149:888,0:F7ė:(7)"NO FILES S:SELECT :RUN :HEL";:2039,208vTII12:P(BZ):::2:"ARROWS";::19:"RETURN";:34:"H";:^SĢ3:P322:4:" ":hOS1024:OE2047:NSMV(NPG):NEMV(NPG)1023:145rII12:P(BZ)::24:1::" STAND BY.";29);:20$;:1:VP(37):SC2VP2dSC1,2VP2):SCBSCASCISC(T)0,2VP2)UĢVP:868:FVISFVIS1zFLAGFLAG0:250"FVIS20380,NPGĢ24:1:958:6F7FV:FVIS0:NPGNPG1@:1:1:40):1:2:"CATALOG PAGE ";NPG3J:23:1:40)"X):SC255SC0NFNF1:SSSS(X33):21:16:NF:16:SSE SCĂ:h PG17:MV(PG)163841024PG: 44596,234:44597,234:44598,234 44578,96 FLAG1:1:DD$"CATALOG"::FI1:FVIS1:260 NF1390 44581::FIFI1:FVISFVIS1L,240,21,234,234,234,234,201,128,144,13,201,160,176,9,72,132,53,56,233,128,76,249,253,76,240,253 II800805:J:II,J::32,227,3,76,217,3 47083,0:47084,17:47088,0:47089,96:47091,0:47092,19 SE1511:47085,SE:800:X245872479735:SC(RS:0":A$::0160 60,OS(OSTF)TF:61,(OSTF):62,OE(OETF)TF:63,(OETF):64,NE(NETF)TF:65,(NETF):66,NS(NSTF)TF:67,(NSTF):UM49(OSNS): SCFX1(984((X1)8))895:_ II768795:N:II,N::54,0:55,3:1002:201,141DD$(4):UM(175)(176)TF56:B2(B0):A(A0):I9(I0):T4(T0):A$"---------------":L$" : ::: ":830 II130:L$L$":":II:::(4);"NOMONICO"::16:8:32,7:"BEAGLE MENU":A$:"SLOT: "(43626):"DRIVE: "(43624):A$:"FILES: 0":"SECTOD^FILES^(1=YES,0=NO)u p44483,32:44484,47:44485,174:44486,32:44487,47:44488,174:(978)157ĺ"NOT 48K";(7): s49385,0:SC(24):F128:X124:146:SC(X)SC::II2457624831:II,0:m xLA136:RA149:Q16384:CL16368:BZ16336:TF256:Q$(34):965535 REM ================== BEAGLE MENU BY BERT KERSEY COPYRIGHT (C) 1982 BEAGLE BROS SAN DIEGO ================== dS0:B0:A1:I0:T0:U0 nABOVE^LINE^DETERMINES^DISPLAY^OF^SECTORS^AND/OR^BINARY,APPLESOFT,INTEGER,TEXT^OR^UNLOCKE      ART TURN ----------" 34,19:242 E26İ2000K 24:1::"SCORE: ";\ 8:N1$;" ";t 50,63:"-";S1;"-"; :", ";N2$;" ";"[";S2;"]" E261915 "---------------------------------------" " ";:I113 TURN21205 C1(I)-+---+---+":3000n G7:10:"! ! ! ! ! !"::3000:10:"! ! ! ! ! ! ":PI50:LE200:3000 L34,0:J125 QV((1)8)1:T((1)9)1:VV2V1:TTT4:P10(T3)V VVV:TT1:":::":A1(P)98:A2(P)98:PIP:LE5:3000:  STI175:I! " ";:24:10 I175:I6 K  VALUES ------a $I113:C1(I)I4v )C1(I)0C1(I)0 .C2(I)C1(I):I 3A((1)2): =1725:1845 B13:10:"! ! ! ! ! ! ":LE50:PI200:3000:8:6:"+---+---+---+---+--0:7! I1(A$)::I1I17ğT (A$,I,1);:LE3:PI((1)200)10:I16İ3000p :11:7:"^";:23:"^" K(Q):K("M")128K("S")1281019 QQ,0:FLAG(K("M")128) :10:16:"STAND BY." : 1060  FLASHER ------- mJ============== TR1PLE D1G1TS BY BERT KERSEY COPYRIGHT 1980 BEAGLE BROS ============== 32000:63900FLAG1:::6:13:": :":13:" TR1PLE D1G1TS ":13:": :" A$"MUSICAL GAME OR SILENT GAME?":1     STSB Y@CKPGTH PH@80( Z``~}]H  (ɠe ީh`rVI`XA@QZQ/DIMAJS4WX/WARBMR`MS1S2S3S4S5FFRA VISTA SAN DIEGO 921038 ----------------- PROGRAM BY BERT KERSEY -----------------THH (    i0( i0(ȩ:(ȥi0(ȥi0(hIGHT";:50,255:" 1982":"BERT KERSEY":h7"BEAGLE BROS ":"4315 SIERRA VISTA":"SAN DIEGO, CA 92103"7::"(HIT ANY KEY TO START.)"7(Q)136327757Q16,0::936:"8 COPYRIGHT 1980 BEAGLE BROS. 4315 SIER163846ZQUR17516 ...`Q-ZQUR = -16559 ...k6DIGIT(ZQUR)((ZQURZ)256((ZQURZ)127))256631}6:936:32,96"]":66"-----------------":50,636" TEXTTRAIN ":50,2556"-----------------":32772(7:50,127:"COPYR}Z1:IZ:KZ:O6:P7:CL183:SP309:26665}================================ WARNING: DO NOT ALTER COPYRIGHT LINES! PROGRAM WILL BOMB IF YOU DO! ================================5T(12),V(12),TX(12),VX(12):T(0)Z:V(0)Z6Q16336QQ48):I:2300F4j :::10:5:"BEAGLE BAG":5:"------------------"4k 12:" MENU":" CONTINUE THIS GAME":" QUIT":5:"------------------":" SELECT:";:A$:A$:A$"Q"Ā4l A$"M"Ĺ768,5:(4);"RUN SHORT MENU"4m A$"C"Ĭ4 2666*5(888)Ĺ888,1:43624,1:47082,1:\CII8(888)Ċ0:24:::(7)"DISK OR DRIVE ERROR":420HII11II6ĢVP2:1:"TRACE OVER FILE NAME TO EXECUTE:":MII1ĢVP2:1:"LANGUAGE NOT AVAILABLE":860R::12:13:"ERROR: ";II:13:"LINE: ";J\41,5:1043,13:1044,5:1045,14:1046,21:15:"TO CONTINUE."; (Q)160Ė9:" ";:II1444::(Q)160Ė9:"SPACE";:II1444::(Q)160800*CL,0:4404:X140:"-";::>J(218)(219)256:II(222):II255K155:540 @II8FILE":_11:"[1] NEW MENU/DRIVE 1":11:"[2] NEW MENU/DRIVE 2":11:"[C] NORMAL CATALOG": 4:"[F] OR [S] FREE SECTORS":4:"[?] OR [H] HELP (THIS PAGE)":4:"ESC OR [Q] QUIT"<820::39):2039,32:1036,2:1037,5:1038,1:1039,7:1040,12:10SD0İ1580@" \\ DIAGONAL = ";SU;:23:"! FOR ";N$;"."P"SU0İ1580Z'1585l,FLAGĺ"";r.}150,636" (PRESS ";::"RETURN";::" KEY TO CONTINUE.) ";;K(Q):K1411595=50,255@34,0:VV:TT1:TURN216109:24!1845::50,255::1165B PRINT SCORES ------------L:24{" HORIZONTAL = ";SH;:23:"! TOTAL=";STSH0İ1580 " VERTICAL = ";SV;:23:"! ------------"SV0İ1580" // DIAGONAL = ";SD;:23:"! ";ST;" POINTS"1165# ANY SCORE? ----------<STSHSVSUSD:EE1KST01530U24:c1:50,63"-------------- NO SCORE ---------------"190050,255VV:TT1:TURN2151050,63:"-";N;"-":50,255:1515"[";N;"]"34,150,63:N1450#A2(P)A3(P)<I113:NC2(I)ĂIIC2(I)99XI141440yFLAGāI180:S(U)(U):ICK1:34,19:24:1:1190:CK0:34,0:1340:N50,255:34,19188534,19:50,255163524:184510254F" ^ WHICH NUMBER ^ DO YOU PLAY (0-9)?";QKK(Q):K176K1861345ePNK176:QQ,0:qUA3(P)NZ34,0:VV:TT_"*";:TTd1885iTURN21415nA1(P)A3(P)sI113:NC1(I)ĂIuC1(I)99xI141405z1430 }177K18412851885.20:XT1:" "@VK176:QQ,0i#P10(T3)V:A1(P)99A2(P)991325o%(FLAGāI180:S(U)(U):I*1166-VV2V12:VV:TT1:" ? ":7 WHICH NUMBER? -------------<34,19:24A24:34:8:116018858I1(A$):K((A$,I,1))128ĂIAXTIR20:1:868w20:XT1:50,127:"^^^":50,255TK192:TT4T VERTICAL POSITION -----------------24:34:1025 24:14:" VERTICAL POSITION (1-8)?";K(Q):K----------24:34:1025W10(N$):N$;"->";:14:"HORIZONTAL POSITION (A-I)?";K(Q):K193(K201K("Z")128)1240QQ,0:K("Z")128125524:1:958:"Z PRESSED. QUIT GAME NOW? (Y/N):";:AA$:A$;:AA$"Y"191524:1:9591210 C1(I);:1215+ C2(I)91210= C2(I);:1215g FLAGāJ12:S(U)(U)(U)(U):Jw "/";:1220 FLAGāJ19:S(U):J " ";:I "---------------------------------------" CK1ı  HORIZONTAL POSITION --------- MAIL GREAT MAIL! ":49384,0:I2039:24:I:(A$,I,1);:40I:(A$,40I,1);:J15::n NB123:160:23: TX49237:K1NB:TX,0::J11::S(16336)::22:16368,0: TX49237:K1NB:TX,0:::22:16368,0:1160:VV2:I23V1:I:E MECHANIC":N11:999r ZA$" UTILITY CITY .................... 29.50 USEFUL UTILITIES ON ONE DISK":N14:999 dN12:V9:H3:9999:N70:V13:H3:9999:N4:V19:H33:9999:N26:V21:H3:9999:N21:V23:H3:9999X n49385,0:A$" GET ON OUR LIST. WE:999` FA$" PRONTO-DOS ...................... 29.50 TRIPLE-SPEED LOADING & SAVING":N12:999 PA$" TIP DISK #1 ..................... 20.00 100 PROGRAMS FROM TIP BOOKS 1-":N13:999 UA$" TYPEFACES ....................... 20.00 FONTS FOR APPLBOSS ........................ 24.00 DISK COMMAND EDITOR":N10:999 2A$" FLEX TEXT ....................... 29.50 -COLUMN TEXT UTILITY":N11:999 <A$" FRAME-UP ........................ 29.50 HI-RES "(34)"SLIDE PROJECTOR"(34)" UTILITY":N10.............$39.50 HI-RES GRAPHICS/TEXT UTILITY":N12:999:160 A$" APPLE MECHANIC .................. 29.50 SHAPE TABLE/BYTE ZAP UTILITY":N16:999 #A$" BEAGLE BAG ...................... 29.50 -GAMES-PLUS ON ONE DISK":N12:999C (A$" DOS o;  BUY DOS BOSS & PREVENT LISTING! FPt:V1:NB51:BZ16336:160:NB1:I124:160:::::" BEAGLE BROS DISKLIST ";::" (DECEMBER 1982)----------------------":I151:170::NB19:160:NB9A A$" ALPHA PLOT .........     ;$e2============== WOWZO! BY BERT KERSEY COPYRIGHT 1980 BEAGLE BROS ============== xF32000:63900P16298,0:2110Z TIMER d23:7:" "nI11:S(U):xTXTX1:TX:2:" ":VAA:H:" "I155:              M> MENU":" CONTINUE THIS GAME":" QUIT":5:"------------------":" SELECT:";:A$:A$:A$"Q"Ā"A$"M"Ĺ768,4:(4);"RUN SHORT MENU""A$"C"Ĭ"63900I,LE ! 771! i!}I771789:J:I,J::173,48,192,136,208,4,198,1,240,8,202,208,246,166,0,76,3,3,96!A1(150),A2(150),A3(150),C1(26),C2(26):U16336:QQ16368:FL1:255:Q16384:!:::10:5:"BEAGLE BAG":5:"------------------"i"12:"<(P)99:A2(P)99' VV:TT1::"***";I PI((1)200)10:LE20:3000X I1250:h LE12:3000~ :TT1:" ";: LE80:3000::TT1:"***";:A1(P)98:A2(P)98:J1250:::TT1:":::" 34,19: MUSIC FLAGı 0,PI! 10:K155639005FLAG1:S10:S20:E0:34,0::1012] COMPUTER BLOCKS --------------- 24:10:"HIT ";::" Z ";::" TO END GAME."34,0:J13V((1)8)1:T((1)9)1:VV2V1:TTT4:P10(T3)VA1(P)98A2(P)982010 A1"N2$" BEATS "N1$"!!"9S2S1A$A$" IT'S A TIE. "o:I1(A$):(A$,I,1);:LE30:PII5:FLAGİ3000:LE200:FLAGİ3000QQ,0:::"HIT ANY KEY TO REPLAY, OR ESC TO QUIT.";:5::"ANY KEY";:27:"ESC";:K(Q):K1361936QQ, ]FLAGı_I19DbS(U)(U)(U)(U)(U)(U)(U):IJgWlFLAGıjnI120:J12zqS(U):J,Iv{ END GAME --------21:1:958:22:A$" GAME OVER! "S1S2A$A$" "N1$" BEATS "N2$"!!"S2S1A$A$" ";:9+:21:"THANKS ";N1$;" AND ";N2$;". STAND BY..."Z0 CHANGE TURNS ------------d5AA1{:A(A2)201865?TURN1:N$N1$DI0150:A3(I)A1(I):I:1875ITURN2:N$N2$NI0130:A3(I)A2(I):IS50,255:X NOISES ------8101830:1:1795(:I1500:I3000:21:"PLAYER 2: <--TYPE YOUR NAME AND -------- PRESS 'RETURN' KEY.":300021:10:"";N2$!XT(N2$):XT9XT01835#1830:1:1815&24:" (8 LETTERS OR LESS, PLEASE)0A$" : A : B : C : D : E : F : G : H : I :"I1:1:A$:19:1:A$aLE100:PI100:3000v34,19:50,255:21:"PLAYER 1: <--TYPE YOUR NAME AND -------- PRESS 'RETURN' KEY."21:10:"";N1$ XT(N1$):XT9XT01"!":FLAGS(U)Y,X7:10:"T R 1 P L E":7:" ":10:"D 1 G 1 T S"13:10:"(C) 198O, BEAGLE BROS."50,63A$" 1 2 3 4 5 6 7 8 "X119:X:1:(A$,X,1);:39:(A$,X,1):X0:P1P2P1P3PTP16P2P1P2P3PTP2OP3P1P3P2PTP3Uv BOARD SET-UP ------------I0150:A1(I)99:A2(I)99:IA$"+---+---+---+---+---+---+---+---+---+"X2182:X:2:A$:XX3182:Y2384:X:Y|1475P10:P20:P30\X1A3(P2TS):X2A3(PTS):X3A3(P):X4A3(PTS):X5A3(P2TS)pX19X291685P1X310X2100X1X29X491695P2X410X3100X2X49X591705P3X510X4100X3P10P20P301710PT$E50,63:"-";N;"-":50,255:16153J"[";N;"]"DO34,19::24UTTURN21625hVS1S1ST:1630uYS2S2ST^50,255:c COMPUTE SCORES --------------hTS10:1665:SHPTmTS1:1665:SVPTrTS9:1665:SDPTwTS11:1665:SUPT1::(A$,N);::(A$,(A$)N);:958:S(BZ)::n'VV1:V:I0N1(N69):H:I;:J12:S(16336)::: I3ĉ8:V:H:"GOT":H:"IT!":I1555:i19:12:" ONE '";(H$,X,1);"' FOR ";N$;"! "22AA:172X:" ";(H$,X,1);" ":I1150:IL(X)((1)20)1:NL(X)(V(N)1V1T(N)1H1)(V(N)1V2T(N)1H2)(V(N)1VT(N)1H) ":xI1444:6C1:I((1)20)1:B1I1?640MI199:iI((1)20)1:640:C021:1:" ":" "QQ,0:300 REPLACE LETTER :V:H:"GOT":H:"IT!"I15:"";:I1Ĺ16304,0H1,(2V)3)213101040(QQ,06(A01330J*V1V:H1H:1340X2V2V:H2Hf<MG2470}F COMPUTER GATES PV1:H1:(N1$,3):V21:H2:(N2$,3)Z23:1:" "_:dn21:1:" COMPUTER MOVES ":" 2 GATES.*" LAND ON LETTER? CX15:VV(L(X))1HT(L(X))11460I[ HIT WALL? lK1721280H2,(2V)1)213101020K1741290H2,(2V)1)213101020 K1931300 H1,(2V)3)2131010204$tF:HIM:P$:G:HIM:"***":~J13:S(U)::EI04mF:HIM:" ":G:HIM:" ":yHH4MVAA:H:P$:VAAA:H:"***"A01230V21:H2:(N2$,3):V2:H2:"***"1240V1:H1:(N1$,3):V11:H1:"** MOVE MAN 'M1:K174K218M1MFVAA:GVAAA:K174K1721120U `$I03.FMI:H:P$:GMI:H:"***"8J14:S(U)::BI03LFMI:H:" ":GMI:H:" ":VVV3M:1190` HORIZONTAL MOVE jI03:SS218:EE174:WW1720H2,(2V)1)2WW1JH2,(2V)1)2EE1dH1,(2V)3)2NN1~H1,(2V)3)2SS1(K172KWW)(K174KEE)(K193KNN)(K218KSS)1020:24:" WRONG,WRONG,WRONG ";250:QQ,0:860 1:N$;"'S TURN:")R"WHICH DIRECTION?"c\K(Q):K172K136K174K149K193K218870l^910f23:1:" --------- "pI155:zTT1:T(TTT)TT0İ90860 LEGAL MOVE? K136K172K149K174NN19T(I):" "@R(I)0:V(I):T(I)3:" ";:T(I)1:" "VPN3N4:280:\gC1ıv MG21350 ASK DIRECTION  BO1820*24:1:" ";4T0:TX0:MGMG1:180>VAA:H:P$H16368,0:21:0PNN3:280:%R(I)17200R(I)1[V(I):T(I)3:" ";:T(I)1:" ":V(I)2:T(I):" ":V(I)1:T(I):" ":V(I)1:T(I):" ":V(I)2:T(I):" ":750 V(I)2:T(I):" ":V(I)1:T(I):" ":V(I)1:T(I):" ":V(I)2:1365602 :24:1:" I SAID, 'WHICH GATE?' ";C &250:QQ,0:b 023:1:" ---- "p :I155: DTT1:T(TTT)TT0İ90 N530 X LEGAL GATE? bI1(Z$) lK((Z$,I,1))128640 v:540  MOVE GATE NI105R DIRECTION? & I((1)3):I2790>  ASK WHICH GATE? X T0:TX0:MGMG1:180f BO1510 24:" "; 21:1:N$;"'S TURN:" "WHICH GATE? " K(Q):K193K206540 600 K172K174K149K(N1$,3):N$N1$:VV1:HH1:A0380D rP$(N2$,3):N$N2$:VV2:HH2T |I2123:Il " "r  " "; A0440 23:30:"<":12:29,42:7:29,43:450 22:30:"<":12:29,44:7:29,45  GATE O88:S(U)::! P((1)50)1* 0,P: "1,9:771:Q , CHANGE PLAYERS u 6V11:H1:"***":V2:H2:"***" @V1:H1:(N1$,3):V21:H2:(N2$,3) JMG0:BO0:BB1 T:19:4:((B1)2): ^AA1:AAA:AA1AA0 _: `GM0# hP$VAA:H:P$ VV1VV2170C VAA:H:P$:VAAA:H:"***"S TX181740Y :_ s RESET TIMER I1811 I1:2:" ":I:2:" " :I1:2:(18I)((18I)10)10 J13:S(U):: : NOISES  I1 (N1$)2N1$N1$" "2& (N1$)1N1$N1$" "\& :22:32:" ";:32:N1$:3050w& " NAME OF PLAYER 2?";& 23:" --------";:22& " -->";N2$& I115:270:I&" N2$""2880&, (N2$)2N2$N2$" " '. (N2$)1N2280;% 1:44I:(N1$,41I,2):19:44I:(N2$,41I,2):IM% 33,18:34,20^% 21:1:3050y% " NAME OF PLAYER 1?";% 23:" --------";:22% " -->";N1$% I115:270:I% N1$""2730% (N1$)8N1$(N1$,8)% 33,40&150:S(U)(U)(U)(U)(U):I>$P I119:I:1:":::":IX$Z A((1)2):A0A1u$d V12:V22:H15:H25:300$n INPUT NAMES $x N1$": : : : : : : : : :":N2$" (ANSWER QUESTIONS & HIT .) "$ % I4062:PI:: : : : : : : : :";:1:40:":":R# X15:V(L(X))1:T(L(X))1f# P255X50:280}# "=";(H$,X,1);"="# 280:280# V(L(X))2:T(L(X))1:"==="# 280#( 2310:J199::#2 2:5:"***":3:5:"***"#< I150:I"$F I20:R(I)((1)2)'" P255(I12):2808" R(I)12470\" V(I):T(I)3:" ";:2480" JV(I)2V(I)2:J:T(I):" ";:" V(I):T(I):(Z$,I,1);:J12:S(U):" 280:I" " I1222:I:2670" PLACE LETTERS 1# :19:4:": !. 10:11X4:" "6!8 15:14X3:(H$,X,1):2310K!B 15:14X3:" "t!L 21:18X2:(H$,X,1):2310:2320:!V 22:20:"- - - - - <-":23:20:"- - - - - <-"!` !j X4404:Y4193:Y:X!t ":";:S(U)::!~ RANDOM GATES " I1((I1)4)4)35 (I4I9)(I12I17)T(I)T(I)4< IB [  LETTER LOCATIONS f I15 L(I)((1)20)1:I12300 J1I1:L(I)L(J)2280  I:2340  J18:S(U)::  J188::  SCOREBOARD !$ X15:23105:S1(I)0:S2(I)0:I)f BOARD SET-UP Np::10:15:"W O W Z O"Tz|I440:1:I:" ";:19:I:" ";:II218:I:4:" ";I:40:" ";:I1:15:"* BEAGLE BROS *"I120V(I)3((I1)4)4 T(I)58((I1)Ӣ24:J:(N$,J,1);9Q14:S(U):Q:Q115:::20:} " FINAL SCORE: ";H$;" TO ";Z$;"...";:21:1:A$:A$:63900* SET PARAMETERS >H$"WOWZO"HN1$"PLAYER 1":N2$"PLAYER 2"RZ$"ABCEFGHIJKLOPRSTUXYZ":QQ16368:U16336\I1(I2)20Ĺ16304,0(I(I4)40ĉB270:P2414I:21:3s21:1:" ";N$;" ":" WINS THE GAME! "I542030J1500:280:IN$"*** FINAL SCORE: ":N$N$H$:N$N$" TO "N$N$Z$:N$N$". ***":2060 J1(N$):24:" ";=A01950aI15:S2(I)1Z$Z$(H$,I,1)nI:1960I15:S1(I)1Z$Z$(H$,I,1)IZ$""Z$"NOTHING"I103621:1:" ":22:1:" "IAAA:5:"***"0:V:H:" ":V1:H:" "9250\&2AA:5:P$:2AAA:5:"***"k019:":::"u:QQ,0DI1300:INAA01880PV12:H15:300XV22:H25:300b FINAL SCORE lZ$"":QQ,0/v23:1:" ": TURN--GO AGAIN! ";#I1333:IP19:12:": : : : : : : :"\:1310r BACK TO START x21:" TIME ZUP!! ":" #$%&! *%#*$%@! "19:":O:":V:H:"BYE":V1:H:"BYE"I1333:I2AA:5:P$:2*":VAA:H:P$!J ADD SCORE /TA01660R^S1(X)S1(X)1:S1(X)1S1(X)1lhI15:STSTS1(I):I{rST51890tST0:1690|S2(X)S2(X)1:S2(X)1S2(X)1I15:STSTS2(I):IST51890ST0MG0:BO1:24:" BONUS1530"I110:NL(I)XI1530)IK(V(N)1V1)(T(N)1T1)1530m"(V(N)1V2)(T(N)1T2)1530,V(N)1:T(N)1:"=";(H$,X,1);"=":V(N)2:T(N)1:"---":6V(N)1:T(N)1:"=";(H$,X,1);"=":V(N)2:T(N)1:"---"@VAAA:H:"**(7);:II12000::440065535 ================== BEAGLE MENU BY BERT KERSEY COPYRIGHT (C) 1982 BEAGLE BROS ==================S<=<>@>?>@A@=?<>`ؠL,;F;:":";FI$(F)D I130:FI$(F)FI$(F)" "::ADD^TRAILING^SPACES A$"":X130:A$A$(((FI$(F),X,1))128)::FI$(F)A$:F:ADD^128^TO^EACH^CHARACTER'S^ASCII^VALUE F12::"SEARCHING SECTOR:"; SEC1511:SEC;",";:LOC8192256SECE 17:773,34 47084,TRK:47083,0:47091,0:47092,RWy "THIS PROGRAM WILL SWAP ANY TWO":"FILE NAMES IN YOUR CATALOG." SEC115:LOCLOC256:47085,SEC:47088,LOC(LOC256)256:47089,(LOC256):768::READ^SECTORS^1-15 F12::"FILE NAME #" ": }:"THIS PROGRAM WILL EXCHANGE THE POSITIONSOF ANY TWO FILE NAMES IN YOUR CATALOG."::"INSERT DISK AND PRESS ";:A$:A$:A$(13)Ā ::(4);"CATALOG": TRK17:RW1:LOC8192:$2000 768,32:769,227:770,3:771,76:772,2-d ============================ CATALOG FILE SWAPPER EXCHANGES ANY TWO FILENAMES IN A CATALOG I HOPE IT WORKS... ============================ nBY BERT KERSEY BEAGLE BROS x:::" ":" FILENAME SWAP ":"    """"" SELECT:";:A$:A$:A$"Q"ĀD A$"M"ĺ(4);"RUN SHORT MENU"R A$"C"Ĭ] 63900I"M"Ĺ768,3:(4);"RUN SHORT MENU"/,A$"C"Ĭ:,63900:787,3:788,3:789,96J+L(20),R(20),S1(5),S2(5),T(20),V(20):Q16384:+:::10:5:"BEAGLE BAG":5:"------------------"+12:" MENU":" CONTINUE THIS GAME":" QUIT":5:"------------------":" SELECT:";:A$:A$:A$"Q"Ā!,A$P* " ";d* 33,18:21:1:j*0 :p*: :v*D :+}771,173:772,48:773,192:774,136:775,208:776,4:777,198:778,1:779,240:780,8:781,202:782,208:783,246:784,166:785,0:786,7660+) I1502:PI:280:I::33,40:34,0Y) I2024:I:1:" ";:I) I15:21:182I:(H$,I,1);:I) I1500:I:) 33,18::21:1:" ";) 21:1:(r TT2TT1:3050+(| I1511:270:IC( " KEYWORD? "f( 23:" -----";:22~( " 5 LETTERS-->";H$( H$""3000( (H$)53000( I15:J15:(H$,I,1)(H$,J,1)JI3000( ::3010) 3050:" NO REPEATS...":29$N2$" "&'6 (N2$,3)(N1$,3)2880A'8 (N2$)8N2$(N2$,8)K': 2890['@ 3050:2810'J 33,40::23:32:" ";:32:N2$:3050'T " 1=HARD...3=EASY. "'^ 23:" -":22'h " 1, 2 OR 3";:T$:TT(T$):TT5TT5(j TT1TT1 SEE MORE NAMES":" QUIT":5:"------------------":" SELECT:";:A$:A$:A$"Q"Ā} A$"M"ĺ(4);"RUN SHORT MENU" A$"C"Ĭ 63900Vh,A,1);(V$,B,1);(C$,C,1);(C$,C,1);C ]((1)2)0ĺ"Y ";:100b ^(V$,D,1);(C$,E,1);"Y "; dKID:"GEORGE":I140:"-";: nI12000::24:1:"ANY KEY:";:A$:A$;:1:958 ::5:"BEAGLE BAG":5:"------------------"Z " MENU":"0 BABY NAMES BY BERT KERSEY BEAGLE BROS B:::63900l(V$"AEIOU":C$"BCDFGHJKLMNPQRSTVWXYZ"2"100 NAMES FOR BABY:"<I140:"-";:FKID199PA((1)21)1:B((1)5)1:C((1)21)1:D((1)5)1:E((1)21)1$ Z(C$  ESS ."::"( ONLY TO CANCEL.)":1:26:P$I}P$""1560g::4:20((P$))2:P$"BSAVE ";P$;",A$400,L$400":1560 GET STORY ---------:4444 "GET WHICH STORY"::"TYPE STORY NAME & PRESS ."::"(I((1)26)1:N26(M$)26I:A(N)02110HA(N)1M$"1"S$PRS$(I)M$"2"S$PLC$(I)M$"4"S$ADJ$(I)M$"5"S$VB$(I)M$"6"S$PST$(I)4,4:6:V:18 PRINT-LETTER LOOP ----------------- BESC0R0ESC11060`6A$M$:M$:M$"*"ĺM$;"";:ESCESC1:1840DM$"@"3000NM$"="Ģ(37)((37)0):(36)1:1820XM$"8"M$"0"2000bM$;:1820 GET A BUZZWORD -- ------- ---";&1I1182:A(I)0:l@:I17:6I4:" ";(I32);" ";::I17:6I4:" ";I;" ";:::"@=GET/SAVE STORY *,*=ERASE ==CURSOR UP----------------------------------------";:6:1:"@";:19:"*";:21:"*";:30:"=": 3";:1:1(2K9100,9200,9300,9400,9500:E BUZZ ---- XFJ19:S(16336):J:: TYPE YOUR OWN STORY -------------------::TRY0:V9:35,7:::1:1:63900,"PERSON PLACE THING ADJ. VERB VB/PAST ING------ ----- ----- ---- --1:A6A1 XX1:X361280P:21:3:" HURRY UP! ":I199:S(Q48):^I150: K(Q):K177(K182K209)1250:Q16,0:KK176 Q16,0:KK176K3363900K61500:(24:" TYPE A LETTER WHEN YOU HEAR THE BUZZ. R DOG'":13508:3:" OR... "::~" . CREATE YOUR OWN STORY.":24:"(TYPE Q TO QUIT.)";:1::1350I12284:2:3,I:19,12:22,16:22,20:14,24:16,28A1:X0I16:2I52(I6)::AIĞI: AA): V8:"WORD! ";::" "5 `I166:S(Q48):? j5:3e t" PICK A STORY... ":: ~" . 'THE ISLE OF ***'":1350 " . 'NEVER TRUST A ***!'":1350 " . 'REPAIRING YOUR ***'":1350 " . 'MISTER ***'":1350 " . '*** YOUNĺ:4 bJ1(S$):(S$,J,1);:(S$,J,1)" "630I l(36)MRGNĺ:n vK13:S(Q48):K:K130:K,Jt   MENU ---- $:::MRGN30:ESC0:3:3:" BEAGLE BROS ":63900 .I1999: 8:3:3:" BUZZ"; BI150:S(Q48)(Q48218580# IQ16,0:K155ġ:1060/ NLK192C ON1S$PRS$(L)W PN2S$PLC$(L)k QN4S$ADJ$(L)~ RN5S$VB$(L) TN6S$PST$(L) UN7S$ING$(L) VN3605 WS$T1$(L):R((1)3):R1S$T2$(L) XR2S$T3$(L) ](36)MRG$"."M$"!"āJ1444:J :B  GET BUZZWORD ------------ \ M$"/"N$S$:II1:s M$"0"S$N$:605 N(M$)48 &(36)MRGN570 0: :"***";:J150:S(Q48)::(36)2:6:(36),(36)22(37)1 DK(Q):(K193K155)K((37)23)ĺ+ (Q)155ĹQ16,0::1060] M$;:J13:S(Q48):J:M$" "I(A$)220 CARRIAGE RETURN? ---------------- JI1 JJ1:(A$,J,1)" "210 (JI(36))39220 ::220 J(A$)180 (37)15Č958 Mr#r,================== BUZZWORD BY BERT KERSEY COPYRIGHT (C) 1980 BEAGLE BROS ================== ~6390020000:1060 PRINT STORY -----------I1(A$):M$(A$,I,1):M$"."M$"8"İ500:230 ((37)((37)2)21)!! ! ! ! ! !!!!!!!!!        CIALOG"A/I!XN  !"#$%&'()*+,-./0123456789:;<=>?  !"#$%&'()*+,-./0123456789:;<=>?F:h ,LOC24576:X034:LOCX,(LOC(1)X):LOC(1)X,(LOC(2)X):LOC(2)X,(LOCX)::SWAP^FILENAMES 1::"HERE GOES...":I1999: 6RW2:47092,RW:F12:47085,SEC(F):47089,((8192SEC(F)256)256):768::WRITE^SECTORS^TO^DISK@(4);"CATXLOC14LOC22435:((X))(FI$(F),1)260:LOOK^AT^1ST^CHARACTER YX1X29:((Y))(FI$(F),YX1,1)Ă:280:FILE^FOUND X SEC::"FILE #";F;" NOT FOUND";(7)::190 :"FILE #";F;" FOUND IN SECTOR ";SEC:SEC(F)SEC:LOC(F)Y33 "A$"C"Ĭ63900NC) 1982 VISI-GRUMP SOFTWARE":5:"BEAGLE BAG":5:"------------------" " MENU":" CONTINUE THIS GAME":" QUIT":5:"------------------":" SELECT:";:A$:A$:A$"Q"Ā A$"M"ĺ(4);"RUN SHORT MENU" A$"C"10 63900SA$" NUTS! ":& A$" SO WHAT! ":9 A$" DARN! ":L A$" HECK! ":` A$" FOOEY! ": A$" SO'S YOUR OLD MAN! ": A$" RATS! ": A$" BALDERDASH! ": A$" YOU TURKEY! ": A$" GET OUTTA HERE! ":F 24::::"CROSS WORD, (OR N!! ";::"CAN'T YOU READ??"::8:"- -":110s I123:16304,0:J19:J::J15:S(16336):J,I :"OH, YEAH!?":5:"----":I12000::63900  CROSS WORDS ----------- A$" NOT THAT KEY, BOZO! ": A$" WHO CARES! ": :A$ Z:(A$,4)" NOT"1001 _21:"----";S d:I155:S(16336):I,TURN n"WANNA PLAY AGAIN? (Y/N):";:16368,0:A$:A$ }16368,0 A$"N"160 A$"Y"150 :"DON'T RUSH ME!":7:"----":I1999:I::::209 :"I SAID Y ";: <K(16384):K16060. A16368,0I DSTST1:X1:501:80 FX((1)12)1:X501,502,503,504,505,506,507,508,509,510,511,512 KKEY$(K128):KEY$" "KEY$"SPACE" PKEY$(34)KEY$(34) TX10A$" "KEY$" IS A DUMB KEY! " U ST0 :::63900TURN0:"----------------------------------------";::" LET'S PLAY CROSS WORD! ";::"---------------------------------------- (A LESSON IN USER-FRIENDLY SOFTWARE)": 2TURN19:"PRESS ANY KEY: ";::""" " " " "