bogen.bk

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

PROCEDURE bogen; ASSEMBLER;
ASM
  DB  5, 5, 7, 8, 9,10,11,12,12,13,14,14,14,15,15,16,16,16,16,16
  DB 17,17,17,17,17,17,17,16,16,16,16,16,15,15,15,14,14,13,12,12
  DB 11,10, 9, 8, 7, 6, 4, 4, 6, 7, 8, 9,10,11,12,12,13,14,14,15
  DB 15,15,16,16,16
  DB 16,16,17,17,17,17,17,17,17,16,16,16,16,16,15,15,14,14,14,13
  DB 12,12,11,10, 9, 8, 7, 5, 5, 6, 6, 6, 6, 5, 6, 8, 9,10,11,11
  DB 12,13,13,13,14,14,15,15,15,15,15,16,16,16,16,16,16,16,15,15
  DB 15,15,14,14,14
  DB 13,13,13,12,11,11, 9, 8, 7, 6, 8, 9,10,10,10,11,11,12,12,12
  DB 12,13,13,13,13,13,13,12,12,12,12,11,11,11,10,10, 9, 8, 7, 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
  DB 16,16,16,16,15,15,15,14,14,13,12,12,11,10, 9, 8, 7, 6, 6, 6
  DB  6, 7, 7, 7, 7, 7, 6, 6, 6, 5, 6, 7, 8, 8, 9, 9, 9, 9,10,10
  DB 10,10,10,10, 9, 9, 9, 8, 8, 9,11,12,13,13,14,15,15,16,16,17
  DB 17,18,18,18,19
  DB 19,19,19,19,20,20,20,20,20,20,20,20,19,19,19,19,19,18,18,18
  DB 17,17,17,16,15,15,14,13,13,12,11,10, 9, 6, 4, 5, 5, 6, 6, 6
  DB  7, 7, 7, 7, 6, 6, 6, 6, 5, 5, 4, 4, 3, 5, 6, 7, 9,10,11,11
  DB 11,12,12,13,13
  DB 13,13,14,14,14,14,14,14,14,13,13,13,13,12,12,12,11,11,10, 9
  DB  8, 7, 6, 5, 4, 4, 5, 6, 7, 8, 9,10,11,11,12,12,12,13,13,13
  DB 13,14,14,14,14,14,14,14,13,13,13,13,12,12,11,11,11,10, 9, 7
  DB  6, 5, 4, 4, 5
  DB  6, 7, 7, 8, 8, 8, 9, 9, 9, 9, 9, 9, 8, 8, 8, 7, 7, 6, 6, 8
  DB  9,10,11,12,12,13,14,14,15,16,16,17,17,17,18,18,18,18,18,19
  DB 19,19,19,19,19,19,19,18,18,18,18,18,17,17,17,16,16,15,14,14
  DB 14,12,12,11,10
  DB  9, 8, 6, 4, 2, 3, 4, 4, 5, 5, 5, 5, 4, 4, 6, 8, 9,10,11,12
  DB 12,13,14,14,14,15,15,15,16,16,16,16,17,17,17,17,17,17,17,16
  DB 16,16,16,16,15,15,15,14,14,13,12,12,11,10, 9, 9,10,11,11,12
  DB 12,12,13,13,13
  DB 13,14,14,14,14,14,14,14,13,13,13,13,12,12,12,11,11,10, 9, 8
  DB  9,10,11,12,13,14,15,15,15,16,17,17,18,18,18,19,19,19,19,19
  DB 20,20,20,20,20,20,20,20,19,19,19,19,19,18,18,18,17,17,17,16
  DB 15,15,14,13,13
  DB 12,11,10, 9, 8, 5, 6, 6, 6, 7, 7, 7, 7, 7, 8, 9,10,11,12,12
  DB 13,14,14,14,15,15,15,16,16,16,16,17,17,17,17,17,17,17,16,16
  DB 16,16,16,15,15,15,14,14,13,12,12,11,10, 9, 8, 8, 9,10,10,11
  DB 11,11,12,12,12
  DB 12,13,13,13,13,13,13,12,12,12,12,11,11,11,10,10, 9, 8, 7, 6
  DB  5, 4, 4, 5, 6, 7, 8, 9,10,10,11,11,11,12,12,12,12,13,13,13
  DB 13,13,13,12,12,12,12,11,11,11,10,10, 9, 8, 7, 5, 5, 5, 5, 6
  DB  6, 6, 6, 5, 6
  DB  7, 7, 8, 9, 9,10,10,10,10,11,11,11,11,11,11,10,10,10, 9, 9
  DB  9, 8, 7, 7, 6, 5, 3, 3, 5, 6, 7, 7, 8, 9, 9, 9,10,10,10,11
  DB 11,11,11,11,11,10,10,10,10, 9, 9, 8, 7, 8, 9,10,11,12,12,13
  DB 14,14,15,16,16
  DB 16,17,17,17,18,18,18,18,19,19,19,19,19,19,19,19,18,18,18,18
  DB 18,17,17,17,16,16,15,15,14,14,13,12,12,10, 9, 8, 7, 8, 8, 9
  DB  9, 9,10,10,10,10,10,10, 9, 9, 9, 8, 8, 8, 7, 6, 5, 5, 4, 4
  DB  5, 7, 8, 9,10
  DB 10,11,11,11,12,12,12,12,13,13,13,13,13,13,12,12,12,12,11,11
  DB 11,10,10, 9, 8, 7, 6, 6, 7, 7, 7, 7, 6, 6, 7, 7, 8, 9, 9,10
  DB 10,10,10,11,11,11,11,11,11,10,10,10, 9, 9, 9, 8, 7, 7, 6, 5
  DB  5, 6, 7, 7, 8
  DB  9, 9,10,10,10,10,11,11,11,11,11,11,10,10,10,10, 9, 9, 8, 7
  DB  8, 8, 8, 9, 9, 9,10,10,10,10,10,10, 9, 9, 9, 8, 8, 8, 7, 5
  DB  5, 6, 6, 6, 6, 5, 5, 5, 5, 6, 6, 6, 7, 7, 7, 7, 7, 6, 7, 8
  DB  9, 9,10,11,12
  DB 12,13,13,13,14,14,14,14,15,15,15,15,15,15,15,14,14,14,14,13
  DB 13,13,12,12,11,10, 9, 9, 8, 7, 6, 7, 7, 7, 8, 8, 8, 8, 8, 7
  DB  7, 7, 6, 6, 5, 6, 7, 7, 8, 9, 9, 9,10,10,10,11,11,11,11,11
  DB 11,10,10,10,10
  DB  9, 9, 8, 7, 7, 6, 6, 6, 6, 5, 5, 5, 4, 3, 2, 2, 3, 4, 5, 5
  DB  5, 6, 6, 6, 6, 7, 8,10,11,12,13,13,14,15,15,15,16,16,16,17
  DB 17,17,17,17,18,18,18,18,18,18,18,17,17,17,17,17,16,16,16,15
  DB 15,14,13,13,12
  DB 11,10, 9, 8, 7, 6, 4, 4, 6, 7, 8, 9,10,11,12,13,13,14,15,15
  DB 16,16,16,17,17,17,17,17,18,18,18,18,18,18,18,18,17,17,17,17
  DB 16,16,16,15,15,15,14,13,13,12,11,10, 9,11,12,13,13,14,15,15
  DB 16,16,17,17,18
  DB 18,18,19,19,19,19,19,20,20,20,20,20,20,20,20,19,19,19,19,19
  DB 18,18,18,17,17,17,16,15,15,14,13,13,12,11,10, 8, 6, 4, 3, 4
  DB  4, 5, 5, 5, 6, 8, 9,11,12,13,13,14,15,15,16,16,17,17,18,18
  DB 18,19,19,19,19
  DB 19,20,20,20,20,20,20,20,20,19,19,19,19,19,18,18,18,17,17,17
  DB 16,15,15,14,13,13,12,11,10, 8, 6, 4, 4, 6, 8, 9,11,12,13,13
  DB 14,15,15,16,16,17,17,18,18,18,19,19,19,19,19,20,20,20,20,20
  DB 20,20,20,19,19
  DB 19,19,19,18,18,18,17,17,17,16,15,15,14,13,13,12,11,10, 8, 8
  DB  9, 9,10,10,10,10,11,11,11,11,11,11,10,10,10, 9, 9, 9, 8, 7
  DB  7, 6, 3, 4, 5, 6, 7, 8, 8, 9, 9, 9, 9,10,10,10,10,10, 9, 9
  DB  9, 9, 8, 8, 7
  DB  6, 5, 4, 3, 6, 7, 8, 9,10,11,12,13,13,14,15,15,16,16,16,17
  DB 17,17,17,17,18,18,18,18,18,18,18,18,17,17,17,17,16,16,16,15
  DB 15,15,14,13,13,12,11,10, 9, 7, 6, 4, 3, 5, 6, 7, 8, 8, 9,10
  DB 10,11,11,11,11
  DB 12,12,12,12,12,12,11,11,11,11,10,10, 9, 9, 8, 8, 6, 5, 4, 6
  DB  7, 8,10,11,11,12,13,13,13,14,14,14,15,15,15,15,16,16,16,16
  DB 16,16,16,15,15,15,15,14,14,14,13,13,13,12,11,11,10, 9, 8,10
  DB 11,12,12,13,14
  DB 14,14,15,15,15,16,16,16,16,17,17,17,17,17,17,17,17,16,16,16
  DB 16,15,15,15,14,14,13,12,12,12,10, 9, 8, 7, 6, 4, 4, 5, 5, 5
  DB  6, 6, 6, 6, 5, 5, 6, 7, 7, 8, 9, 9,10,10,10,10,11,11,11,11
  DB 11,11,10,10,10
END;