bogen26.bk

来自「dos下经典游戏超级马力的完整源代码」· BK 代码 · 共 100 行

PROCEDURE bogen26; ASSEMBLER;
ASM
  DB  5, 5, 6, 6, 6, 6, 6, 5, 5, 5, 4, 4, 4, 5, 6, 7, 7, 8, 8, 8
  DB  9, 9, 9, 9, 9, 9, 8, 8, 8, 7, 7, 6, 8, 9,10,11,12,12,13,14
  DB 14,15,16,16,16,17,17,17,18,18,18,18,18,19,19,19,19,19,19,19
  DB 18,18,18,18,18
  DB 17,17,17,16,16,16,15,14,14,13,12,12,11, 9, 8, 6, 6, 6, 7, 7
  DB  7, 8, 8, 8, 8, 8, 7, 7, 7, 6, 6, 5, 4, 4, 5, 6, 8, 9,10,11
  DB 11,11,12,12,13,13,13,13,14,14,14,14,14,14,14,13,13,13,13,12
  DB 12,12,11,11,10
  DB  9, 8, 7, 6, 5, 4, 4, 5, 6, 7, 8, 9,10,11,11,12,12,12,13,13
  DB 13,13,14,14,14,14,14,14,14,13,13,13,13,12,12,11,11,11,10, 9
  DB  7, 6, 5, 4, 4, 5, 7, 9, 9,10,11,12,12,12,13,13,14,14,14,14
  DB 14,15,15,15,15
  DB 15,15,14,14,14,14,14,13,13,13,12,12,11,10, 9, 9, 8, 7, 4, 5
  DB  7, 8,10,11,12,13,14,15,16,17,17,18,18,19,19,20,20,20,21,21
  DB 21,22,22,22,22,22,23,23,23,23,23,23,23,23,23,22,22,22,22,22
  DB 21,21,21,20,20
  DB 20,19,19,18,17,17,17,16,15,14,13,12,11,10,10,10,10,10,11,11
  DB 11,11,11,10,10,10,10, 9, 9, 8, 9,10,10,11,11,12,12,12,12,13
  DB 13,13,13,13,13,13,12,12,12,12,11,11,10,10, 9, 8, 9,10,10,10
  DB 11,11,11,11,12
  DB 12,12,12,12,12,11,11,11,11,10,10,10,11,12,13,14,14,15,16,17
  DB 17,18,19,19,20,20,20,21,21,21,22,22,22,22,22,22,23,23,23,23
  DB 23,23,23,23,22,22,22,22,22,21,21,21,21,20,20,19,19,19,18,17
  DB 17,16,15,14,14
  DB 13,12,10, 8, 7, 5, 6, 7, 7, 8, 9, 9,10,10,10,10,11,11,11,11
  DB 11,10,10,10,10, 9, 9, 9, 8, 7, 7, 8, 8, 9,10,10,11,11,11,11
  DB 12,12,12,12,12,12,11,11,11,11,10,10,10, 9, 8, 8, 9, 9, 9, 9
  DB 10,10,10,10,10
  DB  9, 9, 9, 9, 8, 8, 7, 7, 7, 8, 9, 9, 9,10,10,10,11,11,11,11
  DB 11,11,10,10,10,10, 9, 9, 8, 7, 7, 8, 8, 8, 8, 8, 7, 7, 8, 9
  DB  9, 9,10,10,10,10,11,11,11,11,11,10,10,10,10, 9, 9, 9, 8, 9
  DB 10,11,12,13,15
  DB 16,17,18,18,19,20,20,20,21,22,22,23,23,23,24,24,24,24,25,25
  DB 25,25,25,26,26,26,26,26,26,26,26,26,25,25,25,25,25,25,24,24
  DB 24,23,23,23,22,22,22,21,20,20,19,18,18,17,16,15,14,13,13,14
  DB 15,15,16,17,18
  DB 18,19,20,20,20,21,21,22,22,22,22,23,23,23,23,23,24,24,24,24
  DB 24,24,24,24,24,23,23,23,23,23,22,22,22,21,21,21,20,20,20,19
  DB 18,18,17,16,15,15,14,13,12,10, 8, 7, 5, 3, 4, 4, 5, 5, 5, 5
  DB  5, 6, 6, 7, 7
  DB  7, 7, 8, 8, 8, 8, 8, 7, 7, 7, 6, 6, 5, 5, 5, 5, 4, 4, 4, 3
  DB  2, 2, 3, 4, 4, 4, 5, 5, 6, 9,10,11,12,12,13,14,14,15,16,16
  DB 16,17,17,17,18,18,18,18,18,19,19,19,19,19,19,19,18,18,18,18
  DB 18,17,17,17,16
  DB 16,16,15,14,14,13,12,12,11,10,10,12,13,13,14,15,15,16,16,17
  DB 17,18,18,18,19,19,19,19,19,20,20,20,20,20,20,20,20,19,19,19
  DB 19,19,18,18,18,17,17,17,16,15,15,14,13,13,12,11,10, 9, 8, 8
  DB  8, 9, 9, 9, 9
  DB  9, 9, 9,10,11,12,13,13,14,15,15,15,16,16,17,17,17,17,17,18
  DB 18,18,18,18,18,18,18,17,17,17,17,16,16,16,15,15,15,14,13,13
  DB 12,12,13,14,14,15,15,16,16,17,17,17,18,18,18,18,18,19,19,19
  DB 19,19,19,19,19
  DB 18,18,18,18,17,17,17,16,16,16,15,14,14,13,12,12,11,10, 9, 8
  DB  9, 9, 9, 9,10,10,10,10,10, 9, 9, 9, 9, 8, 8, 7, 6, 5, 4, 3
  DB  6, 7, 7, 8, 9, 9, 9,10,10,10,11,11,11,11,11,11,10,10,10,10
  DB  9, 9, 8, 7, 9
  DB 10,11,12,13,14,14,15,16,17,17,18,18,18,19,19,19,20,20,20,20
  DB 20,21,21,21,21,21,21,21,21,20,20,20,20,20,19,19,19,19,18,18
  DB 17,17,16,15,15,14,13,12,11,10,10,11,12,13,14,15,15,16,17,18
  DB 18,19,20,20,21
  DB 21,21,22,22,22,23,23,23,23,23,23,24,24,24,24,24,24,24,24,23
  DB 23,23,23,23,23,22,22,22,21,21,21,20,20,19,18,18,18,17,16,15
  DB 14,13,12,12,13,14,14,15,15,15,16,16,16,16,16,17,17,17,17,17
  DB 17,17,16,16,16
  DB 16,16,15,15,15,14,14,13,12,12,11,10, 9, 8, 7, 6, 4, 4, 6, 7
  DB  8, 9,10,11,12,12,13,14,14,15,15,15,16,16,16,16,16,17,17,17
  DB 17,17,17,17,16,16,16,16,15,15,15,14,14,14,13,12,12,11,10, 9
  DB  8, 8, 9,10,11
  DB 13,13,14,15,15,15,16,17,17,18,18,18,19,19,19,19,19,20,20,20
  DB 20,20,20,20,20,19,19,19,19,19,18,18,18,17,17,17,16,15,15,14
  DB 13,13,12,11,11,12,13,14,15,16,17,18,18,19,20,20,21,22,22,22
  DB 23,23,23,24,24
  DB 24,25,25,25,25,25,25,26,26,26,26,26,26,26,26,26,25,25,25,25
  DB 25,24,24,24,24,23,23,23,22,22,21,20,20,20,19,18,18,17,15,14
  DB 13,12,11,10, 9, 7, 5, 5, 7, 9,10,11,12,13,14,15,17,18,18,19
  DB 20,20,20,21,22
  DB 22,23,23,23,24,24,24,24,25,25,25,25,25,26,26,26,26,26,26,26
  DB 26,26,25,25,25,25,25,25,24,24,24,23,23,23,22,22,22,21,20,20
  DB 19,18,18,17,16,15,14,13,12,11, 9, 7, 6, 8,10,11,12,13,14,14
  DB 15,16,17,17,17
  DB 18,18,19,19,19,20,20,20,20,20,21,21,21,21,21,21,21,21,20,20
  DB 20,20,20,19,19,19,19,18,18,17,17,17,16,15,14,14,13,11,10, 9
  DB  8, 8, 8, 8, 8, 7, 7, 8, 9,10,11,12,13,14,15,16,16,17,18,18
  DB 19,19,19,20,20
  DB 20,21,21,21,21,21,22,22,22,22,22,22,22,22,22,21,21,21,21,21
  DB 20,20,20,19,19,19,18,18,17,16,16,15,14,13,12,11,11,12,14,15
  DB 15,16,17,18,18,19,19,20,20,21,21,21,22,22,22,23,23,23,23,23
  DB 24,24,24,24,24
  DB 24,24,24,24,23,23,23,23,23,22,22,22,22,21,21,21,20,20,19,18
  DB 18,17,16,15,15,14,13,12,11,10, 8, 5, 5, 6, 7, 7, 8, 9, 9,10
  DB 10,10,10,11,11,11,11,11,11,10,10,10, 9, 9, 9, 8, 8,10,11,12
  DB 13,14,15,16,17
  DB 18,18,18,19,20,20,21,21,21,22,22,22,23,23,23,23,23,23,24,24
  DB 24,24,24,24,24,24,23,23,23,23,23,23,22,22,22,21,21,21,20,20
  DB 19,18,18,17,16,15,15,14,13,12,11,10, 8, 7, 5, 5, 7, 8,10,11
  DB 12,13,14,15,16
END;