5 PRINTM$(19);\INPUTH$\IFH$="HOUSE"THEN3200\RETURN
3150 PRINTM$(15);\INPUTF$\IFF$<>"LIST"THEN3152\GOSUB3170
3152 PRINTM$(17);\INPUTV$\PRINT"HOW MUCH DO YOU WANT FOR IT";\INPUTV
3154 FOR I=1 TO 39
3156 IF V$<>G$(I)THEN3158\IFL(I)<>0THEN3158\PRINTM$(16)\RETURN
3158 IFV$<>G$(I)THEN3160\IFL(I)<>1THEN3160\M(1)=M(1)+V
3159 M(2)=M(2)-V\L(I)=2\GOTO 3165
3160 IF V$<>G$(I)THEN3162\IFL(I)<>2THEN3162\M(2)=M(2)+V
3161 M(1)=M(1)-V\L(I)=1\GOTO 3165
3162 NEXT I
3165 PRINT M$(18);\INPUT F$\IFF$="YES"THEN 3152\RETURN
3170 C=0\D=0
3171 FOR I=1 TO 39
3172 IFL(I)<>1THEN 3174\C=C+1\A$(C)=G$(I)
3174 IFL(I)<>2 THEN 3175\D=D+1\B$(D)=G$(I)
3175 NEXT I
3176 PRINT N$(1);"'S PROPERTY"
3177 FOR I=1 TO C\PRINT A$(I)\NEXT I
3178 PRINT N$(2);"'S PROPERTY"
3180 FOR I=1 TO D\PRINT B$(I)\NEXT I
3182 RETURN
3200 IFL(1)<>ZTHEN3202\IFL(3)<>ZTHEN3202\PRINTP$;"50";O$
3201 PRINT G$(1);" ";G$(3);\INPUT U\GOSUB 3250
3202 IFL(6)<>ZGOTO3204\IFL(8)<>ZGOTO3204\IFL(9)<>ZGOTO3204
3203 PRINTP$;"50";O$\PRINTG$(6);" ";G$(8);" ";G$(9);\INPUTU\GOSUB3254
3204 IFL(11)<>ZGOTO3206\IFL(13)<>ZGOTO3206\IFL(14)<>ZGOTO3206
3205PRINTP$;"100";O$\PRINTG$(11);" ";G$(13);" ";G$(14);\INPUTU\GOSUB3258
3206 IFL(16)<>ZGOTO3208\IFL(18)<>ZGOTO3208\IFL(19)<>ZGOTO3208
3207PRINTP$;"100";O$\PRINTG$(16);" ";G$(18);" ";G$(19);\INPUTU\GOSUB3262
3208IFL(21)<>ZGOTO3210\IFL(23)<>ZGOTO3210\IFL(24)<>ZGOTO3210
3209PRINTP$;"150";O$\PRINTG$(21);" ";G$(23);" ";G$(24);\INPUTU\GOSUB3266
3210IFL(26)<>ZGOTO3212\IFL(27)<>ZGOTO3212\IFL(29)<>ZGOTO3212
3211PRINTP$;"150";O$\PRINTG$(26);" ";G$(27);" ";G$(29);\INPUTU\GOSUB3270
3212IFL(31)<>ZGOTO3214\IFL(32)<>ZGOTO3214\IFL(34)<>ZGOTO3214
3213PRINTP$;"200";O$\PRINTG$(31);" ";G$(32);" ";G$(34);\INPUTU\GOSUB3274
3214IFL(37)<>ZGOTO3220\IFL(39)<>ZGOTO3220\PRINTP$;"200";O$
3215PRINTG$(37);" ";G$(39);\INPUTU\GOSUB3278
3220 RETURN
3250U(1)=U(1)+U\M(Z)=M(Z)-(U*100)\IFM(Z)=>0THEN3252\PRINTM$(20)
3251 M(Z)=M(Z)+(U*100)\U(1)=U(1)-U\RETURN
3252 H(1)=U(1)\H(3)=U(1)\RETURN
3254U(2)=U(2)+U\M(Z)=M(Z)-(U*150)\IFM(Z)=>0THEN3256\PRINTM$(20)
3255 M(Z)=M(Z)+(U*150)\U(2)=U(2)-U\RETURN
3256 H(6)=U(2)\H(8)=U(2)\H(9)=U(2)\RETURN
3258U(3)=U(3)+U\M(Z)=M(Z)-(U*150)\IFM(Z)=>0THEN3260\PRINTM$(20)
3259 M(Z)=M(Z)+(U*150)\U(3)=U(3)-U\RETURN
3260 H(11)=U(3)\H(13)=U(3)\H(14)=U(3)\RETURN
3262U(4)=U(4)+U\M