Directory of image this file is from
This file as a plain text file
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