1 cls
print ""
print "    ѧ    "
print "ver1.0"
print "  ʱ߹ Ʒ "
print "       wstjb        "
print "   20101017   "
pause

2 cls
print "ϷΪ"
print "һZWBASICϷ"
print "Aϵ,"
print "һZWBASICϷ"
print "ش WSTJB"
pause

3 cls
print "ѡǣ12"
pause
cls
print "СȨϷ"
print "  .=<>=.      ____  "
print "  /_--_\    \/,---< "
print "|/(.)(.)\|  ( )c~c~ "
print " \  __  /    C   >/ "
print "  '-__-'.     \_O/ -"
pause

key=getkey()
if key=49 then
goto 4
else if key=50 then
goto 5
else
cls
print "ѡ!!!!!"
pause
goto 5
end if

4 money=100
jl=100
yp=5
xf=5
by=5
nl=20
tl=100
dj=1
sm=1
sd=3
yf=1
hf=0
qc=0
sx=0
hx=0
zj=2
ff=0
zl=0
bj=0
goto 6

5 money=300
jl=80
yp=3
xf=3
by=3
nl=50
tl=80
dj=2
sm=1
sd=0
yf=2
hf=0
qc=0
sx=0
hx=0
zj=2
ff=0
zl=0
bj=0
goto 7

6 cls
print "!ѧҵ,û"
print "û"
print "ôµ鰡"
print "!"
pause
print "Ҫ㷢,ҪǮ,"
print "Ҫ.!ҽҫ"
print ".!˹̹Ҳ"
print "Ȳ!!"
pause
goto 11

7 cls
print "!ѧҵ,"
print "ԶڿƼ֮"
print ",ı"
print "!"
pause
print "Ҫ,ҪǮ,Ȼ"
print "ЩǮȥ㷢.!"
print "!˹̹Ҳ"
print "!!"
pause
goto 11

9 cls
print "********************"
print "ϷΪZWBASIC"
print "һϷ"
print "********************"
pause
cls
print "Ϊܼ:"
print "зľ"
print ";Ͳ,Ǯ"
print ";ϢӾ,"
print ";۳ɹ׬ȡǮ;"
print "ҩƷ;˷ܼ"
pause
cls
print ";ҩӾ;"
print "豸ʵҵȼ"
print ":о߼װ"
print "ɹ;ר"
print "ɷֹٻۼ۸"
print ",Ѳװ!"
pause
cls
print "¿¼"
print ",Ϊ֮.,"
print "Ϸ!"
pause
goto 11

11 cls
print "롭0"
print "1з 2Ͳ 3Ϣ"
print "4 5 6ר"
print "7 8鿴 9"
pause

key=getkey()
if key=49 then
goto 21
else if key=50 then
goto 31
else if key=51 then
goto 41
else if key=52 then
goto 51
else if key=53 then
goto 61
else if key=54 then
goto 71
else if key=55 then
goto 81
else if key=56 then
goto 91
else if key=57 then
goto 98
else if key=48 then
goto 9
end if
goto 11


21 cls
print "ȦΪʵҵȼ"
pause
21 cls
print " a  b c d  e  f   g"
print "  ̫  "
print "  ÷    "
print "֢٢ڢۢ  ܢһ"
print "  ֽ伶    "
print "Ͳ  ַͷ  ҳ"
pause

key=getkey()
if key=97 then
goto 22
else if key=98 then
goto 23
else if key=99 then
goto 24
else if key=100 then
goto 25
else if key=101 then
goto 26
else if key=102 then
goto 27
else if key=103 then
goto 28
end if
goto 21

28 cls
print " a   b   c"
print "ַ  "
print "Ӧ    "
print "  һ"
print "˶    "
print "      ҳ"
pause
key=getkey()
if key=97 then
goto 29
else if key=98 then
goto 30
else if key=99 then
goto 21
end if
goto 28

22 cls
if jl>=5 then
 jl=jl-5
 if tl>=5 then
  tl=tl-5
  rnd=rnd(5)
   if rnd>1 then
   sd=sd+1
   print "Ƴɹ"
   goto 21
   end if
   print "ʧܣ"
  goto 21
  else
  print "㣡"
  goto 21
 end if
else
print "㣡"
goto 21
end if
goto 22

