Directory of image this file is from
This file as a plain text file

(Z)=M(Z)-(U*300)\IFM(Z)=>0THEN3264\PRINTM$(20)
3263 M(Z)=M(Z)+(U*300)\U(4)=U(4)-U\RETURN
3264 H(16)=U(4)\H(18)=U(4)\H(19)=U(4)\RETURN
3266U(5)=U(5)+U\M(Z)=M(Z)-(U*450)\IFM(Z)=>0THEN3268\PRINTM$(20)
3267 M(Z)=M(Z)+(U*450)\U(5)=U(5)-U\RETURN
3268 H(21)=U(5)\H(23)=U(5)\H(24)=U(5)\RETURN
3270U(6)=U(6)+U\M(Z)=M(Z)-(U*450)\IFM(Z)=>0THEN3272\PRINTM$(20)
3271M(Z)=M(Z)+(U*450)\U(6)=U(6)-U\RETURN
3272 H(26)=U(6)\H(27)=U(6)\H(29)=U(6)\RETURN
3274U(7)=U(7)+U\M(Z)=M(Z)-(U*600)\IFM(Z)=>0THEN3276\PRINTM$(20)
3275 M(Z)=M(Z)+(U*600)\U(7)=U(7)-U\RETURN
3276 H(31)=U(7)\H(32)=U(7)\H(34)=U(7)\RETURN
3278U(8)=U(8)+U\M(Z)=M(Z)-(U*400)\IFM(Z)=>0THEN3280\PRINTM$(20)
3279 M(Z)=M(Z)+(U*400)\U(8)=U(8)-U\RETURN
3280 H(37)=U(8)\H(39)=U(8)\RETURN
3900 REM COMMUNITY CHEST
4100 RANDOMIZE\L=RND(0)
4102 IF L>.1 THEN 4104\PRINTZ$(1)\M(Z)=M(Z)+100\RETURN
4104 IF L>.2 THEN 4106\PRINTZ$(2)\M(Z)=M(Z)+100\RETURN
4106 IF L>.3 THEN 4108\PRINTZ$(3)\M(Z)=M(Z)+20\RETURN
4108 IF L>.4 THEN 4110\PRINTZ$(4)\M(Z)=M(Z)-50\RETURN
4110 IF L>.5 THEN 4112\PRINTZ$(5)\M(Z)=M(Z)+100\RETURN
4112 IF L>.6 THEN 4114\PRINTZ$(6)\M(Z)=M(Z)+200\I(Z)=0\RETURN
4114 IF L>.7 THEN 4116\PRINTZ$(7)\M(Z)=M(Z)-100\RETURN
4116 IF L>.8 THEN 4118\PRINTZ$(8)\M(Z)=M(Z)-50\I(Z)=10\RETURN
4118 IF L>.9 THEN 4120\PRINTZ$(9)\M(Z)=M(Z)-50\RETURN
4120 PRINT Z$(10)\M(Z)=M(Z)+200\RETURN
4300 REM CHANCE
4400 RANDOMIZE\L=RND(0)
4402 IF L>.1 THEN 4404\PRINTC$(1)\M(Z)=M(Z)-15\RETURN
4404 IF L>.2 THEN 4406\PRINTC$(2)\I(Z)=24\GOSUB 2000
4405 RETURN
4406 IF L>.3 THEN 4408\PRINTC$(3)\I(Z)=I(Z)-3\GOSUB 2000
4407 RETURN
4408 IF L>.4 THEN 4410\PRINTC$(4)\I(Z)=0\M(Z)=M(Z)+200\RETURN
4410 IF L>.5 THEN 4412\PRINTC$(5)\M(Z)=M(Z)+50\RETURN
4412 IF L>.6 THEN 4414\PRINTC$(6)\I(Z)=5\M(Z)=M(Z)+200\GOSUB2000
4413 RETURN
4414 IF L>.7 THEN 4416\PRINTC$(7)\I(Z)=10\M(Z)=M(Z)-50\RETURN
4416 IF L>.8 THEN 4418\PRINTC$(8)\M(Z)=M(Z)+150\RETURN
4418 IF L>.9 THEN 4420