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