1  REM ****  HP BASIC PROGRAM LIBRARY  ******************************
2  REM
3  REM       MRKSIM: MARKETING SIMULATION
4  REM       ANNUAL, PART 4 OF 5 (PRINTS ANNUAL REPORTS)
5  REM       36199 REV A
6  REM
7  REM ****  CONTRIBUTED PROGRAM  ***********************************
8000  REM ANNUAL REPORT FOR MARKETING GAME
8010  FILES INDY#1,INDY#2,INDY#3,DECIS
8020  DIM E[3,8],H[3,4],L[3,4],Y[3],X[3],B[3]
8025  DIM A$[72]
8030  PRINT " TYPE IN USER NUMBER"
8040  INPUT N
8090  PRINT "ENTER INDUSTRY # AND LATEST PERIOD #"
8100  INPUT L,M1
8101  M=L
8102  V=0
8104  READ #4,L+5*N-3
8106  FOR I=1 TO 3
8108  READ #4;A$[V+1,V+24]
8110  V=V+24
8112  NEXT I
8113  READ #M,2*N-1
8120  FOR K=1 TO 3
8130  FOR I=1 TO 4
8140  LET J=I+4
8150  READ #M;E[K,I],E[K,J],H[K,I],L[K,I]
8160  NEXT I
8170  NEXT K
8180  PRINT "----------"
8190  PRINT 
8200  PRINT 
8210  PRINT 
8220  PRINT "  ANNUAL REPORT FOR INDUSTRY# ";L
8230  PRINT 
8240  PRINT "   AS OF PERIOD "M1
8250  PRINT 
8260  PRINT 
8270  PRINT "FIRMS:";
8280  PRINT TAB(12);A$[1,20];TAB(23);A$[25,45];TAB(44);A$[49,65]
8290  PRINT 
8300  PRINT 
8310  PRINT "CUMULATIVE RETAIL SALES"
8320  PRINT "   SINCE PERIOD ";INT(M1/4)*4;
8330  PRINT TAB(20);L[1,1];TAB(40);L[2,1];TAB(60);L[3,1]
8340  PRINT "  SINCE START"
8350  PRINT "    OF GAME";
8360  PRINT TAB(20);L[1,3];TAB(40);L[2,3];TAB(60);L[3,3]
8370  PRINT 
8380  PRINT 
8390  PRINT "CUMULATIVE NET PROFIT"
8400  PRINT "   SINCE PERIOD ";INT(M1/4)*4;
8410  PRINT TAB(20);L[1,2];TAB(40);L[2,2];TAB(60);L[3,2]
8420  PRINT "  SINCE START"
8430  PRINT "    OF GAME";
8440  PRINT TAB(20);L[1,4];TAB(40);L[2,4];TAB(60);L[3,4]
8450  PRINT 
8460  PRINT 
8470  PRINT "COMPARATIVE BALANCE SHEETS"
8480  PRINT 
8490  PRINT 
8500  PRINT "ASSETS"
8510  PRINT "  CASH";
8520  PRINT TAB(20);H[1,1];TAB(40);H[2,1];TAB(60);H[3,1]
8530  PRINT "  INVENTORY";
8540  FOR A=1 TO 3
8550  LET Y[A]=INT(E[A,2]*E[A,6]+E[A,4]*E[A,8]+.5)
8560  LET X[A]=Y[A]+H[A,1]
8570  LET B[A]=X[A]-H[A,2]
8580  NEXT A
8590  PRINT TAB(20);Y[1];TAB(40);Y[2];TAB(60);Y[3]
8600  PRINT TAB(20);"==========";TAB(40);"==========";TAB(60);"=========="
8610  PRINT "  TOTAL ASSETS";
8620  PRINT TAB(20);X[1];TAB(40);X[2];TAB(60);X[3]
8630  PRINT 
8640  PRINT 
8650  PRINT "LIABILITIES"
8660  PRINT "  DEBTS";
8670  PRINT TAB(20);H[1,2];TAB(40);H[2,2];TAB(60);H[3,2]
8680  PRINT 
8690  PRINT 
8700  PRINT "CAPITAL"
8710  PRINT "  OWNER'S"
8720  PRINT "  INVESTMENT"
8730  PRINT TAB(20);B[1];TAB(40);B[2];TAB(60);B[3]
8740  PRINT '10'10'10'10
8780  PRINT "-----------"
8790  PRINT '10'10
8950  END 
