1  REM ***   HP BASIC PROGRAM LIBRARY *********************************
2  REM
3  REM       SETUPC:    2000C MANAGEMENT SIMULATION GAME   
4  REM
5  REM       36209  REV B  --  10/73   PART 1 OF 2
6  REM
7  REM ****  CONTRIBUTED PROGRAM **************************************
9  DIM A$[6]
10  DATA "GAME1","GAME2","GAME3","GAME4","GAME5","GAME6","GAME7","GAME8"
11  DATA "GAME9","GAME10"
12  DATA 0,7602,8500,5200,250,71,35.34,250,250,50,50,50,50,50,50
15  DATA 7602,8500,5200,250,71,35.34,250,250,50,50,50,50,50,50
18  DATA 7602,8500,5200,250,71,35.34,250,250,50,50,50,50,50,50
20  FILES *
30  PRINT "GAME NUMBER";
40  INPUT N
50  IF N>0 AND N <= 10 THEN 80
60  PRINT "GAME NUMBER MUST BE 1 THROUGH 10"
70  GOTO 30
80  FOR J=1 TO N
90  READ A$
100  NEXT J
110  ASSIGN A$,1,J
120  IF J <> 0 THEN 190
130  RESTORE 12
140  FOR I=1 TO 43
150  READ A
160  PRINT #1;A
170  NEXT I
180  STOP 
190  PRINT "MUST OPEN FILE FOR GAME"N
200  END 
