ViewWindow 1,127,1,1,63,1:Cls:BG-None

AxesOff:GridOff

115ÞA:70ÞB:55ÞC:10ÞU

F-Line B,U,A,U

F-Line B,25,A,25

F-Line B,40,A,40

F-Line B,C,A,C

F-Line B,C,B,U

F-Line 85,C,85,U

F-Line 100,C,100,U

F-Line A,C,A,U

Text 2,71,"WHACK IT«"

Text U,1,"SCORE:"

Text 2,1,"#LEFT:"

Text 18,1,"HITS:"

0ÞA~Z:2ÞL:10ÞU

Lbl 1

Text U,25,D

F-Line 9,9,45,9

F-Line 46,U,46,38

F-Line 45,39,9,39

F-Line 8,38,8,U

20ÞX

Text 28,X,"START"

Text 35,X,"LEVEL"

Text 42,X,"SCORES"

Text 49,X,"EXIT"

28ÞX:Do

Text X,11,"Þ":Do

GetKeyÞG:LpWhile  Not G

Text X,9,"  "

G=28 And Xá28ãX™7ÞX

G=37 And Xá49ãX‰7ÞX

LpWhile Gá31

X=49ãGoto 3

If X=42

Then ClrText

"     HIGH SCORES"

"====================="

"  EASY:"

"  MEDIUM:"

"  HARD:"

Locate 11,4,Mat B[1,1:Locate 11,5,Mat B[2,1:Locate 11,6,Mat B[3,1

Do

LpWhile  Not GetKey

Goto 1

IfEnd

If X=35

Then Lbl 2

ClrText

"=======LEVEL=========1: EASY"

"2: MEDIUM"

"3: HARD"

"4:HELP«"

"USE # KEYS TO SELECT PUSH EXE WHEN DONE"

Do

Locate 3,L‰1,"*"

Do:GetKeyÞG

LpWhile  Not G

Locate 3,L‰1," "

G=72 Or G=62 Or G=52ãAbs Int (G¹U™9ÞL

If G=73

Then "EASY:NUMBER DISPLAYEDIN CORRECT SPOT"

"MEDIUM:SYMBOL DIS™   PLAYED IN SPOT"

"HARD:NUMBER DISPLAYEDIN RANDOM SPOT, PUSH THE NUMBER"

Do:LpWhile  Not GetKey:Goto 2:IfEnd

LpWhile Gá31

Goto 1:IfEnd

For 24ÞA To 54 Step 6:Text A,8,"          ":Next

Text 25,20,"READY"

(XÐ,X,1,75

Text 25,20,"     "

Text 33,30,"SET.."

(XÐ,X,1,75

Text 33,30,"     "

Text 41,43,"GO«"

(XÐ,X,1,60

Text 41,43,"   "

29ÞZ

For 60ÞA To 1 Step ‡1:Text 2,Z,"  "

Text 2,Z,A

15Int 3Ran#‰76ÞB

15Int 3Ran#‰15ÞC

Text 18,22,E

Abs (Int (B¹1.5)™120)‰Abs (C¹15™5ÞÎ

L=2ãText C,B,"©"

Lá2ãAbs (Int (ι10)™8)‰3(10Frac (ι10)™2ÞX

If L=3

Then 15Int 3Ran#‰76ÞB:15Int 3Ran#‰15ÞC

IfEnd

Lá2ãText C,B,X

For 70ÞÍ To 20 Step ‡1:If GetKey=Î

Then D‰ÍÞD

Text U,25,D

Isz E:Break:IfEnd

Next

Text C,B," ":Next

ClrText

If D>Mat B[L,1

Then ClrText

"   NEW HIGH SCORE"

"©©©©©©©©©©©©©©©©©©©©©YOU GOT A HIGH SCORE ON LEVEL"

"YOUR SCORE WAS"

Locate 16,5,D

L=1ãLocate U,4,"EASY":L=2ãLocate U,4,"MEDIUM"

L=3ãLocate U,4,"HARD":DÞMat B[L,1

(X,X,1,999

IfEnd

Lbl 3

">>>>>>WHACK IT<<<<<<<‡‡‡‡‡‡‡‡‡‡‡‡‡‡‡‡‡‡‡‡‡YOUR SCORE WAS"

"HIGH SCORE IS"

"CREATED BY ROSS8653  ICQ# 21361440"

"ROSS8653ÎHOTMAIL.COM"

Locate 4,7," And "

Locate 4,7,"S8653"

Locate 15,4,Mat B[L,1:Locate 16,3,D