DECLARE SUB drink (jd!, jb!, sa!, v!, hp!) DECLARE SUB FADE () DECLARE SUB move (key$, fuel%, light!, b!, c!, d!, e!) DECLARE SUB showmove (hours!, day%, deposit!, loan!, fuel%, b!, c!, d!, e!) DECLARE SUB first (name$, light!, fuel%, cash!, hp!, b!, c!, d!, e!) DECLARE SUB start (name$, light!, fuel%, cash!, hp, b, c, d, e, jd, jb, sa, v, cig%) DECLARE SUB theater (hours!, cash!) DECLARE SUB more (cash!, fuel%, jd, jb, sa, v, str, bull%, grn, hp) DECLARE SUB guns (cash!, str, bull%, grn%) DECLARE SUB bank (name$, cash!, deposit!, loan!, day%, hp) DECLARE SUB police () DECLARE SUB sonic (cash!, hours!, name$) DECLARE SUB home (cash!, cash2!, jd%, jd2%, jb%, jb2%, sa%, sa2%, v%, v2%, cig%, cig2%, hours!) DECLARE SUB exxon (cash!, fuel%, cig%, jd, jb, sa, v) SCREEN 12 DIM cara1(1300) DIM carb1(1300) DIM car2(1300) DIM polcar1(1300) DIM polcar2(1300) DIM truck1(1300) DIM trucka2(1300) DIM truckb2(1300) DIM station(200) DIM house(200) DIM work(200) DIM pd(200) DIM bankpic(200) DIM gunshop(200) DIM movies(200) DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,04,04,04,04,07,07,07,00,00,00,00,00,00,00,00,00,00,00,00,07,00,00,00,00,00,00,00,00,07,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,04,04,04,04,07,04,04,07,00,00,00,00,00,00,00,00,00,00,00,00,07,00,00,00,00,00,00,00,00,08,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,04,04,04,04,04,07,04,04,07,00,00,00,00,00,00,00,00,00,00,00,00,00,07,00,00,00,00,00,00,00,00,08,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,04,04,04,04,04,07,04,04,04,07,00,00,00,00,00,00,00,00,00,06,00,00,00,07,00,00,00,00,00,00,00,08,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,04,04,04,04,04,04,04,04,00,00,00,00,00,00,00,00,00,00,00,07,04,04,07,07,04,04,07,04,04,04,07,00,00,00,00,00,00,00,00,06,00,00,00,00,00,07,00,00,00,00,00,00,00,08,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,04,04,04,04,04,04,04,04,04,00,00,00,00,00,00,00,00,00,00,07,04,07,01,01,07,04,07,04,04,04,04,07,00,00,00,00,00,00,06,00,06,07,07,07,07,07,07,00,00,00,00,00,00,08,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,07,07,07,07,07,00,00,00,00,00,00,00,00,07,04,04,04,07,07,04,04,07,04,04,04,04,07,00,00,00,00,00,00,00,00,07,07,04,04,04,04,04,07,00,00,00,00,00,00,08,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,07,07,07,07,07,07,07,07,00,00,00,00,00,00,00,07,04,04,04,04,04,04,04,07,04,04,04,04,07,00,07,07,07,00,00,00,00,07,07,07,07,07,07,04,04,07,00,00,00,00,00,08,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,07,07,07,07,07,07,07,07,07,00,00,00,00,00,07,04,04,04,04,04,04,04,04,07,04,04,04,04,07,07,04,04,04,07,00,00,00,00,00,00,00,00,07,04,04,04,07,00,00,00,00,08,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,07,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,07,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,07,01,01,01,01,01,01,01,01,01,07,07,07,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,07,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,07,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,07,01,01,01,01,01,01,01,01,01,01,01,07,07,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,07,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,07,01,01,07,01,01,07,07,07,07,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,07,01,01,01,01,01,01,01,01,01,01,01,01,01,07,07,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,07,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,07,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,07,01,01,01,01,01,01,01,01,01,01,01,01,01,01,07,07,00,00,00,00,00,00,00,00,00,00,00,00,00,00 FOR x% = 0 TO 14 FOR y% = 0 TO 87 READ g PSET (y%, x%), g NEXT y% NEXT x% GET (0, 0)-(87, 14), cara1 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,04,04,04,04,07,07,07,00,00,00,00,00,00,00,00,00,00,00,00,07,00,00,00,00,00,00,00,00,07,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,04,04,04,04,07,04,04,07,00,00,00,00,00,00,00,00,00,00,00,00,07,00,00,00,00,00,00,00,00,08,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,04,04,04,04,04,07,04,04,07,00,00,00,00,00,00,00,00,00,00,00,00,00,07,00,00,00,00,00,00,00,00,08,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,04,04,04,04,04,07,04,04,04,07,00,00,00,00,00,00,00,00,00,06,00,00,00,07,00,00,00,00,00,00,00,08,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,04,04,04,04,04,04,04,04,00,00,00,00,00,00,00,00,00,00,00,07,04,04,07,07,04,04,07,04,04,04,07,00,00,00,00,00,00,00,00,06,00,00,00,00,00,07,00,00,00,00,00,00,00,08,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,04,04,04,04,04,04,04,04,04,00,00,00,00,00,00,00,00,00,00,07,04,07,01,01,07,04,07,04,04,04,04,07,00,00,00,00,00,00,06,00,06,07,07,07,07,07,07,00,00,00,00,00,00,08,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,07,07,07,07,07,00,00,00,00,00,00,00,00,07,04,04,04,07,07,04,04,07,04,04,04,04,07,00,00,00,00,00,00,00,00,07,07,04,04,04,04,04,07,00,00,00,00,00,00,08,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,07,07,07,07,07,07,07,07,00,00,00,00,00,00,00,07,04,04,04,04,04,04,04,07,04,04,04,04,07,00,07,07,07,00,00,00,00,07,07,07,07,07,07,04,04,07,00,00,00,00,00,08,00,00,00,00,00,00,00,00,00,00,00,00,07,07,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,07,07,07,07,07,07,07,07,07,00,00,00,00,00,07,04,04,04,04,04,04,04,04,07,04,04,04,04,07,07,04,04,04,07,00,00,00,00,00,00,00,00,07,04,04,04,07,00,00,00,00,08,00,00,00,00,00,00,00,00,00,00,00,07,01,07,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,00,00,00,00,00,00,07,01,14,14,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,07,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,07,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,07,01,01,01,01,01,01,01,01,01,07,07,07,00,00,07,01,14,14,14,14,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,07,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,07,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,07,01,01,01,01,01,01,01,01,01,01,01,07,07,01,14,14,14,14,14,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,07,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,07,01,01,07,01,01,07,07,07,07,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,07,01,01,01,01,01,01,01,01,01,01,01,01,01,07,07,14,14,14,14,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,07,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,07,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,07,01,01,01,01,01,01,01,01,01,01,01,01,01,01,07,07,14,00,00,00,00,00,00,00,00,00,00,00,00,00 FOR x% = 0 TO 14 FOR y% = 0 TO 87 READ h PSET (y%, x%), h NEXT y% NEXT x% GET (0, 0)-(87, 14), carb1 DATA 00,00,00,00,00,00,00,00,00,00,00,07,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,07,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,07,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,07,07,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,07,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,07,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,07,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,07,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,07,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,07,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,07,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,07,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,00,07,01,01,01,01,01,01,01,01,01,01,01,01,07,07,07,07,01,01,01,07,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,07,01,01,01,01,07,07,07,07,01,01,01,01,01,01,01,01,01,01,01,01,07,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,04,04,04,04,00,00,00,00,07,01,01,01,01,01,01,01,01,01,01,07,00,00,00,00,07,01,01,01,07,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,07,01,01,01,01,07,00,00,00,00,07,01,01,01,01,01,01,01,01,01,01,01,01,07,00,00,00,00,00,00,00,00 DATA 00,00,00,00,04,04,12,12,04,00,00,00,00,00,07,07,07,07,07,07,07,01,01,07,00,06,06,06,06,00,07,01,01,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,01,01,07,00,06,06,06,06,00,07,01,01,01,07,07,07,07,07,07,07,07,07,07,07,07,07,00,00,00,00 DATA 00,00,04,04,04,04,12,14,08,08,08,08,08,08,08,07,07,07,07,07,07,01,07,00,06,06,06,06,06,06,00,07,01,01,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,01,01,07,00,06,06,06,06,06,06,00,07,01,01,07,07,07,07,07,07,07,07,07,07,07,07,07,07,00,00,00 DATA 04,04,04,04,04,12,12,14,01,01,01,08,08,08,08,08,07,07,07,07,01,07,00,06,06,06,06,06,06,06,06,00,07,01,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,01,07,00,06,06,06,06,06,06,06,06,00,07,01,01,07,07,07,07,07,07,07,07,07,07,07,07,07,00,00,00 DATA 00,00,00,04,04,12,12,14,14,14,14,04,00,00,00,00,07,01,01,01,01,07,00,06,06,06,00,00,06,06,06,00,07,01,01,07,07,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,07,01,01,07,00,06,06,06,00,00,06,06,06,00,07,01,01,01,01,01,01,01,01,01,07,07,07,07,07,00,00,00,00 DATA 00,04,04,04,04,04,12,12,12,12,04,04,00,00,00,00,07,07,07,07,07,07,00,06,06,06,00,00,06,06,06,00,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,00,06,06,06,00,00,06,06,06,00,07,07,07,07,07,07,07,07,07,07,07,00,00,00,00,00,00,00,00 DATA 00,00,04,04,04,04,04,04,04,04,04,00,00,00,00,00,00,00,00,00,00,00,00,06,06,06,00,00,06,06,06,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,06,06,06,00,00,06,06,06,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,06,06,06,06,06,06,06,06,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,06,06,06,06,06,06,06,06,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,06,06,06,06,06,06,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,06,06,06,06,06,06,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,06,06,06,06,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,06,06,06,06,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 FOR x% = 15 TO 29 FOR y% = 0 TO 87 READ i PSET (y%, x%), i NEXT y% NEXT x% GET (0, 15)-(87, 29), car2 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,15,00,00,00,00,15,07,07,00,00,00,00,00,00,00,00,00,00,00,00,15,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,15,00,00,00,00,15,00,00,07,00,00,00,00,00,00,00,00,00,00,00,00,15,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,15,00,00,00,00,00,15,00,00,07,00,00,00,00,00,00,00,00,00,00,00,00,00,15,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,15,00,00,00,00,00,15,00,00,00,07,00,00,00,00,00,00,00,00,00,06,00,00,00,15,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,15,00,00,07,07,00,00,15,00,00,00,07,00,00,00,00,00,00,00,00,06,00,00,00,00,00,15,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,15,00,07,00,00,07,00,15,00,00,00,00,07,00,00,00,00,00,00,06,00,06,07,07,07,07,07,15,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,15,00,00,00,07,07,00,00,15,00,00,00,00,07,00,00,00,00,00,00,00,00,07,07,00,00,00,00,00,15,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,15,15,15,15,15,15,00,00,00,00,00,00,00,15,00,00,00,00,00,00,00,15,00,00,00,00,07,00,07,07,07,00,00,00,00,07,07,07,07,07,07,00,00,15,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,15,15,15,15,15,15,15,00,00,00,00,00,15,00,00,00,00,00,00,00,00,15,00,00,00,00,07,07,00,00,00,07,00,00,00,00,00,00,00,00,07,00,00,00,15,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,15,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,00,00,00,00,00,00,00,00,00,15,15,15,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,15,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,00,00,00,00,00,00,00,00,00,00,00,15,15,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,15,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,15,15,15,00,15,15,00,00,00,00,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,00,00,00,00,00,00,00,00,00,00,00,00,00,15,15,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,15,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,00,00,00,00,00,00,00,00,00,00,00,00,00,00,15,15,00,00,00,00,00,00,00,00,00,00,00,00,00,00 FOR x% = 0 TO 14 FOR y% = 0 TO 87 READ g PSET (y%, x%), g NEXT y% NEXT x% GET (0, 0)-(87, 14), polcar1 DATA 00,00,00,00,00,00,00,00,00,00,00,15,15,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,15,15,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,15,15,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,15,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,15,15,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,15,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,00,15,00,00,00,00,00,00,00,00,00,00,00,00,15,15,15,15,00,00,00,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,00,00,00,00,15,15,15,15,00,00,00,00,00,00,00,00,00,00,00,00,15,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,04,04,04,00,00,00,00,15,00,00,00,00,00,00,00,00,00,00,15,00,00,00,00,15,00,00,00,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,00,00,00,15,00,00,00,00,15,00,00,00,00,00,00,00,00,00,00,00,00,15,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,04,12,12,04,00,00,00,00,00,15,08,08,08,08,08,08,08,00,15,00,06,06,06,06,00,15,00,00,15,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,15,00,00,15,00,06,06,06,06,00,15,00,00,08,08,08,08,08,08,08,08,08,08,08,08,08,08,00,00,00,00 DATA 00,00,00,00,04,04,12,14,07,07,07,07,07,07,07,15,08,08,08,08,08,00,15,00,06,06,06,06,06,06,00,15,00,00,15,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,15,00,00,15,00,06,06,06,06,06,06,00,15,00,00,08,08,08,08,08,08,08,08,08,08,08,08,08,08,00,00,00 DATA 00,00,00,04,04,12,12,14,01,01,01,07,07,07,07,07,15,08,08,08,00,15,00,06,06,06,06,06,06,06,06,00,15,00,15,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,15,00,15,00,06,06,06,06,06,06,06,06,00,15,00,00,08,08,08,08,08,08,08,08,08,08,08,08,08,00,00,00 DATA 00,00,00,00,04,12,12,14,14,14,14,00,00,00,00,00,15,00,00,00,00,15,00,06,06,06,00,00,06,06,06,00,15,00,00,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,00,00,15,00,06,06,06,00,00,06,06,06,00,15,00,00,00,00,00,00,00,00,00,08,08,08,08,08,00,00,00,00 DATA 00,00,00,04,04,04,12,12,12,12,04,00,00,00,00,00,15,15,15,15,15,15,00,06,06,06,00,00,06,06,06,00,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,00,06,06,06,00,00,06,06,06,00,15,15,15,15,15,15,15,15,15,15,15,00,00,00,00,00,00,00,00 DATA 00,00,04,04,04,04,04,04,04,04,04,00,00,00,00,00,00,00,00,00,00,00,00,06,06,06,00,00,06,06,06,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,06,06,06,00,00,06,06,06,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,04,04,04,00,00,00,00,00,00,00,00,00,00,00,00,00,06,06,06,06,06,06,06,06,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,06,06,06,06,06,06,06,06,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,06,06,06,06,06,06,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,06,06,06,06,06,06,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,06,06,06,06,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,06,06,06,06,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,15,15,15,00,00,00,15,15,15,00,00,00,15,15,15,00,00,00,15,15,15,00,00,00,15,15,15,00,00,00,15,15,15,00,00,00,15,15,15,00,00,00,15,15,15,00,00,00,15,15,15,00,00,00,15,15,15,00,00,00,15,15,15,00,00,00,15,15,15,00,00,00,15,15,15,00,00,00,15,15,15,00,00,00,15,15 FOR x% = 15 TO 29 FOR y% = 0 TO 87 READ i PSET (y%, x%), i NEXT y% NEXT x% GET (0, 15)-(87, 29), polcar2 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,07,07,07,07,07,07,07,07,07,07,07,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,00,00,00,00,00,00,00,00,00,00,00,07,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,07,07,00,00,00,00,00,00,00,00,00,00,07,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,00,00,07,00,00,00,00,00,00,00,00,00,00,07,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,00,00,00,07,00,00,00,00,00,00,00,06,00,00,07,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,00,00,00,07,00,00,00,00,00,00,06,07,07,07,07,07,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,00,00,00,07,00,00,00,00,00,06,00,00,07,07,07,07,07,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,00,00,00,07,00,00,00,00,00,00,00,00,07,07,07,07,07,07,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,00,00,00,07,00,07,07,07,00,00,00,00,00,00,00,07,07,07,07,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,00,00,00,07,07,00,00,00,07,00,00,00,00,00,00,00,00,07,07,07,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,00,00,00,00,00,00,00,00,00,00,00,07,07,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,00,00,00,00,00,00,00,00,00,00,00,00,00,07,07,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,00,07,07,00,07,07,07,07,00,00,00,00,00,00,00,00,00,00,00,07,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,00,00,00,00,00,00,00,00,00,00 FOR x% = 0 TO 14 FOR y% = 0 TO 87 READ a PSET (y%, x%), a NEXT y% NEXT x% GET (0, 0)-(87, 14), truck1 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,14,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,14,14,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,14,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,00,00,00,00,00,00,00,00,07,07,07,07,00,00,00,00,00,00,00,00,00,00,07,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,00,00,07,07,07,07,00,00,00,00,00,00,00,00,00,00,00,00,00,07,14,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,00,00,00,00,00,00,00,07,00,00,00,00,07,00,00,00,00,00,00,00,00,00,00,07,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,00,00,07,00,00,00,00,07,00,00,00,00,00,00,00,00,00,00,00,00,00,07,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,07,07,07,07,07,00,07,00,06,06,06,06,00,07,00,07,07,07,07,07,07,07,00,07,00,07,07,07,07,07,07,07,07,07,07,07,07,07,07,00,07,00,00,07,00,06,06,06,06,00,07,00,00,00,00,00,00,00,00,00,00,00,00,07,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,08,08,08,08,08,08,08,08,07,07,07,07,07,00,07,00,06,06,06,06,06,06,00,07,00,07,07,07,07,07,07,00,07,00,00,07,07,07,07,07,07,07,07,07,07,07,07,00,07,00,00,07,00,06,06,06,06,06,06,00,07,00,07,07,07,07,07,07,07,07,07,07,07,07,07,07,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,08,08,08,08,08,07,07,07,07,00,07,00,06,06,06,06,06,06,06,06,00,07,00,07,07,07,07,07,07,00,07,00,07,07,07,07,07,07,07,07,07,07,07,07,00,07,00,07,00,06,06,06,06,06,06,06,06,00,07,00,07,07,07,07,07,07,07,07,07,07,07,07,07,07,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,00,00,00,00,07,00,06,06,06,00,00,06,06,06,00,07,00,00,00,00,00,00,00,00,07,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,00,07,00,06,06,06,00,00,06,06,06,00,07,00,00,00,00,00,00,00,00,00,00,07,07,07,07,07,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,07,07,07,07,07,00,06,06,06,00,00,06,06,06,00,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,00,06,06,06,00,00,06,06,06,00,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,06,06,06,00,00,06,06,06,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,06,06,06,00,00,06,06,06,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,06,06,06,06,06,06,06,06,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,06,06,06,06,06,06,06,06,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,06,06,06,06,06,06,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,06,06,06,06,06,06,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,06,06,06,06,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,06,06,06,06,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 FOR x% = 15 TO 29 FOR y% = 0 TO 87 READ a PSET (y%, x%), a NEXT y% NEXT x% GET (0, 15)-(87, 29), truckb2 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,00,00,00,00,00,00,00,00,07,07,07,07,00,00,00,00,00,00,00,00,00,00,07,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,00,00,07,07,07,07,00,00,00,00,00,00,00,00,00,00,00,00,00,07,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,00,00,00,00,00,00,00,07,00,00,00,00,07,00,00,00,00,00,00,00,00,00,00,07,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,00,00,07,00,00,00,00,07,00,00,00,00,00,00,00,00,00,00,00,00,00,07,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,07,07,07,07,07,00,07,00,06,06,06,06,00,07,00,07,07,07,07,07,07,07,00,07,00,07,07,07,07,07,07,07,07,07,07,07,07,07,07,00,07,00,00,07,00,06,06,06,06,00,07,00,00,00,00,00,00,00,00,00,00,00,00,07,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,08,08,08,08,08,08,08,08,07,07,07,07,07,00,07,00,06,06,06,06,06,06,00,07,00,07,07,07,07,07,07,00,07,00,00,07,07,07,07,07,07,07,07,07,07,07,07,00,07,00,00,07,00,06,06,06,06,06,06,00,07,00,07,07,07,07,07,07,07,07,07,07,07,07,07,07,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,08,08,08,08,08,07,07,07,07,00,07,00,06,06,06,06,06,06,06,06,00,07,00,07,07,07,07,07,07,00,07,00,07,07,07,07,07,07,07,07,07,07,07,07,00,07,00,07,00,06,06,06,06,06,06,06,06,00,07,00,07,07,07,07,07,07,07,07,07,07,07,07,07,07,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,00,00,00,00,07,00,06,06,06,00,00,06,06,06,00,07,00,00,00,00,00,00,00,00,07,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,00,07,00,06,06,06,00,00,06,06,06,00,07,00,00,00,00,00,00,00,00,00,00,07,07,07,07,07,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,07,07,07,07,07,00,06,06,06,00,00,06,06,06,00,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,00,06,06,06,00,00,06,06,06,00,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,06,06,06,00,00,06,06,06,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,06,06,06,00,00,06,06,06,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,06,06,06,06,06,06,06,06,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,06,06,06,06,06,06,06,06,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,06,06,06,06,06,06,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,06,06,06,06,06,06,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,06,06,06,06,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,06,06,06,06,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 FOR x% = 15 TO 29 FOR y% = 0 TO 87 READ a PSET (y%, x%), a NEXT y% NEXT x% GET (0, 15)-(87, 29), trucka2 CLS DATA 07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 07,00,00,00,07,00,07,07,07,00,07,07,07,00,07,07,00,00,07,07,00,07,07,00,07,00,07,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 07,00,07,07,07,07,00,07,00,07,00,07,00,07,07,00,07,07,00,07,00,00,07,00,07,00,00,07,00,00,00,00,00,00,00,00,00,00,00,00 DATA 07,00,00,07,07,07,07,00,07,07,07,00,07,07,07,00,07,07,00,07,00,07,00,00,07,00,00,00,07,00,00,00,00,00,00,00,00,00,00,00 DATA 07,00,07,07,07,07,00,07,00,07,00,07,00,07,07,00,07,07,00,07,00,07,00,00,07,00,00,00,00,07,00,00,00,00,00,00,00,00,00,00 DATA 07,00,00,00,07,00,07,07,07,00,07,07,07,00,07,07,00,00,07,07,00,07,07,00,07,00,00,00,00,00,07,00,00,00,00,00,00,00,00,00 DATA 07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08 DATA 07,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08 DATA 07,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08 DATA 07,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08 DATA 07,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08 DATA 07,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08 DATA 07,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08 DATA 07,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08 DATA 07,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08 DATA 07,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08 DATA 07,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08 DATA 07,00,00,00,00,00,00,00,00,00,00,00,07,00,00,00,00,00,00,00,00,00,00,00,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08 DATA 07,00,00,00,00,00,00,00,00,00,00,00,07,00,00,00,00,00,00,00,00,00,00,00,08,08,08,08,07,07,07,07,07,07,07,08,08,08,08,08 DATA 07,00,00,00,00,00,00,00,00,00,07,07,07,07,07,00,00,00,00,00,00,00,00,00,08,08,08,08,07,07,07,07,07,07,07,08,08,08,08,08 DATA 07,00,00,00,00,00,00,00,00,00,07,07,07,07,07,00,00,00,00,00,00,00,00,00,08,08,08,08,07,07,07,07,07,07,07,08,08,08,08,08 DATA 07,00,00,00,00,00,00,00,00,00,07,07,07,07,07,00,00,00,00,00,00,00,00,00,08,08,08,08,07,07,07,07,07,07,07,08,08,08,08,08 DATA 07,00,00,00,00,00,00,00,00,00,07,07,07,07,07,00,00,00,00,00,00,00,00,00,08,08,08,08,07,07,07,07,07,07,07,08,08,08,08,08 DATA 07,00,00,00,00,00,00,00,00,00,07,07,07,07,07,00,00,00,00,00,00,00,00,00,08,08,08,08,07,07,07,07,07,08,07,08,08,08,08,08 DATA 07,00,00,00,00,00,00,00,00,00,07,07,07,07,07,00,00,00,00,00,00,00,00,00,08,08,08,08,07,07,07,07,07,08,07,08,08,08,08,08 DATA 07,00,00,00,00,00,00,00,00,00,07,07,07,07,07,00,00,00,00,00,00,00,00,00,08,08,08,08,07,07,07,07,07,07,07,08,08,08,08,08 DATA 07,00,00,00,00,00,00,00,00,00,07,07,07,07,07,00,00,00,00,00,00,00,00,00,08,08,08,08,07,07,07,07,07,07,07,08,08,08,08,08 DATA 07,00,00,00,00,00,00,00,00,00,07,07,07,07,07,00,00,00,00,00,00,00,00,00,08,08,08,08,07,07,07,07,07,07,07,08,08,08,08,08 DATA 07,00,00,00,00,00,00,00,00,00,07,07,07,07,07,00,00,00,00,00,00,00,00,00,08,08,08,08,07,07,07,07,07,07,07,08,08,08,08,08 DATA 15,00,00,00,00,00,00,00,00,00,07,07,07,07,07,00,00,00,00,00,00,00,00,00,08,08,08,08,07,07,07,07,07,07,07,08,08,08,08,08 FOR x = 10 TO 39 FOR y = 10 TO 49 READ j PSET (y, x), j NEXT y NEXT x GET (10, 10)-(49, 39), station DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,08,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,08,08,08,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,08,08,08,08,08,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,08,08,08,08,08,08,08,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,08,08,08,08,08,08,08,08,08,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,08,08,08,08,08,08,08,08,08,08,08,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,08,08,08,08,08,08,08,08,08,08,08,08,08,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,00,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,00,00,00,00,00,00,00,00 DATA 09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09 DATA 09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09 DATA 09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09 DATA 09,09,09,09,00,00,00,00,00,00,00,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,00,00,00,00,00,00,00,09,09,09,09,09 DATA 09,09,09,09,00,09,09,00,09,09,00,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,00,09,09,00,09,09,00,09,09,09,09,09 DATA 09,09,09,09,00,09,09,00,09,09,00,09,09,09,09,09,09,04,04,04,04,04,09,09,09,09,09,09,00,09,09,00,09,09,00,09,09,09,09,09 DATA 09,09,09,09,00,00,00,00,00,00,00,09,09,09,09,09,09,04,04,04,04,04,09,09,09,09,09,09,00,00,00,00,00,00,00,09,09,09,09,09 DATA 09,09,09,09,00,09,09,00,09,09,00,09,09,09,09,09,09,04,04,04,04,04,09,09,09,09,09,09,00,09,09,00,09,09,00,09,09,09,09,09 DATA 09,09,09,09,00,09,09,00,09,09,00,09,09,09,09,09,09,04,04,04,00,04,09,09,09,09,09,09,00,09,09,00,09,09,00,09,09,09,09,09 DATA 09,09,09,09,00,00,00,00,00,00,00,09,09,09,09,09,09,04,04,04,00,04,09,09,09,09,09,09,00,00,00,00,00,00,00,09,09,09,09,09 DATA 09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,04,04,04,04,04,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09 DATA 09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,04,04,04,04,04,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09 DATA 09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,04,04,04,04,04,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,07,07,07,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02 DATA 02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,07,07,07,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02 DATA 02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,07,07,07,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02 FOR x = 10 TO 39 FOR y = 10 TO 49 READ k PSET (y, x), k NEXT y NEXT x GET (10, 10)-(49, 39), house DATA 15,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,15,00,00,00,00,00,00,00,00,00,00,07,00,00,00,00,00,00,08,08,08,08 DATA 15,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,15,00,00,00,00,00,00,00,00,00,07,07,07,00,00,00,00,08,08,08,08,08 DATA 15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,00,00,00,00,00,00,00,00,07,07,07,07,07,00,00,00,00,00,00,00,00 DATA 15,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,15,00,00,00,00,00,00,00,07,07,07,07,07,07,07,00,00,04,04,04,00,00 DATA 15,00,09,09,09,00,00,09,00,00,00,09,00,00,09,09,00,00,15,00,00,00,00,00,00,07,07,07,07,07,07,07,07,07,00,04,04,04,00,00 DATA 15,00,09,00,00,00,09,00,09,00,09,00,09,00,09,00,09,00,15,00,00,00,00,00,07,07,07,07,07,07,07,07,07,07,07,04,04,04,00,00 DATA 15,00,09,09,00,00,09,00,09,00,09,00,09,00,09,00,09,00,15,00,00,00,00,07,07,07,07,07,07,07,07,07,07,07,07,07,04,04,00,00 DATA 15,00,09,00,00,00,09,00,09,00,09,00,09,00,09,00,09,00,15,00,00,00,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,04,00,00 DATA 15,00,09,00,00,00,00,09,00,00,00,09,00,00,09,09,00,00,15,00,00,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,00,00 DATA 15,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,15,00,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,00 DATA 15,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,15,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07 DATA 15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,00,00,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,00,00 DATA 15,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,15,00,00,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,00,00 DATA 15,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,15,00,00,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,00,00 DATA 15,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,15,00,00,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,00,00 DATA 15,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,15,00,00,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,00,00 DATA 15,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,15,00,00,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,00,00 DATA 15,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,15,00,00,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,00,00 DATA 15,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,15,00,00,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,00,00 DATA 15,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,15,00,00,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,00,00 DATA 15,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,15,00,00,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,00,00 DATA 15,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,15,00,00,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,00,00 DATA 15,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,15,00,00,08,08,08,08,08,08,07,07,07,07,07,08,08,08,08,08,08,00,00 DATA 15,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,15,00,00,08,08,08,08,08,08,07,07,07,07,07,08,08,08,08,08,08,00,00 DATA 15,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,15,00,00,08,08,08,08,08,08,07,07,07,07,07,08,08,08,08,08,08,00,00 DATA 15,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,15,00,00,08,08,08,08,08,08,07,07,07,08,07,08,08,08,08,08,08,00,00 DATA 15,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,15,00,00,08,08,08,08,08,08,07,07,07,08,07,08,08,08,08,08,08,00,00 DATA 15,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,15,00,00,08,08,08,08,08,08,07,07,07,07,07,08,08,08,08,08,08,00,00 DATA 15,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,15,00,00,08,08,08,08,08,08,07,07,07,07,07,08,08,08,08,08,08,00,00 DATA 15,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,15,00,00,08,08,08,08,08,08,07,07,07,07,07,08,08,08,08,08,08,00,00 FOR x = 10 TO 39 FOR y = 10 TO 49 READ l PSET (y, x), l NEXT y NEXT x GET (10, 10)-(49, 39), work DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,07,07,07,07,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,07,08,08,08,08,08,07,07,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,07,07,08,08,08,08,08,08,08,08,08,07,07,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,07,07,08,08,15,15,15,08,08,08,15,15,08,08,08,07,07,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,07,07,08,08,08,08,15,08,08,15,08,08,15,08,15,08,08,08,08,07,07,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,07,07,08,08,08,08,08,08,15,08,08,15,08,08,15,08,08,15,08,08,08,08,08,07,07,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,07,07,08,08,08,08,08,08,08,08,15,07,15,08,08,08,15,08,08,15,08,08,08,08,08,08,08,07,07,00,00,00,00,00,00 DATA 00,00,00,00,07,08,08,08,08,08,08,08,08,08,08,15,15,08,08,08,08,15,08,08,15,08,08,08,08,08,08,08,08,08,07,07,00,00,00,00 DATA 00,00,00,07,08,08,08,08,08,08,08,08,08,08,08,15,08,08,08,08,08,15,08,15,08,08,08,08,08,08,08,08,08,08,08,08,07,00,00,00 DATA 00,00,07,08,08,08,08,08,08,08,08,08,08,08,08,15,08,08,08,08,08,15,15,08,08,08,08,08,08,08,08,08,08,08,08,08,08,07,00,00 DATA 00,07,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,07,00 DATA 07,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,07 DATA 15,15,15,00,00,00,00,00,00,15,15,15,00,00,00,00,00,00,15,15,15,00,00,00,00,00,00,00,15,15,15,00,00,00,00,00,00,15,15,15 DATA 15,15,15,00,00,00,00,00,00,15,15,15,00,00,00,00,00,00,15,15,15,00,00,00,00,00,00,00,15,15,15,00,00,00,00,00,00,15,15,15 DATA 15,15,15,00,00,00,00,00,00,15,15,15,00,00,00,00,00,00,15,15,15,00,00,00,00,00,00,00,15,15,15,00,00,00,00,00,00,15,15,15 DATA 15,15,15,00,00,00,00,00,00,15,15,15,00,00,00,00,00,00,15,15,15,00,00,00,00,00,00,00,15,15,15,00,00,00,00,00,00,15,15,15 DATA 15,15,15,00,00,00,00,00,00,15,15,15,00,00,00,00,00,00,15,15,15,00,00,00,00,00,00,00,15,15,15,00,00,00,00,00,00,15,15,15 DATA 15,15,15,00,00,00,00,00,00,15,15,15,00,00,00,00,00,00,15,15,15,00,00,00,00,00,00,00,15,15,15,00,00,00,00,00,00,15,15,15 DATA 15,15,15,00,00,00,00,00,00,15,15,15,00,00,00,00,00,00,15,15,15,00,00,00,00,00,00,00,15,15,15,00,00,00,00,00,00,15,15,15 DATA 15,15,15,00,00,00,00,00,00,15,15,15,00,00,00,00,00,00,15,15,15,00,00,00,00,00,00,00,15,15,15,00,00,00,00,00,00,15,15,15 DATA 15,15,15,00,00,00,00,00,00,15,15,15,00,00,00,00,00,00,15,15,15,00,00,00,00,00,00,00,15,15,15,00,00,00,00,00,00,15,15,15 DATA 15,15,15,00,00,00,00,00,00,15,15,15,00,00,00,00,00,00,15,15,15,00,00,00,00,00,00,00,15,15,15,00,00,00,00,00,00,15,15,15 DATA 07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07 DATA 08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08 DATA 07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07 DATA 08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08 DATA 02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02 DATA 02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02 DATA 02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02 FOR x = 10 TO 39 FOR y = 10 TO 49 READ m PSET (y, x), m NEXT y NEXT x GET (10, 10)-(49, 39), pd DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,15,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,15,15,15,15,15,15,15,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,00,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,08,15,15,15,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,00,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,08,08,15,08,08,15,08,08,15,15,08,08,15,08,08,51,08,15,08,08,15,08,08,08,00,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,08,08,08,15,08,08,15,08,15,08,08,15,08,15,15,08,15,08,15,08,15,08,08,08,08,08,00,00,00,00,00,00,00 DATA 00,00,00,00,00,00,08,08,08,08,15,15,15,08,08,15,08,08,15,08,15,08,15,15,08,15,15,08,08,08,08,08,08,08,00,00,00,00,00,00 DATA 00,00,00,00,00,08,08,08,08,08,15,08,08,15,08,15,15,15,15,08,15,08,15,15,08,15,08,15,08,08,08,08,08,08,08,00,00,00,00,00 DATA 00,00,00,00,08,08,08,08,08,08,15,08,08,15,08,15,08,08,15,08,15,08,08,15,08,15,08,08,15,08,08,08,08,08,08,08,00,00,00,00 DATA 00,00,00,08,08,08,08,08,08,08,15,15,15,08,08,15,08,08,15,08,15,08,08,15,08,15,08,08,15,08,08,08,08,08,08,08,08,00,00,00 DATA 00,00,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,00,00 DATA 00,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,00 DATA 08,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,08,08 DATA 04,04,04,00,00,00,00,00,00,04,04,04,00,00,00,00,00,00,15,15,15,00,00,00,00,00,00,00,01,01,01,00,00,00,00,00,00,01,01,01 DATA 04,04,04,00,00,00,00,00,00,04,04,04,00,00,00,00,00,00,15,15,15,00,00,00,00,00,00,00,01,01,01,00,00,00,00,00,00,01,01,01 DATA 04,04,04,00,00,00,00,00,00,04,04,04,00,00,00,00,00,00,15,15,15,00,00,00,00,00,00,00,01,01,01,00,00,00,00,00,00,01,01,01 DATA 04,04,04,00,00,00,00,00,00,04,04,04,00,00,00,00,00,00,15,15,15,00,00,00,00,00,00,00,01,01,01,00,00,00,00,00,00,01,01,01 DATA 04,04,04,00,00,00,00,00,00,04,04,04,00,00,00,00,00,00,15,15,15,00,00,00,00,00,00,00,01,01,01,00,00,00,00,00,00,01,01,01 DATA 04,04,04,00,00,00,00,00,00,04,04,04,00,00,00,00,00,00,15,15,15,00,00,00,00,00,00,00,01,01,01,00,00,00,00,00,00,01,01,01 DATA 04,04,04,00,00,00,00,00,00,04,04,04,00,00,00,00,00,00,15,15,15,00,00,00,00,00,00,00,01,01,01,00,00,00,00,00,00,01,01,01 DATA 04,04,04,00,00,00,00,00,00,04,04,04,00,00,00,00,00,00,15,15,15,00,00,00,00,00,00,00,01,01,01,00,00,00,00,00,00,01,01,01 DATA 04,04,04,00,00,00,00,00,00,04,04,04,00,00,00,00,00,00,15,15,15,00,00,00,00,00,00,00,01,01,01,00,00,00,00,00,00,01,01,01 DATA 04,04,04,00,00,00,00,00,00,04,04,04,00,00,00,00,00,00,15,15,15,00,00,00,00,00,00,00,01,01,01,00,00,00,00,00,00,01,01,01 DATA 07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02 DATA 02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02 DATA 02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02 FOR x = 10 TO 39 FOR y = 10 TO 49 READ n PSET (y, x), n NEXT y NEXT x GET (10, 10)-(49, 39), bankpic DATA 01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,00,00,15,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 01,01,15,15,01,01,15,01,01,15,01,15,01,01,15,01,01,15,15,01,01,01,00,07,08,07,00,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 01,15,01,01,01,01,15,01,01,15,01,15,15,01,15,01,15,01,01,15,01,01,07,08,08,08,07,00,00,00,00,00,00,00,00,00,00,00,00,00 DATA 01,15,01,01,01,01,15,01,01,15,01,15,01,15,15,01,00,15,01,01,01,07,08,08,08,08,08,07,00,00,00,00,00,00,00,00,00,00,00,00 DATA 01,15,01,15,15,01,15,01,01,15,01,15,01,15,15,01,00,01,15,01,07,08,08,08,08,08,08,08,07,00,00,00,00,00,00,00,00,00,00,00 DATA 01,15,01,01,15,01,15,01,01,15,01,15,01,01,15,01,15,01,01,15,08,08,08,08,08,08,08,08,08,07,00,00,00,00,00,00,00,00,00,00 DATA 01,00,15,15,01,01,01,15,15,00,01,15,01,01,15,01,01,15,15,08,08,08,08,08,08,08,08,08,08,08,07,00,00,00,00,00,00,00,00,00 DATA 01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,07,08,08,08,08,08,08,08,08,08,08,08,08,08,07,00,00,00,00,00,00,00,00 DATA 01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,07,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,07,00,00,00,00,00,00,00 DATA 00,00,07,00,00,00,00,00,00,00,00,00,00,00,00,07,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,07,00,00,00,00,00,00 DATA 00,00,07,00,00,00,00,00,00,00,00,00,00,00,07,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,07,00,00,00,00,00 DATA 00,00,07,00,00,00,00,00,00,00,00,00,00,07,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,07,00,00,00,00 DATA 00,00,07,00,00,00,00,00,00,00,00,00,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,00,00,00 DATA 00,00,07,00,00,00,00,00,00,00,00,07,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,07,00,00 DATA 00,00,07,00,00,00,00,00,00,00,07,00,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,07,00 DATA 00,00,07,00,00,00,00,00,00,07,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07 DATA 00,00,07,00,00,00,00,00,00,00,00,00,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,00,00,00,00 DATA 00,00,07,00,00,00,00,00,00,00,00,00,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,00,00,00,00 DATA 00,00,07,00,00,00,00,00,00,00,00,00,04,04,04,04,04,04,04,04,04,04,01,01,01,01,01,01,04,04,04,04,04,04,04,04,00,00,00,00 DATA 00,00,07,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,01,01,01,01,01,01,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,07,00,00,00,00,00,00,00,00,00,04,04,04,04,04,04,04,04,04,04,01,01,01,01,01,01,04,04,04,04,04,04,04,04,00,00,00,00 DATA 00,00,07,00,00,00,00,00,00,00,00,00,04,04,04,04,04,04,04,04,04,04,01,01,01,01,00,01,04,04,04,04,04,04,04,04,00,00,00,00 DATA 00,00,07,00,00,00,00,00,00,00,00,00,04,04,04,04,04,04,04,04,04,04,01,01,01,01,00,01,04,04,04,04,04,04,04,04,00,00,00,00 DATA 00,00,07,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,01,01,01,01,01,01,00,00,00,00,00,00,00,00,00,00,00,00 DATA 00,00,07,00,00,00,00,00,00,00,00,00,04,04,04,04,04,04,04,04,04,04,01,01,01,01,01,01,04,04,04,04,04,04,04,04,00,00,00,00 DATA 00,00,07,00,00,00,00,00,00,00,00,00,04,04,04,04,04,04,04,04,04,04,01,01,01,01,01,01,04,04,04,04,04,04,04,04,00,00,00,00 DATA 00,00,07,00,00,00,00,00,00,00,00,00,04,04,04,04,04,04,04,04,04,04,01,01,01,01,01,01,04,04,04,04,04,04,04,04,00,00,00,00 DATA 10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10 DATA 10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10 DATA 10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10 FOR x = 10 TO 39 FOR y = 10 TO 49 READ o PSET (y, x), o NEXT y NEXT x GET (10, 10)-(49, 39), gunshop DATA 00,00,00,00,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,00,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,00,00,00,00 DATA 00,00,00,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,00,00,00 DATA 00,00,07,00,00,00,00,00,07,00,07,07,00,07,00,00,00,00,07,07,00,00,07,00,00,00,00,00,07,00,00,00,00,07,00,00,00,07,00,00 DATA 00,07,07,07,07,00,07,07,07,00,07,07,00,07,00,07,07,07,07,00,07,07,00,07,07,00,07,07,07,00,07,07,07,07,00,07,07,00,07,00 DATA 07,07,07,07,07,00,07,07,07,00,00,00,00,07,00,00,00,07,07,00,07,07,00,07,07,00,07,07,07,00,00,00,07,07,00,00,00,07,07,07 DATA 07,07,07,07,07,00,07,07,07,00,07,07,00,07,00,07,07,07,07,00,00,00,00,07,07,00,07,07,07,00,07,07,07,07,00,07,07,00,07,07 DATA 07,07,07,07,07,00,07,07,07,00,07,07,00,07,00,00,00,00,07,00,07,07,00,07,07,00,07,07,07,00,00,00,00,07,00,07,07,00,07,07 DATA 07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07 DATA 00,00,00,08,08,08,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,08,08,08,00,00,00 DATA 00,00,00,08,08,08,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,08,00,00,00 DATA 00,00,00,08,08,08,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,08,08,08,00,00,00 DATA 00,00,00,08,08,08,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,08,08,08,00,00,00 DATA 00,00,00,08,08,08,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,08,08,08,00,00,00 DATA 00,00,00,08,08,08,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,08,08,08,00,00,00 DATA 00,00,00,08,08,08,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,08,08,08,00,00,00 DATA 00,00,00,08,08,08,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,08,08,08,00,00,00 DATA 00,00,00,08,08,08,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,08,08,08,00,00,00 DATA 00,00,00,08,08,08,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,08,08,08,00,00,00 DATA 00,00,00,08,08,08,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,08,08,08,00,00,00 DATA 00,00,00,08,08,08,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,08,08,08,00,00,00 DATA 00,00,00,08,08,08,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,08,08,08,00,00,00 DATA 00,00,00,08,08,08,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,08,08,08,00,00,00 DATA 00,00,00,08,08,08,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,08,08,08,00,00,00 DATA 00,00,00,08,08,08,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,08,08,08,00,00,00 DATA 00,00,00,08,08,08,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,08,08,08,00,00,00 DATA 00,00,00,08,08,08,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,08,08,08,00,00,00 DATA 00,00,00,08,08,08,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,08,08,08,00,00,00 DATA 10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10 DATA 10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10 DATA 10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10 FOR x = 10 TO 39 FOR y = 10 TO 49 READ a PSET (y, x), a NEXT y NEXT x GET (10, 10)-(49, 39), movies CALL first(name$, light, fuel%, cash!, hp, b, c, d, e) start: SCREEN 12 CALL start(name$, light, fuel%, cash!, hp, b, c, d, e, jd, jb, sa, v, cig%) LINE (0, 39)-(490, 470), 1, B: CIRCLE (540, 143), 30, 4: PAINT (540, 142), 8, 4: CIRCLE (540, 143), 25, 1, 1.9, 4.4 LOCATE 5, 63: COLOR 4: PRINT "STATUS:" PUT (450, 40), station: PUT (1, 40), house: PUT (450, 439), work: PUT (1, 439), pd: PUT (225, 439), bankpic: PUT (1, 220), gunshop: PUT (225, 40), movies CALL showmove(hours!, day%, deposit!, loan!, fuel%, b, c, d, e): GOSUB showit DO key$ = INKEY$ key$ = UCASE$(key$) IF key$ <> "" THEN GOSUB moves LOOP moves: IF key$ <> "1" OR key$ <> "2" OR key$ <> "3" OR key$ <> "4" OR key$ <> "5" OR key$ <> "6" OR key$ <> "7" OR key$ <> "8" OR key$ <> "9" OR key$ <> "0" THEN CALL showmove(hours!, day%, deposit!, loan!, fuel%, b, c, d, e): GOSUB showit CALL move(key$, fuel%, light, b, c, d, e) IF key$ = "M" THEN CALL more(cash!, fuel%, jd, jb, sa, v, str, bull%, grn, hp) GOSUB start END IF IF key$ = "C" THEN IF bb = 0 THEN bb = 1 ELSE bb = 0 END IF END IF IF key$ = "D" THEN CALL drink(jd, jb, sa, v, hp) GOSUB start END IF CALL showmove(hours!, day%, deposit!, loan!, fuel%, b, c, d, e): GOSUB showit RETURN showit: IF bb = 0 THEN IF light = 0 THEN PUT (b, c), truck1: PUT (d, e), trucka2 ELSE PUT (b, c), truck1: PUT (d, e), truckb2 END IF END IF IF bb = 1 THEN IF light = 0 THEN PUT (b, c), cara1: PUT (d, e), car2 ELSE PUT (b, c), carb1: PUT (d, e), car2 END IF END IF IF b > 360 AND c < 70 THEN CALL exxon(cash!, fuel%, cig%, jd, jb, sa, v): b = 400: c = 70: d = 400: e = 85: GOSUB start IF b < 40 AND c < 70 THEN CALL home(cash!, cash2!, jd%, jd2%, jb%, jb2%, sa%, sa2%, v%, v2%, cig%, cig2%, hours!): b = 0: c = 70: d = 0: e = 85: GOSUB start IF b > 360 AND c > 400 THEN CALL sonic(cash!, hours!, name$): b = 400: c = 400: d = 400: e = 415: GOSUB start IF b < 40 AND c > 400 THEN CALL police: b = 0: c = 400: d = 0: e = 415: GOSUB start IF b > 130 AND b < 270 AND c > 400 THEN CALL bank(name$, cash!, deposit!, loan!, day%, hp): b = 200: c = 400: d = 200: e = 415: GOSUB start IF b < 40 AND c > 180 AND c < 260 THEN CALL guns(cash!, str, bull%, grn%): b = 40: c = 220: d = 40: e = 235: GOSUB start IF b > 130 AND b < 270 AND c < 70 THEN CALL theater(hours!, cash!): b = 200: c = 70: d = 200: e = 85: GOSUB start RETURN SUB bank (name$, cash!, deposit!, loan!, day%, hp) CLS PRINT "Welcome to the bank." PRINT "The interest rate is 1.5%." PRINT DO PRINT "Would you like to make a (D)eposit, (W)ithdrawal, (L)oan, or (P)ay back a loan" INPUT "or (R)ob this place"; would$: would$ = UCASE$(would$) IF would$ = "D" THEN PRINT "You have $"; cash!; "with you, and "; deposit!; "in your account." INPUT "How much a you want to deposit"; how! IF how! > cash! THEN PRINT "You only have $"; cash!; ". Let's be reasonable." f = 0 ELSE deposit! = deposit! + how! cash! = cash! - how! f = 1 END IF END IF IF would$ = "W" THEN PRINT "You have $"; deposit!; "in your account." INPUT "How much a you wish to withdraw"; how! IF how! > deposit! THEN PRINT "You only have $"; deposit!; "in your account!!!" f = 0 ELSE deposit! = deposit! - how! cash! = cash! + how! f = 1 END IF END IF IF would$ = "L" THEN PRINT "You have $"; cash!; "in your pocket and $"; deposit!; "in your account." INPUT "How much a you want to borrow"; how! IF how! > 5000 THEN PRINT "We an't allow anyone to borrow over $5,000" f = 0 ELSE loan! = loan! + how! cash! = cash! + loan! f = 1 END IF END IF IF would$ = "P" THEN PRINT "You have $"; cash!; "in your pocket and $"; loan!; "is the amount to pay back." INPUT "How much of the debt a you want to pay off"; how! IF how! > loan! THEN PRINT "Well, I'll gladly accept the offer, but you only owe $"; loan!; "." f = 0 ELSE loan! = loan! - how! cash! = cash! - how! f = 1 END IF END IF IF would$ = "R" AND q = 0 THEN q = 1 RANDOMIZE TIMER which% = INT(RND * 3) + 1 IF which% = 1 THEN RANDOMIZE TIMER steal! = INT(RND * 500) + 1 PRINT "You walk out with $"; steal!; "!" cash! = cash! + steal! f = 2 END IF IF which% = 2 THEN PRINT "The vault is time locked so no one can get in": f = 2 IF which% = 3 THEN PRINT "The security guard is eyeing you." PRINT "You decide to rob it anyway" RANDOMIZE TIMER que% = INT(RND * 2) + 1 IF que% = 1 THEN PRINT "You couldn't outsmart the sescurity guard!" PRINT "He shot you in the arm and you lost 30 hp" hp = hp - 30 END IF IF que% = 2 THEN RANDOMIZE TIMER steal! = INT(RND * 500) + 1 PRINT "You walk out with $"; steal!; "!" cash! = cash! + steal! f = 2 END IF END IF END IF IF f = 0 THEN PRINT "You didn't make a transaction" IF f = 1 THEN PRINT "Alright,"; name$; ", the transaction is complete." INPUT "Do you want to leave now"; go$: go$ = UCASE$(go$) CLS LOOP UNTIL go$ = "Y" CLS END SUB SUB drink (jd, jb, sa, v, hp) CLS PRINT "HP="; hp; "/500" PRINT PRINT "This is what you got:" PRINT PRINT USING "Jack Daniels: ## +20"; jd PRINT USING "Jim Bean: ## +40"; jb PRINT USING "Samuel Addams: ## +60"; sa PRINT USING "Vodka: ## +80"; v PRINT INPUT "Which do you want to drink"; which$: which$ = UCASE$(which$) IF (which$ = "JD" OR which$ = "JACK DANIELS") AND jd > 0 THEN jd = jd - 1 hp = hp + 20 PRINT "You take some JD, and you now have "; jd; "left." END IF IF (which$ = "JB" OR which$ = "JIM BEAN") AND jb > 0 THEN jb = jb - 1 hp = hp + 40 PRINT "You take some JB, and you now have "; jb; "left." END IF IF (which$ = "SA" OR which$ = "SAMUEL ADDAMS") AND sa > 0 THEN sa = sa - 1 hp = hp + 60 PRINT "You take some SA, and you now have "; sa; "left." END IF IF (which$ = "V" OR which$ = "VODKA") AND v > 0 THEN v = v - 1 hp = hp + 80 PRINT "You take some VODKA, and you now have "; v; "left." END IF INPUT "Press to continue ", blah$ CLS END SUB SUB exxon (cash!, fuel%, cig%, jd, jb, sa, v) DO CLS COLOR 2 PRINT "You have $"; cash!; "in your pocket" PRINT PRINT "'What a you want?', the old man behind the counter asks." INPUT "(G)as, (C)igarettes, (A)lcohol, (L)eave "; choice$: choice$ = UCASE$(choice$) IF choice$ = "G" THEN PRINT "It's 10› a drop." PRINT "You have"; fuel%; "drops in your tank." INPUT "How much gas 'ya need?", needgas% pay! = needgas% * .1 PRINT "That'll be $"; pay! INPUT "Got enough money, Y/N"; got$: got$ = UCASE$(got$) IF got$ = "Y" THEN IF cash! >= pay! THEN cash! = cash! - pay! fuel% = fuel% + needgas% PRINT "You pay the cashier" ELSE PRINT "Sorry, bud, you ain't got enough money for that." END IF END IF IF fuel% > 1000 THEN fuel% = 1000 END IF IF choice$ = "C" THEN INPUT "You an't look 18. Got any ID, Y/N? ", id$: id$ = UCASE$(id$) IF id$ = "Y" THEN PRINT "I still an't think you're 18. It's $2.25 per pack" INPUT "How many packs"; pack% pay! = pack% * 2.25 PRINT "That comes to $"; pay! INPUT "Got enough, Y/N"; got$ IF got$ = "Y" OR got$ = "y" THEN IF cash! >= pay! THEN cash! = cash! - pay! cig% = cig% + pack% PRINT "You pay the cashier" ELSE PRINT "Sorry, bud, you ain't got enough money for that." END IF END IF ELSE PRINT "Didn't think so." END IF END IF IF choice$ = "A" THEN PRINT PRINT "This is what we got:" PRINT PRINT "Jack Daniels $10 +20hp" PRINT "Jim Bean $20 +40hp" PRINT "Samuel Addams $30 +60hp" PRINT "Vodka $40 +80hp" PRINT "It ain't much, but it'll get 'ya wherever you're goin' fast!" PRINT "(Type in the initials)" INPUT "What you lookin' for"; alc$: alc$ = UCASE$(alc$) IF alc$ = "JACK DANIELS" OR alc$ = "JD" THEN PRINT "Good old Jack, huh? He's my favorite." INPUT "How many a you want"; bottle% pay! = bottle% * 10 PRINT "That's $"; pay! INPUT "Got enough money"; got$: got$ = UCASE$(got$) IF got$ = "Y" THEN IF cash! >= pay! THEN cash! = cash! - pay! jd = jd + bottle% PRINT "You pay the cashier" ELSE PRINT "Sorry, bud, you ain't got enough money for that." END IF END IF END IF IF alc$ = "JIM BEAN" OR alc$ = "JB" THEN PRINT "Good old Jimmy, huh?" INPUT "How many a you want"; bottle% pay! = bottle% * 20 PRINT "That's $"; pay! INPUT "Got enough money"; got$: got$ = UCASE$(got$) IF got$ = "Y" THEN IF cash! >= pay! THEN cash! = cash! - pay! jb = jb + bottle% PRINT "You pay the cashier" ELSE PRINT "Sorry, bud, you ain't got enough money for that." END IF END IF END IF IF alc$ = "SAMUEL ADDAMS" OR alc$ = "SA" THEN PRINT "Good old Sammie, huh? He's my favorite." INPUT "How many bottles a you want"; bottle% pay! = bottle% * 30 PRINT "That's $"; pay! INPUT "Got enough money"; got$: got$ = UCASE$(got$) IF got$ = "Y" THEN IF cash! >= pay! THEN cash! = cash! - pay! sa = sa + bottle% PRINT "You pay the cashier" ELSE PRINT "Sorry, bud, you ain't got enough money for that." END IF END IF END IF IF alc$ = "VODKA" OR alc$ = "V" THEN PRINT "Vodka, huh?" INPUT "How many a you want"; bottle% pay! = bottle% * 40 PRINT "That's $"; pay! INPUT "Got enough money"; got$: got$ = UCASE$(got$) IF got$ = "Y" THEN IF cash! >= pay! THEN cash! = cash! - pay! v = v + bottle% PRINT "You pay the cashier" ELSE PRINT "Sorry, bud, you ain't got enough money for that." END IF END IF END IF END IF IF choice$ = "L" THEN GOTO 10 ELSE INPUT "Will that be all, Y/N"; all$: all$ = UCASE$(all$) END IF LOOP UNTIL all$ = "Y" OR choice$ = "L" 10 CLS END SUB SUB FADE CL = 115 FOR FD = 0 TO 63 FOR f = 0 TO CL OUT &H3C7, f r = INP(&H3C9) - 1: IF r = -1 THEN r = 0 g = INP(&H3C9) - 1: IF g = -1 THEN g = 0 b = INP(&H3C9) - 1: IF b = -1 THEN b = 0 OUT &H3C8, f OUT &H3C9, r OUT &H3C9, g OUT &H3C9, b NEXT f NEXT FD SCREEN 9 SCREEN 12 CLS END SUB SUB first (name$, light, fuel%, cash!, hp, b, c, d, e) CLS INPUT "What's your name"; name$ PRINT PRINT "Alright, "; name$; ", are you ready to start the game?": PRINT INPUT "Press to continue...", gabe$ CLS light = 0 fuel% = 1000 cash! = 200 hp = 500 b = 0 c = 70 d = 0 e = 85 END SUB SUB guns (cash!, str, bull%, grn%) SCREEN 0 DO CLS PRINT "You have $"; cash! PRINT PRINT "Welcome to the Gun Shop" PRINT COLOR 9 PRINT "This is what we got:" PRINT PRINT "(S)ix Shooter (Revolver) $100 +5 strength" PRINT "(9)mm semi-automatic $150 +10 strength" PRINT "(D)ouble-barreled shotgun $200 +25 strength" PRINT "(O)ozi $400 +40 strength" PRINT "(M)acine Gun $450 +45 strength" PRINT COLOR 20, 7 PRINT "Today's Specials" COLOR 9, 0 PRINT "(H)and grenades 5 for $50" PRINT "(U)niversal Bullets 1000 for $100" PRINT INPUT "What do you want"; what$: what$ = UCASE$(what$) IF what$ = "S" THEN IF cash! >= 100 THEN PRINT "Here's your pistol." str = 5 cash! = cash! - 100 PRINT "You pay the man" ELSE PRINT "You don't have enough money." END IF END IF IF what$ = "9" THEN IF cash! >= 150 THEN PRINT "Here's your 9mm." str = 10 cash! = cash! - 150 PRINT "You pay the man" ELSE PRINT "You don't have enough money" END IF END IF IF what$ = "D" THEN IF cash! >= 200 THEN str = 25 cash! = cash! - 200 PRINT "Well, here's the shotgun you wanted." PRINT "You pay the man" ELSE PRINT "You don't have enough money" END IF END IF IF what$ = "O" THEN IF cash! >= 400 THEN str = 40 cash! = cash! - 400 PRINT "Don't let the cops catch you with this." PRINT "You pay the man" ELSE PRINT "You don't have enough money" END IF END IF IF what$ = "M" THEN IF cash! >= 450 THEN str = 40 cash! = cash! - 450 PRINT "You pay the man" PRINT "This is quite heavy, so be careful" ELSE PRINT "You don't have enough money" END IF END IF IF what$ = "U" THEN INPUT "How many bullets do you want"; how% pay! = how% * .1 PRINT "The total comes to $"; pay! IF cash! >= pay! THEN cash! = cash! - pay! bull% = bull% + how% PRINT "You pay the man" ELSE PRINT "You don't have enough money." END IF END IF IF what$ = "G" THEN INPUT "How many grenades do you want"; how% pay! = pay! * 10 PRINT "Your total is $"; pay! IF cash! >= pay! THEN cash! = cash! - pay! grn% = grn% + how% PRINT "You pay the man" ELSE PRINT "You don't have enough money." END IF END IF INPUT "Will that be all"; will$: will$ = UCASE$(will$) LOOP UNTIL will$ = "Y" CLS END SUB DEFINT A-Z SUB home (cash!, cash2!, jd%, jd2%, jb%, jb2%, sa%, sa2%, v%, v2%, cig%, cig2%, hours!) DIM pal(256, 2) SCREEN 12 CLS COLOR 2 DO CLS PRINT "a you want to get some (S)leep, go to the (F)ridge, go to the (D)resser, or" INPUT "(L)eave"; choice$: choice$ = UCASE$(choice$) IF choice$ = "S" THEN CLS PRINT "You go to the dresser, put your stuff awn, then go to your nice comfortable" PRINT "waterbed. You suddenly aze off only remembering many different colored stars." T! = TIMER DO UNTIL TIMER > T! + 5 LOOP RANDOMIZE TIMER FOR stars = 1 TO 500 x = INT(RND * 630) + 1 y = INT(RND * 470) + 1 col = INT(RND * 18) + 1 PSET (x, y), col NEXT stars T! = TIMER DO UNTIL TIMER > T! + 1 LOOP FOR r = 1 TO 256 OUT &H3C7, r pal(r, 0) = INP(&H3C9) pal(r, 1) = INP(&H3C9) pal(r, 2) = INP(&H3C9) NEXT r FOR aa = 1 TO 63 FOR r = 1 TO 256 IF pal(r, 0) > 0 THEN pal(r, 0) = pal(r, 0) - 1 IF pal(r, 1) > 0 THEN pal(r, 1) = pal(r, 1) - 1 IF pal(r, 2) > 0 THEN pal(r, 2) = pal(r, 2) - 1 OUT &H3C8, r OUT &H3C9, pal(r, 0) OUT &H3C9, pal(r, 1) OUT &H3C9, pal(r, 2) NEXT r NEXT aa hours! = hours! + 8 T! = TIMER DO UNTIL TIMER > T! + 1 LOOP SCREEN 13 SCREEN 12 COLOR 2 PRINT "You wake up 8 hours later and feel refreshed." END IF IF choice$ = "F" THEN CLS PRINT "You look at your old ass refrigerator and pull the aor open." PRINT "This is what you have in there:" PRINT PRINT "Jack Daniels:"; jd2% PRINT "Jim Bean:"; jb2% PRINT "Samuel Addams:"; sa2% PRINT "Vodka:"; v2% PRINT PRINT "This is what you are carrying:" PRINT PRINT "Jack Daniels:"; jd% PRINT "Jim Bean:"; jb% PRINT "Samuel Addams:"; sa% PRINT "Vodka:"; v% PRINT INPUT "a you want to (T)ake something, or (P)ut something in the fridge, or (S)hut the door"; S$: S$ = UCASE$(S$) IF S$ = "T" THEN INPUT "What a you want from the fridge"; what$: what$ = UCASE$(what$) IF what$ = "JACK DANIELS" THEN INPUT "How many a you want"; quan% jd2% = jd2% - quan% jd% = jd% + quan% PRINT "OK, now you are carrying"; jd%; "Jack Daniels" END IF IF what$ = "JIM BEAN" THEN INPUT "How many a you want"; quan% jb2% = jb2% - quan% jb% = jb% + quan% PRINT "OK, now you are carrying"; jb%; "Jim Bean" END IF IF what$ = "SAMUEL ADDAMS" THEN INPUT "How many a you want"; quan% sa2% = sa2% - quan% sa% = sa% + quan% PRINT "OK, now you are carrying"; sa%; "Samuel Addams" END IF IF what$ = "VODKA" THEN INPUT "How many a you want"; quan% v2% = v2% - quan% v% = v% + quan% PRINT "OK, now you are carrying"; v%; "Vodka" END IF END IF IF S$ = "P" THEN INPUT "What a you want to put in the fridge"; what$: what$ = UCASE$(what$) IF what$ = "JACK DANIELS" THEN INPUT "How many a you want to put in the fridge"; quan% jd2% = jd2% + quan% jd% = jd% - quan% PRINT "OK, now you are carrying"; jd%; "Jack Daniels" END IF IF what$ = "JIM BEAN" THEN INPUT "How many a you want to put in the fridge"; quan% jb2% = jb2% + quan% jb% = jb% - quan% PRINT "OK, now you are carrying"; jb%; "Jim Bean" END IF IF what$ = "SAMUEL ADDAMS" THEN INPUT "How many a you want to put in the"; quan% sa2% = sa2% + quan% sa% = sa% - quan% PRINT "OK, now you are carrying"; sa%; "Samuel Addams" END IF IF what$ = "VODKA" THEN INPUT "How many a you want to put in the fridge"; quan% v2% = v2% + quan% v% = v% - quan% PRINT "OK, now you are carrying"; v%; "Vodka" END IF END IF IF S$ = "S" THEN PRINT "You shut the aor" END IF END IF IF choice$ = "D" THEN PRINT PRINT "You stroll up to the dresser" PRINT "You have $"; cash2!; " on the dresser and $"; cash!; "in your pocket" PRINT "and"; cig2%; "packs of cigarettes on the dresser with"; cig%; "packs in your pocket." INPUT "Do you want to (T)ake or (P)ut your something on the dresser"; S$: S$ = UCASE$(S$) IF S$ = "P" THEN INPUT "a you want the (C)igarettes or the (M)oney"; S$: S$ = UCASE$(S$) IF S$ = "M" THEN INPUT "How much a you want to put on the dresser"; how% IF how% > cash! THEN PRINT "You an't have that much on you." IF how% <= cash! THEN cash2! = cash2! + how% cash! = cash! - how% END IF END IF IF S$ = "C" THEN INPUT "How many a you want to put on the dresser"; how% IF how% > cig% THEN PRINT "You an't have that many on you." IF how% <= cig% THEN cig2% = cig2% + how% cig% = cig% - how% END IF END IF END IF IF S$ = "T" THEN INPUT "a you want the (C)igarettes or the (M)oney"; S$: S$ = UCASE$(S$) IF S$ = "M" THEN INPUT "How much a you want to take from the dresser"; how% IF how% > cash2! THEN PRINT "You an't have that much on the dresser" IF how% <= cash2! THEN cash2! = cash2! - how% cash! = cash! + how% END IF END IF IF S$ = "C" THEN INPUT "How many a you want to take from the dresser"; how% IF how% > cig% THEN PRINT "You an't have that many on the dresser." IF how% <= cig% THEN cig2% = cig2% - how% cig% = cig% + how% END IF END IF END IF END IF IF choice$ = "L" THEN GOTO 20 INPUT "Are you ready to leave, Y/N"; go$: go$ = UCASE$(go$) LOOP UNTIL go$ = "Y" 20 CLS END SUB DEFSNG A-Z SUB more (cash!, fuel%, jd, jb, sa, v, str, bull%, grn., hp) CLS COLOR 2 PRINT PRINT "Cash: $"; cash! PRINT "Fuel: "; fuel% PRINT PRINT USING "Jack Daniels: ##"; jd PRINT USING "Jim Bean: ##"; jb PRINT USING "Samuel Addams: ##"; sa PRINT USING "Vodka: ##"; v PRINT PRINT USING "Weapon Strength: ###"; str PRINT USING "Bullets: #####"; bull% PRINT USING "Grenades: ###"; grn PRINT PRINT USING "HP ###/500"; hp INPUT "Press to return...", gabe CLS END SUB SUB move (key$, fuel%, light, b, c, d, e) move: IF (key$ = "1" OR key$ = "2" OR key$ = CHR$(0) + "P" OR key$ = "3" OR key$ = "4" OR key$ = CHR$(0) + "K" OR key$ = "6" OR key$ = CHR$(0) + "M" OR key$ = "7" OR key$ = "8" OR key$ = CHR$(0) + "H" OR key$ = "9") AND fuel% > 0 THEN fuel% = fuel% - 1 IF key$ = "0" THEN SOUND 500, 10: T! = TIMER: DO UNTIL TIMER > T! + .5: LOOP: SOUND 500, 10 IF key$ = "1" AND fuel% > 0 THEN b = b - 10 c = c + 10 d = d - 10 e = e + 10 END IF IF (key$ = "2" OR key$ = CHR$(0) + "P") AND fuel% > 0 THEN c = c + 10 e = e + 10 END IF IF key$ = "3" AND fuel% > 0 THEN b = b + 10 c = c + 10 d = d + 10 e = e + 10 END IF IF (key$ = "4" OR key$ = CHR$(0) + "K") AND fuel% > 0 THEN b = b - 10 d = d - 10 END IF IF key$ = "5" THEN IF light = 1 THEN light = 0 ELSE light = 1 END IF END IF IF (key$ = "6" OR key$ = CHR$(0) + "M") AND fuel% > 0 THEN b = b + 10 d = d + 10 END IF IF key$ = "7" AND fuel% > 0 THEN b = b - 10 c = c - 10 d = d - 10 e = e - 10 END IF IF (key$ = "8" OR key$ = CHR$(0) + "H") AND fuel% > 0 THEN c = c - 10 e = e - 10 END IF IF key$ = "9" AND fuel% > 0 THEN b = b + 10 c = c - 10 d = d + 10 e = e - 10 END IF IF key$ = "Q" THEN FADE CLS LOCATE 10, 30 INPUT "See 'ya around.", a$ SYSTEM END IF timestop: T! = TIMER DO UNTIL TIMER > T! + .0001 LOOP END SUB SUB police CLS INPUT "Welcome to the Police Department.", gabe CLS END SUB SUB showmove (hours!, day%, deposit!, loan!, fuel%, b, c, d, e) aa$ = "Fuel: #####" g$ = "Day: ###" h$ = "Hours: ##.##" IF hours! >= 24 THEN day% = day% + 1 hours! = hours! - 24 deposit! = (deposit! * .015) + deposit! loan! = (loan! * .015) + loan! END IF hours! = hours! + .005 LOCATE 7, 63: COLOR 2: PRINT USING aa$; fuel% LOCATE 22, 63: PRINT USING g$; day% LOCATE 23, 63: PRINT USING h$; hours! IF fuel% <= 1000 THEN LINE (540, 143)-(540, 158), 8: LINE (540, 143)-(540, 118), 2 IF fuel% <= 875 THEN LINE (540, 143)-(540, 118), 8: LINE (540, 143)-(532.5, 124.25), 10 IF fuel% <= 750 THEN LINE (540, 143)-(532.5, 124.25), 8: LINE (540, 143)-(525, 130.5), 1 IF fuel% <= 625 THEN LINE (540, 143)-(525, 130.5), 8: LINE (540, 143)-(522.5, 136.75), 9 IF fuel% <= 500 THEN LINE (540, 143)-(522.5, 136.75), 8: LINE (540, 143)-(520, 143), 5 IF fuel% <= 375 THEN LINE (540, 143)-(520, 143), 8: LINE (540, 143)-(522.5, 149.25), 13 IF fuel% <= 250 THEN LINE (540, 143)-(522.5, 149.25), 8: LINE (540, 143)-(525, 155.5), 14 IF fuel% <= 125 THEN LINE (540, 143)-(525, 155.5), 8: LINE (540, 143)-(532.5, 161.75), 12 IF fuel% <= 0 THEN LINE (540, 143)-(532.5, 161.75), 8: LINE (540, 143)-(540, 168), 4: LOCATE 9, 64: COLOR 4: PRINT "Out of fuel" IF b < 0 THEN b = 0: d = 0 IF c < 40 THEN c = 40: e = 55 IF d > 400 THEN d = 400: b = 400 IF e > 454 THEN e = 454: c = 439 END SUB SUB sonic (cash!, hours!, name$) SCREEN 12 CLS here = 0 wage! = 5.15 COLOR 9 INPUT "You get paid $5.15 an hour, here.", gabe CLS PRINT "'Hello, "; name$; ".' your manager says to you as you straighten your hat." DO IF here = 0 THEN INPUT "Are you here to work, Y/N"; w$: w$ = UCASE$(w$) IF here = 1 THEN CLS : INPUT "Are you here as a customer, Y/N"; w2$: w2$ = UCASE$(w2$) IF w$ = "Y" AND here = 0 THEN here = 1 CLS PRINT "Well, then, put on your apron and start up the grills." PRINT "You can't go over 18 hours per visit." DO INPUT "How many hours are you going to work"; hour! LOOP UNTIL hour! <= 18 CLS todayworkcash! = hour! * wage! cash! = cash! + todayworkcash! hours! = hours! + hour! CLS PRINT "After "; hour!; " hours of flipping burgers, you earned $"; todayworkcash! END IF IF w$ = "N" OR w2$ = "Y" THEN CLS PRINT "You take the vacant booth by the window." PRINT "Alright, "; name$; ", can I take your order, Y/N" INPUT ; order$: order$ = UCASE$(order$) IF order$ = "Y" THEN PRINT PRINT "This is what we got:" PRINT PRINT "Cheeseburger $2.50" PRINT "Hamburger $2.00" PRINT "Fries $0.50" PRINT PRINT "Drinks are $1.00" PRINT "Coke, Diet Coke, Sprite, Dr. Pepper" PRINT INPUT "What a you want"; want$: want$ = UCASE$(want$) IF want$ = "CHEESEBURGER" THEN pay! = 2.5 INPUT "Got enough money, Y/N"; got$: got$ = UCASE$(got$) IF got$ = "Y" THEN IF pay! > cash! THEN PRINT "You stiffin' me, "; name$; "!!!" ELSE cash! = cash! - pay! END IF END IF END IF IF want$ = "BURGER" THEN pay! = 2 INPUT "Got enough money, Y/N"; got$: got$ = UCASE$(got$) IF got$ = "Y" THEN IF pay! > cash! THEN PRINT "You stiffin' me, "; name$; "!!!" ELSE cash! = cash! - pay! END IF END IF END IF IF want$ = "FRIES" THEN pay! = .5 INPUT "Got enough money, Y/N"; got$: got$ = UCASE$(got$) IF got$ = "Y" THEN IF pay! > cash! THEN PRINT "You stiffin' me, "; name$; "!!!" ELSE cash! = cash! - pay! PRINT "You pay the man" END IF END IF END IF IF want$ = "COKE" OR want$ = "DIET COKE" OR want$ = "SPRITE" OR want$ = "DR. PEPPER" THEN pay! = 1 INPUT "Got enough money, Y/N"; got$: got$ = UCASE$(got$) IF got$ = "Y" THEN IF pay! > cash! THEN PRINT "You stiffin' me, "; name$; "!!!" ELSE cash! = cash! - pay! END IF END IF END IF END IF IF order$ = "N" THEN PRINT PRINT "THEN GET THE HELL OUTTA HERE!!! WE GOT CUSTOMERS TO SERVE!!!" END IF END IF INPUT "Are you ready to leave this filthy place, Y/N"; gabe$: gabe$ = UCASE$(gabe$) LOOP UNTIL gabe$ = "Y" CLS END SUB SUB start (name$, light, fuel%, cash!, hp, b, c, d, e, jd, jb, sa, v, cig%) LOCATE 1, 1: COLOR 7: PRINT "Program written and conceived by Gabe Lane. " LOCATE 8, 68: COLOR 4: PRINT "F" LOCATE 11, 68: PRINT "E" LOCATE 13, 63: COLOR 2: PRINT USING "Cash: $#####.##"; cash! LOCATE 15, 63: PRINT USING "Jack Daniels: ##"; jd LOCATE 16, 63: PRINT USING "Jim Bean: ##"; jb LOCATE 17, 63: PRINT USING "Samuel Addams: ##"; sa LOCATE 18, 63: PRINT USING "Vodka: ##"; v LOCATE 20, 63: PRINT USING "Cigarettes: ##"; cig% LOCATE 25, 63: PRINT "(D)rink" LOCATE 26, 63: PRINT "(C)hange vehicle" LOCATE 27, 63: PRINT "(M)ore" END SUB SUB theater (hours!, cash!) CLS PRINT PRINT "This is what's playing:" PRINT PRINT "Scream 2" PRINT "Amistad" PRINT "Good Will Hunting" PRINT "Flubber" PRINT "Mouse Hunt" PRINT "Tomorrow Never Dies" INPUT "Do you want to see a movie"; do$: do$ = UCASE$(do$) IF do$ = "Y" THEN cash! = cash! - 7 hours! = hours! + 2 INPUT "What do you want to see"; what$: what$ = UCASE$(what$) IF what$ = "SCREAM 2" OR what$ = "AMISTAD" OR what$ = "GOOD WILL HUNTING" OR what$ = "FLUBBER" OR what$ = "TOMORROW NEVER DIES" THEN PRINT "Wow that was a great movie" PRINT "You lost 2 hours and $7" END IF END IF IF do$ = "N" THEN PRINT "Well, you have better things to do with your time." INPUT "OK, let's go", blah CLS END SUB