SETLCD(240,320) 
RWPIC = CREATEPAGE()
FLIPPAGE(RWPIC)
RWPIC=LOADRES("waitkey.lib",1)
SHOWPIC(-1,RWPIC,0,220,240,100,0,0,1)

function pause()
waitkey()
end function

function getkey()
dim key1
key1=waitkey()
If key1 < 0 Then
		x = GETPENPOSX(key1)
		y = GETPENPOSY(key1)-220
		If y > 0 And y < 24 And x > 0 And x < 24 Then
			getkey=49
		Else If y > 0 And y < 24 And x > 24 And x < 48 Then
			getkey=50
Else If y >0 And y < 24 And x > 48 And x < 72 Then
			getkey=51
Else If y >0 And y < 24 And x > 72 And x < 96 Then
			getkey=52
Else If y >0 And y < 24 And x > 96 And x < 120 Then
			getkey=53
Else If y >0 And y < 24 And x > 120 And x < 144 Then
			getkey=54
Else If y >0 And y < 24 And x > 144 And x < 168 Then
			getkey=55
Else If y >0 And y < 24 And x > 168 And x < 192 Then
			getkey=56
Else If y >0 And y < 24 And x > 192 And x < 216 Then
			getkey=57
Else If y >0 And y < 24 And x > 216 And x <240 Then
			getkey=48

Else If y > 48 And y < 72 And x > 8 And x < 32 Then
			getkey=97
Else If y > 72 And y < 96 And x > 112 And x < 136 Then
			getkey=98
Else If y > 72 And y < 96 And x > 64 And x < 88 Then
			getkey=99
Else If y > 48 And y < 72 And x > 56 And x < 80 Then
			getkey=100
Else If y > 24 And y < 48 And x > 48 And x < 72 Then
			getkey=101
Else If y > 48 And y < 72 And x > 80 And x < 104 Then
			getkey=102
Else If y > 48 And y < 72 And x > 104 And x < 128 Then
			getkey=103
Else If y > 48 And y < 72 And x > 128 And x < 152 Then
			getkey=104
Else If y > 24 And y < 48 And x > 168 And x < 192 Then
			getkey=105
Else If y > 48 And y < 72 And x > 152 And x < 176 Then
			getkey=106
Else If y > 48 And y < 72 And x > 176 And x < 200 Then
			getkey=107
Else If y > 48 And y < 72 And x > 200 And x < 224 Then
			getkey=108
Else If y > 72 And y < 96 And x > 160 And x < 184 Then
			getkey=109
Else If y > 72 And y < 96 And x > 136 And x < 160 Then
			getkey=110
Else If y > 24 And y < 48 And x > 192 And x < 216 Then
			getkey=111
Else If y > 24 And y < 48 And x > 216 And x < 240 Then
			getkey=112
Else If y > 24 And y < 48 And x > 0 And x < 24 Then
			getkey=113
Else If y > 24 And y < 48 And x > 72 And x < 96 Then
			getkey=114
Else If y > 48 And y < 72 And x > 32 And x < 56 Then
			getkey=115
Else If y > 24 And y < 48 And x > 96 And x < 120 Then
			getkey=116
Else If y > 24 And y < 48 And x > 144 And x < 168 Then
			getkey=117
Else If y > 72 And y < 96 And x > 88 And x < 112 Then
			getkey=118
Else If y > 24 And y < 48 And x > 24 And x < 48 Then
			getkey=119
Else If y > 72 And y < 96 And x > 40 And x < 64 Then
			getkey=120
Else If y > 24 And y < 48 And x > 120 And x < 144 Then
			getkey=121
Else If y > 72 And y < 96 And x > 16 And x < 40 Then
			getkey=122
Else If y > 72 And y < 96 And x > 184 And x < 212 Then
			getkey=13
Else If y > 72 And y < 96 And x > 212 And x < 240 Then
			getkey=27
		End If
