home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 7 Games / 07-Games.zip / dgdoom.zip / MAPDEBUG.BAS < prev    next >
BASIC Source File  |  1998-05-13  |  358b  |  14 lines
  1. 10 OPEN "lev 1" FOR INPUT AS #1
  2. 20 DIM d%(20, 20)
  3. 30 FOR y = 1 TO 20: FOR x = 1 TO 20
  4. 40 INPUT #1, d%(x, y)
  5. 50 NEXT x, y
  6. 60 CLOSE 1
  7. 70 INPUT "Enter x,y coordinates:", x, y
  8. 80 IF d%(x, y) AND 1 THEN PRINT "North"
  9. 90 IF d%(x, y) AND 2 THEN PRINT "South"
  10. 100 IF d%(x, y) AND 4 THEN PRINT "East"
  11. 110 IF d%(x, y) AND 8 THEN PRINT "West"
  12. 120 GOTO 70
  13.  
  14.