23 cls
if dj>=2 then
 if jl>=10 then
 jl=jl-10
  if tl>=10 then
   tl=tl-10
   rnd=rnd(8)
   if sm>=5 then
    rnd=rnd+5
   else if sm>=10 then
    rnd=rnd+10
   else if sm>=20 then
    rnd=rnd+20
   end if
   if rnd>2 then
    zj=zj+1
    print "Ƴɹ"
    goto 21
   end if
   print "ʧܣ"
  goto 21
  else
  print "㣡"
  goto 21
 end if
else
print "㣡"
goto 21
end if
else
print "ʵҵȼ㣡"
pause
goto 21
end if
goto 23

24 cls
if dj>=3 then
if jl>=20 then
 jl=jl-20
 if tl>=20 then
  tl=tl-20
  rnd=rnd(10)
  if sm>=5 then
  rnd=rnd+5
  else if sm>=10 then
  rnd=rnd+10
  else if sm>=20 then
  rnd=rnd+20
  end if
   if rnd>4 then
   yf=yf+1
   print "Ƴɹ"
   goto 21
   end if
   print "ʧܣ"
  goto 21
  else
  print "㣡"
  goto 21
 end if
else
print "㣡"
goto 21
end if
else
print "ʵҵȼ㣡"
pause
goto 21
end if
goto 24

25 cls
if dj>=5 then
if jl>=30 then
 jl=jl-30
 if tl>=30 then
  tl=tl-30
  rnd=rnd(15)
  if sm>=5 then
  rnd=rnd+5
  else if sm>=10 then
  rnd=rnd+10
  else if sm>=20 then
  rnd=rnd+20
  end if
   if rnd>7 then
   ff=ff+1
   print "Ƴɹ"
   goto 21
   end if
   print "ʧܣ"
  goto 21
  else
  print "㣡"
  goto 21
 end if
else
print "㣡"
goto 21
end if
else
print "ʵҵȼ㣡"
pause
goto 21
end if
goto 25

26 cls
if dj>=6 then
if jl>=40 then
 jl=jl-40
 if tl>=40 then
  tl=tl-40
  rnd=rnd(20)
  if sm>=5 then
  rnd=rnd+5
  else if sm>=10 then
  rnd=rnd+10
  else if sm>=20 then
  rnd=rnd+20
  end if
   if rnd>10 then
   sx=sx+1
   print "Ƴɹ"
   goto 21
   end if
   print "ʧܣ"
  goto 21
  else
  print "㣡"
  goto 21
 end if
else
print "㣡"
goto 21
end if
else
print "ʵҵȼ㣡"
pause
goto 21
end if
goto 26

27 cls
if dj>=8 then
if jl>=50 then
 jl=jl-50
 if tl>=50 then
  tl=tl-50
  rnd=rnd(30)
  if sm>=5 then
  rnd=rnd+5
  else if sm>=10 then
  rnd=rnd+10
  else if sm>=20 then
  rnd=rnd+20
  end if
   if rnd>20 then
   qc=qc+1
   print "Ƴɹ"
   goto 21
   end if
   print "ʧܣ"
  goto 21
  else
  print "㣡"
  goto 21
 end if
else
print "㣡"
goto 21
end if
else
print "ʵҵȼ㣡"
pause
goto 21
end if
goto 27

28 cls
if nl>60 then
if dj>=10 then
if jl>=60 then
 jl=jl-60
 if tl>=60 then
  tl=tl-60
  rnd=rnd(30)
  if sm>=5 then
  rnd=rnd+5
  else if sm>=10 then
  rnd=rnd+10
  else if sm>=20 then
  rnd=rnd+20
  end if
   if rnd>25 then
   hf=hf+1
   print "Ƴɹ"
   goto 21
   end if
   print "ʧܣ"
  goto 21
  else
  print "㣡"
  goto 21
 end if
else
print "㣡"
goto 21
end if
else
print "ʵҵȼ㣡"
pause
goto 21
end if
print "㣡"
goto 21
end if
goto 28

29 cls
if nl>80 then
if dj>=20 then
if jl>=80 then
 jl=jl-80
 if tl>=80 then
  tl=tl-80
  rnd=rnd(50)
  if sm>=5 then
  rnd=rnd+5
  else if sm>=10 then
  rnd=rnd+10
  else if sm>=20 then
  rnd=rnd+20
  end if
   if rnd>49 then
   hx=hx+1
   print "Ƴɹ"
   goto 21
   end if
   print "ʧܣ"
  goto 21
  else
  print "㣡"
  goto 21
 end if
else
print "㣡"
goto 21
end if
else
print "ʵҵȼ㣡"
pause
goto 21
end if
print "㣡"
goto 21
end if
goto 29

