Listing of file='STRMNU.BAS;01' on disk='vmedia/chip_90-sector.ccvf'
100 PLOT 12,14,3,18,15
110 INPUT "INSTRUCTIONS? (Y/N) ";X$:PLOT 15
120 X$= LEFT$ (X$,1):IF X$< > "Y"THEN LOAD "STREET":RUN
130 PLOT 12,6,3:PRINT :PRINT "CONGRATULATIONS! YOU HAVE BEEN NAMED TRANSPORTATION"
140 PRINT "DIRECTOR OF RIVER CITY, MICHIGAN, A CITY WITH"
150 PRINT "A DECLINING POPULATION AND SUFFERING FROM DETERIORATION"
160 PRINT "OF ITS TRANSPORTATION SERVICES OVER THE LAST FEW YEARS."
170 PRINT :PRINT "PRIOR TO HIRING YOU, THE CITY COMMISSION ADOPTED"
180 PRINT "A TEN-YEAR PLAN TO RESTORE SERVICES FOR BOTH"
190 PRINT "STREETS AND BUSES TO AN ADEQUATE LEVEL. IT IS"
200 PRINT "YOUR JOB TO CARRY OUT THIS PLAN.":PRINT
210 PRINT "TO IMPROVE STREETS YOU NEED TO CONSTRUCT SEVERAL"
220 PRINT "MILES OF INTERSTATES AND RECONSTRUCT MAJOR LOCAL"
230 PRINT "STREETS (PRIMARIES). YOU ALSO NEED TO IMPROVE"
240 PRINT "STREET CONDITIONS AND TRAFFIC SAFETY.":PRINT
250 PRINT "FOR THE TRANSIT AUTHORITY YOU HAVE TO REPLACE THE OLD"
260 PRINT "BUS FLEET, INCREASE RIDERSHIP, AND IMPROVE ON-SCHEDULE"
270 PRINT "PERFORMANCE ('SERVICE DELAY')":PRINT
280 PRINT "FOR ALL INDEX VALUES, THE HIGHER THE VALUE, THE WORSE THE"
290 PRINT "CONDITION. THE BUDGET NEEDS ARE MINIMUM VALUES."
300 PRINT "IMPROVING THE CONDITION REQUIRES MORE THAN THIS."
310 PRINT :PRINT "INITIAL CONDITIONS ARE SET RANDOMLY WITHIN REASONABLE LIMITS.":PRINT
320 PRINT "YOUR GOALS FOR THE PLAN ARE LISTED IN THE MAIN PROGRAM."
330 PLOT 3,0,29:INPUT "PRESS <RETURN> ";X$
340 PLOT 12:PRINT
350 PLOT 6,4:PRINT "HIGHWAY CONSTRUCTION:":PRINT
360 PRINT "EACH YEAR COSTS WILL RISE DUE TO INFLATION. AN INADEQUATE"
370 PRINT "MAINTENANCE PROGRAM WILL ALSO CAUSE THESE COSTS TO RISE.":PRINT
380 PLOT 6,6:PRINT "STREET CONDITIONS:":PRINT
390 PRINT "THE HIGHER THE STREET CONDITION INDEX, THE WORSE THE CONDITION."
400 PRINT "EACH YEAR THE INDEX IS ADJUSTED ACCORDING TO STREET MILEAGE"
410 PRINT "AND HOW WELL YOU BUDGET FOR STREET MAINTENANCE."
420 PRINT "YOUR MAINTENANCE COSTS ARE DETERMINED BY STREET MILEAGE,"
430 PRINT "STREET CONDITIONS, LABOR NEGOTIATIONS, AND INFLATION.":PRINT
440 PLOT 6,4:PRINT "TRAFFIC SAFETY:":PRINT
450 PRINT "AGAIN, THE HIGHER THIS INDEX, THE WORSE THE CONDITION."
460 PRINT "THIS INDEX IS ADJUSTED YEARLY ACCORDING TO CHANGES IN STREET"
470 PRINT "CONDITIONS AND HOW WELL YOU MEET YOUR BUDGET. SAFETY NEEDS"
480 PRINT "ARE DETERMINED BY THE SAME FACTORS AFFECTING STREET CONDITIONS"
490 PRINT "PLUS THE 'TRAFFIC SAFETY INDEX'.":PRINT
500 PLOT 6,6:PRINT "AGE OF BUS FLEET:":PRINT
510 PRINT "THE SIZE AND AGE OF THE FLEET ARE INCREMENTED EACH YEAR"
520 PRINT "ACCORDING TO YOUR SALE AND ACQUISITION OF BUSES. SALE IS"
530 PRINT "ASSUMED ON THE BASIS OF THE OLDEST BUSES BEING SOLD FIRST."
540 PRINT "PRICES ARE INFLUENCED BY INFLATION.":PRINT
550 PLOT 3,0,29:INPUT "PRESS <RETURN> ";X$
560 PLOT 12,6,4:PRINT "RIDERSHIP:":PRINT
570 PRINT "RIDERSHIP IS AFFECTED BY NUMBER OF ROUTES, HOURS AND DAYS OF"
580 PRINT "SERVICE, AND BUS FARE. THE 'DOWNTIME', 'SERVICE DELAY',"
590 PRINT "AND STRIKES WILL ALSO AFFECT RIDERSHIP.":PRINT
600 PLOT 6,6:PRINT "FLEET DOWNTIME:":PRINT
610 PRINT "THE HIGHER THIS VALUE, THE GREATER THE DOWNTIME. THIS INDEX IS"
620 PRINT "ADJUSTED ACCORDING TO FLEET AGE AND HOW WELL YOU MEET YOUR"
630 PRINT "MAINTENANCE BUDGET. THE MAINTENANCE NEEDS ARE DETERMINED BY"
640 PRINT "THE SIZE AND AGE OF THE FLEET, LEVEL OF SERVICE, LABOR"
650 PRINT "NEGOTIATIONS, AND INFLATION.":PRINT
660 PLOT 6,4:PRINT "SERVICE DELAY:":PRINT
670 PRINT "THE HIGHER THIS INDEX IS, THE POORER IS YOUR 'ON-SCHEDULE'"
680 PRINT "PERFORMANCE. THIS INDEX IS DETERMINED BY THE FLEET SIZE"
690 PRINT "RELATIVE TO THE NUMBER OF ROUTES, DOWNTIME, AND MEETING YOUR"
700 PRINT "OPERATIONAL BUDGET. THE NUMBER OF ROUTES, HOURS AND DAYS"
710 PRINT "OF OPERATION, LABOR NEGOTIATIONS, AND INFLATION WILL ALL"
720 PRINT "INFLUENCE THE OPERATING NEEDS. YOU SHOULD NOT LET THE AVERAGE"
730 PRINT "NUMBER OF BUSES PER ROUTE DROP BELOW THREE."
740 PLOT 3,0,29:INPUT "PRESS <RETURN> ";X$
750 PLOT 12,6,7:PRINT "THERE ARE 6 DECISION PHASES:":PRINT
760 PRINT TAB( 10)"1. TRANSIT AUTHORITY SERVICES"
770 PRINT TAB( 10)"2. BONDING"
780 PRINT TAB( 10)"3. PROPERTY TAXES"
790 PRINT TAB( 10)"4. STREET FUND BUDGET"
800 PRINT TAB( 10)"5. TRANSIT BUDGET"
810 PRINT TAB( 10)"6. LABOR NEGOTIATIONS"
820 PLOT 6,5:PRINT :PRINT
830 PRINT "TRANSIT AUTHORITY SERVICES ARE SELF-EXPLANATORY."
840 PRINT "OPERATING REVENUE INCLUDES LEFT-OVER FUNDS FROM"
850 PRINT "PREVIOUS YEARS PLUS GASOLINE TAXES AND TAX LEVIES."
860 PRINT "YOU HAVE NO DIRECT CONTROL OVER THE GASOLINE TAX."
870 PRINT "IT IS SET ACCORDING TO THE STREET MILEAGE, AND IT IS"
880 PRINT "TO YOUR BENEFIT TO CONSTRUCT NEW STREETS AS SOON AS"
890 PRINT "POSSIBLE. IN MAKING YOUR DECISIONS REMEMBER THAT THE"
900 PRINT "NEEDS SHOWN ARE THE MINIMUM VALUES REQUIRED FOR"
910 PRINT "MAINTENANCE AND SAFETY.":PRINT
920 PLOT 6,5:PRINT "BONDING IS AVAILABLE IN YEARS 3 AND 7. YOU MAY REQUEST"
930 PRINT "ANY AMOUNT UP TO THE GIVEN LIMIT. MAKING ASKED-FOR"
940 PRINT "PLEDGES WILL IMPROVE THE CHANCES OF BOND PASSAGE."
950 PLOT 3,0,29:INPUT "PRESS <RETURN> ";X$
960 PLOT 12,6,5:PRINT :PRINT "PROPERTY TAX LEVIES ARE AVAILABLE EACH YEAR."
970 PRINT "THE RETURN FROM EACH MIL WILL DEPEND ON PROPERTY VALUES."
980 PRINT "THE THEORY IS THAT STREETS WITH MORE BUS RIDERS HAVE"
990 PRINT "HIGHER PROPERTY VALUES. KEEPING UP STREETS AND BUS ROUTES"
1000 PRINT "WILL THUS BENEFIT YOU IN THIS REGARD. HOWEVER, GREED"
1010 PRINT "WILL BE YOUR DOWNFALL.":PRINT
1020 PRINT "THE STREET FUND AND TRANSIT BUDGETS ARE PRETTY MUCH"
1030 PRINT "SELF-EXPLANATORY, BUT REMEMBER THAT ADDING MORE BUSES,"
1040 PRINT "WHILE BENEFICIAL TO SOME AREAS, WILL ALSO ADD TO YOUR"
1050 PRINT "MAINTENANCE COSTS.":PRINT
1060 PRINT "LABOR NEGOTIATIONS ARE ALSO IMPORTANT. YOU MUST"
1070 PRINT "AVOID STRIKES AS THESE WILL MARKEDLY AFFECT YOUR"
1080 PRINT "PERFORMANCE FOR THAT YEAR IN AN UNDESIRABLE WAY.":PRINT
1090 PLOT 6,7:PRINT "EACH YEAR YOU WILL HAVE A PERFORMANCE REVIEW."
1100 PRINT "YOUR PERFORMANCE WILL DETERMINE HOW MANY COUNCIL VOTES"
1110 PRINT "YOU RETAIN. LOSS OF VOTES IS NOT GOOD. IF YOU FAIL TO"
1120 PRINT "RETAIN AT LEAST 6 COUNCIL VOTES, YOU WILL LOSE THE GAME."
1130 PRINT :PRINT "GOOD LUCK"
1140 PLOT 3,0,27:PRINT "YOU MAY EITHER REVIEW THE INSTRUCTIONS OR BEGIN THE GAME."
1150 PLOT 3,0,29::INPUT "DO YOU WISH TO REVIEW THE INSTRUCTIONS? (Y/N) ";X$
1160 X$= LEFT$ (X$,1):IF X$= "Y"GOTO 130
1170 IF X$< > "N"THEN PLOT 28,11:GOTO 1150
1180 LOAD "STREET":RUN