1  REM ****  HP BASIC PROGRAM LIBRARY  ******************************
2  REM
3  REM       GSPMG: STANFORD PORTFOLIO MANAGEMENT GAME
4  REM       GPMS1, PART 3 OF 7 (BUILDS FILE SPRDIV)
5  REM       36502 REV A
6  REM
7  REM ****  CONTRIBUTED PROGRAM  ***********************************
40  X$="ABCDEFGHIJKLMNOPQRSTUVWXYZ "
50  DIM A$[10],V[500],X$[27]
100  FILES SPRDIV
200  PRINT "NUMBER OF SECURITIES ON THE ELIGIBLE LIST";
202  INPUT N
250  PRINT "TICKER SYMBOLS --"
300  FOR I=1 TO N
310  PRINT I;
312  INPUT A$
320  GOSUB 500
330  GOSUB 600
340  PRINT A$
350  PRINT "OK";
360  INPUT A$
370  IF A$[1,1]="N" THEN 310
380  V[I]=A9
400  NEXT I
410  READ #1,1
415  PRINT #1;TIM(3),TIM(2),TIM(1),TIM(0)
420  PRINT #1;N
425  FOR I=1 TO N
430  PRINT #1;V[I],0,0,0
435  NEXT I
440  STOP 
500  REM ------------------------
501  REM -- CONVERT SYMBOL IN A$ TO NUMBER IN A9
510  A$[LEN(A$)+1]="    "
512  A$=A$[1,4]
520  A9=0
530  FOR K=1 TO 4
540  FOR L=1 TO 27
542  IF A$[K,K]=X$[L,L] THEN 550
544  NEXT L
546  L=27
550  A9=(A9*30)+L
560  NEXT K
570  RETURN 
600  REM ------------------------
601  REM -- CONVERT SYMBOL IN A9 TO A$
610  A1=INT(A9/(30^3))
612  A8=A9-(30^3)*A1
614  A2=INT(A8/(30^2))
616  A8=A8-A2*(30^2)
618  A3=INT(A8/30)
620  A4=A8-A3*30
625  A$="    "
630  A$[1,1]=X$[A1,A1]
632  A$[2,2]=X$[A2,A2]
634  A$[3,3]=X$[A3,A3]
636  A$[4,4]=X$[A4,A4]
650  RETURN 
9999  END 