31 cls
print "ǷͲͣÿμٽ"
print "Ǯ1,20"
print "1 2"
pause

key=getkey()
if key=49 then
goto 32
else if key=50 then
goto 11
end if
goto 31

32 tl=tl+20
money=money-1
print "㱥һ١"
pause
goto 11

41 cls
print "ǷϢÿμ"
print "5,Ӿ20"
print "1 2"
pause

key=getkey()
if key=49 then
goto 42
else if key=50 then
goto 11
end if
goto 41

42 jl=jl+20
nl=nl-5
print "ϢƬ̡"
pause
goto 11

51 cls
print "ΪӵеĶ"
print "ֵ";sd;"·";yf
print "˷Ӧ";hf;"̫ܳ";qc
print "ͷ";sx;"⺽л";hx
print "޳ֽ";zj;"";ff
print "1-45-80"
pause

key=getkey()
if key=49 then
goto 52
else if key=50 then
goto 53
else if key=51 then
goto 54
else if key=52 then
goto 55
else if key=53 then
goto 56
else if key=54 then
goto 57
else if key=55 then
goto 58
else if key=56 then
goto 59
else if key=48 then
goto 11
end if
goto 51

52 cls
if sd>0 then
rnd=rnd(2)
if rnd>1 then
goto 33
end if
sd=sd-1
money=money+1
print "۳ɹ"
pause
goto 51
else
print "治㣡"
pause
goto 51
end if

53 cls
if hf>0 then
rnd=rnd(8)
if rnd>7 then
goto 39
end if
hf=hf-1
money=money+1000
print "۳ɹ"
pause
goto 51
else
print "治㣡"
pause
goto 51
end if

54 cls
if sx>0 then
rnd=rnd(6)
if rnd>5 then
goto 37
end if
sx=sx-1
money=money+50
print "۳ɹ"
pause
goto 51
else
print "治㣡"
pause
goto 51
end if

55 cls
if zj>0 then
rnd=rnd(3)
if rnd>2 then
goto 34
end if
zj=zj-1
money=money+5
print "۳ɹ"
pause
goto 51
else
print "治㣡"
pause
goto 51
end if

56 cls
if yf>0 then
rnd=rnd(4)
if rnd>3 then
goto 35
end if
yf=yf-1
money=money+10
print "۳ɹ"
pause
goto 51
else
print "治㣡"
pause
goto 51
end if

57 cls
if qc>0 then
rnd=rnd(7)
if rnd>6 then
goto 38
end if
qc=qc-1
money=money+300
print "۳ɹ"
pause
goto 51
else
print "治㣡"
pause
goto 51
end if

58 cls
if hx>0 then
rnd=rnd(9)
if rnd>8 then
goto 40
end if
hx=hx-1
money=money+3000
print "۳ɹ"
pause
goto 51
else
print "治㣡"
pause
goto 51
end if

59 cls
if ff>0 then
rnd=rnd(5)
if rnd>4 then
goto 36
end if
ff=ff-1
money=money+30
print "۳ɹ"
pause
goto 51
else
print "治㣡"
pause
goto 51
end if

61 cls
print "ѡƷͣ"
print "1ҩƷ 2ʵװ"
print "0"
pause

key=getkey()
if key=49 then
goto 62
else if key=50 then
goto 63
else if key=48 then
goto 11
end if
goto 61

62 cls
print "ѡҩƷ 0"
print "1ҩ2˷ܼ3ҩ"
pause

key=getkey()
if key=49 then
goto 64
else if key=50 then
goto 65
else if key=51 then
goto 66
else if key=48 then
goto 61
end if

63 cls
print "ѡ 0"
print "1豸2豸"
pause

key=getkey()
if key=49 then
goto 67
else if key=50 then
goto 68
else if key=48 then
goto 61
end if

64 cls
if money<1 then
goto 69
end if
yp=yp+1
money=money-1
print "ɹһ"
pause
goto 62

65 cls
if money<5 then
goto 69
end if
xf=xf+1
money=money-5
print "ɹ"
pause
goto 62

66 cls
if money<1 then
goto 69
end if
by=by+1
money=money-1
print "ɹһ"
pause
goto 62

67 cls
if money<100 then
goto 69
end if
dj=dj+1
money=money-100
print "ɹ100"
pause
goto 62

68 cls
if money<500 then
goto 69
end if
sm=sm+1
money=money-500
print "ɹ500"
pause
goto 62

