Back to Main page.
Back to Main tapes page.
5560 MAT S=ZER
5570 MAT F=ZER
5580 MAT G=C
5590 V=0
5600 LOCK #I
5610 READ #I,11
5620 MAT PRINT #I;A
5630 PRINT "WHAT DO YOU WANT TO TRADE TO COMPUTER ?"'13'10"*";
5640 LINPUT I$
5650 IF NOT LEN(I$) THEN 1120
5660 F=T
5670 GOSUB 6130
5680 IF V THEN 5560
5690 PRINT "WHAT DO YOU WANT FROM COMPUTER ?"'13'10"*";
5700 LINPUT I$
5710 F=I
5720 GOSUB 6130
5730 IF V THEN 5560
5740 READ #I,13
5750 MAT PRINT #I;Z
5760 FOR Z=I TO 2
5770 READ #I,I
5780 FOR X=I TO 40
5790 READ #I;A$,B,E,Y,Y,Y,Y,Y,Y,H,G,M,N
5800 IF NOT Z[2,N] OR A[2,N]=Z[2,N] THEN 5830
5810 S[Z]=S[Z]+H/2*Z[2,N]
5820 Z[2,N]=0
5830 NEXT X
5840 NEXT Z
5850 MAT A=Z
5860 REM ***** INVEST IN PROPERTIES ASSUMING DEAL MADE *****
5870 FOR S=I TO T
5880 READ #I,I
5890 FOR X=I TO 40
5900 READ #I;A$,B,E,Y,Y,Y,Y,Y,Y,H,G,M,N
5910 IF Z[4,N]#S OR Z[I,N] AND B=I OR Z[3,N] THEN 5940
5920 Z[3,N]=I
5930 G[S]=G[S]+E/2
5940 NEXT X
5950 GOSUB 1620
5960 IF C=100 THEN 6070
5970 GOTO (B=I)+2* NOT Z[3,N]-I OF 6070,6020
5980 IF G[S]200 THEN 5950
6070 NEXT S
6080 GOSUB 6490
6090 REM ***** DEAL GOOD? *****
6100 GOSUB 6650
6110 DATA 42,41,30,40,39,39,32,32,39,35,32,31,30,30
6120 DATA 32,33,28,29,33,33,32,35,33,34,36,37,41,34
6130 X=POS(I$,",")
6140 M$=I$[I,X-I+(LEN(I$)+I)* NOT X MIN 72]
6150 I$=I$[X+I+LEN(I$)* NOT X]
6160 IF NOT LEN(M$) THEN 6380
6170 READ #I,I
6180 FOR X=I TO 40
6190 READ #I;A$,B,E,Z,Z,Z,Z,Z,Z,H,G,M,N
6200 IF POS(M$,A$[I,5]) THEN 6280
6210 NEXT X
6220 GOSUB 6390
6230 C=C+Y*(F=I)-Y*(F#I)+(Y<0)
6240 IF Y+I THEN 6130
6250 PRINT "?"M$"?"
6260 V=I
6270 GOTO 6130
6280 GOTO F*(A[4,N]#F) OF 6340,6360
6290 FOR Z=I TO 5
6300 Z[Z,N]=A[Z,N]
6310 NEXT Z
6320 Z[2,N]= NOT (F-I)+I
6330 GOTO 6130
6340 PRINT "COMPUTER DOES NOT OWN "A$"."
6350 GOTO 6260
6360 PRINT "YOU DO NOT OWN "A$"."
6370 GOTO 6260
6380 RETURN
6390 Y=-I*(W=17)
6400 FOR B=LEN(M$) TO 0 STEP -I
6410 FOR Z=I TO B
6420 CONVERT M$[Z,B] TO Y,6450
6430 Y=INT(ABS(Y))
6440 RETURN
6450 NEXT Z
6460 NEXT B
6470 RETURN
6480 REM ***** INCOME BEFORE DEAL *****
6490 RESTORE 6110
6500 MAT READ L
6510 MAT I=ZER
6520 FOR Y=I TO 2
6530 READ #I,I
6540 FOR X=I TO 40
6550 READ #I;A$,B,E,H[I],H[2],H[3],H[4],H[5],H[6],H,G,M,N
6560 GOTO (B>3)*2 MAX (A[4,N]#Y) OF 6620,6590
6570 I[Y]=I[Y]+I+A[5,N]/L[N]* NOT A[3,N]
6580 G[Y]=G[Y]+E/T* NOT (A[3,N]+A[I,N]*(B=I))
6590 NEXT X
6600 G[Y]=G[Y]+C*(Y=I)-C*(Y#I)
6610 NEXT Y
6620 IF Z[4,N]#Y THEN 6590
6630 F[Y]=F[Y]+I+Z[5,N]/L[N]* NOT Z[3,N]
6640 GOTO 6590
6650 REM
6660 END