xabin Posted March 14, 2019 Share Posted March 14, 2019 Does anyone have, or remember, the game Peter Cottontail's Egg Hunt for the TI-99/4A? That seems to be my boyfriend's favorite game, since he talks a lot about it in regard to the computer. Quote Link to comment Share on other sites More sharing options...
HOME AUTOMATION Posted March 14, 2019 Share Posted March 14, 2019 2 Quote Link to comment Share on other sites More sharing options...
HOME AUTOMATION Posted March 14, 2019 Share Posted March 14, 2019 If you want to type it in... 10 @=1 :: _=2 :: OPTION BASE 1 :: DIM A(10,10),B(2,2),C(2) 20 DATA 33,0107070F075F7FFF,35,C0C0E0CAFCFCFEFF,40,0000081408,41,0,91,0C1831FE31180C 30 DATA 96,F8E0A0000080E0F8,97,1F0701000001030F,104,007F7F7F7F7F7F7F00FEFEFEFEFEFEFE7F7F7F7F7F7F7F00FEFEFEFEFEFEFE 40 DATA 92,061F3B72E7C7C341030F1B3307071E3E30FCEEA773F363C2E0F8ECE6F0703C3E 50 DATA 100,030F3D3173632100071D0103071E3C0018FEF753BBFBF3E2F0F8ECE6F0303C3E 60 DATA 108,187FEFCADDDFCF470F1F37670F0C3C7CC0F0BC8CCEC68400E0B880C0E0783C 70 DATA 112,183C3C7E7E7E3C,116,0000000001030307070F0E1C18100000000000C0E0F0F0E08 80 DATA 124,0,125,0,126,00140E1605020504,127,0 90 DATA 128,0100000F00121200001212001F000003800000F00048480000484800F80000C0 100 DATA 132,00030000120D000000002D1200000F0000C0000048B000000000B4480000F 110 DATA 136,0000070000002D12122D0000001F00000000E0000000B44848B4000000F8 120 DATA 140,000000000D00002D2D00000D0000000000000000B00000B4B40000B 130 CALL CLEAR :: CALL MAGNIFY(4) :: RESTORE 20 :: CALL SCREEN(14) :: DISPLAY AT(12,:"INITIALIZING..." :: FOR D=@ TO 21 :: READ E,A$ :: CALL CHAR(E,A$) :: NEXT D 140 CALL CLEAR :: FOR D=@ TO 12 :: CALL COLOR(D,@,@) :: NEXT D :: CALL HCHAR(23,@,112,128) :: CALL VCHAR(@,31,112,96) 150 DISPLAY AT(6,4):"PUBLIC DOMAIN SOFTWARE" :: DISPLAY AT(12,11):"df ln" :: DISPLAY AT(13,11):"eg mo" :: DISPLAY AT(17,_):"PETER COTTONTAILS EGG HUNT" :: DISPLAY AT(19,11):"BY JET [" 160 CALL HCHAR(8,11,112,12) :: CALL HCHAR(15,11,112,12) :: CALL VCHAR(9,11,112,6) :: CALL VCHAR(9,22,112,6) 170 FOR D=@ TO 4 :: CALL SPRITE(#D,124+4*D,@,73,113) :: NEXT D :: CALL COLOR(3,_,@,4,_,@,5,_,@,6,_,@,7,_,@,8,_,@,9,_,@) 180 CALL COLOR(10,16,@,11,16,5) :: CALL COLOR(#3,16) :: CALL B([) :: FOR D=3 TO 16 :: CALL VCHAR(3,D,32,20) :: CALL VCHAR(3,33-D,32,20) :: NEXT D 190 CALL DELSPRITE(ALL) :: CALL MAGNIFY(3) :: CALL SCREEN(11) 200 DISPLAY AT(8,_):"1ST PLAYERS INITIALS" :: ACCEPT AT(8,24)SIZE(3)VALIDATE(UALPHA):A$ :: DISPLAY AT(12,_):"2ND PLAYERS INITIALS" :: ACCEPT AT(12,24)SIZE(3)VALIDATE(UALPHA):B$ 210 DISPLAY AT(16,_):"1 GRID OR 0 NO GRID 1" :: ACCEPT AT(16,23)SIZE(-@)VALIDATE("01"):C$ :: F=VAL(C$) :: DISPLAY AT(20,_):"RELEASE ALPHA LOCK NOW" :: FOR D=@ TO 1000 :: NEXT D :: C(@),C(_),G=[ 220 CALL CLEAR :: FOR D=@ TO 12 :: CALL COLOR(D,@,@) :: NEXT D :: PRINT: : :" PETER COTTONTAILS EGG HUNT": :" !# hihihihihihihihihihi" 230 PRINT "!)(#jkjkjkjkjkjkjkjkjkjk":"(`a)hihihihihihihihihihi":")))(jkjkjkjkjkjkjkjkjkjk":" hihihihihihihihihihi" 240 PRINT " 1 jkjkjkjkjkjkjkjkjkjk 10":" 2 hihihihihihihihihihi 9":" 3 jkjkjkjkjkjkjkjkjkjk 8":" 4 hihihihihihihihihihi 7" 250 PRINT " 5 jkjkjkjkjkjkjkjkjkjk 6":" 6 hihihihihihihihihihi 5":" 7 jkjkjkjkjkjkjkjkjkjk 4":" 8 hihihihihihihihihihi 3" 260 PRINT " 9 jkjkjkjkjkjkjkjkjkjk 2":" 10 hihihihihihihihihihi 1":" jkjkjkjkjkjkjkjkjkjk":" hihihihihihihihihihi !#" 270 PRINT " jkjkjkjkjkjkjkjkjkjk!)(#":" hihihihihihihihihihi(`a)":" jkjkjkjkjkjkjkjkjkjk)))(" :: CALL COLOR(@,3,5,_,16,3,3,_,5,4,_,5) 280 CALL COLOR(5,16,5,6,16,5,7,16,5,8,16,5,9,3,_,10,14,14-_*F,11,16,5) :: DISPLAY AT(8,@)SIZE(3):A$ :: DISPLAY AT(19,26)SIZE(3):B$ 290 CALL A(A(,)) :: CALL DELSPRITE(ALL) :: CALL SPRITE(#@,92,_,25,49,#_,92,16,169,193) :: B(@,@)=25 :: B(@,_)=49 :: B(_,@)=169 :: B(_,_)=193 300 G=G+@ :: IF G=3 THEN G=@ 310 FOR D=_ TO 16 STEP 3 :: CALL SOUND(@,110*D,D,110*(17-D),17-D) :: CALL COLOR(#G,D) :: NEXT D :: CALL COLOR(#G,16+14*(G=@)) 320 CALL JOYST(G,E,D) :: IF D=[ AND E=[ THEN 380 ELSE D=-@*(D/_) :: E=E/_ :: B(G,@)=B(G,@)+D :: B(G,_)=B(G,_)+E 330 FOR H=@ TO 3 :: B(G,@)=B(G,@)+D :: B(G,_)=B(G,_)+E :: CALL SOUND(@,G*110*H,5) :: CALL LOCATE(#G,B(G,@),B(G,_)) 340 CALL PATTERN(#G,84+8*H) :: NEXT H :: IF B(G,@)<25 THEN B(G,@)=177 ELSE IF B(G,@)>169 THEN B(G,@)=17 350 IF B(G,_)<49 THEN B(G,_)=201 ELSE IF B(G,_)>193 THEN B(G,_)=41 360 FOR H=@ TO 3 :: B(G,@)=B(G,@)+D :: B(G,_)=B(G,_)+E :: CALL SOUND(@,G*110*(4-H),5) :: CALL LOCATE(#G,B(G,@),B(G,_)) 370 CALL PATTERN(#G,84+8*H) :: NEXT H :: B(G,@)=B(G,@)+D :: B(G,_)=B(G,_)+E :: CALL LOCATE(#G,B(G,@),B(G,_)) :: CALL PATTERN(#G,92) :: GOTO 320 380 CALL KEY(G,D,E) :: IF D<>18 THEN 320 ELSE D=INT(B(G,@)/16) :: E=INT(B(G,_)/16)-_ 390 ON 1+A(D,E)GOTO 570,400,410,420,430,440,450,460,470,480,550,490,500,510,520 400 CALL CHAR(60,"00010103070101010101010101010107C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0F") :: GOTO 530 410 CALL CHAR(60,"071F3C38707030000000030F1C387F7FE0F83C1C0E0E1C1C70E0C0000206FEFE") :: GOTO 530 420 CALL CHAR(60,"1F1F10000000030300000018383C1F03F8F838387070E0E0783C1C1C1C3CF8C") :: GOTO 530 430 CALL CHAR(60,"0000000101030306060C0F1F0000000038F8B8B8B83838383838FEFE3838387C") :: GOTO 530 440 CALL CHAR(60,"1F1F1C1C1C1F1F0000001838381C1F07F8F8080000F0F8381C1C1C1C1C38F8E") :: GOTO 530 450 CALL CHAR(60,"071F1C383838393B3C383838381C1F07E0F010000000F0F8381C1C1C1C38F8E") :: GOTO 530 460 CALL CHAR(60,"1F1F1000000000000000010101030303F8F83838387070E0E0E0C0C0C080808") :: GOTO 530 470 CALL CHAR(60,"030F0E1C1C1C0E071F1C3838381C1F07C0F07038383870E0F8381C1C1C38F8E") :: GOTO 530 480 CALL CHAR(60,"071F1C383838381C1F07000000010307E0F8381C1C1C1C3C38F87070E0E0C08") :: GOTO 530 490 CALL CHAR(60,"00000103060C18303C04040404070000000080C06030180C3C20202020E") :: GOTO 530 500 CALL CHAR(60,"000007040404043C30180C06030100000000E0202020203C0C183060C08") :: GOTO 530 510 CALL CHAR(60,"00000101013F202020203F0101010000000080C06030180C0C183060C08") :: GOTO 530 520 CALL CHAR(60,"00000103060C183030180C06030100000000808080FC04040404FC808") 530 CALL SPRITE(#3,60,@,B(G,@),B(G,_)) :: CALL COLOR(#G,@,#3,16+14*(G=@)) 540 CALL KEY(G,D,E) :: IF D=18 THEN 540 ELSE CALL DELSPRITE(#3) :: CALL COLOR(#G,16+14*(G=@)) :: GOTO 300 550 CALL DELSPRITE(#G) :: CALL SPRITE(#3,116,10,B(G,1),B(G,2),#4,124,3,B(G,1),B(G,2)) :: FOR D=1110 TO 110 STEP-25 :: CALL SOUND(-100,D,5,1220-D,10) :: NEXT D 560 CALL DELSPRITE(#3,#4) :: B(G,@)=169+144*(G=@) :: B(G,_)=193+144*(G=@) :: CALL SPRITE(#G,92,16+14*(G=@),B(G,@),B(G,_)) :: GOTO 300 570 CALL DELSPRITE(ALL) :: FOR D=1 TO 4 :: CALL SPRITE(#D,124+4*D,1,B(G,1),B(G,2)) :: NEXT D :: CALL COLOR(#1,5,#2,11,#3,16,#4,7) :: C(G)=C(G)+1 :: IF C(G)=10 THEN 590 580 CALL VCHAR(9-((G=_)*(10-C(_))),28+23*(G=@),112,C(G)) :: G=G-@ :: CALL B(@) :: GOTO 290 590 CALL CLEAR :: CALL DELSPRITE(ALL) :: CALL CHAR(116,"070F1D3838787070616120000001071E00C3E73C7E7E5AE7FFDBE73C7EFFFF7E") 600 CALL CHAR(120,"0F030100030100000001071F3F0000007EFEFEFEFFFFFFE7E7E7E7E7C3") :: CALL CHAR(124,"E0F0B81C1C1E0E0E06060200048FDFF870200000000000000080E0F87C") 610 CALL MAGNIFY(4) :: CALL CHARSET :: CALL SCREEN(11) :: CALL COLOR(_,16,5,11,16+14*(G=@),@,12,16+14*(G=@),@) 620 CALL HCHAR(23,@,42,128) :: CALL VCHAR(@,31,42,96) :: DISPLAY AT(6,_):"THE WINNER OF THE EGG HUNT" :: IF G=_ THEN A$=B$ 630 DISPLAY AT(8,12):"IS "&A$ :: DISPLAY AT(12,12):"tv|" :: DISPLAY AT(13,12):"uw}" :: DISPLAY AT(14,12):"xz~" :: DISPLAY AT(15,12):"y{"&CHR$(127) 640 FOR D=@ TO 4 :: CALL SPRITE(#D,124+D*4,@,89,129) :: NEXT D :: CALL COLOR(#3,16) :: CALL B([) :: DISPLAY AT(19,6):"PLAY AGAIN Y OR N" 650 CALL KEY(3,D,E) :: IF D=78 THEN 660 ELSE IF D=89 THEN CALL DELSPRITE(ALL) :: CALL COLOR(_,_,@) :: GOTO 130 ELSE 650 660 CALL CLEAR :: CALL DELSPRITE(ALL) :: CALL CHARSET :: DISPLAY AT(4,@):"HOPE YOU ENJOYED IT!": : : :"JOHN E. TAYLOR (JET)" 670 DISPLAY AT(10,@):"2170 ESTALINE DRIVE": :"FLORENCE AL 35630": :"(205)764-5248" 680 SUB A(A(,)) :: @=1 :: RANDOMIZE :: B=@+INT(10*RND) :: C=@+INT(10*RND) :: A(B,C)=[ :: FOR D=@ TO 10 :: FOR E=@ TO 10 :: IF B=D AND C=E THEN 730 690 RANDOMIZE :: CALL PEEK(-31880,F) :: F=F+@ :: IF F<10 THEN A(D,E)=10 :: GOTO 730 ELSE IF F<33 THEN 710 ELSE IF F<55 THEN 720 700 A(D,E)=MAX(ABS(D-B),ABS(E-C)) :: GOTO 730 710 IF D=B THEN 720 ELSE A(D,E)=12+@*(B<D) :: GOTO 730 720 IF E=C THEN 710 ELSE A(D,E)=14+@*(C>E) 730 NEXT E :: CALL SOUND(@,110*D,D) :: CALL SCREEN(D+@) :: NEXT D :: CALL CHAR(60,"000000000080E0F8FFFFFFFFFFFFFFFF000000000001071FFFFFFFFFFFFFFFFF") 740 _=2 :: CALL DELSPRITE(ALL) :: CALL SPRITE(#@,60,3,41,25,#_,92,_,41,25) :: E=-@ :: FOR D=41 TO 25 STEP-@ :: E=E+@ :: IF E=3 THEN E=[ 750 CALL PATTERN(#_,92+8*E) :: CALL LOCATE(#_,D,25) :: NEXT D :: FOR D=26 TO 49 :: E=E+@ :: IF E=3 THEN E=[ 760 CALL PATTERN(#_,92+8*E) :: CALL LOCATE(#_,25,D) :: NEXT D :: CALL PATTERN(#_,92) :: CALL SPRITE(#@,60,3,169,217,#3,92,16,169,217) :: E=-E 770 FOR D=169 TO 153 STEP-@ :: E=E+@ :: IF E=3 THEN E=[ 780 CALL PATTERN(#3,92+8*E) :: CALL LOCATE(#3,D,217) :: NEXT D :: FOR D=216 TO 193 STEP-@ :: E=E+@ :: IF E=3 THEN E=[ 790 CALL PATTERN(#3,92+8*E) :: CALL LOCATE(#3,153,D) :: NEXT D :: FOR D=153 TO 169 :: E=E+@ :: IF E=3 THEN E=[ 800 CALL PATTERN(#3,92+8*E) :: CALL LOCATE(#3,D,193) :: NEXT D :: CALL PATTERN(#3,92) :: SUBEND 810 SUB B(A) :: @=1 :: _=2 :: B=5 :: C=11 :: D=7 :: IF A THEN 870 820 E=110 :: F,G=117 :: H=123 :: I=131 :: J,K=139 :: L=147 :: M,N=156 :: O=165 :: P=175 :: Q,R=185 :: S=196 :: T,U=108 830 V=220 :: W,X=233 :: Y=247 :: Z=262 :: AA,BA=277 :: CA=294 :: DA,EA=311 :: FA=330 :: GA=349 :: HA,IA=370 :: JA=392 :: KA,LA=415 840 MA=440 :: NA,OA=466 :: PA=494 :: QA=523 :: RA,SA=554 :: TA=587 :: UA,VA=622 :: WA=659 :: XA=698 :: YA,ZA=740 :: AB=184 :: BB=831 :: CB=40000 850 DB=CB :: EB=JA :: FB=S :: GOSUB 940 :: DB=GA :: GOSUB 940 :: DB=FA :: GOSUB 940 :: DB=EA :: GOSUB 940 :: DB=PA :: EB=CA :: GOSUB 940 :: DB=MA :: EB=CB :: GOSUB 940 :: DB=GA :: FB=V :: GOSUB 940 :: DB=CA :: FB=Y :: GOSUB 940 860 DB=CB :: FB=Z :: GOSUB 940 :: DB=JA :: FB=FA :: GOSUB 940 :: DB=CB :: FB=J :: GOSUB 940 :: DB=OA :: FB=FA :: GOSUB 940 :: DB=CB :: FB=L :: GOSUB 940 :: DB=QA :: FB=GA :: GOSUB 940 :: DB=PA :: EB=S :: GOSUB 960 :: DB=MA :: GOSUB 960 :: DB=JA :: GOSUB 960 :: DB=CB :: GOSUB 960 870 DB=CB :: EB=JA :: FB=O :: GOSUB 940 :: GOSUB 940 :: GOSUB 940 :: EB=FA :: FB=I :: GOSUB 940 :: FB=S :: GOSUB 940 :: EB=Z :: GOSUB 940 :: FB=O :: GOSUB 940 :: FB=X :: GOSUB 940 :: DB=QA :: EB=MA :: FB=P :: GOSUB 940 :: GOSUB 940 :: FB=O :: GOSUB 940 :: GOSUB 960 :: EB=V :: GOSUB 960 880 DB=MA :: EB=GA :: FB=L :: GOSUB 940 :: DB=V :: GOSUB 940 :: FB=I :: GOSUB 940 :: GOSUB 960 :: GOSUB 960 :: DB=JA :: EB=Y :: FB=L :: GOSUB 960 :: GOSUB 960 :: GOSUB 940 :: EB=X :: FB=J :: GOSUB 940 :: GOSUB 940 890 DB=PA :: EB=GA :: FB=L :: GOSUB 940 :: DB=MA :: GOSUB 940 :: DB=CB :: FB=S :: GOSUB 940 :: DB=MA :: EB=DA :: FB=H :: GOSUB 940 :: DB=JA :: EB=FA :: FB=I :: GOSUB 940 :: DB=CB :: EB=Z :: GOSUB 940 :: EB=FA :: FB=J :: GOSUB 940 :: EB=JA :: GOSUB 940 900 DB=CB :: EB=GA :: FB=L :: GOSUB 940 :: EB=QA :: GOSUB 940 :: DB=PA :: EB=GA :: FB=S :: GOSUB 960 :: DB=MA :: GOSUB 960 :: DB=JA :: GOSUB 960 :: DB=CB :: GOSUB 960 :: DB=JA :: EB=O :: FB=I :: GOSUB 940 :: GOSUB 940 :: GOSUB 940 :: DB=FA :: EB=CB :: GOSUB 940 910 FB=S :: GOSUB 940 :: DB=Z :: GOSUB 940 :: FB=O :: GOSUB 940 :: FB=X :: GOSUB 940 :: DB=QA :: EB=MA :: FB=P :: GOSUB 940 :: GOSUB 940 :: FB=O :: GOSUB 940 :: EB=V :: GOSUB 940 :: DB=MA :: FB=L :: GOSUB 940 :: DB=GA :: GOSUB 940 :: FB=I :: GOSUB 940 :: GOSUB 940 920 DB=JA :: EB=Y :: FB=L :: GOSUB 940 :: GOSUB 940 :: EB=X :: FB=J :: GOSUB 940 :: GOSUB 940 :: DB=PA :: EB=Y :: FB=L :: GOSUB 940 :: DB=MA :: GOSUB 940 :: DB=CB :: EB=GA :: FB=S :: GOSUB 940 :: EB=CA :: FB=Y :: GOSUB 940 930 EB=CB :: FB=Z :: GOSUB 940 :: EB=I :: GOSUB 940 :: EB=P :: GOSUB 940 :: EB=V :: GOSUB 940 :: SUBEXIT 940 CALL SOUND(250-A*25,DB,5,EB,5,FB,5) :: CALL COLOR(#@,B,#_,C,#4,D) :: B=B+@ :: C=C+@ :: D=D+@ :: IF B=17 THEN B=@ ELSE IF C=17 THEN C=@ ELSE IF D=17 THEN D=@ 950 RETURN 960 CALL SOUND(125-A*12,DB,5,EB,5,FB,5) :: RETURN :: SUBEND 2 Quote Link to comment Share on other sites More sharing options...
HOME AUTOMATION Posted March 14, 2019 Share Posted March 14, 2019 (edited) ...or maybe you can: egghunt.wav egghunt.dsk Edited March 14, 2019 by HOME AUTOMATION 2 Quote Link to comment Share on other sites More sharing options...
+chue Posted March 14, 2019 Share Posted March 14, 2019 * Extended BASIC required 1 Quote Link to comment Share on other sites More sharing options...
HOME AUTOMATION Posted March 15, 2019 Share Posted March 15, 2019 I thought the long lines and many colons would be a giveaway... ...I hope you didn't TYPE it in!!! Quote Link to comment Share on other sites More sharing options...
xabin Posted March 15, 2019 Author Share Posted March 15, 2019 Wow. I wasn't expecting that. I was honestly just asking if people knew about it. He thought it was too obscure a game for people to recognize, despite him loving it, so... yeah, thanks, regardless. 1 Quote Link to comment Share on other sites More sharing options...
Brian O Posted March 15, 2019 Share Posted March 15, 2019 "Egg" and "Hunt" always sound funny when spoken together. 1 Quote Link to comment Share on other sites More sharing options...
Opry99er Posted March 15, 2019 Share Posted March 15, 2019 Wow. I wasn't expecting that. I was honestly just asking if people knew about it. He thought it was too obscure a game for people to recognize, despite him loving it, so... yeah, thanks, regardless. While there are still some mysteries out there--most of what was lost has been found in these days of the interwebs.... It's actually uncommon to look for something TI related and not be able to find it. We have databases, game bases, FTP sites, websites, and forums like this one. And our people are our greatest asset. 3 Quote Link to comment Share on other sites More sharing options...
xabin Posted March 17, 2019 Author Share Posted March 17, 2019 All of this support, the offers for help and free parts to help get our TI back into working gear... it makes us sad that we can't repay you guys for it. 1 Quote Link to comment Share on other sites More sharing options...
+Ksarul Posted March 17, 2019 Share Posted March 17, 2019 But you do repay us--as you are now part of the community. We welcome everyone with a healthy interest in the TI family of computers. . . 4 Quote Link to comment Share on other sites More sharing options...
digdugnate Posted March 17, 2019 Share Posted March 17, 2019 we're an odd bunch, but we help each other out! these guys/gals are seriously the greatest- they've helped me with some pretty esoteric stuff and i'm forever appreciative. 1 Quote Link to comment Share on other sites More sharing options...
xabin Posted March 17, 2019 Author Share Posted March 17, 2019 Well, I'm certainly now envious of my boyfriend for having it as a kid; I had an Atari 2500, and comparing games shared between the two, and knowing my love for video games back in the day, I wish I could've had a TI, instead. 1 Quote Link to comment Share on other sites More sharing options...
+OLD CS1 Posted March 17, 2019 Share Posted March 17, 2019 But you do repay us--as you are now part of the community. We welcome everyone with a healthy interest in the TI family of computers. . . One of us! One of us! 2 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.