69 cls
print "Ǯ"
pause
goto 62

71 cls
if bj>0 then
print "Ʒش,"
print "ʱ޷ר"
pause
goto 11
end if

print "ѡͣ0"
print "1һ 2 3ʮ"
print "45Զ()"
print "˵:ԶΪʱ"
print "һר"
print ",ѡ."
pause

key=getkey()
if key=49 then
goto 72
else if key=50 then
goto 73
else if key=51 then
goto 74
else if key=52 then
goto 75
else if key=53 then
goto 76
else if key=48 then
goto 11
end if
goto 71

72 cls
print "100Ԫ"
print "1 2"
pause

key=getkey()
if key=49 then
goto 77
else if key=50 then
goto 71
end if
goto 72

73 cls
print "200Ԫ"
print "1 2"
pause

key=getkey()
if key=49 then
goto 78
else if key=50 then
goto 71
end if
goto 73

74 cls
print "500Ԫ"
print "1 2"
pause

key=getkey()
if key=49 then
goto 79
else if key=50 then
goto 71
end if
goto 74

75 cls
print "2000Ԫ"
print "1 2"
pause
key=getkey()
if key=49 then
goto 80
else if key=50 then
goto 71
end if
goto 75

76 cls
print "óɹԺڸ"
print "!500Ԫ/"
print "1 0"
pause

key=getkey()
if key=49 then
goto 70
else if key=48 then
goto 71
end if

70 cls
print "ɣ"
pause
if money<500 then
goto 44
end if
zl=zl+1
money=money-500
goto 11

77 cls
print "óɹ"
pause
if money<100 then
goto 44
end if
zl=zl+1
money=money-100
goto 11

78 cls
print "óɹ"
pause
if money<200 then
goto 44
end if
zl=zl+3
money=money-200
goto 11

79 cls
print "óɹ"
pause
if money<500 then
goto 44
end if
zl=zl+10
money=money-500
goto 11

80 cls
print "óɹ"
pause
if money<2000 then
goto 44
end if
zl=zl+100
money=money-2000
goto 11

44 cls
print "Ǯ"
pause
goto 71

81 cls
print "ѡ񷢲"
print "1 2 3"
print "0"
pause

key=getkey()
if key=49 then
goto 82
else if key=50 then
goto 83
else if key=51 then
goto 84
else if key=48 then
goto 11
end if
goto 81

82 cls
rnd=rnd(5)
if rnd>3 then
goto 85
end if
goto 86

83 cls
rnd=rnd(10)
if rnd>7 then
goto 87
end if
goto 88

84 cls
rnd=rnd(7)
if rnd>3 then
goto 89
end if
goto 90

85 cls
if nl<50 then
goto 86
end if
print "һ,Ӧ"
print "ǿ,ϲ500"
print "."
pause
money=money+500
goto 11

86 cls
print "ķ,˲"
print "Ϊ޻̸֮"
print "мһ!ʧȥ10"
print "ɱ!"
pause
money=money-10
if money<=0 then
goto 99
end if
goto 11


87 cls
if nl<60 then
goto 88
end if
print "һ,˵"
print "ǿ,۷׷,"
print "."
print "1000."
pause
money=money+1000
goto 11

88 cls
print "ıˡʧȥ"
print "50"
pause
money=money-50
if money<=0 then
goto 99
end if
goto 11

89 cls
print "淴Ӧã"
print "200"
pause
money=money+200
goto 11

90 cls
print "淴Ӧãû"
print "棬ʧȥ20"
pause
money=money-20
if money<=0 then
goto 99
end if
goto 11

91 cls
print "Ϊֵ"
print "Ǯ";money;""
print "";nl
print "";jl
print "";tl
pause
cls
print "ΪϢ"
print "ʵҵȼ";dj
print "ʵĿ";sm
print "ר";zl
print "";bj
pause
cls
print "ΪƷ"
print "ҩ";yp
print "˷ܼ";xf
print " ҩ";by
print "   ֵͲ   ";sd
print "    ·    ";yf
pause
cls
print "  ˷Ӧ  ";hf
print "   ̫   ";qc
print "׼ͷ";sx
print "   ٺл   ";hx
print "    ޳ֽ    ";zj
print "        ";ff
pause
goto 11

98 cls
print "Ϸ"
pause
end

99 cls
print "ʧȥǮƲˣ"
print "޷ʵ֣"
print "ĩĩĩ"
print "磡"
print "Ϸ"
pause
end
