8bitfiles.net/archives

home *** CD-ROM | disk | FTP | other *** search

/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / CITY-MANAGER (.txt) < prev next >

Wrap

Commodore BASIC | 2019-04-13 | 25.8 KB | 760 lines

2 POKE53280,6:POKE53281,6 4 GOSUB10000:FORI=1TO2000:NEXT 10 DIM T$(6),T(6,11),TB(9,10),A(8,2),B(2,10),S(5,11),U(10),M(10) 20 DEF FNA(B)=RND(B)*B:REM FUNCTION: RANDOM NUMBER 30 DEF FNB(S)=INT(S*100)*.01:REM FUNCTION: TWO PLACE DECIMAL NUMBER 40 DEF FNC(Z)=INT(Z*.001):REM FUNCTION: VALUE IN THOUSANDS 50 E1$=" ":E2$=E1$+E1$:E4$=E2$+E1$+" ":GOTO580 60 REM 70 REM GOSUB: PRINT @ 80 REM 90 L%=AT/64:C%=AT-(L%*64):IF C%>40 THEN L%=L%+1:C%=C%-40 100 PRINT"" 110 FOR J=1TOL%:PRINT"";:NEXT 120 FOR J=1TOC%:PRINT"";:NEXT:RETURN 130 REM 140 REM GOSUB: GET "Y" OR "N" ANSWER 150 REM 160 GOSUB470:AT=1418:GOSUB90:PRINT "ARE YOU SURE (Y/N) "; 170 V$="":VL=0 180 PRINT" [157]";:FORJ=1TO200:NEXT:GET C$:IF C$<>"" THEN 200 190 PRINT"?[157]";:FORJ=1TO200:NEXT:GOTO180 200 IF ASC(C$)=13 AND VL=1 THEN GOSUB470:RETURN 210 IF VL=1 OR (C$<>"Y" AND C$<>"N") THEN 180 220 V$=C$:VL=1:PRINT V$;:GOTO180 230 REM 240 REM GOSUB: GET NUMBER ONLY 250 REM 260 V$="":VL=0 270 PRINT" [157]";:FORJ=1TO80:NEXT:GET C$:IF C$<>"" THEN 290 280 PRINT"?[157]";:FORJ=1TO80:NEXT:GOTO270 290 AC=ASC(C$):IF AC=13 AND VL>0 THEN 360 300 IF AC=13 THEN 270 310 IF AC=20 AND VL>0 THEN V$=LEFT$(V$,VL-1):VL=VL-1:PRINT"[157]";:GOTO270 320 IF AC=32 THEN 350 330 IF AC<46 OR AC>57 OR AC=47 THEN 270 340 V$=V$+C$:VL=LEN(V$) 350 PRINT C$;:IF VL<5 THEN 270 360 V=VAL(V$):IV=INT(V):PRINT CHR$(13):RETURN 370 REM 380 REM GOSUB: PRESS ANY KEY 390 REM 400 GOSUB470:AT=1385:GOSUB90:PRINT "[159]PRESS[153][167]F7[146][145][157][157][164][164][165][159]TO CONTINUE 410 [161] C$:[139] C$[179][177]"LET"[167] 410 420 [139] C$[178]"P" [167] [141]510 430 [153]"CONT";:[142] 440 [143] 450 [143] GOSUB: CLEAR ERROR FIELD 460 [143] 470 AT[178]1384:[141]90:[153] E4$:[142] 480 [143] 490 [143] GOSUB: SCREEN PRINT 500 [143] 510 [159] 4,4:[143] SCREEN PRINT 520 [129] LI[178]0[164]24:LI$[178]"":[129] CO[178]0[164]39 530 LI$[178]LI$[170][199]([194](1024[170]LI[172]40[170]CO)[170]64):[130] 540 [152]4,LI$:[152]4,[199](0);:[130]:[160] 4:[142] 550 [143] 560 [143] PROGRAM HEADER 570 [143] 580 [153]" 590 PRINT TAB(23)"BY 600 [153] [163]16)"KENNETH R. MURRAY"; 640 [129] X[178]1[164]2000:[130] 650 [143] 660 [143] PROGRAM INTRODUCTION 670 [143] 680 [153]"LOAD":[153][163]11)"CONGRATULATIONS !CONT 690 PRINT" YOU HAVE BEEN NAMED TRANSPORTATION 700 [153]" DIRECTOR FOR A CITY WITH A DECLINING 710 PRINT" POPULATION AND WHICH HAS SUFFERED 720 [153]" DETERIORATION OF ITS TRANSPORTATION 730 PRINT" SERVICES OVER THE LAST SEVERAL YEARS. 740 [153]" PRIOR TO YOUR BEING HIRED, THE CITY 750 PRINT" COMMISSION ADOPTED A TEN-YEAR PLAN TO 760 [153]" RESTORE SERVICES FOR STREETS AND BUSES 770 PRINT" TO AN ADEQUATE LEVEL. IT WILL BE YOUR 780 [153]" RESPONSIBILITY TO CARRY OUT THIS PLAN. 790 PRINT" FOR THE STREET FUND, YOU WILL NEED TO 800 [153]" CONSTRUCT SEVERAL MILES OF INTERSTATE 810 PRINT" HIGHWAYS AND RECONSTRUCT MAJOR LOCAL 820 [153]" STREETS (CALLED PRIMARIES). YOU WILL 830 PRINT" ALSO NEED TO IMPROVE STREET CONDITIONS 840 [153]" AND TRAFFIC SAFETY. 850 S$(1)="BUS RIDERS(1000)":S$(2)="FLEET AGE " 860 S$(3)="DOWNTIME ":S$(4)="SERVICE DELAY" 870 S$(5)="FLEET SIZE" 880 T$(2)="PRIMARY STREET MILEAGE":T$(3)="INTERSTATE MILEAGE" 890 T$(4)="STREET CONDITION INDEX":T$(5)="TRAFFIC SAFETY INDEX " 900 YR=0:CV=11:G1=0:G3=0:B=50:P1=120000:P2=75000:M9=FNA(150)*1000 910 CI=(((FNA(250)+250)*1000)+1000000)/2 920 MI=FNA(5000)+35000 930 T(1,YR)=450+FNA(100):T(2,YR)=85+FNA(25):T(3,YR)=0 940 T(4,YR)=FNA(50)*.1+6:T(5,YR)=FNA(50)*.1+6 950 XX=3000+FNA(3000):XY=7000+FNA(3000):XZ=20000+FNA(8000) 960 T(6,YR)=(XX*T(1,YR))+(XY*T(2,YR)) 970 TB(1,YR)=(T(6,YR)/1.6)+300000:PT=TB(1,YR)*(((30+FNA(20))*.01)) 980 TB(8,YR)=TB(1,YR)+PT:TB(2,YR)=1 990 TB(3,YR)=(FNA(500)*1000)+2100000:TB(9,YR)=TB(3,YR) 1000 MN=(T(1,YR)*MI*.16*(T(4,YR)*.1))+(T(2,YR)*MI*.5*(T(4,YR)*.1))+(T(3,YR)*MI) 1010 SN=MN*.04*T(5,YR):TB(6,YR)=MN:TB(7,YR)=SN 1020 S(1,YR)=FNA(350)*1000+550000:S(5,YR)=INT(FNA(10)+15) 1030 M1=INT(FNA(3000)+5000):BF=0:M3=200 1040 FOR X=1TOS(5,YR):BF=BF+FNA(12)+3:NEXT 1050 S(2,YR)=INT((BF/S(5,YR))*10)*.1:M2=(M1*S(5,YR))+(M3*BF) 1060 S=(FNA(300)+500)*.01:S1=6:S2=12:S3=6:M5=(S1*S2*S3*312*S)+M9 1070 S4=.35:B(1,YR)=(FNA(500)*1000)+200000 1080 S(3,YR)=INT(S(2,YR)/3)+6+(FNA(50)*.1):S(4,YR)=INT(S(3,YR)/3)+6+(FNA(50)*.1) 1090 S(1,YR)=S(1,YR)-(((S(3,YR)+S(4,YR))*.01)*S(1,YR)):BE=M5:M2=M2+(M5*.1):BD=M2 1100 T(4,11)=INT(T(4,YR)*.4):T(5,11)=INT(T(5,YR)*.4) 1110 S(1,11)=S(1,YR)*4:S(2,11)=INT(S(2,YR)*.4):S(3,11)=INT(S(3,YR)*.4) 1120 S(4,11)=INT(S(4,YR)*.4):T(2,11)=44+T(2,YR):T(3,11)=16 1130 REM 1140 REM PROGRAM GUIDELINES 1150 REM 1160 GOSUB400:PRINT"[147] FOR THE TRANSIT AUTHORITY SERVICE 1170 [153][163]14)"OPENYOU HAVE TO: 1180 PRINT">>> [154]INCREASE NUMBER OF BUS RIDERS 1190 [153]"OPEN>>> CONTREPLACE A DELAPIDATED BUS FLEET 1200 PRINT"[159]>>> [154]REDUCE THE MAINTENANCE DOWNTIME 1210 [153]"OPEN>>> CONTIMPROVE THE ON-SCHEDULE SERVICE 1220 PRINT" (ALSO REFERED TO AS SERVICE DELAY) 1230 [153]"FOR ALL INDICES USED, THE HIGHER THE 1240 PRINT"INDEX VALUE, THE WORSE THE CONDITION 1250 [153]"INDICATED. THE BUDGET NEEDS LISTED ARE 1260 PRINT"THE MINIMUM NEEDED TO MAINTAIN THE INDEX"; 1270 PRINT"AT ITS PRESENT LEVEL. IMPROVING THE 1280 [153]"LEVEL REQUIRES BUDGETS THAT ARE HIGHER 1290 PRINT"THAN THE MINIMUM NEEDS. 1300 [153]"** CONTDO NOT USE COMMAS OR DOLLAR SIGNS ** ":[141]400 1310 [143] 1320 [143] PROGRAM GOALS 1330 [143] 1340 [153]"LOAD YOUR GOALS FOR THE PLAN ARE:" 1350 [153]" STANDARD";[163]24)"PRESENT GOAL 1360 FORX=2TO5:PRINT T$(X)TAB(23)FNB(T(X,YR))TAB(31)FNB(T(X,11)):NEXT 1370 PRINT""S$(1)TAB(23)FNC(S(1,YR))TAB(31)FNC(S(1,11)) 1380 FORX=2TO4 1390 PRINTS$(X)TAB(23)FNB(S(X,YR))TAB(31)FNB(S(X,11)):NEXT 1400 PRINTTAB(14)"GOOD LUCK! 1410 YR[178]YR[170]1 1420 [129] X[178]1[164]5:S(X,YR)[178]S(X,YR[171]1):[130] 1430 [129] X[178]1[164]6:T(X,YR)[178]T(X,YR[171]1):[130] 1440 [129] X[178]1[164]9:TB(X,YR)[178]TB(X,YR[171]1):[130] 1450 B(1,YR)[178]B(1,YR[171]1):B(2,YR)[178]B(2,YR[171]1):GG[178]0:[139] [165]A(10)[179]5 [167] GG[178]([165]A(6)[172]P1) 1460 B(2,YR)[178]B(2,YR)[170]GG:[139] B(2,YR)[177]P1[172]10 [167] B(2,YR)[178]P1[172]10 1470 [139] YR[178]1 [167]1490 1480 I[178]([165]A(10)[170]5)[172].01:P1[178]P1[170](P1[172]I):P2[178]P2[170](P2[172]I):M9[178]M9[170](M9[172]I) 1490 B(1,YR)[178]B(1,YR[171]1):B(2,YR)[178]B(2,YR[171]1):GG[178]0:[139] [165]A(10)[179]5 [167] GG[178][165]A(6)[172]P1 1500 B(2,YR)[178]B(2,YR)[170]GG:[139] YR[178]1 [167] 1670 1510 MI[178]MI[170](MI[172]I):CI[178]CI[170](CI[172]I):TB(1,YR)[178]TB(1,YR)[170](TB(1,YR)[172]I) 1520 [139] YR[177]2 [175] T(4,YR)[177]T(4,YR[171]2) [167] CI[178]CI[172]1.1 1530 M1[178]M1[170](M1[172]I):M3[178]M3[170](M3[172]I):M2[178](M1[172]S(5,YR))[170](M3[172]BF) 1540 [139] I[177].11 [167] T(1,YR)[178]T(1,YR)[170][165]A(7) 1550 [139] I[179][178].11 [175] I[177].08 [167] T(1,YR)[178]T(1,YR)[170][165]A(15) 1560 [139] I[179][178].08 [167] T(1,YR)[178]T(1,YR)[170][165]A(22) 1570 T(6,YR)[178]T(6,YR)[170](XX[172](T(1,YR)[171]T(1,YR[171]1)))[170](XY[172](T(2,YR)[171]T(2,YR[171]2))) 1580 T(6,YR)[178]T(6,YR)[170](XZ[172](T(3,YR)[171]T(3,YR[171]2))) 1590 TB(1,YR)[178]((T(6,YR))[173]1.6)[170](TB(1,YR)[172]I) 1600 PT[178]PT[170](PT[172](I[170].02))[170](PT[172](((S(5,YR)[171]S(5,YR[171]1))[173]S(5,YR[171]1))[173]2)) 1610 TB(3,YR)[178]TB(3,YR)[170](TB(3,YR)[172](I[171].02)):S(1,YR)[178]S(1,YR)[170](S(1,YR)[172].02) 1620 TB(9,YR)[178]TB(9,YR)[170]TB(3,YR)[170]B1 1630 TB(8,YR)[178]TB(8,YR)[170]TB(1,YR) 1640 MN[178](T(1,YR)[172]MI[172].16[172](T(4,YR)[172].1))[170](T(2,YR)[172]MI[172].5[172](T(4,YR)[172].1))[170]T(3,YR)[172]MI 1650 MN[178](MN[172].6)[170]((MN[172].4)[172](1[170]U[172].01)) 1660 SN[178]MN[172].04[172]T(5,YR):SN[178](SN[172].6)[170]((SN[172].4)[172](1[170]U[172].01)) 1670 [141]400 1680 [143] 1690 [143] TRANSIT AUTHORITY OPTIONS 1700 [143] 1710 [153]"LOAD":[153][163]9)"TRANSIT AUTHORITY SERVICE 1720 PRINTTAB(12)"CHANGE OPTIONS ARE: 1730 [153][163]11)"1 - NUMBER OF ROUTES":[153][163]11)"2 - HOURS OF OPERATION 1740 PRINTTAB(11)"3 - DAYS OF SERVICE":PRINTTAB(11)"4 - FARE CHARGES 1750 [153][163]11)"5 - TO CONTINUE 1760 PRINTTAB(11)"WHAT IS YOUR CHOICE? "; 1770 GOSUB260:IF V<1ORV>6 GOTO 1770 1780 ON V GOTO1790,1850,1980,2080,2250 1790 PRINTTAB(6)"PRESENT NUMBER OF ROUTES =";S1 1800 AT=938:GOSUB90:PRINT"NEW NUMBER OF ROUTES(FROM 6 TO 25) ";:GOSUB260 1810 IF IV<>V THEN 2180 1820 IF IV<6 OR IV>25 THEN 2190 1830 S1(1)=V 1840 GOTO1710 1850 PRINT" POSSIBLE HOURS OF OPERATION ARE:":IF S2=12THENS2=1 1860 IF S2=17 THEN S2=2 1870 IF S2=24 THEN S2=3 1880 AT=973:GOSUB90:PRINT"1 - 6AM TO 6PM" 1890 PRINTTAB(13)"2 - 6AM TO 11PM" 1900 PRINTTAB(13)"3 - 24 HOURS 1910 [153][163]12)"CURRENT OPTION =";S2 1920 AT[178]1228:[141]90:[153]" NEW HOURS ";:[141]260 1930 [139] IV[179][177]V [176] IV[179]1 [176] IV[177]3 [167] 2200 1940 [139] V[178]1 [167] S2(1)[178]12 1950 [139] V[178]2 [167] S2(1)[178]17 1960 [139] V[178]3 [167] S2(1)[178]24 1970 [137]1710 1980 [153]" POSSIBLE DAYS OF SERVICE ARE: 1990 IF S3=6 THEN S3=1 2000 IF S3=7 THEN S3=2 2010 AT=904:GOSUB90:PRINT"1 - MONDAY THROUGH SATURDAY 2020 [153][163]8)"2 - MONDAY THROUGH SUNDAY" 2030 [153][163]12)"CURRENT OPTION =";S3 2040 AT[178]1292:[141]90:[153]"NEW DAYS ";:[141]260 2050 [139] IV[179][177]V [176] V[179]1 [176] V[177]2 [167] 2210 2060 S3(1)[178]V[170]5 2070 [137]1710 2080 AT[178]750:[141]90:[153]"FARE CHANGES IN .05 INCREMENTS 2090 PRINTTAB(12)"MINIMUM FARE = .25 2100 [153][163]12)"MAXIMUM FARE = 1.00 2110 PRINTTAB(12)"CURRENT FARE = ";S4 2120 AT=1228:GOSUB90:PRINT"NEW FARE ";:GOSUB260 2130 IF LEN(V$)=2 THEN V$=V$+"0" 2140 IF RIGHT$(V$,1)<>"0" AND RIGHT$(V$,1)<>"5" THEN 2230 2150 IF V<.25 OR V>1. THEN 2220 2160 S4(1)=V 2170 GOTO1710 2180 GOSUB470:AT=1414:GOSUB90:PRINT"YOU MUST ENTER A WHOLE NUMBER":GOTO1800 2190 GOSUB470:AT=1414:GOSUB90:PRINT"YOUR NUMBER IS OUTSIDE RANGE":GOTO1800 2200 GOSUB470:AT=1414:GOSUB90:PRINT"YOUR OPTION MUST BE 1,2,OR 3":GOTO1880 2210 GOSUB470:AT=1415:GOSUB90:PRINT"YOUR OPTION MUST BE 1 OR 2":GOTO2010 2220 GOSUB470:AT=1415:GOSUB90:PRINT"YOUR FARE IS OUTSIDE RANGE":GOTO2080 2230 GOSUB470:AT=1411:GOSUB90:PRINT"YOUR FARE MUST BE IN .05 INCREMENTS 2240 [137] 2080 2250 S6[178]0:[139] S1(1)[178]0[175]S2(1)[178]0[175]S3(1)[178]0[175]S4(1)[178]0[167] 2390 2260 [139] S3(1)[179][177]0 [175] S3(1)[171]S3[178]5 [167] S6[178]S6[170](([165]A(15000)[170]75000)[172]S1) 2270 [139] S3(1)[179][177]0 [175] S3(1)[171]S3[178]7 [167] S6[178]S6[170](([165]A(25000)[170]90000)[172]S1) 2280 [139] S3(1)[179][177]0 [175] S3(1)[171]S3[178]12[167] S6[178]S6[170](([165]A(30000)[170]110000)[172]S1) 2290 [139] S3(1)[179][177]0 [175] S3[171]S3(1)[178]5 [167] S6[178]S6[171](([165]A(15000)[170]75000)[172]S1) 2300 [139] S3(1)[179][177]0 [175] S3[171]S3(1)[178]7 [167] S6[178]S6[171](([165]A(25000)[170]90000)[172]S1) 2310 [139] S3(1)[179][177]0 [175] S3[171]S3(1)[178]12[167] S6[178]S6[171](([165]A(30000)[170]110000)[172]S1) 2320 [139] S1(1)[179][177]0 [167] S6[178]S6[170](((100[170][165]A(120))[172]500)[172](S1(1)[171]S1)) 2330 [139] S2(1)[179][177]0 [175] S2(1)[177]0 [167] S6[178]S6[170]([165]A(10000)[170]15000)[172](S2(1)[171]S2) 2340 [139] S4(1)[179][177]0 [175] S4(1)[177]S4 [167] S6[178]S6[171](((S4(1)[171]S4)[173]5)[172]2000) 2350 [139] S1(1)[177]0 [167] S1[178]S1(1) 2360 [139] S2(1)[177]0 [167] S2[178]S2(1) 2370 [139] S3(1)[177]0 [167] S3[178]S3(1) 2380 [139] S4(1)[177]0 [167] S4[178]S4(1) 2390 S1(1)[178]0:S2(1)[178]0:S3(1)[178]0:S4(1)[178]0 2400 [139] YR[179][177]3 [175] YR[179][177]7 [167] 3280 2410 B9[178]B1:B8[178]DG:B1[178]2000000:[139] YR[178]3 [167] B1[178]1500000 2420 [143] 2430 [143] BOND PROPOSAL 2440 [143] 2450 [153]"LOAD *** STREET FUND BOND PROPOSAL ***" 2460 [153]"YOU MAY PROPOSE BONDING UP TO $"[181](B1) 2470 [153]" SUBJECT TO APPROVAL OF THE 2480 PRINT" CITY COMMISSION AND A CITIZENS VOTE 2490 [153]"HOW MUCH DO YOU PROPOSE (IN THOUSANDS)? 2500 AT=646:GOSUB90:PRINT"(ENTER '0' IF NONE) ? ";:GOSUB260 2510 IF V=0 THEN 3280 2520 V=V*1000:IF V<0 OR V>B1 THEN 2500 2530 B1=V:IF B1<35000 THEN 2560 2540 IF CV<8 THEN B1=B1-(FNA(35)*10000) 2550 IF CV>10THEN B1=B1-(FNA(20)*10000) 2560 PRINT" THE COMMISSION HAS APPROVED A BOND 2570 [153]" REFERENDUM FOR $";[165]B(B1);"EACH YEAR 2580 REM 2590 REM BOND PLEDGES 2600 REM 2610 GOSUB400:PRINT"[147] COALITION OF NEIGHBORHOOD ASSOCIATIONS 2620 [153]" HAS ASKED YOU TO MAKE THE FOLLOWING 2630 PRINT" PLEDGES FOR THE NEXT THREE YEARS 2640 [153][163]8)"ANSWER WITH A 'Y' OR 'N' 2650 B2=T(4,0)-2:IF T(4,YR)<T(4,0) THEN B2=T(4,YR)-2 2660 IF B2<1 THEN B2=1 2670 B2=T(5,0)-2:IF T(5,YR)<T(5,0) THEN B3=T(5,YR)-2 2680 IF B3<1 THEN B3=1 2690 B4=20:IF G1>22 THEN B4=44-G1 2700 B5=6:IF G3>11 THEN B5=16-G3 2710 PRINT"1 LOWER STREET CONDITION INDEX TO"FNB(B2) 2720 PRINT"2 LOWER TRAFFIC SAFETY INDEX TO"FNB(B3) 2730 PRINT"3 CONSTRUCT"INT(B4)"MILES OF PRIMARIES" 2740 PRINT"4 CONSTRUCT"INT(B5)"MILES OF INTERSTATES" 2750 PRINT" PLEDGE 1 PLEDGE 2 PLEDGE 3 PLEDGE 4" 2760 AT=904:GOSUB90: 2770 GOSUB170:IF V$="N" THEN B2=0 2780 AT=914:GOSUB90 2790 GOSUB170:IF V$="N" THEN B3=0 2800 AT=924:GOSUB90 2810 GOSUB170:IF V$="N" THEN B4=0 2820 AT=934:GOSUB90 2830 GOSUB170:IF V$="N" THEN B5=0 2840 AT=1354:GOSUB90:PRINT"FOR ELECTION RESULTS "; 2850 REM 2860 REM BOND ELECTION RESULTS 2870 REM 2880 GOSUB400:PRINT"[147] *** BOND ELECTION RESULTS *** 2890 [153]"WARD: YES NO TOTAL: YES NO" 2900 V5[178]0:V6[178]0 2910 V1[178]4000:[139] CV[177]9 [167] V1[178]5000 2920 [139] T(4,YR)[179]T(4,YR[171]1) [175] T(4,YR)[179]T(4,0) [167] V1[178]V1[170]500 2930 [139] T(5,YR)[179]T(5,YR[171]1) [175] T(5,YR)[179]T(5,0) [167] V1[178]V1[170]500 2940 [139] YR[178]7 [167] 2970 2950 [139] B1[179]1100000 [167] V1[178]V1[170]500 2960 [137] 2980 2970 [139] B1[179]1600000 [167] V1[178]V1[170]500 2980 [139] B2[177]0 [167] V1[178]V1[170]500 2990 [139] B3[177]0 [167] V1[178]V1[170]500 3000 [139] B4[177]0 [167] V1[178]V1[170]500 3010 [139] B5[177]0 [167] V1[178]V1[170]500 3020 V2[178][165]A(5) 3030 [129] X[178]1[164]5 3040 [139] X[178]V2 [167] 3070 3050 V3[178]V1[170][165]A(11000) 3060 [137] 3090 3070 V3[178](V1[173]2)[170][165]A(12000) 3080 [139] V3[179]3000 [167] V3[178]4000 3090 V4[178]21000[171]V3:V5[178]V5[170]V3:V6[178]V6[170]V4 3100 [153]" "X[163]6)[181](V3)[163]13)[181](V4)[163]25)[181](V5)[163]32)[181](V6):[153]" 3110 NEXT 3120 IF V5<=V6 THEN 3180 3130 PRINT" CONGRATULATIONS[154] - BOND ISSUE APPROVED 3140 [153]" YOUR ANNUAL DEBT PAYMENT IS NOW 3150 DG=PT*.35:PRINTTAB(13)FNC(DG)"THOUSAND 3160 TB(9,YR)[178]TB(9,YR)[170]B1:B[178]B[171]10:DG[178]DG[170]B8:B1[178]B1[170]B9 3170 [137] 3240 3180 [153][163]7)"THE REFERENDUM HAS FAILED 3190 IF V6/(V5+V6)<(55+FNA(15))*.01 THEN 3230 3200 PRINT" BECAUSE OF THE MARGIN OF DEFEAT 3210 [153]"YOU HAVE LOST THE VOTE OF A COMMISSIONER":CV[178]CV[171]1 3220 [143] IF CV<6 THEN 2530 3230 B1[178]B9:B2[178]0:B3[178]0:B4[178]0:B5[178]0 3240 [141]400 3250 [143] 3260 [143] PROPERTY TAX LEVY 3270 [143] 3280 [153]"LOAD *** PROPERTY TAX LEVY *** 3290 M5=(S1*S2*S3*312*S)+M9:M2=M2+(M5*.1) 3300 B(1,YR)=B(1,YR)+(S4*S(1,YR))+((M2+M5)/2) 3310 PRINTTAB(19)"STREET"TAB(30)"TRANSIT" 3320 PRINT" (IN THOUSANDS)"; 3330 PRINTTAB(20)"FUND"TAB(29)"AUTHORITY 3340 [153]"OPERATING NEEDS"[163]19)[165]C(MN[170]SN[170]DG)[163]30)[165]C(M2[170]M5) 3350 [153]"NON-TAX REVENUE"[163]19)[165]C(TB(8,YR))[163]30)[165]C(B(1,YR)) 3360 X1[178]M2[170]M5[171]B(1,YR):[139] M2[170]M5[171]B(1,YR)[179]0 [167] X1[178]0 3370 [153]"TAXES NEEDED"; 3380 [153] [163]19)[165]C(MN[170]SN[170]DG[171]TB(8,YR))[163]30)[165]C(X1) 3390 TN[178][181](((MN[170]SN[170]DG[170]X1[171]TB(8,YR))[173]PT)[172]10)[172].1 3400 [153][163]8)"YIELD OF ONE MILL:"[163]19)[165]C(PT) 3410 [153]"TOTAL PROPERTY TAX NEEDED:"TN"MILLS" 3420 AT[178]744:[141]90:[153]"WHAT PROPERTY TAX (0-10 MILLS)? "; 3430 [141]260:TB(2,YR)[178]V:[139] TB(2,YR) [177][178]0 [175] TB(2,YR)[179][178]10 [167] 3450 3440 AT[178]1417:[141]90:[153]"YOU CANNOT EXCEED LIMITS":[137]3420 3450 [139] TB(2,YR)[179][178]TB(2,YR[171]1) [167] 3600 3460 X1[178]0:X2[178]0 3470 [129] X[178]1[164]11 3480 [139] CV[177]9 [167] 3510 3490 X3[178][165]A(8):[139] X[179][178]CV [167] X3[178][165]A(5) 3500 [137] 3530 3510 [139] X[179][178]2 [167] X3[178][165]A(4) 3520 [139] X[177]2 [175] X[179][178]CV [167] X3[178][165]A(5) 3530 [139] X[177]CV [167] X3[178][165]B(8) 3540 [139] X3[179][178]3 [167] X1[178]X1[170]1 3550 [139] X3[177]3 [167] X2[178]X2[170]1 3560 [130] 3570 [139] X1[177][178]6 [167] 3600 3580 [139] TB(2,YR)[177]TN [167] TB(2,YR)[178]TB(2,YR)[171](.1[172](X2[170]1)) 3590 [139] TB(2,YR)[179]0 [167] TB(2,YR)[178]1 3600 AT[178]872:[141]90:[153]"CITY COMMISSION APPROVES LEVY OF ";:[153] TB(2,YR) 3610 AT[178]1000:[141]90:[153]"HOW MANY MILLS FOR THE STREET FUND? ";:[141]260:T8[178]V 3620 [139] T8[179][178]TB(2,YR) [167] 3640 3630 AT[178]1410:[141]90:[153]"CANNOT ALLOCATE MORE THAN AUTHORIZED":[137]3610 3640 TB(8,YR)[178]TB(8,YR)[170](PT[172]T8)[171]DG:B(1,YR)[178]B(1,YR)[170](PT[172](TB(2,YR)[171]T8)) 3650 C[178]0:[137]3700 3660 C[178]1 3670 [143] 3680 [143] STREET FUND BUDGET DECISIONS 3690 [143] 3700 [141]400:[153]"LOAD STREET FUND BUDGET DECISIONS: YEAR"YR 3710 [153]"(IN THOUSANDS)"; 3720 [153][163]16)"OPERATIONS CONSTRUCTION 3730 PRINT" AVAILABLE"TAB(18)FNC(TB(8,YR))TAB(30)FNC(TB(9,YR)) 3740 PRINT"PRIMARY ROADS (COST/.5MI)"TAB(30)FNC(CI*.2) 3750 PRINT"INTERSTATES (COST/.5MI)"TAB(30)FNC(CI) 3760 PRINT"MAINT NEEDS"TAB(18)FNC(MN) 3770 PRINT"SAFETY NEEDS"TAB(18)FNC(SN) 3780 PRINT:IF C=1 THEN 3930 3790 PRINTTAB(8)"YOU MAY TRANSFER UP TO"INT(B)"% 3800 [153][163]5)"1 - OPERATIONS TO CONSTRUCTION" 3810 [153][163]5)"2 - CONSTRUCTION TO OPERATIONS" 3820 [153][163]5)"3 - NO TRANSFER" 3830 AT[178]1102:[141]90:[153]"WHICH OPTION? ";:[141]260 3840 [139] IV[179][177]V [176] V[179]1 [176] V[177]3 [167] 3830 3850 O[178]V:[139] O[178]3 [167] 3660 3860 AT[178]1216:[141]90:[153]"TRANSFER HOW MUCH (IN THOUSANDS)? ";:[141]260 3870 T[178]V[172]1000 3880 [139] O[178]1 [175] T[179]TB(8,YR)[172](B[172].01) [167] 3910 3890 [139] O[178]2 [175] T[179]TB(9,YR)[172](B[172].01) [167] 3920 3900 [141]470:AT[178]1414:[141]90:[153]"YOUR NUMBER IS OUTSIDE LIMIT":[137]3860 3910 TB(8,YR)[178]TB(8,YR)[171]T:TB(9,YR)[178]TB(9,YR)[170]T:[137]3660 3920 TB(8,YR)[178]TB(8,YR)[170]T:TB(9,YR)[178]TB(9,YR)[171]T:[137]3660 3930 [153]"ENTER NUMBER OF .5MI CONSTRUCTION UNITS 3940 PRINT"ENTER MAINT AND SAFETY IN THOUSANDS" 3950 PRINT"PRIMARIES INTERSTATES MAINT SAFETY" 3960 PRINT"LAST YEAR 3970 [153][163]3)[181](PC)[163]15)[181](IC)[163]24)[165]C(TB(6,YR[171]1)); 3980 [153][163]32)[165]C(TB(7,YR[171]1)) 3990 [153]"THIS YEAR 4000 AT=1220:GOSUB90:GOSUB260 4010 IF IV<>V THEN 4180 4020 PC=V:IF G1+(PC/2)>44THEN 4200 4030 AT=1232:GOSUB90:GOSUB260 4040 IF IVT<>V THEN 4210 4050 IC=V:IF T(3,YR)+(IC/2)>16 THEN 4220 4060 IF (PC*(CI*.2))+(IC*CI)>TB(9,YR) THEN 4230 4070 AT=1241:GOSUB90:GOSUB260:VL=VL+4 4080 IF VL<LEN(STR$(MN))+1 AND V>100 THEN T1=V*1000:GOTO4110 4090 GOSUB160:IF V$="Y" THEN 4110 4100 GOTO4070 4110 AT=1249:GOSUB90:GOSUB260:VL=VL+4 4120 IF VL<LEN(STR$(SN))+1 AND V>100 THEN T2=V*1000:GOTO4150 4130 GOSUB160:IF V$="Y" THEN 4150 4140 GOTO4110 4150 IF T1+T2>TB(8,YR) THEN 4250 4160 IF T1+T2>TB(8,YR) THEN 4250 4170 GOTO4270 4180 GOSUB470:AT=1415:GOSUB90:PRINT"YOU MUST ENTER A WHOLE NUMBER 4190 AT[178]1216:[141]90:[153] E2$:[137]4000 4200 [141]470:AT[178]1412:[141]90:[153]"CANNOT BUILD THAT MANY MORE UNITS":[137]4190 4210 [141]470:AT[178]1415:[141]90:[153]"YOU MUST ENTER A WHOLE NUMBER":[137]4030 4220 [141]470:AT[178]1412:[141]90:[153]"CANNOT BUILD THAT MANY MORE UNITS":[137]4030 4230 [141]470:AT[178]1410:[141]90:[153]"CONSTRUCTION PROGRAM EXCEEDS BUDGET 4240 AT=1216:GOSUB90:PRINT E2$:GOTO4000 4250 AT=1410:GOSUB90:PRINT"MAINT & SAFETY BUDGET EXCEEDS FUNDS 4260 AT[178]1236:[141]90:[153] E2$:[137]4070 4270 TB(6,YR)[178]T1:TB(7,YR)[178]T2 4280 T(2,YR)[178]T(2,YR)[170]PC[173]2:T(3,YR)[178]T(3,YR)[170]IC[173]2 4290 TB(8,YR)[178]TB(8,YR)[171]TB(6,YR)[171]TB(7,YR) 4300 TB(9,YR)[178]TB(9,YR)[171](PC[172]CI[172].2)[171](IC[172]CI) 4310 T(4,YR)[178]T(4,YR)[171]([181](((TB(6,YR)[171]MN)[173]MN)[172]18)[172].1) 4320 [139] T(4,YR)[179]1 [167] T(4,YR)[178]1 4330 T(5,YR)[178]T(5,YR)[171]([181](((TB(7,YR)[171]SN)[173]SN)[172]18)[172].1) 4340 [139] T(4,YR)[177]T(4,YR[171]1) [167] T(5,YR)[178]T(5,YR)[170].2 4350 [139] T(5,YR)[179]1 [167] T(5,YR)[178]1 4360 C[178]0:[137]4410 4370 C[178]1 4380 [143] 4390 [143] TRANSIT FUND BUDGET DECISIONS 4400 [143] 4410 [141]400:[153]"LOADTRANSIT FUND BUDGET DECISIONS: YEAR"YR 4420 [153]"(IN THOUSANDS)"; 4430 [153][163]16)"OPERATIONS BUS FLEET 4440 PRINT" AVAILABLE "TAB(18)FNC(B(1,YR))TAB(32)FNC(B(2,YR))" 4450 [153]"ACQUISTIONS (COST /BUS)"[163]32)[165]C(P1) 4460 [153]"BUS SALES (PRICE/BUS)"[163]32)[165]C(P2) 4470 [153]"MAINT NEEDS"[163]18)[165]C(M2) 4480 [153]"OPERATIONS "[163]18)[165]C(M5) 4490 [139] C[178]1 [167] 4640 4500 [139] GG[179][178]0 [167] 4530 4510 AT[178]832:[141]90:[153]" FEDERAL GRANT PREVENTS TRANSFER FROM 4520 PRINTTAB(8)"OPERATIONS TO ACQUISITION":GOTO4590 4530 PRINTTAB(5)"YOU MAY TRANSFER UP TO 25% FROM 4540 [153][163]8)"OPERATIONS TO ACQUISTIONS 4550 AT=903:GOSUB90:PRINT"HOW MUCH (IN THOUSANDS)? ";:GOSUB260:Z=V*1000 4560 IF Z>=0 AND Z<=B(1,YR)/4 THEN 4580 4570 GOSUB470:AT=1414:GOSUB90:PRINT"YOUR NUMBER IS OUTSIDE LIMIT":GOTO4550 4580 B(2,YR)=B(2,YR)+Z:B(1,YR)=B(1,YR)-Z 4590 AT=1032:GOSUB90:PRINT"HOW MANY BUSES TO SELL? ";:GOSUB260:NB=V 4600 IF NB>S(5,YR) OR NB<0 OR IVT<>V THEN 4590 4610 IF NB=0 THEN 4370 4620 BF=BF-((S(2,YR)*2)*NB):S(5,YR)=S(5,YR)-NB:M2=(M1*S(5,YR))+(M3*MF) 4630 B(2,YR)=B(2,YR)+(NB*P2):GOTO4370 4640 PRINT" ENTER BUDGETS IN THOUSANDS 4650 [153]"MAINTENANCE OPERATIONS NEW BUSES 4660 PRINT"LAST YEAR":PRINTTAB(3)FNC(BD)TAB(18)FNC(BE)TAB(33)INT(BN) 4670 PRINT"THIS YEAR 4680 AT[178]1132:[141]90:[141]260:BD[178]V[172]1000 4690 [139] BD[179]0 [167] [141]5000:[137]4680 4700 [139] BD[177]100000 [167]4730 4710 [141]160:[139] V$[178]"Y" [167] 4730 4720 [137]4680 4730 [139] [195]([196](BD))[177][195]([196](M2))[170]1 [167] 4920 4740 AT[178]1171:[141]90:[141]260:BE[178]V[172]1000 4750 [139] BD[179]0 [167] [141]5000:[137]4740 4760 [139] BD[177]100000 [167]4790 4770 [141]160:[139] V$[178]"Y" [167] 4790 4780 [137]4740 4790 [139] [195]([196](BE))[177][195]([196](M5))[170]1 [167] 4940 4800 [139] BD[170]BE[177]B(1,YR) [167] 4960 4810 AT[178]1186:[141]90:[141]260:BN[178]V 4820 [139] BN[177]100[171]S(5,YR) [167] 4980 4830 [139] BN[179]0 [167] [141]5000 4840 [139] BN[177][178]0 [167] 4870 4850 [137]4810 4860 [139] [181](BN)[179][177]BN [167] 5030 4870 [139] BN[172]P1[177]B(2,YR) [167] 5010 4880 B(2,YR)[178]B(2,YR)[171](P1[172]BN):S(5,YR)[178]S(5,YR)[170]BN:BF[178]BF[171]BN 4890 BF[178]BF[170]S(5,YR):S(2,YR)[178][181]((BF[173]S(5,YR))[172]10)[172].1 4900 B(1,YR)[178]B(1,YR)[171](BD[170]BE) 4910 [137]5050 4920 [141]160:[139] V$[178]"Y" [167] 4740 4930 [137]4680 4940 [141]160:[139] V$[178]"Y" [167] 4800 4950 [137]4740 4960 [141]470:AT[178]1408:[141]90:[153]"OPERATIONS & MAINTENANCE EXCEED FUNDS 4970 AT=1128:GOSUB90:PRINTE4$:GOTO4680 4980 GOSUB470:AT=1415:GOSUB90:PRINT"CAN PURCHASE ONLY"INT(100-S(5,YR))"BUSES 4990 [137]4810 5000 [141]470:AT[178]1411:[141]90:[153]"YOU CANNOT ENTER A NEGATIVE NUMBER":[142] 5010 [141]470:AT[178]1411:[141]90:[153]"PROPOSED ACQUISTION EXCEEDS BUDGET 5020 AT=1183:GOSUB90:PRINTE2$:GOTO4810 5030 GOSUB470:AT=1413:GOSUB90:PRINT"YOU MUST ENTER A WHOLE NUMBER 5040 [137]5020 5050 S(3,YR)[178]S(3,YR)[171]([181](((BD[171]M2)[173]M2)[172]18)[172].1) 5060 [139] S(2,YR)[177]S(2,YR[171]1) [167] S(3,YR)[178]S(3,YR)[170].2 5070 [139] S(3,YR)[179]1 [167] S(3,YR)[178]1 5080 S(4,YR)[178]S(4,YR)[171]([181](((BE[171]M5)[173]M5)[172]18)[172].1) 5090 [139] S(3,YR)[177]S(3,YR[171]1) [167] S(3,YR)[178]S(3,YR)[170].2 5100 [139] S(5,YR)[173]S1[179]3 [167] S(4,YR)[178]S(4,YR)[170].2 5110 [139] S(4,YR)[179]1 [167] S(4,YR)[178]1 5120 S(1,YR)[178](S(1,YR)[170]S6)[171]((S(3,YR)[170]S(4,YR)[171]S(3,YR[171]1)[171]S(4,YR[171]1))[172]S(1,YR)[172].01) 5130 NR[178][165]A(4)[170]2:I[178]I[172]100:U(1)[178][181]([165]A(I)[170]8):[139] I[178]0 [167] U(1)[178][181]([165]A(8)[170]8) 5140 [141]400:[139] YR[179][177]3 [175] YR[179][177]6 [175] YR[179][177]9 [167] 5970 5150 [143] 5160 [143] TRANSIT WAGE BUDGET NEGOTIATIONS 5170 [143] 5180 [153]"LOAD TRANSIT WAGE BUDGET NEGOTIATIONS":LS[178]0 5190 [153]" PRESENT WAGE IS"[165]B(S)"PER HOUR 5200 PRINT" UNION INCREASE REQUESTED IS"U(1)"% 5210 [153]" WHAT IS YOUR RESPONSE (%) ";:[141]260:M(1)[178]V 5220 [153]"LOAD TRANSIT WAGE BUDGET NEGOTIATIONS 5230 PRINT" PRESENT WAGE IS"FNB(S)"PER HOUR 5240 [153]" UNION"[163]25)"MANAGEMENT 5250 PRINT" POSITION"TAB(26)"POSITION 5260 [153] [163]8)[165]B(U(1))[163]28)[165]B(M(1))" 5270 FOR X=2TOINT(NR) 5280 IF X<>NR THEN 5310 5290 PRINT" THIS IS THE LAST ROUND OF NEGOTIONS 5300 [153]" FAILURE TO SETTLE COULD MEAN A STRIKE 5310 UO=U(X-1)-M(X-1):IF UO<>0 THEN 5340 5320 U(X)=M(X-1):U=U(X) 5330 GOTO5520 5340 IF M(X-1)-M(X-2)>=5 THEN R3=1 5350 IF M(X-1)-M(X-2)<5 THEN R3=2 5360 IF M(X-1)-M(X-2)<3 THEN R3=3 5370 IF M(X-1)-M(X-2)<1 THEN R3=4 5380 IF UO>5 THEN U(X)=U(X-1)-((FNA(40)*.1)/R3) 5390 IF UO>10 OR UO<5 THEN U(X)=U(X-1)-((FNA(60)*.1)/R3) 5400 IF UO>15 THEN U(X)=U(X-1)-((FNA(80)*.1)/R3) 5410 IF UO>20 THEN U(X)=U(X-1)-((FNA(100)*.1)/R3) 5420 IF U(X)>=U(X-1) THEN U(X)=U(X-1)-.5 5430 IF U(X)<=M(X-1) THEN U(X)=M(X-1) 5440 U(X)=INT(U(X)*100)*.01 5450 U=U(X) 5460 PRINT TAB(8)FNB(U(X)); 5470 IF U(X)=M(X-1) THEN 5520 5480 PRINTTAB(29);:GOSUB260:M(X)=V 5490 IF M(X)>=U(X) THEN 5520 5500 NEXT 5510 IF M(NR)<>U(NR) THEN 5560 5520 S=INT(S*(100+U))*.01 5530 PRINT:PRINTTAB(8)"AGREEMENT REACHED ON"U"% 5540 [153]"WAGE INCREASE: HOURLY RATE NOW $"S 5550 [137] 5930 5560 [139] (U(NR)[171]M(NR))[172][187](0)[177].5 [167] 5590 5570 U(NR)[178]M(NR):U[178]U(NR) 5580 [137] 5520 5590 ZZ[178]0 5600 [143] 5610 [143] WORKERS STRIKE 5620 [143] 5630 [153]"LOAD":AT[178]143:[141]90:[153]"WORKERS LOCAL 5640 AT=269:GOSUB90:PRINT"O N S T R I K E 5650 [129] X[178]1[164]100:[130]:ZZ[178]ZZ[170]1:[139] ZZ[179][177]6 [167] 5630 5660 M(7)[178]M(NR)[171]M(1):U(7)[178]U(1)[171]U(NR):DP[178]U(NR)[171]M(NR) 5670 SS(1)[178](DP[172](([165]A(6)[170]3)[172].1)):[139] M(7)[177]U(7) [167] SS(1)[178](DP[172]([165]A(6)[172].1)) 5680 SS(2)[178]M(NR)[170]SS(1):U[178][181](SS(2)[172]100)[172].01 5690 LS[178][165]A(5)[170][165]A(DP[170]1) 5700 [143] 5710 [143] STRIKE RESULTS 5720 [143] 5730 [153]"LOAD THE STRIKE LASTED FOR"[181](LS)"DAYS 5740 PRINTTAB(9)"ARBITRATOR HAS ORDERED 5750 [153][163]10)"SETTLEMENT OF"U"% 5760 S=INT(S*(100+U))*.01 5770 PRINT" THIS RESULTS IN A WAGE OF $"S 5780 PRINTTAB(10)"AS A RESULT OF STRIKE: 5790 [141]5910 5800 T(4,YR)[178]T(4,YR)[170]X1:[153]T$(4)" INCREASED BY"([181](100[172]X1)[172].01) 5810 [141]5910 5820 T(5,YR)[178]T(5,YR)[170]X1:[153]T$(5)" INCREASED BY"[165]B(X1) 5830 [139] PC[179]2 [167] 5860:PC[178]PC[171]2:[139] LS[179]7 [167] 5850 5840 [153]" CONSTRUCTION PROGRAM LOST 1 MILE":[137]5860 5850 PC[178]PC[171]1:[153]" CONSTRUCTION PROGRAM LOST .5 MILE 5860 PRINT:GOSUB5910:S(3,YR)=S(3,YR)+X1 5870 PRINTTAB(3)S$(3)" HAS INCREASED BY"FNB(X1) 5880 PRINT:GOSUB5910:S(4,YR)=S(4,YR)+X1 5890 PRINTTAB(3)S$(4)" HAS INCREASED BY"FNB(X1) 5900 PRINT:GOTO5930 5910 X1=FNA(4)*.1:IF LS>=7 THEN X1=FNA(7)*.1 5920 RETURN 5930 GOSUB400 5940 REM 5950 REM STREET FUND PERFORMANCE 5960 REM 5970 PRINT"[147] STREET FUND PERFORMANCE: YEAR"YR:PRINT" 5980 [153][163]15)"YEAR"YR[163]24)"YEAR"YR[171]1[163]33)"PLAN 5990 PRINT""T$(2) 6000 PRINTTAB(14)FNB(T(2,YR))TAB(23)FNB(T(2,YR-1))TAB(31)FNB(T(2,11)) 6010 FOR X=3TO5 6020 PRINT ""T$(X) 6030 PRINT TAB(16)FNB(T(X,YR))TAB(25)FNB(T(X,YR-1))TAB(34)FNB(T(X,11)) 6040 NEXT 6050 REM 6060 REM TRANSIT FUND PERFORMANCE 6070 REM 6080 GOSUB400:PRINT"[147] TRANSIT FUND PERFORMANCE: YEAR"YR:PRINT" 6090 [153][163]14)"YEAR"YR[163]23)"YEAR"YR[171]1[163]33)"PLAN 6100 PRINT ""S$(1); 6110 PRINT TAB(14)FNC(S(1,YR))TAB(23)FNC(S(1,YR-1))TAB(32)FNC(S(1,11)) 6120 FOR X=2TO4 6130 PRINT ""S$(X); 6140 PRINT TAB(14)FNB(S(X,YR))TAB(23)FNB(S(X,YR-1))TAB(32)FNB(S(X,11)) 6150 NEXT 6160 PRINT ""S$(5); 6170 PRINTTAB(14)INT(S(5,YR))TAB(23)INT(S(5,YR-1)) 6180 IF T(2,YR)<T(2,11) THEN 6450 6190 IF T(3,YR)<T(3,11) THEN 6450 6200 IF T(4,YR)>T(4,11) THEN 6450 6210 IF T(5,YR)>T(5,11) THEN 6450 6220 IF S(1,YR)<S(1,11) THEN 6450 6230 IF S(2,YR)>S(2,11) THEN 6450 6240 IF S(3,YR)>S(3,11) THEN 6450 6250 IF S(4,YR)>S(4,11) THEN 6450 6260 REM 6270 REM GAME COMPLETION 6280 REM 6290 GOSUB400:PRINT"[147]":PRINTTAB(8)"[154]*** CONGRATULATIONS![154] *** 6300 [153]" YOU HAVE SUCCESSFULLY COMPLETED 6310 PRINTTAB(10)"THE PLAN IN"YR" YEARS 6320 [139] YR[177]7 [167] 6360 6330 [153]" YOUR PERFORMANCE HAS BEEN SO GOOD 6340 PRINT" THAT YOU HAVE BEEN ASKED TO BECOME THE 6350 [153]" NEW SECRETARY OF TRANSPORTATION":[137]6430 6360 [139] YR[178]10 [167] 6400 6370 [153]" BECAUSE OF YOUR PERFORMANCE 6380 PRINT" YOU HAVE BEEN ASKED TO BECOME THE 6390 [153]" TRANSPORTATION DIRECTOR OF NEW YORK":[137]6430 6400 [153]" YOU HAVE BEEN GIVEN A LARGE PAY RAISE 6410 PRINT" AND HAVE BEEN ASKED TO CONTINUE AS 6420 [153][163]10)"TRANSPORTATION DIRECTOR 6430 PRINT" REVIEW YOUR FINAL PERFORMANCE? ";:GOSUB170:IF V$="Y"THEN 5970 6440 PRINT"[145][145][145]":END 6450 IF YR=1 THEN 1410 6460 REM 6470 REM PERFORMANCE EVALUATION 6480 REM 6490 GOSUB400:PRINT"[147] PERFORMANCE EVALUATION: YEAR"YR" 6500 [139] T(4,YR)[179]T(4,YR[171]1)[170].1 [176] T(4,YR[171]1)[179]T(4,YR[171]2)[170].1 [167] 6520 6510 CV[178]CV[171]1:[153]"STREET CONDITIONS WORSE (PAST 2 YEARS) 6520 IF T(5,YR)<T(5,YR-1)+.1 OR T(5,YR-1)<T(5,YR-2)+.1 THEN 6540 6530 CV=CV-1:PRINT"TRAFFIC SAFETY WORSE (PAST 2 YEARS) 6540 [139] T(4,YR)[179]T(4,YR[171]1)[172]1.35 [167] 6560 6550 CV[178]CV[171]1:[153]"STREET CONDITIONS >35% WORSE THIS YEAR 6560 IF T(5,YR)<T(5,YR-1)*1.4 THEN 6580 6570 CV=CV-1:PRINT"TRAFFIC SAFETY >40% WORSE THIS YEAR 6580 [139] T(2,YR)[177][178]T(2,YR[171]2)[170]5 [167] 6610 6590 CV[178]CV[171]1:[153]"PRIMARY STREET CONSTRUCTION NOT 6600 PRINTTAB(23)"PROGRESSING WELL 6610 [139] YR[179]7 [176] YR[178]10 [167] 6650 6620 [139] T(3,YR)[177][178](YR[172]2)[171]4 [176] G1[177][178]13[170](YR[172]3) [167] 6650 6630 CV[178]CV[171]1:[153]"THERE IS FEELING YOU WILL NOT 6640 PRINTTAB(18)"COMPLETE STREET PLANS 6650 [139] T(4,YR)[179]T(4,YR[171]1) [176] T(5,YR)[179]T(5,YR[171]1)[176]T(2,YR)[177]T(2,YR[171]2)[170]4 [167] 6670 6660 CV[178]CV[171]1:[153]"DISCONTENT WITH STREET FUND PERFORMANCE " 6670 [139] S(1,YR)[177]S(1,YR[171]1) [176] S(1,YR[171]1)[177]S(1,YR[171]2) [167] 6690 6680 CV[178]CV[171]1:[153]"BUS RIDERSHIP DECLINING (PAST 2 YEARS) 6690 IF S(2,YR)<S(2,YR-1)+4 THEN 6710 6700 CV=CV-1:PRINT"BUS FLEET ALLOWED TO DETERIORATE 6710 [139] S(3,YR)[179]S(3,YR[171]1)[170].1 [176] S(3,YR[171]1)[179]S(3,YR[171]2)[170].1 [167] 6730 6720 CV[178]CV[171]1:[153]"BUS DOWNTIME INCREASING (PAST 2 YEARS) 6730 IF S(3,YR)<S(3,YR-1)*1.35 THEN 6750 6740 CV=CV-1:PRINT"BUS DOWNTIME HAS INCREASED OVER 35% 6750 [139] S(4,YR)[179]S(4,YR[171]1)[170].1 [176] S(4,YR[171]1)[179]S(4,YR[171]2)[170].1 [167] 6770 6760 CV[178]CV[171]1:[153]"ON-SCHEDULE SERVICE HAS DECLINED 6770 IF S(4,YR)<S(4,YR-1)*1.35 THEN 6790 6780 CV=CV-1:PRINT"ON-SCHEDULE SERVICE HAS DECLINED >35% 6790 X1[178]0:[139] S(1,YR)[179]S(1,YR[171]1) [167] X1[178].3 6800 [129] X[178]2[164]4:[139] S(X,YR)[177]S(X,YR[171]1) [167] X1[178]X1[170].3:[130] 6810 [139] X1[179]1 [167] 6840 6820 CV[178]CV[171]1:[153]"DISSATISFACTION WITH TRANSIT AUTHORITY 6830 PRINTTAB(24)"PERFORMANCE 6840 [139] TB(2,YR)[179]7.5 [176] [165]A(3)[177]2 [167] 6860 6850 CV[178]CV[171]2:[153]"CITIZENS ARE UNHAPPY WITH TAX RATES 6860 IF T(2,YR)+T(3,YR)<T(2,YR-2)+T(3,YR-2)+11ORT(3,YR)<T(3,YR-1)+2THEN6880 6870 CV=CV+1:PRINT"OVERALL STREET CONSTRUCTION GOING WELL" 6880 IF T(4,YR)>T(4,YR-1)-.1 OR T(4,YR-1)>T(4,YR-2)-.1 THEN 6900 6890 CV=CV+1:PRINT"STREET CONDITIONS IMPROVING 6900 [139] T(4,YR)[177]T(4,YR[171]1)[172].65 [167] 6920 6910 CV[178]CV[170]1:[153]"STREET CONDITION IMPROVEMENT OVER 35% 6920 IF T(5,YR)>T(5,YR-1)-.1 OR T(5,YR-1)>T(5,YR-2)-.1 THEN 6940 6930 CV=CV+1:PRINT"TRAFFIC SAFETY HAS IMPROVED FOR 2 YEARS " 6940 IF T(5,YR)>T(5,YR-1)*.6 THEN 6960 6950 CV=CV+1:PRINT"TRAFFIC SAFETY HAS IMPROVED OVER 40% 6960 [139] S(2,YR)[177]S(2,YR[171]1)[171].1 [176] S(2,YR[171]1)[177]S(2,YR[171]2)[171].1 [167] 6980 6970 CV[178]CV[170]1:[153]"BUS FLEET HAS IMPROVED FOR 2 YEARS 6980 IF S(3,YR)>S(3,YR-1)-.1 OR S(3,YR-1)>S(3,YR-2)-.1 THEN 7000 6990 CV=CV+1:PRINT"BUS DOWNTIME DECREASED FOR 2 YEARS 7000 [139] S(3,YR)[177]S(3,YR[171]1)[172].65 [167] 7020 7010 CV[178]CV[170]1:[153]"BUS DOWNTIME HAS DECREASED OVER 35% 7020 IF S(4,YR)>S(4,YR-1)-.1 OR S(4,YR-1)>S(4,YR-2)-.1 THEN 7040 7030 CV=CV+1:PRINT"ON-SCHEDULE SERVICE HAS IMPROVED 7040 [139] S(4,YR)[177]S(4,YR[171]1)[172].65 [167] 7060 7050 CV[178]CV[170]1:[153]"ON-SCHEDULE SERVICE IMPROVED OVER 35% 7060 X1=0:IF S(1,YR)>S(1,YR-1) THEN X1=.3 7070 FOR X=2TO4:IF S(X,YR)<S(X,YR-1) THEN X1=X1+.3:NEXT 7080 IF X1<1 THEN 7100 7090 CV=CV+1:PRINT"TRANSIT AUTHORITY PERFORMANCE DOING WELL 7100 [139] TB(2,YR)[177]3 [176] [165]A(3)[177]2 [167] 7120 7110 CV[178]CV[170]1:[153]"CITIZENS ARE HAPPY WITH LOWER TAX RATE 7120 IF YR<>6 AND YR<>9 THEN 7220 7130 IF B1=0 THEN 7220 7140 IF B2>T(4,YR) AND B2>0 THEN 7180 7150 IF B3>T(5,YR) AND B3>0 THEN 7180 7160 IF T(2,YR)<T(2,YR-3)-B4 AND B4>0 THEN 7180 7170 IF T(3,YR)>T(3,YR-3)-B5 OR B5=0 THEN 7220 7180 CV=CV-2:PRINT" YOU HAVE NOT KEPT YOUR BOND PLEDGES 7190 [143] 7200 [143] CITY COMMISSION VOTE 7210 [143] 7220 [141]400:[153]"LOAD":[139] CV[177]11 [167] CV[178]11 7230 [139] CV[179]0 [167] CV[178]0 7240 [139] CV[179]6 [167] 7260 7250 [139] YR[178]10 [167] 7300 7260 [153]" AS A RESULT OF YOUR PERFORMANCE THIS 7270 PRINT" YEAR THE CITY COMMISSION HAS 7280 [139] CV[177][178]6 [167][153]" VOTED"CV"TO"11[171]CV"TO RETAIN YOU":[137]1410 7290 [139] CV[179]6 [167][153]" VOTED"11[171]CV"TO"CV"FOR YOU TO RESIGN":[137]7340 7300 [153]"YOU HAVE NOT SUCCESSFULLY COMPLETED THE 7310 PRINT"TEN YEAR PLAN, BUT THE CITY COMMISSION 7320 [153]" HAS VOTED"CV"TO"11[171]CV"TO RETAIN YOU AS 7330 PRINTTAB(8)"TRANSPORTATION DIRECTOR 7340 [141]400:[153]"LOADTRY AGAIN?":[153]"RUNONONONCMDCMDCMD":[128] 10000 [153]"LOAD"; 11001 [153]"CONT TOTOTOTOTOTO 11002 PRINT" [206] [206][165] 11003 [153]" (null) (null) FN 11004 PRINT" [207][183][183][183][183][208] [165] [213][192][192][203] 11005 [153]"CONT ANDAND(null)ANDANDAND THEN FN (null) RIGHT$ 11006 PRINT"[154] [206] [206][165][167] [165] [221] . [221] 11007 [153]"CONT (null) (null) FNTHEN FN (null) RIGHT$ (null) RIGHT$ (null) 11008 PRINT"[154] [207][183][183][183][183][208] [165][167] [160][165] [221] [221] [221] [221] [221] 11009 [153]"CONT FNCOSCOSCOSCOSTHENCLOSECLOSEFNTHENCLOSECLOSEFN MID$TANTANRIGHT$ MID$ MID$ MID$TAN< 11010 PRINT"[154] [165][190][190][190][190][167][160][160][165][167][160][160][165][160] [221] 11011 [153]"CONT FNCOSCOSCOSCOSTHENCLOSECLOSEFNTHENCLOSECLOSEFN (null)RIGHT$(null)RIGHT$ (null)TAN(null) 11012 PRINT"[154] [165][190][190][190][190][167][160][160][165][167][160][160][165][160][221][221][221][221] 11013 [153]"CONT FNCOSCOSCOSCOSTHENCLOSE FNTHEN FN (null)(null)(null)(null) 11014 PRINT"[154] [165][190][190][190][190][167][160][160][165][167][160][160][165][160][221][202][203][221] [213][192][201] [171][192][201][213][192][201][213][192][201][213][192][201][171][192][201]"; 11015 PRINT"[154] [165][190][190][190][190][167][160][160][165][167][160][160][165][160][221] [221] [213][192][179] [221] [221][213][192][179][221] [221][171][192][203][221] 11016 [153]"CONT FNCOSCOSCOSCOSTHENCLOSECLOSEFNTHENCLOSECLOSEFN (null) MID$ MID$TAN> (null) MID$MID$TAN>MID$TAN<MID$TAN(null)(null) 11017 PRINT"[154] [165][190][190][190][190][167] [165][167] [165] [221] 11018 [153]"CONT FNCOSCOSCOSCOSTHEN FNTHEN FN (null)TAN(null) 11019 PRINT"[154] [165][190][190][190][190][167] [165][167] [206] 11020 [153]" FNCOSCOSCOSCOSTHENCLOSECLOSE(null)SQR(null) 11021 PRINT"[165][190][190][190][190][167] [165] 11022 [153]"FNCOSCOSCOSCOSTHEN FN 11023 PRINT"[165][190][190][190][190][167] [206] 11024 [153]"(null)ANDANDANDANDSQR(null)" 11025 [142]