//  MainLoop2
//

//  Mensaje de cambio a Area 2
IF SCREEN = 6
  CLS
  LET M = 2   // Play musica area 2  
  LET LINE = 10
  LET COLUMN = 12
  COLOUR 71
  MESSAGE 17
  //WAITKEY
  DELAY 120
  FADE
  NEXTLEVEL
  LET LINE = 0
LET COLUMN = 1
COLOUR 71
MESSAGE 2
LET LINE = 0
LET COLUMN = 4
// PRUEBA
IF LIVES = 4
  PUTBLOCK 6
  PUTBLOCK 6
  PUTBLOCK 6
  PUTBLOCK 6
ENDIF
IF LIVES = 3
  PUTBLOCK 6
  PUTBLOCK 6
  PUTBLOCK 6
  PUTBLOCK 36
ENDIF
IF LIVES = 2
  PUTBLOCK 6
  PUTBLOCK 6
  PUTBLOCK 36
  PUTBLOCK 36
ENDIF
IF LIVES = 1
  PUTBLOCK 6
  PUTBLOCK 36
  PUTBLOCK 36
  PUTBLOCK 36
ENDIF
LET LINE = 0
LET COLUMN = 23
COLOUR 3
MESSAGE 5
LET LINE = 0
LET COLUMN = 30
DISPLAY N
LET LINE = 0
LET COLUMN = 9  // *8*
// PUTBLOCK 30  // NUEVO
PUTBLOCK 30
PUTBLOCK 30
PUTBLOCK 30
PUTBLOCK 30
//ASM 205
//ASM 236
//ASM 143
//IF B = 1
//  PUTBLOCK 113
//  ELSE
//  PUTBLOCK 112
//ENDIF
//ASM 205
//ASM 236
//ASM 143
LET LINE = 0
LET COLUMN = 14
COLOUR 5
MESSAGE 4
ENDIF

//  Mensaje de cambio a Area 3
IF SCREEN = 15
  CLS
  LET M = 3   // Play musica area 3 
  LET LINE = 10
  LET COLUMN = 12
  COLOUR 71
  MESSAGE 18
  //WAITKEY
  DELAY 120
  FADE
  NEXTLEVEL
  LET LINE = 0
LET COLUMN = 1
COLOUR 71
MESSAGE 2
LET LINE = 0
LET COLUMN = 4
IF LIVES = 4
  PUTBLOCK 6
  PUTBLOCK 6
  PUTBLOCK 6
  PUTBLOCK 6
ENDIF
IF LIVES = 3
  PUTBLOCK 6
  PUTBLOCK 6
  PUTBLOCK 6
  PUTBLOCK 36
ENDIF
IF LIVES = 2
  PUTBLOCK 6
  PUTBLOCK 6
  PUTBLOCK 36
  PUTBLOCK 36
ENDIF
IF LIVES = 1
  PUTBLOCK 6
  PUTBLOCK 36
  PUTBLOCK 36
  PUTBLOCK 36
ENDIF
LET LINE = 0
LET COLUMN = 23
COLOUR 3
MESSAGE 5
LET LINE = 0
LET COLUMN = 30
DISPLAY N
LET LINE = 0
LET COLUMN = 9
// PUTBLOCK 30  // NUEVO
PUTBLOCK 30
PUTBLOCK 30
PUTBLOCK 30
PUTBLOCK 30
//ASM 205
//ASM 236
//ASM 143
//IF B = 1
//  PUTBLOCK 113
//  ELSE
//  PUTBLOCK 112
//ENDIF
//ASM 205
//ASM 236
//ASM 143
LET LINE = 0
LET COLUMN = 14
COLOUR 5
MESSAGE 4
ENDIF

// ------------------------------------------------------------
[EOF]