1  REM ****  HP BASIC PROGRAM LIBRARY  ******************************
2  REM
3  REM       MRKSIM: MARKETING SIMULATION
4  REM       MARK, PART 1 OF 5 (INPUT DATA)
5  REM       36199 REV A
6  REM
7  REM ****  CONTRIBUTED PROGRAM  ***********************************
10  REM THE FIRST  2 DATA ARE INDUSTRY NUMBER AND PERIOD NUMBER.
20  REM THE NEXT 12 DATA ARE DECISIONS FORFIRM#1, IN THE FOLLOWING
30  REM ORDER: NATIONAL ADVERTISING, RETAIL ADV ALLOWANCE, QUALITY
40  REM LIST PRICE, PRODUCTION, SHIP TO DISTRIBUTIONS CENTERS,DEBT
50  REM PAYMENT, DECICION TO PURCHASE, VARIOUS MARKETING DATA
60  REM (SEE MANUAL).    THE NEXT 12 DATA ARE ALLOCATED 
70  REM FOR FIRM #2,AND THE LAST 12 FOR FIBM #3. AT THEFIRST PERIOD
80  REMTHE COMPUTER WILL ASK YOU THE NAMES OF EACH OF THE THREEFIRMS
90  REM THE PROGRAM HAS TO BE RUN FOR EACH INDUSTRY.
100  REM***********SAM@LE DATA(PERIOD 1)************************
110  REM     1,1
120  REM     500000,300000,55,145,50000,30000,0,1,1,1,1,1
130  REM     500000,300000,55,145,50000,30000,0,1,1,1,1,1
140  REM     500000,300000,55,145,50000,30000,0,1,1,1,1,1
150  REM==========================================================
155  REM : IMPORTANT : EACH TEACHER USING THE GAME HAS TO BE ALLOCATED
156  REM A USER NUMBER WHICH CAN BE 1 OR 2. THERE CANNOT BE MORETHAN 2.
160  DIM A$[72]
170  DIM K[12]
180  PRINT "****************     MARKSIM          *****************"
190  PRINT "LAST FOR INSTRUCTIONS"
200  FILES DECIS,USER
201  PRINT 
202  PRINT "ENTER USER NUMBER"
203  INPUT N
204  PRINT #2;N
205  PRINT #1,5*N-4
210  PRINT "ENTER INDUSTRY # AND PERIOD #:"
220  INPUT L,M
230  PRINT #1;L,M
240  FOR I=1 TO 3
250  PRINT "ENTER DECISIONS FOR FIRM #";I;" (12 DATA)"
260  MAT  INPUT K
270  MAT  PRINT #1;K
280  NEXT I
290  IF M>1 THEN 500
300  PRINT "ENTER THE NAMES OF THE THREE FIRMS.ONE ON EACH LINE"
310  LET V=0
315  PRINT #1,L+5*N-3
320  FOR I=1 TO 3
350  INPUT A$[V+1,V+24]
360  PRINT #1;A$[V+1,V+24]
450  LET V=V+24
460  NEXT I
470  PRINT 
480  PRINT 
500  PRINT "========GET AND RUN BARKSI============"
510  END 