End If
end function



tl=100
money=500
j1=0
j2=0
j3=0
j4=0
cs=0
df=0
jn=0
print ""
print "    Ǽʼ԰    "
print "ver0.4"
print "    ʱ߹    "
print "       wstjb        "
print "   2009528    "
pause

1 cls
SHOWPIC(-1,RWPIC,0,220,240,100,0,0,1)
print "ʼǼ֮"
pause
print "1 ʼ 2  3˳"
pause
key=getkey()
if key=49 then
goto 3
else if key=50 then
goto 2
else if key=51 then
end
end if

2 cls
SHOWPIC(-1,RWPIC,0,220,240,100,0,0,1)
print "ӭǼʼ԰"
print "ѡ"
print "Ǽսʿ,̽ʦ"
print ",ɴԼʦ"
print ".Ե"
print ".һ."
pause
cls
SHOWPIC(-1,RWPIC,0,220,240,100,0,0,1)
print ",Ҫѧϰ"
print "ʼ.(ע:"
print ")֮,Եȼߵ"
print "ܶӦĳƺ(ְ"
print "ҵ).㹻"
print "ϵͨŬõ"
pause
cls
SHOWPIC(-1,RWPIC,0,220,240,100,0,0,1)
print ",ô,Ҫ"
print ",ȥȡ"
print "߰!ϺнƷ"
print "--ʱ09-10"
print "Ʒڲ."
pause
goto 1

3 cls
SHOWPIC(-1,RWPIC,0,220,240,100,0,0,1)
print "ѡҪѧϰļ"
print "1 Ӱ"
print "2 ޵в"
print "3 "
print "4 뷨"
pause
key=getkey()
if key=49 then
goto 11
else if key=50 then
goto 12
else if key=51 then
goto 13
else if key=52 then
goto 14
end if

11 cls
SHOWPIC(-1,RWPIC,0,220,240,100,0,0,1)
jn=jn+1
j1=1
print ""
pause
if jn=2 then
goto 4
end if
goto 3

12 cls
SHOWPIC(-1,RWPIC,0,220,240,100,0,0,1)
jn=jn+1
j2=1
print ""
pause
if jn=2 then
goto 4
end if
goto 3

13 cls
SHOWPIC(-1,RWPIC,0,220,240,100,0,0,1)
jn=jn+1
j3=1
print ""
pause
if jn=2 then
goto 4
end if
goto 3

14 cls
SHOWPIC(-1,RWPIC,0,220,240,100,0,0,1)
jn=jn+1
j4=1
print ""
pause
if jn=2 then
goto 4
end if
goto 3

4 cls
SHOWPIC(-1,RWPIC,0,220,240,100,0,0,1)
print "ѧ꼼,ʹʱ"
print "Զ"
pause

5 cls
SHOWPIC(-1,RWPIC,0,220,240,100,0,0,1)
print "Ҫʲô?"
print "A  B ڿ"
print "C ݴ D "
print "E ָF״̬"
pause
key=getkey()
if key=97 then
goto 21
else if key=98 then
goto 31
else if key=99 then
goto 41
else if key=100 then
goto 51
else if key=101 then
goto 6
else if key=102 then
goto 7
end if

6 cls
SHOWPIC(-1,RWPIC,0,220,240,100,0,0,1)
print "ָһ,ѽ"
print "Ǯ100,50"
tl=tl+50
money=money-100
if money<0 then
print "Ǯ"
pause
money=money+100
tl=tl-50
end if
if tl>100 then
tl=100
end if
goto 5

7 cls
SHOWPIC(-1,RWPIC,0,220,240,100,0,0,1)
if j1>j2 then
goto 61
end if
goto 62

61 if j1>j3 then
goto 63
end if
goto 64

62 if j2>j3 then
goto 65
end if
goto 64

