10 DIM P%(7%,6%),T%(6%),P1%(7)

20 OPEN "$FWAY.DAT" AS FILE 1%

30 DIM #1%,A%(770%)

40 MAT READ P%

50 PRINT "FREEWAY PLANNING GAME":PRINT

60 PRINT "DO YOU WANT TO INPUT YOUR OWN PENALTY FUNCTION, Y OR N?"

70 INPUT B$

80 IF B$="N" GO TO 210

90 PRINT  "KEY NO.OF POINTS FOR SPACE, HOUSE, BLDGS, ETC. SEPARATED BY COMMAS."

100 MAT INPUT T% : P%(7%,J%)=T%(J%) FOR J%=1% TO 6%

150 DEF FNO%(N%)=N%-(N%/2%)*2%

210 PRINT "KEY THE COORDINATES OF THE BLOCKS YOU WANT TO GO THROUGH, IN OER."

220  PRINT  "KEY 'ROW,COLUMN', FOLLOWED BY ALT MODE OR ESCAPE."

230 PRINT "TOTALS WILL BE KEPT ON SPACES, HOUSES DISPLACED, ETC."

235 MAT T%=ZER

240 PRINT "KEY STARTING BLOCK":PRINT TAB(14); : PRINT "CUMULATIVE TOTALS"

242 PRINT TAB(11); : PRINT "-----------------------"

243 PRINT TAB(11); : PRINT "SPA HOU BLD HIL BEL BON" : PRINT

245 R1%=0:C1%=0

250 INPUT R%,C%:E%=11%*(R%-1%)+C% : L%=5%*(E%-1%)+1%

255 IF R%=1% AND R1%=0% THEN IF FNO%(C%)=1% GO TO 303 ELSE GO TO 600

26IF R%=0% OR C%=0% THEN 600

270 IF R%>14% OR C%>11%  THEN 600

280 IF ABS(R%-R1%)>1 OR ABS(C%-C1%)>1 THEN 600

290 IF FNO%(C%)=0% AND C%<>C1% AND R%=R1%+1% THEN 600

300 IF FNO%(C%)=1% AND C%<>C1% AND R%=R1%-1% THEN 600

301 IF R%=14% AND FNO%(C%)=0% THEN 600

303 T%(1%)=T%(1%)+1%

307 T%(K%)=T%(K%)+A%(L%+K%-2%)  FOR K%=2% TO 6%

310 PRINT TAB(11);

312 PRINT USING "### ### ### ### ### ###" T%(1%),T%(2%),T%(3%),T%(4%),T%(5%),T%(6%)

320 IF R%=14% THEN 800

330 R1%=R%:C1%=C%:GO TO 2

600 PRINT "INVALID MOVE, TRY AGAIN" : GO TO 250

800 PRINT : PRINT "PENALTY SCORES BY CRITERION"

805 P2%=0

810 FOR I%=1% TO 7%

820 P1%(I%)=0

830 P1%(I%)=P1%(I%)+P%(I%,J%)*T%(J%) FOR J%=1% TO 6%

835 P2%=P2%+P1%(I%)

840 NEXT I%

850 PRINT" COUNCIL",P1%(1%)

860 PRINT" TAXPAYERS",P1%(2%)

870 PRINT " UNIVERSITY",P1%(3%)

880 PRINT " RESIDENTS",P1%(4%)

890 PRINT " MERCHANTS",P1%(5%)

900 PRINT " CITY ENGR",P1%(6%)

910 PRINT:PRINT " TOTAL",P2%

915 IF P1%(7%)=0% GO  930

920 PRINT:PRINT " YOUR P.F.", P1%(7%)

930 PRINT : PRINT "WANT TO TRY AGAIN?":INPUT B$

940 IF B$="Y" GO TO 235

950 STOP

8000 DATA 5,5,3,1,1,1

8010 DATA 5,1,3,5,1,1

8020 DATA 5,1,1,1,3,5

8030 DATA 5,7,1,1,1,1

8040 DATA 5,1,7,1,1,1

8050 DATA 5,1,1,7,1,1

8060 DATA 0,0,0,0,0,0

9999 END