Re: programs in text over e-mail

To: CALC-TI@LISTS.PPP.TI.COM
Subject: Re: programs in text over e-mail
From: Larry G Currie <larry1492@JUNO.COM>
Date: Thu, 9 Oct 1997 23:06:12 EDT
Comments: To: ZABUNKER@MILLS.K12.AR.US
References: <28ACB753CAD@mills.k12.ar.us>
Reply-To: Larry G Currie <larry1492@JUNO.COM>
Here's my Whack-A-Mole 2.7
-Larry
Larry1492@Juno.Com

\START82\
\COMMENT=Whack-A-Mole 2.7, 10/2/1997 9:31PM LC.
\NAME=WAKAML27
\FILE=C:\TISOFT~1\82PROGS\CURREN~1\WAKAML25\WAKAML27.82P
:ClrHome
:Func:FullScreen:PlotsOff :FnOff :AxesOff:Radian:Fix 3
:0\->\\@\:0\->\S
:0\->\Xmin:94\->\Xmax
:0\->\Ymin:62\->\Ymax
:ClrDraw
:For(X,1,55)
:Text(10,76-X,"WHACK\(-)\A\(-)\"
:Text(10,X,"    ")
:Text(10,abs X+1,"MOLE"
:End
:Text(22,7,"VERSION 2.7 PROGRAM BY:")
:Text(29,29,"LARRY CURRIE")
:Text(36,41,"1997")
:Text(43,7,"CONCEPT BY JASON LYNCH"
:For(X,1,990)
:End
:ClrHome
:Menu(" DO YOU WANT TO:","START GAME!",U,"INSTRUCTIONS",V)
:Lbl V
:ClrDraw
:Text(1,12,"WHACK-A-MOLE    V. 2.7")
:Horizontal 54
:Text(10,1,"WRITTEN BY: LARRY CURRIE"
:Text(16,1,"PLEASE  EMAIL  ME  AT")
:Text(22,1,"LARRY1492  AT  JUNO.COM")
:Text(28,1,"TRY MY OTHER PROGRAMS:")
:Text(34,1,"TIC\(-)\TAC\(-)\TOE 3.0, LAVALAMP"
:Text(40,1,"2.0, NEWTONS METHOD,"
:Text(46,1,"QUADRATIC, AND MORE..."
:Text(56,5,"*HIT ENTER TO CONTINUE*"
:Pause
:ClrDraw
:Text(1,1,"THE OBJECT OF THE GAME IS"
:Text(7,1,"TO HIT THE MOLE QUICKLY TO"
:Text(13,1,"GET POINTS.  POINTS RANGE"
:Text(19,1,"FROM 0-30 DEPENDING ON"
:Text(25,1,"HOW FAST YOU HIT THE MOLE.
:Text(31,1,"HIT THE MOLE BY PRESSING"
:Text(37,1,"THE CORRESPONDING KEY"
:Text(43,1,"ON THE KEYPAD:"
:Text(53,5,"*HIT ENTER TO CONTINUE*"
:Pause
:ClrDraw
:Text(2,40,"7   8   9"
:Text(10,40,"4   5   6"
:Text(18,40,"1   2   3"
:Line(38,37,38,61)
:Line(44,37,44,61)
:Line(51,37,51,61)
:Line(58,37,58,61)
:Line(38,37,58,37)
:Line(38,45,58,45)
:Line(38,53,58,53)
:Line(38,61,58,61)
:Text(27,1,"YOU WILL PICK THE NUMBER"
:Text(33,1,"OF MOLES YOU CAN ATTEMPT"
:Text(39,1,"TO HIT WHEN YOU CHOOSE"
:Text(45,1,"TO START A NEW GAME."
:Text(56,5,"*HIT ENTER TO CONTINUE*"
:Pause
:Lbl U
:ClrHome
:Disp "NUMBER OF MOLES"
:Input "TO WHACK?",\@\
:If \@\\<=\0:Then:Goto U:End
:ClrDraw
:Horizontal 0:Horizontal 1:Horizontal 2:Horizontal 17:Horizontal
18:Hor\#\
izontal 19:Horizontal 35:Horizontal 36:Horizontal 37:Horizontal
52:Hori\#\
zontal 53:Horizontal 54:Horizontal 62
:Vertical 0:Vertical 94
:Text(1,2,"WHACK-A-MOLE 2.7"
:Line(68,54,68,62
:Line(1,0,1,52):Line(2,0,2,52)
:Line(92,0,92,52):Line(93,0,93,52)
:Line(31,0,31,52):Line(32,0,32,52):Line(33,0,33,52)
:Line(62,0,62,52):Line(63,0,63,52):Line(64,0,64,52)
:Line(11,4,21,4):Line(42,4,52,4):Line(73,4,83,4):Line(11,22,21,22):Line\#\
(42,22,52,22):Line(73,22,83,22):Line(11,39,21,39):Line(42,39,52,39):Lin\#\
e(73,39,83,39)
:Line(9,5,23,5):Line(40,5,54,5):Line(71,5,85,5):Line(9,23,23,23):Line(4\#\
0,23,54,23):Line(71,23,85,23):Line(9,40,23,40):Line(40,40,54,40):Line(7\#\
1,40,85,40)
:For(T,1,111)
:Lbl R
:ClrHome
:For(T,1,55)
:Output(3,4,"READY..."
:End
:For(T,1,45)
:Output(4,4,"SET..."
:End
:For(T,1,35)
:Output(5,4,"GO..."
:End
:DispGraph
:For(T,1,65):End
:0\->\X:0\->\A:0\->\R:0\->\Y:0\->\L:0\->\B:0\->\K:0\->\S:0\->\T:0\->\S
:0\->\T
:For(A,1,\@\
:iPart ((rand*9)+1\->\R
:If R=1
:Then
:0\->\X:35\->\Y
:72\->\L
:End
:If R=2
:Then
:31\->\X:35\->\Y
:73\->\L
:End
:If R=3
:Then
:62\->\X:35\->\Y
:74\->\L
:End
:If R=4
:Then
:0\->\X:18\->\Y
:82\->\L
:End
:If R=5
:Then
:31\->\X:18\->\Y
:83\->\L
:End
:If R=6
:Then
:62\->\X:18\->\Y
:84\->\L
:End
:If R=7
:Then
:0\->\X:0\->\Y
:92\->\L
:End
:If R=8
:Then
:31\->\X:0\->\Y
:93\->\L
:End
:If R=9
:Then
:62\->\X:0\->\Y
:94\->\L
:End
:Line(11+X,6+Y,19+X,14+Y):Line(20+X,14+Y,21+X,14+Y):Line(22+X,13+Y,23+X\#\
,12+Y):Line(24+X,11+Y,24+X,10+Y):Line(21+X,9+Y,23+X,9+Y):Line(21+X,7+Y,\#\
21+X,6+Y):Pt-On(21+X,12+Y):Pt-On(20+X,8+Y)
:For(B,1,35
:getKey\->\K
:If K=L:Then
:S+(35-B)\->\S
:34\->\B
:Text(1,75,S
:End
:End
:Pt-Off(11+X,6+Y):Pt-Off(12+X,7+Y):Pt-Off(13+X,8+Y):Pt-Off(14+X,9+Y):Pt\#\
-Off(15+X,10+Y):Pt-Off(16+X,11+Y):Pt-Off(17+X,12+Y):Pt-Off(18+X,13+Y):P\#\
t-Off(19+X,14+Y):Pt-Off(20+X,14+Y):Pt-Off(21+X,14+Y):Pt-Off(22+X,13+Y):\#\
Pt-Off(23+X,12+Y):Pt-Off(24+X,11+Y):Pt-Off(24+X,10+Y):Pt-Off(21+X,9+Y):\#\
Pt-Off(22+X,9+Y):Pt-Off(23+X,9+Y):Pt-Off(21+X,7+Y):Pt-Off(21+X,6+Y):Pt-\#\
Off(21+X,12+Y):Pt-Off(20+X,8+Y)
:End
:Text(1,75,"            "
:ClrHome
:Disp "   **********","   * SCORES *","   **********","","RAW:"
:Output(5,10,S
:Disp "TOTAL:"
:Output(6,10,S/\@\
:Output(8,1,"PRESS ANY KEY..."
:Pause
:Menu("   PLAY AGAIN?  ","YES",R,"NO",N
:Lbl N
:Float:ClrDraw:ZPrevious:AxesOn:PlotsOn :FnOn :ClrHome
:For(I,1,15)
:End
:Disp " THANK YOU FOR","    PLAYING"," VERSION 2.7 OF","","",""
:For(X,1,20)
:Output(5,3,"WHACK"
:End
:For(X,1,20)
:Output(5,8,"-A-"
:End
:For(X,1,20)
:Output(5,11,"MOLE"
:End
:For(I,1,10)
:Output(5,3,"              "
:End
:Output(5,3,"WHACK-A-MOLE"
:Stop
\STOP82\
References:
programs in text over e-mail
From: Avery Bunker <ZABUNKER@MILLS.K12.AR.US>