63 if j1>j4 then
print "Ǽսʿ"
print "";tl;"/100";"Ǯ";money
print "Ӱ";j1
print "޵в";j2
print "";j3
print "뷨";j4
pause
goto 5
end if
print "ʦ"
print "";tl;"/100";"Ǯ";money
print "Ӱ";j1
print "޵в";j2
print "";j3
print "뷨";j4
pause
goto 5

64 if j3>j4 then
print "ɴ"
print "";tl;"/100";"Ǯ";money
print "Ӱ";j1
print "޵в";j2
print "";j3
print "뷨";j4
pause
goto 5
end if
print "ʦ"
print "";tl;"/100";"Ǯ";money
print "Ӱ";j1
print "޵в";j2
print "";j3
print "뷨";j4
pause
goto 5

65 if j2>j4 then
print "̽"
print "";tl;"/100";"Ǯ";money
print "Ӱ";j1
print "޵в";j2
print "";j3
print "뷨";j4
pause
goto 5
end if
print "ʦ"
print "";tl;"/100";"Ǯ";money
print "Ӱ";j1
print "޵в";j2
print "";j3
print "뷨";j4
pause
goto 5

21 cls
SHOWPIC(-1,RWPIC,0,220,240,100,0,0,1)
if j1=0 then
print "޸ü"
pause
goto 5
end if

22 cls
SHOWPIC(-1,RWPIC,0,220,240,100,0,0,1)
print "ѡ 0-"
print "A Ǽ"
print "B ǼС"
print "C "
print "D С"
pause
key=getkey()
if key=97 then
gw=1
goto 23
else if key=98 then
gw=2
goto 23
else if key=99 then
qw=3
goto 23
else if key=100 then
gw=4
goto 23
end if
goto 5

23 cls
SHOWPIC(-1,RWPIC,0,220,240,100,0,0,1)
print "ѡ񹥻λ:"
print "1ͷ2345"
print "67890"
pause
key=getkey()
if key=49 then
xz=1
else if key=50 then
xz=2
else if key=51 then
xz=3
else if key=52 then
xz=4
else if key=53 then
xz=5
else if key=54 then
xz=6
else if key=55 then
xz=7
else if key=56 then
xz=8
else if key=57 then
xz=9
else if key=58 then
xz=10
end if

rnd1=rnd(10)
if rnd1=xz then
 if gw>2 then
  if j1>3 then
  print "ɱ!!!"
  pause
  tl=tl-15
   if tl<0 then
   print ",Ϸ"
   pause
   end
   end if
  g1=g1+100
   if g1>501 then
   j1=j1+1
   g1=0
   end if
  rnd1=rnd(50)
   if rnd1>47 then
   goto 91
   end if
  goto 22
  else if j1<=3 then
  print "δ"
  pause
  tl=tl-2
  g1=g1+5
   if tl<0 then
   print ",Ϸ"
   pause
   end
   end if
   goto 22
  end if
 else if gw<=2 then
 print "ɱ!!!"
 tl=tl-15
  if tl<0 then
  print ",Ϸ"
  pause
  end
  end if
 g1=g1+50
  if g1>501 then
  j1=j1+1
  g1=0
  end if
 goto 22
 end if
else if rnd1<xz then
 print ""
 pause
 tl=tl-4
 g1=g1+10
  if tl<0 then
  print ",Ϸ"
  pause
  end
  end if
 goto 22
else if rnd1>xz then
 print "δ"
 pause
 tl=tl-2
 g1=g1+5
  if tl<0 then
  print ",Ϸ"
  pause
  end
  end if
 goto 22
end if

31 cls
SHOWPIC(-1,RWPIC,0,220,240,100,0,0,1)
if j2=0 then
print "޸"
pause
goto 5
end if

