!2 BIRD SPELL BY DOUG HAPMANnZ: FROM B&P PD DISK # 66 PGMS FOR PD # 50 & JGPD # 77yd 2660nX(TI)x W(20),W$(500)"": 1190 : DRAW HOUSE"PLEASE WAIT... 1380 : POKE IN SPRITES 1920 : GET WORDS# 690 : SET UP SPRITES: " "N W$W$((1)N1)X 650} L$" ABCDEFGHIJKLMNOPQRSTUVWXYZ" ""; I2 14 (L$,I,1)""; :"";  I15 27  (L$,I,1)""; " ,""18(G$));0 6 I1 (G$)D @ (G$,I,1)"";J Jc T COUNT(W$) 420o ^ 198,0 h DL1 100: DL:CLCL1: CL3 CL1 r ("",CL,1); |" YOU WIN !!!! PRESS T1501:54296,T:54296,0:  A$: A$"" 360  2610(  2000S  A$: A$"A" A$"Z" A$"_" 410f  A$"_" 760u P(A$)64  (L$,P1,1)" " 540 " LETTER ALREADY CHOSEN "  I1 6:54296,6:54296,0: " "3 ""18(G$));E  I1 (G$)Y  (G$,I,1)"";_ i  420 L$(L$,P)" "(L$,P2) &RF0 : FLAG FOR CORRECT GUESS 0 I1 (W$) : (W$,I,1) A$ 610 DG$(G$,I)(W$,I,1)(G$,I2) NRFRF1 XCOUNTCOUNT1 b I4 l RF0 1030F v RF 2070P  220[ G$" "  I1 (W$):G$G$"-":W(I)0:  II1: 1980  SET UP SPRITES V53248  I0 15: VI,0:  V21,255  IV39 V46: I,0:X0:Y60:S2512"ENTER YOUR GUESS: ";K V21,(V21) 254e  I1 (W$):"";:"";GU$; (GU$)(W$)"";* (GU$)(W$)1 I2(W$)(GU$):"";4 K$: K$"" 820> K$(20) (GU$)0 GU$(GU$,(GU$)1): 790>H K$(13) (GU$)(W$) 870rR K$"A" K$"Z" (GU$)(W$) GU$GU$K$|\ 790f GU$W$ 930p" "z""18(" "W$)); I1 (" "W$)  (" "W$,I,1)"";: 350A" SORRY...YOU LOSE "uJ13:T17:54296,10:54296,0::D1150::"THE WORD WAS..."""18(" "W$)); I1 (" "W$) (" "W$,I,1)""; D1 200:: ""13)" >SPACE< "=D1250::""13)"PRESS ":D1250:T A$: A$"" 990_ 2610qDBDB1:SS3DX32DB16:DY225 DB8 DB0$V,X255:V16,(V16)254(X255):V1,Y:2040,S. X0 V21,(V21) 18FLAG04B(XDX)1XX3:FLAG1:X344X0:V21,(V21)254NL YDY YY2:FLAG1hVSS1: S251 S248z` FLAG 1060t V2DB,X 255: V16,(V16)(2DB)((X255))~ V2DB1,Y: 2040DB,254 DB0 V21,(V21) 254 X0:Y60: DB0 930$ 53281,3: 53280,4-"8">j"    "  ߐ   "   ߒ   "   ߒ  "     K"      "  ";"   ";"";( I0 8:" ";::2 I1 8:L10242340I4: L,114: L54272,0:q< I0 39: 10242440I,160: 552962440I,13:yF"P"ZdI15872: (I1)96 I1 6462: A::n A: A256 1410x I,A:II1: 1390 I0 63: 25464I,(24964I)::) 0,96,0,0,113,224,0I 121,176,0,125,252,117,193k 192,127,255,192,113,255,128 0,252,0,0,24,0,0 24,0,0,102,0,0,102 0,0,0,0,0,0,0 0,0,0,0,0,0,0 0,0,0,0,0,0,0 0,0,0,0,0,0,0 0,0,0,0,0,1,224 0,1,176,0,127,252,117? 193,192,127,255,192,113,255X 128,0,252,0,0,24,0o 0,24,0,0,102,0,0 102,0,0,0,0,0,0" 0,0,0,0,0,0,0, 0,0,0,0,0,0,06 0,0,0,0,0,0,0@ 0,0,0,0,0,0,1J 224,0,1,176,112,127,252T 127,221,192,115,185,192,1.^ 179,128,0,172,0,0,24Eh 0,0,24,0,0,102,0[r 0,102,0,0,0,0,0o| 0,0,0,0,0,0,0 0,0,0,0,0,0,0 0,0,0,0,0,0,0 0,0,0,0,96,0,0 113,224,0,121,176,0,125 252,117,193,192,127,255,192 113,255,128,0,252,0,0 0,0,0,0,0,0,00 0,0,0,0,0,0,0D 0,0,0,0,0,0,0X 0,0,0,0,0,0,0l 0,0,0,0,0,0,0 0,0,0,0,0,0,0 0,1,224,0,1,176,0 127,252,117,193,192,127,255 192,113,255,128,0,252,0 0,0,0,0,0,0,0& 0,0,0,0,0,0,00 0,0,0,0,0,0,0(: 0,0,0,0,0,0,0<D 0,0,0,0,0,0,0PN 0,0,0,0,0,0,0hX 0,0,1,224,0,1,176b 112,127,252,127,221,192,115l 185,192,1,179,128,0,172v 0,0,112,0,0,0,0 0,0,0,0,0,0,0 0,0,0,0,0,0,0 0,0,0,0,0,0,0 0,0,0,0,0,0,0& 0,0,0,0,0,0,0,256.I1P W$(I): W$(I)"*" NI1:aII1: 1980V,X255:V16,(V16)254(X255):V1,Y:2040,S X0 V21,(V21) 1XX3: X344 X0: V21,(V21) 254YY1(1)2: Y100 Y99 Y50 Y500SS1: S254 S2516 UDX(P13(P13))162440{ DY173(P14)24: S250 SS3*V,X255:V16,(V16)254(X255):V1,Y:2040,S4 X0 V21,(V21) 1>FLAG0H(XDX)2XX3:FLAG1:X344X0:V21,(V21)254/R YDY YY2:FLAG1I\SS1: S251 S248[f FLAG 2090ipXDX:YDYzV,X255:V16,(V16)254(X255):V1,Y:2040,249 56334,(56334) 254 1,(1) 251 I0 7B(532488PI) J248 250 J6440I3,B# J,I4 1,(1) 4M 56334,(56334) 1p""; I2 14 (L$,I,1)""; :""; I15 27 (L$,I,1)"";$ . DX1608(G$):DY69'8 V,X255:V16,(V16)254(X255):V1,Y:2040,SFB X0 V21,(V21) 1QL FLAG0V (XDX)2XX3:FLAG1:X344X0:V21,(V21)254` YDY YY2:FLAG1j SS1: S251 S248t FLAG 2360~ XDX:YDY V,X255:V16,(V16)254(X255):V1,Y:2040,249/ ""18(G$));A I1 (G$)t (G$,I,1)A$ A$;:RFRF1: RF0 2560 (G$,I,1) A$ ""; ""; RF0 I100: 2540 J0 15:XX1:SS1: S251 S248! V,X 255: V16,(V16) 254 (X255): 2040,S"! J*! I0! >! K0 7O! J248 250c! J6440K3,0m! J,Ks!( !2 "DO YOU WISH TO PLAY AGAIN (Y/N) ?"!7 V21,(V21) 254!< "YOU MISSED THIS MANY:" "F A$: A$ "N" A$ "Y" 2630*"P A$"Y" V21,0: 1100"Z H"d 53281,0: 53280,0j"n " INSTRUCTIONS"x " CHOOSE LETTERS TO GUESS THE WORD." "IF YOU GUESS A WRONG LETTER, THE BIRD" "WILL LAND ON ITS PERCH.# " WHEN ALL THE PERCHES ARE FULL, OR@# "YOU GUESSED THE WORD, THE GAME IS OVER|# " YOU CAN HIT THE "(34)"_"(34)" KEY ANY TIME TO# "GUESS THE WORD. IF YOU GET IT WRONG, YOU LOSE.# "PRESS TO BEGIN"# A$: A$"" 2760# H$ HAPPY,BRIDGE,FAMILY,CHILDREN,MONKEYS,RECENTLY,STARWARS,TENTEN,SNOWY$ WINDOW,TRAIN,DWARF,BIRDS,CHEVROLET,DODGE,CRYSLER,JAPANESE,RECYCLE$ SUPERMAN,CONCERT,PEOPLE,MAGIC,LETTERMAN,LENO,ARSENIO,DONAHUE,SUPER"% SPACE,SCIENCE,PLANETS,GALAXY,STARS,WINDOW,JOYSTICK,MODEM,COMMODOREn% ROOMS,TEACHER,CHALK,BLACKBOARD,AQUAINTED,CONTEST,INSTANT,WINNER,BOARD% SCREEN,COMPUTER,KEYBOARD,PROGRAM,CONTROL,SCREEN,SOFTDISK,LOADSTAR& SPELLING,WORDS,COLORS,LETTERS,PROCESSOR,GRAPHIC,SEX,VIOLENCE,PRINTINGN&" MARKET,STREETS,SQUARE,TRIANGLE,WINDOW,TRESHHOLD,ENTRANCE,BATMAN,ROBIN&, MOVIE,SPACESHIP,LAZER,AIRPLANE,BOAT,SUPERMAN,ALIEN,WALLPAPER,COUCH&6 STICK,ROCK,PAPER,WIN,PLACE,SHOW,CAMEL,JUICE,JOCKEY,SHORTS,SALUTE%'@ CHANNEL,EXECUTIVE,MONEY,SHIRT,SHIRTTAIL,SNAIL,GRANDPRIX,SPEEDWAYq'J QUIET,LOUD,BILLBOARD,YACHT,MOTORCYCLE,ROMPER,CATTLE,ATTENUATOR,MASTER'T SWITCH,SHOOTER,KILLER,MAGNUM,COMMANDER,WIZARD,WITCHES,WARLOCKS' HUSSEIN,CHRISTMAS,FLOPPY,DISTRIBUTE,WARRANTY,LIMITED,REGISTEREDH( CONCEPT,CONCLUSION,STRAIGHT,CUSTOMER,ARCHIVAL,CYBIL,HERCULES,MAVERICK( SUBSYSTEM,DEFECTIVE,CAMERA,HOMESPUN,EXCEPTIONS,PROGRAMMER,PARAMETERS( TECHNICAL,SUPPORT,REPLACEMENT,ENDEAVOR,DESIGNED,PACKAGE,CHAMPAGNE&) MILLION,BEAUTIFUL,WONDERFUL,HANDSOME,POOF,ANOTHER,MYSTERIOUS,PACKAGEk) FORGET,RECYCLED,CONSUMER,CANADA,LOUISIANA,AMERICAN,GREETINGS,*