worlds.pas

dos下经典游戏超级马力的完整源代码

unit Worlds;

interface

  uses
    Buffers;

  procedure Intro_0;
  procedure Options_0;

  procedure Level_1a;
  procedure Options_1a;
  procedure Opt_1a;
  procedure Level_1b;
  procedure Options_1b;

  procedure Level_2a;
  procedure Options_2a;
  procedure Opt_2a;
  procedure Level_2b;
  procedure Options_2b;

  procedure Level_3a;
  procedure Options_3a;
  procedure Opt_3a;
  procedure Level_3b;
  procedure Options_3b;

  procedure Level_4a;
  procedure Options_4a;
  procedure Opt_4a;
  procedure Level_4b;
  procedure Options_4b;

  procedure Level_5a;
  procedure Options_5a;
  procedure Opt_5a;
  procedure Level_5b;
  procedure Options_5b;

  procedure Level_6a;
  procedure Options_6a;
  procedure Opt_6a;
  procedure Level_6b;
  procedure Options_6b;

implementation

  procedure Intro_0; assembler;
  asm
    db    'AA