32 cls
SHOWPIC(-1,RWPIC,0,220,240,100,0,0,1)
print "ѡ 0-"
print "A ƽ"
print "B "
print "C "
print "D Ͽ"
pause
key=getkey()
if key=97 then
gw=1
goto 33
else if key=98 then
gw=2
goto 33
else if key=99 then
qw=3
goto 33
else if key=100 then
gw=4
goto 33
end if
goto 5

33 cls
SHOWPIC(-1,RWPIC,0,220,240,100,0,0,1)
print "ѡ񹥻λ:"
print "12345ǰ6"
print "7890"
pause
key=getkey()
if key=49 then
xz=1
else if key=50 then
xz=2
else if key=51 then
xz=3
else if key=52 then
xz=4
else if key=53 then
xz=5
else if key=54 then
xz=6
else if key=55 then
xz=7
else if key=56 then
xz=8
else if key=57 then
xz=9
else if key=58 then
xz=10
end if

rnd1=rnd(10)
if rnd1=xz then
 if gw>2 then
  if j2>3 then
  print "ɵ!!!"
  pause
  tl=tl-15
   if tl<0 then
   print ",Ϸ"
   pause
   end
   end if
  g2=g2+100
   if g2>501 then
   j2=j2+1
   g2=0
   end if
  rnd1=rnd(50)
   if rnd1>47 then
   goto 91
   end if
  goto 32
  else if j2<=3 then
  print "δɵ"
  pause
  tl=tl-2
  g2=g2+5
   if tl<0 then
   print ",Ϸ"
   pause
   end
   end if
   goto 32
  end if
 else if gw<=2 then
 print "ɵ!!!"
 tl=tl-15
  if tl<0 then
  print ",Ϸ"
  pause
  end
  end if
 g2=g2+50
  if g2>501 then
  j2=j2+1
  g2=0
  end if
 goto 32
 end if
else if rnd1<xz then
 print "ɵ!!!"
 pause
 tl=tl-4
 g2=g2+10
  if tl<0 then
  print ",Ϸ"
  pause
  end
  end if
 goto 32
else if rnd1>xz then
 print "δɵ"
 pause
 tl=tl-2
 g2=g2+5
  if tl<0 then
  print ",Ϸ"
  pause
  end
  end if
 goto 32
end if


41 cls
SHOWPIC(-1,RWPIC,0,220,240,100,0,0,1)
if j3=0 then
print "޸"
pause
goto 5
end if

42 cls
SHOWPIC(-1,RWPIC,0,220,240,100,0,0,1)
print "ѡ 0-"
print "A 800KM/H"
print "B 500KM/H"
print "C 300KM/H"
print "D 150KM/H"
pause
key=getkey()
if key=97 then
gw=1
goto 43
else if key=98 then
gw=2
goto 43
else if key=99 then
qw=3
goto 43
else if key=100 then
gw=4
goto 43
end if
goto 5

43 cls
SHOWPIC(-1,RWPIC,0,220,240,100,0,0,1)
print "ѡ·:"
print "1С23С4"
print "5С678߼"
print "90е"
pause
key=getkey()
if key=49 then
xz=1
else if key=50 then
xz=2
else if key=51 then
xz=3
else if key=52 then
xz=4
else if key=53 then
xz=5
else if key=54 then
xz=6
else if key=55 then
xz=7
else if key=56 then
xz=8
else if key=57 then
xz=9
else if key=58 then
xz=10
end if

rnd1=rnd(10)
if rnd1=xz then
 if gw>2 then
  if j3>3 then
  print "ƽ!!!"
  pause
  tl=tl-15
   if tl<0 then
   print ",Ϸ"
   pause
   end
   end if
  g3=g3+100
   if g3>501 then
   j3=j3+1
   g3=0
   end if
  rnd1=rnd(50)
   if rnd1>47 then
   goto 91
   end if
  goto 42
  else if j3<=3 then
  print "ƽ"
  pause
  tl=tl-2
  g3=g3+5
   if tl<0 then
   print ",Ϸ"
   pause
   end
   end if
   goto 42
  end if
 else if gw<=2 then
 print "ƽ!!!"
 tl=tl-15
  if tl<0 then
  print ",Ϸ"
  pause
  end
  end if
 g3=g3+50
  if g3>501 then
  j3=j3+1
  g3=0
  end if
 goto 42
 end if
