1  REM ****  HP BASIC PROGRAM LIBRARY  ******************************
2  REM
3  REM       GSPMG: STANFORD PORTFOLIO MANAGEMENT GAME
4  REM       GPMS2, PART 4 OF 7 (OPENS TEAM ACCOUNTS)
5  REM       36502 REV A
6  REM
7  REM ****  CONTRIBUTED PROGRAM  ***********************************
8  REM
9  REM -- PROGRAM TO SET UP INITIAL ACCOUNTS FOR PORTFOLIO MANAGEMNT SYSTEM
10  REM -- CODE FOR READING AND WRITING FILE ACCTS
11  M$="X3MLB/"
40  DIM A$[72]
50  DIM F$[5],M$[6]
100  FILES *,*SPRDIV
200  F$="ACCTS"
300  ASSIGN F$,1,R9,M$
350  IF R9=0 THEN 400
360  PRINT "THIS PROGRAM CANNOT BE USED UNTIL YOU HAVE OPENED"
361  PRINT "A FILE NAMED 'ACCTS'."
362  PRINT "DO SO, THEN RE-RUN THIS PROGRAM."
370  STOP 
400  READ #2,1
401  READ #2;X,X,X,X,N
402  T=0
403  PRINT "DONE";
404  INPUT A$
405  IF A$[1,1]="Y" THEN 500
406  T=T+1
407  PRINT "TEAM ";T;" -- PASSWORD";
408  INPUT A$
409  READ #1,(2*T)-1
410  PRINT #1;A$,TIM(3),TIM(2),TIM(1),TIM(0)
420  PRINT #1;100000.
450  FOR I=1 TO N
452  PRINT #1;0
460  NEXT I
465  PRINT 
470  GOTO 403
500  END 
