S = 1 C = 1 U = 0 R = 0 BORDER$ = "BL170BD80 U190R350D190L350" CAR$ = "R10DL10DR10DL10DR10DL11U6LD6LU7D7LU8LD8LU9LD9LU9LD9LU9LD9LU9LD9LU9LD9LU9LD9LU8DLD7LU6D6LU5D5LU5LD5LU5LD5R6DR6LDL4BU2R13DR6LDL4 BU7BR4" CLOUD$ = "C15R20DR2L28DL3R37DL39" HOUSE$ = _ "C12 R80BR40R40UL40BL40L80UR80BR40R40UL40BL40L80UR80BR40R40UL40BL40L80UR80BR40R40UL40BL40L80UR80BR40R40UL40BL40L80UR80BR40R40UL40BL40L80UR80BR40R40UL40BL40L80UR80BR40R40UL40BL40L80UR80BR40R40UL40BL40L80UR80BR40R40UL40BL40L80 UR80BR40R40UL40BL40L80UR80BR40R40UL40BL40L80UR80BR40R40UL40BL40L80UR80BR40R40UL40BL40L80UR80BR40R40UL40BL40L80UR80BR40R40UL40BL40L80UR80BR40R40UL40BL40L80UR80BR40R40UL40BL40L80UR80BR40R40UL40BL40L80UR80BR40R40UL40BL40L80UR80BR40R40UL40BL40L80UR80BR40R40UL40BL40L80UR160UL160UR160UL160UR160UL160UR160UL160UR160UL160UR160UL160UR160UL160UR160UL160 C8BUR160UL160UR160UL160UR160UL160UR160UL160UR160UL160UR160UL160UR160UL160UR160UL160 C6BR81BD32R38DL38DR38DL38DR38DL38DR38DL38DR38DL38DR38DL38DR38DL38DR38DL38DR38DL38DR38DL38DR38DL38DR38DL38DR38DL38DR38DL38DR38DL38DR38DL38DR38DL38DR38DL38DR38DL38DR38DL38DR38DL38DR38DL38 C8BL20BU40L45DR45D20LU20D20L43UR43L43U18LD19BU2BR2C11R41UL41UR41UL41UR41UL41UR41UL41UR41UL41UR41UL41UR41UL41UR41UL41UR41UL41BR20C8D18RU18" _ FLAG$ = _ "C8U98RD98U92 C9BRR20DL20DR20DL20DR20DL20DR20DL20DR20DL20DR20C15BU9BL19RBR3RBR3RBR3RBR3RBD3LBL3LBL3LBL3LBL3LBD3RBR3RBR3RBR3RBR3R BU7BL18BR21 C12R20DL20BDC15R20DL20BDC12R20DL20BDC15R20DL20BDC12R20DL21BDC15R20DL40BDC12R41DL41BDC15R41DL41BDC12R41DL41BDC15R41DL41BDC12R41DL41" _ TREE$ = "C7 R5UL5UR5UL5UR5UL5UR5UL5UR5 C10R10L25RUR23LUL21RUR19LUL17RUR15LUL13RUR11LUL9RUR7R7L21RUR19LUL17RUR15LUL13RUR11LUL9RUR7LUL5RUR3LUL1" TOWER$ = _ "C8 U126R80DL80DR80DL80DR80DL80DR80DL16BL16L16BL16L16DR16BR16R16BR16R16DL16BL16L16BL16L16DR16BR16R16BR16R16DL16BL16L16BL16L16DR16BR16R16BR16R16DL80DR80DL80DR80DL80DR80DL80DR16BR16R16BR16R16DL16BL16L16BL16L16DR16BR16R16BR16R16DL16BL16L16BL16L16DR16BR16R16BR16R16DL16BL16L16BL16L16DR80DL80DR80DL80DR80DL80DR16BR16R16BR16R16DL16BL16L16BL16L16DR16BR16R16BR16R16DL16BL16L16BL16L16DR16BR16R16BR16R16DL16BL16L16BL16L16DR80DL80DR80DL80DR80 DL16BL16L16BL16L16DR16BR16R16BR16R16DL16BL16L16BL16L16DR16BR16R16BR16R16DL16BL16L16BL16L16DR16BR16R16BR16R16DL80DR80DL80DR80DL80DR80DL80DR16BR16R16BR16R16DL16BL16L16BL16L16DR16BR16R16BR16R16DL16BL16L16BL16L16DR16BR16R16BR16R16DL16BL16L16BL16L16DR80DL80DR80DL80DR80DL80DR16BR16R16BR16R16DL16BL16L16BL16L16DR16BR16R16BR16R16DL16BL16L16BL16L16DR16BR16R16BR16R16DL16BL16L16BL16L16DR80DL80DR80DL80DR80 DL16BL16L16BL16L16DR16BR16R16BR16R16DL16BL16L16BL16L16DR16BR16R16BR16R16DL16BL16L16BL16L16DR16BR16R16BR16R16DL80DR80DL80DR80DL80DR80DL80DR16BR16R16BR16R16DL16BL16L16BL16L16DR16BR16R16BR16R16DL16BL16L16BL16L16DR16BR16R16BR16R16DL16BL16L16BL16L16DR80DL80DR80DL80DR80DL80DR16C11R16C8R16C11R16C8R16 BLDL16C11L16C8L16C11L16C8L15DR16C11R16C8R16C11R16C8R16DL17C11L16C8L16C11L16C8L15DR16C11R16C8R16C11R16C8R16DL17C11L16C8L16C11L16C8L15DR80DL80DR80DL80DR80DL80DR80DL80DR80DL80DR80DL80DR80DL80DR80DL80DR80 C11BL27L27BUR27UL27UR27UL27UR27UL27UR27UL27UR27UL27UR27BL12 C8D11LU11LD11" _ HOLLYWOOD$ = _ "C6 BD65BL47 R348UL348UR348UL348UR348UL348UR348UL348UR348UL348UR348UL348UR348UL348UR348UL348UR348UL348UR348UL348UR348UL348UR348UL348UR348UL348UR348UL348UR348UL348UR348UL348UR348UL348UR348UL348UR348UL348BUBR90R88BUBL20L50BUBR10R30 BL50BD2L98UR50BL5UL45UR39L5UL33BR200BD4R10R30BR20R87UL80R5UR75UL70R5UR65UL50R10UR40 BD30BL200C15U10RD10U5R5UL5R5U4D10RU10BR5R8DL8D9RU8D8R7UL7R7U8LD8BR7BDU10RD10R5UL5BR10BDU10RD10R5UL5BR14BDU5RD5U5E5LG5H5RF5BR12BU5D10RU10D10R5UL5R5DU5RD5R5UL5R4U9RD9BDBR7U10RD10R8UL8R8U9LD9U9L8DR8BD9BR7U10RD10R8UL8R8U9LD9U9L8DR8BR7BD9U10RD10U10R4DL4R4R2DL2R2RDLD5RU5D5L2DR2LDLL5UR5" _ OBSTICLE$ = "C1 R10DL10DR10DL10DR10DL10" LA2$ = _ "U60R350U2L350BRBU C2R348UL348UR348UL348UR348UL348UR348UL348UR348UL348UR348UL348UR348UL348UR348UL348UR348UL348UR348UL348 C6BUR348UL348UR348UL348 C11BUR348UL348UR348UL348UR348UL348UR348UL348UR348UL348UR348UL348UR348UL348UR348UL348UR348UL348UR348UL348UR348UL348UR348UL348UR348UL348UR348UL348UR348UL348UR348UL348UR348UL348UR348UL348UR348UL348UR348UL348UR348UL348UR348UL348UR348UL348UR348UL348UR348UL348UR348UL348UR348UL348UR348UL348UR348UL348UR348UL348UR348UL348UR348UL348UR348UL348UR348UL348UR348UL348UR348UL348UR348UL348UR348UL348UR348UL348UR348UL348UR348UL348UR348UL348UR348UL348UR348UL348UR348UL348UR348UL348UR348UL348UR348UL348UR348UL348UR348UL348UR348UL348UR348 C8BD130L348DR348DL348DR348DL348DR348DL348DR348DL348DR348DL348DR348DL348DR348DL348DR348DL348DR348DL348DR348DL348DR348DL348DR348DL348DR348DL348DR348DL348DR348DL348DR348DL348DR348DL348DR348DL348DR348DL348DR348DL348DR348DL348DR348DL348DR348DL348DR348DL348DR348DL348DR348DL348DR348DL348DR348DL348DR348DL348 BU86C6R50L10UL40UR30BD2BR50R40BL10UL20BDBR60R40BR50R50BL10UL35BR5UR20BD2BR58R20 BU60BL40 C15R20DR2L28DL3R37DL39 BL80BD8 C15R20DR2L28DL3R37DL39 BL148BU20 C15R20DR2L28DL3R37DL39" _ SCREEN 13 GOTO STARTUP DRAWARENA: IF S = 1 THEN GOSUB FRAME1 IF S = 2 THEN GOSUB FRAME2 IF S = 3 THEN GOSUB FRAME3 IF S = 4 THEN GOSUB FRAME4 IF S = 5 THEN GOSUB FRAME5 IF S = 6 THEN GOSUB FRAME6 IF S = 7 THEN GOSUB FRAME7 IF S = 8 THEN GOSUB FRAME8 IF S = 9 THEN GOSUB FRAME9 IF S = 10 THEN GOSUB FRAME10 IF S = 11 THEN GOSUB FRAME11 IF S = 12 THEN GOSUB FRAME12 IF S = 13 THEN GOSUB FRAME13 IF S = 14 THEN GOSUB FRAME14 IF S = 15 THEN GOSUB FRAME15 IF S = 16 THEN GOSUB FRAME16 IF S = 17 THEN GOSUB FRAME17 IF S = 18 THEN GOSUB FRAME18 IF S = 19 THEN GOSUB FRAME19 IF S = 20 THEN GOSUB FRAME20 IF S = 21 THEN GOSUB FRAME21 IF S = 22 THEN GOSUB FRAME22 IF S = 23 THEN GOSUB FRAME23 IF S = 24 THEN GOSUB FRAME24 IF S = 25 THEN GOSUB FRAME25 IF S = 26 THEN GOSUB FRAME26 IF S = 27 THEN GOSUB FRAME27 IF S = 28 THEN GOSUB FRAME28 IF S = 29 THEN GOSUB FRAME29 IF S = 30 THEN GOSUB FRAME30 IF S = 31 THEN GOSUB FRAME31 IF S = 32 THEN GOSUB FRAME32 IF S = 33 THEN GOSUB FRAME33 PSET (50, 150): RETURN STARTUP: GOSUB DRAWARENA GAMENGINE: FOR GAME = 1 TO 8888 IF C = 88 THEN LET S = S + 1: C = 1: R = 0: U = 0: GOSUB DRAWARENA DRAW "C12X" + VARPTR$(CAR$) NOW = TIMER WAITTIME = .1 / 28: WHILE (TIMER - .1 / 28) < NOW: WEND DRAW "C8X" + VARPTR$(CAR$) DRAW "BR3": DRAW "C12X" + VARPTR$(CAR$) KEY$ = INKEY$ IF KEY$ = CHR$(27) THEN END IF KEY$ = "8" THEN GOSUB UP IF KEY$ = "2" THEN GOSUB DOWN C = C + 1: R = R + 1: GOSUB CHECKSTATUS NEXT END UP: DRAW "C8X" + VARPTR$(CAR$) DRAW "BU2": DRAW "C12X" + VARPTR$(CAR$) U = U + 1 IF U = 13 THEN GOTO CRASH IF S = 2 AND R > 13 AND R < 28 AND U > 6 THEN GOTO CRASH IF S = 2 AND R > 13 AND R < 28 AND U = -5 THEN GOTO CRASH IF S = 3 AND R > 45 AND R < 62 AND U = -5 THEN GOTO CRASH IF S = 4 AND R > 13 AND R < 28 AND U = -5 THEN GOTO CRASH IF S = 5 AND R > 45 AND R < 62 AND U = -5 THEN GOTO CRASH IF S = 5 AND R > 13 AND R < 28 AND U > 6 THEN GOTO CRASH IF S = 9 AND R > 13 AND R < 28 AND U = -5 THEN GOTO CRASH IF S = 5 AND R > 45 AND R < 62 AND U = -5 THEN GOTO CRASH IF S = 10 AND R > 13 AND R < 28 AND U = -5 THEN GOTO CRASH IF S = 10 AND R > 13 AND R < 28 AND U > 6 THEN GOTO CRASH IF S = 10 AND R > 45 AND R < 62 AND U = -5 THEN GOTO CRASH IF S = 14 AND R > 13 AND R < 28 AND U = -5 THEN GOTO CRASH IF S = 14 AND R > 13 AND R < 28 AND U > 6 THEN GOTO CRASH IF S = 14 AND R > 45 AND R < 62 AND U = -5 THEN GOTO CRASH IF S = 17 AND R > 13 AND R < 28 AND U > -5 THEN GOTO CRASH IF S = 18 AND R > 13 AND R < 28 AND U > 6 THEN GOTO CRASH RETURN DOWN: DRAW "C8X" + VARPTR$(CAR$) DRAW "BD2": DRAW "C12X" + VARPTR$(CAR$) U = U - 1 IF U = -12 THEN GOTO CRASH IF S = 2 AND R > 13 AND R < 28 AND U = 4 THEN GOTO CRASH IF S = 3 AND R > 45 AND R < 62 AND U = 4 THEN GOTO CRASH IF S = 4 AND R > 13 AND R < 28 AND U = 4 THEN GOTO CRASH IF S = 4 AND R > 13 AND R < 28 AND U = -5 THEN GOTO CRASH IF S = 5 AND R > 45 AND R < 62 AND U = -5 THEN GOTO CRASH IF S = 9 AND R > 13 AND R < 28 AND U = -5 THEN GOTO CRASH IF S = 3 AND R > 45 AND R < 62 AND U = -5 THEN GOTO CRASH IF S = 2 AND R > 13 AND R < 28 AND U = 4 THEN GOTO CRASH IF S = 17 AND R > 13 AND R < 28 AND U = 4 THEN GOTO CRASH IF S = 18 AND R > 13 AND R < 28 AND U = 4 THEN GOTO CRASH RETURN CHECKSTATUS: IF S = 2 AND R = 14 AND U > 6 THEN GOTO CRASH IF S = 2 AND R = 14 AND U >= 0 AND U < 5 THEN GOTO CRASH IF S = 2 AND R = 14 AND U <= 0 AND U > -5 THEN GOTO CRASH IF S = 3 AND R = 46 AND U >= 0 AND U < 5 THEN GOTO CRASH IF S = 3 AND R = 46 AND U <= 0 AND U > -5 THEN GOTO CRASH IF S = 4 AND R = 14 AND U >= 0 AND U < 5 THEN GOTO CRASH IF S = 4 AND R = 14 AND U <= 0 AND U > -5 THEN GOTO CRASH IF S = 5 AND R = 46 AND U >= 0 AND U < 5 THEN GOTO CRASH IF S = 5 AND R = 46 AND U <= 0 AND U > -5 THEN GOTO CRASH IF S = 5 AND R = 14 AND U > 6 THEN GOTO CRASH IF S = 2 AND R = 14 AND U >= 0 AND U < 5 THEN GOTO CRASH IF S = 2 AND R = 14 AND U <= 0 AND U > -5 THEN GOTO CRASH IF S = 9 AND R = 14 AND U >= 0 AND U < 5 THEN GOTO CRASH IF S = 9 AND R = 14 AND U <= 0 AND U > -5 THEN GOTO CRASH IF S = 9 AND R = 46 AND U >= 0 AND U < 5 THEN GOTO CRASH IF S = 9 AND R = 46 AND U <= 0 AND U > -5 THEN GOTO CRASH IF S = 10 AND R = 14 AND U >= 0 AND U < 5 THEN GOTO CRASH IF S = 10 AND R = 14 AND U <= 0 AND U > -5 THEN GOTO CRASH IF S = 10 AND R = 14 AND U > 6 THEN GOTO CRASH IF S = 5 AND R = 46 AND U >= 0 AND U < 5 THEN GOTO CRASH IF S = 14 AND R = 14 AND U >= 0 AND U < 5 THEN GOTO CRASH IF S = 14 AND R = 14 AND U <= 0 AND U > -5 THEN GOTO CRASH IF S = 14 AND R = 14 AND U > 6 THEN GOTO CRASH IF S = 17 AND R = 14 AND U <= 0 AND U > -5 THEN GOTO CRASH IF S = 18 AND R = 14 AND U >= 0 AND U < 5 THEN GOTO CRASH RETURN CRASH: FOR N = 37 TO 60 STEP 5: SOUND N, 1: NEXT END FRAME1: CLS : DRAW "C15X" + VARPTR$(BORDER$): DRAW (LA2$) DRAW "BD87BL46": DRAW (HOUSE$) LOCATE 7, 4: COLOR 15 PRINT "STUNT DRIVER" DRAW "BR160BD38": DRAW (FLAG$) RETURN FRAME2: CLS : DRAW "c15x" + VARPTR$(BORDER$): DRAW (LA2$) DRAW "BD80": DRAW (TREE$) DRAW "BR40BD25": DRAW (TREE$) DRAW "BR40BD28": DRAW (TREE$) DRAW "BR40BD25": DRAW (TREE$) DRAW "BR40BD25": DRAW (TREE$) DRAW "BR40BD28": DRAW (TREE$) PSET (100, 150): DRAW (OBSTICLE$) PSET (100, 125): DRAW (OBSTICLE$) RETURN FRAME3: CLS : DRAW "c15x" + VARPTR$(BORDER$): DRAW (LA2$) DRAW "BD80": DRAW (TREE$) DRAW "BR40BD25": DRAW (TREE$) DRAW "BR40BD28": DRAW (TREE$) DRAW "BR40BD25": DRAW (TREE$) PSET (200, 150): DRAW (OBSTICLE$) RETURN FRAME4: CLS : DRAW "c15x" + VARPTR$(BORDER$): DRAW (LA2$) DRAW "BD80": DRAW (TREE$) DRAW "BR40BD25": DRAW (TREE$) PSET (100, 150): DRAW (OBSTICLE$) RETURN FRAME5: CLS : DRAW "c15x" + VARPTR$(BORDER$): DRAW (LA2$) DRAW "BD80": DRAW (TREE$) DRAW "BR40BD25": DRAW (TREE$) DRAW "BR40BD28": DRAW (TREE$) DRAW "BR40BD25": DRAW (TREE$) DRAW "BR40BD25": DRAW (TREE$) DRAW "BR40BD28": DRAW (TREE$) PSET (100, 125): DRAW (OBSTICLE$) PSET (200, 150): DRAW (OBSTICLE$) RETURN FRAME6: CLS : DRAW "c15x" + VARPTR$(BORDER$): DRAW (LA2$) DRAW "BD80": DRAW (TREE$) DRAW "BR40BD25": DRAW (TREE$) DRAW "BR40BD28": DRAW (TREE$) DRAW "BR40BD25": DRAW (TREE$) DRAW "BR40BD25": DRAW (TREE$) DRAW "BR40BD28": DRAW (TREE$) DRAW "BR40BD28": DRAW (TREE$) RETURN FRAME7: CLS : DRAW "c15x" + VARPTR$(BORDER$): DRAW (LA2$) DRAW "BD80": DRAW (TREE$) DRAW "BR40BD25": DRAW (TREE$) DRAW "BR40BD28": DRAW (TREE$) DRAW "BR40BD25": DRAW (TREE$) RETURN FRAME8: CLS : DRAW "c15x" + VARPTR$(BORDER$): DRAW (LA2$) DRAW "BD80": DRAW (TREE$) DRAW "BR40BD25": DRAW (TREE$) RETURN FRAME9: CLS : DRAW "c15x" + VARPTR$(BORDER$): DRAW (LA2$) DRAW "BD80": DRAW (TREE$) DRAW "BR40BD25": DRAW (TREE$) DRAW "BR40BD28": DRAW (TREE$) DRAW "BR40BD25": DRAW (TREE$) DRAW "BR40BD25": DRAW (TREE$) PSET (100, 150): DRAW (OBSTICLE$) PSET (200, 150): DRAW (OBSTICLE$) RETURN FRAME10: CLS : DRAW "c15x" + VARPTR$(BORDER$): DRAW (LA2$) PSET (100, 150): DRAW (OBSTICLE$) PSET (100, 125): DRAW (OBSTICLE$) PSET (200, 150): DRAW (OBSTICLE$) RETURN FRAME11: CLS : DRAW "c15x" + VARPTR$(BORDER$): DRAW (LA2$) DRAW "BD87BL47": DRAW (HOUSE$): DRAW "BD38BR122": DRAW (HOUSE$) LOCATE 7, 8: PRINT "RAYMOND'S FISH & CHIPS" RETURN FRAME12: CLS : DRAW "c15x" + VARPTR$(BORDER$): DRAW (LA2$) DRAW "BD87BL47": DRAW (HOUSE$): DRAW "BD38BR122": DRAW (HOUSE$) LOCATE 7, 8: PRINT "PICK 'N PAY SUPERMARKET" RETURN FRAME13: CLS : DRAW "c15x" + VARPTR$(BORDER$): DRAW (LA2$) DRAW "BD87BL47": DRAW (HOUSE$): DRAW "BD38BR122": DRAW (HOUSE$) LOCATE 7, 3: PRINT "V28 SPORTS" LOCATE 7, 22: PRINT "BARGAINS BIN" RETURN FRAME14: CLS : DRAW "c15x" + VARPTR$(BORDER$): DRAW (LA2$) DRAW "BD87BL47": DRAW (HOUSE$): DRAW "BD38BR122": DRAW (HOUSE$) LOCATE 7, 2: PRINT "RONNI FISH AND TACKLE" LOCATE 7, 28: PRINT "MCDONALDS" PSET (100, 150): DRAW (OBSTICLE$) PSET (100, 125): DRAW (OBSTICLE$) RETURN FRAME15: CLS : DRAW "c15x" + VARPTR$(BORDER$): DRAW (LA2$) DRAW "BD87BL47": DRAW (HOUSE$): LOCATE 7, 2: PRINT "WARNER HOME VIDEO" DRAW "BR122BD38": DRAW (TOWER$) DRAW "BR25": DRAW (TOWER$) RETURN FRAME16: CLS : DRAW "c15x" + VARPTR$(BORDER$): DRAW (LA2$) DRAW "BL38BD87": DRAW (TOWER$): DRAW "BR25": DRAW (TOWER$) DRAW "BR25": DRAW (TOWER$): DRAW "BR25": DRAW (TOWER$) DRAW "BL54": DRAW (HOUSE$): DRAW "BL145BD38": DRAW (TREE$) DRAW "BR40BD27": DRAW (TREE$) LOCATE 7, 27: PRINT "®® CINEMA ¯¯" RETURN FRAME17: CLS : DRAW "c15x" + VARPTR$(BORDER$): DRAW (LA2$) DRAW "BL38BD87": DRAW (TOWER$): DRAW "BR25": DRAW (TOWER$) DRAW "BR25": DRAW (TOWER$): DRAW "BR25": DRAW (TOWER$) DRAW "BL54": DRAW (HOUSE$): DRAW "BL145BD38": DRAW (TREE$) LOCATE 7, 30: PRINT "CASIO" PSET (100, 150): DRAW (OBSTICLE$) PSET (100, 125): DRAW (OBSTICLE$) RETURN FRAME18: CLS : DRAW "c15x" + VARPTR$(BORDER$): DRAW (LA2$) DRAW "BL38BD87": DRAW (TOWER$): DRAW "BR25": DRAW (TOWER$) DRAW "BR25": DRAW (TOWER$): DRAW "BR25": DRAW (TOWER$) DRAW "BL54": DRAW (HOUSE$): DRAW "BL145BD38": DRAW (TREE$) DRAW "BR40BD27": DRAW (TREE$) LOCATE 7, 24: PRINT "PETERS TAKE-AWAY" PSET (100, 150): DRAW (OBSTICLE$) PSET (100, 125): DRAW (OBSTICLE$) RETURN FRAME19: CLS : DRAW "c15x" + VARPTR$(BORDER$): DRAW (LA2$) DRAW "BL38BD87": DRAW (TOWER$): DRAW "BR25": DRAW (TOWER$) DRAW "BR25": DRAW (TOWER$): DRAW "BR25": DRAW (TOWER$) DRAW "BL54": DRAW (HOUSE$): DRAW "BL145BD38": DRAW (TREE$) DRAW "BR40BD27": DRAW (TREE$): DRAW "BR40BD27": DRAW (TREE$) LOCATE 7, 29: PRINT "L A P D" RETURN FRAME20: CLS : DRAW "c15x" + VARPTR$(BORDER$): DRAW (LA2$) DRAW "BL38BD87": DRAW (TOWER$): DRAW "BR25": DRAW (TOWER$) DRAW "BR25": DRAW (TOWER$): DRAW "BR25": DRAW (TOWER$) DRAW "BL54": DRAW (HOUSE$): DRAW "BL145BD38": DRAW (TREE$) LOCATE 7, 30: PRINT "CNA" RETURN FRAME21: CLS : DRAW "c15x" + VARPTR$(BORDER$): DRAW (LA2$) DRAW "BL38BD87": DRAW (TOWER$): DRAW "BR25": DRAW (TOWER$) DRAW "BR25": DRAW (TOWER$): DRAW "BR25": DRAW (TOWER$) DRAW "BL54": DRAW (HOUSE$): DRAW "BL145BD38": DRAW (TREE$) DRAW "BR40BD27": DRAW (TREE$): DRAW "BR40BD27": DRAW (TREE$) LOCATE 7, 26: PRINT "VIPER FIREARMS" PSET (200, 150): DRAW (OBSTICLE$) RETURN FRAME22: CLS : DRAW "c15x" + VARPTR$(BORDER$): DRAW (LA2$) DRAW "BL38BD87": DRAW (TOWER$): DRAW "BR25": DRAW (TOWER$) DRAW "BR25": DRAW (TOWER$): DRAW "BR25": DRAW (TOWER$) DRAW "BL54": DRAW (HOUSE$): DRAW "BL145BD38": DRAW (TREE$) DRAW "BR40BD27": DRAW (TREE$) LOCATE 7, 28: PRINT "PIZZA HUT" RETURN FRAME23: CLS : DRAW "c15x" + VARPTR$(BORDER$): DRAW (LA2$) DRAW "BL38BD87": DRAW (TOWER$): DRAW "BR25": DRAW (TOWER$) DRAW "BR25": DRAW (TOWER$): DRAW "BR25": DRAW (TOWER$) DRAW "BL54": DRAW (HOUSE$): DRAW "BL145BD38": DRAW (TREE$) DRAW "BR40BD27": DRAW (TREE$): DRAW "BR40BD27": DRAW (TREE$) LOCATE 7, 29: PRINT "CHEERS" BG = YES: RETURN FRAME24: CLS : DRAW "c15x" + VARPTR$(BORDER$): DRAW (LA2$) DRAW "BL38BD87": DRAW (TOWER$): DRAW "BR25": DRAW (TOWER$) DRAW "BR25": DRAW (TOWER$): DRAW "BR25": DRAW (TOWER$) DRAW "BL54": DRAW (HOUSE$): DRAW "BL145BD38": DRAW (TREE$) LOCATE 7, 28: PRINT "MICROSOFT" BG = YES: RETURN FRAME25: CLS : DRAW "c15x" + VARPTR$(BORDER$): DRAW (LA2$) DRAW "BL38BD87": DRAW (TOWER$): DRAW "BR25": DRAW (TOWER$) DRAW "BR25": DRAW (TOWER$): DRAW "BR25": DRAW (TOWER$) DRAW "BL54": DRAW (HOUSE$): DRAW "BL145BD38": DRAW (TREE$) DRAW "BR40BD27": DRAW (TREE$): DRAW "BR40BD27": DRAW (TREE$) LOCATE 7, 26: PRINT "MICROSOFT HQ" BG = YES: RETURN FRAME26: CLS : DRAW "c15x" + VARPTR$(BORDER$): DRAW (LA2$) DRAW "BL38BD87": DRAW (TOWER$): DRAW "BR25": DRAW (TOWER$) DRAW "BR25": DRAW (TOWER$): DRAW "BR25": DRAW (TOWER$) DRAW "BL54": DRAW (HOUSE$): DRAW "BL145BD38": DRAW (TREE$) DRAW "BR40BD27": DRAW (TREE$): DRAW "BR40BD27": DRAW (TREE$) LOCATE 7, 25: PRINT "FURNITURE CITY" BG = YES: RETURN FRAME27: CLS : DRAW "c15x" + VARPTR$(BORDER$): DRAW (LA2$) DRAW "BL38BD87": DRAW (TOWER$): DRAW "BR25": DRAW (TOWER$) DRAW "BR25": DRAW (TOWER$): DRAW "BR25": DRAW (TOWER$) DRAW "BL54": DRAW (HOUSE$): DRAW "BL145BD38": DRAW (TREE$) DRAW "BR40BD27": DRAW (TREE$): DRAW "BR40BD27": DRAW (TREE$) LOCATE 7, 25: PRINT "HOLLYWOOD HOTEL" BG = YES: RETURN FRAME28: CLS : DRAW "c15x" + VARPTR$(BORDER$): DRAW (LA2$) DRAW "BL38BD87": DRAW (TOWER$): DRAW "BR25": DRAW (TOWER$) DRAW "BR25": DRAW (TOWER$): DRAW "BR25": DRAW (TOWER$) DRAW "BL54": DRAW (HOUSE$): DRAW "BL145BD38": DRAW (TREE$) DRAW "BR40BD27": DRAW (TREE$) LOCATE 7, 23: PRINT "PARAMOUNT PICTURES" BG = YES: RETURN FRAME29: CLS : DRAW "c15x" + VARPTR$(BORDER$): DRAW (LA2$) DRAW "BL38BD87": DRAW (TOWER$): DRAW "BR25": DRAW (TOWER$) DRAW "BR25": DRAW (TOWER$): DRAW "BR25": DRAW (TOWER$) DRAW "BL54": DRAW (HOUSE$): DRAW "BL145BD38": DRAW (TREE$) LOCATE 7, 24: PRINT "UNIVERSAL STUDIOS" BG = YES: RETURN FRAME30: CLS : DRAW "c15x" + VARPTR$(BORDER$): DRAW (LA2$) DRAW "BL38BD87": DRAW (TOWER$): DRAW "BR25": DRAW (TOWER$) DRAW "BR25": DRAW (TOWER$): DRAW "BR25": DRAW (TOWER$) DRAW "BL100": DRAW (TREE$): DRAW "BR40BD27": DRAW (TREE$) BG = YES: RETURN FRAME31: CLS : DRAW "c15x" + VARPTR$(BORDER$): DRAW (LA2$) DRAW "BD87BL47": DRAW (HOUSE$): LOCATE 7, 4: PRINT "SPECIAL - FX" DRAW "BR122BD38": DRAW (TOWER$) DRAW "BR25": DRAW (TOWER$) BG = YES: RETURN FRAME32: CLS : DRAW "C15X" + VARPTR$(BORDER$): DRAW (LA2$) DRAW "BR50BD87": DRAW (TREE$) DRAW "BR45BD27": DRAW (TREE$) DRAW "BR100BD27": DRAW (TREE$) BG = YES: RETURN FRAME33: CLS : DRAW "C15X" + VARPTR$(BORDER$): DRAW (LA2$) DRAW (HOLLYWOOD$) DRAW "BD30BL200": DRAW (TREE$) DRAW "BR40BD20": DRAW (TREE$) DRAW "BL80BD27": DRAW (TREE$) DRAW "BR210BD29": DRAW (TREE$) DRAW "BD39BL148": DRAW (FLAG$) LOCATE 21, 10 PRINT " " LOCATE 22, 10 PRINT " ®® GAME OVER - PRESS ESC KEY ¯¯ " PLAY "l20 dega" PLAY "l20 dega" PLAY "l20 dega" PLAY "l20 dega" PLAY "l10 dega" DO: LOOP UNTIL INKEY$ = CHR$(27)