else if rnd1<xz then
 print "ƽ!!!"
 pause
 tl=tl-4
 g3=g3+10
  if tl<0 then
  print ",Ϸ"
  pause
  end
  end if
 goto 42
else if rnd1>xz then
 print "ƽ"
 pause
 tl=tl-2
 g3=g3+5
  if tl<0 then
  print ",Ϸ"
  pause
  end
  end if
 goto 42
end if


51 cls
SHOWPIC(-1,RWPIC,0,220,240,100,0,0,1)
if j3=0 then
print "޸"
pause
goto 5
end if

52 cls
SHOWPIC(-1,RWPIC,0,220,240,100,0,0,1)
print "ѡʽ 0-"
print "A ϯ"
print "B ϯ"
print "C ϯ"
print "D ҳϯ"
pause
key=getkey()
if key=97 then
gw=1
goto 53
else if key=98 then
gw=2
goto 53
else if key=99 then
qw=3
goto 53
else if key=100 then
gw=4
goto 53
end if
goto 5

53 cls
SHOWPIC(-1,RWPIC,0,220,240,100,0,0,1)
print "ѡϵ:"
print "12345³6"
print "789½0"
pause
key=getkey()
if key=49 then
xz=1
else if key=50 then
xz=2
else if key=51 then
xz=3
else if key=52 then
xz=4
else if key=53 then
xz=5
else if key=54 then
xz=6
else if key=55 then
xz=7
else if key=56 then
xz=8
else if key=57 then
xz=9
else if key=58 then
xz=10
end if

rnd1=rnd(10)
if rnd1=xz then
 if gw>2 then
  if j4>3 then
  print "ó!!!"
  pause
  tl=tl-15
   if tl<0 then
   print ",Ϸ"
   pause
   end
   end if
  g4=g4+100
   if g4>501 then
   j4=j4+1
   g4=0
   end if
  rnd1=rnd(50)
   if rnd1>47 then
   goto 91
   end if
  goto 52
  else if j4<=3 then
  print "ó"
  pause
  tl=tl-2
  g4=4+5
   if tl<0 then
   print ",Ϸ"
   pause
   end
   end if
   goto 52
  end if
 else if gw<=2 then
 print "ó!!!"
 tl=tl-15
  if tl<0 then
  print ",Ϸ"
  pause
  end
  end if
 g4=g4+50
  if g4>501 then
  j4=j4+1
  g4=0
  end if
 goto 52
 end if
else if rnd1<xz then
 print "һ"
 pause
 tl=tl-4
 g4=g4+10
  if tl<0 then
  print ",Ϸ"
  pause
  end
  end if
 goto 52
else if rnd1>xz then
 print "ó"
 pause
 tl=tl-2
 g4=g4+5
  if tl<0 then
  print ",Ϸ"
  pause
  end
  end if
 goto 52
end if

91 cls
SHOWPIC(-1,RWPIC,0,220,240,100,0,0,1)
print "֮:,"
print "൱!ҷǳ"
print "."
pause
cls
SHOWPIC(-1,RWPIC,0,220,240,100,0,0,1)
print "֮:Ų"
print "ú."
print "ȥμӳг,ֱ"
print "һ׵ľ"
print "ѡ."
pause
cls
SHOWPIC(-1,RWPIC,0,220,240,100,0,0,1)
print "ô,ʼ."
pause
cls
SHOWPIC(-1,RWPIC,0,220,240,100,0,0,1)
print "ͨµķʽ"
print "õ.10֮"
print ",÷ֵ20Ϊг"
print ",30Ϊʡ,50Ϊ˳"
print ",80Ϊ"
pause

