' ---------------------- ' ³ Colby Dalley ³ ' ³ Version 2.1 ³ ' ³ Data ³ ' ³ 2/26/01 ³ ' ³ Two Dim Arrays ³ ' ---------------------- '---------------------------------------------------------------------------- 'These are the consts and palettes CONST DrBlack = 0, Blue = 1, Green = 2 CONST HotPink = 3, Red = 4, Orange = 5 CONST Brown = 6, White = 7, Gray = 8 CONST BrBlue = 9, BrGreen = 10 CONST BrCyan = 11, BrRed = 12 CONST Yellow = 13, BrWhite = 14 CONST Black = 15, True = -1, False = 0 CONST Empty = 0, Wat = 1, Fire = 2, Wall = 3 CONST Door = 4, DragonLR = 5, Bars = 6, Keys = 7, BackT = 8 CONST DragonUp = 8, DragonDown = 9 CONST Up = 1, Down = 2, Lefty = 3, Righty = 4, Stopped = 5 DIM Maze(14, 20) DIM DragonRightyImage(900) DIM DragonLeftyImage(900) DIM DragonUpImage(900) DIM DragonDownImage(900) DIM WaterImage(900) DIM FireImage(900) DIM WallImage(900) DIM DoorImage(900) DIM BarsImage(900) DIM KeysImage(900) DIM EmptyImage(900) DIM BackTImage(900) DIM Prow(1), Pcol(1), PDir(1) DIM WaRow(20), WaCol(20), WaDir(20) DIM FaRow(50), FaCol(50) DIM KRow(1), KCol(1) DIM DRow(1), DCol(1) DIM BRow(20), BCol(20) DIM BTRow(50), BTCol(50) DIM Choices(100) '---------------------------------------------------------------------------- 'This is the main menu Main: SCREEN 12 RANDOMIZE TIMER CLS 'GOSUB ctt GOSUB PTB GOSUB Setup GOSUB PBTN GOSUB VTOP GOSUB Title GOSUB Menu FOR X = 1 TO 200 STEP 1 CIRCLE (300, 220), X, 4 NEXT X FOR X = 200 TO 1 STEP -1 CIRCLE (300, 220), X, 0 NEXT X CHAIN "c:\windows\profiles\alex\desktop\q-basi~1\gameinto" '---------------------------------------------------------------------------- 'This is the Palette To Black Part PTB: CLS FOR Pal = 0 TO 9 PALETTE Pal, 0 NEXT Pal PALETTE 11, 0 FOR Pal = 13 TO 15 PALETTE Pal, 0 NEXT Pal PALETTE BrGreen, 0 * 65536 + 63 * 256 + 0 PALETTE BrRed, 0 * 65536 + 0 * 256 + 63 RETURN '---------------------------------------------------------------------------- 'This is the setup Setup: CLS COLOR BrGreen LOCATE 10, 25 PRINT " Loading..." LOCATE 11, 25 PRINT "ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ" LOCATE 12, 25 PRINT "ÛÛ ÛÛ" LOCATE 13, 25 PRINT "ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ" RESTORE DragonRL FOR Row = 1 TO 30 FOR Col = 1 TO 30 READ C PSET (Col, Row), C NEXT Col NEXT Row LOCATE 12, 27 COLOR BrRed PRINT "Û" GET (1, 1)-(30, 30), DragonRightyImage LOCATE 1, 1 PRINT " " LOCATE 2, 1 PRINT " " LOCATE 2, 1 PRINT " " LOCATE 2, 1 PRINT " " RESTORE DragonRL FOR Row = 1 TO 30 FOR Col = 1 TO 30 READ C PSET (30 - Col, Row), C NEXT Col NEXT Row LOCATE 12, 28 COLOR BrRed PRINT "Û" GET (1, 1)-(30, 30), DragonLeftyImage LOCATE 1, 1 PRINT " " LOCATE 2, 1 PRINT " " LOCATE 2, 1 PRINT " " LOCATE 2, 1 PRINT " " RESTORE Water FOR Row = 1 TO 30 FOR Col = 1 TO 30 READ C PSET (Col, Row), C NEXT Col NEXT Row LOCATE 12, 29 COLOR BrRed PRINT "Û" GET (1, 1)-(30, 30), WaterImage LOCATE 1, 1 PRINT " " LOCATE 2, 1 PRINT " " LOCATE 2, 1 PRINT " " LOCATE 2, 1 PRINT " " RESTORE Fire FOR Row = 1 TO 30 FOR Col = 1 TO 30 READ C PSET (Col, Row), C NEXT Col NEXT Row LOCATE 12, 30 COLOR BrRed PRINT "Û" GET (1, 1)-(30, 30), FireImage LOCATE 1, 1 PRINT " " LOCATE 2, 1 PRINT " " LOCATE 2, 1 PRINT " " LOCATE 2, 1 PRINT " " RESTORE Door FOR Row = 1 TO 30 FOR Col = 1 TO 30 READ C PSET (Col, Row), C NEXT Col NEXT Row LOCATE 12, 31 COLOR BrRed PRINT "Û" GET (1, 1)-(30, 30), DoorImage LOCATE 1, 1 PRINT " " LOCATE 2, 1 PRINT " " LOCATE 2, 1 PRINT " " LOCATE 2, 1 PRINT " " RESTORE Wall Clr = INT(RND * 15) + 1 FOR Row = 1 TO 30 FOR Col = 1 TO 30 READ C IF C = 16 THEN C = Clr END IF PSET (Col, Row), C NEXT Col NEXT Row LOCATE 12, 32 COLOR BrRed PRINT "Û" GET (1, 1)-(30, 30), WallImage LOCATE 1, 1 PRINT " " LOCATE 2, 1 PRINT " " LOCATE 2, 1 PRINT " " LOCATE 2, 1 PRINT " " RESTORE Bars FOR Row = 1 TO 30 FOR Col = 1 TO 30 READ C PSET (Col, Row), C NEXT Col NEXT Row LOCATE 12, 33 COLOR BrRed PRINT "Û" GET (1, 1)-(30, 30), BarsImage LOCATE 1, 1 PRINT " " LOCATE 2, 1 PRINT " " LOCATE 2, 1 PRINT " " LOCATE 2, 1 PRINT " " RESTORE Keys FOR Row = 1 TO 30 FOR Col = 1 TO 30 READ C PSET (Col, Row), C NEXT Col NEXT Row LOCATE 12, 34 COLOR BrRed PRINT "Û" GET (1, 1)-(30, 30), KeysImage LOCATE 1, 1 PRINT " " LOCATE 2, 1 PRINT " " LOCATE 2, 1 PRINT " " LOCATE 2, 1 PRINT " " RESTORE DragonUp FOR Row = 1 TO 30 FOR Col = 1 TO 30 READ C PSET (Col, Row), C NEXT Col NEXT Row LOCATE 12, 35 COLOR BrRed PRINT "Û" GET (1, 1)-(30, 30), DragonUpImage LOCATE 1, 1 PRINT " " LOCATE 2, 1 PRINT " " LOCATE 2, 1 PRINT " " LOCATE 2, 1 PRINT " " RESTORE DragonDown FOR Row = 1 TO 30 FOR Col = 1 TO 30 READ C PSET (Col, Row), C NEXT Col NEXT Row LOCATE 12, 36 COLOR BrRed PRINT "Û" GET (1, 1)-(30, 30), DragonDownImage LOCATE 1, 1 PRINT " " LOCATE 2, 1 PRINT " " LOCATE 2, 1 PRINT " " LOCATE 2, 1 PRINT " " RESTORE Empty FOR Row = 1 TO 30 FOR Col = 1 TO 30 READ C PSET (Col, Row), C NEXT Col NEXT Row LOCATE 12, 37 COLOR BrRed PRINT "Û" GET (1, 1)-(30, 30), EmptyImage LOCATE 1, 1 PRINT " " LOCATE 2, 1 PRINT " " LOCATE 2, 1 PRINT " " LOCATE 2, 1 PRINT " " RESTORE BackT FOR Row = 1 TO 30 FOR Col = 1 TO 30 READ C PSET (Col, Row), C NEXT Col NEXT Row LOCATE 12, 37 COLOR BrRed PRINT "Û" GET (1, 1)-(30, 30), BackTImage RETURN '---------------------------------------------------------------------------- 'This is the Palette To Normal Part PBTN: CLS PALETTE Black, 15 * 65536 + 15 * 256 + 15 PALETTE Blue, 40 * 65536 + 0 * 256 + 0 PALETTE Green, 0 * 65536 + 40 * 256 + 0 PALETTE Brown, 0 * 65536 + 14 * 256 + 29 PALETTE Red, 0 * 65536 + 0 * 256 + 40 PALETTE HotPink, 20 * 65536 + 10 * 256 + 63 PALETTE Orange, 0 * 65536 + 20 * 256 + 60 PALETTE Brown, 0 * 65536 + 15 * 256 + 25 PALETTE White, 50 * 65536 + 50 * 256 + 50 PALETTE Gray, 40 * 65536 + 40 * 256 + 40 PALETTE BrBlue, 63 * 65536 + 0 * 256 + 0 PALETTE BrGreen, 0 * 65536 + 63 * 256 + 0 PALETTE BrCyan, 60 * 65536 + 60 * 256 + 0 PALETTE BrRed, 63 PALETTE Yellow, 0 * 65536 + 50 * 256 + 50 PALETTE BrWhite, 63 * 65536 + 63 * 256 + 63 PALETTE DrBlack, 0 * 65536 + 0 * 256 + 0 RETURN '---------------------------------------------------------------------------- 'This is the View Top Ten VTOP: CLS PRINT " ÚÄÄÄÄÄÄ¿" PRINT " ³TopTen³" PRINT "ÉÍÑÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÑÍÍÍÍÍÑÍÍÍÍÍ»" PRINT "º ³Name³ ³Score³ º" PRINT "º ßßßßßß ßßßßßßß º" PRINT "º1. º" PRINT "º2. º" PRINT "º3. º" PRINT "º4. º" PRINT "º5. º" PRINT "º6. º" PRINT "º7. º" PRINT "º8. º" PRINT "º9. º" PRINT "º10. º" PRINT "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ" OPEN "C:1TopTen.Dat" FOR INPUT AS #1 FOR X = 1 TO 10 INPUT #1, Name$(X) INPUT #1, Score(X) LOCATE 5 + X, 5 COLOR INT(RND * 15) + 1 PRINT Name$(X) LOCATE 5 + X, 40 COLOR INT(RND * 15) + 1 PRINT Score(X) NEXT X CLOSE #1 LOCATE 29, 1 INPUT "Press to continue. ", E$ RETURN '---------------------------------------------------------------------------- 'This is the Title Title: CLS PUT (190, 100), DragonRightyImage, PSET PUT (400, 100), DragonLeftyImage, PSET PUT (400, 235), DragonUpImage, PSET PUT (190, 235), DragonDownImage, PSET PUT (190, 165), DragonRightyImage, PSET PUT (400, 165), DragonLeftyImage, PSET PUT (190, 132), DragonUpImage, PSET PUT (400, 132), DragonDownImage, PSET PUT (190, 200), DragonRightyImage, PSET PUT (400, 200), DragonLeftyImage, PSET PUT (370, 100), DragonUpImage, PSET PUT (340, 100), DragonDownImage, PSET PUT (310, 100), DragonRightyImage, PSET PUT (280, 100), DragonLeftyImage, PSET PUT (250, 100), DragonUpImage, PSET PUT (220, 100), DragonDownImage, PSET PUT (220, 235), DragonRightyImage, PSET PUT (250, 235), DragonLeftyImage, PSET PUT (280, 235), DragonUpImage, PSET PUT (310, 235), DragonDownImage, PSET PUT (340, 235), DragonRightyImage, PSET PUT (370, 235), DragonLeftyImage, PSET LOCATE 10, 35 COLOR INT(RND * 15) + 1 AND NOT DrBlack PRINT "Welcome" LOCATE 11, 29 COLOR INT(RND * 15) + 1 AND NOT DrBlack PRINT " To:" LOCATE 11, 36 COLOR INT(RND * 15) + 1 AND NOT DrBlack PRINT "Dragon" LOCATE 12, 28 COLOR INT(RND * 15) + 1 AND NOT DrBlack PRINT " Adventures" LOCATE 13, 28 COLOR INT(RND * 15) + 1 AND NOT DrBlack PRINT "Created" LOCATE 13, 28 COLOR INT(RND * 15) + 1 AND NOT DrBlack PRINT " by:" LOCATE 14, 32 PRINT "Colby Dalley" LOCATE 29, 1 INPUT "Press to continue.", Enter$ RETURN '---------------------------------------------------------------------------- 'This is the Menu Menu: CLS X = False WHILE NOT X CLS PUT (190, 100), DragonRightyImage, PSET PUT (400, 100), DragonLeftyImage, PSET PUT (400, 270), DragonUpImage, PSET PUT (400, 235), DragonLeftyImage, PSET PUT (190, 270), DragonDownImage, PSET PUT (190, 235), DragonUpImage, PSET PUT (190, 165), DragonRightyImage, PSET PUT (400, 165), DragonLeftyImage, PSET PUT (190, 132), DragonUpImage, PSET PUT (400, 132), DragonDownImage, PSET PUT (190, 200), DragonRightyImage, PSET PUT (400, 200), DragonLeftyImage, PSET PUT (370, 100), DragonUpImage, PSET PUT (340, 100), DragonDownImage, PSET PUT (310, 100), DragonRightyImage, PSET PUT (280, 100), DragonLeftyImage, PSET PUT (250, 100), DragonUpImage, PSET PUT (220, 100), DragonDownImage, PSET PUT (220, 270), DragonRightyImage, PSET PUT (250, 270), DragonLeftyImage, PSET PUT (280, 270), DragonUpImage, PSET PUT (310, 270), DragonDownImage, PSET PUT (340, 270), DragonRightyImage, PSET PUT (370, 270), DragonLeftyImage, PSET LOCATE 6, 35 COLOR INT(RND * 15) + 1 AND NOT DrBlack PRINT "Menu:" LOCATE 10, 30 COLOR INT(RND * 15) + 1 AND NOT DrBlack PRINT "1. Instructions" LOCATE 11, 30 COLOR INT(RND * 15) + 1 AND NOT DrBlack PRINT "2. Play Game" LOCATE 12, 30 COLOR INT(RND * 15) + 1 AND NOT DrBlack PRINT "3. Cheat" LOCATE 13, 30 COLOR INT(RND * 15) + 1 PRINT "4. Top Ten" LOCATE 14, 30 COLOR INT(RND * 15) + 1 AND NOT DrBlack PRINT "5. Quit" LOCATE 15, 30 COLOR INT(RND * 15) + 1 AND NOT DrBlack INPUT "Choose on above. ", Ch IF Ch = 1 THEN GOSUB Inst ELSEIF Ch = 2 THEN GOSUB Game ELSEIF Ch = 3 THEN GOSUB Cheat ELSEIF Ch = 4 THEN GOSUB TopTen ELSEIF Ch = 5 THEN X = True END IF WEND RETURN '---------------------------------------------------------------------------- 'This is the main menu TopTen: CLS Co = INT(RND * 15) + 1 Col = INT(RND * 15) + 1 AND NOT DrBlack Colo = INT(RND * 15) + 1 AND NOT DrBlack Colr = INT(RND * 15) + 1 AND NOT DrBlack Coloo = INT(RND * 15) + 1 AND NOT DrBlack Main2 = False WHILE NOT Main2 CLS COLOR Co LOCATE 10, 30 PRINT "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»" LOCATE 11, 30 PRINT "º º" LOCATE 12, 30 PRINT "º º" LOCATE 13, 30 PRINT "º º" LOCATE 14, 30 PRINT "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ" LOCATE 11, 31 COLOR INT(RND * 15) + 1 PRINT "1. Creat new top ten" LOCATE 12, 31 COLOR INT(RND * 15) + 1 PRINT "2. View top ten" LOCATE 13, 31 COLOR INT(RND * 15) + 1 PRINT "3. Quit" LOCATE 16, 31 INPUT "Choose one above. ", C IF C = 1 THEN CLS LOCATE 11, 25 PRINT "(Press if you don't know.)" LOCATE 12, 25 INPUT " The password is: ", Pass$ IF Pass$ = "SLIME" THEN GOSUB ctt END IF ELSEIF C = 2 THEN GOSUB VTT ELSEIF C = 3 THEN Main2 = True END IF WEND RETURN '---------------------------------------------------------------------------- 'This is the Creat Own Top Ten ctt: CLS PRINT " ÚÄÄÄÄÄÄ¿" PRINT " ³TopTen³" PRINT "ÉÍÑÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÑÍÍÍÍÍÑÍÍÍÍÍ»" PRINT "º ³Name³ ³Score³ º" PRINT "º ßßßßßß ßßßßßßß º" PRINT "º1. º" PRINT "º2. º" PRINT "º3. º" PRINT "º4. º" PRINT "º5. º" PRINT "º6. º" PRINT "º7. º" PRINT "º8. º" PRINT "º9. º" PRINT "º10. º" PRINT "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ" OPEN "C:1TopTen.Dat" FOR OUTPUT AS #1 FOR X = 1 TO 10 PRINT #1, "Nobody" PRINT #1, "0" NEXT X CLOSE #1 FOR X = 6 TO 15 LOCATE X, 5 COLOR INT(RND * 15) + 1 PRINT "Nobody" LOCATE X, 40 PRINT "0" NEXT X NewName$ = "Colby" NewScore = 3000 LOCATE 29, 1 INPUT "Press to continue. ", j$ RETURN '---------------------------------------------------------------------------- 'This is the view top ten VTT: CLS PRINT " ÚÄÄÄÄÄÄ¿" PRINT " ³TopTen³" PRINT "ÉÍÑÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÑÍÍÍÍÍÑÍÍÍÍÍ»" PRINT "º ³Name³ ³Score³ º" PRINT "º ßßßßßß ßßßßßßß º" PRINT "º1. º" PRINT "º2. º" PRINT "º3. º" PRINT "º4. º" PRINT "º5. º" PRINT "º6. º" PRINT "º7. º" PRINT "º8. º" PRINT "º9. º" PRINT "º10. º" PRINT "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ" OPEN "C:1TopTen.Dat" FOR INPUT AS #1 FOR X = 1 TO 10 INPUT #1, Name$(X) INPUT #1, Score(X) LOCATE 5 + X, 5 COLOR INT(RND * 15) + 1 PRINT Name$(X) LOCATE 5 + X, 40 COLOR INT(RND * 15) + 1 PRINT Score(X) NEXT X CLOSE #1 LOCATE 29, 1 INPUT "Press to continue. ", E$ RETURN '---------------------------------------------------------------------------- 'This is the Cheat menu Cheat: CLS LOCATE 11, 30 COLOR INT(RND * 15) + 1 AND NOT DrBlack PRINT "ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿" LOCATE 12, 30 PRINT "³ ³" LOCATE 13, 30 PRINT "³ ³" LOCATE 14, 30 PRINT "³ ³" LOCATE 15, 30 PRINT "ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ" LOCATE 12, 31 COLOR INT(RND * 15) + 1 AND NOT DrBlack PRINT "Type in a pasword " LOCATE 13, 31 COLOR INT(RND * 15) + 1 AND NOT DrBlack PRINT " or" LOCATE 14, 31 COLOR INT(RND * 15) + 1 AND NOT DrBlack PRINT "type 'exit' to exit" LOCATE 16, 25 INPUT "Type in something from above. ", Cheat$ IF Cheat$ = "EXIT" THEN RETURN ELSEIF Cheat$ = "ELF" THEN Score = Score + 500 ELSEIF Cheat$ = "JOKE" THEN RESTORE Enem FOR Row = 1 TO 30 FOR Col = 1 TO 30 READ C PSET (Col, Row), C NEXT Col NEXT Row GET (1, 1)-(30, 30), WaterImage Enem: DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 ELSEIF Cheat$ = "COIL" THEN FOR E = 1 TO NumWater WaDir(E) = Stopped NEXT E ELSEIF Cheat$ = "SPEEDY GONZOLAS" THEN LOCATE 17, 25 COLOR INT(RND * 15) + 1 AND NOT DrBlack PRINT "How fast do you want your enemys" COLOR INT(RND * 15) + 1 AND NOT DrBlack LOCATE 18, 25 INPUT "to go and you?(Lower is faster)", L ELSEIF Cheat$ = "RPM100" THEN RESTORE R FOR Row = 1 TO 30 FOR Col = 1 TO 30 READ C PSET (Col, Row), C NEXT Col NEXT Row GET (1, 1)-(30, 30), DragonUpImage R: DATA 0,0,0,0,0,0,0,0,0,0,0,15,15,15,15,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,15,15,15,15,15,15,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,15,15,15,15,15,15,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,15,15,15,15,15,15,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,15,15,15,15,15,15,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,2,2,2,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,2,2,2,1,2,2,1,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,2,2,2,1,2,2,1,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,2,2,2,1,2,2,1,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,2,2,2,1,2,2,1,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,14,14,14,14,14,14,14,14,14,14,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,14,14,14,14,14,14,14,14,14,14,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,15,8,15,15,15,15,15,15,15,08,15,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,15,8,0,15,15,15,8,8,15,15,15,8,15,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,15,8,0,0,15,15,15,8,8,15,15,15,0,8,15,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,2,0,0,15,15,15,8,8,15,15,0,0,2,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,2,2,0,0,15,15,15,8,8,15,15,0,0,2,2,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,2,0,0,15,15,15,8,8,15,15,0,0,2,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,2,2,0,0,15,15,15,8,8,15,15,0,0,2,2,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,2,0,0,15,15,15,8,8,15,15,0,0,2,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,15,15,15,15,15,15,15,15,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,2,15,15,15,15,15,15,2,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,2,2,2,2,2,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,2,2,2,1,2,2,1,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,2,2,2,1,2,2,1,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,2,2,2,1,2,2,1,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,2,2,2,1,2,2,1,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,2,2,2,2,2,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,2,2,2,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,15,15,15,15,15,15,15,0,0,0,0,0,0,0,0,0,0,0,0,0 RESTORE R FOR Row = 30 TO 1 STEP -1 FOR Col = 1 TO 30 READ C PSET (Col, Row), C NEXT Col NEXT Row GET (1, 1)-(30, 30), DragonDownImage RESTORE Blr FOR Row = 1 TO 30 FOR Col = 1 TO 30 READ C PSET (Col, Row), C NEXT Col NEXT Row GET (1, 1)-(30, 30), DragonRightyImage RESTORE Blr FOR Row = 1 TO 30 FOR Col = 30 TO 1 STEP -1 READ C PSET (Col, Row), C NEXT Col NEXT Row GET (1, 1)-(30, 30), DragonLeftyImage Blr: 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 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,14,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,14,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,02,00,00,00,00,14,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,02,02,02,15,00,00,14,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,15,00,14,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,15,00,00,00,00,00,00,00,00,00,00,00,00,00,15,14,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,15,15,00,00,00,00,00,00,00,00,00,00,00,00,15,15,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,15,15,00,00,00,00,00,00,00,00,00,00,00,00,15,15,00,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,15,15,00,00,00,00,00,00,00,00,00,00,00,00,00,15,15,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,15,15,00,00,00,00,00,00,00,00,00,00,00,00,00,15,15,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,15,15,00,00,00,00,00,00,00,00,00,00,00,00,00,15,15,00,00,00,00,00 DATA 00,00,00,00,00,00,00,00,15,15,15,15,15,15,15,15,15,15,15,15,15,15,00,15,15,00,00,00,00,00 DATA 00,00,00,00,02,02,02,02,15,15,15,15,15,15,15,15,15,15,15,15,15,15,02,02,02,02,00,00,00,00 DATA 00,00,00,02,02,02,02,02,02,15,15,15,15,15,15,15,15,15,15,15,15,02,02,02,02,02,02,00,00,00 DATA 00,00,02,02,08,00,00,08,02,02,15,15,15,15,15,15,15,15,15,15,02,02,08,00,00,08,02,02,00,00 DATA 00,02,02,08,08,08,08,08,08,02,02,15,15,15,15,15,15,15,15,02,02,08,08,08,08,08,08,02,02,00 DATA 02,02,00,00,15,15,15,15,00,00,02,02,00,00,00,00,00,00,02,02,00,00,15,15,15,15,00,00,02,02 DATA 02,00,00,15,15,15,15,15,15,00,00,02,00,00,00,00,00,00,02,00,00,15,15,15,15,15,15,00,00,02 DATA 00,00,15,15,15,15,15,15,15,15,00,00,00,00,00,00,00,00,00,00,15,15,15,15,15,15,15,15,00,00 DATA 00,15,15,15,15,08,08,15,15,15,15,00,00,00,00,00,00,00,00,15,15,15,15,08,08,15,15,15,15,00 DATA 15,15,15,15,08,08,08,08,15,15,15,15,00,00,00,00,00,00,15,15,15,15,08,08,08,08,15,15,15,15 DATA 15,15,15,08,08,15,15,08,08,15,15,15,00,00,00,00,00,00,15,15,15,08,08,15,15,08,08,15,15,15 DATA 15,15,15,08,08,15,15,08,08,15,15,15,00,00,00,00,00,00,15,15,15,08,08,15,15,08,08,15,15,15 DATA 15,15,15,15,08,08,08,08,15,15,15,15,00,00,00,00,00,00,15,15,15,15,08,08,08,08,15,15,15,15 DATA 00,15,15,15,15,08,08,15,15,15,15,00,00,00,00,00,00,00,00,15,15,15,15,08,08,15,15,15,15,00 DATA 00,00,15,15,15,15,15,15,15,15,00,00,00,00,00,00,00,00,00,00,15,15,15,15,15,15,15,15,00,00 DATA 00,00,00,15,15,15,15,15,15,00,00,00,00,00,00,00,00,00,00,00,00,15,15,15,15,15,15,00,00,00 DATA 00,00,00,00,15,15,15,15,00,00,00,00,00,00,00,00,00,00,00,00,00,00,15,15,15,15,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 ELSEIF Cheat$ = "DRAGON" THEN LOCATE 16, 23 COLOR INT(RND * 15) + 1 AND NOT DrBlack INPUT "What Level do you want to start at?(1-5)", L ELSEIF Cheat$ = "ROBBER" THEN LOCATE 16, 20 INPUT "How many lifes do you want?", D END IF RETURN '---------------------------------------------------------------------------- 'This is the Instructions Inst: CLS COLOR INT(RND * 15) + 1 AND NOT DrBlack PRINT " You are a Dragon trying to get to the door to get to the next " COLOR INT(RND * 15) + 1 AND NOT DrBlack PRINT "" PRINT "level. You can choose what level you start at. If you get hit by a" COLOR INT(RND * 15) + 1 AND NOT DrBlack PRINT "" PRINT "water hose spraying water then you lose a life. You don't choose how" COLOR INT(RND * 15) + 1 AND NOT DrBlack PRINT "" PRINT "much lifes you get because that would be cheating. If you get a fire" COLOR INT(RND * 15) + 1 AND NOT DrBlack PRINT "" PRINT "ball then you get extra score. There are five levels that you have" COLOR INT(RND * 15) + 1 AND NOT DrBlack PRINT "" PRINT "to beat. If you beat all of them then you win." COLOR INT(RND * 15) + 1 AND NOT DrBlack PRINT "" PRINT " Good Luck." LOCATE 29, 1 INPUT "Press to continue.", Enter$ CLS LOCATE 1, 32 COLOR INT(RND * 15) + 1 AND NOT DrBlack PRINT "This is you:" PUT (300, 20), DragonDownImage, PSET LOCATE 5, 7 COLOR INT(RND * 15) + 1 AND NOT DrBlack PRINT "This is your enemy:" PUT (100, 90), WaterImage, PSET COLOR INT(RND * 15) + 1 AND NOT DrBlack LOCATE 5, 57 PRINT "This is the Fire Ball:" PUT (520, 90), FireImage, PSET LOCATE 5, 32 COLOR INT(RND * 15) + 1 AND NOT DrBlack PRINT "This is the Wall:" PUT (300, 100), WallImage, PSET LOCATE 10, 32 COLOR INT(RND * 15) + 1 AND NOT DrBlack PRINT "This is the Door:" PUT (300, 170), DoorImage, PSET LOCATE 15, 32 COLOR INT(RND * 15) + 1 AND NOT DrBlack PRINT "This is the Bars:" PUT (300, 250), BarsImage, PSET LOCATE 29, 1 INPUT "Press ", L$ RETURN '---------------------------------------------------------------------------- 'This is the game Game: CLS NewScore = 100 LOCATE 1, 1 INPUT "How fast do you want it to go?(Normal=15000) ", L IF Cheat$ = "ROBBER" THEN Life = D ELSE Life = 5 END IF IF Cheat$ = "DRAGON" THEN Level = L ELSE Level = 1 END IF GOSUB SetupLevel Direction = Stopped Done = False C$ = INKEY$ DoneLevel = False WHILE NOT Done DoneLevel = False Score = Score * Life WHILE NOT DoneLevel IF C$ <> "" THEN GOSUB KeyStruck END IF GOSUB WaterMove GOSUB Movement FOR D = 1 TO L NEXT D IF Life = 0 THEN LOCATE 12, 34 PRINT "You Lose" LOCATE 1, 1 COLOR INT(RND * 15) + 1 INPUT "Your name is: ", NewName$ DoneLevel = True Done = True END IF IF C$ = CHR$(27) THEN FOR X = 1 TO 450 CIRCLE (320, 220), X, 4 FOR D = 1 TO 50 NEXT D NEXT X CLS LOCATE 1, 1 COLOR INT(RND * 15) + 1 INPUT "Your name is: ", NewName$ GOSUB Update Done = True DoneLevel = True RETURN END IF IF C$ = "=" THEN NumWater = NumWater + 1 ELSEIF C$ = "-" THEN NumWater = NumWater - 1 END IF IF C$ = "S" THEN Direction = Stopped END IF GOSUB Score C$ = INKEY$ WEND GOSUB SetupLevel WEND GOSUB Update RETURN '---------------------------------------------------------------------------- 'This is the update Update: OPEN "C:1TopTen.Dat" FOR INPUT AS #1 FOR X = 1 TO 10 INPUT #1, Name$(X) INPUT #1, Score(X) NEXT X CLOSE #1 Found = False CurScore = 1 WHILE NOT Found AND CurScore < 11 IF NewScore > Score(CurScore) THEN Found = True ELSE CurScore = CurScore + 1 END IF WEND IF Found THEN FOR X = 9 TO CurScore STEP -1 Score(X + 1) = Score(X) Name$(X + 1) = Name$(X) NEXT X Score(CurScore) = NewScore Name$(CurScore) = NewName$ OPEN "C:1TopTen.Dat" FOR OUTPUT AS #1 FOR X = 1 TO 10 PRINT #1, Name$(X) PRINT #1, Score(X) NEXT X CLOSE #1 END IF RETURN '---------------------------------------------------------------------------- SetupLevel: CLS K = False IF Level = 1 THEN RESTORE Level1 ELSEIF Level = 2 THEN RESTORE Level2 ELSEIF Level = 3 THEN RESTORE Level3 ELSEIF Level = 4 THEN RESTORE Level4 ELSEIF Level = 5 THEN RESTORE Level5 ELSEIF Level >= 6 THEN CLS LOCATE 12, 35 COLOR INT(RND * 15) + 1 AND NOT DrBlack PRINT "You Won!" LOCATE 14, 30 COLOR INT(RND * 15) + 1 AND NOT DrBlack INPUT "Your Name is: ", NewName$ Done = True DoneLevel = True RETURN END IF NumWater = 0 NumFire = 0 NumBars = 0 FOR Row = 1 TO 14 FOR Col = 1 TO 20 READ Maze(Row, Col) IF Maze(Row, Col) = DragonLR THEN Srow = Row Scol = Col Direction = Stopped Maze(Row, Col) = Wall PUT ((Col - 1) * 30, (Row - 1) * 30), DragonRightyImage, PSET ELSEIF Maze(Row, Col) = Wat THEN NumWater = NumWater + 1 WaRow(NumWater) = Row WaCol(NumWater) = Col Maze(Row, Col) = Empty WaDir(NumWater) = INT(RND * 4) + 1 PUT ((Col - 1) * 30, (Row - 1) * 30), WaterImage, PSET ELSEIF Maze(Row, Col) = Fire THEN NumFire = NumFire + 1 Maze(Row, Col) = Fire PUT ((Col - 1) * 30, (Row - 1) * 30), FireImage, PSET ELSEIF Maze(Row, Col) = Wall THEN PUT ((Col - 1) * 30, (Row - 1) * 30), WallImage, PSET ELSEIF Maze(Row, Col) = Door THEN PUT ((Col - 1) * 30, (Row - 1) * 30), DoorImage, PSET DRow = Row DCol = Col ELSEIF Maze(Row, Col) = Bars THEN NumBars = NumBars + 1 PUT ((Col - 1) * 30, (Row - 1) * 30), BarsImage, PSET BRow = Row BCol = Col ELSEIF Maze(Row, Col) = Keys THEN PUT ((Col - 1) * 30, (Row - 1) * 30), KeysImage, PSET KRow = Row KCol = Col ELSEIF Maze(Row, Col) = Empty THEN PUT ((Col - 1) * 30, (Row - 1) * 30), EmptyImage, PSET ELSEIF Maze(Row, Col) = BackT THEN PUT ((Col - 1) * 30, (Row - 1) * 30), BackTImage, PSET END IF NEXT Col NEXT Row Prow = Srow Pcol = Scol RETURN '---------------------------------------------------------------------------- WaterMove: NumChoices = 0 FOR W = 1 TO NumWater IF WaDir(W) = Up THEN IF Maze(WaRow(W) - 1, WaCol(W)) = Empty THEN PUT ((WaCol(W) - 1) * 30, (WaRow(W) - 1) * 30), EmptyImage, PSET WaRow(W) = WaRow(W) - 1 PUT ((WaCol(W) - 1) * 30, (WaRow(W) - 1) * 30), WaterImage, PSET ELSEIF Maze(WaRow(W) - 1, WaCol(W)) = Fire THEN PUT ((WaCol(W) - 1) * 30, (WaRow(W) - 1) * 30), EmptyImage, PSET WaRow(W) = WaRow(W) - 1 PUT ((WaCol(W) - 1) * 30, (WaRow(W) - 1) * 30), WaterImage, PSET Maze(WaRow(W), WaCol(W)) = Empty END IF IF Maze(WaRow(W) - 1, WaCol(W)) = Empty OR Maze(WaRow(W) - 1, WaCol(W)) = Fire THEN NumChoices = NumChoices + 1 Choices(NumChoices) = Up END IF IF Maze(WaRow(W), WaCol(W) - 1) = Empty OR Maze(WaRow(W), WaCol(W) - 1) = Fire THEN NumChoices = NumChoices + 1 Choices(NumChoices) = Lefty END IF IF Maze(WaRow(W), WaCol(W) + 1) = Fire OR Maze(WaRow(W), WaCol(W) + 1) = Fire THEN NumChoices = NumChoices + 1 Choices(NumChoices) = Righty END IF IF NumChoices > 0 THEN WaDir(W) = Choices(INT(RND * NumChoices) + 1) ELSE WaDir(W) = Down END IF ELSEIF WaDir(W) = Down THEN IF Maze(WaRow(W) + 1, WaCol(W)) = Empty THEN PUT ((WaCol(W) - 1) * 30, (WaRow(W) - 1) * 30), EmptyImage, PSET WaRow(W) = WaRow(W) + 1 PUT ((WaCol(W) - 1) * 30, (WaRow(W) - 1) * 30), WaterImage, PSET ELSEIF Maze(WaRow(W) + 1, WaCol(W)) = Fire THEN PUT ((WaCol(W) - 1) * 30, (WaRow(W) - 1) * 30), EmptyImage, PSET WaRow(W) = WaRow(W) + 1 PUT ((WaCol(W) - 1) * 30, (WaRow(W) - 1) * 30), WaterImage, PSET Maze(WaRow(W), WaCol(W)) = Empty END IF IF Maze(WaRow(W) + 1, WaCol(W)) = Empty OR Maze(WaRow(W) + 1, WaCol(W)) = Fire THEN NumChoices = NumChoices + 1 Choices(NumChoices) = Down END IF IF Maze(WaRow(W), WaCol(W) - 1) = Empty OR Maze(WaRow(W), WaCol(W) - 1) = Fire THEN NumChoices = NumChoices + 1 Choices(NumChoices) = Lefty END IF IF Maze(WaRow(W), WaCol(W) + 1) = Empty OR Maze(WaRow(W), WaCol(W) + 1) = Fire THEN NumChoices = NumChoices + 1 Choices(NumChoices) = Righty END IF IF NumChoices > 0 THEN WaDir(W) = Choices(INT(RND * NumChoices) + 1) ELSE WaDir(W) = Up END IF ELSEIF WaDir(W) = Lefty THEN IF Maze(WaRow(W), WaCol(W) - 1) = Empty THEN PUT ((WaCol(W) - 1) * 30, (WaRow(W) - 1) * 30), EmptyImage, PSET WaCol(W) = WaCol(W) - 1 PUT ((WaCol(W) - 1) * 30, (WaRow(W) - 1) * 30), WaterImage, PSET ELSEIF Maze(WaRow(W), WaCol(W) - 1) = Fire THEN PUT ((WaCol(W) - 1) * 30, (WaRow(W) - 1) * 30), EmptyImage, PSET WaCol(W) = WaCol(W) - 1 PUT ((WaCol(W) - 1) * 30, (WaRow(W) - 1) * 30), WaterImage, PSET Maze(WaRow(W), WaCol(W)) = Empty END IF IF Maze(WaRow(W), WaCol(W) - 1) = Empty OR Maze(WaRow(W), WaCol(W) - 1) = Fire THEN NumChoices = NumChoices + 1 Choices(NumChoices) = Lefty END IF IF Maze(WaRow(W) - 1, WaCol(W)) = Empty OR Maze(WaRow(W) - 1, WaCol(W)) = Fire THEN NumChoices = NumChoices + 1 Choices(NumChoices) = Up END IF IF Maze(WaRow(W) + 1, WaCol(W)) = Empty OR Maze(WaRow(W) + 1, WaCol(W)) = Fire THEN NumChoices = NumChoices + 1 Choices(NumChoices) = Down END IF IF NumChoices > 0 THEN WaDir(W) = Choices(INT(RND * NumChoices) + 1) ELSE WaDir(W) = Righty END IF ELSEIF WaDir(W) = Righty THEN IF Maze(WaRow(W), WaCol(W) + 1) = Empty THEN PUT ((WaCol(W) - 1) * 30, (WaRow(W) - 1) * 30), EmptyImage, PSET WaCol(W) = WaCol(W) + 1 PUT ((WaCol(W) - 1) * 30, (WaRow(W) - 1) * 30), WaterImage, PSET ELSEIF Maze(WaRow(W), WaCol(W) + 1) = Fire THEN PUT ((WaCol(W) - 1) * 30, (WaRow(W) - 1) * 30), EmptyImage, PSET WaCol(W) = WaCol(W) + 1 PUT ((WaCol(W) - 1) * 30, (WaRow(W) - 1) * 30), WaterImage, PSET Maze(WaRow(W), WaCol(W)) = Empty END IF IF Maze(WaRow(W), WaCol(W) + 1) = Empty OR Maze(WaRow(W), WaCol(W) + 1) = Fire THEN NumChoices = NumChoices + 1 Choices(NumChoices) = Righty END IF IF Maze(WaRow(W) + 1, WaCol(W)) = Empty OR Maze(WaRow(W) + 1, WaCol(W)) = Fire THEN NumChoices = NumChoices + 1 Choices(NumChoices) = Down END IF IF Maze(WaRow(W) - 1, WaCol(W)) = Empty OR Maze(WaRow(W) - 1, WaCol(W)) = Fire THEN NumChoices = NumChoices + 1 Choices(NumChoices) = Up END IF IF NumChoices > 0 THEN WaDir(W) = Choices(INT(RND * NumChoices) + 1) ELSE WaDir(W) = Lefty END IF END IF NEXT W RETURN '---------------------------------------------------------------------------- 'This is the KeyStruck subrutine KeyStruck: IF C$ = CHR$(0) + "H" THEN Direction = Up ELSEIF C$ = CHR$(0) + "P" THEN Direction = Down ELSEIF C$ = CHR$(0) + "K" THEN Direction = Lefty ELSEIF C$ = CHR$(0) + "M" THEN Direction = Righty END IF RETURN '---------------------------------------------------------------------------- 'This is the K Movement subrutine Movement: FOR G = 1 TO NumWater IF Prow = WaRow(G) AND Pcol = WaCol(G) THEN Life = Life - 1 NewScore = NewScore - 500 FOR X = 1 TO 450 CIRCLE (320, 220), X, 4 NEXT X FOR X = 450 TO 1 STEP -1 CIRCLE (320, 220), X, 0 NEXT X Prow = Srow Pcol = Scol PUT ((Pcol - 1) * 30, (Prow - 1) * 30), DragonRightyImage, PSET Direction = Stopped END IF NEXT G IF Direction = Up THEN IF Maze(Prow - 1, Pcol) = Keys THEN NewScore = NewScore + 50 PUT ((Pcol - 1) * 30, (Prow - 1) * 30), EmptyImage, PSET Prow = Prow - 1 PUT ((Pcol - 1) * 30, (Prow - 1) * 30), DragonUpImage, PSET K = True Maze(Prow, Pcol) = Empty ELSEIF Maze(Prow - 1, Pcol) = Empty THEN PUT ((Pcol - 1) * 30, (Prow - 1) * 30), EmptyImage, PSET Prow = Prow - 1 PUT ((Pcol - 1) * 30, (Prow - 1) * 30), DragonUpImage, PSET ELSEIF Maze(Prow - 1, Pcol) = Door THEN PUT ((Pcol - 1) * 30, (Prow - 1) * 30), EmptyImage, PSET Prow = Prow - 1 PUT ((Pcol - 1) * 30, (Prow - 1) * 30), DragonUpImage, PSET FOR X = 1 TO 450 STEP 1 CIRCLE (320, 220), X, 4 NEXT X FOR X = 450 TO 1 STEP -1 CIRCLE (320, 220), X, 0 NEXT X Level = Level + 1 DoneLevel = True ELSEIF Maze(Prow - 1, Pcol) = Bars AND K = True THEN PUT ((Pcol - 1) * 30, (Prow - 1) * 30), EmptyImage, PSET Prow = Prow - 1 PUT ((Pcol - 1) * 30, (Prow - 1) * 30), DragonUpImage, PSET Maze(Prow, Pcol) = Empty ELSEIF Maze(Prow - 1, Pcol) = Fire THEN NewScore = NewScore + 100 PUT ((Pcol - 1) * 30, (Prow - 1) * 30), EmptyImage, PSET Prow = Prow - 1 PUT ((Pcol - 1) * 30, (Prow - 1) * 30), DragonUpImage, PSET Maze(Prow, Pcol) = Empty ELSEIF Maze(Prow - 1, Pcol) = BackT THEN PUT ((Pcol - 1) * 30, (Prow - 1) * 30), EmptyImage, PSET Prow = 13 PUT ((Pcol - 1) * 30, (Prow - 1) * 30), DragonUpImage, PSET END IF ELSEIF Direction = Down THEN IF Maze(Prow + 1, Pcol) = Keys THEN NewScore = NewScore + 10 PUT ((Pcol - 1) * 30, (Prow - 1) * 30), EmptyImage, PSET Prow = Prow + 1 PUT ((Pcol - 1) * 30, (Prow - 1) * 30), DragonDownImage, PSET K = True Maze(Prow, Pcol) = Empty ELSEIF Maze(Prow + 1, Pcol) = Empty THEN PUT ((Pcol - 1) * 30, (Prow - 1) * 30), EmptyImage, PSET Prow = Prow + 1 PUT ((Pcol - 1) * 30, (Prow - 1) * 30), DragonDownImage, PSET ELSEIF Maze(Prow + 1, Pcol) = Door THEN PUT ((Pcol - 1) * 30, (Prow - 1) * 30), EmptyImage, PSET Prow = Prow + 1 PUT ((Pcol - 1) * 30, (Prow - 1) * 30), DragonDownImage, PSET FOR X = 1 TO 450 STEP 1 CIRCLE (320, 220), X, 4 NEXT X FOR X = 450 TO 1 STEP -1 CIRCLE (320, 220), X, 0 NEXT X Level = Level + 1 DoneLevel = True ELSEIF Maze(Prow + 1, Pcol) = Fire THEN NewScore = NewScore + 100 PUT ((Pcol - 1) * 30, (Prow - 1) * 30), EmptyImage, PSET Prow = Prow + 1 PUT ((Pcol - 1) * 30, (Prow - 1) * 30), DragonDownImage, PSET Maze(Prow, Pcol) = Empty ELSEIF Maze(Prow + 1, Pcol) = Bars AND K = True THEN PUT ((Pcol - 1) * 30, (Prow - 1) * 30), EmptyImage, PSET Prow = Prow + 1 PUT ((Pcol - 1) * 30, (Prow - 1) * 30), DragonDownImage, PSET Maze(Prow, Pcol) = Empty ELSEIF Maze(Prow + 1, Pcol) = BackT THEN PUT ((Pcol - 1) * 30, (Prow - 1) * 30), EmptyImage, PSET Prow = 2 PUT ((Pcol - 1) * 30, (Prow - 1) * 30), DragonDownImage, PSET END IF ELSEIF Direction = Lefty THEN IF Maze(Prow, Pcol - 1) = Empty THEN PUT ((Pcol - 1) * 30, (Prow - 1) * 30), EmptyImage, PSET Pcol = Pcol - 1 PUT ((Pcol - 1) * 30, (Prow - 1) * 30), DragonLeftyImage, PSET ELSEIF Maze(Prow, Pcol - 1) = Fire THEN NewScore = NewScore + 100 PUT ((Pcol - 1) * 30, (Prow - 1) * 30), EmptyImage, PSET Pcol = Pcol - 1 PUT ((Pcol - 1) * 30, (Prow - 1) * 30), DragonLeftyImage, PSET Maze(Prow, Pcol) = Empty ELSEIF Maze(Prow, Pcol - 1) = Bars AND K = True THEN PUT ((Pcol - 1) * 30, (Prow - 1) * 30), EmptyImage, PSET Pcol = Pcol - 1 PUT ((Pcol - 1) * 30, (Prow - 1) * 30), DragonLeftyImage, PSET Maze(Prow, Pcol) = Empty ELSEIF Maze(Prow, Pcol - 1) = Keys THEN NewScore = NewScore + 10 PUT ((Pcol - 1) * 30, (Prow - 1) * 30), EmptyImage, PSET Pcol = Pcol - 1 PUT ((Pcol - 1) * 30, (Prow - 1) * 30), DragonLeftyImage, PSET K = True Maze(Prow, Pcol) = Empty ELSEIF Maze(Prow, Pcol - 1) = Door THEN PUT ((Pcol - 1) * 30, (Prow - 1) * 30), EmptyImage, PSET Pcol = Pcol + 1 PUT ((Pcol - 1) * 30, (Prow - 1) * 30), DragonLeftyImage, PSET FOR X = 1 TO 450 STEP 1 CIRCLE (320, 220), X, 4 NEXT X FOR X = 450 TO 1 STEP -1 CIRCLE (320, 220), X, 0 NEXT X Level = Level + 1 DoneLevel = True ELSEIF Maze(Prow, Pcol - 1) = BackT THEN PUT ((Pcol - 1) * 30, (Prow - 1) * 30), EmptyImage, PSET Pcol = 19 PUT ((Pcol - 1) * 30, (Prow - 1) * 30), DragonLeftyImage, PSET END IF ELSEIF Direction = Righty THEN IF Maze(Prow, Pcol + 1) = Empty THEN PUT ((Pcol - 1) * 30, (Prow - 1) * 30), EmptyImage, PSET Pcol = Pcol + 1 PUT ((Pcol - 1) * 30, (Prow - 1) * 30), DragonRightyImage, PSET ELSEIF Maze(Prow, Pcol + 1) = Fire THEN NewScore = NewScore + 100 PUT ((Pcol - 1) * 30, (Prow - 1) * 30), EmptyImage, PSET Pcol = Pcol + 1 PUT ((Pcol - 1) * 30, (Prow - 1) * 30), DragonRightyImage, PSET Maze(Prow, Pcol) = Empty ELSEIF Maze(Prow, Pcol + 1) = Door THEN PUT ((Pcol - 1) * 30, (Prow - 1) * 30), EmptyImage, PSET Pcol = Pcol + 1 PUT ((Pcol - 1) * 30, (Prow - 1) * 30), DragonRightyImage, PSET FOR X = 1 TO 450 STEP 1 CIRCLE (320, 220), X, 4 NEXT X FOR X = 450 TO 1 STEP -1 CIRCLE (320, 220), X, 0 NEXT X Level = Level + 1 DoneLevel = True ELSEIF Maze(Prow, Pcol + 1) = Bars AND K = True THEN PUT ((Pcol - 1) * 30, (Prow - 1) * 30), EmptyImage, PSET Pcol = Pcol + 1 PUT ((Pcol - 1) * 30, (Prow - 1) * 30), DragonRightyImage, PSET Maze(Prow, Pcol) = Empty ELSEIF Maze(Prow, Pcol + 1) = Keys THEN NewScore = NewScore + 10 PUT ((Pcol - 1) * 30, (Prow - 1) * 30), EmptyImage, PSET Pcol = Pcol + 1 PUT ((Pcol - 1) * 30, (Prow - 1) * 30), DragonRightyImage, PSET K = True Maze(Prow, Pcol) = Empty ELSEIF Maze(Prow, Pcol + 1) = BackT THEN PUT ((Pcol - 1) * 30, (Prow - 1) * 30), EmptyImage, PSET Pcol = 2 PUT ((Pcol - 1) * 30, (Prow - 1) * 30), DragonRightyImage, PSET END IF END IF FOR G = 1 TO NumWater IF Prow = WaRow(G) AND Pcol = WaCol(G) THEN Life = Life - 1 NewScore = NewScore - 500 FOR X = 1 TO 450 CIRCLE (320, 220), X, 4 NEXT X FOR X = 450 TO 1 STEP -1 CIRCLE (320, 220), X, 0 NEXT X Prow = Srow Pcol = Scol PUT ((Pcol - 1) * 30, (Prow - 1) * 30), DragonRightyImage, PSET Direction = Stopped END IF NEXT G RETURN '---------------------------------------------------------------------------- 'This is the Score Score: LOCATE 28, 20 PRINT " " LOCATE 28, 20 COLOR INT(RND * 15) + 1 AND NOT DrBlack PRINT "Score: "; NewScore LOCATE 28, 40 PRINT " " LOCATE 28, 40 COLOR INT(RND * 15) + 1 AND NOT DrBlack PRINT "Life: "; Life RETURN '---------------------------------------------------------------------------- Level1: DATA 3,3,8,3,3,3,3,3,3,3,3,3,3,3,8,3,3,3,3,3 DATA 3,0,0,0,0,5,0,0,0,0,0,0,2,0,2,0,2,0,7,3 DATA 3,0,0,3,0,3,0,3,0,3,2,3,0,3,0,3,0,3,0,3 DATA 3,6,6,6,0,3,2,2,0,0,0,0,0,0,0,0,0,0,2,3 DATA 8,0,3,3,0,0,0,0,3,0,3,0,3,0,3,2,3,0,0,8 DATA 3,0,0,6,6,3,3,6,3,6,3,6,3,6,3,6,3,6,6,3 DATA 3,0,3,3,0,0,0,0,0,0,0,0,2,0,0,2,0,0,2,3 DATA 3,2,0,0,0,3,3,3,0,3,0,3,0,3,2,3,0,3,0,3 DATA 8,0,3,3,0,0,0,0,0,3,0,3,0,3,0,3,0,3,0,8 DATA 3,0,0,0,0,3,3,0,2,0,0,0,0,0,0,0,0,0,2,3 DATA 3,0,3,3,2,0,3,3,3,0,3,3,3,3,2,3,3,3,3,3 DATA 3,2,3,0,0,3,3,1,1,0,0,0,0,2,0,0,2,0,6,3 DATA 3,0,0,0,0,0,0,0,0,3,2,3,0,3,0,3,0,3,4,3 DATA 3,3,8,3,3,3,3,3,3,3,3,3,3,3,8,3,3,3,3,3 '---------------------------------------------------------------------------- Level2: DATA 3,3,3,8,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3 DATA 3,0,2,0,0,3,2,0,2,0,0,0,0,0,3,0,0,0,5,3 DATA 3,0,3,3,0,3,0,3,3,3,0,3,0,3,3,0,3,3,3,3 DATA 3,2,0,3,2,3,2,3,2,3,0,3,0,0,0,2,3,0,3,3 DATA 3,3,0,3,2,0,0,3,0,3,0,3,3,3,3,0,3,0,0,8 DATA 3,0,0,3,3,3,3,3,2,0,0,0,0,0,3,0,3,3,0,3 DATA 8,0,3,3,0,0,0,0,0,3,3,3,3,0,3,0,0,0,0,3 DATA 3,2,0,0,0,3,3,3,3,3,0,0,2,0,3,2,3,3,3,3 DATA 3,3,3,7,3,3,0,0,2,0,2,3,3,3,3,0,0,0,0,3 DATA 3,0,2,0,0,0,0,3,2,3,3,3,0,0,0,0,3,3,0,3 DATA 3,0,3,3,3,3,3,3,2,0,2,0,2,0,2,2,0,1,1,3 DATA 3,2,3,0,2,0,3,0,2,0,3,0,0,0,3,6,3,0,1,3 DATA 3,0,2,0,3,0,2,0,3,2,0,2,3,2,3,4,3,0,0,3 DATA 3,3,3,3,3,3,3,3,3,3,8,3,3,3,3,3,3,3,3,3 '---------------------------------------------------------------------------- Level3: DATA 3,3,3,3,3,3,3,3,3,3,3,3,3,8,3,3,3,3,3,3 DATA 8,5,2,0,2,3,0,0,0,0,2,0,2,0,2,3,2,0,7,3 DATA 3,3,3,3,0,3,0,3,3,3,0,3,3,3,0,3,0,3,3,3 DATA 3,0,2,0,2,0,0,0,0,3,0,3,0,3,0,0,2,0,0,3 DATA 3,0,3,2,0,3,3,3,0,3,0,3,0,3,2,3,3,3,2,3 DATA 3,0,3,3,3,3,0,0,0,3,0,0,0,3,0,0,0,0,0,3 DATA 3,0,0,2,0,3,0,3,3,3,0,3,0,0,0,3,0,0,0,3 DATA 3,3,3,3,2,3,0,0,0,0,0,3,0,3,3,3,0,3,2,3 DATA 3,0,2,0,0,3,3,3,3,3,3,3,3,3,2,0,0,3,0,3 DATA 3,0,3,3,2,3,0,2,0,3,0,2,0,3,0,3,3,3,0,3 DATA 3,2,3,2,0,3,0,3,0,3,0,3,2,0,2,3,0,2,0,3 DATA 3,0,3,0,3,3,2,3,1,1,1,3,0,3,0,0,0,3,3,3 DATA 3,0,2,0,2,0,0,3,0,1,0,3,2,3,2,3,0,6,4,8 DATA 3,3,3,3,3,3,3,3,8,3,3,3,3,3,3,3,3,3,3,3 '--------------------------------------------------------------------------- Level4: DATA 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,8,3 DATA 8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,6,0,4,3 DATA 3,0,0,0,0,0,2,0,0,2,0,0,0,0,0,0,6,0,0,3 DATA 3,0,0,0,2,0,0,0,0,0,2,0,2,0,0,0,6,6,6,3 DATA 3,0,0,0,0,0,0,0,2,0,0,0,0,0,2,0,0,0,0,3 DATA 3,0,0,0,0,0,0,0,1,2,1,0,0,0,0,0,2,0,0,3 DATA 3,0,2,0,2,0,2,0,0,0,2,0,0,1,0,0,2,0,0,3 DATA 3,0,0,0,0,0,0,0,2,0,0,0,2,0,2,1,0,0,0,3 DATA 3,0,0,0,0,0,0,0,0,0,0,2,0,0,0,0,0,0,0,3 DATA 3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,6,6,2,3 DATA 3,0,2,0,0,0,0,0,0,0,2,0,2,0,0,0,6,2,2,3 DATA 3,0,0,0,2,0,0,0,2,0,0,0,0,1,0,0,6,2,6,3 DATA 8,5,0,0,0,0,0,0,0,0,0,0,0,0,2,0,6,2,7,3 DATA 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,8,3 '---------------------------------------------------------------------------- Level5: DATA 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3 DATA 3,0,0,0,0,3,0,0,0,3,0,0,0,3,0,0,0,0,0,3 DATA 3,0,3,3,0,3,0,3,0,0,0,3,0,0,0,3,3,3,0,3 DATA 3,0,0,0,0,0,0,3,3,3,3,3,3,3,3,3,4,3,0,3 DATA 3,0,3,3,0,3,0,0,0,0,0,0,3,3,0,0,6,3,0,3 DATA 3,0,3,1,0,3,3,3,3,3,3,0,0,3,0,3,1,3,0,3 DATA 3,0,0,1,0,3,0,0,0,5,8,0,3,3,0,3,3,3,0,3 DATA 3,0,3,0,3,3,8,3,3,3,3,0,0,3,0,0,0,0,0,3 DATA 3,0,3,0,0,0,3,0,0,0,3,3,0,3,0,3,3,3,3,3 DATA 3,0,3,3,3,0,3,0,3,0,3,0,0,0,0,3,2,2,2,3 DATA 3,0,6,2,3,0,0,0,3,0,0,0,3,0,0,3,2,2,2,3 DATA 3,0,3,2,3,3,3,3,3,3,3,3,3,3,3,3,2,2,2,3 DATA 3,7,3,2,2,2,6,2,2,2,6,2,2,2,2,2,2,2,2,3 DATA 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3 '---------------------------------------------------------------------------- DragonDown: DATA 0,0,0,0,0,0,0,0,0,0,0,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,4,4,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,4,4,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,2,2,2,2,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,2,2,2,2,15,2,2,15,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,00 DATA 0,0,0,0,0,0,2,2,2,2,14,15,15,14,2,2,2,0,0,0,0,0,0,0,0,0,0,0,00,00 DATA 0,0,0,0,0,2,2,2,2,14,15,14,14,15,14,2,2,2,0,0,0,0,0,0,0,0,0,00,00,00 DATA 0,0,0,0,2,2,2,2,2,2,14,2,2,14,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,00 DATA 0,0,0,0,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,2,2,2,2,2,2,5,4,2,14,5,2,2,2,2,0,0,0,0,0,0,0,0,0,0,00 DATA 0,0,0,0,2,2,2,2,2,4,14,5,2,4,14,2,2,2,2,0,0,0,0,0,0,0,0,0,0,00 DATA 0,0,0,0,2,2,2,2,2,5,4,4,4,5,4,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,2,2,2,2,2,14,4,2,2,4,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,00 DATA 0,0,0,0,2,2,2,2,2,2,15,2,2,15,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,00 DATA 0,0,0,0,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,2,2,2,2,2,2,2,2,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,2,2,2,2,2,2,2,2,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,2,15,15,15,15,15,15,15,15,15,15,15,2,0,0,0,0,0,0,0,00,00,00,00,00 DATA 0,0,0,0,0,2,15,13,4,14,4,5,4,15,4,4,15,2,0,0,0,0,0,0,0,0,0,0,00,00 DATA 0,0,0,0,0,0,2,15,5,5,13,4,13,4,15,5,2,0,0,0,0,0,0,0,0,0,0,0,00,00 DATA 0,0,0,0,0,0,2,2,15,13,5,13,4,13,5,2,2,0,0,0,0,0,0,0,0,0,0,0,00,00 DATA 0,0,0,0,0,0,2,2,2,15,4,5,4,5,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,2,2,2,2,15,15,15,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,00 DATA 0,0,0,0,0,0,2,2,2,2,2,2,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,2,2,2,2,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,2,2,2,2,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,2,2,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DragonUp: DATA 0,0,0,0,0,0,0,0,0,0,0,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,4,4,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,4,4,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,2,2,2,2,4,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,2,2,2,2,4,4,4,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,2,2,2,2,4,4,4,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,2,2,2,2,2,2,2,2,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,2,2,2,2,2,2,2,4,2,2,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,2,2,2,2,2,2,4,4,4,2,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,2,2,2,2,2,2,4,4,4,2,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,2,2,2,2,2,2,2,4,2,2,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,2,2,2,2,2,2,4,4,4,2,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,2,2,2,2,2,2,4,4,4,2,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,2,2,2,2,2,2,2,4,2,2,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,2,2,2,2,2,2,4,4,4,2,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,2,2,2,2,2,4,4,4,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,2,2,2,2,2,2,2,2,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,2,2,2,2,2,2,4,2,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,2,2,2,2,2,4,4,4,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,2,2,2,2,4,4,4,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,2,2,2,2,2,2,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,2,2,2,2,2,4,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,2,2,2,2,4,4,4,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,2,2,2,2,4,4,4,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,2,2,2,2,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,2,2,2,2,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,2,2,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DragonRL: DATA 0,0,0,0,0,0,0,0,0,0,0,0,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,4,0,4,0,4,4,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,4,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,4,2,2,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,4,4,2,2,2,2,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,4,4,2,2,2,2,2,2,2,2,15,2,2,2,2,2,0,0,0,0,0,0,0,0,4,4 DATA 0,0,0,0,0,4,2,2,2,2,2,2,2,2,15,2,2,2,15,2,2,0,0,0,0,4,4,4,4,0 DATA 0,0,0,0,0,0,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,0,0,4,4,5,4,0,0,0 DATA 0,0,0,0,0,4,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,4,4,4,13,13,5,4,4,0 DATA 0,0,0,0,4,4,2,2,2,2,2,2,2,2,2,2,5,13,13,13,13,4,13,13,5,4,5,4,0 DATA 0,0,0,0,0,4,2,2,2,2,2,2,2,2,2,13,13,4,5,13,5,13,5,4,13,5,4,0,0,0 DATA 0,0,0,0,0,0,2,2,2,2,2,2,2,2,4,13,5,13,13,5,4,5,13,5,4,13,13,4,0,0 DATA 0,0,0,0,0,4,2,2,2,2,2,2,2,2,2,5,4,5,4,5,13,5,4,13,5,5,5,4,4,4 DATA 0,0,0,0,4,4,2,2,2,2,2,2,2,2,2,2,13,13,5,4,5,13,5,5,13,4,13,4,0,0 DATA 0,0,0,0,0,4,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,4,13,3,5,13,5,5,4,4 DATA 0,0,0,0,0,0,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,0,4,4,4,5,0,4,4,0 DATA 0,0,0,0,0,4,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,0,0,0,0,4,3,0,0,0 DATA 0,0,0,0,4,4,2,2,2,2,2,2,2,2,2,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,4,2,2,2,2,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,2,2,2,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,4,2,2,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,4,4,2,2,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,4,2,2,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,2,2,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,4,2,2,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,4,4,2,2,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,4,2,2,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,2,2,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,4,2,2,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,4,4,0,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 Water: DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,11,11 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,11,11,0,0,0,11,11,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,11,11,1,0,11,11,0,11,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,11,11,11,1,11,1,11,1,1,11,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,8,8,8,8,11,1,1,1,11,1,11,1,11,11,1,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,8,8,8,8,1,11,1,11,11,11,1,11,1,11,1,11,11 DATA 15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,8,8,11,1,11,11,1,1,11,1,11,1,11,0,0 DATA 15,13,13,13,13,13,13,13,13,13,13,13,13,13,15,8,8,1,11,1,1,11,11,1,11,1,1,1,11,0 DATA 15,13,13,15,13,15,13,13,13,13,15,15,15,13,15,8,8,1,1,11,11,11,1,11,1,1,11,11,0,0 DATA 15,13,13,15,13,15,13,13,13,13,15,13,15,13,15,8,8,11,1,1,11,1,11,1,11,11,1,1,11,0 DATA 15,13,13,15,13,15,13,13,13,13,15,13,15,13,15,8,8,11,11,1,1,11,1,11,1,1,11,1,11,11 DATA 15,13,13,15,15,15,13,15,15,13,15,13,15,13,15,8,8,11,1,11,1,11,1,1,11,1,11,11,0,0 DATA 15,13,13,15,13,15,13,13,15,13,15,13,15,13,15,8,8,1,11,1,11,1,11,1,1,11,1,1,11,0 DATA 15,13,13,15,13,15,13,15,13,13,15,13,15,13,15,8,8,11,1,1,1,1,1,11,1,1,11,11,0,11 DATA 15,13,13,15,13,15,13,15,15,13,15,15,15,13,15,8,8,11,1,11,1,11,11,1,11,11,1,1,11,0 DATA 15,13,13,13,13,13,13,13,13,13,13,13,13,13,15,8,8,1,11,1,11,1,11,1,1,11,1,11,0,11 DATA 15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,8,8,11,11,11,1,11,1,11,1,1,11,1,11,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,8,8,8,8,1,11,1,11,11,1,11,11,1,1,11,11,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,8,8,8,8,11,0,11,1,1,11,1,11,11,11,1,0,11 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,11,11,0,11,0,0,0,11,11,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 Fire: DATA 0,0,0,0,0,0,0,0,0,0,0,4,0,4,0,0,4,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,4,0,0,4,4,4,4,0,4,0,4,0,0,4,0,4,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,4,4,4,4,0,4,4,5,4,5,4,5,4,4,0,4,0,4,0,0,0,0 DATA 0,0,0,0,0,0,0,4,5,5,5,5,4,4,4,4,5,4,5,5,5,4,4,4,4,4,0,0,0,0 DATA 0,0,0,0,0,0,0,4,4,5,4,4,4,5,5,4,5,5,5,4,4,5,5,5,4,0,4,0,0,0 DATA 0,0,0,0,0,0,0,4,4,4,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,4,0,0,0,0 DATA 0,0,0,0,0,0,0,0,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,4,0,0,0,0 DATA 0,0,0,0,0,0,0,4,4,5,5,5,5,5,5,13,13,13,13,13,5,5,5,5,5,5,4,0,0,0 DATA 0,0,0,0,0,0,0,4,5,5,5,5,5,13,13,13,13,13,13,13,5,5,5,5,5,4,4,4,0,0 DATA 0,0,0,0,0,0,0,4,4,5,5,13,5,13,13,13,13,13,13,13,13,5,5,5,5,5,4,0,0,0 DATA 0,0,0,0,0,0,4,4,4,5,5,5,13,13,13,13,13,13,13,13,13,13,5,5,5,4,0,4,0,0 DATA 0,0,0,0,0,0,4,0,4,5,5,13,13,13,13,13,13,13,13,13,13,13,5,5,5,5,4,0,0,0 DATA 0,0,0,0,0,0,4,4,5,5,13,13,13,13,13,13,13,13,13,13,13,13,5,5,5,4,0,4,0,0 DATA 0,0,0,0,0,0,4,4,5,5,5,13,13,13,13,13,13,13,13,13,13,13,13,5,5,5,4,4,0,0 DATA 0,0,0,0,0,0,0,4,5,5,5,13,13,13,13,13,13,13,13,13,13,13,5,5,5,5,4,0,0,0 DATA 0,0,0,0,0,0,4,0,4,5,5,13,13,13,13,13,13,13,13,13,13,5,5,5,5,5,4,0,0,00 DATA 0,0,0,0,0,0,4,4,4,5,5,13,13,13,13,13,13,13,13,13,13,13,5,5,5,5,4,0,0,0 DATA 0,0,0,0,0,0,0,4,5,5,5,13,13,13,13,13,13,13,13,13,13,13,5,5,5,4,0,0,0,0 DATA 0,0,0,0,0,0,0,4,5,5,5,13,13,13,13,13,13,13,13,13,13,13,13,5,5,4,4,0,0,0 DATA 0,0,0,0,0,0,4,0,4,5,5,13,13,13,13,13,13,13,13,13,13,13,5,5,5,4,0,0,0,0 DATA 0,0,0,0,0,0,4,4,4,5,5,13,13,13,13,13,13,13,13,13,13,5,5,5,5,4,4,0,0,0 DATA 0,0,0,0,0,0,0,0,4,5,5,5,13,13,13,13,13,13,13,13,13,13,5,5,4,5,4,0,0,0 DATA 0,0,0,0,0,0,0,4,5,5,5,5,13,13,13,13,13,13,13,13,5,13,5,5,5,4,0,0,0,0 DATA 0,0,0,0,0,0,0,4,5,5,5,13,5,13,13,13,13,13,13,13,13,5,5,5,4,4,0,0,0,0 DATA 0,0,0,0,0,0,4,0,4,4,5,5,13,13,13,13,13,13,5,13,5,4,4,5,0,4,4,0,0,0 DATA 0,0,0,0,0,0,0,4,4,5,5,5,5,5,13,5,5,13,5,4,4,5,4,4,4,0,0,0,,0 DATA 0,0,0,0,0,0,0,4,0,4,5,5,5,5,5,4,13,4,5,5,5,4,4,4,0,4,0,0,0,0 DATA 0,0,0,0,0,0,0,0,4,4,4,5,4,5,4,0,4,5,4,4,4,4,0,0,4,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,4,5,4,5,4,4,4,4,4,4,4,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,4,0,4,4,4,0,0,0,4,0,0,0,0,0,0,0,0,0,0,0 Wall: DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16,16,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0016,16,0 DATA 16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,0 DATA 16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,0 DATA 16,16,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 16,16,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 16,16,0,0,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,0 DATA 16,16,0,0,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,0 DATA 16,16,0,0,16,16,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16,16,0 DATA 16,16,0,0,16,16,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16,16,0 DATA 16,16,0,0,16,18,0,0,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,0,0,16,16,0 DATA 16,16,0,0,16,16,0,0,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,0,0,16,16,0 DATA 16,16,0,0,16,16,0,0,16,16,0,0,0,0,0,0,0,0,0,0,0,0,0,16,16,0,0,16,16,0 DATA 16,16,0,0,16,16,0,0,16,16,0,0,0,0,0,0,0,0,0,0,0,0,0,16,16,0,0,16,16,0 DATA 16,16,0,0,16,16,0,0,16,16,0,0,0,16,16,16,16,16,16,16,16,0,0,16,16,0,0,16,16,0 DATA 16,16,0,0,16,16,0,0,16,16,0,0,0,16,16,16,16,16,16,16,16,0,0,16,16,0,0,16,16,0 DATA 16,16,0,0,16,16,0,0,16,16,0,0,0,16,16,0,0,0,0,16,16,0,0,16,16,0,0,16,16,0 DATA 16,16,0,0,16,16,0,0,16,16,0,0,0,16,16,0,0,0,0,16,16,0,0,16,16,0,0,16,16,0 DATA 16,16,0,0,16,16,0,0,16,16,16,16,16,16,16,0,0,0,0,16,16,0,0,16,16,0,0,16,16,0 DATA 16,16,0,0,16,16,0,0,16,16,16,16,16,16,16,0,0,0,0,16,16,0,0,16,16,0,0,16,16,0 DATA 16,16,0,0,16,16,0,0,0,0,0,0,0,0,0,0,0,0,0,16,16,0,0,16,16,0,0,16,16,0 DATA 16,16,0,0,16,16,0,0,0,0,0,0,0,0,0,0,0,0,0,16,16,0,0,16,16,0,0,16,16,0 DATA 16,16,0,0,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,0,0,16,16,0,0,16,16,0 DATA 16,16,0,0,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,0,0,16,16,0,0,16,16,0 DATA 16,16,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16,16,0,0,16,16,0 DATA 16,16,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16,16,0,0,16,16,0 DATA 16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,0,0,16,16,0 DATA 16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,0,0,16,16,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16,16,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16,16,0 Door: DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,6,6,6,6,6,6,6,6,6,6,6,6,6,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,6,6,6,6,6,6,6,6,6,6,6,6,6,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,6,6,6,8,8,8,8,8,8,8,6,6,6,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,6,6,6,8,14,14,8,14,14,8,6,6,6,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,6,6,6,8,14,14,8,14,14,8,6,6,6,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,6,6,6,8,8,8,8,8,8,8,6,6,6,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,6,6,6,8,14,14,8,14,14,8,6,6,6,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,6,6,6,8,14,0,8,0,14,8,6,6,6,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,6,6,6,8,8,8,8,8,8,8,6,6,6,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,6,6,6,6,6,6,6,6,6,6,6,6,6,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,6,6,6,6,6,6,6,6,6,6,6,6,6,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,6,6,6,6,6,6,6,6,6,6,6,6,6,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,6,6,6,6,6,6,6,6,6,6,6,6,6,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,6,6,13,6,6,6,6,6,6,6,6,6,6,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,6,13,13,13,6,6,6,6,6,6,6,6,6,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,6,6,13,6,6,6,6,6,6,6,6,6,6,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,6,6,6,6,6,6,6,6,6,6,6,6,6,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,6,6,6,6,6,6,6,6,6,6,6,6,6,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,6,6,6,6,6,6,6,6,6,6,6,6,6,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,6,6,6,6,6,6,6,6,6,6,6,6,6,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,6,6,6,6,6,6,6,6,6,6,6,6,6,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,6,6,6,6,6,6,6,6,6,6,6,6,6,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,6,6,6,6,6,6,6,6,6,6,6,6,6,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,6,6,6,6,6,6,6,6,6,6,6,6,6,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,6,6,6,6,6,6,6,6,6,6,6,6,6,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,6,6,6,6,6,6,6,6,6,6,6,6,6,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,6,6,6,6,6,6,6,6,6,6,6,6,6,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,6,6,6,6,6,6,6,6,6,6,6,6,6,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 Bars: DATA 8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15 DATA 8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15 DATA 8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15 DATA 8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15 DATA 8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15 DATA 8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15 DATA 8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15 DATA 8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15 DATA 8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15 DATA 8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15 DATA 8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15 DATA 8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15 DATA 8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15 DATA 8,15,0,0,8,15,0,0,8,15,0,8,8,8,8,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15 DATA 8,15,0,0,8,15,0,0,8,15,0,8,15,15,8,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15 DATA 8,15,0,0,8,15,0,0,8,15,0,8,15,15,8,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15 DATA 8,15,0,0,8,15,0,0,8,15,0,8,8,15,8,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15 DATA 8,15,0,0,8,15,0,0,8,15,0,8,15,15,8,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15 DATA 8,15,0,0,8,15,0,0,8,15,0,8,8,15,8,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15 DATA 8,15,0,0,8,15,0,0,8,15,0,8,8,8,8,0,8,15,0,0,8,15,0,0,08,15,0,0,8,15 DATA 8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15 DATA 8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15 DATA 8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15 DATA 8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15 DATA 8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15 DATA 8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15 DATA 8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15 DATA 8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15 DATA 8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15 DATA 8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15,0,0,8,15 Keys: DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,13,13,13,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,13,13,13,13,13,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,13,13,13,13,13,13,13,0,0,0,0,0,0,0,0,0,0,0,0,00,0,0 DATA 0,0,0,0,0,0,0,13,13,0,13,13,13,13,13,13,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,13,0,0,13,13,13,13,13,13,13,13,13,13,13,13,13,13,13,13,13,0,0,0 DATA 0,0,0,0,0,0,0,13,0,0,13,13,13,13,13,13,13,13,13,13,13,13,13,13,13,13,13,13,0,0 DATA 0,0,0,0,0,0,0,13,0,0,13,13,15,13,15,13,15,15,15,13,15,13,13,13,15,13,13,13,13,0 DATA 0,0,0,0,0,0,0,13,0,0,13,13,15,15,13,13,15,13,13,13,13,15,13,15,13,13,13,13,13,0 DATA 0,0,0,0,0,0,0,13,0,0,13,13,15,13,13,13,15,15,13,13,13,13,15,13,13,13,13,13,13,0 DATA 0,0,0,0,0,0,0,13,0,0,13,13,15,15,13,13,15,13,13,13,13,13,15,13,13,13,13,13,13,0 DATA 0,0,0,0,0,0,0,13,0,0,13,13,15,13,15,13,15,15,15,13,13,13,15,13,13,13,13,13,0,0 DATA 0,0,0,0,0,0,0,13,0,0,13,13,13,13,13,13,13,13,13,13,13,13,13,13,13,13,13,0,0,0 DATA 0,0,0,0,0,0,0,13,13,0,13,13,13,13,13,13,0,0,13,13,13,0,0,0,13,13,13,0,0,0 DATA 0,0,0,0,0,0,0,0,13,13,13,13,13,13,13,0,0,0,13,13,13,0,0,13,13,13,13,0,0,0 DATA 0,0,0,0,0,0,0,0,0,13,13,13,13,13,0,0,0,0,0,13,13,0,0,0,13,13,13,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,13,13,13,0,0,0,0,0,0,13,0,0,0,0,0,13,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 Empty: DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,4,4,0,0,0,0,0,0,0,0,0,0,4,4,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,4,4,0,0,0,0,0,0,0,0,4,4,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,4,4,4,0,0,0,0,0,0,4,4,4,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,4,4,4,4,0,0,0,0,4,4,4,4,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,4,0,4,4,4,4,0,0,4,4,4,4,0,4,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,4,0,4,4,4,4,0,0,4,4,4,4,0,4,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,4,0,4,0,4,0,0,0,0,4,0,4,0,4,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,4,0,0,0,4,0,4,4,0,4,0,0,0,4,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,4,0,0,4,0,4,4,0,4,0,0,4,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,4,4,0,0,4,4,0,0,4,4,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,4,4,4,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,4,4,4,4,0,0,4,4,4,4,0,0,4,4,4,4,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,4,0,0,4,0,0,0,0,0,0,0,0,4,0,0,4,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,4,4,4,4,0,0,0,0,0,0,0,0,4,0,4,4,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,4,0,4,4,0,0,0,0,0,0,0,0,4,4,0,4,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,4,0,4,0,4,0,0,0,0,0,0,4,4,0,0,4,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,4,0,4,0,4,4,0,0,0,0,4,0,0,4,0,4,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,4,4,4,0,4,4,4,4,4,4,4,0,4,4,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,4,0,0,4,0,4,0,0,4,0,4,4,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,4,0,4,4,0,4,0,4,0,4,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,4,4,0,0,0,4,0,4,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,4,4,4,4,4,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 BackT: DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,2,2,2,2,0,0,2,2,2,2,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,2,2,2,2,2,0,0,2,2,2,2,2,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,2,2,0,0,2,0,0,0,0,2,0,0,2,2,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,2,2,2,2,2,0,2,2,0,2,2,2,2,2,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,2,2,2,2,0,2,2,0,2,2,2,2,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,2,0,0,2,0,2,2,0,2,0,0,2,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,2,2,0,2,2,2,2,0,2,2,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,2,2,2,2,0,0,0,0,0,0,0,0,2,2,2,2,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,2,0,0,2,0,0,0,0,0,0,0,0,2,0,0,2,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,2,0,0,2,0,0,0,0,0,0,0,0,2,0,0,2,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,2,2,2,2,0,0,0,0,0,0,0,0,2,2,2,2,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,2,2,0,2,0,0,0,0,0,0,2,2,0,2,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,2,0,2,0,2,2,2,2,2,2,0,2,0,2,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,2,0,2,0,2,0,2,0,2,0,2,2,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,2,0,2,2,2,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,2,0,0,2,0,2,0,2,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,2,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 SUB Colors LOCATE 2, 2 COLOR BrWhite PRINT "DrBlack=0" LOCATE 2, 12 COLOR Blue PRINT "Blue=1" LOCATE 2, 19 COLOR Green PRINT "Green=2" LOCATE 2, 27 COLOR Brown PRINT "Brown=3" LOCATE 2, 35 COLOR Red PRINT "Red=4" LOCATE 2, 41 COLOR Orange PRINT "Orange=5" LOCATE 2, 50 COLOR HotPink PRINT "HotPink=6" LOCATE 2, 60 COLOR White PRINT "White=7" LOCATE 2, 68 COLOR Gray PRINT "Gray=8" LOCATE 2, 75 COLOR BrBlue PRINT "BrBlue=9" LOCATE 3, 1 COLOR BrGreen PRINT "BrGreen=10" LOCATE 3, 12 COLOR BrCyan PRINT "BrCyan=11" LOCATE 3, 22 COLOR BrRed PRINT "BrRed=12" LOCATE 3, 32 COLOR Yellow PRINT "Yellow=13" LOCATE 3, 42 COLOR Black PRINT "Black=15" END SUB