92 cls
SHOWPIC(-1,RWPIC,0,220,240,100,0,0,1)
if cs=10 then
goto 96
end if
print "ѡĿȡ"
print "A ʯͷ"
print "B "
print "C "
pause
key=getkey()
if key=97 then
goto 93
else if key=98 then
goto 94
else if key=99 then
goto 95
end if

93 cls
SHOWPIC(-1,RWPIC,0,220,240,100,0,0,1)
cs=cs+1
print "ѡ:"
print "1  2 ʯͷ 3 "
pause
key=getkey()
if key<>58 then
rnd1=rnd(3)
if rnd1=1 then
print "ƽ,2"
pause
df=df+2
goto 92
else if rnd1=2 then
print "Ӯ!5"
df=df+5
goto 92
else if rnd1=3 then
print "!һ"
df=df-1
goto 92
end if
end if

94 cls
SHOWPIC(-1,RWPIC,0,220,240,100,0,0,1)
cs=cs+1
print "ѡ:"
print "A    B   C   "
pause
print ""
print "ϵͳڴ治"
print "ȡسʼ"
print ""
pause
cls
SHOWPIC(-1,RWPIC,0,220,240,100,0,0,1)
print ""
pause
cls
SHOWPIC(-1,RWPIC,0,220,240,100,0,0,1)
print ""
pause
print "ϲûбƭ"
print ":ʲôϵ!"
pause
print "A ϵ B ̫ϵ"
print "C    "
pause
key=getkey()
if key=97 or key=98 then
print "ȫ,"
pause
df=df+2
goto 92

else if key=99 then
print ",8"
pause
df=df+8
goto 92
end if

95 cls
SHOWPIC(-1,RWPIC,0,220,240,100,0,0,1)
cs=cs+1
print "Ŀʾ"
print "ûκ"
pause
goto 92

96 cls
SHOWPIC(-1,RWPIC,0,220,240,100,0,0,1)
if df>79 then
goto 97
else if df>50 then
goto 98
else if df>30 then
goto 99
else if df>20 then
goto 90
end if
print "÷ֲ20."
print "а!!"
pause
goto 5

97 cls
SHOWPIC(-1,RWPIC,0,220,240,100,0,0,1)
print "ϲ,㵱"
print "."
pause
print "ʱ09-10"
print "Ϸڲ."
pause
cls
SHOWPIC(-1,RWPIC,0,220,240,100,0,0,1)
print "09 aɫ9t0j6b14"
print " bս9t0j5b34"
print "10 cС0t0j7b54"
print " dˮ0t0j9b24"
pause
cls
SHOWPIC(-1,RWPIC,0,220,240,100,0,0,1)
print " eѨԵ0t0j8b34"
print " f CPU0t0j0b14"
print "11 g˹1tj115"
pause
cls
SHOWPIC(-1,RWPIC,0,220,240,100,0,0,1)
print "Ϸ"
end

98 cls
SHOWPIC(-1,RWPIC,0,220,240,100,0,0,1)
print "˳"
print "3ڲ"
pause
cls
SHOWPIC(-1,RWPIC,0,220,240,100,0,0,1)
print "09 aɫ9t0j6b14"
print " bս9t0j5b34"
print "10 cС0t0j7b54"
pause
end

99 cls
SHOWPIC(-1,RWPIC,0,220,240,100,0,0,1)
print "ʡ"
print "2ڲ"
pause
cls
SHOWPIC(-1,RWPIC,0,220,240,100,0,0,1)
print "09 aɫ9t0j6b14"
print " bս9t0j5b34"
pause
end

90 cls
SHOWPIC(-1,RWPIC,0,220,240,100,0,0,1)
print "г"
print "1ڲ"
pause
cls
SHOWPIC(-1,RWPIC,0,220,240,100,0,0,1)
print "09 aɫ9t0j6b14"
pause
end



